3 (in-suite lisp-on-lines
)
5 (deftest test-define-display
()
6 (test-attribute-property-inheriting)
8 (deflayer test-display
)
11 :in-layer test-display
((description attribute-test-2
))
12 (format *display
* "BRILLANT!"))
14 (let ((before (display-using-description
15 (find-description 'attribute-test-2
)
17 (with-active-layers (test-display)
18 (is (equalp "BRILLANT!" (display-using-description
19 (find-description 'attribute-test-2
)