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)