Mercurial > hg > xemacs-beta
diff lisp/cl.el @ 5392:25c10648ffba
#'cadr, #'caddr, #'cadddr; document some equivalences.
lisp/ChangeLog addition:
2011-04-02 Aidan Kehoe <kehoea@parhasard.net>
* cl.el (cadr, caddr, cadddr):
Document some equivalences for these functions.
| author | Aidan Kehoe <kehoea@parhasard.net> |
|---|---|
| date | Sat, 02 Apr 2011 16:18:07 +0100 |
| parents | 436e67ca8c79 |
| children | 97ac18bd1fa3 248176c74e6b |
line wrap: on
line diff
--- a/lisp/cl.el Sat Apr 02 16:13:20 2011 +0100 +++ b/lisp/cl.el Sat Apr 02 16:18:07 2011 +0100 @@ -425,7 +425,7 @@ (car (car x))) (defun cadr (x) - "Return the `car' of the `cdr' of X." + "Return the `car' of the `cdr' of X. Equivalent to `(second X)'." (car (cdr x))) (defun cdar (x) @@ -449,7 +449,8 @@ (car (cdr (car x)))) (defun caddr (x) - "Return the `car' of the `cdr' of the `cdr' of X." + "Return the `car' of the `cdr' of the `cdr' of X. +Equivalent to `(third X)'." (car (cdr (cdr x)))) (defun cdaar (x) @@ -497,7 +498,8 @@ (car (cdr (cdr (car x))))) (defun cadddr (x) - "Return the `car' of the `cdr' of the `cdr' of the `cdr' of X." + "Return the `car' of the `cdr' of the `cdr' of the `cdr' of X. +Equivalent to `(fourth X)'." (car (cdr (cdr (cdr x))))) (defun cdaaar (x)