9344 |
(prog2 (if 0 (+ a a) 0) 0))) |
(prog2 (if 0 (+ a a) 0) 0))) |
9345 |
200000)) |
200000)) |
9346 |
0) |
0) |
9347 |
|
|
9348 |
|
(deftest misc.505 |
9349 |
|
(let #+abcl ((jvm::*catch-errors* nil)) |
9350 |
|
nil |
9351 |
|
(funcall |
9352 |
|
(compile nil '(lambda (a) |
9353 |
|
(declare (type (integer -6 5) a)) |
9354 |
|
(declare (optimize (speed 3) (space 0) (safety 2) |
9355 |
|
(compilation-speed 2) (debug 3))) |
9356 |
|
(dotimes (iv1 0 0) (+ a a)))) |
9357 |
|
1)) |
9358 |
|
0) |
9359 |
|
|
9360 |
|
(deftest misc.506 |
9361 |
|
(let #+abcl ((jvm::*catch-errors* nil)) |
9362 |
|
nil |
9363 |
|
(funcall |
9364 |
|
(compile nil '(lambda (a) |
9365 |
|
(declare (type (integer -53 49) a)) |
9366 |
|
(declare (optimize (debug 0) (compilation-speed 1) (space 2) |
9367 |
|
(safety 0) (speed 0))) |
9368 |
|
(unwind-protect (+ a a) 0))) |
9369 |
|
-38)) |
9370 |
|
-76) |
9371 |
|
|
9372 |
|
;;; The value 15390 is not of type FUNCTION. |
9373 |
|
(deftest misc.507 |
9374 |
|
(funcall |
9375 |
|
(compile nil '(lambda (a) |
9376 |
|
(declare (type (integer 2697 13005) a)) |
9377 |
|
(declare (optimize (debug 0) (space 2) (speed 2) |
9378 |
|
(compilation-speed 3) (safety 3))) |
9379 |
|
(truncate (prog1 0 a (+ a a))))) |
9380 |
|
7695) |
9381 |
|
0 0) |