From eb660c1ea35d77037fcabffda8011d776ecdfb62 Mon Sep 17 00:00:00 2001
From: pfdietz <pfdietz@localhost>
Date: Sun, 5 Mar 2006 03:13:07 +0000
Subject: [PATCH] Added two new tests for sbcl 0.9.10.11 (bug in constantp?)

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

diff --git a/ansi-tests/misc.lsp b/ansi-tests/misc.lsp
index b140a927..22cce3d7 100644
--- a/ansi-tests/misc.lsp
+++ b/ansi-tests/misc.lsp
@@ -11215,5 +11215,32 @@ Broken at C::WT-MAKE-CLOSURE.
     (funcall (compile nil form) s))
   1)
 
+;;; sbcl 0.9.10.11
+;;; Failures associated with MULTIPLE-VALUE-PROG1
+;;; Argument X is not a NUMBER: NIL
+;;; (SB-KERNEL:TWO-ARG-/ NIL 1)
+
+(deftest misc.630
+  (funcall
+   (compile
+    nil
+    '(lambda ()
+       (declare (optimize (speed 1) (debug 0)
+			  (space 2) (safety 0) (compilation-speed 0)))
+       (unwind-protect 0
+	 (* (/ (multiple-value-prog1 -29457482 -5602513511) 1))))))
+  0)
+
+;;; Argument X is not a INTEGER: NIL
+;;; (SB-KERNEL:TWO-ARG-AND NIL 1)
+
+(deftest misc.631
+  (if (flet ((%f17 (f17-1 f17-2 f17-3
+                          &optional
+                          &key (key1 0)
+                          (key2 (if (evenp (multiple-value-prog1 0)) 0 0)))
+		   0))
+	    0)
+      0 0)
+  0)
 
-  
-- 
GitLab