# HG changeset patch # User Richard M. Stallman # Date 874176589 0 # Node ID 5abc38e451951529658c05547fe88d331a7c135e # Parent 7b1e019be521ae028a4b91c7c6fa9c61cea13634 (cl-loop-let): Use `last', not `last*' diff -r 7b1e019be521 -r 5abc38e45195 lisp/emacs-lisp/cl-macs.el --- a/lisp/emacs-lisp/cl-macs.el Sat Sep 13 18:44:54 1997 +0000 +++ b/lisp/emacs-lisp/cl-macs.el Sat Sep 13 18:49:49 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)