Work in progress, recovered from old crybaby.

[sod] / src / proto-lexer.lisp

diff --git a/src/proto-lexer.lisp b/src/proto-lexer.lisp
index 9c78a9ba1de6e3c2925aaa8c60468a4121011011..5f7a9af32a8e2f000bf1c5467cc027044ac2bd64 100644 (file)
--- a/src/proto-lexer.lisp
+++ b/src/proto-lexer.lisp
@@ -38,20 +38,6 @@ (defgeneric lexer-char (lexer)
    the end of its input stream by setting the lookahead character to nil.  At
    this point it is still possible to push back characters."))
 
    the end of its input stream by setting the lookahead character to nil.  At
    this point it is still possible to push back characters."))
 

-(export '(token-type token-value))
-(defgeneric token-type (lexer)
-  (:documentation
-   "Return the type of the LEXER's current lookahead token
-
-   When the lexer is first created, there is no lookahead token: you must
-   `prime the pump' by calling NEXT-TOKEN."))
-(defgeneric token-value (lexer)
-  (:documentation
-   "Return the value of the LEXER's current lookahead token
-
-   When the lexer is first created, there is no lookahead token: you must
-   `prime the pump' by calling NEXT-TOKEN."))
-

 ;;;--------------------------------------------------------------------------
 ;;; Formatting tokens.
 
 ;;;--------------------------------------------------------------------------
 ;;; Formatting tokens.