X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcold%2Fread-from-file.lisp;h=d7e0838c06564af535fb05899a187d45e0aead96;hb=4898ef32c639b1c7f4ee13a5ba566ce6debd03e6;hp=9eba15e763ffe1f9c9fbb943ba2418e04dbefe8b;hpb=a530bbe337109d898d5b4a001fc8f1afa3b5dc39;p=sbcl.git

diff --git a/src/cold/read-from-file.lisp b/src/cold/read-from-file.lisp
index 9eba15e..d7e0838 100644
--- 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)