X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;ds=sidebyside;f=src%2Fpcl%2Fdefclass.lisp;h=845edaf2ea3bdca835ae1762650c972b054f5970;hb=e8b69b1dd5564a4237b1bdc1060820c3b820cde2;hp=5f04c288cda4db5af1548c4544a5678b520daa68;hpb=8b89077f2d8c3aec140ded650d95d7869f6a7f28;p=sbcl.git

diff --git a/src/pcl/defclass.lisp b/src/pcl/defclass.lisp
index 5f04c28..845edaf 100644
--- a/src/pcl/defclass.lisp
+++ b/src/pcl/defclass.lisp
@@ -274,10 +274,11 @@
     (values (early-collect-slots cpl)
 	    cpl
 	    (early-collect-default-initargs cpl)
-	    (gathering1 (collecting)
+	    (let (collect)
 	      (dolist (definition *early-class-definitions*)
 		(when (memq class-name (ecd-superclass-names definition))
-		  (gather1 (ecd-class-name definition))))))))
+		  (push (ecd-class-name definition) collect)))
+              (nreverse collect)))))
 
 (defun early-collect-slots (cpl)
   (let* ((definitions (mapcar #'early-class-definition cpl))