Mercurial > hg > xemacs-beta

comparison lisp/cl.el @ 371:cc15677e0335 r21-2b1

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2b1
author cvs
date Mon, 13 Aug 2007 11:03:08 +0200
parents a4f53d9b3154
children 8626e4521993
comparison
equal deleted inserted replaced
370:bd866891f083 371:cc15677e0335
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 specifies an environment of macro 283 The second optional arg ENVIRONMENT species 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))))