Make CAR and CDR reject non-list argument

```(CAR 1)``` evaluates to meaningless result:
```lisp
CL-USER> (car 1)
#<javascript object>
```