Parent Directory | Revision Log | Patch
revision 1.1 by pfdietz, Fri Oct 18 03:12:08 2002 UTC | revision 1.2 by pfdietz, Mon Jan 13 14:11:49 2003 UTC | |
---|---|---|
# | Line 61 | Line 61 |
61 | (equalt (copy-seq #*000110) (copy-seq #*000111)) | (equalt (copy-seq #*000110) (copy-seq #*000111)) |
62 | nil) | nil) |
63 | ||
64 | (deftest equal.error.1 | |
65 | (classify-error (equal)) | |
66 | program-error) | |
67 | ||
68 | (deftest equal.error.2 | |
69 | (classify-error (equal nil)) | |
70 | program-error) | |
71 | ||
72 | (deftest equal.error.3 | |
73 | (classify-error (equal nil nil nil)) | |
74 | program-error) |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |