bldc/tests/test_if_3.lisp

8 lines
134 B
Common Lisp

(define test (lambda (x)
(if x
'something)))
(check (and (eq (test 't) 'something)
(eq (test 'nil) 'nil)))