diff options
| author | Karl Heuer | 1996-10-24 22:45:24 +0000 |
|---|---|---|
| committer | Karl Heuer | 1996-10-24 22:45:24 +0000 |
| commit | 70a036cfe6580ee0fe13ec716a0edfb7a108890b (patch) | |
| tree | b7506bcef5ec83de3c067582f683b83a1b14bbb1 | |
| parent | 8c605b4bb1c0414abe733cac69ab66e0b5bac309 (diff) | |
| download | emacs-70a036cfe6580ee0fe13ec716a0edfb7a108890b.tar.gz emacs-70a036cfe6580ee0fe13ec716a0edfb7a108890b.zip | |
(lexical-let): Fixed a bug involving nested
lexical contexts and macros.
| -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." | |||
| 1294 | (or (consp x) (setq x (list x))) | 1294 | (or (consp x) (setq x (list x))) |
| 1295 | (cl-push (gensym (format "--%s--" (car x))) | 1295 | (cl-push (gensym (format "--%s--" (car x))) |
| 1296 | cl-closure-vars) | 1296 | cl-closure-vars) |
| 1297 | (set (car cl-closure-vars) [bad-lexical-ref]) | ||
| 1297 | (list (car x) (cadr x) (car cl-closure-vars)))) | 1298 | (list (car x) (cadr x) (car cl-closure-vars)))) |
| 1298 | bindings)) | 1299 | bindings)) |
| 1299 | (ebody | 1300 | (ebody |