r9079: fix paren

[kmrcl.git] / io.lisp

diff --git a/io.lisp b/io.lisp
index 6df15953c7b533c32a320a612c4b6481137a0a25..db94854156e6dbd0bae9052a5e14746bb9857f7b 100644 (file)
--- 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"