Mercurial > emacs
changeset 19513:f29538ec7ca1
(cl-loop-let): Use last*.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sun, 24 Aug 1997 20:49:32 +0000 |
| parents | b5164f0f2d6f |
| children | 9f6b375ce842 |
| files | lisp/emacs-lisp/cl-macs.el |
| diffstat | 1 files changed, 1 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/emacs-lisp/cl-macs.el Sun Aug 24 20:47:54 1997 +0000 +++ b/lisp/emacs-lisp/cl-macs.el Sun Aug 24 20:49:32 1997 +0000 @@ -1058,7 +1058,7 @@ (let* ((spec (caar specs)) (nspecs nil) (expr (cadr (cl-pop specs))) (temp (cdr (or (assq spec loop-destr-temps) - (car (cl-push (cons spec (or (last spec 0) + (car (cl-push (cons spec (or (last* spec 0) (gensym))) loop-destr-temps)))))) (cl-push (list temp expr) new)