X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;ds=sidebyside;f=src%2Fpcl%2Fbraid.lisp;h=4cf786bdef005381f394ac90d4d7ff5d087baf95;hb=148ae852a476ec673020ecbf99be3bcb4a70eafc;hp=3920052060af477ea1a91e618f41f938900961a0;hpb=310aee0b439b715a5ec242862ab0a4d254e123b5;p=sbcl.git

diff --git a/src/pcl/braid.lisp b/src/pcl/braid.lisp
index 3920052..4cf786b 100644
--- a/src/pcl/braid.lisp
+++ b/src/pcl/braid.lisp
@@ -399,13 +399,7 @@
                  slot-name
                  readers
                  writers
-                 nil)
-                (!bootstrap-accessor-definitions1
-                 'slot-object
-                 slot-name
-                 (list (slot-reader-name slot-name))
-                 (list (slot-writer-name slot-name))
-                 (list (slot-boundp-name slot-name)))))))))))
+                 nil)))))))))
 
 (defun !bootstrap-accessor-definition (class-name accessor-name slot-name type)
   (multiple-value-bind (accessor-class make-method-function arglist specls doc)