From: Karl Heuer <kwzh@gnu.org>
Date: Thu, 24 Oct 1996 22:45:24 +0000 (+0000)
Subject: (lexical-let): Fixed a bug involving nested
X-Git-Tag: emacs-20.1~3486
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=70a036cfe6580ee0fe13ec716a0edfb7a108890b;p=emacs.git

(lexical-let): Fixed a bug involving nested
lexical contexts and macros.
---

diff --git a/lisp/emacs-lisp/cl-macs.el b/lisp/emacs-lisp/cl-macs.el
index aa8b9070e67..37d02b564cb 100644
--- a/lisp/emacs-lisp/cl-macs.el
+++ b/lisp/emacs-lisp/cl-macs.el
@@ -1294,6 +1294,7 @@ lexical closures as in Common Lisp."
 			  (or (consp x) (setq x (list x)))
 			  (cl-push (gensym (format "--%s--" (car x)))
 				   cl-closure-vars)
+			  (set (car cl-closure-vars) [bad-lexical-ref])
 			  (list (car x) (cadr x) (car cl-closure-vars))))
 		       bindings))
 	 (ebody