diff --git a/ansi-tests/define-modify-macro.lsp b/ansi-tests/define-modify-macro.lsp index 89e39273af9961f31283492a10ffdf2435387b6d..a6c13e386010f4fa05fe2963fc4a680568caddbc 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)