X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fassem.lisp;h=7cdc688c13b89676275e33189583ec571d140898;hb=96aa790ea1d70810e862665c3c8be4ce405a964c;hp=5fa14f2d4b3b3392f05f9bcaa0659f7e16c95058;hpb=a157ed0be79751f85b8243c06102eea95af06aa3;p=sbcl.git

diff --git a/src/compiler/assem.lisp b/src/compiler/assem.lisp
index 5fa14f2..7cdc688 100644
--- a/src/compiler/assem.lisp
+++ b/src/compiler/assem.lisp
@@ -1201,7 +1201,7 @@
                                body)))))))))
   (def sb!int:def!macro macroexpand)
   #+sb-xc-host
-  (def sb!xc:defmacro sb!xc:macroexpand))
+  (def sb!xc:defmacro %macroexpand))
 
 (defmacro inst (&whole whole instruction &rest args &environment env)
   #!+sb-doc