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