From 2a21e93c912d251e68f4c6d18f8185031ef181ba Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Sat, 23 Aug 1997 18:53:50 +0000 Subject: [PATCH] (caar, cadr, cdar, cddr): Definitiosn deleted. --- lisp/emacs-lisp/cl.el | 16 ---------------- 1 file changed, 16 deletions(-) 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)))) -- 2.39.2