0.9.2.26: refactoring internals of foreign linkage

[sbcl.git] / contrib / sb-sprof / sb-sprof.lisp

diff --git a/contrib/sb-sprof/sb-sprof.lisp b/contrib/sb-sprof/sb-sprof.lisp
index cffa4d5..42ea024 100644 (file)
--- a/contrib/sb-sprof/sb-sprof.lisp
+++ b/contrib/sb-sprof/sb-sprof.lisp
@@ -831,7 +831,7 @@
   (declare (type address pc))
   (let ((ptr (sb-di::component-ptr-from-pc (int-sap pc))))
     (cond ((sap= ptr (int-sap 0))
-          (let ((name (foreign-symbol-in-address (int-sap pc))))
+          (let ((name (sap-foreign-symbol (int-sap pc))))
             (when name
               (format nil "foreign function ~a" name))))
          (t