Commit 476dc782 authored by Pascal J. Bourguignon's avatar Pascal J. Bourguignon

Corrected warning.

parent ad46da01
......@@ -291,7 +291,8 @@ RETURN: line; column
:do (case ch
((#\Space
#\Newline
#+has-linefeed #\Linefeed
#+(and has-return (not newline-is-return)) #\Return
#+(and has-linefeed (not newline-is-linefeed)) #\Linefeed
#+has-page #\Page
#+has-tab #\Tab))
(otherwise
......@@ -302,7 +303,6 @@ RETURN: line; column
(scanner-column scanner))))))
(defgeneric scan-next-token (scanner &optional parser-data)
(:documentation "
DO: Scans a new token and store it into (scanner-current-token scanner)
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment