X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=contrib%2Fsb-sprof%2Fsb-sprof.lisp;h=42ea024cde94d643e35479b0a477a5bfa82247dd;hb=dc33d6a6b84f8338e603759cec8e25da29055d50;hp=cffa4d5945bb1f7b1bb4dac9b1e8fb1b7bfae0eb;hpb=15ecd1ada227a60bcb3a660a4924c8d9449cb997;p=sbcl.git

diff --git a/contrib/sb-sprof/sb-sprof.lisp b/contrib/sb-sprof/sb-sprof.lisp
index cffa4d5..42ea024 100644
--- 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