X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fpcl%2Fstd-class.lisp;h=a07cf93ce01126627894663fefe778f28bf89305;hb=43a526583b7015e6b9945d16e31da72fda1325f5;hp=ab7cb211358c339804e82bbef22d0b69e90d2e69;hpb=1439811447104b32d986bab40d6e2ed431247004;p=sbcl.git

diff --git a/src/pcl/std-class.lisp b/src/pcl/std-class.lisp
index ab7cb21..a07cf93 100644
--- a/src/pcl/std-class.lisp
+++ b/src/pcl/std-class.lisp
@@ -968,9 +968,8 @@
             (cond ((null owrapper)
                    (make-wrapper nslots class))
                   ((and (equal nlayout olayout)
-                        (loop for o in owrapper-class-slots
-                              for n in nwrapper-class-slots
-                              always (eq (car o) (car n)))
+                        (equal (mapcar #'car owrapper-class-slots)
+                               (mapcar #'car nwrapper-class-slots))
                         (slotd-classes-eq (slot-value class 'slots) eslotds))
                    owrapper)
                   (t