From dc79c3ea3c2fbcaf80b70e33517c573451d671bb Mon Sep 17 00:00:00 2001
From: Gerd Moellmann <gerd@gnu.org>
Date: Sun, 6 Aug 2000 09:17:27 +0000
Subject: [PATCH] (third...tenth): Undo change of 2000-08-05. (second): Make it
 an alias for `cadr'.

---
 lisp/emacs-lisp/cl.el | 21 +++++++++------------
 1 file changed, 9 insertions(+), 12 deletions(-)

diff --git a/lisp/emacs-lisp/cl.el b/lisp/emacs-lisp/cl.el
index 2d91043077e..29e7f6d2ac5 100644
--- a/lisp/emacs-lisp/cl.el
+++ b/lisp/emacs-lisp/cl.el
@@ -329,42 +329,39 @@ SEQ, this is like `mapcar'.  With several, it is like the Common Lisp
 ;;; List functions.
 
 (defalias 'first 'car)
+(defalias 'second 'cadr)
 (defalias 'rest 'cdr)
 (defalias 'endp 'null)
 
-(defmacro second (x)
-  "Return the second element of the list LIST."
-  `(car (cdr ,x)))
-
-(defmacro third (x)
+(defun third (x)
   "Return the third element of the list LIST."
   `(car (cdr (cdr ,x))))
 
-(defmacro fourth (x)
+(defun fourth (x)
   "Return the fourth element of the list LIST."
   `(nth 3 ,x))
 
-(defmacro fifth (x)
+(defun fifth (x)
   "Return the fifth element of the list LIST."
   `(nth 4 ,x))
 
-(defmacro sixth (x)
+(defun sixth (x)
   "Return the sixth element of the list LIST."
   `(nth 5 ,x))
 
-(defmacro seventh (x)
+(defun seventh (x)
   "Return the seventh element of the list LIST."
   `(nth 6 ,x))
 
-(defmacro eighth (x)
+(defun eighth (x)
   "Return the eighth element of the list LIST."
   `(nth 7 ,x))
 
-(defmacro ninth (x)
+(defun ninth (x)
   "Return the ninth element of the list LIST."
   `(nth 8 ,x))
 
-(defmacro tenth (x)
+(defun tenth (x)
   "Return the tenth element of the list LIST."
   `(nth 9 ,x))
 
-- 
2.39.2