changeset 16458:738fe588008a

(lexical-let): Fixed a bug involving nested lexical contexts and macros.
author Karl Heuer <kwzh@gnu.org>
date Thu, 24 Oct 1996 22:45:24 +0000
parents 814f54228bf7
children 10b2ea857cac
files lisp/emacs-lisp/cl-macs.el
diffstat 1 files changed, 1 insertions(+), 0 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/emacs-lisp/cl-macs.el	Thu Oct 24 22:42:29 1996 +0000
+++ b/lisp/emacs-lisp/cl-macs.el	Thu Oct 24 22:45:24 1996 +0000
@@ -1294,6 +1294,7 @@
 			  (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