24 |
(deftest bit-xor.3 |
(deftest bit-xor.3 |
25 |
(let* ((s1 (make-array nil :initial-element 0 :element-type 'bit)) |
(let* ((s1 (make-array nil :initial-element 0 :element-type 'bit)) |
26 |
(s2 (make-array nil :initial-element 1 :element-type 'bit))) |
(s2 (make-array nil :initial-element 1 :element-type 'bit))) |
27 |
(values(bit-xor s1 s2) s1 s2)) |
(values (bit-xor s1 s2) s1 s2)) |
28 |
#0a1 |
#0a1 |
29 |
#0a0 |
#0a0 |
30 |
#0a1) |
#0a1) |
218 |
#2a((0 0)(1 1)) |
#2a((0 0)(1 1)) |
219 |
#2a((0 1)(1 0))) |
#2a((0 1)(1 0))) |
220 |
|
|
221 |
|
(deftest bit-xor.20 |
222 |
|
(let* ((s1 (make-array 1 :initial-element 0 :element-type 'bit)) |
223 |
|
(s2 (make-array 1 :initial-element 0 :element-type 'bit)) |
224 |
|
(x 0) y z) |
225 |
|
(values |
226 |
|
(bit-xor (progn (setf y (incf x)) s1) |
227 |
|
(progn (setf z (incf x)) s2)) |
228 |
|
x y z)) |
229 |
|
#*0 2 1 2) |
230 |
|
|
231 |
;;; Error tests |
;;; Error tests |
232 |
|
|
233 |
(deftest bit-xor.error.1 |
(deftest bit-xor.error.1 |