From: Richard M. Stallman <rms@gnu.org>
Date: Sat, 23 Aug 1997 18:53:50 +0000 (+0000)
Subject: (caar, cadr, cdar, cddr): Definitiosn deleted.
X-Git-Tag: emacs-20.1~458
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=2a21e93c912d251e68f4c6d18f8185031ef181ba;p=emacs.git

(caar, cadr, cdar, cddr): Definitiosn deleted.
---

diff --git a/lisp/emacs-lisp/cl.el b/lisp/emacs-lisp/cl.el
index 720e56fa439..72320d57e30 100644
--- a/lisp/emacs-lisp/cl.el
+++ b/lisp/emacs-lisp/cl.el
@@ -403,22 +403,6 @@ SEQ, this is like `mapcar'.  With several, it is like the Common Lisp
   "Return the tenth element of the list LIST."
   (nth 9 x))
 
-(defun caar (x)
-  "Return the `car' of the `car' of X."
-  (car (car x)))
-
-(defun cadr (x)
-  "Return the `car' of the `cdr' of X."
-  (car (cdr x)))
-
-(defun cdar (x)
-  "Return the `cdr' of the `car' of X."
-  (cdr (car x)))
-
-(defun cddr (x)
-  "Return the `cdr' of the `cdr' of X."
-  (cdr (cdr x)))
-
 (defun caaar (x)
   "Return the `car' of the `car' of the `car' of X."
   (car (car (car x))))