diff options
| author | Richard M. Stallman <rms@gnu.org> | 2008-01-25 22:52:50 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 2008-01-25 22:52:50 +0000 |
| commit | 2b88d62a493196add69d764cf971e4f10ab1e42d (patch) | |
| tree | 9367a9e510dca47b2ec246f2715c8ccf5027566d /lisp/emacs-lisp | |
| parent | 3531046188b20307bb5097cd5d41012ba87bb3af (diff) | |
| download | emacs-2b88d62a493196add69d764cf971e4f10ab1e42d.tar.gz emacs-2b88d62a493196add69d764cf971e4f10ab1e42d.tar.bz2 emacs-2b88d62a493196add69d764cf971e4f10ab1e42d.zip | |
Trivial change.
Diffstat (limited to 'lisp/emacs-lisp')
| -rw-r--r-- | lisp/emacs-lisp/cl-macs.el | 11 |
1 files changed, 6 insertions, 5 deletions
diff --git a/lisp/emacs-lisp/cl-macs.el b/lisp/emacs-lisp/cl-macs.el index 9e078d04be3..17da9cc5154 100644 --- a/lisp/emacs-lisp/cl-macs.el +++ b/lisp/emacs-lisp/cl-macs.el @@ -2508,11 +2508,12 @@ They are not evaluated unless the assertion fails. If STRING is 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 |