(cl-loop-let): Use last*.

diff --git a/lisp/emacs-lisp/cl-macs.el b/lisp/emacs-lisp/cl-macs.el
index 37d02b564cbc8afbfd068e88eebd20a791e5ef00..a9c60886d178c9995a3ef8ea7a2d448cb79ef084 100644 (file)
--- 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)