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

[Glenn Morris]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Glenn Morris <gm>       08/11/20 02:58:35

Index: cl-macs.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/emacs-lisp/cl-macs.el,v
retrieving revision 1.77
retrieving revision 1.78
diff -u -b -r1.77 -r1.78
--- cl-macs.el  23 Oct 2008 02:40:09 -0000      1.77
+++ cl-macs.el  20 Nov 2008 02:58:34 -0000      1.78
@@ -1333,6 +1333,8 @@
                 (and (get (car x) 'byte-compile)
                      (error "Byte-compiling a redefinition of `%s' \
 will not work - use `labels' instead" (symbol-name (car x))))
+                ;; FIXME This affects the rest of the file, when it
+                ;; should be restricted to the flet body.
                 (and (boundp 'byte-compile-function-environment)
                      (push (cons (car x) (eval func))
                            byte-compile-function-environment)))