Mercurial > emacs
changeset 87975:c4f53aa37d97
Trivial change.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Fri, 25 Jan 2008 22:52:26 +0000 |
| parents | 97c3cc0a167b |
| children | d56fb4ed60d1 |
| files | lisp/emacs-lisp/cl-macs.el |
| diffstat | 1 files changed, 6 insertions(+), 5 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/emacs-lisp/cl-macs.el Fri Jan 25 22:51:18 2008 +0000 +++ b/lisp/emacs-lisp/cl-macs.el Fri Jan 25 22:52:26 2008 +0000 @@ -2508,11 +2508,12 @@ omitted, a default message listing FORM itself is used." (and (or (not (cl-compiling-file)) (< cl-optimize-speed 3) (= cl-optimize-safety 3)) - (let ((sargs (and show-args (delq nil (mapcar - (function - (lambda (x) - (and (not (cl-const-expr-p x)) - x))) (cdr form)))))) + (let ((sargs (and show-args + (delq nil (mapcar + (lambda (x) + (unless (cl-const-expr-p x) + x)) + (cdr form)))))) (list 'progn (list 'or form (if string