5 lines
159 B
Common Lisp
5 lines
159 B
Common Lisp
(defun file-string (path)
|
|
(with-open-file (stream path)
|
|
(let ((data (make-string (file-length stream))))
|
|
(read-sequence data stream)
|
|
data)))
|