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