(do ((line (read-line in nil eof)
(read-line in nil eof)))
((eq line eof))
- (push line lines)))
- (nreverse lines))
+ (push line lines))
+ (nreverse lines)))
(defun read-file-to-strings (file)
"Opens a reads a file. Returns the contents as a list of strings"