Commit 9087bd41 by Pascal J. Bourguignon

Changed order of definition of EOLP.

parent 9381d0e6
......@@ -204,16 +204,6 @@
:column (scanner-column self)
:line (scanner-line self)))
(defgeneric eolp (token)
(:documentation "Returns whether the token is an end-of-line token.
A end-of-file is also considered an end-of-line.")
(:method ((token t)) nil)
(:method ((token tok-eol)) t)
(:method ((token (eql 'eol))) t)
(:method ((token tok-eof)) t)
(:method ((token (eql 'eof))) t))
(defclass tok-eof (lse-token)
())
......@@ -225,6 +215,15 @@ A end-of-file is also considered an end-of-line.")
:line (scanner-line self)))
(defgeneric eolp (token)
(:documentation "Returns whether the token is an end-of-line token.
A end-of-file is also considered an end-of-line.")
(:method ((token t)) nil)
(:method ((token tok-eol)) t)
(:method ((token (eql 'eol))) t)
(:method ((token tok-eof)) t)
(:method ((token (eql 'eof))) t))
(defgeneric eofp (token)
(:documentation "Returns whether the token is an end-of-file token")
(:method ((token t)) nil)
......
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