X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;ds=sidebyside;f=src%2Fcode%2Fdebug-int.lisp;h=a7ce184fff7a3ace4e0e8d8c3f10dfa457fa70b3;hb=9c1a7443146bba92c2430689981bd46c66551c35;hp=9dbacc830d53b6eba9952672c4c32bc7e8459925;hpb=1419c1d2d50f039be46a8667351b7738ac4965e4;p=sbcl.git

diff --git a/src/code/debug-int.lisp b/src/code/debug-int.lisp
index 9dbacc8..a7ce184 100644
--- a/src/code/debug-int.lisp
+++ b/src/code/debug-int.lisp
@@ -527,14 +527,15 @@
 #!-sb-fluid (declaim (inline control-stack-pointer-valid-p))
 (defun control-stack-pointer-valid-p (x)
   (declare (type system-area-pointer x))
-  (let* ((control-stack-start
-	  (descriptor-sap sb!vm::*control-stack-start*))
+  (let* (#!-stack-grows-downward-not-upward
+	 (control-stack-start
+	  (descriptor-sap *control-stack-start*))
+	 #!+stack-grows-downward-not-upward
 	 (control-stack-end
-	  (descriptor-sap sb!vm::*control-stack-end*)))
+	  (descriptor-sap *control-stack-end*)))
     #!-stack-grows-downward-not-upward
     (and (sap< x (current-sp))
-	 (sap<= control-stack-start
-		x)
+	 (sap<= control-stack-start x)
 	 (zerop (logand (sap-int x) #b11)))
     #!+stack-grows-downward-not-upward
     (and (sap>= x (current-sp))