14 lines
455 B
Plaintext
14 lines
455 B
Plaintext
;; This tests for both AR 7437 (circle labels go to *standard-output*)
|
|
;; and 7438 (some circular structures don't get printed at all).
|
|
|
|
(do-test-group (structure-print
|
|
:before (defstruct graph nodes))
|
|
(do-test "structures circle-print"
|
|
(let ((xcl:*print-structure* t))
|
|
(declare (special xcl:*print-structure*))
|
|
(string= (write-to-string
|
|
(let ((foo (make-graph)))
|
|
(setf (graph-nodes foo) foo)) :circle t)
|
|
"#1=#S(GRAPH NODES #1#)"))))
|
|
STOP
|