From e5dd468238d097fc2c19d32b4a11f7c6bd578151 Mon Sep 17 00:00:00 2001
From: dtc <dtc>
Date: Tue, 26 Aug 1997 02:22:21 +0000
Subject: [PATCH] Have brief_print reset cur_depth to 0, as it can be left
 higher after a throw_to_monitor from continue_p which causes objects to not
 be printed. From Timothy Miller.

---
 lisp/print.c | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/lisp/print.c b/lisp/print.c
index b9c858e5b..6ac12abd0 100644
--- a/lisp/print.c
+++ b/lisp/print.c
@@ -1,4 +1,4 @@
-/* $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/print.c,v 1.4 1997/01/21 00:28:13 ram Exp $ */
+/* $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/print.c,v 1.5 1997/08/26 02:22:21 dtc Exp $ */
 #include <stdio.h>
 
 #include "print.h"
@@ -578,6 +578,7 @@ void print(lispobj obj)
 void brief_print(lispobj obj)
 {
     skip_newline = TRUE;
+    cur_depth = 0;
     max_depth = 1;
     max_lines = 5000;
 
-- 
GitLab