diff options
Diffstat (limited to 'tests/012')
| -rw-r--r-- | tests/012/circ.expected | 2 | ||||
| -rw-r--r-- | tests/012/circ.tl | 14 |
2 files changed, 16 insertions, 0 deletions
diff --git a/tests/012/circ.expected b/tests/012/circ.expected new file mode 100644 index 00000000..4927381e --- /dev/null +++ b/tests/012/circ.expected @@ -0,0 +1,2 @@ +[["a"]] +(#1=("a") [[#1#]]) diff --git a/tests/012/circ.tl b/tests/012/circ.tl new file mode 100644 index 00000000..4b6e9990 --- /dev/null +++ b/tests/012/circ.tl @@ -0,0 +1,14 @@ +(defstruct circ-print nil + a + (:method print (me stream pretty-p) + (put-string "[[" stream) + (print me.a stream pretty-p) + (put-string "]]" stream))) + +(defvar x (let* ((l (list "a")) + (c (new circ-print a l))) + (list l c))) + +(let ((*print-circle* t)) + (prinl (new circ-print a "a")) + (prinl x)) |