949 |
(declare (optimize (safety 3) (speed 0) (debug 0))) |
(declare (optimize (safety 3) (speed 0) (debug 0))) |
950 |
(ash 6916244 (min 42 -185236061640))))) |
(ash 6916244 (min 42 -185236061640))))) |
951 |
0) |
0) |
952 |
|
|
953 |
|
;;; Unwind-protect bug, from sbcl: |
954 |
|
;;; "The value NIL is not of type SB-C::NODE." |
955 |
|
|
956 |
|
(deftest misc.75 |
957 |
|
(funcall (compile nil '(lambda () (flet ((%f12 () (unwind-protect 1))) 0)))) |
958 |
|
0) |
959 |
|
|
960 |
|
|
961 |
|
;;; cmucl (2003-10-12), "NIL is not of type C::REF" |
962 |
|
(deftest misc.76 |
963 |
|
(funcall |
964 |
|
(compile nil |
965 |
|
'(lambda (a c) |
966 |
|
(if nil (unwind-protect (max 521739 (unwind-protect c))) |
967 |
|
(logandc2 3942 a)))) |
968 |
|
0 0) |
969 |
|
3942) |
970 |
|
|
971 |
|
;;; gcl (2003-10-11) Miscomputation of (mod 0 -53) in compiled code |
972 |
|
(deftest misc.77 |
973 |
|
(funcall (compile nil '(lambda () (mod 0 -53)))) |
974 |
|
0) |
975 |
|
|
976 |
|
|
977 |
|
;;; cmucl (2003-10-12) "NIL is not of type C::BYTE-LAMBDA-INFO" |
978 |
|
(deftest misc.78 |
979 |
|
(funcall |
980 |
|
(compile nil '(lambda () |
981 |
|
(declare (optimize (speed 0) (debug 0))) |
982 |
|
(let ((v4 |
983 |
|
(case 227 |
984 |
|
((-11113 -106126) (unwind-protect 8473)) |
985 |
|
(t 43916)))) |
986 |
|
-12)))) |
987 |
|
-12) |
988 |
|
|
989 |
|
;;; Same as misc.78, but with no declarations |
990 |
|
;;; In cmucl (2003-10-12) "NIL is not of type C::ENVIRONMENT" |
991 |
|
(deftest misc.79 |
992 |
|
(funcall |
993 |
|
(compile nil '(lambda () |
994 |
|
(let ((v4 |
995 |
|
(case 227 |
996 |
|
((-11113 -106126) (unwind-protect 8473)) |
997 |
|
(t 43916)))) |
998 |
|
-12)))) |
999 |
|
-12) |
1000 |
|
|