Stacken/c64-livecoding
6
0
Fork 0
Code Issues 1 Pull requests Projects Releases Packages Wiki Activity Actions

Add PRINT-OBJECT method for TOKEN-NAME

Browse source
This commit is contained in:
John Lorentzson 2025-05-20 12:30:12 +02:00
parent 25fd7675d0
commit ae39a48890
1 changed files with 5 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
wip-duuqnd/user-side-compiler/tokenizer.lisp
View file

@ -23,6 +23,11 @@ reading immediately. Should be a subset of *SPECIAL-TOKEN-CHARS*.")
(defclass token-name (token) (defclass token-name (token)
((%name :accessor name :initarg :text))) ((%name :accessor name :initarg :text)))
(defmethod print-object ((object token-name) stream)
(print-unreadable-object (object stream :type t :identity t)
(when (slot-boundp object '%name)
(format stream "\"~A\"" (name object)))))
(defclass token-number (token) (defclass token-number (token)
((%value :accessor value :initarg :value))) ((%value :accessor value :initarg :value)))