0.3.8.14:

[sbcl.git] / src / code / debug-int.lisp

diff --git a/src/code/debug-int.lisp b/src/code/debug-int.lisp
index 7deadfe..270c9d9 100644 (file)
--- 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"))