84 |
|
|
85 |
(def-macro-test define-modify-macro.error.1 |
(def-macro-test define-modify-macro.error.1 |
86 |
(define-modify-macro nonexistent-modify-macro () foo)) |
(define-modify-macro nonexistent-modify-macro () foo)) |
87 |
|
|
88 |
|
;;; Documentation tests |
89 |
|
|
90 |
|
(deftest define-modify-macro.documentation.1 |
91 |
|
(let ((sym (gensym))) |
92 |
|
(eval `(define-modify-macro ,sym (&optional (delta 1)) +)) |
93 |
|
(values |
94 |
|
(documentation sym 'function) |
95 |
|
(documentation (macro-function sym) 'function) |
96 |
|
(documentation (macro-function sym) t))) |
97 |
|
nil nil nil) |
98 |
|
|
99 |
|
(deftest define-modify-macro.documentation.2 |
100 |
|
(let ((sym (gensym)) |
101 |
|
(doc "DMM-DOC")) |
102 |
|
(eval `(define-modify-macro ,sym (&optional (delta 1)) + ,doc)) |
103 |
|
(values |
104 |
|
(equalt doc (or (documentation sym 'function) doc)) |
105 |
|
(equalt doc (or (documentation (macro-function sym) 'function) doc)) |
106 |
|
(equalt doc (or (documentation (macro-function sym) t) doc)))) |
107 |
|
t t t) |