X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fcold-init.lisp;h=02bdfd96d61151e2256b54915f2154dd13e9cda4;hb=5edd74f6911093805a009a152b32216b3dba59f7;hp=e6d99a1fb0a8461c764899beee9ac5e76ce69e74;hpb=08307967c71c580058a503d46aa087cfefcf8c69;p=sbcl.git

diff --git a/src/code/cold-init.lisp b/src/code/cold-init.lisp
index e6d99a1..02bdfd9 100644
--- a/src/code/cold-init.lisp
+++ b/src/code/cold-init.lisp
@@ -309,7 +309,7 @@ instead (which is another name for the same thing)."))
 #!+sb-show
 (defun hexstr (thing)
   (/noshow0 "entering HEXSTR")
-  (let ((addr (sb!kernel:get-lisp-obj-address thing))
+  (let ((addr (get-lisp-obj-address thing))
 	(str (make-string 10)))
     (/noshow0 "ADDR and STR calculated")
     (setf (char str 0) #\0