X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=tests%2Ffilesys.pure.lisp;h=0356cd55d8f1d284fecaecb961e55e1c315dd393;hb=203c15eefffd996fd20bd28d461ea1aa3865dbbe;hp=012bdbfe241ddcda190234d227618cfdd59f18e8;hpb=bbfeb9a341eb81fdd80146f38548437b211dc280;p=sbcl.git

diff --git a/tests/filesys.pure.lisp b/tests/filesys.pure.lisp
index 012bdbf..0356cd5 100644
--- a/tests/filesys.pure.lisp
+++ b/tests/filesys.pure.lisp
@@ -12,16 +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"))
+(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) ""))
+  (assert (equal (directory-namestring pathname0)
+		 (directory-namestring *default-pathname-defaults*)))
   (assert (equal (file-namestring pathname1) ""))
   (assert (equal (directory-namestring pathname1) "")))