From 757572ca7f4493e1715f503bdd7a201e80280295 Mon Sep 17 00:00:00 2001
From: jjgarcia <jjgarcia>
Date: Mon, 28 Apr 2003 09:07:07 +0000
Subject: [PATCH] STANDARD-OBJECT must be a STRUCTURE-CLASS.

---
 src/clos/builtin.lsp | 11 +++++++++--
 1 file changed, 9 insertions(+), 2 deletions(-)

diff --git a/src/clos/builtin.lsp b/src/clos/builtin.lsp
index 76d16cb02..42642ae95 100644
--- a/src/clos/builtin.lsp
+++ b/src/clos/builtin.lsp
@@ -145,7 +145,7 @@
 
 (eval-when
  (compile load eval)
- (make-instance (find-class 'STANDARD-CLASS)
+ (make-instance (find-class 'STRUCTURE-CLASS)
 		:name 'STRUCTURE-OBJECT
 		:direct-superclasses (list (find-class 't))
 		:slots ()
@@ -153,7 +153,14 @@
 		:slot-index-table ()
 		:direct-slots ()
 		:default-initargs ()
-		:documentation "The root of inheritance for structures"))
+		:documentation "The root of inheritance for structures"
+		:slot-descriptions ()
+		:initial-offset 0
+		:defstruct-form ()
+		:constructors ()
+		:copier ()
+		:predicate ()
+		:print-function ()))
 
 (defmethod print-object ((obj structure-object) stream)
   (let* ((class (si:instance-class obj))