X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fruntime%2Fparse.c;h=01e438116c3383f1651c4b4ab9b5aafac741d6b9;hb=7f0f521aa3f6b45259c5dfd5f7f11adcd1a7cac6;hp=7e1c8c18229f3e459ac826d0502d450d2320dd39;hpb=6cbe4d8ba6d7bc469d03a72514c789b1f3944878;p=sbcl.git diff --git a/src/runtime/parse.c b/src/runtime/parse.c index 7e1c8c1..01e4381 100644 --- 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,7 +246,7 @@ 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; } @@ -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) */