Add PRINT-OBJECT method to ASM-FUNCTION
This commit is contained in:
parent
fa4458e2d7
commit
99d1156e7d
1 changed files with 2 additions and 0 deletions
|
@ -7,6 +7,8 @@
|
||||||
(%address :accessor address :initarg :address
|
(%address :accessor address :initarg :address
|
||||||
:initform #xFEC0)))
|
:initform #xFEC0)))
|
||||||
|
|
||||||
|
(tlk:define-simple-print-object (asm-function %name))
|
||||||
|
|
||||||
(define-transformation (token (token-name asm-function))
|
(define-transformation (token (token-name asm-function))
|
||||||
(multiple-value-bind (asm-function existsp)
|
(multiple-value-bind (asm-function existsp)
|
||||||
(gethash (name token) *asm-functions*)
|
(gethash (name token) *asm-functions*)
|
||||||
|
|
Loading…
Add table
Reference in a new issue