Parent Directory | Revision Log | Patch
revision 1.3 by pfdietz, Mon Feb 10 03:09:37 2003 UTC | revision 1.4 by pfdietz, Mon Feb 17 04:22:04 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.13 | (deftest equal.order.1 |
65 | (let ((i 0) x y) | (let ((i 0) x y) |
66 | (values | (values |
67 | (equal (setf x (incf i)) (setf y (incf i))) | (equal (setf x (incf i)) (setf y (incf i))) |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |