diff --git a/lisp/gc.c b/lisp/gc.c index cc13413b2fc23e8933a6958893774b293c910694..36ad2a2beb9aa7e645daa37e6ebd698f243b5e48 100644 --- a/lisp/gc.c +++ b/lisp/gc.c @@ -1,7 +1,7 @@ /* * Stop and Copy GC based on Cheney's algorithm. * - * $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/gc.c,v 1.17 2000/10/24 13:32:30 dtc Exp $ + * $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/gc.c,v 1.18 2000/11/06 17:18:25 dtc Exp $ * * Written by Christopher Hoover. */ @@ -464,7 +464,7 @@ static void scavenge_interrupt_context(struct sigcontext *context) index = boxed_registers[i]; reg = SC_REG(context, index); - if (PTR(reg) <= lip) { + if (Pointerp(reg) && PTR(reg) <= lip) { offset = lip - reg; if (offset < lip_offset) { lip_offset = offset;