(defun read-file-to-string (file)
"Opens a reads a file. Returns the contents as a single string"
- (with-output-to-string (out)
- (with-open-file (in file :direction :input)
- (read-stream-to-string in))))
+ (with-open-file (in file :direction :input)
+ (read-stream-to-string in)))
(defun read-file-to-usb8-array (file)
"Opens a reads a file. Returns the contents as single unsigned-byte array"