/[gcl]/gcl/ansi-tests/define-modify-macro.lsp
ViewVC logotype

Diff of /gcl/ansi-tests/define-modify-macro.lsp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.7 by pfdietz, Sat Jan 17 12:44:01 2004 UTC revision 1.8 by pfdietz, Sat Jun 4 18:27:43 2005 UTC
# Line 84  Line 84 
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)

Legend:
Removed from v.1.7  
changed lines
  Added in v.1.8

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26