2
;;;; Author: Paul Dietz
3
;;;; Created: Fri Oct 18 08:21:29 2002
4
;;;; Contains: Tests for IF
16
(deftest if.3 (if t (values) 'a))
23
(if t (values 'a 'b 'c) 'd)
27
(if nil 'a (values 'b 'c 'd))
30
(deftest if.7 (if nil 'a (values)))
34
(values (if (= (incf i) 1) 't nil) i))