Give tokens an INITFORM for SOURCE (to NIL)
This commit is contained in:
parent
5a18cc9864
commit
45a66ce323
1 changed files with 1 additions and 1 deletions
|
@ -16,7 +16,7 @@ the processing of a new token.")
|
|||
reading immediately. Should be a subset of *SPECIAL-TOKEN-CHARS*.")
|
||||
|
||||
(defclass token ()
|
||||
((%source :accessor source :initarg :source)))
|
||||
((%source :accessor source :initarg :source :initform nil)))
|
||||
|
||||
;; Tokens containing user data
|
||||
|
||||
|
|
Loading…
Add table
Reference in a new issue