0.7.4.40:

[sbcl.git] / src / runtime / parse.c

diff --git a/src/runtime/parse.c b/src/runtime/parse.c
index 17b61b1..01e4381 100644 (file)
--- a/src/runtime/parse.c
+++ b/src/runtime/parse.c
@@ -1,3 +1,5 @@
+/* parsing for LDB monitor */
+
 /*
  * This software is part of the SBCL system. See the README file for
  * more information.
@@ -15,6 +17,9 @@
 
 #include "runtime.h"
 #include "sbcl.h"
+
+#if defined(LISP_FEATURE_SB_LDB)
+
 #include "globals.h"
 #include "vars.h"
 #include "parse.h"
@@ -241,13 +246,13 @@ static boolean lookup_symbol(char *name, lispobj *result)
        (lispobj *)SymbolValue(STATIC_SPACE_FREE_POINTER) -
        (lispobj *)STATIC_SPACE_START;
     if (search_for_symbol(name, &headerptr, &count)) {
-        *result = (lispobj)headerptr | type_OtherPointer;
+        *result = (lispobj)headerptr | OTHER_POINTER_LOWTAG;
         return 1;
     }
 
     /* Search dynamic space. */
     headerptr = (lispobj *)DYNAMIC_SPACE_START;
-#if !defined(ibmrt) && !defined(__i386__)
+#if !defined(__i386__)
     count =
        dynamic_space_free_pointer -
        (lispobj *)DYNAMIC_SPACE_START;
@@ -257,7 +262,7 @@ static boolean lookup_symbol(char *name, lispobj *result)
        (lispobj *)DYNAMIC_SPACE_START;
 #endif
     if (search_for_symbol(name, &headerptr, &count)) {
-        *result = (lispobj)headerptr | type_OtherPointer;
+        *result = (lispobj)headerptr | OTHER_POINTER_LOWTAG;
         return 1;
     }
 
@@ -356,3 +361,5 @@ char **ptr;
 
     return result;
 }
+
+#endif /* defined(LISP_FEATURE_SB_LDB) */