Mercurial > hg > xemacs-beta
changeset 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 | f9dc75bdbdc4 |
| children | e99b473303e3 |
| files | lisp/ChangeLog lisp/cl.el |
| diffstat | 2 files changed, 10 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Sat Apr 02 16:13:20 2011 +0100 +++ b/lisp/ChangeLog Sat Apr 02 16:18:07 2011 +0100 @@ -1,3 +1,8 @@ +2011-04-02 Aidan Kehoe <kehoea@parhasard.net> + + * cl.el (cadr, caddr, cadddr): + Document some equivalences for these functions. + 2011-04-02 Aidan Kehoe <kehoea@parhasard.net> * bytecomp.el (byte-compile-output-preface): New.
--- 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)