Changeset 13696 for trunk/abcl/src/org/armedbear/lisp/defmacro.lisp
- Timestamp:
- 11/15/11 22:34:19 (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/abcl/src/org/armedbear/lisp/defmacro.lisp
r11391 r13696 38 38 (let* ((whole (gensym "WHOLE-")) 39 39 (env (gensym "ENVIRONMENT-"))) 40 (multiple-value-bind (body decls )40 (multiple-value-bind (body decls documentation) 41 41 (parse-defmacro lambda-list whole body name 'defmacro :environment env) 42 42 (let ((expander `(lambda (,whole ,env) ,@decls ,body))) … … 48 48 `((fset ',name macro))) 49 49 (%set-arglist macro ',lambda-list) 50 ,@(when documentation 51 `((%set-documentation ',name 'cl:function ,documentation))) 50 52 ',name))))))
Note: See TracChangeset
for help on using the changeset viewer.