RosettaCodeData/Task/Assertions/Common-Lisp/assertions.lisp

3 lines
58 B
Common Lisp

(let ((x 42))
(assert (and (integerp x) (= 42 x)) (x)))