X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fdebug-int.lisp;h=04e2f3047d603c2547459e0ca11d03341583a15e;hb=b19093fa94d6e1785abee99c35c9a610e8777671;hp=bda0c48b80a7116aefa3dd13f02730dc9564b382;hpb=dfa55a883f94470267b626dae77ce7e7dfac3df6;p=sbcl.git

diff --git a/src/code/debug-int.lisp b/src/code/debug-int.lisp
index bda0c48..04e2f30 100644
--- a/src/code/debug-int.lisp
+++ b/src/code/debug-int.lisp
@@ -2864,13 +2864,13 @@
 							 sb!vm::nfp-offset))
 				#!-alpha
 				(sap-ref-sap fp
-						    (* sb!vm::nfp-save-offset
-						       sb!vm:word-bytes))
+					     (* sb!vm::nfp-save-offset
+						sb!vm:word-bytes))
 				#!+alpha
-				(%alpha::make-number-stack-pointer
+				(sb!vm::make-number-stack-pointer
 				 (sap-ref-32 fp
-						    (* sb!vm::nfp-save-offset
-						       sb!vm:word-bytes))))))
+					     (* sb!vm::nfp-save-offset
+						sb!vm:word-bytes))))))
 		  ,@body)))
     (ecase (sb!c:sc-offset-scn sc-offset)
       ((#.sb!vm:any-reg-sc-number