9551 |
)) |
)) |
9552 |
(declare (special *s8*)) |
(declare (special *s8*)) |
9553 |
0)))) |
0)))) |
|
0) |
|
9554 |
|
0) |
9555 |
|
|
9556 |
|
;;; Incorrect return value |
9557 |
|
;;; (This also causes an error in CLISP) |
9558 |
|
|
9559 |
|
(deftest misc.518 |
9560 |
|
(funcall |
9561 |
|
(compile nil '(lambda () |
9562 |
|
(declare (optimize (compilation-speed 0) (safety 1) |
9563 |
|
(debug 1) (space 0) (speed 3))) |
9564 |
|
(flet ((%f10 (&optional (f10-1 0) (f10-2 0) &key) |
9565 |
|
(progn |
9566 |
|
(tagbody |
9567 |
|
(decf f10-2) |
9568 |
|
(return-from %f10 |
9569 |
|
(complex (unwind-protect (go tag7)) |
9570 |
|
0)) |
9571 |
|
tag7) |
9572 |
|
f10-2))) |
9573 |
|
(if (evenp (%f10 0 0)) 0 2140390))))) |
9574 |
|
2140390) |
9575 |
|
|