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

Add LABELP predicate

Browse source
This commit is contained in:
John Lorentzson 2025-05-08 21:54:52 +02:00
parent 379d33d5a1
commit 4a4a7b8485
1 changed files with 3 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
wip-duuqnd/user-side-compiler/label.lisp
View file

@ -4,6 +4,9 @@
((%name :accessor name :initarg :name) ((%name :accessor name :initarg :name)
(%address :accessor address :initform nil :initarg :address))) (%address :accessor address :initform nil :initarg :address)))
(defun labelp (obj)
(typep obj 'label))
(defmethod print-object ((object label) stream) (defmethod print-object ((object label) stream)
(with-accessors ((name name) (address address)) object (with-accessors ((name name) (address address)) object
(print-unreadable-object (object stream :type t) (print-unreadable-object (object stream :type t)