X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Ffilesys.lisp;h=273e7584515beb73951a68bd830daa09695049e6;hb=290675ccc55b43bef1c2c39f07479dbb2f20ad1f;hp=05f29b1e6c5dd5520b4ba8db0783647a7405d521;hpb=c03ebb54770cfa613d4b706a80e5be231786a5d0;p=sbcl.git

diff --git a/src/code/filesys.lisp b/src/code/filesys.lisp
index 05f29b1..273e758 100644
--- a/src/code/filesys.lisp
+++ b/src/code/filesys.lisp
@@ -563,13 +563,13 @@
   (pathname (sb!unix:uid-homedir (sb!unix:unix-getuid)))
   #!+win32
   (pathname (if (posix-getenv "HOME")
-		(let* ((path (posix-getenv "HOME"))
+                (let* ((path (posix-getenv "HOME"))
                        (last-char (char path (1- (length path)))))
-		  (if (or (char= last-char #\/)
-                          (char= last-char #\\)) 
-		      path
-		    (concatenate 'string path "/")))
-	      (sb!win32::get-folder-path 40)))) ;;SB-WIN32::CSIDL_PROFILE
+                  (if (or (char= last-char #\/)
+                          (char= last-char #\\))
+                      path
+                    (concatenate 'string path "/")))
+              (sb!win32::get-folder-path 40)))) ;;SB-WIN32::CSIDL_PROFILE
 
 (defun file-write-date (file)
   #!+sb-doc