giles
e0070041d6
Bytecode modules are now serialized as s-expressions (.sxbc) in addition to JSON (.sxbc.json). The .sxbc format is the canonical representation — content-addressable, parseable by the SX parser, and suitable for CID referencing. Annotation layers (source maps, variable names, tests, docs) can reference the bytecode CID without polluting the bytecode itself. Format: (sxbc version hash (code :arity N :bytecode (...) :constants (...))) The browser loader tries .sxbc first (via load-sxbc kernel primitive), falls back to .sxbc.json. Caddy needs .sxbc MIME type to serve the new format (currently 404s, JSON fallback works). Co-Authored-By: Claude Opus 4.6 (1M context) <noreply@anthropic.com>
524 lines
19 KiB
Plaintext
524 lines
19 KiB
Plaintext
(sxbc 1 "10d418bcee7e13ff"
|
|
(code
|
|
:bytecode (51 1 0 128 0 0 5 51 3 0 128 2 0 5 51 5 0 128 4 0 5 51 7 0 128 6 0 5 51 9 0 128 8 0 5 51 11 0 128 10 0 5 51 13 0 128 12 0 5 51 15 0 128 14 0 5 51 17 0 128 16 0 5 51 19 0 128 18 0 5 51 21 0 128 20 0 5 51 23 0 128 22 0 5 51 25 0 128 24 0 5 51 27 0 128 26 0 5 51 29 0 128 28 0 5 51 31 0 128 30 0 5 51 33 0 128 32 0 5 51 35 0 128 34 0 5 51 37 0 128 36 0 5 51 39 0 128 38 0 5 51 41 0 128 40 0 5 51 43 0 128 42 0 5 51 45 0 128 44 0 5 51 47 0 128 46 0 5 51 49 0 128 48 0 5 51 51 0 128 50 0 5 51 53 0 128 52 0 5 51 55 0 128 54 0 5 51 57 0 128 56 0 5 51 59 0 128 58 0 5 51 61 0 128 60 0 5 51 63 0 128 62 0 5 51 65 0 128 64 0 5 51 67 0 128 66 0 5 51 69 0 128 68 0 5 51 71 0 128 70 0 50)
|
|
:constants (
|
|
"split-path-segments"
|
|
(code :arity 1
|
|
:bytecode (16 0 1 1 0 52 0 0 2 33 12 0 16 0 1 3 0 52 2 0 2 32 2 0 16 0 17 1 16 1 52 5 0 1 52 4 0 1 6 33 10 0 5 16 1 1 1 0 52 6 0 2 33 25 0 16 1 1 7 0 16 1 52 9 0 1 1 3 0 52 8 0 2 52 2 0 3 32 2 0 16 1 17 2 16 2 52 5 0 1 33 7 0 52 10 0 0 32 9 0 16 2 1 1 0 52 11 0 2 50)
|
|
:constants (
|
|
"starts-with?"
|
|
"/"
|
|
"slice"
|
|
1
|
|
"not"
|
|
"empty?"
|
|
"ends-with?"
|
|
0
|
|
"-"
|
|
"len"
|
|
"list"
|
|
"split"))
|
|
"make-route-segment"
|
|
(code :arity 1
|
|
:bytecode (16 0 1 1 0 52 0 0 2 6 33 10 0 5 16 0 1 3 0 52 2 0 2 33 59 0 16 0 1 5 0 16 0 52 7 0 1 1 5 0 52 6 0 2 52 4 0 3 17 1 65 0 0 17 2 16 2 1 9 0 1 10 0 52 8 0 3 5 16 2 1 11 0 16 1 52 8 0 3 5 16 2 32 32 0 65 0 0 17 1 16 1 1 9 0 1 12 0 52 8 0 3 5 16 1 1 11 0 16 0 52 8 0 3 5 16 1 50)
|
|
:constants (
|
|
"starts-with?"
|
|
"<"
|
|
"ends-with?"
|
|
">"
|
|
"slice"
|
|
1
|
|
"-"
|
|
"len"
|
|
"dict-set!"
|
|
"type"
|
|
"param"
|
|
"value"
|
|
"literal"))
|
|
"parse-route-pattern"
|
|
(code :arity 1
|
|
:bytecode (20 0 0 16 0 48 1 17 1 20 2 0 16 1 52 1 0 2 50)
|
|
:constants (
|
|
"split-path-segments"
|
|
"map"
|
|
"make-route-segment"))
|
|
"match-route-segments"
|
|
(code :arity 2
|
|
:bytecode (16 0 52 2 0 1 16 1 52 2 0 1 52 1 0 2 52 0 0 1 33 4 0 2 32 35 0 65 0 0 17 2 3 17 3 51 4 0 1 3 1 0 1 2 16 1 52 3 0 2 5 16 3 33 5 0 16 2 32 1 0 2 50)
|
|
:constants (
|
|
"not"
|
|
"="
|
|
"len"
|
|
"for-each-indexed"
|
|
(code :arity 2 :upvalue-count 3
|
|
:bytecode (18 0 33 103 0 18 1 16 0 52 0 0 2 17 2 16 1 1 2 0 52 1 0 2 17 3 16 3 1 4 0 52 3 0 2 33 32 0 16 2 16 1 1 6 0 52 1 0 2 52 3 0 2 52 5 0 1 33 6 0 4 19 0 32 1 0 2 32 35 0 16 3 1 7 0 52 3 0 2 33 20 0 18 2 16 1 1 6 0 52 1 0 2 16 2 52 8 0 3 32 3 0 4 19 0 32 1 0 2 50)
|
|
:constants (
|
|
"nth"
|
|
"get"
|
|
"type"
|
|
"="
|
|
"literal"
|
|
"not"
|
|
"value"
|
|
"param"
|
|
"dict-set!"))))
|
|
"match-route"
|
|
(code :arity 2
|
|
:bytecode (20 0 0 16 0 48 1 17 2 20 1 0 16 1 48 1 17 3 20 2 0 16 2 16 3 49 2 50)
|
|
:constants (
|
|
"split-path-segments"
|
|
"parse-route-pattern"
|
|
"match-route-segments"))
|
|
"find-matching-route"
|
|
(code :arity 2
|
|
:bytecode (16 0 1 1 0 52 0 0 2 33 17 0 20 2 0 16 0 48 1 6 34 3 0 5 16 0 32 2 0 16 0 17 2 20 3 0 16 2 48 1 17 3 2 17 4 51 5 0 1 4 1 3 16 1 52 4 0 2 5 16 4 50)
|
|
:constants (
|
|
"starts-with?"
|
|
"/("
|
|
"sx-url-to-path"
|
|
"split-path-segments"
|
|
"for-each"
|
|
(code :arity 1 :upvalue-count 2
|
|
:bytecode (18 0 52 0 0 1 33 65 0 20 1 0 18 1 16 0 1 3 0 52 2 0 2 48 2 17 1 16 1 52 0 0 1 52 4 0 1 33 30 0 16 0 65 0 0 52 5 0 2 17 2 16 2 1 7 0 16 1 52 6 0 3 5 16 2 19 0 32 1 0 2 32 1 0 2 50)
|
|
:constants (
|
|
"nil?"
|
|
"match-route-segments"
|
|
"get"
|
|
"parsed"
|
|
"not"
|
|
"merge"
|
|
"dict-set!"
|
|
"params"))))
|
|
"_fn-to-segment"
|
|
(code :arity 1
|
|
:bytecode (16 0 6 1 0 0 52 1 0 2 33 7 0 5 1 2 0 32 147 0 6 1 3 0 52 1 0 2 33 7 0 5 1 4 0 32 129 0 6 1 5 0 52 1 0 2 33 7 0 5 1 6 0 32 111 0 6 1 7 0 52 1 0 2 33 7 0 5 1 8 0 32 93 0 6 1 9 0 52 1 0 2 33 7 0 5 1 10 0 32 75 0 6 1 11 0 52 1 0 2 33 7 0 5 1 12 0 32 57 0 6 1 13 0 52 1 0 2 33 7 0 5 1 14 0 32 39 0 6 1 15 0 52 1 0 2 33 7 0 5 1 16 0 32 21 0 6 1 17 0 52 1 0 2 33 7 0 5 1 18 0 32 3 0 5 16 0 50)
|
|
:constants (
|
|
"doc"
|
|
"="
|
|
"docs"
|
|
"spec"
|
|
"specs"
|
|
"bootstrapper"
|
|
"bootstrappers"
|
|
"test"
|
|
"testing"
|
|
"example"
|
|
"examples"
|
|
"protocol"
|
|
"protocols"
|
|
"essay"
|
|
"essays"
|
|
"plan"
|
|
"plans"
|
|
"reference-detail"
|
|
"reference"))
|
|
"sx-url-to-path"
|
|
(code :arity 1
|
|
:bytecode (16 0 1 2 0 52 1 0 2 6 33 10 0 5 16 0 1 4 0 52 3 0 2 52 0 0 1 33 4 0 2 32 99 0 16 0 1 6 0 16 0 52 8 0 1 1 9 0 52 7 0 2 52 5 0 3 17 1 16 1 1 11 0 1 12 0 52 10 0 3 1 13 0 1 14 0 52 10 0 3 1 4 0 1 14 0 52 10 0 3 17 2 51 16 0 16 2 1 12 0 52 17 0 2 52 15 0 2 17 3 1 12 0 1 12 0 20 21 0 16 3 52 20 0 2 52 19 0 2 52 18 0 2 50)
|
|
:constants (
|
|
"not"
|
|
"starts-with?"
|
|
"/("
|
|
"ends-with?"
|
|
")"
|
|
"slice"
|
|
2
|
|
"-"
|
|
"len"
|
|
1
|
|
"replace"
|
|
"."
|
|
"/"
|
|
"("
|
|
""
|
|
"filter"
|
|
(code :arity 1
|
|
:bytecode (16 0 52 1 0 1 52 0 0 1 50)
|
|
:constants (
|
|
"not"
|
|
"empty?"))
|
|
"split"
|
|
"str"
|
|
"join"
|
|
"map"
|
|
"_fn-to-segment"))
|
|
"_count-leading-dots"
|
|
(code :arity 1
|
|
:bytecode (16 0 52 0 0 1 33 6 0 1 1 0 32 39 0 16 0 1 3 0 52 2 0 2 33 24 0 1 5 0 20 6 0 16 0 1 5 0 52 7 0 2 48 1 52 4 0 2 32 3 0 1 1 0 50)
|
|
:constants (
|
|
"empty?"
|
|
0
|
|
"starts-with?"
|
|
"."
|
|
"+"
|
|
1
|
|
"_count-leading-dots"
|
|
"slice"))
|
|
"_strip-trailing-close"
|
|
(code :arity 1
|
|
:bytecode (16 0 1 1 0 52 0 0 2 33 30 0 20 2 0 16 0 1 4 0 16 0 52 6 0 1 1 7 0 52 5 0 2 52 3 0 3 49 1 32 2 0 16 0 50)
|
|
:constants (
|
|
"ends-with?"
|
|
")"
|
|
"_strip-trailing-close"
|
|
"slice"
|
|
0
|
|
"-"
|
|
"len"
|
|
1))
|
|
"_index-of-safe"
|
|
(code :arity 2
|
|
:bytecode (16 0 16 1 52 0 0 2 17 2 16 2 52 1 0 1 6 34 10 0 5 16 2 1 3 0 52 2 0 2 33 4 0 2 32 2 0 16 2 50)
|
|
:constants (
|
|
"index-of"
|
|
"nil?"
|
|
"<"
|
|
0))
|
|
"_last-index-of"
|
|
(code :arity 2
|
|
:bytecode (20 0 0 16 0 16 1 48 2 17 2 16 2 52 1 0 1 33 4 0 2 32 53 0 20 2 0 16 0 16 2 1 5 0 52 4 0 2 52 3 0 2 16 1 48 2 17 3 16 3 52 1 0 1 33 5 0 16 2 32 15 0 16 2 1 5 0 52 4 0 2 16 3 52 4 0 2 50)
|
|
:constants (
|
|
"_index-of-safe"
|
|
"nil?"
|
|
"_last-index-of"
|
|
"slice"
|
|
"+"
|
|
1))
|
|
"_pop-sx-url-level"
|
|
(code :arity 1
|
|
:bytecode (20 0 0 16 0 48 1 17 1 16 0 52 2 0 1 20 0 0 16 0 48 1 52 2 0 1 52 1 0 2 17 2 16 2 1 4 0 52 3 0 2 33 6 0 1 5 0 32 67 0 20 6 0 16 1 1 7 0 48 2 17 3 16 3 52 8 0 1 33 6 0 1 5 0 32 40 0 16 1 1 11 0 16 3 52 10 0 3 16 0 16 0 52 2 0 1 16 2 1 4 0 52 1 0 2 52 1 0 2 52 10 0 2 52 9 0 2 50)
|
|
:constants (
|
|
"_strip-trailing-close"
|
|
"-"
|
|
"len"
|
|
"<="
|
|
1
|
|
"/"
|
|
"_last-index-of"
|
|
".("
|
|
"nil?"
|
|
"str"
|
|
"slice"
|
|
0))
|
|
"_pop-sx-url-levels"
|
|
(code :arity 2
|
|
:bytecode (16 1 1 1 0 52 0 0 2 33 5 0 16 0 32 21 0 20 2 0 20 3 0 16 0 48 1 16 1 1 5 0 52 4 0 2 49 2 50)
|
|
:constants (
|
|
"<="
|
|
0
|
|
"_pop-sx-url-levels"
|
|
"_pop-sx-url-level"
|
|
"-"
|
|
1))
|
|
"_split-pos-kw"
|
|
(code :arity 4
|
|
:bytecode (16 1 16 0 52 1 0 1 52 0 0 2 33 23 0 1 2 0 1 4 0 16 2 52 3 0 2 1 5 0 16 3 65 2 0 32 136 0 16 0 16 1 52 6 0 2 17 4 16 4 1 8 0 52 7 0 2 33 84 0 16 1 1 11 0 52 10 0 2 16 0 52 1 0 1 52 9 0 2 33 18 0 16 0 16 1 1 11 0 52 10 0 2 52 6 0 2 32 3 0 1 12 0 17 5 20 13 0 16 0 16 1 1 14 0 52 10 0 2 16 2 16 3 16 4 16 5 52 16 0 2 52 16 0 1 52 15 0 2 49 4 32 30 0 20 13 0 16 0 16 1 1 11 0 52 10 0 2 16 2 16 4 52 16 0 1 52 15 0 2 16 3 49 4 50)
|
|
:constants (
|
|
">="
|
|
"len"
|
|
"positional"
|
|
"join"
|
|
"."
|
|
"keywords"
|
|
"nth"
|
|
"starts-with?"
|
|
":"
|
|
"<"
|
|
"+"
|
|
1
|
|
""
|
|
"_split-pos-kw"
|
|
2
|
|
"append"
|
|
"list"))
|
|
"_parse-relative-body"
|
|
(code :arity 1
|
|
:bytecode (16 0 52 0 0 1 33 19 0 1 1 0 1 2 0 1 3 0 52 4 0 0 65 2 0 32 25 0 20 5 0 16 0 1 7 0 52 6 0 2 1 8 0 52 4 0 0 52 4 0 0 49 4 50)
|
|
:constants (
|
|
"empty?"
|
|
"positional"
|
|
""
|
|
"keywords"
|
|
"list"
|
|
"_split-pos-kw"
|
|
"split"
|
|
"."
|
|
0))
|
|
"_extract-innermost"
|
|
(code :arity 1
|
|
:bytecode (20 0 0 16 0 48 1 17 1 16 0 20 0 0 16 0 48 1 52 2 0 1 52 1 0 2 17 2 20 3 0 16 1 1 4 0 48 2 17 3 16 3 52 5 0 1 33 29 0 1 6 0 1 7 0 1 8 0 16 1 1 9 0 52 1 0 2 1 10 0 16 2 65 3 0 32 47 0 1 6 0 16 1 1 11 0 16 3 1 9 0 52 12 0 2 52 1 0 3 1 8 0 16 1 16 3 1 9 0 52 12 0 2 52 1 0 2 1 10 0 16 2 65 3 0 50)
|
|
:constants (
|
|
"_strip-trailing-close"
|
|
"slice"
|
|
"len"
|
|
"_last-index-of"
|
|
".("
|
|
"nil?"
|
|
"before"
|
|
"/("
|
|
"content"
|
|
2
|
|
"suffix"
|
|
0
|
|
"+"))
|
|
"_find-kw-in-tokens"
|
|
(code :arity 3
|
|
:bytecode (16 1 16 0 52 1 0 1 52 0 0 2 33 4 0 2 32 77 0 16 0 16 1 52 3 0 2 16 2 52 2 0 2 6 33 20 0 5 16 1 1 6 0 52 5 0 2 16 0 52 1 0 1 52 4 0 2 33 18 0 16 0 16 1 1 6 0 52 5 0 2 52 3 0 2 32 18 0 20 7 0 16 0 16 1 1 6 0 52 5 0 2 16 2 49 3 50)
|
|
:constants (
|
|
">="
|
|
"len"
|
|
"="
|
|
"nth"
|
|
"<"
|
|
"+"
|
|
1
|
|
"_find-kw-in-tokens"))
|
|
"_find-keyword-value"
|
|
(code :arity 2
|
|
:bytecode (20 0 0 16 0 1 2 0 52 1 0 2 1 3 0 16 1 49 3 50)
|
|
:constants (
|
|
"_find-kw-in-tokens"
|
|
"split"
|
|
"."
|
|
0))
|
|
"_replace-kw-in-tokens"
|
|
(code :arity 4
|
|
:bytecode (16 1 16 0 52 1 0 1 52 0 0 2 33 7 0 52 2 0 0 32 108 0 16 0 16 1 52 4 0 2 16 2 52 3 0 2 6 33 20 0 5 16 1 1 7 0 52 6 0 2 16 0 52 1 0 1 52 5 0 2 33 35 0 16 2 16 3 52 2 0 2 20 9 0 16 0 16 1 1 10 0 52 6 0 2 16 2 16 3 48 4 52 8 0 2 32 32 0 16 0 16 1 52 4 0 2 20 9 0 16 0 16 1 1 7 0 52 6 0 2 16 2 16 3 48 4 52 11 0 2 50)
|
|
:constants (
|
|
">="
|
|
"len"
|
|
"list"
|
|
"="
|
|
"nth"
|
|
"<"
|
|
"+"
|
|
1
|
|
"append"
|
|
"_replace-kw-in-tokens"
|
|
2
|
|
"cons"))
|
|
"_set-keyword-in-content"
|
|
(code :arity 3
|
|
:bytecode (20 0 0 16 0 16 1 48 2 17 3 16 3 52 1 0 1 33 19 0 16 0 1 3 0 16 1 1 3 0 16 2 52 2 0 5 32 28 0 1 3 0 20 5 0 16 0 1 3 0 52 6 0 2 1 7 0 16 1 16 2 48 4 52 4 0 2 50)
|
|
:constants (
|
|
"_find-keyword-value"
|
|
"nil?"
|
|
"str"
|
|
"."
|
|
"join"
|
|
"_replace-kw-in-tokens"
|
|
"split"
|
|
0))
|
|
"_is-delta-value?"
|
|
(code :arity 1
|
|
:bytecode (16 0 52 1 0 1 52 0 0 1 6 33 42 0 5 16 0 52 3 0 1 1 4 0 52 2 0 2 6 33 24 0 5 16 0 1 6 0 52 5 0 2 6 34 10 0 5 16 0 1 7 0 52 5 0 2 50)
|
|
:constants (
|
|
"not"
|
|
"empty?"
|
|
">"
|
|
"len"
|
|
1
|
|
"starts-with?"
|
|
"+"
|
|
"-"))
|
|
"_apply-delta"
|
|
(code :arity 2
|
|
:bytecode (16 0 2 52 0 0 2 17 2 16 1 2 52 0 0 2 17 3 16 2 52 1 0 1 6 34 7 0 5 16 3 52 1 0 1 33 5 0 16 1 32 12 0 16 2 16 3 52 3 0 2 52 2 0 1 50)
|
|
:constants (
|
|
"parse-int"
|
|
"nil?"
|
|
"str"
|
|
"+"))
|
|
"_apply-kw-pairs"
|
|
(code :arity 2
|
|
:bytecode (16 1 52 0 0 1 33 5 0 16 0 32 100 0 16 1 52 1 0 1 17 2 16 2 52 1 0 1 17 3 16 2 1 3 0 52 2 0 2 17 4 20 4 0 16 4 48 1 33 37 0 20 5 0 16 0 16 3 48 2 17 6 16 6 52 6 0 1 33 5 0 16 4 32 9 0 20 7 0 16 6 16 4 48 2 32 2 0 16 4 17 5 20 8 0 20 9 0 16 0 16 3 16 5 48 3 16 1 52 10 0 1 49 2 50)
|
|
:constants (
|
|
"empty?"
|
|
"first"
|
|
"nth"
|
|
1
|
|
"_is-delta-value?"
|
|
"_find-keyword-value"
|
|
"nil?"
|
|
"_apply-delta"
|
|
"_apply-kw-pairs"
|
|
"_set-keyword-in-content"
|
|
"rest"))
|
|
"_apply-keywords-to-url"
|
|
(code :arity 2
|
|
:bytecode (16 1 52 0 0 1 33 5 0 16 0 32 51 0 20 1 0 16 0 48 1 17 2 20 2 0 16 2 1 4 0 52 3 0 2 16 1 48 2 17 3 16 2 1 6 0 52 3 0 2 16 3 16 2 1 7 0 52 3 0 2 52 5 0 3 50)
|
|
:constants (
|
|
"empty?"
|
|
"_extract-innermost"
|
|
"_apply-kw-pairs"
|
|
"get"
|
|
"content"
|
|
"str"
|
|
"before"
|
|
"suffix"))
|
|
"_normalize-relative"
|
|
(code :arity 1
|
|
:bytecode (16 0 1 1 0 52 0 0 2 33 5 0 16 0 32 12 0 1 1 0 16 0 1 3 0 52 2 0 3 50)
|
|
:constants (
|
|
"starts-with?"
|
|
"("
|
|
"str"
|
|
")"))
|
|
"resolve-relative-url"
|
|
(code :arity 2
|
|
:bytecode (20 0 0 16 1 48 1 17 2 16 2 1 2 0 16 2 52 4 0 1 1 2 0 52 3 0 2 52 1 0 3 17 3 20 5 0 16 3 48 1 17 4 16 3 20 5 0 16 3 48 1 52 1 0 2 17 5 16 4 1 7 0 52 6 0 2 33 5 0 16 0 32 215 0 20 8 0 16 5 48 1 17 6 16 6 1 10 0 52 9 0 2 17 7 16 6 1 11 0 52 9 0 2 17 8 16 4 1 2 0 52 6 0 2 33 58 0 16 7 52 12 0 1 33 5 0 16 0 32 41 0 20 13 0 16 0 48 1 17 10 16 0 20 13 0 16 0 48 1 52 4 0 1 52 1 0 2 17 11 16 10 1 15 0 16 7 16 11 52 14 0 4 32 103 0 20 16 0 16 0 16 4 1 2 0 52 3 0 2 48 2 17 10 16 7 52 12 0 1 33 5 0 16 10 32 71 0 16 10 1 17 0 52 6 0 2 33 15 0 1 18 0 16 7 1 19 0 52 14 0 3 32 44 0 20 13 0 16 10 48 1 17 11 16 10 20 13 0 16 10 48 1 52 4 0 1 52 1 0 2 17 12 16 11 1 20 0 16 7 1 19 0 16 12 52 14 0 5 17 9 20 21 0 16 9 16 8 49 2 50)
|
|
:constants (
|
|
"_normalize-relative"
|
|
"slice"
|
|
1
|
|
"-"
|
|
"len"
|
|
"_count-leading-dots"
|
|
"="
|
|
0
|
|
"_parse-relative-body"
|
|
"get"
|
|
"positional"
|
|
"keywords"
|
|
"empty?"
|
|
"_strip-trailing-close"
|
|
"str"
|
|
"."
|
|
"_pop-sx-url-levels"
|
|
"/"
|
|
"/("
|
|
")"
|
|
".("
|
|
"_apply-keywords-to-url"))
|
|
"relative-sx-url?"
|
|
(code :arity 1
|
|
:bytecode (16 0 1 1 0 52 0 0 2 6 33 14 0 5 16 0 1 3 0 52 0 0 2 52 2 0 1 6 34 10 0 5 16 0 1 4 0 52 0 0 2 50)
|
|
:constants (
|
|
"starts-with?"
|
|
"("
|
|
"not"
|
|
"/("
|
|
"."))
|
|
"_url-special-forms"
|
|
(code
|
|
:bytecode (1 1 0 1 2 0 1 3 0 1 4 0 1 5 0 1 6 0 52 0 0 6 50)
|
|
:constants (
|
|
"list"
|
|
"!source"
|
|
"!inspect"
|
|
"!diff"
|
|
"!search"
|
|
"!raw"
|
|
"!json"))
|
|
"url-special-form?"
|
|
(code :arity 1
|
|
:bytecode (16 0 1 1 0 52 0 0 2 6 33 12 0 5 20 3 0 48 0 16 0 52 2 0 2 50)
|
|
:constants (
|
|
"starts-with?"
|
|
"!"
|
|
"contains?"
|
|
"_url-special-forms"))
|
|
"parse-sx-url"
|
|
(code :arity 1
|
|
:bytecode (16 0 1 1 0 52 0 0 2 33 17 0 1 2 0 16 0 1 3 0 1 4 0 65 2 0 32 119 1 20 5 0 16 0 48 1 33 17 0 1 2 0 16 0 1 3 0 1 6 0 65 2 0 32 92 1 16 0 1 8 0 52 7 0 2 6 33 10 0 5 16 0 1 10 0 52 9 0 2 33 193 0 16 0 1 12 0 16 0 52 14 0 1 1 15 0 52 13 0 2 52 11 0 3 17 1 20 16 0 16 1 1 17 0 48 2 17 2 20 16 0 16 1 1 18 0 48 2 17 3 16 2 52 19 0 1 6 33 7 0 5 16 3 52 19 0 1 33 9 0 16 1 52 14 0 1 32 36 0 16 2 52 19 0 1 33 5 0 16 3 32 22 0 16 3 52 19 0 1 33 5 0 16 2 32 8 0 16 2 16 3 52 20 0 2 17 4 16 1 1 21 0 16 4 52 11 0 3 17 5 16 1 16 4 52 11 0 2 17 6 16 6 1 17 0 52 7 0 2 33 12 0 16 6 1 15 0 52 11 0 2 32 2 0 16 6 17 7 1 2 0 16 0 1 3 0 1 22 0 1 23 0 16 7 1 24 0 16 5 65 4 0 32 129 0 16 0 1 25 0 52 7 0 2 6 33 10 0 5 16 0 1 10 0 52 9 0 2 33 46 0 16 0 1 12 0 16 0 52 14 0 1 1 15 0 52 13 0 2 52 11 0 3 17 1 1 2 0 16 0 1 3 0 1 26 0 1 27 0 16 1 65 3 0 32 57 0 16 0 1 28 0 52 7 0 2 6 33 10 0 5 16 0 1 10 0 52 9 0 2 33 17 0 1 2 0 16 0 1 3 0 1 29 0 65 2 0 32 14 0 1 2 0 16 0 1 3 0 1 30 0 65 2 0 50)
|
|
:constants (
|
|
"="
|
|
"/"
|
|
"raw"
|
|
"type"
|
|
"home"
|
|
"relative-sx-url?"
|
|
"relative"
|
|
"starts-with?"
|
|
"/(!"
|
|
"ends-with?"
|
|
")"
|
|
"slice"
|
|
2
|
|
"-"
|
|
"len"
|
|
1
|
|
"_index-of-safe"
|
|
"."
|
|
"("
|
|
"nil?"
|
|
"min"
|
|
0
|
|
"special-form"
|
|
"inner"
|
|
"form"
|
|
"/(~"
|
|
"direct-component"
|
|
"name"
|
|
"/("
|
|
"absolute"
|
|
"path"))
|
|
"url-special-form-name"
|
|
(code :arity 1
|
|
:bytecode (20 0 0 16 0 48 1 17 1 16 1 1 3 0 52 2 0 2 1 4 0 52 1 0 2 33 12 0 16 1 1 5 0 52 2 0 2 32 1 0 2 50)
|
|
:constants (
|
|
"parse-sx-url"
|
|
"="
|
|
"get"
|
|
"type"
|
|
"special-form"
|
|
"form"))
|
|
"url-special-form-inner"
|
|
(code :arity 1
|
|
:bytecode (20 0 0 16 0 48 1 17 1 16 1 1 3 0 52 2 0 2 1 4 0 52 1 0 2 33 12 0 16 1 1 5 0 52 2 0 2 32 1 0 2 50)
|
|
:constants (
|
|
"parse-sx-url"
|
|
"="
|
|
"get"
|
|
"type"
|
|
"special-form"
|
|
"inner"))
|
|
"url-to-expr"
|
|
(code :arity 1
|
|
:bytecode (16 0 1 1 0 52 0 0 2 6 34 7 0 5 16 0 52 2 0 1 33 7 0 52 3 0 0 32 73 0 16 0 1 1 0 52 4 0 2 33 12 0 16 0 1 6 0 52 5 0 2 32 2 0 16 0 17 1 16 1 1 8 0 1 9 0 52 7 0 3 17 2 20 10 0 16 2 48 1 17 3 16 3 52 2 0 1 33 7 0 52 3 0 0 32 6 0 16 3 52 11 0 1 50)
|
|
:constants (
|
|
"="
|
|
"/"
|
|
"empty?"
|
|
"list"
|
|
"starts-with?"
|
|
"slice"
|
|
1
|
|
"replace"
|
|
"."
|
|
" "
|
|
"sx-parse"
|
|
"first"))
|
|
"auto-quote-unknowns"
|
|
(code :arity 2
|
|
:bytecode (16 0 52 1 0 1 52 0 0 1 33 5 0 16 0 32 39 0 16 0 52 2 0 1 33 5 0 16 0 32 25 0 16 0 52 4 0 1 51 6 0 1 1 16 0 52 7 0 1 52 5 0 2 52 3 0 2 50)
|
|
:constants (
|
|
"not"
|
|
"list?"
|
|
"empty?"
|
|
"cons"
|
|
"first"
|
|
"map"
|
|
(code :arity 1 :upvalue-count 1
|
|
:bytecode (16 0 52 0 0 1 33 12 0 20 1 0 16 0 18 0 49 2 32 91 0 16 0 52 3 0 1 1 4 0 52 2 0 2 33 73 0 20 5 0 16 0 48 1 17 1 20 6 0 18 0 16 1 48 2 6 34 38 0 5 16 1 1 8 0 52 7 0 2 6 34 24 0 5 16 1 1 9 0 52 7 0 2 6 34 10 0 5 16 1 1 10 0 52 7 0 2 33 5 0 16 0 32 2 0 16 1 32 2 0 16 0 50)
|
|
:constants (
|
|
"list?"
|
|
"auto-quote-unknowns"
|
|
"="
|
|
"type-of"
|
|
"symbol"
|
|
"symbol-name"
|
|
"env-has?"
|
|
"starts-with?"
|
|
":"
|
|
"~"
|
|
"!"))
|
|
"rest"))
|
|
"prepare-url-expr"
|
|
(code :arity 2
|
|
:bytecode (20 0 0 16 0 48 1 17 2 16 2 52 1 0 1 33 5 0 16 2 32 9 0 20 2 0 16 2 16 1 49 2 50)
|
|
:constants (
|
|
"url-to-expr"
|
|
"empty?"
|
|
"auto-quote-unknowns")))))
|