(cl-loop-let): Use last', not last*'

This commit is contained in:
Richard M. Stallman 1997-09-13 18:49:49 +00:00
parent adbbe690f6
commit f4cf76d31f

View file

@ -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)