1086 |
'(x y z)) |
'(x y z)) |
1087 |
z) |
z) |
1088 |
|
|
1089 |
|
;;; cmucl bug (18e+ 10/15/03) |
1090 |
(deftest misc.88 |
(deftest misc.88 |
1091 |
(eval '(block b3 |
(eval '(block b3 |
1092 |
(max (return-from b3 1) |
(max (return-from b3 1) |
1093 |
(if (unwind-protect (unwind-protect 2)) 3 4)))) |
(if (unwind-protect (unwind-protect 2)) 3 4)))) |
1094 |
1) |
1) |
1095 |
|
|
1096 |
|
;;; cmucl bug (18e+ 10/15/03) |
1097 |
|
(deftest misc.89 |
1098 |
|
(funcall |
1099 |
|
(compile nil |
1100 |
|
'(lambda (c) |
1101 |
|
(declare (type (integer 0 130304) c)) |
1102 |
|
(- (rem -26 (max 25 (load-time-value 505849129))) |
1103 |
|
(* -15718867961526428520296254978781964 c)))) |
1104 |
|
0) |
1105 |
|
26) |
1106 |
|
|
1107 |
|
;;; acl bug (version 6.2, linux x86 trial) |
1108 |
|
(deftest misc.90 |
1109 |
|
(let* ((form '(- 0 (ignore-errors 20763) |
1110 |
|
(logxor b 1 c -7672794) b)) |
1111 |
|
(fn1 `(lambda (b c) |
1112 |
|
(declare (type (integer -148895 -46982) b)) |
1113 |
|
(declare (type (integer 0 1) c)) |
1114 |
|
(declare (optimize (speed 3))) |
1115 |
|
(declare (optimize (safety 1))) |
1116 |
|
,form)) |
1117 |
|
(fn2 `(lambda (b c) ,form))) |
1118 |
|
(let ((v1 (funcall (compile nil fn1) -76071 0)) |
1119 |
|
(v2 (funcall (compile nil fn2) -76071 0)) |
1120 |
|
(v3 (funcall (eval `(function ,fn2)) -76071 0))) |
1121 |
|
(if (= v1 v2 v3) :good |
1122 |
|
(list v1 v2 v3)))) |
1123 |
|
:good) |
1124 |
|
|
1125 |
|
;;; acl bug (version 6.2, linux x86 trial) |
1126 |
|
(deftest misc.91 |
1127 |
|
(let ((fn1 '(lambda () |
1128 |
|
(declare (optimize (speed 3) (safety 1))) |
1129 |
|
(ash -10 (min 8 -481)))) |
1130 |
|
(fn2 '(lambda () (ash -10 (min 8 -481))))) |
1131 |
|
(let ((v1 (funcall (compile nil fn1))) |
1132 |
|
(v2 (funcall (compile nil fn2))) |
1133 |
|
(v3 (funcall (eval `(function ,fn2))))) |
1134 |
|
(if (= v1 v2 v3) |
1135 |
|
:good |
1136 |
|
(list v1 v2 v3)))) |
1137 |
|
:good) |
1138 |
|
|
1139 |
|
;;; acl bug (version 6.2, linux x86 trial) |
1140 |
|
(deftest misc.92 |
1141 |
|
(let* ((form '(- -16179207 b (lognor (let () 3) (logxor -17567197 c)))) |
1142 |
|
(fn1 `(lambda (b c) |
1143 |
|
(declare (type (integer -621 30) c)) |
1144 |
|
(declare (optimize (speed 3))) |
1145 |
|
(declare (optimize (safety 1))) |
1146 |
|
,form)) |
1147 |
|
(fn2 `(lambda (b c) ,form)) |
1148 |
|
(vals '(26291532469 -21))) |
1149 |
|
(let ((v1 (apply (compile nil fn1) vals)) |
1150 |
|
(v2 (apply (compile nil fn2) vals)) |
1151 |
|
(v3 (apply (eval `(function ,fn2)) vals))) |
1152 |
|
(if (= v1 v2 v3) |
1153 |
|
:good |
1154 |
|
(list v1 v2 v3)))) |
1155 |
|
:good) |
1156 |
|
|
1157 |
|
|