X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Ffilesys.lisp;h=1d243d88ba9e3626bbfce96255c55c9a40c9a8ea;hb=dca55270cf662763243dfc8ee207370473da2a6f;hp=6cd3d31ab3876e2720877d0e650a83eabc7cd1fe;hpb=240b0db303764545c982e9362a986243b535f7f4;p=sbcl.git

diff --git a/src/code/filesys.lisp b/src/code/filesys.lisp
index 6cd3d31..1d243d8 100644
--- a/src/code/filesys.lisp
+++ b/src/code/filesys.lisp
@@ -338,8 +338,14 @@
       ;; translating logical pathnames to a filesystem without
       ;; versions (like Unix).
       (when name
-	(when (and (null type) (position #\. name :start 1))
+	(when (and (null type)
+		   (typep name 'string)
+		   (> (length name) 0)
+		   (position #\. name :start 1))
 	  (error "too many dots in the name: ~S" pathname))
+	(when (and (typep name 'string)
+		   (string= name ""))
+	  (error "name is of length 0: ~S" pathname))
 	(strings (unparse-unix-piece name)))
       (when type-supplied
 	(unless name