Changeset 12560 for trunk/tests/ansi-tests/ccl.lsp

Timestamp:

Aug 10, 2009, 1:17:14 PM (11 years ago)

Author:

gz

Message:

a few regression tests

File:

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

trunk/tests/ansi-tests/ccl.lsp

@@ -1055 +1055 @@
           (values (read-from-string (prin1-to-string "123456789012345")))))
   "123456789012345")
+
+(deftest ccl.63842a
+    (test-compiler-warning "(defun ccl.63842a-1 () (declare (inline ccl.63842a-2)))")
+  (:unknown-declaration-function))
+
+(deftest ccl.63842b
+    (test-compiler-warning "(defun ccl.63842b-1 () (declare (dynamic-extent #'ccl.63842b-2)))")
+  (:unknown-declaration-function))
 
 (deftest ccl.decl.1
@@ -1448 +1456 @@
 
 
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+
+(deftest ccl.56248a
+    (test-compiler-warning "(defmacro ccl.56248a (&whole whole) t)")
+  (:unused))
+
+(deftest ccl.56248b
+    (test-compiler-warning "(defmacro ccl.56248b (&environment env) t)")
+  (:unused))