9379 |
(truncate (prog1 0 a (+ a a))))) |
(truncate (prog1 0 a (+ a a))))) |
9380 |
7695) |
7695) |
9381 |
0 0) |
0 0) |
9382 |
|
|
9383 |
|
;;; COMPILE-FORM: unsupported special operator LET* |
9384 |
|
;;; Associated with 'THE' operator |
9385 |
|
|
9386 |
|
(deftest misc.508 |
9387 |
|
(let #+abcl ((jvm::*catch-errors* nil)) |
9388 |
|
nil |
9389 |
|
(funcall |
9390 |
|
(compile nil '(lambda (a) |
9391 |
|
(declare (type (integer -57853147 -2) a)) |
9392 |
|
(declare (ignorable a)) |
9393 |
|
(declare (optimize (debug 2) (space 1) (compilation-speed 3) |
9394 |
|
(safety 1) (speed 2))) |
9395 |
|
(the integer |
9396 |
|
(mask-field (byte 2 29) |
9397 |
|
(ash (multiple-value-setq (a) -51781613) |
9398 |
|
(min 1 a)))))) |
9399 |
|
-29324754)) |
9400 |
|
1610612736) |
9401 |
|
|
9402 |
|
(deftest misc.509 |
9403 |
|
(let #+abcl ((jvm::*catch-errors* nil)) |
9404 |
|
nil |
9405 |
|
(funcall |
9406 |
|
(compile nil '(lambda (a) |
9407 |
|
(declare (type (integer -38984312 657) a)) |
9408 |
|
(declare (ignorable a)) |
9409 |
|
(declare (optimize (debug 1) (compilation-speed 1) (speed 1) |
9410 |
|
(safety 2) (space 3))) |
9411 |
|
(the integer |
9412 |
|
(if (> a -27907941364) |
9413 |
|
116871 |
9414 |
|
(cl:handler-case |
9415 |
|
(multiple-value-setq (a) |
9416 |
|
-34832621)))))) |
9417 |
|
-26788929)) |
9418 |
|
116871) |