tests/conditionals.lisp

   1 ; Tests for conditional forms
   2 ; Boolean operators
   3 (test (eql (and nil 1) nil))
   4 (test (=   (and 1   2)   2))
   5
   6 (test (= (or  nil 1)   1))
   7 (test (= (or  1   2)   1))
   8
   9 ; COND
  10 (test (eql nil (cond)))
  11 (test (=   2   (cond (1 2))))
  12 (test (=   3   (cond (nil 1) (2 3))))
  13 (test (eql nil (cond (nil 1) (nil 2))))