X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=tests%2Fconditionals.lisp;h=19736e1b88ff028e4d89522b416ace710de516b6;hb=d742c5227ba591922c150fe613c9adacec910012;hp=693fbba8b2537a05f0cab91637120f2240105ce9;hpb=e661ad72cae4e63bcc431986843ce76121d5773a;p=jscl.git

diff --git a/tests/conditionals.lisp b/tests/conditionals.lisp
index 693fbba..19736e1 100644
--- a/tests/conditionals.lisp
+++ b/tests/conditionals.lisp
@@ -9,6 +9,9 @@
 ; COND
 (test (eql nil (cond)))
 (test (=   1   (cond (1))))
+(test (= 1
+         (let ((x 0))
+           (cond ((incf x))))))
 (test (=   2   (cond (1 2))))
 (test (=   3   (cond (nil 1) (2 3))))
 (test (eql nil (cond (nil 1) (nil 2))))