From: Dave Love <fx@gnu.org>
Date: Thu, 10 Feb 2000 17:54:30 +0000 (+0000)
Subject: Don't bother testing for defalias.  Don't set up `caar' &c that we now
X-Git-Tag: emacs-pretest-21.0.90~5057
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=4e85dd7ae52cd0d8d4ca5970a0e733274ea54e72;p=emacs.git

Don't bother testing for defalias.  Don't set up `caar' &c that we now
have.
---

diff --git a/lisp/emacs-lisp/cl-macs.el b/lisp/emacs-lisp/cl-macs.el
index 85287507f58..b0709ac1e40 100644
--- a/lisp/emacs-lisp/cl-macs.el
+++ b/lisp/emacs-lisp/cl-macs.el
@@ -70,7 +70,6 @@
 
 (require
  (progn
-   (or (fboundp 'defalias) (fset 'defalias 'fset))
    (or (fboundp 'cl-transform-function-property)
        (defalias 'cl-transform-function-property
 	 (function (lambda (n p f)
@@ -2582,7 +2581,6 @@ surrounded by (block NAME ...)."
 	  (fifth 'nth 4 x) (sixth 'nth 5 x) (seventh 'nth 6 x)
 	  (eighth 'nth 7 x) (ninth 'nth 8 x) (tenth 'nth 9 x)
 	  (rest 'cdr x) (endp 'null x) (plusp '> x 0) (minusp '< x 0)
-	  (caar car car) (cadr car cdr) (cdar cdr car) (cddr cdr cdr)
 	  (caaar car caar) (caadr car cadr) (cadar car cdar)
 	  (caddr car cddr) (cdaar cdr caar) (cdadr cdr cadr)
 	  (cddar cdr cdar) (cdddr cdr cddr) (caaaar car caaar)