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