Changeset 13150

Timestamp:

Oct 30, 2009, 4:40:40 PM (15 years ago)

Author:

gz

Message:

add regression tests for bugs #617 and #620

File:

• trunk/tests/ansi-tests/ccl.lsp (modified) (1 diff)

trunk/tests/ansi-tests/ccl.lsp

@@ -1580 +1580 @@
   :symbol-macro
   :special)
+
+(deftest ccl.bug#617
+    (flet ((test ()
+             (declare (optimize (speed 1) (safety 1)))
+             (symbol-macrolet ((inc 0.5))
+               (loop with y = 0 do (incf y inc) while (< y 2)))))
+      (test))
+  nil)
+
+(deftest ccl.bug#620
+    (progn
+      (test-compile (test-source-file "(defun ccl.bug#620.fn (buckets x y)
+                                        (declare (type (simple-array t (* *)) buckets))
+                                        (let ((result (aref buckets x y)))
+                                            result))"))
+      :win)
+  :win)