Parent Directory | Revision Log | Patch
revision 1.2 by pfdietz, Sat Jan 17 13:31:44 2004 UTC | revision 1.3 by pfdietz, Sun Jun 26 14:52:06 2005 UTC | |
---|---|---|
# | Line 14 | Line 14 |
14 | nil) | nil) |
15 | ||
16 | (deftest hash-table-p.2 | (deftest hash-table-p.2 |
17 | (loop for e in *universe* | (check-type-predicate #'hash-table-p 'hash-table) |
18 | for p = (typep e 'hash-table) | nil) |
for q = (hash-table-p e) | ||
always (if p q (not q))) | ||
t) | ||
19 | ||
20 | (deftest hash-table-p.3 | (deftest hash-table-p.3 |
21 | (let ((i 0)) | (let ((i 0)) |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |