X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fruntime%2Falloc.c;h=0638ddc2015d7df7690b2af880224f869cbf4bfc;hb=223a19cb93b3ace1b039f3afb3152723027a1fe9;hp=e10634de20c76727da85b0b745b0af7133e3c40f;hpb=3a0f3612dc2bbf3e4e8e7395bcbbf8cd1791b963;p=sbcl.git

diff --git a/src/runtime/alloc.c b/src/runtime/alloc.c
index e10634d..0638ddc 100644
--- a/src/runtime/alloc.c
+++ b/src/runtime/alloc.c
@@ -58,16 +58,16 @@ pa_alloc(int bytes)
          * we push it onto the lisp control stack, and read it back
          * off after any potential GC has finished */
 #ifndef LISP_FEATURE_C_STACK_IS_CONTROL_STACK
-#ifdef LISP_FEATURE_STACK_GROWS_DOWNARD_NOT_UPWARD
+#ifdef LISP_FEATURE_STACK_GROWS_DOWNWARD_NOT_UPWARD
 #error "!C_STACK_IS_CONTROL_STACK and STACK_GROWS_DOWNWARD_NOT_UPWARD is not supported"
 #endif
-        current_control_stack_pointer += 1;
         *current_control_stack_pointer = result;
+        current_control_stack_pointer += 1;
 #endif
         do_pending_interrupt();
 #ifndef LISP_FEATURE_C_STACK_IS_CONTROL_STACK
-        result = *current_control_stack_pointer;
         current_control_stack_pointer -= 1;
+        result = *current_control_stack_pointer;
 #endif
     }
 #else