Parent Directory | Revision Log | Patch
revision 1.1 by pfdietz, Wed Jan 29 00:42:25 2003 UTC | revision 1.2 by pfdietz, Mon Feb 17 11:54:02 2003 UTC | |
---|---|---|
# | Line 51 | Line 51 |
51 | always (if p q (not q))) | always (if p q (not q))) |
52 | t) | t) |
53 | ||
54 | (deftest hash-table-p.3 | |
55 | (let ((i 0)) | |
56 | (values (hash-table-p (incf i)) i)) | |
57 | nil 1) | |
58 | ||
59 | (deftest hash-table-p.error.1 | |
60 | (classify-error (hash-table-p)) | |
61 | program-error) | |
62 | ||
63 | (deftest hash-table-p.error.2 | |
64 | (classify-error (let ((h (make-hash-table))) (hash-table-p h nil))) | |
65 | program-error) | |
66 | ||
67 | ||
68 | ||
69 | ||
70 |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |