Commit 86787ccb authored by pfdietz's avatar pfdietz

Add tests for (function (setf ...)) for ignore and dynamic-extent declarations

parent 43e4bbf2
......@@ -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)
......@@ -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)
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment