8788 |
-26179151369) |
-26179151369) |
8789 |
-24004952244) |
-24004952244) |
8790 |
|
|
8791 |
|
;;; gcl 18 Dec 2004 |
8792 |
|
;;; Doesn't cause an error, unless -Werror is added to gcc flags |
8793 |
|
;;; gazonk0.c: In function `L1': |
8794 |
|
;;; gazonk0.c:5257: warning: assignment makes integer from pointer without a cast |
8795 |
|
|
8796 |
|
(deftest misc.462 |
8797 |
|
(funcall |
8798 |
|
(compile nil '(lambda (a b) |
8799 |
|
(declare (type (integer -2726808666112 -26532) a)) |
8800 |
|
(declare (type (integer 182701814 171137312256) b)) |
8801 |
|
(declare (ignorable a b)) |
8802 |
|
(declare (optimize (compilation-speed 3) (safety 0) |
8803 |
|
(speed 3) (space 3) (debug 3))) |
8804 |
|
(ash (let* ((v8 (cons 0 0))) 0) (min 15 a)))) |
8805 |
|
-1982565461868 46279989780) |
8806 |
|
0) |
8807 |
|
|
8808 |
|
;;; gazonk0.c: In function `L1': |
8809 |
|
;;; gazonk0.c:5262: warning: assignment makes integer from pointer without a cast |
8810 |
|
(deftest misc.463 |
8811 |
|
(funcall |
8812 |
|
(compile nil '(lambda (a b) |
8813 |
|
(declare (type (integer 0 0) a)) |
8814 |
|
(declare (type (integer -160364747008 264742845184) b)) |
8815 |
|
(declare (ignorable a b)) |
8816 |
|
(declare (optimize (debug 0) (safety 0) |
8817 |
|
(compilation-speed 2) (space 0) |
8818 |
|
(speed 1))) |
8819 |
|
(ash (multiple-value-setq (a) 0) (min 97 13027666096)))) |
8820 |
|
0 34670845086) |
8821 |
|
0) |
8822 |
|
|
8823 |
|
|
8824 |
|
|