diff --git a/ansi-tests/dynamic-extent.lsp b/ansi-tests/dynamic-extent.lsp
index 14648cd3075751d12d1ea756329e5b98829dfb39..147dd307cf803f1e864150b6cdff18ffdb27c257 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 1375fad3555cb5587a8475015a9a1416df59e9d8..596241f77c8b7474c93d7dba763cc6f5e8828b2e 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)