0.7.12.38:

[sbcl.git] / src / pcl / braid.lisp

diff --git a/src/pcl/braid.lisp b/src/pcl/braid.lisp
index 9198f09..1b713ac 100644 (file)
--- a/src/pcl/braid.lisp
+++ b/src/pcl/braid.lisp
@@ -380,9 +380,9 @@
                (!bootstrap-accessor-definitions1
                 'slot-object
                 slot-name
-                (list (slot-reader-symbol slot-name))
-                (list (slot-writer-symbol slot-name))
-                (list (slot-boundp-symbol slot-name)))))))))))
+                (list (slot-reader-name slot-name))
+                (list (slot-writer-name slot-name))
+                (list (slot-boundp-name slot-name)))))))))))
 
 (defun !bootstrap-accessor-definition (class-name accessor-name slot-name type)
   (multiple-value-bind (accessor-class make-method-function arglist specls doc)