763 |
(truncate (max (round a) c) (* (* a a) a)))) |
(truncate (max (round a) c) (* (* a a) a)))) |
764 |
-10 1000) |
-10 1000) |
765 |
-1 0) |
-1 0) |
766 |
|
|
767 |
|
(deftest misc.57 |
768 |
|
(funcall |
769 |
|
(compile nil '(lambda (a b c) |
770 |
|
(declare (type (integer -1907 58388940297) a) |
771 |
|
(type (integer -646968358 294016) b) |
772 |
|
(type (integer -708435313 89383896) c) |
773 |
|
(optimize (speed 3) (safety 1) (debug 1))) |
774 |
|
(let ((v6 (abs (min a (signum c))))) |
775 |
|
(if (ceiling v6 (max 77 v6)) b 2)))) |
776 |
|
50005747335 -363030456 17382819) |
777 |
|
-363030456) |
778 |
|
|