-- List-manipulation primitives:

car :: [LispVal] -> ThrowsError LispVal
car [List (x : xs)]         = return x
car :: [LispVal] -> ThrowsError LispVal
car [List (x : xs)]         = return x
car [List (x : xs)]         = return x