Commit 6105399d authored by Stefan Monnier's avatar Stefan Monnier
Browse files

* bytecomp.el (byte-compile-defvar): Add note about quoted lambda.

parent 9fbfd275
......@@ -4155,6 +4155,8 @@ binding slots have been popped."
(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.
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment