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