diff --git a/lisp/gc.c b/lisp/gc.c index 36ad2a2beb9aa7e645daa37e6ebd698f243b5e48..d8e3556406b2d79ebbdf330a4c226b12c4c6fee3 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.18 2000/11/06 17:18:25 dtc Exp $ + * $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/gc.c,v 1.19 2002/01/23 19:04:13 toy Exp $ * * Written by Christopher Hoover. */ @@ -59,8 +59,6 @@ boolean from_space_p(lispobj object) { lispobj *ptr; - gc_assert(Pointerp(object)); - ptr = (lispobj *) PTR(object); return ((from_space <= ptr) &&