X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fpcl%2Fbraid.lisp;h=b256c00e02e9fe8b51696d3f4848d3e320b91c74;hb=aebbc5aad31f7e55930c996a8c54f0a135e00894;hp=0fd84b31ac1b484fae191c6b205c536146788e29;hpb=8160f3ac81fff66563276cfbc7546d43891dae5c;p=sbcl.git

diff --git a/src/pcl/braid.lisp b/src/pcl/braid.lisp
index 0fd84b3..b256c00 100644
--- a/src/pcl/braid.lisp
+++ b/src/pcl/braid.lisp
@@ -547,10 +547,9 @@
 					 :metaclass metaclass :name name
 					 :direct-superclasses supers
 					 :direct-slots slots)
-	       (let ((supers (nsubstitute t 'instance supers)))
-		 (ensure-class-using-class name nil
-					   :metaclass metaclass :name name
-					   :direct-superclasses supers))))))
+	       (ensure-class-using-class name nil
+					 :metaclass metaclass :name name
+					 :direct-superclasses supers)))))
     (cond ((structure-type-p name)
 	   (ensure 'structure-class
 		   (mapcar #'slot-initargs-from-structure-slotd