[COMMIT] #'cadr, #'caddr, #'cadddr; document some equivalences.

APPROVE COMMIT NOTE: This patch has been committed. # HG changeset patch # User Aidan Kehoe <kehoea(a)parhasard.net&gt; # Date 1301757487 -3600 # Node ID 25c10648ffbaeaa8cacb9de0e60622664288eccd # Parent f9dc75bdbdc4f757f86183ecf2b6eac8fe135919 #'cadr, #'caddr, #'cadddr; document some equivalences. lisp/ChangeLog addition: 2011-04-02 Aidan Kehoe <kehoea(a)parhasard.net&gt; * cl.el (cadr, caddr, cadddr): Document some equivalences for these functions. diff -r f9dc75bdbdc4 -r 25c10648ffba lisp/ChangeLog --- 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(a)parhasard.net&gt; + + * cl.el (cadr, caddr, cadddr): + Document some equivalences for these functions. + 2011-04-02 Aidan Kehoe <kehoea(a)parhasard.net&gt; * bytecomp.el (byte-compile-output-preface): New. diff -r f9dc75bdbdc4 -r 25c10648ffba lisp/cl.el --- 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) -- “Apart from the nine-banded armadillo, man is the only natural host of Mycobacterium leprae, although it can be grown in the footpads of mice.” -- Kumar & Clark, Clinical Medicine, summarising improbable leprosy research _______________________________________________ XEmacs-Patches mailing list XEmacs-Patches(a)xemacs.org http://lists.xemacs.org/mailman/listinfo/xemacs-patches