9312 |
(+ a (setq a 35035201)))) |
(+ a (setq a 35035201)))) |
9313 |
29207264) |
29207264) |
9314 |
64242465) |
64242465) |
9315 |
|
|
9316 |
|
;;; ABCL 27 Dec 2004 |
9317 |
|
;;; Different results |
9318 |
|
|
9319 |
|
(deftest misc.503 |
9320 |
|
(funcall |
9321 |
|
(compile nil '(lambda (a) |
9322 |
|
; (declare (type (integer -3392166213 2904445263) a)) |
9323 |
|
(declare (optimize (space 3) (debug 1) (speed 2) (safety 0) |
9324 |
|
(compilation-speed 1))) |
9325 |
|
(catch 'ct1 |
9326 |
|
(throw 'ct1 |
9327 |
|
(catch 'ct5 |
9328 |
|
(reduce 'min |
9329 |
|
(vector 0 0 0 a a 0 0 (values 0 0) (throw 'ct5 -6)) |
9330 |
|
:end 8 :start 6 :from-end t)))))) |
9331 |
|
17) |
9332 |
|
-6) |