X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fruntime%2Fparse.c;h=4038f51104dd180900ee060159c18afd2dcf2d27;hb=c8218514d751c4d777892b79bbf1ca6597f731c0;hp=9dd8082a1e193e3c783add0b11511627f08fd22d;hpb=d0583fb59b0d5e243c9141d649b82bac577f5aa9;p=sbcl.git diff --git a/src/runtime/parse.c b/src/runtime/parse.c index 9dd8082..4038f51 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. @@ -9,16 +11,15 @@ * files for more information. */ -/* - * $Header$ - */ - #include #include #include #include "runtime.h" #include "sbcl.h" + +#if defined(LISP_FEATURE_SB_LDB) + #include "globals.h" #include "vars.h" #include "parse.h" @@ -251,7 +252,7 @@ static boolean lookup_symbol(char *name, lispobj *result) /* 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; @@ -360,3 +361,5 @@ char **ptr; return result; } + +#endif /* defined(LISP_FEATURE_SB_LDB) */