Changeset 181
- Timestamp:
- 04/01/08 21:26:32 (17 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
TabularUnified cl-darcs/trunk/upath.lisp ΒΆ
r169 r181 32 32 path) 33 33 (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))) 36 38 (net.uri:parse-uri path) 37 39 (pathname path)))))
Note: See TracChangeset
for help on using the changeset viewer.