(list (car '(foo bar)) 有没有标准的函数替代？

[et2010]

(car '(a b)) ====> a 而不是 (a)，请看我问题的标题。