/[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.4 by pfdietz, Sun Nov 3 14:03:49 2002 UTC revision 1.5 by pfdietz, Tue Nov 5 12:17:30 2002 UTC
# Line 270  Line 270 
270  ;;; Tests on bit vectors  ;;; Tests on bit vectors
271    
272  (deftest map-into.bit-vector.1  (deftest map-into.bit-vector.1
273    (let ((v #*0100110))    (let ((v (copy-seq #*0100110)))
274      (map-into v #'(lambda (x) (- 1 x)) v)      (map-into v #'(lambda (x) (- 1 x)) v)
275      (and (bit-vector-p v)      (and (bit-vector-p v)
276           v))           v))
277    #*1011001)    #*1011001)
278    
279  (deftest map-into.bit-vector.2  (deftest map-into.bit-vector.2
280    (let ((v #*0100110))    (let ((v (copy-seq #*0100110)))
281      (map-into v #'(lambda () 0))      (map-into v #'(lambda () 0))
282      (and (bit-vector-p v)      (and (bit-vector-p v)
283           v))           v))
284    #*0000000)    #*0000000)
285    
286  (deftest map-into.bit-vector.3  (deftest map-into.bit-vector.3
287    (let ((v #*0100110))    (let ((v (copy-seq #*0100110)))
288      (map-into v #'identity '(0 1 1 1 0 0 1))      (map-into v #'identity '(0 1 1 1 0 0 1))
289      (and (bit-vector-p v)      (and (bit-vector-p v)
290           v))           v))
291    #*0111001)    #*0111001)
292    
293  (deftest map-into.bit-vector.4  (deftest map-into.bit-vector.4
294    (let ((v #*0100110))    (let ((v (copy-seq #*0100110)))
295      (map-into v #'identity '(0 1 1 1))      (map-into v #'identity '(0 1 1 1))
296      (and (bit-vector-p v)      (and (bit-vector-p v)
297           v))           v))
298    #*0111110)    #*0111110)
299    
300  (deftest map-into.bit-vector.5  (deftest map-into.bit-vector.5
301    (let ((v #*0100110))    (let ((v (copy-seq #*0100110)))
302      (map-into v #'identity '(0 1 1 1 0 0 1 4 5 6 7))      (map-into v #'identity '(0 1 1 1 0 0 1 4 5 6 7))
303      (and (bit-vector-p v)      (and (bit-vector-p v)
304           v))           v))

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