1 |
;;; macroexp.el --- Additional macro-expansion support |
;;; macroexp.el --- Additional macro-expansion support |
2 |
;; |
;; |
3 |
;; Copyright (C) 2001, 2002, 2003 Free Software Foundation, Inc. |
;; Copyright (C) 2004, 2005 Free Software Foundation, Inc. |
4 |
;; |
;; |
5 |
;; Author: Miles Bader <miles@gnu.org> |
;; Author: Miles Bader <miles@gnu.org> |
6 |
;; Keywords: lisp, compiler, macros |
;; Keywords: lisp, compiler, macros |
91 |
CLAUSES is a list of lists of forms; any clause that's not a list is ignored. |
CLAUSES is a list of lists of forms; any clause that's not a list is ignored. |
92 |
If SKIP is non-nil, then don't expand that many elements at the start of |
If SKIP is non-nil, then don't expand that many elements at the start of |
93 |
each clause." |
each clause." |
94 |
(macroexp-accumulate (clause clauses) |
(macroexp-accumulate (clause clauses) |
95 |
(if (listp clause) |
(if (listp clause) |
96 |
(macroexpand-all-forms clause skip) |
(macroexpand-all-forms clause skip) |
97 |
clause))) |
clause))) |