1.0.48.28: make TRULY-THE macroexpandable

[sbcl.git] / src / pcl / slots-boot.lisp

diff --git a/src/pcl/slots-boot.lisp b/src/pcl/slots-boot.lisp
index 092ad6c..8a5993b 100644 (file)
--- 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))