X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fpcl%2Fctor.lisp;h=9b565beec764d81b3686151f2b72ecd62c437ffe;hb=8ee41eac134a552e07e966dd16d681e8216147fc;hp=9baa699923a8e59d867f348abcabbfa9c96f7d2d;hpb=a6bd77d792d22785860bd082d55692f4a1c65fd7;p=sbcl.git

diff --git a/src/pcl/ctor.lisp b/src/pcl/ctor.lisp
index 9baa699..9b565be 100644
--- a/src/pcl/ctor.lisp
+++ b/src/pcl/ctor.lisp
@@ -252,7 +252,7 @@
     (when (eq (layout-invalid (class-wrapper class)) t)
       (force-cache-flushes class))
     (setf (ctor-class ctor) class)
-    (pushnew ctor (plist-value class 'ctors))
+    (pushnew ctor (plist-value class 'ctors) :test #'eq)
     (setf (funcallable-instance-fun ctor)
           (multiple-value-bind (form locations names)
               (constructor-function-form ctor)