8188 |
(logior |
(logior |
8189 |
(let* ((v5 (reduce #'+ (list 0 a)))) |
(let* ((v5 (reduce #'+ (list 0 a)))) |
8190 |
(declare (dynamic-extent v5)) |
(declare (dynamic-extent v5)) |
8191 |
v5)))) |
(1- v5))))) |
8192 |
17) |
17) |
8193 |
17) |
16) |
8194 |
|
|
8195 |
(deftest misc.428 |
(deftest misc.428 |
8196 |
(funcall |
(funcall |
8217 |
(logandc1 v8 28))))) |
(logandc1 v8 28))))) |
8218 |
28) |
28) |
8219 |
|
|
8220 |
|
;;; poplog 15.53 |
8221 |
|
;;; Excess type specifier(s) in THE special form |
8222 |
|
|
8223 |
|
(deftest misc.430 |
8224 |
|
(unwind-protect 0 (the integer 1)) |
8225 |
|
0) |
8226 |
|
|
8227 |
|
;;; Wrong return values: T, 0 |
8228 |
|
(deftest misc.431 |
8229 |
|
(funcall |
8230 |
|
(compile |
8231 |
|
nil |
8232 |
|
'(lambda (a) (declare (notinline > *)) |
8233 |
|
(declare (optimize (compilation-speed 0) (safety 2) (speed 2) (debug 0) (space 3))) |
8234 |
|
(catch 'ct1 (* a (throw 'ct1 (if (> 0) a 0)))))) |
8235 |
|
5445205692802) |
8236 |
|
5445205692802) |
8237 |
|
|
8238 |
|
;;; Ste: stack empty (missing argument? missing result?) |
8239 |
|
(deftest misc.432 |
8240 |
|
(loop for x below 2 count (not (not (typep x t)))) |
8241 |
|
2) |
8242 |
|
|
8243 |
|
(deftest misc.433 |
8244 |
|
(let ((a 1)) (if (not (/= a 0)) a 0)) |
8245 |
|
0) |
8246 |
|
|