/[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.4 by pfdietz, Sun Oct 13 10:42:08 2002 UTC revision 1.5 by pfdietz, Tue Oct 15 11:38:44 2002 UTC
# Line 29  Line 29 
29    (map '(vector * 4) #'+ #(1 2 3 4) #(6 6 6 6))    (map '(vector * 4) #'+ #(1 2 3 4) #(6 6 6 6))
30    #(7 8 9 10))    #(7 8 9 10))
31    
32  (deftest map-array.7  ;;; (deftest map-array.7
33    (map 'array #'identity '(a b c d e f))  ;;;  (map 'array #'identity '(a b c d e f))
34    #(a b c d e f))  ;;;  #(a b c d e f))
35    
36  (deftest map-array.8  ;;; (deftest map-array.8
37    (map 'simple-array #'identity '(a b c d e f))  ;;;   (map 'simple-array #'identity '(a b c d e f))
38    #(a b c d e f))  ;;;   #(a b c d e f))
39    
40  (deftest map-array.9  (deftest map-array.9
41    (map 'simple-vector #'identity '(a b c d e f))    (map 'simple-vector #'identity '(a b c d e f))

Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5

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