9416 |
-34832621)))))) |
-34832621)))))) |
9417 |
-26788929)) |
-26788929)) |
9418 |
116871) |
116871) |
9419 |
|
|
9420 |
|
(deftest misc.510 |
9421 |
|
(let #+abcl ((jvm::*catch-errors* nil)) |
9422 |
|
nil |
9423 |
|
(funcall |
9424 |
|
(compile nil '(lambda (a) |
9425 |
|
(declare (type (integer -2827 3400) a)) |
9426 |
|
(declare (optimize (compilation-speed 1) (space 3) (debug 1) |
9427 |
|
(safety 0) (speed 1))) |
9428 |
|
(logand (the integer (dotimes (iv4 2 a) (progn iv4)))))) |
9429 |
|
155)) |
9430 |
|
155) |
9431 |
|
|
9432 |
|
(deftest misc.511 |
9433 |
|
(let #+abcl ((jvm::*catch-errors* nil)) |
9434 |
|
nil |
9435 |
|
(funcall |
9436 |
|
(compile nil '(lambda (a) |
9437 |
|
(declare (type (integer 18967 23584) a)) |
9438 |
|
(declare (ignorable a)) |
9439 |
|
(declare (optimize (space 1) (speed 1) (debug 1) |
9440 |
|
(compilation-speed 3) (safety 1))) |
9441 |
|
(the integer |
9442 |
|
(values (loop for lv4 below 2 count (find a '(16389))))))) |
9443 |
|
21352)) |
9444 |
|
0) |
9445 |
|
|
9446 |
|
;;; Inconsistent stack height |
9447 |
|
|
9448 |
|
(deftest misc.512 |
9449 |
|
(let #+abcl ((jvm::*catch-errors* nil)) |
9450 |
|
nil |
9451 |
|
(funcall |
9452 |
|
(compile nil '(lambda (a) |
9453 |
|
(declare (type (integer 1 188902468) a)) |
9454 |
|
(declare (ignorable a)) |
9455 |
|
(declare (optimize (space 2) (speed 3) (safety 3) |
9456 |
|
(compilation-speed 0) (debug 2))) |
9457 |
|
(catch 'ct6 |
9458 |
|
(the integer |
9459 |
|
(let* ((v3 (signum (ignore-errors a)))) |
9460 |
|
(declare (dynamic-extent v3)) |
9461 |
|
(throw 'ct6 |
9462 |
|
(round (case (prog2 |
9463 |
|
(lognor 290171664 v3) |
9464 |
|
-3512003993 |
9465 |
|
-550842867) |
9466 |
|
((4) (* 1 4092)) |
9467 |
|
((21 220 225) |
9468 |
|
(block b1 |
9469 |
|
(setf v3 |
9470 |
|
(let* ((v9 v3)) |
9471 |
|
a)))) |
9472 |
|
(t -639367819))))))))) |
9473 |
|
49008586)) |
9474 |
|
-639367819 |
9475 |
|
0) |
9476 |
|
|
9477 |
|
;;; COMPILE-FORM: unsupported special operator LET* |
9478 |
|
;;; Associated with 'THE' operator |
9479 |
|
|
9480 |
|
(deftest misc.513 |
9481 |
|
(let #+abcl ((jvm::*catch-errors* nil)) |
9482 |
|
nil |
9483 |
|
(funcall |
9484 |
|
(compile nil '(lambda (a) |
9485 |
|
(declare (type (integer -2 75025568) a)) |
9486 |
|
(declare (ignorable a)) |
9487 |
|
(declare (optimize (space 0) (compilation-speed 0) (safety 0) |
9488 |
|
(speed 2) (debug 2))) |
9489 |
|
(let* ((v8 |
9490 |
|
(cons (the integer |
9491 |
|
(prog2 a |
9492 |
|
-1558460 |
9493 |
|
a |
9494 |
|
(ignore-errors (progn (tagbody) -49510826)) |
9495 |
|
a)) |
9496 |
|
0))) |
9497 |
|
0))) |
9498 |
|
68043554)) |
9499 |
|
0) |
9500 |
|
|
9501 |
|
(deftest misc.514 |
9502 |
|
(let #+abcl ((jvm::*catch-errors* nil)) |
9503 |
|
nil |
9504 |
|
(funcall |
9505 |
|
(compile nil '(lambda (a) |
9506 |
|
(declare (type (integer -6844832476 188341751) a)) |
9507 |
|
(declare (optimize (speed 3) (debug 1) (safety 0) (space 3) |
9508 |
|
(compilation-speed 1))) |
9509 |
|
(the integer (multiple-value-setq (a) -96073358)))) |
9510 |
|
-3792864899)) |
9511 |
|
-96073358) |
9512 |
|
|
9513 |
|
|
9514 |
|
|
9515 |
|
|
9516 |
|
|
9517 |
|
|
9518 |
|
|
9519 |
|
|
9520 |
|
|