Changeset 12582

Timestamp:

Aug 15, 2009, 2:03:01 PM (10 years ago)

Author:

gz

Message:

add regression test

File:

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

trunk/tests/ansi-tests/ccl.lsp

@@ -1465 +1465 @@
     (test-compiler-warning "(defmacro ccl.56248b (&environment env) t)")
   (:unused))
+
+
+(deftest ccl.ctype-hashing
+    (let ((path #P"x"))
+      (and (not (typep path '(member #P"x")))
+           (typep path `(member ,path))
+           t))
+  t)