From dbfc79d8be57a243d709275e811fe4cdf17b6d9a Mon Sep 17 00:00:00 2001
From: pfdietz <pfdietz@localhost>
Date: Tue, 15 Jun 2004 00:26:50 +0000
Subject: [PATCH] Downcase test misc.336

---
 ansi-tests/misc.lsp | 22 ++++++++++++++++++++--
 1 file changed, 20 insertions(+), 2 deletions(-)

diff --git a/ansi-tests/misc.lsp b/ansi-tests/misc.lsp
index 3f9da3b8..50a5e362 100644
--- a/ansi-tests/misc.lsp
+++ b/ansi-tests/misc.lsp
@@ -6314,8 +6314,8 @@ Broken at C::WT-C-INLINE-LOC.
   1)
 
 (deftest misc.336
-  (PROG2 (PROGN (TAGBODY (- (COMMON-LISP:HANDLER-CASE (GO TAG2)))
-			 TAG2)
+  (prog2 (progn (tagbody (- (common-lisp:handler-case (go tag2)))
+			 tag2)
 		0)
 	 0)
   0)
@@ -7400,3 +7400,21 @@ Broken at C::WT-C-INLINE-LOC.
    -49966124671 -68547159 12944)
   8015)
 
+;;; Evaluation order bug
+(deftest misc.390
+  (funcall
+   (compile
+    nil
+    '(lambda (a b c)
+       (declare (type (integer -257 -140) a))
+       (declare (type (integer -1 1069496658) b))
+       (declare (type (integer -4 2001960914944) c))
+       (declare (ignorable a b c))
+       (declare (optimize (speed 2) (space 0) (safety 1) (debug 0)
+			  (compilation-speed 1)))
+       (labels ((%f12 (f12-1 &optional (f12-2 (setq b 63838027)) &key
+			     (key1 0) (key2 0))
+		      b))
+	 (boole boole-orc2 b (let ((*s3* (%f12 0))) -14)))))
+   -173 1028908375 1289968133290)
+  1028908383)
-- 
GitLab