From 9d4c9a863349b4606ad7fdf9e7544e80d634b40f Mon Sep 17 00:00:00 2001
From: pfdietz <pfdietz@localhost>
Date: Sat, 29 May 2004 11:11:55 +0000
Subject: [PATCH] Two more test cases for abcl

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

diff --git a/ansi-tests/misc.lsp b/ansi-tests/misc.lsp
index 6a3f12f6..7778af97 100644
--- a/ansi-tests/misc.lsp
+++ b/ansi-tests/misc.lsp
@@ -7194,3 +7194,29 @@ Broken at C::WT-C-INLINE-LOC.
 	 0)))
    10)
   0)
+
+(deftest misc.378
+  (funcall
+   (compile
+    nil
+    '(lambda (c)
+       (declare (optimize (speed 1) (space 0) (safety 1) (debug 3)
+			  (compilation-speed 2)))
+       (dotimes (iv4 3 0)
+	 (restart-case (round (multiple-value-bind (*s6*) (cons c 0)
+				(car *s6*)))))))
+   1)
+  0)
+
+(deftest misc.379
+  (funcall
+   (compile
+    nil
+    '(lambda ()
+       (declare (optimize (speed 2) (space 0) (safety 2) (debug 2)
+			  (compilation-speed 1)))
+       (values (floor 0) (multiple-value-bind (v3) (cons 0 0) (car v3))))))
+  0 0)
+
+
+   
-- 
GitLab