Fixed a bug that an error occurs on (write '(1 2 . 3))

When I used (write) function, an error occurred as follows.

arc> (write '(1 2 . 3))
Error: "Can't take car of 3"

The bug is fixed by this commit.