fun.lisp

(defun file-lines (path)
   (with-open-file (s path)
     (loop for line = (read-line s nil nil)
        while line
        collect (coerce line 'list) into lines
        finally (return (values lines)))))