commit: #'cadr, #'caddr, #'cadddr; document some equivalences.

changeset: 5392:25c10648ffba tag: tip user: Aidan Kehoe <kehoea(a)parhasard.net&gt; date: Sat Apr 02 16:18:07 2011 +0100 files: lisp/ChangeLog lisp/cl.el description: #'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) _______________________________________________ XEmacs-Patches mailing list XEmacs-Patches(a)xemacs.org http://lists.xemacs.org/mailman/listinfo/xemacs-patches