1.0.26.12: Don't allow (LOOP FOR X ACROSS A ...) where A evaluates to NIL

[sbcl.git] / tests / time.pure.lisp

diff --git a/tests/time.pure.lisp b/tests/time.pure.lisp
index da7f3b9..a9aac4c 100644 (file)
--- a/tests/time.pure.lisp
+++ b/tests/time.pure.lisp
@@ -27,3 +27,6 @@
                           (when (>= time time1)
                             (return)))))))
          3)
+
+(with-test (:name :time/lambdas-converted)
+  (time (compile nil '(lambda () 42))))