add test for lambda in lambda

Author: k-okada

test/env.l

@@ -2,9 +2,6 @@
 
 (init-unit-test)
 
-(eval-when (compile) ;; this does not work on compiled code
- (when nil
-
 ;;(defun make-c (a) (let ((x 0)) #'(lambda () (list a x))))
 ;;(defun make-c () (let ((x 0)) #'(lambda () (list x))))
 (defun make-c0 () #'(lambda () (list 0)))
@@ -16,6 +13,7 @@
   (format t ";; funcall make-c0 ~A~%" (funcall f0))
   (assert (equal (funcall f0) '(0))))
 
+
 (defun make-c1 () (let () #'(lambda (x) (list x))))
 
 (compile 'make-c1)
@@ -25,6 +23,7 @@
   (format t ";; funcall make-c1 ~A~%" (funcall f1 1))
   (assert (equal (funcall f1 1) '(1))))
 
+
 (defun make-c2 () (let ((x 0)) #'(lambda () (list x))))
 
 (compile 'make-c2)
@@ -52,8 +51,6 @@
   (format t ";; funcall make-c4 ~A~%" (funcall f4 1))
   (assert (equal (funcall f4 1) '(1))))
 
-)) ;; eval-when (compile) (when nil
-
 (deftest lambda-in-lambda
   (let (r)
     (setq r