- ((stream :initarg :stream
- :type stream
- :reader lexer-stream)
- (char :initform nil
- :type (or character null)
- :reader lexer-char)
- (pushback-chars :initform nil
- :type list)
- (token-type :initform nil
- :accessor token-type)
- (token-value :initform nil
- :accessor token-value)
- (pushback-tokens :initform nil
- :type list))
+ ((stream :initarg :stream :type stream :reader lexer-stream)
+ (char :initform nil :type (or character null) :reader lexer-char)
+ (pushback-chars :initform nil :type list)
+ (token-type :initform nil :accessor token-type)
+ (token-value :initform nil :accessor token-value)
+ (pushback-tokens :initform nil :type list))