Changeset 13696


Ignore:
Timestamp:
11/15/11 22:34:19 (9 years ago)
Author:
astalla
Message:

DEFMACRO now supports documentation strings as per the ANSI specification.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/abcl/src/org/armedbear/lisp/defmacro.lisp

    r11391 r13696  
    3838  (let* ((whole (gensym "WHOLE-"))
    3939         (env   (gensym "ENVIRONMENT-")))
    40     (multiple-value-bind (body decls)
     40    (multiple-value-bind (body decls documentation)
    4141        (parse-defmacro lambda-list whole body name 'defmacro :environment env)
    4242      (let ((expander `(lambda (,whole ,env) ,@decls ,body)))
     
    4848                   `((fset ',name macro)))
    4949             (%set-arglist macro ',lambda-list)
     50             ,@(when documentation
     51                     `((%set-documentation ',name 'cl:function ,documentation)))
    5052             ',name))))))
Note: See TracChangeset for help on using the changeset viewer.