Parent Directory | Revision Log | Patch
revision 1.10 by pfdietz, Sat Sep 25 15:08:58 2004 UTC | revision 1.11 by pfdietz, Mon Jun 13 13:01:35 2005 UTC | |
---|---|---|
# | Line 281 | Line 281 |
281 | s i a b c)) | s i a b c)) |
282 | "xyz" "axyz" 3 1 2 3) | "xyz" "axyz" 3 1 2 3) |
283 | ||
284 | ;;; Constant folding | |
285 | ||
286 | (deftest subseq.fold.1 | |
287 | (flet ((%f () (subseq '(1 2 3) 0))) | |
288 | (values | |
289 | (%f) | |
290 | (let ((seq (%f))) (setf (elt seq 0) 0) seq) | |
291 | (%f))) | |
292 | (1 2 3) | |
293 | (0 2 3) | |
294 | (1 2 3)) | |
295 | ||
296 | ;;; Error cases | ;;; Error cases |
297 | ||
298 | (deftest subseq.error.1 | (deftest subseq.error.1 |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |