diff options
Diffstat (limited to 'lisp/emacs-lisp')
| -rw-r--r-- | lisp/emacs-lisp/cl-macs.el | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/emacs-lisp/cl-macs.el b/lisp/emacs-lisp/cl-macs.el index 4cee091e60d..c2bf02ccece 100644 --- a/lisp/emacs-lisp/cl-macs.el +++ b/lisp/emacs-lisp/cl-macs.el @@ -2121,7 +2121,8 @@ Like `cl-flet' but the definitions can refer to previous ones. ;; Note: it's OK for this `let' to shadow any ;; of the formal arguments since we will only ;; setq the fresh new `ofargs' vars instead ;-) - (let ((shadowings (mapcar #'car bindings))) + (let ((shadowings + (mapcar (lambda (b) (if (consp b) (car b) b)) bindings))) ;; If `var' is shadowed, then it clearly can't be ;; tail-called any more. (not (memq var shadowings))))) |