source:
tags/1.5.0/t/pathname.lisp
Last change on this file was 14987, checked in by , 8 years ago | |
---|---|
File size: 214 bytes |
Line | |
---|---|
1 | (in-package abcl/test) |
2 | |
3 | (plan 1) |
4 | (let* ((uri #p"http://example.org/directory/name.version") |
5 | (p (make-pathname :host nil :defaults uri))) |
6 | (like (namestring p) "^/directory/name.version$")) |
7 | |
8 | (finalize) |
9 | |
10 |
Note: See TracBrowser
for help on using the repository browser.