9285 |
(speed 1) (safety 3))) |
(speed 1) (safety 3))) |
9286 |
(the integer (integer-length (dotimes (iv4 2 15790955))))))) |
(the integer (integer-length (dotimes (iv4 2 15790955))))))) |
9287 |
24) |
24) |
9288 |
|
|
9289 |
|
;;; Inconsistent stack height 1 != 0 |
9290 |
|
|
9291 |
|
(deftest misc.501 |
9292 |
|
(let #+abcl ((jvm::*catch-errors* nil)) |
9293 |
|
nil |
9294 |
|
(funcall |
9295 |
|
(compile nil '(lambda (a) |
9296 |
|
(declare (type (integer -437165353 179983908) a)) |
9297 |
|
(declare (optimize (compilation-speed 0) (debug 1) (space 1) |
9298 |
|
(safety 2) (speed 1))) |
9299 |
|
(dotimes (iv1 0 0) (1+ a)))) |
9300 |
|
1)) |
9301 |
|
0) |
9302 |
|
|
9303 |
|
;;; Ordering problems |
9304 |
|
|
9305 |
|
(deftest misc.502 |
9306 |
|
(funcall |
9307 |
|
(compile nil '(lambda (a) |
9308 |
|
(declare (type (integer -7 84717795) a)) |
9309 |
|
(declare (ignorable a)) |
9310 |
|
(declare (optimize (speed 1) (space 1) (debug 1) (safety 2) |
9311 |
|
(compilation-speed 0))) |
9312 |
|
(+ a (setq a 35035201)))) |
9313 |
|
29207264) |
9314 |
|
64242465) |