From c841e3f1e3253210aacaf7b6c55bb9fc86babaa0 Mon Sep 17 00:00:00 2001
From: jjgarcia <jjgarcia>
Date: Mon, 16 Sep 2002 15:28:56 +0000
Subject: [PATCH] Circular printer was disabled!

---
 src/c/print.d | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

diff --git a/src/c/print.d b/src/c/print.d
index c43f01098..0a3bf34ab 100644
--- a/src/c/print.d
+++ b/src/c/print.d
@@ -81,7 +81,7 @@ static int isp;
 static int iisp;
 
 static cl_object CIRCLEstack;
-static cl_fixnum CIRCLEcounter;
+static cl_fixnum CIRCLEcounter = -2;
 #endif /* THREADS */
 
 static cl_object no_stream;
@@ -1285,7 +1285,8 @@ static bool
 do_print_circle(cl_fixnum code)
 {
 	if (CIRCLEcounter < 0) {
-		return (code != 0);
+		/* Only run through object when it was not referenced before */
+		return (code == 0);
 	} else if (code == 0) {
 		/* Object is not referenced twice */
 		return TRUE;
@@ -1593,7 +1594,7 @@ init_print(void)
 {
 	SYM_VAL(@'*print-escape*') = Ct;
 	SYM_VAL(@'*print-pretty*') = Ct;
-	SYM_VAL(@'*print-circle*') = Cnil;
+	SYM_VAL(@'*print-circle*') = Ct;
 	SYM_VAL(@'*print-base*') = MAKE_FIXNUM(10);
 	SYM_VAL(@'*print-radix*') = Cnil;
 	SYM_VAL(@'*print-case*') = @':upcase';