0.9.2.43:
[sbcl.git] / src / cold / read-from-file.lisp
index a2ee083..d7e0838 100644 (file)
@@ -14,9 +14,9 @@
 (defun read-from-file (pathname-designator)
   (with-open-file (s pathname-designator)
     (let* ((result (read s))
-          (eof-result (cons nil nil))
-          (after-result (read s nil eof-result)))
+           (eof-result (cons nil nil))
+           (after-result (read s nil eof-result)))
       (unless (eq after-result eof-result)
-       (error "more than one expression in file ~S" pathname-designator))
+        (error "more than one expression in file ~S" pathname-designator))
       result)))
 (compile 'read-from-file)