0.9.2.43:

[sbcl.git] / src / cold / read-from-file.lisp

diff --git a/src/cold/read-from-file.lisp b/src/cold/read-from-file.lisp
index 9eba15e..d7e0838 100644 (file)
--- a/src/cold/read-from-file.lisp
+++ b/src/cold/read-from-file.lisp
@@ -9,16 +9,14 @@
 
 (in-package "SB-COLD")
 
-;;;; $Header$
-
 ;;; Return an expression read from the file named PATHNAME-DESIGNATOR.
 (export 'read-from-file)
 (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)