From ad770090745c06843a5eb39c9595225b862b440b Mon Sep 17 00:00:00 2001
From: dtc <dtc>
Date: Sun, 6 Aug 2000 19:11:13 +0000
Subject: [PATCH] Just grab the lisp class direct-superclasses for the pcl
 structure-class direct superclasses. This handles both normal structures with
 a single superclass, and other structure like classes such as conditions and
 streams which may have multiple superclasses.

---
 pcl/braid.lisp | 16 ++++------------
 1 file changed, 4 insertions(+), 12 deletions(-)

diff --git a/pcl/braid.lisp b/pcl/braid.lisp
index d8503a0db..a6790b812 100644
--- a/pcl/braid.lisp
+++ b/pcl/braid.lisp
@@ -26,7 +26,7 @@
 ;;;
 
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/braid.lisp,v 1.16 2000/08/03 16:58:55 pw Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/braid.lisp,v 1.17 2000/08/06 19:11:13 dtc Exp $")
 ;;;
 ;;; Bootstrapping the meta-braid.
 ;;;
@@ -507,17 +507,9 @@
 			:metaclass 'structure-class
 			:name symbol
 			:direct-superclasses
-			(cond ;; Handle the CMUCL structure based conditions.
-			      ((lisp:subtypep symbol 'condition)
-			       (mapcar #'lisp:class-name
-				       (kernel:class-direct-superclasses
-					(lisp:find-class symbol))))
-			      ;; Hack to add the stream class as a
-			      ;; mixin to the lisp-stream class.
-			      ((eq symbol 'sys:lisp-stream)
-			       '(structure-object stream))
-			      ((structure-type-included-type-name symbol)
-			       (list (structure-type-included-type-name symbol))))
+			(mapcar #'lisp:class-name
+				(kernel:class-direct-superclasses
+				 (lisp:find-class symbol)))
 			:direct-slots
 			(mapcar #'slot-initargs-from-structure-slotd
 				(structure-type-slot-description-list symbol)))))
-- 
GitLab