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