LISP Return Third Character Function

(defun third-char(list)
      (car (cdr (cdr list)))
)

> third-char '(a b c d) = C