X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fruntime%2Fcoreparse.c;h=65fdc12457ba46ae805757ed18f4d2d5e2c23dbb;hb=57500f8641535b9b958abe1e8b65863941becf4f;hp=007e6c09adda142179cd19edc677c7e84bb99795;hpb=5bf4a6a677c80a71dfa31b5c9c374f986594392f;p=sbcl.git

diff --git a/src/runtime/coreparse.c b/src/runtime/coreparse.c
index 007e6c0..65fdc12 100644
--- a/src/runtime/coreparse.c
+++ b/src/runtime/coreparse.c
@@ -33,6 +33,7 @@
 #include "arch.h"
 #include "interr.h"
 #include "sbcl.h"
+#include "thread.h"
 
 unsigned char build_id[] =
 #include "../../output/build-id.tmp"
@@ -92,7 +93,7 @@ process_directory(int fd, u32 *ptr, int count)
  *   defined(__i386__)
  * ? */
 #if defined(LISP_FEATURE_X86)
-	    SetSymbolValue(ALLOCATION_POINTER, (lispobj)free_pointer);
+	    SetSymbolValue(ALLOCATION_POINTER, (lispobj)free_pointer,0);
 #else
 	    dynamic_space_free_pointer = free_pointer;
 #endif