Parent Directory | Revision Log | Patch
revision 1.2 by pfdietz, Mon Jan 13 14:11:49 2003 UTC | revision 1.3 by pfdietz, Mon Feb 10 03:09:37 2003 UTC | |
---|---|---|
# | Line 27 | Line 27 |
27 | (equalpt "abc" "abd") | (equalpt "abc" "abd") |
28 | nil) | nil) |
29 | ||
30 | (deftest equalp.5 | |
31 | (let ((i 0) x y) | |
32 | (values | |
33 | (equalp (setf x (incf i)) (setf y (incf i))) | |
34 | i x y)) | |
35 | nil 2 1 2) | |
36 | ||
37 | (deftest equalp.error.1 | (deftest equalp.error.1 |
38 | (classify-error (equalp)) | (classify-error (equalp)) |
39 | program-error) | program-error) |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |