Parent Directory | Revision Log | Patch
revision 1.1 by pfdietz, Fri Oct 18 11:58:46 2002 UTC | revision 1.2 by pfdietz, Mon Jan 13 14:11:50 2003 UTC | |
---|---|---|
# | Line 19 | Line 19 |
19 | (let ((x 1.00000001)) | (let ((x 1.00000001)) |
20 | (eqlt x (identity x))) | (eqlt x (identity x))) |
21 | t) | t) |
22 | ||
23 | (deftest identity.error.1 | |
24 | (classify-error (identity)) | |
25 | program-error) | |
26 | ||
27 | (deftest identity.error.2 | |
28 | (classify-error (identity 'a 'a)) | |
29 | program-error) |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |