diff --git a/code/macros.lisp b/code/macros.lisp index 0c0d1ba74e46ffcbccefadc8239397dabc62e246..49b814412c3c14ad2ef5ed720e766e234a3201c7 100644 --- a/code/macros.lisp +++ b/code/macros.lisp @@ -189,8 +189,8 @@ :error-string 'deftype-error-string ) `(eval-when (compile load eval) - (setf (info type kind name) :defined) - (setf (info type expander name) + (setf (info type kind ',name) :defined) + (setf (info type expander ',name) #'(lambda (,whole) ,@local-decs (block ,name ,body))) ,@(when doc `((setf (documentation ',name 'type) ,doc)))