From b87fe54b9ffc386d3b1bf3963ae162fbdbaec2c9 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Sun, 24 Aug 1997 20:49:32 +0000 Subject: [PATCH] (cl-loop-let): Use last*. --- lisp/emacs-lisp/cl-macs.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/lisp/emacs-lisp/cl-macs.el b/lisp/emacs-lisp/cl-macs.el index 37d02b564cb..a9c60886d17 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) -- 2.39.2