0.6.10.5:

[sbcl.git] / src / code / filesys.lisp

diff --git a/src/code/filesys.lisp b/src/code/filesys.lisp
index af41bd5..cf65e44 100644 (file)
--- a/src/code/filesys.lisp
+++ b/src/code/filesys.lisp
@@ -374,8 +374,7 @@
           (pieces "/"))
          (t
           (error "invalid directory component: ~S" dir)))))
-    (unless (null (pieces))
-      (apply #'concatenate 'simple-string (pieces)))))
+    (apply #'concatenate 'simple-string (pieces))))
 
 (defun unparse-unix-directory (pathname)
   (declare (type pathname pathname))
@@ -402,8 +401,7 @@
        (strings (if (eq version :wild)
                     ".*"
                     (format nil ".~D" version)))))
-    (unless (null (strings))
-      (apply #'concatenate 'simple-string (strings)))))
+    (apply #'concatenate 'simple-string (strings))))
 
 (/show0 "filesys.lisp 406")