[Sbcl-commits] CVS: sbcl/tests eval.impure.lisp,1.19,1.20

[Nikodemus S. <de...@us...>]

Update of /cvsroot/sbcl/sbcl/tests
In directory sfp-cvsdas-3.v30.ch3.sourceforge.com:/tmp/cvs-serv13723/tests

Modified Files:
	eval.impure.lisp 
Log Message:
1.0.36.3: FUNCTION-LAMBDA-EXPRESSION and declarations in interpreted functions

 * Don't throw them away, that is.

 Fixes launchpad bug #524707


Index: eval.impure.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/tests/eval.impure.lisp,v
retrieving revision 1.19
retrieving revision 1.20
diff -u -d -r1.19 -r1.20
--- eval.impure.lisp	21 Dec 2008 09:51:02 -0000	1.19
+++ eval.impure.lisp	28 Feb 2010 17:52:38 -0000	1.20
@@ -249,4 +249,10 @@
               (simple-type-error () 'error)))
       t)))
 
+(with-test (:name :bug-524707)
+  (let ((*evaluator-mode* :interpret)
+        (lambda-form '(lambda (x) (declare (fixnum x)) (1+ x))))
+    (let ((fun (eval lambda-form)))
+      (assert (equal lambda-form (function-lambda-expression fun))))))
+
 ;;; success