Commit b87fe54b authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

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

parent 329945b8
......@@ -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)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment