From ae494b903b5b9f5204b34c874ecb3d1b97c84076 Mon Sep 17 00:00:00 2001
From: pfdietz <pfdietz@localhost>
Date: Mon, 10 Nov 2003 03:52:05 +0000
Subject: [PATCH] A couple of CMUCL bugs, including a new one using FUNCALL.

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

diff --git a/ansi-tests/misc.lsp b/ansi-tests/misc.lsp
index eb940eca..aa4d3483 100644
--- a/ansi-tests/misc.lsp
+++ b/ansi-tests/misc.lsp
@@ -2098,3 +2098,35 @@
    0)
   -14)
 
+;;; cmucl (9 Nov 2003)
+;;; The assertion (NOT (MEMBER C::KIND '(:DELETED :OPTIONAL :TOP-LEVEL))) failed.
+
+(deftest misc.161
+  (funcall
+   (compile nil
+	    '(lambda (a b c)
+	       (flet ((%f17 (f17-1 f17-2 f17-3)
+			    (flet ((%f2
+				    (f2-1 f2-2
+					  &optional (f2-3 (return-from %f17 f17-1))
+					  (f2-4 (return-from %f17 -57)))
+				    b))
+			      (multiple-value-call #'%f2 (values c -588 55101157)))))
+		 (if nil
+		     (let* ((v6 (%f17 102136 3096194 a)))
+		       b)
+		   c))))
+   -511 -2269809964 250738)
+  250738)
+
+;;; cmucl (9 Nov 2003) Incorrect result at SPEED 0.
+
+(deftest misc.162
+  (let* ((fn `(lambda (a c)
+		(declare (notinline funcall)
+			 (optimize (speed 0) (debug 0)))
+		(labels ((%f17 (f17-1 &optional (f17-4 c))
+			       (return-from %f17 (if f17-4 f17-1 49572640))))
+		  (funcall #'%f17 15128425 a)))))
+    (funcall (compile nil fn) 1 3))
+  15128425)
-- 
GitLab