Parent Directory | Revision Log | Patch
revision 1.12 by pfdietz, Sat May 7 01:55:34 2005 UTC | revision 1.13 by pfdietz, Mon Jun 13 13:01:35 2005 UTC | |
---|---|---|
# | Line 166 | Line 166 |
166 | i)) | i)) |
167 | (d c b a) 1) | (d c b a) 1) |
168 | ||
169 | ;;; Constant folding tests | |
170 | ||
171 | (deftest reverse.fold.1 | |
172 | (flet ((%f () (reverse '(a b c)))) | |
173 | (values | |
174 | (%f) | |
175 | (let ((seq (%f))) (setf (elt seq 0) 'z) seq) | |
176 | (%f))) | |
177 | (c b a) | |
178 | (z b a) | |
179 | (c b a)) | |
180 | ||
181 | (deftest reverse.fold.2 | |
182 | (flet ((%f () (reverse #(a b c)))) | |
183 | (values | |
184 | (%f) | |
185 | (let ((seq (%f))) (setf (elt seq 0) 'z) seq) | |
186 | (%f))) | |
187 | #(c b a) | |
188 | #(z b a) | |
189 | #(c b a)) | |
190 | ||
191 | ;;; Error cases | ;;; Error cases |
192 | ||
193 | (deftest reverse.error.1 | (deftest reverse.error.1 |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |