X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fruntime%2Fparse.c;h=17b61b194770eec5b8366e255d7f2e3ad676bcd2;hb=b8f63d9b4e978bec3bfc1f4fc471e5ed946781fd;hp=99729cd1f83e77129a92f3d1ae2358c5476fdc7b;hpb=a530bbe337109d898d5b4a001fc8f1afa3b5dc39;p=sbcl.git

diff --git a/src/runtime/parse.c b/src/runtime/parse.c
index 99729cd..17b61b1 100644
--- a/src/runtime/parse.c
+++ b/src/runtime/parse.c
@@ -9,10 +9,6 @@
  * files for more information.
  */
 
-/*
- * $Header$
- */
-
 #include <stdio.h>
 #include <ctype.h>
 #include <signal.h>
@@ -240,20 +236,25 @@ static boolean lookup_symbol(char *name, lispobj *result)
     lispobj *headerptr;
 
     /* Search static space. */
-    headerptr = static_space;
-    count = ((lispobj *) SymbolValue(STATIC_SPACE_FREE_POINTER) -
-	     static_space);
+    headerptr = (lispobj *)STATIC_SPACE_START;
+    count =
+	(lispobj *)SymbolValue(STATIC_SPACE_FREE_POINTER) -
+	(lispobj *)STATIC_SPACE_START;
     if (search_for_symbol(name, &headerptr, &count)) {
         *result = (lispobj)headerptr | type_OtherPointer;
         return 1;
     }
 
     /* Search dynamic space. */
-    headerptr = current_dynamic_space;
+    headerptr = (lispobj *)DYNAMIC_SPACE_START;
 #if !defined(ibmrt) && !defined(__i386__)
-    count = current_dynamic_space_free_pointer - current_dynamic_space;
+    count =
+	dynamic_space_free_pointer -
+	(lispobj *)DYNAMIC_SPACE_START;
 #else
-    count = (lispobj *)SymbolValue(ALLOCATION_POINTER) - current_dynamic_space;
+    count =
+	(lispobj *)SymbolValue(ALLOCATION_POINTER) -
+	(lispobj *)DYNAMIC_SPACE_START;
 #endif
     if (search_for_symbol(name, &headerptr, &count)) {
         *result = (lispobj)headerptr | type_OtherPointer;