7866 |
0)) |
0)) |
7867 |
0) |
0) |
7868 |
|
|
7869 |
|
;;; ecl (07 Oct 2004) |
7870 |
|
;;; (0 . 0) is not of type REAL |
7871 |
|
|
7872 |
|
(deftest misc.409 |
7873 |
|
(funcall |
7874 |
|
(compile |
7875 |
|
nil |
7876 |
|
'(lambda (a b) |
7877 |
|
(declare (type (integer -40524 53538) a)) |
7878 |
|
(declare (type (integer -5967075 -235) b)) |
7879 |
|
(declare (ignorable a b)) |
7880 |
|
(declare (optimize (speed 2) (safety 1) (space 2) |
7881 |
|
(compilation-speed 3) (debug 0))) |
7882 |
|
(labels ((%f2 (f2-1 f2-2 &optional (f2-3 0) (f2-4 a)) 0)) |
7883 |
|
(apply #'%f2 a |
7884 |
|
(%f2 b |
7885 |
|
(flet ((%f12 (f12-1 f12-2 f12-3 &optional &key |
7886 |
|
(key1 0) (key2 0)) |
7887 |
|
(%f2 0 0))) |
7888 |
|
(reduce #'(lambda (lmv2 lmv1) (%f2 0 0 a)) |
7889 |
|
(list 0 0 a 0 0 0 a) :end 7)) |
7890 |
|
0) |
7891 |
|
nil)))) |
7892 |
|
-7465 -3590953) |
7893 |
|
0) |
7894 |
|
|
7895 |
|
#| |
7896 |
|
;;; A bug was found in the compiler. Contact worm@arrakis.es. |
7897 |
|
|
7898 |
|
Broken at C::WT-MAKE-CLOSURE. |
7899 |
|
|# |
7900 |
|
(deftest misc.410 |
7901 |
|
(funcall |
7902 |
|
(compile |
7903 |
|
nil |
7904 |
|
'(lambda () |
7905 |
|
(declare (optimize (safety 0) (space 1) (compilation-speed 0) |
7906 |
|
(speed 2) (debug 0))) |
7907 |
|
(let ((*s2* 0)) |
7908 |
|
(declare (special *s2*)) |
7909 |
|
(reduce #'(lambda (lmv1 lmv2) *s2*) (vector 0) :end 1 |
7910 |
|
:start 0))))) |
7911 |
|
0) |
7912 |
|
|
7913 |
|
;;; THROW: The catch CT2 is undefined. |
7914 |
|
(deftest misc.411 |
7915 |
|
(funcall |
7916 |
|
(compile |
7917 |
|
nil |
7918 |
|
'(lambda () |
7919 |
|
(declare (optimize (safety 2) (debug 0) (space 0) |
7920 |
|
(compilation-speed 2) (speed 0))) |
7921 |
|
(catch 'ct2 (values 0 (throw 'ct2 0))) |
7922 |
|
0))) |
7923 |
|
0) |
7924 |
|
|
7925 |
|
;;; /tmp/eclDD7aumXi8.c: In function `LC3': |
7926 |
|
;;; /tmp/eclDD7aumXi8.c:9: `env0' undeclared (first use in this function) |
7927 |
|
(deftest misc.412 |
7928 |
|
(funcall |
7929 |
|
(compile |
7930 |
|
nil |
7931 |
|
'(lambda (a b) |
7932 |
|
(declare (type (integer -25409 1946) a)) |
7933 |
|
(declare (type (integer -215956065 223815244) b)) |
7934 |
|
(declare (ignorable a b)) |
7935 |
|
(declare (optimize (compilation-speed 2) (space 3) (debug 2) |
7936 |
|
(safety 1) (speed 3))) |
7937 |
|
(complex (flet ((%f15 (f15-1 &optional &key (key1 0)) 0)) |
7938 |
|
(reduce #'(lambda (lmv6 lmv1) (%f15 lmv1)) |
7939 |
|
(list b 0))) |
7940 |
|
0))) |
7941 |
|
-21802 -105983932) |
7942 |
|
0) |
7943 |
|
|
7944 |
|
;;; Different resutls: #<a type-error>, 0 |
7945 |
|
(deftest misc.413 |
7946 |
|
(funcall |
7947 |
|
(compile |
7948 |
|
nil |
7949 |
|
'(lambda (a b) |
7950 |
|
(declare (type (integer -120206733 37762378) a)) |
7951 |
|
(declare (type (integer 2777758072 5675328792) b)) |
7952 |
|
(declare (ignorable a b)) |
7953 |
|
(declare (optimize (compilation-speed 3) (space 3) (debug 3) |
7954 |
|
(safety 0) (speed 1))) |
7955 |
|
(labels ((%f8 (f8-1 f8-2 &optional &key (key1 0)) |
7956 |
|
(let* ((v2 (ash f8-1 (min 63 a)))) 0))) |
7957 |
|
(ignore-errors |
7958 |
|
(logand (apply #'%f8 0 b nil) |
7959 |
|
(unwind-protect |
7960 |
|
0 |
7961 |
|
(ash (%f8 0 0) |
7962 |
|
(min 48 |
7963 |
|
(flet |
7964 |
|
((%f12 |
7965 |
|
(f12-1 f12-2 &optional &key |
7966 |
|
(key1 a) (key2 b) |
7967 |
|
&allow-other-keys) |
7968 |
|
0)) |
7969 |
|
b))))))))) |
7970 |
|
-4794909 4095236669) |
7971 |
|
0) |
7972 |
|
|
7973 |
|
|
7974 |
|
|