(lexical-let): Fixed a bug involving nested

lexical contexts and macros.
1996-10-24 22:45:24 +00:00 · 1996-10-24 22:45:24 +00:00 · 70a036cfe6
commit 70a036cfe6
parent 8c605b4bb1
1 changed files with 1 additions and 0 deletions
--- 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