X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;ds=inline;f=src%2Fcode%2Fdebug-int.lisp;h=e8a188d31f00afa16e6134c281c9ba5306664a7f;hb=adaba39fb52f52487bd1a1b632b735e59045e19d;hp=a39421c13042718f9346c0ae19d3deaf9b5ae026;hpb=fb6f41008e8e7d22008d4b97d9aea364d688d2ae;p=sbcl.git

diff --git a/src/code/debug-int.lisp b/src/code/debug-int.lisp
index a39421c..e8a188d 100644
--- a/src/code/debug-int.lisp
+++ b/src/code/debug-int.lisp
@@ -632,7 +632,8 @@
     (setf (frame-number frame) number)))
 
 (defun find-saved-frame-down (fp up-frame)
-  (multiple-value-bind (saved-fp saved-pc) (sb!c:find-saved-fp-and-pc fp)
+  (multiple-value-bind (saved-fp saved-pc)
+      (sb!alien-internals:find-saved-fp-and-pc fp)
     (when saved-fp
       (compute-calling-frame (descriptor-sap saved-fp)
                              (descriptor-sap saved-pc)