# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 872455772 0
# Node ID f29538ec7ca131b657abc8dbf59a54be78345913
# Parent  b5164f0f2d6fb1de116b223ec6c104b81fa32467
(cl-loop-let): Use last*.

diff -r b5164f0f2d6f -r f29538ec7ca1 lisp/emacs-lisp/cl-macs.el
--- a/lisp/emacs-lisp/cl-macs.el	Sun Aug 24 20:47:54 1997 +0000
+++ b/lisp/emacs-lisp/cl-macs.el	Sun Aug 24 20:49:32 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)