Parent Directory | Revision Log | Patch
revision 1.4 by pfdietz, Mon Feb 17 04:22:04 2003 UTC | revision 1.5 by pfdietz, Wed Jun 18 11:55:24 2003 UTC | |
---|---|---|
# | Line 27 | Line 27 |
27 | (equalpt "abc" "abd") | (equalpt "abc" "abd") |
28 | nil) | nil) |
29 | ||
30 | (deftest equalp.5 | |
31 | (equalpt (make-array '(0) :element-type nil) #()) | |
32 | t) | |
33 | ||
34 | (deftest equalp.6 | |
35 | (equalpt (make-array '(0) :element-type nil) "") | |
36 | t) | |
37 | ||
38 | (deftest equalp.order.1 | (deftest equalp.order.1 |
39 | (let ((i 0) x y) | (let ((i 0) x y) |
40 | (values | (values |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |