blob: 82abe745c148cdc5f941fcc43dd86d06b805e2fc (
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)))
(defvarl 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))
|
