Move lisp-escape-string to print.lisp