diff options
| author | Richard M. Stallman <rms@gnu.org> | 1997-09-13 18:49:49 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1997-09-13 18:49:49 +0000 |
| commit | f7aa3e8b2674ab40495721c878ca51a8d5e068c2 (patch) | |
| tree | 644132e0f9fee21434497b9a2b39a636887dff9c /lisp/emacs-lisp/cl-macs.el | |
| parent | 62df2e3f5167b68f04a26d0b003c1e00ff5069d7 (diff) | |
| download | emacs-f7aa3e8b2674ab40495721c878ca51a8d5e068c2.tar.gz | |
(cl-loop-let): Use `last', not `last*'
Diffstat (limited to 'lisp/emacs-lisp/cl-macs.el')
| -rw-r--r-- | lisp/emacs-lisp/cl-macs.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/emacs-lisp/cl-macs.el b/lisp/emacs-lisp/cl-macs.el index a9c60886d17..37d02b564cb 100644 --- a/lisp/emacs-lisp/cl-macs.el +++ b/lisp/emacs-lisp/cl-macs.el @@ -1058,7 +1058,7 @@ Valid clauses are: (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) |