blob: 4b6e99902ff44bd780594ecadcdd949bf33c1e79 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
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))
|
