From 6b49382df078a423b89cea72cd913d87786bca86 Mon Sep 17 00:00:00 2001 From: wlott <wlott> Date: Sun, 18 Mar 1990 15:17:00 +0000 Subject: [PATCH] Check for end of lists by comparing with NIL, not NULL. --- ldb/print.c | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/ldb/print.c b/ldb/print.c index e7f2c146b..4723ba39f 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) { -- GitLab