/[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.7 by pfdietz, Sun Nov 3 13:21:47 2002 UTC revision 1.8 by pfdietz, Sun Nov 3 20:18:59 2002 UTC
# Line 188  Line 188 
188  (deftest map.fill.2  (deftest map.fill.2
189    (let ((s1 (make-array '(10) :initial-contents '(a b c d e f g h i j)    (let ((s1 (make-array '(10) :initial-contents '(a b c d e f g h i j)
190                          :fill-pointer 8)))                          :fill-pointer 8)))
191      (map 'list #'identity '(1 2 3 4 5 6 7 8 9 10) s1))      (map 'list #'(lambda (x y) x) '(1 2 3 4 5 6 7 8 9 10) s1))
192    (1 2 3 4 5 6 7 8))    (1 2 3 4 5 6 7 8))
193    
194  (deftest map.fill.3  (deftest map.fill.3
# Line 202  Line 202 
202    (let ((s1 (make-array '(10) :initial-element #\a    (let ((s1 (make-array '(10) :initial-element #\a
203                          :element-type 'base-char                          :element-type 'base-char
204                          :fill-pointer 8)))                          :fill-pointer 8)))
205      (map 'list #'identity '(1 2 3 4 5 6 7 8 9 10) s1))      (map 'list #'(lambda (x y) x) '(1 2 3 4 5 6 7 8 9 10) s1))
206    (1 2 3 4 5 6 7 8))    (1 2 3 4 5 6 7 8))
207    
208  (deftest map.fill.5  (deftest map.fill.5
# Line 216  Line 216 
216    (let ((s1 (make-array '(10) :initial-element 1    (let ((s1 (make-array '(10) :initial-element 1
217                          :element-type 'bit                          :element-type 'bit
218                          :fill-pointer 8)))                          :fill-pointer 8)))
219      (map 'list #'identity '(1 2 3 4 5 6 7 8 9 10) s1))      (map 'list #'(lambda (x y) x) '(1 2 3 4 5 6 7 8 9 10) s1))
220    (1 2 3 4 5 6 7 8))    (1 2 3 4 5 6 7 8))

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

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