source:
tags/1.5.0/t/pathname.lisp
| Last change on this file was 14987, checked in by , 9 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.
