X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fhost-alieneval.lisp;h=4b75b315b4b3f62d6b0b43cdf14b06fc86be27c4;hb=3bd7a97d1b11a2b0aee086ef211cae807f3dfc35;hp=96196b82b4a4bcfb734de17d001a7c5693a38879;hpb=0b5610d8a220a4b20cbeac958953ca4d67c00038;p=sbcl.git

diff --git a/src/code/host-alieneval.lisp b/src/code/host-alieneval.lisp
index 96196b8..4b75b31 100644
--- a/src/code/host-alieneval.lisp
+++ b/src/code/host-alieneval.lisp
@@ -11,6 +11,8 @@
 ;;;; files for more information.
 
 (in-package "SB!ALIEN")
+
+(/show0 "host-alieneval.lisp 15")
 
 ;;;; utility functions
 
@@ -1146,7 +1148,7 @@
 
 ;;;; the ADDR macro
 
-(sb!kernel:defmacro-mundanely addr (expr &environment env)
+(defmacro-mundanely addr (expr &environment env)
   #!+sb-doc
   "Return an Alien pointer to the data addressed by Expr, which must be a call
    to SLOT or DEREF, or a reference to an Alien variable."
@@ -1175,3 +1177,5 @@
 	     (when (eq kind :alien)
 	       `(%heap-alien-addr ',(info :variable :alien-info form))))))
 	(error "~S is not a valid L-value." form))))
+
+(/show0 "host-alieneval.lisp end of file")