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)) |