X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;ds=sidebyside;f=src%2Fcode%2Fdebug-int.lisp;h=c0a1517a3ee459f1f7bf2cb2719d687db445e862;hb=92a258eda6d6f0cadd1251200285671ec92aa45f;hp=d261c82a4c13c024b03f2e11cc351ed46d2e50a5;hpb=cab2c71bb1bb8a575d9eebdae335e731daa64183;p=sbcl.git

diff --git a/src/code/debug-int.lisp b/src/code/debug-int.lisp
index d261c82..c0a1517 100644
--- a/src/code/debug-int.lisp
+++ b/src/code/debug-int.lisp
@@ -624,11 +624,11 @@
                                (format t
 				       "debug: both still valid ~S ~S ~S ~S~%"
                                        lisp-ocfp lisp-ra c-ocfp c-ra))
-		      #+freebsd
+		      #!+freebsd
 		      (if (sap> lisp-ocfp c-ocfp)
                         (values lisp-ra lisp-ocfp)
 			(values c-ra c-ocfp))
-                       #-freebsd
+                       #!-freebsd
                        (values lisp-ra lisp-ocfp))
 		     (lisp-path-fp
 		      ;; The lisp convention is looking good.
@@ -2051,7 +2051,7 @@
             (sb!vm:context-float-register
              escaped (sb!c:sc-offset-offset sc-offset) 'double-float)
             (sb!vm:context-float-register
-             escaped (+ (sb!c:sc-offset-offset sc-offset) #!+sparc 2 #-sparc 1)
+             escaped (+ (sb!c:sc-offset-offset sc-offset) #!+sparc 2 #!-sparc 1)
              'double-float))
            :invalid-value-for-unescaped-register-storage))
       #!+long-float
@@ -2861,7 +2861,7 @@
     (do ((frame frame (frame-down frame)))
 	((not frame) nil)
       (when (and (compiled-frame-p frame)
-                 (#-x86 eq #+x86 sap=
+                 (#!-x86 eq #!+x86 sap=
 		  lra
 		  (get-context-value frame lra-save-offset lra-sc-offset)))
 	(return t)))))