Parent Directory | Revision Log | Patch
revision 1.2 by pfdietz, Sat Jun 4 17:34:35 2005 UTC | revision 1.3 by pfdietz, Sun Jun 26 14:52:06 2005 UTC | |
---|---|---|
# | Line 6 | Line 6 |
6 | (in-package :cl-test) | (in-package :cl-test) |
7 | ||
8 | (deftest simple-string-p.1 | (deftest simple-string-p.1 |
9 | (loop for x in *universe* | (check-type-predicate #'simple-string-p 'simple-string) |
10 | always (if (typep x 'simple-string) | nil) |
(simple-string-p x) | ||
(not (simple-string-p x)))) | ||
t) | ||
11 | ||
12 | (deftest simple-string-p.2 | (deftest simple-string-p.2 |
13 | (notnot-mv (simple-string-p "ancd")) | (notnot-mv (simple-string-p "ancd")) |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |