Mercurial > emacs
comparison lisp/emacs-lisp/lucid.el @ 3389:91f64e9078e9
(copy-tree): Use let* to bind new before i.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Tue, 01 Jun 1993 06:03:56 +0000 |
| parents | 7274509e47a3 |
| children | c910eb73b259 |
comparison
equal
deleted
inserted
replaced
| 3388:afd441c3e936 | 3389:91f64e9078e9 |
|---|---|
| 27 (defun copy-tree (tree) | 27 (defun copy-tree (tree) |
| 28 (if (consp tree) | 28 (if (consp tree) |
| 29 (cons (copy-tree (car tree)) | 29 (cons (copy-tree (car tree)) |
| 30 (copy-tree (cdr tree))) | 30 (copy-tree (cdr tree))) |
| 31 (if (vectorp tree) | 31 (if (vectorp tree) |
| 32 (let ((new (copy-sequence tree)) | 32 (let* ((new (copy-sequence tree)) |
| 33 (i (1- (length new)))) | 33 (i (1- (length new)))) |
| 34 (while (>= i 0) | 34 (while (>= i 0) |
| 35 (aset new i (copy-tree (aref new i))) | 35 (aset new i (copy-tree (aref new i))) |
| 36 (setq i (1- i))) | 36 (setq i (1- i))) |
| 37 new) | 37 new) |
| 38 tree))) | 38 tree))) |