Changeset 12355

Timestamp:

Jul 2, 2009, 2:55:29 PM (12 years ago)

Author:

gz

Message:

Add THE test

File:

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

trunk/tests/ansi-tests/ccl.lsp

@@ -1041 +1041 @@
   2)
 
+(deftest ccl.bug#543a
+    (handler-case
+        (progn
+          (test-compile '(lambda (x y)
+                          (the fixnum (- (the fixnum (aref (the (array fixnum 1) x) (aref (the (simple-array fixnum 1) y) 0)))))))
+          :win)
+      (serious-condition (c) c))
+  :win)
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;