From: Nikodemus S. <de...@us...> - 2006-02-27 15:03:17
|
Update of /cvsroot/sbcl/sbcl/tests In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv3616/tests Modified Files: eval.impure.lisp Log Message: 0.9.10.5: correct CONSTANTP * fix thinko in interactions between PROGV & IF and add a test to catch it. Index: eval.impure.lisp =================================================================== RCS file: /cvsroot/sbcl/sbcl/tests/eval.impure.lisp,v retrieving revision 1.11 retrieving revision 1.12 diff -u -d -r1.11 -r1.12 --- eval.impure.lisp 27 Feb 2006 13:12:35 -0000 1.11 +++ eval.impure.lisp 27 Feb 2006 15:03:09 -0000 1.12 @@ -128,12 +128,14 @@ '(x) '(1) (1+ x)) t 2) - ((unwind-protect 1 nil) t 1) - ((unwind-protect 1 - (xxx)) nil) - ((the integer 1) t 1) - ((the integer (+ 1 1)) t 2) - ((the integer (foo)) nil) + ((progv '(x) '(t) + (if x 1 2)) t 1) + ((unwind-protect 1 nil) t 1) + ((unwind-protect 1 + (xxx)) nil) + ((the integer 1) t 1) + ((the integer (+ 1 1)) t 2) + ((the integer (foo)) nil) ((+ 1 2) t 3))) (destructuring-bind (form c &optional v) test (assert (eql (constantp form) c)) |