From 43e4bbf237e1bfa49a684ce754f4054088f78a6b Mon Sep 17 00:00:00 2001
From: pfdietz <pfdietz@localhost>
Date: Thu, 27 Apr 2006 00:07:37 +0000
Subject: [PATCH] Added tests of (ignorable (function (setf <symbol>)))

---
 ansi-tests/ignorable.lsp | 31 +++++++++++++++++++++++++++++++
 1 file changed, 31 insertions(+)

diff --git a/ansi-tests/ignorable.lsp b/ansi-tests/ignorable.lsp
index 08a3754e..9f1b3c06 100644
--- a/ansi-tests/ignorable.lsp
+++ b/ansi-tests/ignorable.lsp
@@ -23,3 +23,34 @@
     (declare (ignorable (function %f)))
     (%f))
   foo)
+
+;;; TODO: add a test for (function (setf foo))
+
+(deftest ignorable.5
+  (flet (((setf %f) (x y) nil))
+	(declare (ignorable (function (setf %f))))
+	:good)
+  :good)
+
+(deftest ignorable.6
+  (flet (((setf %f) (x y) (setf (car y) x)))
+	(declare (ignorable (function (setf %f))))
+	(let ((z (cons 'a 'b)))
+	  (values (setf (%f z) 'c) z)))
+  c (c . b))
+
+(deftest ignorable.7
+  (labels (((setf %f) (x y) nil))
+	  (declare (ignorable (function (setf %f))))
+	  :good)
+  :good)
+
+(deftest ignorable.8
+  (labels (((setf %f) (x y) (setf (car y) x)))
+	  (declare (ignorable (function (setf %f))))
+	  (let ((z (cons 'a 'b)))
+	    (values (setf (%f z) 'c) z)))
+  c (c . b))
+
+
+
-- 
GitLab