[Emacs-diffs] Changes to emacs/lisp/emacs-lisp/cl-macs.el,v

[Richard M. Stallman]

CVSROOT:        /cvsroot/emacs
Module name:    emacs
Changes by:     Richard M. Stallman <rms>       08/01/25 22:52:27

Index: cl-macs.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/emacs-lisp/cl-macs.el,v
retrieving revision 1.68
retrieving revision 1.69
diff -u -b -r1.68 -r1.69
--- cl-macs.el  8 Jan 2008 20:45:32 -0000       1.68
+++ cl-macs.el  25 Jan 2008 22:52:26 -0000      1.69
@@ -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
+       (let ((sargs (and show-args
+                        (delq nil (mapcar
                                               (lambda (x)
-                                                (and (not (cl-const-expr-p x))
-                                                     x))) (cdr form))))))
+                                      (unless (cl-const-expr-p x)
+                                        x))
+                                   (cdr form))))))
         (list 'progn
               (list 'or form
                     (if string