Mercurial > hg > xemacs-beta

comparison lisp/cl.el @ 367:a4f53d9b3154 r21-1-13

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-1-13
author cvs
date Mon, 13 Aug 2007 11:01:07 +0200
parents 558f606b08ae
children cc15677e0335
comparison
equal deleted inserted replaced
366:83d76f480a59 367:a4f53d9b3154
278 "Return result of expanding macros at top level of FORM. 278 "Return result of expanding macros at top level of FORM.
279 If FORM is not a macro call, it is returned unchanged. 279 If FORM is not a macro call, it is returned unchanged.
280 Otherwise, the macro is expanded and the expansion is considered 280 Otherwise, the macro is expanded and the expansion is considered
281 in place of FORM. When a non-macro-call results, it is returned. 281 in place of FORM. When a non-macro-call results, it is returned.
282 282
283 The second optional arg ENVIRONMENT species an environment of macro 283 The second optional arg ENVIRONMENT specifies an environment of macro
284 definitions to shadow the loaded ones for use in file byte-compilation." 284 definitions to shadow the loaded ones for use in file byte-compilation."
285 (let ((cl-macro-environment cl-env)) 285 (let ((cl-macro-environment cl-env))
286 (while (progn (setq cl-macro (funcall cl-old-macroexpand cl-macro cl-env)) 286 (while (progn (setq cl-macro (funcall cl-old-macroexpand cl-macro cl-env))
287 (and (symbolp cl-macro) 287 (and (symbolp cl-macro)
288 (cdr (assq (symbol-name cl-macro) cl-env)))) 288 (cdr (assq (symbol-name cl-macro) cl-env))))