From: Glenn Morris <rgm@gnu.org>
Date: Thu, 20 Nov 2008 02:58:34 +0000 (+0000)
Subject: Comment.
X-Git-Tag: emacs-pretest-23.0.90~1680
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=a54fdddbe5d8fd6e62e4f521abc188dac3a10a8a;p=emacs.git

Comment.
---

diff --git a/lisp/emacs-lisp/cl-macs.el b/lisp/emacs-lisp/cl-macs.el
index 08864962f08..a2c6218d838 100644
--- a/lisp/emacs-lisp/cl-macs.el
+++ b/lisp/emacs-lisp/cl-macs.el
@@ -1333,6 +1333,8 @@ go back to their previous definitions, or lack thereof).
 		 (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)))