Give tokens an INITFORM for SOURCE (to NIL)

This commit is contained in:
John Lorentzson 2025-05-20 12:28:34 +02:00
parent 5a18cc9864
commit 45a66ce323

View file

@ -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