1351 |
(block b7 (- b (ignore-errors (return-from b7 57876)))))) |
(block b7 (- b (ignore-errors (return-from b7 57876)))))) |
1352 |
10) |
10) |
1353 |
57876) |
57876) |
1354 |
|
|
1355 |
|
;;; "The assertion (C::CONSTANT-CONTINUATION-P C::CONT) failed." (cmucl) |
1356 |
|
(deftest misc.109 |
1357 |
|
(funcall (compile |
1358 |
|
nil |
1359 |
|
'(lambda () |
1360 |
|
(load-time-value |
1361 |
|
(block b4 |
1362 |
|
(* (return-from b4 -27) |
1363 |
|
(block b5 |
1364 |
|
(return-from b4 |
1365 |
|
(return-from b5 |
1366 |
|
(ignore-errors (unwind-protect |
1367 |
|
(return-from b5 0)))))))))))) |
1368 |
|
-27) |
1369 |
|
|
1370 |
|
;;; This bug was occuring a lot in sbcl, and now occurs in cmucl too |
1371 |
|
(deftest misc.110 |
1372 |
|
(funcall |
1373 |
|
(compile nil |
1374 |
|
'(lambda (c) |
1375 |
|
(declare (type (integer -1441970837 -427) c)) |
1376 |
|
(declare (optimize (speed 3))) |
1377 |
|
(declare (optimize (safety 1))) |
1378 |
|
(declare (optimize (debug 1))) |
1379 |
|
(block b7 (abs (min c (ignore-errors (return-from b7 c))))))) |
1380 |
|
-500) |
1381 |
|
-500) |
1382 |
|
|
1383 |
|
;;; CLISP (2.31+) compiler bug |
1384 |
|
|
1385 |
|
(deftest misc.111 |
1386 |
|
(funcall |
1387 |
|
(compile nil |
1388 |
|
'(lambda (a c) |
1389 |
|
(if (or (ldb-test (byte 12 18) a) |
1390 |
|
(not (and t (not (if (not (and c t)) nil nil))))) |
1391 |
|
170 -110730))) |
1392 |
|
3035465333 1919088834) |
1393 |
|
170) |