(SETF CHAR) and move string related code to string.lisp