Changeset 13696 for trunk/abcl/src/org/armedbear/lisp/defmacro.lisp

Timestamp:

11/15/11 22:34:19 (10 years ago)

Author:

astalla

Message:

DEFMACRO now supports documentation strings as per the ANSI specification.

File:

• trunk/abcl/src/org/armedbear/lisp/defmacro.lisp (modified) (2 diffs)

trunk/abcl/src/org/armedbear/lisp/defmacro.lisp

@@ -38 +38 @@
   (let* ((whole (gensym "WHOLE-"))
          (env   (gensym "ENVIRONMENT-")))
-    (multiple-value-bind (body decls)
+    (multiple-value-bind (body decls documentation)
         (parse-defmacro lambda-list whole body name 'defmacro :environment env)
       (let ((expander `(lambda (,whole ,env) ,@decls ,body)))
@@ -48 +48 @@
                    `((fset ',name macro)))
              (%set-arglist macro ',lambda-list)
+             ,@(when documentation
+                     `((%set-documentation ',name 'cl:function ,documentation)))
              ',name))))))