Otherwise, the macro is expanded and the expansion is considered
in place of FORM. When a non-macro-call results, it is returned.
-The second optional arg ENVIRONMENT species an environment of macro
+The second optional arg ENVIRONMENT specifies an environment of macro
definitions to shadow the loaded ones for use in file byte-compilation."
(let ((cl-macro-environment cl-env))
(while (progn (setq cl-macro (funcall cl-old-macroexpand cl-macro cl-env))
;;; 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))