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))