2 (in-suite lisp-on-lines
)
6 ;; Redefining a superclass causes subclasses to remain uninitialized,
7 ;; which would break DISPLAY-USING-DESCRIPTION
13 (define-description bug-0-test-superclass
()
14 ((bug-0-attribute :label
"bug" :value
0)))
16 (define-description bug-0-test-subclass
(bug-0-test-superclass)
17 ((bug-0-attribute-2 :label
"subclass" :value
2)))
19 (is (lol::display-using-description
(find-description 'bug-0-test-subclass
) nil nil
))
21 (define-description bug-0-test-superclass
()
22 ((bug-0-attribute :label
"bug" :value
0)))
23 ;;; Breaks because redefinition of superclass occurred
24 (is (lol::display-using-description
(find-description 'bug-0-test-subclass
) nil nil
)))))