Changeset 181


Ignore:
Timestamp:
04/01/08 21:26:32 (17 years ago)
Author:
Magnus Henoch
Message:

Fix MAKE-UPATH for short arguments

File:
1 edited

Legend:

Unmodified
Added
Removed
  • TabularUnified cl-darcs/trunk/upath.lisp ΒΆ

    r169 r181  
    3232     path)
    3333    (string
    34      (if (or (string= path "http://" :end1 7)
    35              (string= path "https://" :end1 8))
     34     (if (or (and (>= (length path) 7)
     35                  (string= path "http://" :end1 7))
     36             (and (>= (length path) 8)
     37                  (string= path "https://" :end1 8)))
    3638         (net.uri:parse-uri path)
    3739         (pathname path)))))
Note: See TracChangeset for help on using the changeset viewer.