X-Git-Url: http://git.kpe.io/?p=kmrcl.git;a=blobdiff_plain;f=io.lisp;h=db94854156e6dbd0bae9052a5e14746bb9857f7b;hp=6df15953c7b533c32a320a612c4b6481137a0a25;hb=8e895e91cbb7c9f85e7097256c4097d048c2822d;hpb=93ac7eed8f69f19013472f078b544be145619ff5

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"