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))