X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fruntime%2Fbacktrace.c;h=12f954f7305cff61dc401e5dbabe2daac31c7834;hb=93c941d86b264637de20aa1b713757b704d4c1a6;hp=89bff2f706509ba30ca55558a00e92b39714ef0d;hpb=3c65762b927af861c9c8bc416e4cbac9a14ec0c3;p=sbcl.git diff --git a/src/runtime/backtrace.c b/src/runtime/backtrace.c index 89bff2f..12f954f 100644 --- a/src/runtime/backtrace.c +++ b/src/runtime/backtrace.c @@ -21,6 +21,8 @@ #include "os.h" #include "interrupt.h" #include "lispregs.h" +#include "genesis/static-symbols.h" +#include "genesis/primitive-objects.h" #ifndef __i386__ @@ -90,7 +92,6 @@ code_pointer(lispobj object) static boolean cs_valid_pointer_p(struct call_frame *pointer) { - /* lose("stub: hasn't been updated for X86"); */ return (((char *) CONTROL_STACK_START <= (char *) pointer) && ((char *) pointer < (char *) current_control_stack_pointer)); }