Add PRINT-OBJECT method to ASM-FUNCTION

2025-07-06 18:55:27 +02:00 · 2025-07-06 18:55:27 +02:00 · 99d1156e7d
commit 99d1156e7d
parent fa4458e2d7
1 changed files with 2 additions and 0 deletions
--- a/wip-duuqnd/user-side-compiler/asm-function.lisp
+++ b/wip-duuqnd/user-side-compiler/asm-function.lisp
@ -7,6 +7,8 @@
   (%address :accessor address :initarg :address
             :initform #xFEC0)))

+(tlk:define-simple-print-object (asm-function %name))
+
 (define-transformation (token (token-name asm-function))
  (multiple-value-bind (asm-function existsp)
      (gethash (name token) *asm-functions*)