carの別名です。 全く同じ動きをします。 使用例: ;;; carと同じ動きをする。 (car '(1 2 3)) => 1 (first '(1 2 3)) => 1 (symbol-function 'car) => #<function: car> (symbol-function 'first) => #<function: car> 参考: ;;; list.lの定義 (si:*fset 'first #'car)