From c9e11f1e55e5e19f35c931af8180a2cd075ab5f5 Mon Sep 17 00:00:00 2001 From: William Harold Newman Date: Thu, 25 Jan 2001 03:08:56 +0000 Subject: [PATCH] 0.6.10.5: MNA patch: Empty namestrings are now "" instead of NIL. (sbcl-devel 2001-01-24) --- src/code/filesys.lisp | 6 ++---- version.lisp-expr | 2 +- 2 files changed, 3 insertions(+), 5 deletions(-) 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" -- 1.7.10.4