diff --git a/code/struct.lisp b/code/struct.lisp index a8f362856b285cd587d24dc77a472139bec2c198..30a144080d97c1d608c0d25f08d8ca8c4e590e5c 100644 --- a/code/struct.lisp +++ b/code/struct.lisp @@ -21,8 +21,11 @@ #+new-compiler (progn ;;; Make these types be sort-of-defined to allow bootstrapping. -(setf (info type kind 'defstruct-description) :structure) -(setf (info type kind 'defstruct-slot-description) :structure) +(setf (info type defined-structure-info 'defstruct-description) + (make-defstruct-description)) + +(setf (info type defined-structure-info 'defstruct-slot-description) + (make-defstruct-description)) ;;; Define this now so that EQUAL works: