diff --git a/code/macros.lisp b/code/macros.lisp index efe5ed697528b8b37c0dfc440cce529adbab135b..29ecd9df0fcf4b1d6db00ae34960b0f18704635a 100644 --- a/code/macros.lisp +++ b/code/macros.lisp @@ -188,7 +188,8 @@ :error-string 'deftype-error-string ) `(eval-when (compile load eval) - (setf (get ',name 'deftype-expander) + (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)))