X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fruntime%2Falloc.c;h=78fc49fef772cfe9b337dfe1db7a45966b3f5373;hb=ee90e535c985f697c71d839083aed16710f846fd;hp=0638ddc2015d7df7690b2af880224f869cbf4bfc;hpb=427cac784579a935a06b0d66bac63dbf9bf325a4;p=sbcl.git

diff --git a/src/runtime/alloc.c b/src/runtime/alloc.c
index 0638ddc..78fc49f 100644
--- a/src/runtime/alloc.c
+++ b/src/runtime/alloc.c
@@ -61,13 +61,13 @@ pa_alloc(int bytes)
 #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 = result;
+        *current_control_stack_pointer = (lispobj) result;
         current_control_stack_pointer += 1;
 #endif
         do_pending_interrupt();
 #ifndef LISP_FEATURE_C_STACK_IS_CONTROL_STACK
         current_control_stack_pointer -= 1;
-        result = *current_control_stack_pointer;
+        result = (lispobj *) *current_control_stack_pointer;
 #endif
     }
 #else