Parent Directory | Revision Log | Patch
revision 1.1 by pfdietz, Thu Sep 26 16:53:38 2002 UTC | revision 1.2 by pfdietz, Sat Oct 12 01:25:59 2002 UTC | |
---|---|---|
# | Line 37 | Line 37 |
37 | (values y x (equal (type-of x) (type-of y)))) | (values y x (equal (type-of x) (type-of y)))) |
38 | #(5 4 3 2 1) | #(5 4 3 2 1) |
39 | #(1 2 3 4 5) | #(1 2 3 4 5) |
40 | t) | nil) |
41 | ||
42 | (deftest reverse-bitstring.1 | (deftest reverse-bitstring.1 |
43 | (reverse #*) | (reverse #*) |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |