diff --git a/ldb/print.c b/ldb/print.c index e7f2c146b968f2000accdea16af2127f8b2a4a12..4723ba39fb370efe1ac940a869f65ae45fbbae9e 100644 --- a/ldb/print.c +++ b/ldb/print.c @@ -1,4 +1,4 @@ -/* $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/ldb/Attic/print.c,v 1.4 1990/03/08 17:30:04 wlott Exp $ */ +/* $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/ldb/Attic/print.c,v 1.5 1990/03/18 15:17:00 wlott Exp $ */ #include <stdio.h> #include "ldb.h" @@ -222,7 +222,7 @@ lispobj obj; print_obj(NULL, cons->car); obj = cons->cdr; space = TRUE; - if (obj == NULL) + if (obj == NIL) break; } if (obj != NIL) {