Skip to content
This repository

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Newer
Older
100644 34 lines (22 sloc) 0.343 kb
b86dcf17 »
2011-06-08 path
1 (use test-by-example)
2
3 (example-test (runtime '(path)) #<<.
4
5 > (path "abc")
6 "abc"
7
8 > (path "abc" "def")
9 "abc/def"
10
11 > (path "abc" "def" "ghi")
12 "abc/def/ghi"
13
14 > (dirpart "foo")
15 nil
16
17 > (dirpart "a/b/c/foo")
18 "a/b/c/"
19
20 > (dirpart "/a/b/c")
21 "/a/b/"
22
23 > (filepart "/a/b/c/")
24 nil
25
26 > (filepart "/a/b/c/foo.bar")
27 "foo.bar"
28
29 > (filepart "foo")
30 "foo"
31
32 .
33 )
Something went wrong with that request. Please try again.