Changeset 12853

Timestamp:

Sep 21, 2009, 5:47:57 AM (15 years ago)

Author:

gz

Message:

add test for ticket #592; conditionalize out some tests not in trunk yet

File:

• trunk/tests/ansi-tests/ccl.lsp (modified) (2 diffs)

trunk/tests/ansi-tests/ccl.lsp

@@ -1475 +1475 @@
 
 
+#+ccl-0711 (progn ;; not merged yet
 (deftest ccl.61783-1
     (test-compiler-warning "(defgeneric ccl.61783-1 (x y))
@@ -1526 +1527 @@
                             (defgeneric ccl.61783-6-rev (x &key a &allow-other-keys))")
   ())
-
-
+) ;; #+ccl-0711
+
+
+(deftest ccl.bug#592
+    (test-compiler-warning "(macrolet ((tag () 1))
+                              (eval-when (:compile-toplevel :load-toplevel :execute)
+                                (assert (= 1 (tag)))))")
+  ())