73 |
for args = (nconc (make-list (1- i) :initial-element -1) |
for args = (nconc (make-list (1- i) :initial-element -1) |
74 |
(list 183)) |
(list 183)) |
75 |
always (eql (apply #'logand args) 183)) |
always (eql (apply #'logand args) 183)) |
76 |
t) |
t) |
77 |
|
|
78 |
|
(deftest logand.9 |
79 |
|
(loop for i from -1 to 0 always |
80 |
|
(loop for j from -1 to 0 always |
81 |
|
(locally (declare (type (integer -1 0) i j)) |
82 |
|
(eql (logand i j) (if (or (zerop i) (zerop j)) 0 -1))))) |
83 |
|
t) |
84 |
|
|
85 |
(deftest logand.order.1 |
(deftest logand.order.1 |
86 |
(let ((i 0) a b) |
(let ((i 0) a b) |