9572 |
(if (evenp (%f10 0 0)) 0 2140390))))) |
(if (evenp (%f10 0 0)) 0 2140390))))) |
9573 |
2140390) |
2140390) |
9574 |
|
|
9575 |
|
;;; Error in APPLY [or a callee]: fixnum or bignum expected |
9576 |
|
;;; Broken at COMPILER::CMP-ANON. |
9577 |
|
|
9578 |
|
(deftest misc.519 |
9579 |
|
(funcall |
9580 |
|
(compile |
9581 |
|
nil |
9582 |
|
'(lambda () |
9583 |
|
(declare (optimize (compilation-speed 0) (speed 1) (debug 1) |
9584 |
|
(space 1) (safety 3))) |
9585 |
|
(let ((*s3* |
9586 |
|
(* (the integer |
9587 |
|
(expt (rationalize |
9588 |
|
(multiple-value-bind (*s3*) |
9589 |
|
(make-array nil :initial-element 0) |
9590 |
|
(shiftf (aref *s3*) 0))) |
9591 |
|
2))))) |
9592 |
|
1)))) |
9593 |
|
1) |
9594 |
|
|
9595 |
|
;;; sbcl 0.8.18 (sparc solaris) |
9596 |
|
;;; identity ASH not transformed away |
9597 |
|
|
9598 |
|
(deftest misc.520 |
9599 |
|
(funcall |
9600 |
|
(compile |
9601 |
|
nil |
9602 |
|
'(lambda (a c e) |
9603 |
|
(declare (type (integer -44330 64753) c)) |
9604 |
|
(declare (type (integer -301534047 4291509) e)) |
9605 |
|
(declare (optimize (safety 3) (debug 2) (speed 3) |
9606 |
|
(space 2) (compilation-speed 2))) |
9607 |
|
(if (oddp |
9608 |
|
(ash (logorc2 c e) |
9609 |
|
(min 2 (mask-field (byte 0 0) (mod 0 (max 69 0)))))) |
9610 |
|
a |
9611 |
|
0))) |
9612 |
|
1 -8156 -229264929) |
9613 |
|
0) |