X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fdebug-int.lisp;h=26ca084d8705506910499dae842fad1a71eaac5e;hb=f251802ba07257a9b3a23eca02cfd89ad9d6e6b9;hp=4052fdce917e4242e21daabda901bb5c26046183;hpb=9a9a95003920c0dacd02b1932e0e1608fb822cc2;p=sbcl.git

diff --git a/src/code/debug-int.lisp b/src/code/debug-int.lisp
index 4052fdc..26ca084 100644
--- a/src/code/debug-int.lisp
+++ b/src/code/debug-int.lisp
@@ -3384,9 +3384,9 @@ register."
     ;; sense in signaling the condition.
     (when step-info
       (let ((*step-frame*
-             #+(or x86 x86-64)
+             #!+(or x86 x86-64)
              (signal-context-frame (sb!alien::alien-sap context))
-             #-(or x86 x86-64)
+             #!-(or x86 x86-64)
              ;; KLUDGE: Use the first non-foreign frame as the
              ;; *STACK-TOP-HINT*. Getting the frame from the signal
              ;; context as on x86 would be cleaner, but