mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-03-03 11:01:03 -08:00
Code Issues Projects Releases Packages Wiki Activity

Circular printer was disabled!

Browse source
This commit is contained in:
jjgarcia 2002-09-16 15:28:56 +00:00
parent ac940d1cf2
commit c841e3f1e3
1 changed files with 4 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

7
src/c/print.d
View file

@ -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';