From 67df78f933b7b41c5ec529dc7a5bf3f6084427db Mon Sep 17 00:00:00 2001
From: pfdietz <pfdietz@localhost>
Date: Sat, 4 Jun 2005 18:27:43 +0000
Subject: [PATCH] Add documentation tests for DEFINE-MODIFY-MACRO

---
 ansi-tests/define-modify-macro.lsp | 21 +++++++++++++++++++++
 1 file changed, 21 insertions(+)

diff --git a/ansi-tests/define-modify-macro.lsp b/ansi-tests/define-modify-macro.lsp
index 89e39273..a6c13e38 100644
--- a/ansi-tests/define-modify-macro.lsp
+++ b/ansi-tests/define-modify-macro.lsp
@@ -84,3 +84,24 @@
 
 (def-macro-test define-modify-macro.error.1
   (define-modify-macro nonexistent-modify-macro () foo))
+
+;;; Documentation tests
+
+(deftest define-modify-macro.documentation.1
+  (let ((sym (gensym)))
+    (eval `(define-modify-macro ,sym (&optional (delta 1)) +))
+    (values
+     (documentation sym 'function)
+     (documentation (macro-function sym) 'function)
+     (documentation (macro-function sym) t)))
+  nil nil nil)
+
+(deftest define-modify-macro.documentation.2
+  (let ((sym (gensym))
+	(doc "DMM-DOC"))
+    (eval `(define-modify-macro ,sym (&optional (delta 1)) + ,doc))
+    (values
+     (equalt doc (or (documentation sym 'function) doc))
+     (equalt doc (or (documentation (macro-function sym) 'function) doc))
+     (equalt doc (or (documentation (macro-function sym) t) doc))))
+  t t t)
-- 
GitLab