Function: cl-caaadr

Return the `car' of the `car' of the `car' of the `cdr' of X.

(fn X)