Parent Directory | Revision Log | Patch
revision 1.1 by pfdietz, Sun Feb 22 13:33:58 2004 UTC | revision 1.2 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 packagep.1 | (deftest packagep.1 |
9 | (loop | (check-type-predicate #'packagep 'package) |
10 | for x in *universe* count | nil) |
(unless (eqt (not (packagep x)) | ||
(not (typep x 'package))) | ||
(format t | ||
"(packagep ~S) = ~S, (typep x 'package) = ~S~%" | ||
x (packagep x) x (typep x 'package)) | ||
t)) | ||
0) | ||
11 | ||
12 | ;;; *package* is always a package | ;;; *package* is always a package |
13 |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |