Mercurial > emacs
comparison lisp/emacs-lisp/cl-macs.el @ 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 | a74507d555ba |
| children | f29538ec7ca1 |
comparison
equal
deleted
inserted
replaced
| 16457:814f54228bf7 | 16458:738fe588008a |
|---|---|
| 1292 (vars (mapcar (function | 1292 (vars (mapcar (function |
| 1293 (lambda (x) | 1293 (lambda (x) |
| 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 |
| 1300 (cl-macroexpand-all | 1301 (cl-macroexpand-all |
| 1301 (cons 'progn body) | 1302 (cons 'progn body) |