From 7c603f7abb7a785a25a6f62426690aafa318e863 Mon Sep 17 00:00:00 2001 From: pfdietz <pfdietz@localhost> Date: Sun, 26 Jun 2005 02:49:20 +0000 Subject: [PATCH] DOCUMENTATION tests --- ansi-tests/define-setf-expander.lsp | 23 +++++++++++++++++++++++ 1 file changed, 23 insertions(+) diff --git a/ansi-tests/define-setf-expander.lsp b/ansi-tests/define-setf-expander.lsp index 623c7911..8941b34f 100644 --- a/ansi-tests/define-setf-expander.lsp +++ b/ansi-tests/define-setf-expander.lsp @@ -100,3 +100,26 @@ (copy-tree x))) nil 1 ((foo . 1)) 2 ((foo . 2)) 3 ((bar . 3) (foo . 2))) +(deftest define-setf-expander.6 + (let ((n (gensym)) + (doc "D-S-EX.6")) + (assert (null (documentation n 'setf))) + (assert (eql (eval `(define-setf-expander ,n () + ,doc (values nil nil nil nil nil))) + n)) + (or (documentation n 'setf) doc)) + "D-S-EX.6") + +(deftest define-setf-expander.7 + (let ((n (gensym)) + (doc "D-S-EX.7")) + (assert (null (documentation n 'setf))) + (assert (eql (eval `(define-setf-expander ,n () + (values nil nil nil nil nil))) + n)) + (assert (null (documentation n 'setf))) + (values + (setf (documentation n 'setf) doc) + (or (documentation n 'setf) doc))) + "D-S-EX.7" + "D-S-EX.7") -- GitLab