X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;ds=sidebyside;f=src%2Fcompiler%2Fassem.lisp;h=7cdc688c13b89676275e33189583ec571d140898;hb=d6f9676ae94419cb5544c45821a8d31adbc1fbe8;hp=797fd831ec23c9a77eaa54f520ad5e160a7f3ded;hpb=17dd269e2c4a66648613a5272b765bf50e5b63c0;p=sbcl.git

diff --git a/src/compiler/assem.lisp b/src/compiler/assem.lisp
index 797fd83..7cdc688 100644
--- a/src/compiler/assem.lisp
+++ b/src/compiler/assem.lisp
@@ -107,7 +107,7 @@
   #!+sb-dyncount
   (collect-dynamic-statistics nil))
 (sb!c::defprinter (segment)
-  name)
+  type)
 
 (declaim (inline segment-current-index))
 (defun segment-current-index (segment)
@@ -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