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

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

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

revision 1.8 by pfdietz, Wed Jan 29 02:11:55 2003 UTC revision 1.9 by pfdietz, Fri Feb 14 05:10:36 2003 UTC
# Line 370  Line 370 
370  (deftest map-into.error.6  (deftest map-into.error.6
371    (classify-error (locally (map-into 'a #'(lambda () nil)) t))    (classify-error (locally (map-into 'a #'(lambda () nil)) t))
372    type-error)    type-error)
373    
374    ;;; Order of evaluation tests
375    
376    (deftest map-into.order.1
377      (let ((i 0) a b c)
378        (values
379         (map-into (progn (setf a (incf i)) (list 1 2 3 4))
380                   (progn (setf b (incf i)) #'identity)
381                   (progn (setf c (incf i)) '(a b c d)))
382         i a b c))
383      (a b c d) 3 1 2 3)
384    
385    (deftest map-into.order.2
386      (let ((i 0) a b c d)
387        (values
388         (map-into (progn (setf a (incf i)) (list 1 2 3 4))
389                   (progn (setf b (incf i)) #'list)
390                   (progn (setf c (incf i)) '(a b c d))
391                   (progn (setf d (incf i)) '(e f g h)))
392         i a b c d))
393      ((a e) (b f) (c g) (d h)) 4 1 2 3 4)

Legend:
Removed from v.1.8  
changed lines
  Added in v.1.9

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