8952 |
(funcall |
(funcall |
8953 |
(compile nil '(lambda (p1 p2 p3 p4 p6) |
(compile nil '(lambda (p1 p2 p3 p4 p6) |
8954 |
(declare (optimize speed (safety 1)) |
(declare (optimize speed (safety 1)) |
8955 |
(type (integer -785238 -80) p1) |
(type (integer -785238 61564048) p1) |
8956 |
(type (integer * 65861934352) p2)) |
(type (integer * 65861934352) p2)) |
8957 |
(+ P1 (THE (INTEGER -485480 -7019) P2) P3 P4 |
(+ P1 (THE (INTEGER -485480 -7019) P2) P3 P4 |
8958 |
463666373060 |
463666373060 |
9052 |
(fn (compile nil '(lambda (r p1 p2) |
(fn (compile nil '(lambda (r p1 p2) |
9053 |
(declare (optimize speed (safety 1)) |
(declare (optimize speed (safety 1)) |
9054 |
(type (simple-array (unsigned-byte 4) nil) r) |
(type (simple-array (unsigned-byte 4) nil) r) |
9055 |
(type (integer * 28306533) p1) (type (integer * 1245601) p2)) |
(type (integer * 28306533) p1) |
9056 |
|
(type (integer * 1245601) p2)) |
9057 |
(setf (aref r) (logandc1 p1 (the (integer -3308174) p2))) |
(setf (aref r) (logandc1 p1 (the (integer -3308174) p2))) |
9058 |
(values))))) |
(values))))) |
9059 |
(funcall fn r -519 -28180) |
(funcall fn r -519 -28180) |
9075 |
(deftest misc.485 |
(deftest misc.485 |
9076 |
(let ((r (make-array nil :element-type 'bit)) |
(let ((r (make-array nil :element-type 'bit)) |
9077 |
(fn (compile nil '(lambda (r p2) |
(fn (compile nil '(lambda (r p2) |
9078 |
(declare (optimize speed (safety 1)) (type (simple-array bit nil) r) |
(declare (optimize speed (safety 1)) |
9079 |
|
(type (simple-array bit nil) r) |
9080 |
(type (integer -108220 256178) p2)) |
(type (integer -108220 256178) p2)) |
9081 |
(setf (aref r) (logand 1 (the (member -1 2147483652 1 -5 3802) p2))) |
(setf (aref r) (logand 1 (the (member -1 2147483652 1 -5 3802) p2))) |
9082 |
(values))))) |
(values))))) |
9088 |
(let ((r (make-array nil :element-type '(unsigned-byte 4))) |
(let ((r (make-array nil :element-type '(unsigned-byte 4))) |
9089 |
(fn (compile nil '(lambda (r p1 p2) |
(fn (compile nil '(lambda (r p1 p2) |
9090 |
(declare (optimize speed (safety 1)) |
(declare (optimize speed (safety 1)) |
9091 |
(type (simple-array (unsigned-byte 4) nil) r) (type (integer -9) p1) |
(type (simple-array (unsigned-byte 4) nil) r) |
9092 |
|
(type (integer -9) p1) |
9093 |
(type (integer * 1234117) p2)) |
(type (integer * 1234117) p2)) |
9094 |
(setf (aref r) (logior (the (integer -295 *) p1) (the (integer -90 *) p2))) |
(setf (aref r) (logior (the (integer -295 *) p1) (the (integer -90 *) p2))) |
9095 |
(values))))) |
(values))))) |
9132 |
(funcall fn r -51) |
(funcall fn r -51) |
9133 |
(aref r)) |
(aref r)) |
9134 |
50) |
50) |
9135 |
|
|
9136 |
|
(deftest misc.490 |
9137 |
|
(let ((r (make-array nil :element-type '(unsigned-byte 32))) |
9138 |
|
(fn (compile nil '(lambda (r p1) |
9139 |
|
(declare (optimize speed (safety 1)) |
9140 |
|
(type (simple-array (unsigned-byte 32) nil) r) |
9141 |
|
(type (integer 761639858 1030075825) p1)) |
9142 |
|
(setf (aref r) (logior (the (integer * 35389813668) p1) 0)) |
9143 |
|
(values))))) |
9144 |
|
(funcall fn r 1030075308) |
9145 |
|
(aref r)) |
9146 |
|
1030075308) |
9147 |
|
|
9148 |
|
(deftest misc.491 |
9149 |
|
(let ((r (make-array nil :element-type '(signed-byte 16))) |
9150 |
|
(fn (compile nil '(lambda (r p2) |
9151 |
|
(declare (optimize speed (safety 1)) |
9152 |
|
(type (simple-array (signed-byte 16) nil) r) |
9153 |
|
(type (integer 505774114 573717424) p2)) |
9154 |
|
(setf (aref r) (lognand 58539 (the (integer * 910674467) p2))) |
9155 |
|
(values))))) |
9156 |
|
(funcall fn r 506608551) |
9157 |
|
(aref r)) |
9158 |
|
-8356) |
9159 |
|
|
9160 |
|
(deftest misc.492 |
9161 |
|
(let ((r (make-array nil :element-type '(signed-byte 8))) |
9162 |
|
(fn (compile nil '(lambda (r p1) |
9163 |
|
(declare (optimize speed (safety 1)) |
9164 |
|
(type (simple-array (signed-byte 8) nil) r) (type (integer * 22050378) p1)) |
9165 |
|
(setf (aref r) (lognand (the (integer 19464371) p1) 2257)) |
9166 |
|
(values))))) |
9167 |
|
(funcall fn r 19469591) |
9168 |
|
(aref r)) |
9169 |
|
-18) |
9170 |
|
|
9171 |
|
|
9172 |
|
|