Changeset 123

Timestamp:

08/24/07 04:42:52 (18 years ago)

Author:

Magnus Henoch

Message:

Add PATHNAME-SANE-P and use it.

File:

• cl-darcs/trunk/util.lisp (modified) (2 diffs)

cl-darcs/trunk/util.lisp ¶

@@ -1 @@
-;;; Copyright (C) 2006 Magnus Henoch
+;;; Copyright (C) 2006, 2007 Magnus Henoch
 ;;;
 ;;; This program is free software; you can redistribute it and/or
@@ -226 +226 @@
                         :name filename-without-dot :type type))))))
 
+(defun pathname-sane-p (pathname)
+  "Return true if PATHNAME is a relative path going strictly down."
+  (let ((directory (pathname-directory pathname)))
+    (and (listp directory)
+         (eql (car directory) :relative)
+         (every #'stringp (cdr directory)))))
+
 (defun pathname-to-string (pathname)
   "Convert PATHNAME to a string usable in darcs patch files.
 PATHNAME is assumed to be a relative pathname going strictly down,
 as returned by SANITIZE-FILENAME."
+  (assert (pathname-sane-p pathname))
   (apply #'concatenate 'string
          "./"