Mercurial > emacs
comparison lisp/emacs-lisp/cl.el @ 41776:2682c3f36a6a
(svref): New alias.
| author | Stefan Monnier <monnier@iro.umontreal.ca> |
|---|---|
| date | Sun, 02 Dec 2001 07:33:09 +0000 |
| parents | 0bcf2d7f0112 |
| children | c311225c0346 |
comparison
equal
deleted
inserted
replaced
| 41775:c4946eb1e1e8 | 41776:2682c3f36a6a |
|---|---|
| 345 (while (and cl-x cl-y) | 345 (while (and cl-x cl-y) |
| 346 (push (funcall cl-func (pop cl-x) (pop cl-y)) cl-res)) | 346 (push (funcall cl-func (pop cl-x) (pop cl-y)) cl-res)) |
| 347 (nreverse cl-res))) | 347 (nreverse cl-res))) |
| 348 (mapcar cl-func cl-x))) | 348 (mapcar cl-func cl-x))) |
| 349 | 349 |
| 350 (defalias 'svref 'aref) | |
| 350 | 351 |
| 351 ;;; List functions. | 352 ;;; List functions. |
| 352 | 353 |
| 353 (defalias 'first 'car) | 354 (defalias 'first 'car) |
| 354 (defalias 'second 'cadr) | 355 (defalias 'second 'cadr) |