X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcold%2Fread-from-file.lisp;h=d7e0838c06564af535fb05899a187d45e0aead96;hb=631ecfcd29ecabd40c3bc5579496e635b30a142e;hp=a2ee0835b657d4efbe44e466169aadfc850f6e0c;hpb=cea4896b2482b7b2b429c1631d774b4cfbc0efba;p=sbcl.git

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