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

Add PRINT-OBJECT method to TOKEN-NUMBER

Browse source
This commit is contained in:
John Lorentzson 2025-05-22 13:03:27 +02:00
parent 12d1a905fe
commit 3f3d94367f
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

@ -43,6 +43,11 @@ reading immediately. Should be a subset of *SPECIAL-TOKEN-CHARS*.")
(defclass token-number (token)
((%value :accessor value :initarg :value)))
(defmethod print-object ((object token-number) stream)
(print-unreadable-object (object stream :type t :identity t)
(when (slot-boundp object '%value)
(format stream "~D" (value object)))))
(define-transformation (token (token-number reference-constant))
(make-instance 'reference-constant :value (value token)))