From: Juho Snellman <jsnell@iki.fi>
Date: Sat, 9 Sep 2006 08:00:03 +0000 (+0000)
Subject: 0.9.16.23:
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=37269471524c0e29b17aa073f5130ba592f100b4;p=sbcl.git

0.9.16.23:
	One more simple-base-string -> simple-string substitution in
        the pathname code (pointed out by Yaroslav Kavenchuk on
        sbcl-devel).
---

diff --git a/src/code/unix-pathname.lisp b/src/code/unix-pathname.lisp
index b376da8..99a4b35 100644
--- a/src/code/unix-pathname.lisp
+++ b/src/code/unix-pathname.lisp
@@ -305,7 +305,7 @@
         (when name-needed
           (unless pathname-name (lose))
           (when (and (null pathname-type)
-                     (typep pathname-name 'simple-base-string)
+                     (typep pathname-name 'simple-string)
                      (position #\. pathname-name :start 1))
             (error "too many dots in the name: ~S" pathname))
           (strings (unparse-unix-piece pathname-name)))
diff --git a/src/code/win32-pathname.lisp b/src/code/win32-pathname.lisp
index f39891a..08cad05 100644
--- a/src/code/win32-pathname.lisp
+++ b/src/code/win32-pathname.lisp
@@ -333,7 +333,7 @@
         (when name-needed
           (unless pathname-name (lose))
           (when (and (null pathname-type)
-                     (typep pathname-name 'simple-base-string)
+                     (typep pathname-name 'simple-string)
                      (position #\. pathname-name :start 1))
             (error "too many dots in the name: ~S" pathname))
           (strings (unparse-unix-piece pathname-name)))
diff --git a/version.lisp-expr b/version.lisp-expr
index 6c0ed3e..e84cd1c 100644
--- a/version.lisp-expr
+++ b/version.lisp-expr
@@ -17,4 +17,4 @@
 ;;; checkins which aren't released. (And occasionally for internal
 ;;; versions, especially for internal versions off the main CVS
 ;;; branch, it gets hairier, e.g. "0.pre7.14.flaky4.13".)
-"0.9.16.22"
+"0.9.16.23"