diff --git a/lisp/print.c b/lisp/print.c index b9c858e5bd0c46cee2af0fc88ca25fdc1657bd45..6ac12abd0e9b365dad39a84d1824098d1884f2ca 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;