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

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

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.22 by pfdietz, Mon Jun 13 13:01:35 2005 UTC revision 1.23 by pfdietz, Mon Jun 13 14:24:44 2005 UTC
# Line 428  Line 428 
428    
429  ;;; Constant folding test  ;;; Constant folding test
430    
431  (deftest map.fold.1  (def-fold-test map.fold.1 (map 'vector #'identity '(a b c)))
   (let ((f (compile nil '(lambda () (declare (optimize speed (safety 0)))  
                            (map 'vector #'identity '(a b c))))))  
     (let ((v (funcall f)))  
       (setf (aref v 0) nil)  
       (values v (funcall f))))  
   #(nil b c)  
   #(a b c))  

Legend:
Removed from v.1.22  
changed lines
  Added in v.1.23

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