X-Git-Url: http://git.kpe.io/?p=kmrcl.git;a=blobdiff_plain;f=io.lisp;h=db94854156e6dbd0bae9052a5e14746bb9857f7b;hp=6df15953c7b533c32a320a612c4b6481137a0a25;hb=5f3fba52fd7c9984a7f797c4720ec93799d6d786;hpb=19bee416d52c52d58261faf3d459c45572563149

diff --git a/io.lisp b/io.lisp
index 6df1595..db94854 100644
--- a/io.lisp
+++ b/io.lisp
@@ -49,8 +49,8 @@
     (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"