X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Finterr.lisp;h=71e178300010e81b865a7c4af33b1adb352f160d;hb=db55ad022ec7cc7a2f251918579fdeba7f17dbe0;hp=e02b8fbe65f263d2fd68cb4afd45ebaf07659498;hpb=7fd2eb4b1bc68e8aaec233c4a39bdfc40225bda2;p=sbcl.git

diff --git a/src/code/interr.lisp b/src/code/interr.lisp
index e02b8fb..71e1783 100644
--- a/src/code/interr.lisp
+++ b/src/code/interr.lisp
@@ -404,8 +404,8 @@
       (handler-case
 	  (let* ((*finding-name* t)
 		 (frame (sb!di:frame-down (sb!di:frame-down (sb!di:top-frame))))
-		 (name (sb!di:debug-function-name
-			(sb!di:frame-debug-function frame))))
+		 (name (sb!di:debug-fun-name
+			(sb!di:frame-debug-fun frame))))
 	    (sb!di:flush-frames-above frame)
 	    (values name frame))
 	(error ()
@@ -430,8 +430,8 @@
 			 (sb!di::compiled-frame-escaped frame))
 		(sb!di:flush-frames-above frame)
 		(/show0 "returning from within DO loop")
-		(return (values (sb!di:debug-function-name
-				 (sb!di:frame-debug-function frame))
+		(return (values (sb!di:debug-fun-name
+				 (sb!di:frame-debug-fun frame))
 				frame)))))
 	(error ()
 	  (/show0 "trapped ERROR")