X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fpcl%2Fslots-boot.lisp;h=8a5993b5808379f50ccacbdb04c3cccffc7e2000;hb=d0f65b07a30adc989e36a82ddc0ed54d135d638e;hp=092ad6cd93447a95d16db87761b7a097d98a6029;hpb=0223f43d5f199914ebceff12b6f4c60448369edd;p=sbcl.git

diff --git a/src/pcl/slots-boot.lisp b/src/pcl/slots-boot.lisp
index 092ad6c..8a5993b 100644
--- a/src/pcl/slots-boot.lisp
+++ b/src/pcl/slots-boot.lisp
@@ -74,7 +74,7 @@
 
 (defmacro accessor-set-slot-value (object slot-name new-value &environment env)
   (aver (constantp slot-name env))
-  (setq object (macroexpand object env))
+  (setq object (%macroexpand object env))
   (let* ((slot-name (constant-form-value slot-name env))
          (bind-object (unless (or (constantp new-value env) (atom new-value))
                         (let* ((object-var (gensym))