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

[mhenoch at common-lisp.net]

Author: mhenoch
Date: Tue Apr  1 16:26:32 2008
New Revision: 181

Modified:
   cl-darcs/trunk/upath.lisp
Log:
Fix MAKE-UPATH for short arguments


Modified: cl-darcs/trunk/upath.lisp
==============================================================================
--- cl-darcs/trunk/upath.lisp	(original)
+++ cl-darcs/trunk/upath.lisp	Tue Apr  1 16:26:32 2008
@@ -31,8 +31,10 @@
     (net.uri:uri
      path)
     (string
-     (if (or (string= path "http://" :end1 7)
-	     (string= path "https://" :end1 8))
+     (if (or (and (>= (length path) 7)
+		  (string= path "http://" :end1 7))
+	     (and (>= (length path) 8)
+		  (string= path "https://" :end1 8)))
 	 (net.uri:parse-uri path)
 	 (pathname path)))))