Test output for c3 [fail]
Testing time: 1s
/root/salmonella-run-publish/chicken/bin/csi -script run.scm < /dev/null Error: unbound variable: A Call history: <eval> (list74) <eval> (make79 <class>77 (quote80 name81) (quote80 D) (quote80 direct-supers82) (list83 O) (quote80 direct-...... <eval> (list83 O) <eval> (list83) <eval> (make88 <class>86 (quote89 name90) (quote89 C) (quote89 direct-supers91) (list92 D F) (quote89 direc...... <eval> (list92 D F) <eval> (list92) <eval> (make97 <class>95 (quote98 name99) (quote98 B) (quote98 direct-supers100) (list101 D E) (quote98 dir...... <eval> (list101 D E) <eval> (list101) <eval> (make106 <class>104 (quote107 name108) (quote107 A) (quote107 direct-supers109) (list110 B C) (quote...... <eval> (list110 B C) <eval> (list110) <eval> (class-cpl A) <eval> (call-with-values46 (lambda47 () (list A B C D E F <object> <top>)) list48) <eval> (list A B C D E F <object> <top>) <-- ;;; BEGIN "c3" TESTS ;; 1. Michele Simionato's example 1 (begin (define O <object>) (define-class F (O) ()) (define-class E (O) ()) (define-class D (O) ()) (define-class C (D F) ()) (define-class B (D E) ()) (define-class A (B C) ()) (class-cpl A))