Skip to content
Snippets Groups Projects
Commit ea9a5cb4 authored by ram's avatar ram
Browse files

Changed DEFSTRUCT expansion to only use #' on non-symbol PRINT-FUNCTIONS, so

that named print functions can be defined after the structure.
parent 20f70797
No related branches found
No related tags found
No related merge requests found
......@@ -68,9 +68,12 @@
;; So the print function is in the right lexical environment, and
;; can be compiled...
(let ((new ',defstruct))
,@(when (dd-print-function defstruct)
`((setf (info type printer ',name)
#',(dd-print-function defstruct))))
,@(let ((pf (dd-print-function defstruct)))
(when pf
`((setf (info type printer ',name)
,(if (symbolp pf)
`',pf
`#',pf)))))
(%defstruct new))
',name)
`(progn
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment