1 ; Tests for conditional forms
3 (test (eql (and nil 1) nil))
6 (test (= (or nil 1) 1))
10 (test (eql nil (cond)))
11 (test (= 1 (cond (1))))
15 (test (= 2 (cond (1 2))))
16 (test (= 3 (cond (nil 1) (2 3))))
17 (test (eql nil (cond (nil 1) (nil 2))))
21 (test (= (case 1 (2 3) (otherwise 42)) 42))
22 (test (= (case 1 (2 3) (t 42)) 42))
23 (test (= (case 1 (2 3) (1 42)) 42))
24 (test (null (case 1 (2 3))))