Parent Directory | Revision Log | Patch
revision 1.3 by pfdietz, Sat Jun 4 17:34:35 2005 UTC | revision 1.4 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 stringp.1 | (deftest stringp.1 |
9 | (loop for x in *universe* | (check-type-predicate #'stringp 'string) |
10 | always (if (typep x 'string) | nil) |
(stringp x) | ||
(not (stringp x)))) | ||
t) | ||
11 | ||
12 | (deftest stringp.2 | (deftest stringp.2 |
13 | (notnot (stringp "abcd")) | (notnot (stringp "abcd")) |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |