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

diff --git a/src/code/cold-init.lisp b/src/code/cold-init.lisp
index 2390630..02bdfd9 100644
--- a/src/code/cold-init.lisp
+++ b/src/code/cold-init.lisp
@@ -178,10 +178,10 @@
 		   (svref *!load-time-values* (third toplevel-thing)))))
 	   #!+(and x86 gencgc)
 	   (:load-time-code-fixup
-	    (sb!vm::!do-load-time-code-fixup (second toplevel-thing)
-					     (third  toplevel-thing)
-					     (fourth toplevel-thing)
-					     (fifth  toplevel-thing)))
+	    (sb!vm::!envector-load-time-code-fixup (second toplevel-thing)
+						   (third  toplevel-thing)
+						   (fourth toplevel-thing)
+						   (fifth  toplevel-thing)))
 	   (t
 	    (!cold-lose "bogus fixup code in *!REVERSED-COLD-TOPLEVELS*"))))
 	(t (!cold-lose "bogus function in *!REVERSED-COLD-TOPLEVELS*")))))
@@ -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