998 |
-12)))) |
-12)))) |
999 |
-12) |
-12) |
1000 |
|
|
1001 |
|
;;; cmucl (2003-10-12) "Invalid number of arguments: 2" |
1002 |
|
(deftest misc.80 |
1003 |
|
(funcall |
1004 |
|
(compile nil |
1005 |
|
'(lambda (b c) |
1006 |
|
(declare (notinline > logior imagpart)) |
1007 |
|
(declare (optimize (speed 0) (debug 0))) |
1008 |
|
(labels ((%f16 () |
1009 |
|
(imagpart |
1010 |
|
(block b3 |
1011 |
|
(logeqv (logior -122516 (if (> -1 0) (return-from b3 c) b)) |
1012 |
|
(return-from %f16 32186310)))))) |
1013 |
|
(lognor (%f16) b)))) |
1014 |
|
-123886 -1656) |
1015 |
|
57385) |
1016 |
|
|
1017 |
|
;;; cmucl (2003-10-12) "NIL is not of type C::REF" |
1018 |
|
(deftest misc.81 |
1019 |
|
(funcall |
1020 |
|
(compile nil '(lambda (b) |
1021 |
|
(block b7 |
1022 |
|
(let ((v3 (return-from b7 b))) |
1023 |
|
(unwind-protect b))))) |
1024 |
|
17) |
1025 |
|
17) |
1026 |
|
|
1027 |
|
;;; cmucl (2003-10-12) "The assertion C::SUCC failed" |
1028 |
|
(deftest misc.82 |
1029 |
|
(funcall |
1030 |
|
(compile nil '(lambda (c) |
1031 |
|
(labels ((%f15 () |
1032 |
|
(* (unwind-protect c) |
1033 |
|
(max -5726369 |
1034 |
|
(return-from %f15 3099206))))) |
1035 |
|
c))) |
1036 |
|
0) |
1037 |
|
0) |
1038 |
|
|