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