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