8568 |
(unwind-protect (throw 'ct7 b) 0))))) |
(unwind-protect (throw 'ct7 b) 0))))) |
8569 |
-1748290 -244489705763 38969920 -90 341977) |
-1748290 -244489705763 38969920 -90 341977) |
8570 |
-244489705763) |
-244489705763) |
8571 |
|
|
8572 |
|
;;; misc.444 |
8573 |
|
;;; misc.445 |
8574 |
|
|
8575 |
|
;;; gcl 25 Nov 2004 |
8576 |
|
;;; Incorrect return value |
8577 |
|
(deftest misc.446 |
8578 |
|
(funcall |
8579 |
|
(compile |
8580 |
|
nil |
8581 |
|
'(lambda (a b c d) |
8582 |
|
(declare (type (integer -1254 1868060) a)) |
8583 |
|
(declare (type (integer -1 0) b)) |
8584 |
|
(declare (type (integer -424707253248 -82453721088) c)) |
8585 |
|
(declare (type (integer -252962 3018671) d)) |
8586 |
|
(declare (ignorable a b c d)) |
8587 |
|
(declare (optimize (safety 3) (space 3) (speed 3) |
8588 |
|
(compilation-speed 3) (debug 3))) |
8589 |
|
(* (labels ((%f8 (&optional (f8-1 0)) (setq b 0))) |
8590 |
|
(if (> d 1668249724 (%f8)) 0 (complex a 0))) |
8591 |
|
(if (oddp b) 0 c)))) |
8592 |
|
796131 -1 -338008808923 530637) |
8593 |
|
-269099291056676913) |
8594 |
|
|
8595 |
|
(deftest misc.447 |
8596 |
|
(funcall |
8597 |
|
(compile |
8598 |
|
nil |
8599 |
|
'(lambda (a) |
8600 |
|
(declare (type (integer 38632397 46632460288) a)) |
8601 |
|
(declare (optimize (space 0) (safety 0) (debug 1) |
8602 |
|
(compilation-speed 1) (speed 0))) |
8603 |
|
(catch 'ct2 (if (= a 0 (throw 'ct2 0)) 1 2289596)))) |
8604 |
|
18160383912) |
8605 |
|
0) |
8606 |
|
|
8607 |
|
(deftest misc.448 |
8608 |
|
(funcall |
8609 |
|
(compile |
8610 |
|
nil |
8611 |
|
'(lambda (a b) |
8612 |
|
(declare (type (integer -3716 1269) a)) |
8613 |
|
(declare (type (integer -1976579 2312) b)) |
8614 |
|
(declare (optimize (compilation-speed 1) (safety 0) |
8615 |
|
(speed 0) (space 0) (debug 3))) |
8616 |
|
(if (<= 0 b (setq a 117)) 0 a))) |
8617 |
|
-1147 -44004) |
8618 |
|
117) |
8619 |
|
|
8620 |
|
|