0.9.2.26: refactoring internals of foreign linkage

[sbcl.git] / src / compiler / target-disassem.lisp

diff --git a/src/compiler/target-disassem.lisp b/src/compiler/target-disassem.lisp
index e89b02c..35b405b 100644 (file)
--- a/src/compiler/target-disassem.lisp
+++ b/src/compiler/target-disassem.lisp
@@ -1950,7 +1950,7 @@
     (return-from maybe-note-assembler-routine nil))
   (let ((name (or
               #!+linkage-table
-              (sb!sys:foreign-symbol-in-address (sb!sys:int-sap address))
+              (sb!sys:sap-foreign-symbol (sb!sys:int-sap address))
               (find-assembler-routine address))))
     (unless (null name)
       (note (lambda (stream)