From 86787ccb0c19bb54e5e454c7652bf9d9f426bba7 Mon Sep 17 00:00:00 2001
From: pfdietz <pfdietz@localhost>
Date: Thu, 27 Apr 2006 01:01:45 +0000
Subject: [PATCH] Add tests for (function (setf ...)) for ignore and
 dynamic-extent declarations

---
 ansi-tests/dynamic-extent.lsp | 18 +++++++++++-------
 ansi-tests/ignore.lsp         | 13 ++++++++++---
 2 files changed, 21 insertions(+), 10 deletions(-)

diff --git a/ansi-tests/dynamic-extent.lsp b/ansi-tests/dynamic-extent.lsp
index 14648cd3..147dd307 100644
--- a/ansi-tests/dynamic-extent.lsp
+++ b/ansi-tests/dynamic-extent.lsp
@@ -114,12 +114,16 @@
     (notnot (every #'(lambda (c) (eql c #\a)) s)))
   t)
 
-
-
-
-
-
-
-
+(deftest dynamic-extent.15
+  (flet (((setf %f) (x y) (setf (car y) x)))
+	(declare (dynamic-extent #'(setf %f)))
+	:good)
+  :good)
+
+(deftest dynamic-extent.16
+  (labels (((setf %f) (x y) (setf (car y) x)))
+	  (declare (dynamic-extent #'(setf %f)))
+	  :good)
+  :good)
 
 
diff --git a/ansi-tests/ignore.lsp b/ansi-tests/ignore.lsp
index 1375fad3..596241f7 100644
--- a/ansi-tests/ignore.lsp
+++ b/ansi-tests/ignore.lsp
@@ -24,7 +24,14 @@
     (%f))
   foo)
 
-    
-
+(deftest ignore.5
+  (flet (((setf %f) (x y) (setf (car y) x)))
+	(declare (ignore (function (setf %f))))
+	:good)
+  :good)
 
-    
+(deftest ignore.6
+  (labels (((setf %f) (x y) (setf (car y) x)))
+	  (declare (ignore (function (setf %f))))
+	  :good)
+  :good)
-- 
GitLab