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