886 |
(* x 390))) |
(* x 390))) |
887 |
10604862) |
10604862) |
888 |
4135896180) |
4135896180) |
889 |
|
|
890 |
|
;;; cmucl bug (cvs, 10/10/2003) |
891 |
|
(deftest misc.68 |
892 |
|
(funcall |
893 |
|
(compile nil |
894 |
|
'(lambda (b) |
895 |
|
(flet ((%f8 () (rem b (identity (return-from %f8 0))))) |
896 |
|
(lognor (%f8) 0)))) |
897 |
|
0) |
898 |
|
-1) |
899 |
|
|
900 |
|
(deftest misc.69 |
901 |
|
(funcall |
902 |
|
(compile nil |
903 |
|
'(lambda (b) |
904 |
|
(flet ((%f11 () (logorc2 (block b1 (let () (return-from b1 b))) |
905 |
|
-1984))) |
906 |
|
b))) |
907 |
|
0) |
908 |
|
0) |
909 |
|
|
910 |
|
(deftest misc.70 |
911 |
|
(funcall |
912 |
|
(compile nil '(lambda (c) |
913 |
|
(declare (type (integer 46156191457 126998564334) c)) |
914 |
|
(truncate c (min -16 186196583)))) |
915 |
|
87723029763) |
916 |
|
-5482689360 |
917 |
|
3) |
918 |
|
|
919 |
|
(deftest misc.71 |
920 |
|
(funcall |
921 |
|
(compile nil |
922 |
|
'(lambda () |
923 |
|
(block b8 |
924 |
|
(if (identity (return-from b8 30)) |
925 |
|
1 |
926 |
|
(identity |
927 |
|
(block b5 |
928 |
|
(labels ((%f10 () (min -52 (return-from b5 10)))) |
929 |
|
20)))))))) |
930 |
|
30) |
931 |
|
|
932 |
|
(deftest misc.72 |
933 |
|
(funcall |
934 |
|
(compile nil '(lambda () |
935 |
|
(flet ((%f13 () (rem 1 (min 0 (return-from %f13 17))))) |
936 |
|
(%f13))))) |
937 |
|
17) |
938 |
|
|
939 |
|
(deftest misc.73 |
940 |
|
(funcall |
941 |
|
(compile nil '(lambda (c) |
942 |
|
(declare (type (integer 46156191457 126998564334) c)) |
943 |
|
(rem c (min -1 0)))) |
944 |
|
87723029763) |
945 |
|
0) |