{"body":"COMMON-LISP-USER> (defparameter tree '#2=(#1=(a) (b c a #1# #2#) . #2#))\n(setf *print-circles* t)\n(print-identified-conses tree)\n\nTREE\nCOMMON-LISP-USER> ;;; Warning:       Undefined variable *PRINT-CIRCLES*\n;;;     at -unknown-file- filepos: 0  lineno: 0 \nT\nCOMMON-LISP-USER> #1=(#2=(#3=A . ()) . ((B . (C . (#3#  . (#2#  . (#1#  . ()))))) . #1# ))\n((A)\n (B C A (A)\n  ((A)\n   (B C A (A)\n    ((A)\n     (B C A (A)\n      ((A)\n       (B C A (A)\n        ((A)\n         (B C A (A)\n          ((A)\n           (B C A (A)\n            ((A)\n             (B C A (A)\n              ((A)\n               (B C A (A)\n                ((A)\n                 (B C A (A)\n                  ((A)\n                   (B C A (A)\n                    ((A)\n                     (B C A (A)\n                      ((A)\n                       (B C A (A)\n                        ((A)\n                         (B C A (A)\n                          ((A)\n                           (B C A (A)\n                            ((A)\n                             (B C A (A)\n                              ((A)\n                               (B C A (A)\n                                ((A)\n                                 (B C A (A)\n                                  ((A)\n                                   (B C A (A)\n                                    ((A)\n                                     (B C A (A)\n                                      ((A)\n                                       (B C A (A)","name":"","extension":"txt","url":"https://www.irccloud.com/pastebin/x1pYASI8","modified":1532906120,"id":"x1pYASI8","size":1448,"lines":49,"own_paste":false,"theme":"","date":1532906120}