3 (in-suite lisp-on-lines
)
5 (deftest (test-define-display :compile-before-run t
) ()
7 (define-description test-display
())
9 (define-display ((description test-display
))
12 (is (equalp "BRILLANT!" (display-using-description
13 (find-description 'test-display
)
16 (deftest test-symbol-display
()
17 (is (stringp (display nil nil
))))