+/* parsing for LDB monitor */
+
/*
* This software is part of the SBCL system. See the README file for
* more information.
#include "runtime.h"
#include "sbcl.h"
+
+#if defined(LISP_FEATURE_SB_LDB)
+
#include "globals.h"
#include "vars.h"
#include "parse.h"
(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;
(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;
}
return result;
}
+
+#endif /* defined(LISP_FEATURE_SB_LDB) */