/[defdoc]/DefDoc/src/frontends/basic/engine.lisp
ViewVC logotype

Diff of /DefDoc/src/frontends/basic/engine.lisp

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

revision 1.1.1.1 by rjain, Sun Dec 7 23:27:06 2003 UTC revision 1.2 by rjain, Sun Feb 15 05:01:45 2004 UTC
# Line 17  Line 17 
17                               `(doc ,@item)))                               `(doc ,@item)))
18                         contents))))                         contents))))
19    
20  (defmacro doc (type initargs &body body)  (defmacro doc (type &optional initargs &body body)
21    (let ((initargs (quote-keynames initargs)))    (let ((initargs (quote-keynames initargs)))
22      `(make-instance ',type      `(make-instance ',type
23         'contents ,(make-contents-form body)         'contents ,(make-contents-form body)

Legend:
Removed from v.1.1.1.1  
changed lines
  Added in v.1.2

  ViewVC Help
Powered by ViewVC 1.1.5