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

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

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

Legend:
Removed from v.1.12  
changed lines
  Added in v.1.13

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