/[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.13 by pfdietz, Mon Jun 13 13:01:35 2005 UTC revision 1.14 by pfdietz, Mon Jun 13 14:24:44 2005 UTC
# Line 168  Line 168 
168    
169  ;;; Constant folding tests  ;;; Constant folding tests
170    
171  (deftest reverse.fold.1  (def-fold-test reverse.fold.1 (reverse '(a b c)))
172    (flet ((%f () (reverse '(a b c))))  (def-fold-test reverse.fold.2 (reverse #(a b c)))
173      (values  (def-fold-test reverse.fold.3 (reverse #*00111101011011))
174       (%f)  (def-fold-test reverse.fold.4 (reverse "abcdefgh"))
      (let ((seq (%f))) (setf (elt seq 0) 'z) seq)  
      (%f)))  
   (c b a)  
   (z b a)  
   (c b a))  
   
 (deftest reverse.fold.2  
   (flet ((%f () (reverse #(a b c))))  
     (values  
      (%f)  
      (let ((seq (%f))) (setf (elt seq 0) 'z) seq)  
      (%f)))  
   #(c b a)  
   #(z b a)  
   #(c b a))  
175    
176  ;;; Error cases  ;;; Error cases
177    

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

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