From: Richard M. Stallman <rms@gnu.org>
Date: Sun, 24 Aug 1997 20:49:32 +0000 (+0000)
Subject: (cl-loop-let): Use last*.
X-Git-Tag: emacs-20.1~435
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=b87fe54b9ffc386d3b1bf3963ae162fbdbaec2c9;p=emacs.git

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

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)