# HG changeset patch
# User Aidan Kehoe <kehoea@parhasard.net>
# Date 1301757487 -3600
# Node ID 25c10648ffbaeaa8cacb9de0e60622664288eccd
# Parent  f9dc75bdbdc4f757f86183ecf2b6eac8fe135919
#'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.

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@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.
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)