ambrevar/shell: Add file->string.

.local/share/common-lisp/source/ambrevar/shell.lisp

@@ -20,6 +20,10 @@
             (str:split "=" line :limit 2))
           (str:split (string #\newline) (cmd:$cmd "env"))))
 
+(export-always 'file->string)
+(defun file->string (path)
+  (sera:chomp (alex:read-file-into-string path)))
+
 (defun assert-program (program &rest more-programs) ; TODO: Is this useful for a REPL?
   (sera:and-let* ((missing-programs
                    (delete-if #'sera:resolve-executable (cons program more-programs))))