61 |
(notnot-mv (logbitp (1+ most-positive-fixnum) -1)) |
(notnot-mv (logbitp (1+ most-positive-fixnum) -1)) |
62 |
t) |
t) |
63 |
|
|
64 |
|
(deftest logbitp.7 |
65 |
|
(loop for len = (random 100) |
66 |
|
for i = (random-from-interval (ash 1 len)) |
67 |
|
for k = (random (1+ len)) |
68 |
|
repeat 1000 |
69 |
|
unless (if (ldb-test (byte 1 k) i) |
70 |
|
(logbitp k i) |
71 |
|
(not (logbitp k i))) |
72 |
|
collect (list i k)) |
73 |
|
nil) |
74 |
|
|
75 |
|
(deftest logbitp.8 |
76 |
|
(loop for k from 1 to 1000 |
77 |
|
always (logbitp k -1)) |
78 |
|
t) |
79 |
|
|
80 |
(deftest logbitp.order.1 |
(deftest logbitp.order.1 |
81 |
(let ((i 0) a b) |
(let ((i 0) a b) |
82 |
(values |
(values |