From 43e4bbf237e1bfa49a684ce754f4054088f78a6b Mon Sep 17 00:00:00 2001 From: pfdietz <pfdietz@localhost> Date: Thu, 27 Apr 2006 00:07:37 +0000 Subject: [PATCH] Added tests of (ignorable (function (setf <symbol>))) --- ansi-tests/ignorable.lsp | 31 +++++++++++++++++++++++++++++++ 1 file changed, 31 insertions(+) diff --git a/ansi-tests/ignorable.lsp b/ansi-tests/ignorable.lsp index 08a3754e..9f1b3c06 100644 --- a/ansi-tests/ignorable.lsp +++ b/ansi-tests/ignorable.lsp @@ -23,3 +23,34 @@ (declare (ignorable (function %f))) (%f)) foo) + +;;; TODO: add a test for (function (setf foo)) + +(deftest ignorable.5 + (flet (((setf %f) (x y) nil)) + (declare (ignorable (function (setf %f)))) + :good) + :good) + +(deftest ignorable.6 + (flet (((setf %f) (x y) (setf (car y) x))) + (declare (ignorable (function (setf %f)))) + (let ((z (cons 'a 'b))) + (values (setf (%f z) 'c) z))) + c (c . b)) + +(deftest ignorable.7 + (labels (((setf %f) (x y) nil)) + (declare (ignorable (function (setf %f)))) + :good) + :good) + +(deftest ignorable.8 + (labels (((setf %f) (x y) (setf (car y) x))) + (declare (ignorable (function (setf %f)))) + (let ((z (cons 'a 'b))) + (values (setf (%f z) 'c) z))) + c (c . b)) + + + -- GitLab