[Emacs-diffs] /srv/bzr/emacs/trunk r104437: * bytecomp.el (byte-compile-defvar): Add note about quoted lambda.

[Stefan Monnier]

------------------------------------------------------------
revno: 104437
committer: Stefan Monnier <address@hidden>
branch nick: trunk
timestamp: Mon 2011-05-30 14:14:19 -0300
message:
  * bytecomp.el (byte-compile-defvar): Add note about quoted lambda.
modified:
  lisp/emacs-lisp/bytecomp.el

=== modified file 'lisp/emacs-lisp/bytecomp.el'
--- a/lisp/emacs-lisp/bytecomp.el       2011-05-23 01:15:17 +0000
+++ b/lisp/emacs-lisp/bytecomp.el       2011-05-30 17:14:19 +0000
@@ -4155,6 +4155,8 @@
            (if (eq fun 'defconst)
                ;; `defconst' sets `var' unconditionally.
                (let ((tmp (make-symbol "defconst-tmp-var")))
+                  ;; Quote with `quote' to prevent byte-compiling the body,
+                  ;; which would lead to an inf-loop.
                  `(funcall '(lambda (,tmp) (defconst ,var ,tmp))
                            ,value))
              ;; `defvar' sets `var' only when unbound.