9319 |
(deftest misc.503 |
(deftest misc.503 |
9320 |
(funcall |
(funcall |
9321 |
(compile nil '(lambda (a) |
(compile nil '(lambda (a) |
|
; (declare (type (integer -3392166213 2904445263) a)) |
|
9322 |
(declare (optimize (space 3) (debug 1) (speed 2) (safety 0) |
(declare (optimize (space 3) (debug 1) (speed 2) (safety 0) |
9323 |
(compilation-speed 1))) |
(compilation-speed 1))) |
9324 |
(catch 'ct1 |
(catch 'ct1 |
9329 |
:end 8 :start 6 :from-end t)))))) |
:end 8 :start 6 :from-end t)))))) |
9330 |
17) |
17) |
9331 |
-6) |
-6) |
9332 |
|
|
9333 |
|
;;; Inconsistent stack height |
9334 |
|
|
9335 |
|
(deftest misc.504 |
9336 |
|
(let #+abcl ((jvm::*catch-errors* nil)) |
9337 |
|
nil |
9338 |
|
(funcall |
9339 |
|
(compile nil '(lambda (a) |
9340 |
|
(declare (type (integer 196060 241373941) a)) |
9341 |
|
(declare (ignorable a)) |
9342 |
|
(declare (optimize (speed 3) (debug 0) (safety 2) |
9343 |
|
(compilation-speed 3) (space 2))) |
9344 |
|
(prog2 (if 0 (+ a a) 0) 0))) |
9345 |
|
200000)) |
9346 |
|
0) |