あぁぁ

これはカッコいい。こんな使い方できんねや・・・。
思いつかんよ・・・。

;; CL-USER> (apply #'mapcar #'list '((1 2 3) (4 5 6) (7 8 9)))
;; *1