Parent Directory | Revision Log | Patch
revision 1.5 by pfdietz, Wed Jan 29 02:11:55 2003 UTC | revision 1.6 by pfdietz, Mon Feb 17 11:54:02 2003 UTC | |
---|---|---|
# | Line 86 | Line 86 |
86 | y) | y) |
87 | "edcba") | "edcba") |
88 | ||
89 | (deftest nreverse.order.1 | |
90 | (let ((i 0)) | |
91 | (values | |
92 | (nreverse (progn (incf i) (list 'a 'b 'c 'd))) | |
93 | i)) | |
94 | (d c b a) 1) | |
95 | ||
96 | (deftest nreverse.error.1 | (deftest nreverse.error.1 |
97 | (classify-error (nreverse 'a)) | (classify-error (nreverse 'a)) |
98 | type-error) | type-error) |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |