Steel Bank Common Lisp

Update of /cvsroot/sbcl/sbcl/src/code
In directory sc8-pr-cvs8.sourceforge.net:/tmp/cvs-serv29723/src/code

Modified Files:
	unix-pathname.lisp win32-pathname.lisp 
Log Message:
0.9.16.2:
	Fix bug found by compiling with both a buggy 
	funcallable-instance type under intersection and a patch for 
	generic (Gray-like) sequences.  Weird, huh?
	... make sure we have a sequence before using sequence functions
		in ENOUGH-NAMESTRING-like functions.


Index: unix-pathname.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/src/code/unix-pathname.lisp,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -d -r1.2 -r1.3
--- unix-pathname.lisp	7 Jun 2006 09:49:54 -0000	1.2
+++ unix-pathname.lisp	28 Aug 2006 12:14:31 -0000	1.3
@@ -305,6 +305,7 @@
         (when name-needed
           (unless pathname-name (lose))
           (when (and (null pathname-type)
+                     (typep pathname-name 'simple-base-string)
                      (position #\. pathname-name :start 1))
             (error "too many dots in the name: ~S" pathname))
           (strings (unparse-unix-piece pathname-name)))

Index: win32-pathname.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/src/code/win32-pathname.lisp,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -d -r1.2 -r1.3
--- win32-pathname.lisp	13 Apr 2006 22:52:56 -0000	1.2
+++ win32-pathname.lisp	28 Aug 2006 12:14:31 -0000	1.3
@@ -333,6 +333,7 @@
         (when name-needed
           (unless pathname-name (lose))
           (when (and (null pathname-type)
+                     (typep pathname-name 'simple-base-string)
                      (position #\. pathname-name :start 1))
             (error "too many dots in the name: ~S" pathname))
           (strings (unparse-unix-piece pathname-name)))