Common Lisp の cadar 関数です。
ネストしたリストの先頭の子リストの 2 番目の要素を取得します。
そのまま car -> cdr -> car してるだけです。