/[gcl]/gcl/ansi-tests/subseq.lsp
ViewVC logotype

Diff of /gcl/ansi-tests/subseq.lsp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch 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

Legend:
Removed from v.1.10  
changed lines
  Added in v.1.11

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26