[Cl-darcs-cvs] r153 - cl-darcs/trunk

[mhenoch at common-lisp.net]

Author: mhenoch
Date: Tue Jan  8 13:06:26 2008
New Revision: 153

Modified:
   cl-darcs/trunk/util.lisp
Log:
Ignore duplicated slashes in filenames


Modified: cl-darcs/trunk/util.lisp
==============================================================================
--- cl-darcs/trunk/util.lisp	(original)
+++ cl-darcs/trunk/util.lisp	Tue Jan  8 13:06:26 2008
@@ -1,4 +1,4 @@
-;;; Copyright (C) 2006, 2007 Magnus Henoch
+;;; Copyright (C) 2006, 2007, 2008 Magnus Henoch
 ;;;
 ;;; This program is free software; you can redistribute it and/or
 ;;; modify it under the terms of the GNU General Public License as
@@ -205,7 +205,7 @@
 Signal an error if FILENAME doesn't denote a relative path going
 strictly down.
 If TYPE is :DIRECTORY, return pathname in directory form."
-  (let ((components (split-sequence:split-sequence #\/ filename)))
+  (let ((components (split-sequence:split-sequence #\/ filename :remove-empty-subseqs t)))
     (setf components (delete "." components :test #'string=))
     (when (member ".." components :test #'string=)
       (error "Filename ~S tries to go up in directory tree." filename))