diff options
| author | Richard M. Stallman | 1997-08-24 20:49:32 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1997-08-24 20:49:32 +0000 |
| commit | b87fe54b9ffc386d3b1bf3963ae162fbdbaec2c9 (patch) | |
| tree | 57c74d22c241c27a02730b605d8d8b716ad924fb | |
| parent | 329945b8d0c81fdf4b2e68346f970e7ff7207095 (diff) | |
| download | emacs-b87fe54b9ffc386d3b1bf3963ae162fbdbaec2c9.tar.gz emacs-b87fe54b9ffc386d3b1bf3963ae162fbdbaec2c9.zip | |
(cl-loop-let): Use last*.
| -rw-r--r-- | lisp/emacs-lisp/cl-macs.el | 2 |
1 files changed, 1 insertions, 1 deletions
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: | |||
| 1058 | (let* ((spec (caar specs)) (nspecs nil) | 1058 | (let* ((spec (caar specs)) (nspecs nil) |
| 1059 | (expr (cadr (cl-pop specs))) | 1059 | (expr (cadr (cl-pop specs))) |
| 1060 | (temp (cdr (or (assq spec loop-destr-temps) | 1060 | (temp (cdr (or (assq spec loop-destr-temps) |
| 1061 | (car (cl-push (cons spec (or (last spec 0) | 1061 | (car (cl-push (cons spec (or (last* spec 0) |
| 1062 | (gensym))) | 1062 | (gensym))) |
| 1063 | loop-destr-temps)))))) | 1063 | loop-destr-temps)))))) |
| 1064 | (cl-push (list temp expr) new) | 1064 | (cl-push (list temp expr) new) |