# HG changeset patch # User Richard M. Stallman # Date 872362430 0 # Node ID 04b0c835c0eb4418286fa3f47a9e91012622d3d0 # Parent e8c4bdc27fc2cf8e0f3f60cf6bea7a4137202c44 (caar, cadr, cdar, cddr): Definitiosn deleted. diff -r e8c4bdc27fc2 -r 04b0c835c0eb lisp/emacs-lisp/cl.el --- a/lisp/emacs-lisp/cl.el Sat Aug 23 18:30:53 1997 +0000 +++ b/lisp/emacs-lisp/cl.el Sat Aug 23 18:53:50 1997 +0000 @@ -403,22 +403,6 @@ "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))))