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