X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=tests%2Ffilesys.pure.lisp;h=cdac2f3eda46c077433bf952e6be995a3ad016ec;hb=8d10dd337a91dc2f53cbd0e8e68b0e49238deaa3;hp=3e7ab3dcf459615912716460cab9e79267807594;hpb=8fa3b333d2b37f45c3702f478f784b8c6f491080;p=sbcl.git

diff --git a/tests/filesys.pure.lisp b/tests/filesys.pure.lisp
index 3e7ab3d..cdac2f3 100644
--- a/tests/filesys.pure.lisp
+++ b/tests/filesys.pure.lisp
@@ -4,7 +4,7 @@
 ;;;; While most of SBCL is derived from the CMU CL system, the test
 ;;;; files (like this one) were written from scratch after the fork
 ;;;; from CMU CL.
-;;;; 
+;;;;
 ;;;; This software is in the public domain and is provided with
 ;;;; absolutely no warranty. See the COPYING and CREDITS files for
 ;;;; more information.
@@ -12,17 +12,17 @@
 (in-package "CL-USER")
 
 ;;; In sbcl-0.6.9 FOO-NAMESTRING functions  returned "" instead of NIL.
-(let ((pathname0 (make-pathname :host nil 
-				:directory
-				(pathname-directory
-				 *default-pathname-defaults*)
-				:name "getty"))
-      (pathname1 (make-pathname :host nil 
-				:directory nil
-				:name nil)))
+(let ((pathname0 (make-pathname :host nil
+                                :directory
+                                (pathname-directory
+                                 *default-pathname-defaults*)
+                                :name "getty"))
+      (pathname1 (make-pathname :host nil
+                                :directory nil
+                                :name nil)))
   (assert (equal (file-namestring pathname0) "getty"))
   (assert (equal (directory-namestring pathname0)
-		 (directory-namestring *default-pathname-defaults*)))
+                 (directory-namestring *default-pathname-defaults*)))
   (assert (equal (file-namestring pathname1) ""))
   (assert (equal (directory-namestring pathname1) "")))
 
@@ -32,9 +32,9 @@
   ;; We know a little bit about the structure of this result;
   ;; let's test to make sure that this test file is in it.
   (assert (find-if (lambda (pathname)
-		     (search "tests/filesys.pure.lisp"
-			     (namestring pathname)))
-		   dir)))
+                     (search "tests/filesys.pure.lisp"
+                             (namestring pathname)))
+                   dir)))
 
 ;;; Set *default-pathname-defaults* to something other than the unix
 ;;; cwd, to catch functions which access the filesystem without
@@ -43,9 +43,9 @@
 
 (let ((*default-pathname-defaults*
        (make-pathname :directory
-		      (butlast
-		       (pathname-directory *default-pathname-defaults*))
-		      :defaults *default-pathname-defaults*)))
+                      (butlast
+                       (pathname-directory *default-pathname-defaults*))
+                      :defaults *default-pathname-defaults*)))
   ;; SBCL 0.7.1.2 failed to merge on OPEN
   (with-open-file (i "tests/filesys.pure.lisp")
       (assert i)))
@@ -54,19 +54,19 @@
 ;;; if they are fed wild pathname designators; firstly, with wild
 ;;; pathnames that don't correspond to any files:
 (assert (typep (nth-value 1 (ignore-errors (open "non-existent*.lisp")))
-	       'file-error))
+               'file-error))
 (assert (typep (nth-value 1 (ignore-errors (load "non-existent*.lisp")))
-	       'file-error))
+               'file-error))
 ;;; then for pathnames that correspond to precisely one:
 (assert (typep (nth-value 1 (ignore-errors (open "filesys.pur*.lisp")))
-	       'file-error))
+               'file-error))
 (assert (typep (nth-value 1 (ignore-errors (load "filesys.pur*.lisp")))
-	       'file-error))
+               'file-error))
 ;;; then for pathnames corresponding to many:
 (assert (typep (nth-value 1 (ignore-errors (open "*.lisp")))
-	       'file-error))
+               'file-error))
 (assert (typep (nth-value 1 (ignore-errors (load "*.lisp")))
-	       'file-error))
+               'file-error))
 
 ;;; ANSI: FILE-LENGTH should signal an error of type TYPE-ERROR if
 ;;; STREAM is not a stream associated with a file.
@@ -74,4 +74,4 @@
 ;;; (Peter Van Eynde's ansi-test suite caught this, and Eric Marsden
 ;;; reported a fix for CMU CL, which was ported to sbcl-0.6.12.35.)
 (assert (typep (nth-value 1 (ignore-errors (file-length *terminal-io*)))
-	       'type-error))
+               'type-error))