X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fdebug-int.lisp;h=270c9d9b8e17f0f25bb3d55c31d928ddd7cd5ea4;hb=3106f4c4d34c484331fb30b8b10a1dcac87bf8d0;hp=7deadfe1cd2e279e2b0bdb7582a3fd384d2a495b;hpb=3bc5fbfb7f1528cb2c2e49b2d15fcaa6c62f5b49;p=sbcl.git

diff --git a/src/code/debug-int.lisp b/src/code/debug-int.lisp
index 7deadfe..270c9d9 100644
--- a/src/code/debug-int.lisp
+++ b/src/code/debug-int.lisp
@@ -828,8 +828,7 @@
 			   "undefined function"))
 			 (:foreign-function
 			  (make-bogus-debug-fun
-			   (format nil "foreign function call land: ra=#x~X"
-				   (sap-int ra))))
+			   (format nil "foreign function call land:")))
 			 ((nil)
 			  (make-bogus-debug-fun
 			   "bogus stack frame"))