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)