Function: cl-cadaar
Return the `car' of the `cdr' of the `car' of the `car' of X.
(fn X)