From: William Harold Newman <william.newman@airmail.net>
Date: Thu, 25 Jan 2001 03:08:56 +0000 (+0000)
Subject: 0.6.10.5:
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=c9e11f1e55e5e19f35c931af8180a2cd075ab5f5;p=sbcl.git

0.6.10.5:
	MNA patch: Empty namestrings are now "" instead of NIL.
		(sbcl-devel 2001-01-24)
---

diff --git a/src/code/filesys.lisp b/src/code/filesys.lisp
index af41bd5..cf65e44 100644
--- 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")
 
diff --git a/version.lisp-expr b/version.lisp-expr
index e6a4671..e5b2320 100644
--- a/version.lisp-expr
+++ b/version.lisp-expr
@@ -15,4 +15,4 @@
 ;;; versions, and a string like "0.6.5.12" is used for versions which
 ;;; aren't released but correspond only to CVS tags or snapshots.
 
-"0.6.10.4"
+"0.6.10.5"