X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fmacros.lisp;h=7525fbfdf085f7b22b012d63c58d6caf967cfd95;hb=a7a4ca961ef0f587a2549bd9433eef7ddb845ab7;hp=b886d2096afa290606c02973c52208e5fc66904d;hpb=ffb003f5648f1abe64561c8a426878774e10a21b;p=sbcl.git

diff --git a/src/code/macros.lisp b/src/code/macros.lisp
index b886d20..7525fbf 100644
--- a/src/code/macros.lisp
+++ b/src/code/macros.lisp
@@ -73,7 +73,7 @@ invoked. In that case it will store into PLACE and start over."
   ;; variable to work around Python's blind spot in type derivation.
   ;; For more complex places getting the type derived should not
   ;; matter so much anyhow.
-  (let ((expanded (sb!xc:macroexpand place env)))
+  (let ((expanded (%macroexpand place env)))
     (if (symbolp expanded)
         `(do ()
              ((typep ,place ',type))