mirror of
https://gitlab.com/eql/lqml.git
synced 2025-12-06 10:31:34 -08:00
9 lines
269 B
Common Lisp
9 lines
269 B
Common Lisp
(in-package :app)
|
|
|
|
(defun read-file (file)
|
|
(with-open-file (s (merge-pathnames file (or *compile-file-truename*
|
|
*load-truename*)))
|
|
(let ((str (make-string (file-length s))))
|
|
(read-sequence str s)
|
|
str)))
|
|
|