X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fdebug-int.lisp;h=76aaea45dc01dcbba6bfeb00f95f1392a04314cc;hb=2da80a5263e44a824675283340b2253db2348f5e;hp=7deadfe1cd2e279e2b0bdb7582a3fd384d2a495b;hpb=6b7b0266343826426a3efffa3b8b8d4d552f8f97;p=sbcl.git

diff --git a/src/code/debug-int.lisp b/src/code/debug-int.lisp
index 7deadfe..76aaea4 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"))
@@ -3292,14 +3291,3 @@
     ;; (There used to be more cases back before sbcl-0.7.0, when
     ;; we did special tricks to debug the IR1 interpreter.)
     ))
-
-(defun print-code-locations (function)
-  (let ((debug-fun (fun-debug-fun function)))
-    (do-debug-fun-blocks (block debug-fun)
-      (do-debug-block-locations (loc block)
-	(fill-in-code-location loc)
-	(format t "~S code location at ~W"
-		(compiled-code-location-kind loc)
-		(compiled-code-location-pc loc))
-	(sb!debug::print-code-location-source-form loc 0)
-	(terpri)))))