Common Lisp の caar 関数です。そのまま car car してるだけです。