read-file-into-string.lisp

(defun read-file-into-string (file &key (buf-size 2048))
  (with-output-to-string (s)
    (with-open-file (f file)
      (let ((buf (make-array 2048 :element-type 'base-char)))
        (loop
           :for size := (read-sequence buf f)
           :while (= size buf-size)
           :do (write-sequence buf s)
           :finally
           (write-sequence buf s :end size))))))