9093 |
(funcall fn r 6 6) |
(funcall fn r 6 6) |
9094 |
(aref r)) |
(aref r)) |
9095 |
6) |
6) |
9096 |
|
|
9097 |
|
(deftest misc.487 |
9098 |
|
(let ((r (make-array nil :element-type '(unsigned-byte 16))) |
9099 |
|
(fn (compile nil '(lambda (r p1) |
9100 |
|
(declare (optimize speed (safety 1)) |
9101 |
|
(type (simple-array (unsigned-byte 16) nil) r) |
9102 |
|
(type (integer 1583040351 1587341394) p1)) |
9103 |
|
(setf (aref r) (logandc2 (the (integer 1587211196 1587341392) p1) -166174)) |
9104 |
|
(values))))) |
9105 |
|
(funcall fn r 1587341392) |
9106 |
|
(aref r)) |
9107 |
|
34832) |
9108 |
|
|
9109 |
|
(deftest misc.488 |
9110 |
|
(let ((r (make-array nil :element-type '(unsigned-byte 32))) |
9111 |
|
(fn (compile nil '(lambda (r p2) |
9112 |
|
(declare (optimize speed (safety 1)) |
9113 |
|
(type (simple-array (unsigned-byte 32) nil) r) |
9114 |
|
(type (integer 1960409798 1960426181) p2)) |
9115 |
|
(setf (aref r) (logorc1 -1 p2)) |
9116 |
|
(values))))) |
9117 |
|
(funcall fn r 1960409801) |
9118 |
|
(aref r)) |
9119 |
|
1960409801) |
9120 |
|
|
9121 |
|
(deftest misc.489 |
9122 |
|
(let ((r (make-array nil :element-type '(unsigned-byte 32))) |
9123 |
|
(fn (compile nil '(lambda (r p2) |
9124 |
|
(declare (optimize speed (safety 1)) |
9125 |
|
(type (simple-array (unsigned-byte 32) nil) r) |
9126 |
|
(type (integer -55) p2)) |
9127 |
|
(setf (aref r) (logorc2 0 (the (member -51) p2))) |
9128 |
|
(values))))) |
9129 |
|
(funcall fn r -51) |
9130 |
|
(aref r)) |
9131 |
|
50) |