diff options
| author | Karl Heuer <kwzh@gnu.org> | 1996-10-24 22:45:24 +0000 |
|---|---|---|
| committer | Karl Heuer <kwzh@gnu.org> | 1996-10-24 22:45:24 +0000 |
| commit | 70a036cfe6580ee0fe13ec716a0edfb7a108890b (patch) | |
| tree | b7506bcef5ec83de3c067582f683b83a1b14bbb1 /lisp/emacs-lisp/cl-macs.el | |
| parent | 8c605b4bb1c0414abe733cac69ab66e0b5bac309 (diff) | |
| download | emacs-70a036cfe6580ee0fe13ec716a0edfb7a108890b.tar.gz emacs-70a036cfe6580ee0fe13ec716a0edfb7a108890b.tar.bz2 emacs-70a036cfe6580ee0fe13ec716a0edfb7a108890b.zip | |
(lexical-let): Fixed a bug involving nested
lexical contexts and macros.
Diffstat (limited to 'lisp/emacs-lisp/cl-macs.el')
| -rw-r--r-- | lisp/emacs-lisp/cl-macs.el | 1 |
1 files changed, 1 insertions, 0 deletions
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 |