X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;ds=sidebyside;f=src%2Fcompiler%2Ftarget-disassem.lisp;h=8f30618520fb8f707f75caa98d3393d85fddd1e3;hb=aa2dc9529460ea0d9c99998dc87283fc1a43e808;hp=b2270085baaf57f35b34ceb61b438b4085fa3485;hpb=4823297c200e5b1fcab240f06ce82c308b8ee7d7;p=sbcl.git

diff --git a/src/compiler/target-disassem.lisp b/src/compiler/target-disassem.lisp
index b227008..8f30618 100644
--- a/src/compiler/target-disassem.lisp
+++ b/src/compiler/target-disassem.lisp
@@ -1825,9 +1825,9 @@
   (declare (type address address))
   (when (null *assembler-routines-by-addr*)
     (setf *assembler-routines-by-addr*
-	  (invert-address-hash sb!kernel::*assembler-routines*))
+	  (invert-address-hash sb!fasl:*assembler-routines*))
     (setf *assembler-routines-by-addr*
-	  (invert-address-hash sb!kernel::*static-foreign-symbols*
+	  (invert-address-hash sb!fasl:*static-foreign-symbols*
 			       *assembler-routines-by-addr*)))
   (gethash address *assembler-routines-by-addr*))