X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fpcl%2Fbraid.lisp;h=4b587fcd66f78d0762598b62b1cfbf0ba9a3b20d;hb=5a31671c1093aa155a7832277ebd46766eb7c6e4;hp=2c761aa08568e9b946cd5db88f286c2651ce1d83;hpb=99df968112602d07a4b91492ab45367df27ee8ac;p=sbcl.git

diff --git a/src/pcl/braid.lisp b/src/pcl/braid.lisp
index 2c761aa..4b587fc 100644
--- a/src/pcl/braid.lisp
+++ b/src/pcl/braid.lisp
@@ -370,11 +370,7 @@
                                      fsc-p nil slot-name index))
           (set-val 'boundp-function (make-optimized-std-boundp-method-function
                                      fsc-p nil slot-name index)))
-        (set-val 'accessor-flags 7)
-        (let ((table (or (gethash slot-name *name->class->slotd-table*)
-                         (setf (gethash slot-name *name->class->slotd-table*)
-                               (make-hash-table :test 'eq :size 5)))))
-          (setf (gethash class table) slotd)))
+        (set-val 'accessor-flags 7))
       (when (and (eq name 'standard-class)
                  (eq slot-name 'slots) effective-p)
         (setq *the-eslotd-standard-class-slots* slotd))