From a366c909a2fb40347c1c07644f93802ea6034c39 Mon Sep 17 00:00:00 2001
From: pfdietz <pfdietz@localhost>
Date: Mon, 10 Nov 2003 02:50:12 +0000
Subject: [PATCH] Added test for gcl (seg fault in notinlined funcall.

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

diff --git a/ansi-tests/misc.lsp b/ansi-tests/misc.lsp
index 58019edf..eb940eca 100644
--- a/ansi-tests/misc.lsp
+++ b/ansi-tests/misc.lsp
@@ -2084,3 +2084,17 @@
                          (multiple-value-call #'%f9 (values v2 v2))))
                    100)))))
   100)
+
+;;; gcl (9 Nov 2003) bug
+;;; Error in FUNCALL [or a callee]: Caught fatal error [memory may be damaged]
+
+(deftest misc.160
+  (funcall
+   (compile nil
+	    '(lambda (c)
+	       (declare (notinline + funcall))
+	       (+ (labels ((%f1 () -14)) (funcall #'%f1))
+		  (flet ((%f2 () (floor c))) (funcall #'%f2)))))
+   0)
+  -14)
+
-- 
GitLab