X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fpcl%2Fbraid.lisp;h=fd3f49a85f5ed730f1e1dfb561ec60caa4095658;hb=ee90e535c985f697c71d839083aed16710f846fd;hp=3ae9be4d308ac0e120049d504261b10337b01c7a;hpb=157e21959c8023f146d6b03206aea6daa60e7b0d;p=sbcl.git

diff --git a/src/pcl/braid.lisp b/src/pcl/braid.lisp
index 3ae9be4..fd3f49a 100644
--- a/src/pcl/braid.lisp
+++ b/src/pcl/braid.lisp
@@ -310,7 +310,7 @@
                                  slot-class))
       (set-slot 'direct-slots direct-slots)
       (set-slot 'slots slots)
-      (set-slot 'slot-vector (make-slot-vector class slots)))
+      (setf (layout-slot-table wrapper) (make-slot-table class slots)))
 
     ;; For all direct superclasses SUPER of CLASS, make sure CLASS is
     ;; a direct subclass of SUPER.  Note that METACLASS-NAME doesn't