Error WRITE-AUX when printing circle structures

[vlad-km]

Welcome to JSCL 0.7.0 (built on 29 November 2020)

JSCL is a Common Lisp implementation on Javascript.
For more information, visit the project page at https://github.com/jscl-project/jscl.

CL-USER> (setq *print-circle* t)
T
CL-USER> (defvar cyc)
CYC
CL-USER> (setf (nth 1 (progn (setq cyc (make-list 3)) cyc)) cyc)
#1=((NIL . #1#) NIL)
CL-USER> (list cyc cyc)
(#2=(NIL #2# NIL) #2#)
CL-USER> (cons cyc nil)
ERROR: Maximum call stack size exceeded
CL-USER> (list cyc cyc)
(#2=(NIL #2# NIL) #2#)
CL-USER> (list cyc nil cyc)
(#2=(NIL #2# NIL) NIL #2#)
CL-USER> (list cyc nil cyc nil)
(#2=(NIL #2# NIL) NIL #2# NIL)
CL-USER> (cons cyc cyc)
(#2=(NIL #2# NIL) . #2#)
CL-USER> (cons nil cyc)
ERROR: Maximum call stack size exceeded
CL-USER> (list nil cyc)
ERROR: Maximum call stack size exceeded
CL-USER> (list  cyc nil)
ERROR: Maximum call stack size exceeded
CL-USER> (list  cyc nil nil)
ERROR: Maximum call stack size exceeded
CL-USER> (list  cyc nil cyc)
(#2=(NIL #2# NIL) NIL #2#)