From 698754ecc4b9df322583de7a764a02c056c96e64 Mon Sep 17 00:00:00 2001 From: ram <ram> Date: Mon, 12 Feb 1990 12:09:55 +0000 Subject: [PATCH] Changed the type bootstrapping hacks for DEFSTRUCT-DESCRIPTION and DEFSTRUCT-SLOT-DESCRIPTION to use INFO TYPE DEFINED-STRUCTURE-INFO. --- code/struct.lisp | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) diff --git a/code/struct.lisp b/code/struct.lisp index a8f362856..30a144080 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: -- GitLab