Write STRING to PATHNAME.
(defun write-string-to-file (string pathname &key (if-exists :error) (if-does-not-exist :error))
"Write STRING to PATHNAME."
(with-output-to-file (file-stream pathname :if-exists if-exists :if-does-not-exist if-does-not-exist)
(write-sequence string file-stream)))Source Context