# HG changeset patch
# User Glenn Morris <rgm@gnu.org>
# Date 1227149914 0
# Node ID a972544240b93b18c961f96246ad411612ac1397
# Parent  510c89530d24374a018b1d58d4b5bd1c748ccc0b
Comment.

diff -r 510c89530d24 -r a972544240b9 lisp/emacs-lisp/cl-macs.el
--- a/lisp/emacs-lisp/cl-macs.el	Thu Nov 20 02:51:58 2008 +0000
+++ b/lisp/emacs-lisp/cl-macs.el	Thu Nov 20 02:58:34 2008 +0000
@@ -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)))