From 804820bd68151e544c788a841bb96d4ec2a46b74 Mon Sep 17 00:00:00 2001
From: pfdietz <pfdietz@localhost>
Date: Thu, 7 Oct 2004 13:07:35 +0000
Subject: [PATCH] Random test failures for ecl (06/10/04 build, cvs head)

---
 ansi-tests/misc.lsp | 105 ++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 105 insertions(+)

diff --git a/ansi-tests/misc.lsp b/ansi-tests/misc.lsp
index 2330e328..1fd5a808 100644
--- a/ansi-tests/misc.lsp
+++ b/ansi-tests/misc.lsp
@@ -7866,4 +7866,109 @@ Broken at C::WT-C-INLINE-LOC.
 	0))
   0)
 
+;;; ecl (07 Oct 2004)
+;;; (0 . 0) is not of type REAL
+
+(deftest misc.409
+  (funcall
+   (compile
+    nil
+    '(lambda (a b)
+       (declare (type (integer -40524 53538) a))
+       (declare (type (integer -5967075 -235) b))
+       (declare (ignorable a b))
+       (declare (optimize (speed 2) (safety 1) (space 2)
+			  (compilation-speed 3) (debug 0)))
+       (labels ((%f2 (f2-1 f2-2 &optional (f2-3 0) (f2-4 a)) 0))
+	 (apply #'%f2 a
+		(%f2 b
+		     (flet ((%f12 (f12-1 f12-2 f12-3 &optional &key
+					 (key1 0) (key2 0))
+				  (%f2 0 0)))
+		       (reduce #'(lambda (lmv2 lmv1) (%f2 0 0 a))
+			       (list 0 0 a 0 0 0 a) :end 7))
+		     0)
+		nil))))
+   -7465 -3590953)
+  0)
+
+#|
+;;; A bug was found in the compiler.  Contact worm@arrakis.es.
+
+Broken at C::WT-MAKE-CLOSURE.
+|#
+(deftest misc.410
+  (funcall
+   (compile
+    nil
+    '(lambda ()
+       (declare (optimize (safety 0) (space 1) (compilation-speed 0)
+			  (speed 2) (debug 0)))
+       (let ((*s2* 0))
+	 (declare (special *s2*))
+	 (reduce #'(lambda (lmv1 lmv2) *s2*) (vector 0) :end 1
+		 :start 0)))))
+  0)
+
+;;; THROW: The catch CT2 is undefined.
+(deftest misc.411
+  (funcall
+   (compile
+    nil
+    '(lambda ()
+       (declare (optimize (safety 2) (debug 0) (space 0)
+			  (compilation-speed 2) (speed 0)))
+       (catch 'ct2 (values 0 (throw 'ct2 0)))
+       0)))
+  0)
+
+;;; /tmp/eclDD7aumXi8.c: In function `LC3':
+;;; /tmp/eclDD7aumXi8.c:9: `env0' undeclared (first use in this function)
+(deftest misc.412
+  (funcall
+   (compile
+    nil
+    '(lambda (a b)
+       (declare (type (integer -25409 1946) a))
+       (declare (type (integer -215956065 223815244) b))
+       (declare (ignorable a b))
+       (declare (optimize (compilation-speed 2) (space 3) (debug 2)
+			  (safety 1) (speed 3)))
+       (complex (flet ((%f15 (f15-1 &optional &key (key1 0)) 0))
+		  (reduce #'(lambda (lmv6 lmv1) (%f15 lmv1))
+			  (list b 0)))
+		0)))
+   -21802 -105983932)
+  0)
+
+;;; Different resutls: #<a type-error>, 0
+(deftest misc.413
+  (funcall
+   (compile
+    nil
+    '(lambda (a b)
+       (declare (type (integer -120206733 37762378) a))
+       (declare (type (integer 2777758072 5675328792) b))
+       (declare (ignorable a b))
+       (declare (optimize (compilation-speed 3) (space 3) (debug 3)
+			  (safety 0) (speed 1)))
+       (labels ((%f8 (f8-1 f8-2 &optional &key (key1 0))
+		     (let* ((v2 (ash f8-1 (min 63 a)))) 0)))
+	 (ignore-errors
+	   (logand (apply #'%f8 0 b nil)
+		   (unwind-protect
+		       0
+		     (ash (%f8 0 0)
+			  (min 48
+			       (flet
+				   ((%f12
+				     (f12-1 f12-2 &optional &key
+					    (key1 a) (key2 b)
+					    &allow-other-keys)
+				     0))
+				 b)))))))))
+   -4794909 4095236669)
+  0)
+
+
 
-- 
GitLab