shen-ruby 0.14.0 → 0.15.0

Sign up to get free protection for your applications and to get access to all the features.
Files changed (25) hide show
  1. checksums.yaml +4 -4
  2. data/.travis.yml +1 -1
  3. data/HISTORY.md +6 -3
  4. data/README.md +10 -7
  5. data/bin/shen-ruby +21 -0
  6. data/bin/shen_ruby +21 -0
  7. data/lib/shen_ruby/converters.rb +2 -4
  8. data/lib/shen_ruby/shen.rb +1 -1
  9. data/lib/shen_ruby/version.rb +1 -1
  10. data/shen/release/klambda/core.kl +67 -63
  11. data/shen/release/klambda/declarations.kl +92 -84
  12. data/shen/release/klambda/load.kl +15 -15
  13. data/shen/release/klambda/macros.kl +34 -33
  14. data/shen/release/klambda/prolog.kl +96 -98
  15. data/shen/release/klambda/reader.kl +83 -83
  16. data/shen/release/klambda/sequent.kl +55 -55
  17. data/shen/release/klambda/sys.kl +106 -101
  18. data/shen/release/klambda/t-star.kl +41 -41
  19. data/shen/release/klambda/toplevel.kl +21 -21
  20. data/shen/release/klambda/track.kl +25 -25
  21. data/shen/release/klambda/types.kl +6 -4
  22. data/shen/release/klambda/writer.kl +25 -25
  23. data/shen/release/klambda/yacc.kl +28 -28
  24. data/shen-ruby.gemspec +3 -3
  25. metadata +9 -5
data/shen/release/klambda/reader.kl CHANGED
@@ -23,176 +23,176 @@ ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
23
23
  (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
24
24
  SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE."
25
25
 
26
- (defun read-file-as-bytelist (V1216) (let Stream (open V1216 in) (let Byte (read-byte Stream) (let Bytes (shen.read-file-as-bytelist-help Stream Byte ()) (let Close (close Stream) (reverse Bytes))))))
26
+ (defun read-file-as-bytelist (V16928) (let Stream (open V16928 in) (let Byte (read-byte Stream) (let Bytes (shen.read-file-as-bytelist-help Stream Byte ()) (let Close (close Stream) (reverse Bytes))))))
27
27
 
28
- (defun shen.read-file-as-bytelist-help (V1217 V1218 V1219) (cond ((= -1 V1218) V1219) (true (shen.read-file-as-bytelist-help V1217 (read-byte V1217) (cons V1218 V1219)))))
28
+ (defun shen.read-file-as-bytelist-help (V16932 V16933 V16934) (cond ((= -1 V16933) V16934) (true (shen.read-file-as-bytelist-help V16932 (read-byte V16932) (cons V16933 V16934)))))
29
29
 
30
- (defun read-file-as-string (V1220) (let Stream (open V1220 in) (shen.rfas-h Stream (read-byte Stream) "")))
30
+ (defun read-file-as-string (V16936) (let Stream (open V16936 in) (shen.rfas-h Stream (read-byte Stream) "")))
31
31
 
32
- (defun shen.rfas-h (V1221 V1222 V1223) (cond ((= -1 V1222) (do (close V1221) V1223)) (true (shen.rfas-h V1221 (read-byte V1221) (cn V1223 (n->string V1222))))))
32
+ (defun shen.rfas-h (V16940 V16941 V16942) (cond ((= -1 V16941) (do (close V16940) V16942)) (true (shen.rfas-h V16940 (read-byte V16940) (cn V16942 (n->string V16941))))))
33
33
 
34
- (defun input (V1224) (eval-kl (read V1224)))
34
+ (defun input (V16944) (eval-kl (read V16944)))
35
35
 
36
- (defun input+ (V1225 V1226) (let Mono? (shen.monotype V1225) (let Input (read V1226) (if (= false (shen.typecheck Input (shen.demodulate V1225))) (simple-error (cn "type error: " (shen.app Input (cn " is not of type " (shen.app V1225 "
36
+ (defun input+ (V16947 V16948) (let Mono? (shen.monotype V16947) (let Input (read V16948) (if (= false (shen.typecheck Input (shen.demodulate V16947))) (simple-error (cn "type error: " (shen.app Input (cn " is not of type " (shen.app V16947 "
37
37
  " shen.r)) shen.r))) (eval-kl Input)))))
38
38
 
39
- (defun shen.monotype (V1227) (cond ((cons? V1227) (map (lambda V1205 (shen.monotype V1205)) V1227)) (true (if (variable? V1227) (simple-error (cn "input+ expects a monotype: not " (shen.app V1227 "
40
- " shen.a))) V1227))))
39
+ (defun shen.monotype (V16950) (cond ((cons? V16950) (map (lambda Z (shen.monotype Z)) V16950)) (true (if (variable? V16950) (simple-error (cn "input+ expects a monotype: not " (shen.app V16950 "
40
+ " shen.a))) V16950))))
41
41
 
42
- (defun read (V1228) (hd (shen.read-loop V1228 (read-byte V1228) ())))
42
+ (defun read (V16952) (hd (shen.read-loop V16952 (read-byte V16952) ())))
43
43
 
44
44
  (defun it () (value shen.*it*))
45
45
 
46
- (defun shen.read-loop (V1233 V1234 V1235) (cond ((= 94 V1234) (simple-error "read aborted")) ((= -1 V1234) (if (empty? V1235) (simple-error "error: empty stream") (compile (lambda V1206 (shen.<st_input> V1206)) V1235 (lambda E E)))) ((shen.terminator? V1234) (let AllBytes (append V1235 (cons V1234 ())) (let It (shen.record-it AllBytes) (let Read (compile (lambda V1207 (shen.<st_input> V1207)) AllBytes (lambda E shen.nextbyte)) (if (or (= Read shen.nextbyte) (empty? Read)) (shen.read-loop V1233 (read-byte V1233) AllBytes) Read))))) (true (shen.read-loop V1233 (read-byte V1233) (append V1235 (cons V1234 ()))))))
46
+ (defun shen.read-loop (V16960 V16961 V16962) (cond ((= 94 V16961) (simple-error "read aborted")) ((= -1 V16961) (if (empty? V16962) (simple-error "error: empty stream") (compile (lambda X (shen.<st_input> X)) V16962 (lambda E E)))) ((shen.terminator? V16961) (let AllBytes (append V16962 (cons V16961 ())) (let It (shen.record-it AllBytes) (let Read (compile (lambda X (shen.<st_input> X)) AllBytes (lambda E shen.nextbyte)) (if (or (= Read shen.nextbyte) (empty? Read)) (shen.read-loop V16960 (read-byte V16960) AllBytes) Read))))) (true (shen.read-loop V16960 (read-byte V16960) (append V16962 (cons V16961 ()))))))
47
47
 
48
- (defun shen.terminator? (V1236) (element? V1236 (cons 9 (cons 10 (cons 13 (cons 32 (cons 34 (cons 41 (cons 93 ())))))))))
48
+ (defun shen.terminator? (V16964) (element? V16964 (cons 9 (cons 10 (cons 13 (cons 32 (cons 34 (cons 41 (cons 93 ())))))))))
49
49
 
50
- (defun lineread (V1237) (shen.lineread-loop (read-byte V1237) () V1237))
50
+ (defun lineread (V16966) (shen.lineread-loop (read-byte V16966) () V16966))
51
51
 
52
- (defun shen.lineread-loop (V1239 V1240 V1241) (cond ((= -1 V1239) (if (empty? V1240) (simple-error "empty stream") (compile (lambda V1208 (shen.<st_input> V1208)) V1240 (lambda E E)))) ((= V1239 (shen.hat)) (simple-error "line read aborted")) ((element? V1239 (cons (shen.newline) (cons (shen.carriage-return) ()))) (let Line (compile (lambda V1209 (shen.<st_input> V1209)) V1240 (lambda E shen.nextline)) (let It (shen.record-it V1240) (if (or (= Line shen.nextline) (empty? Line)) (shen.lineread-loop (read-byte V1241) (append V1240 (cons V1239 ())) V1241) Line)))) (true (shen.lineread-loop (read-byte V1241) (append V1240 (cons V1239 ())) V1241))))
52
+ (defun shen.lineread-loop (V16971 V16972 V16973) (cond ((= -1 V16971) (if (empty? V16972) (simple-error "empty stream") (compile (lambda X (shen.<st_input> X)) V16972 (lambda E E)))) ((= V16971 (shen.hat)) (simple-error "line read aborted")) ((element? V16971 (cons (shen.newline) (cons (shen.carriage-return) ()))) (let Line (compile (lambda X (shen.<st_input> X)) V16972 (lambda E shen.nextline)) (let It (shen.record-it V16972) (if (or (= Line shen.nextline) (empty? Line)) (shen.lineread-loop (read-byte V16973) (append V16972 (cons V16971 ())) V16973) Line)))) (true (shen.lineread-loop (read-byte V16973) (append V16972 (cons V16971 ())) V16973))))
53
53
 
54
- (defun shen.record-it (V1242) (let TrimLeft (shen.trim-whitespace V1242) (let TrimRight (shen.trim-whitespace (reverse TrimLeft)) (let Trimmed (reverse TrimRight) (shen.record-it-h Trimmed)))))
54
+ (defun shen.record-it (V16975) (let TrimLeft (shen.trim-whitespace V16975) (let TrimRight (shen.trim-whitespace (reverse TrimLeft)) (let Trimmed (reverse TrimRight) (shen.record-it-h Trimmed)))))
55
55
 
56
- (defun shen.trim-whitespace (V1243) (cond ((and (cons? V1243) (element? (hd V1243) (cons 9 (cons 10 (cons 13 (cons 32 ())))))) (shen.trim-whitespace (tl V1243))) (true V1243)))
56
+ (defun shen.trim-whitespace (V16977) (cond ((and (cons? V16977) (element? (hd V16977) (cons 9 (cons 10 (cons 13 (cons 32 ())))))) (shen.trim-whitespace (tl V16977))) (true V16977)))
57
57
 
58
- (defun shen.record-it-h (V1244) (do (set shen.*it* (shen.cn-all (map (lambda V1210 (n->string V1210)) V1244))) V1244))
58
+ (defun shen.record-it-h (V16979) (do (set shen.*it* (shen.cn-all (map (lambda X (n->string X)) V16979))) V16979))
59
59
 
60
- (defun shen.cn-all (V1245) (cond ((= () V1245) "") ((cons? V1245) (cn (hd V1245) (shen.cn-all (tl V1245)))) (true (shen.f_error shen.cn-all))))
60
+ (defun shen.cn-all (V16981) (cond ((= () V16981) "") ((cons? V16981) (cn (hd V16981) (shen.cn-all (tl V16981)))) (true (shen.f_error shen.cn-all))))
61
61
 
62
- (defun read-file (V1246) (let Bytelist (read-file-as-bytelist V1246) (compile (lambda V1212 (shen.<st_input> V1212)) Bytelist (lambda V1211 (shen.read-error V1211)))))
62
+ (defun read-file (V16983) (let Bytelist (read-file-as-bytelist V16983) (compile (lambda X (shen.<st_input> X)) Bytelist (lambda X (shen.read-error X)))))
63
63
 
64
- (defun read-from-string (V1247) (let Ns (map (lambda V1213 (string->n V1213)) (explode V1247)) (compile (lambda V1215 (shen.<st_input> V1215)) Ns (lambda V1214 (shen.read-error V1214)))))
64
+ (defun read-from-string (V16985) (let Ns (map (lambda X (string->n X)) (explode V16985)) (compile (lambda X (shen.<st_input> X)) Ns (lambda X (shen.read-error X)))))
65
65
 
66
- (defun shen.read-error (V1254) (cond ((and (cons? V1254) (and (cons? (hd V1254)) (and (cons? (tl V1254)) (= () (tl (tl V1254)))))) (simple-error (cn "read error here:
66
+ (defun shen.read-error (V16993) (cond ((and (cons? V16993) (and (cons? (hd V16993)) (and (cons? (tl V16993)) (= () (tl (tl V16993)))))) (simple-error (cn "read error here:
67
67
 
68
- " (shen.app (shen.compress-50 50 (hd V1254)) "
68
+ " (shen.app (shen.compress-50 50 (hd V16993)) "
69
69
  " shen.a)))) (true (simple-error "read error
70
70
  "))))
71
71
 
72
- (defun shen.compress-50 (V1259 V1260) (cond ((= () V1260) "") ((= 0 V1259) "") ((cons? V1260) (cn (n->string (hd V1260)) (shen.compress-50 (- V1259 1) (tl V1260)))) (true (shen.f_error shen.compress-50))))
72
+ (defun shen.compress-50 (V17000 V17001) (cond ((= () V17001) "") ((= 0 V17000) "") ((cons? V17001) (cn (n->string (hd V17001)) (shen.compress-50 (- V17000 1) (tl V17001)))) (true (shen.f_error shen.compress-50))))
73
73
 
74
- (defun shen.<st_input> (V1261) (let YaccParse (let Parse_shen.<lsb> (shen.<lsb> V1261) (if (not (= (fail) Parse_shen.<lsb>)) (let Parse_shen.<st_input1> (shen.<st_input1> Parse_shen.<lsb>) (if (not (= (fail) Parse_shen.<st_input1>)) (let Parse_shen.<rsb> (shen.<rsb> Parse_shen.<st_input1>) (if (not (= (fail) Parse_shen.<rsb>)) (let Parse_shen.<st_input2> (shen.<st_input2> Parse_shen.<rsb>) (if (not (= (fail) Parse_shen.<st_input2>)) (shen.pair (hd Parse_shen.<st_input2>) (cons (macroexpand (shen.cons_form (shen.hdtl Parse_shen.<st_input1>))) (shen.hdtl Parse_shen.<st_input2>))) (fail))) (fail))) (fail))) (fail))) (if (= YaccParse (fail)) (let YaccParse (let Parse_shen.<lrb> (shen.<lrb> V1261) (if (not (= (fail) Parse_shen.<lrb>)) (let Parse_shen.<st_input1> (shen.<st_input1> Parse_shen.<lrb>) (if (not (= (fail) Parse_shen.<st_input1>)) (let Parse_shen.<rrb> (shen.<rrb> Parse_shen.<st_input1>) (if (not (= (fail) Parse_shen.<rrb>)) (let Parse_shen.<st_input2> (shen.<st_input2> Parse_shen.<rrb>) (if (not (= (fail) Parse_shen.<st_input2>)) (shen.pair (hd Parse_shen.<st_input2>) (shen.package-macro (macroexpand (shen.hdtl Parse_shen.<st_input1>)) (shen.hdtl Parse_shen.<st_input2>))) (fail))) (fail))) (fail))) (fail))) (if (= YaccParse (fail)) (let YaccParse (let Parse_shen.<lcurly> (shen.<lcurly> V1261) (if (not (= (fail) Parse_shen.<lcurly>)) (let Parse_shen.<st_input> (shen.<st_input> Parse_shen.<lcurly>) (if (not (= (fail) Parse_shen.<st_input>)) (shen.pair (hd Parse_shen.<st_input>) (cons { (shen.hdtl Parse_shen.<st_input>))) (fail))) (fail))) (if (= YaccParse (fail)) (let YaccParse (let Parse_shen.<rcurly> (shen.<rcurly> V1261) (if (not (= (fail) Parse_shen.<rcurly>)) (let Parse_shen.<st_input> (shen.<st_input> Parse_shen.<rcurly>) (if (not (= (fail) Parse_shen.<st_input>)) (shen.pair (hd Parse_shen.<st_input>) (cons } (shen.hdtl Parse_shen.<st_input>))) (fail))) (fail))) (if (= YaccParse (fail)) (let YaccParse (let Parse_shen.<bar> (shen.<bar> V1261) (if (not (= (fail) Parse_shen.<bar>)) (let Parse_shen.<st_input> (shen.<st_input> Parse_shen.<bar>) (if (not (= (fail) Parse_shen.<st_input>)) (shen.pair (hd Parse_shen.<st_input>) (cons bar! (shen.hdtl Parse_shen.<st_input>))) (fail))) (fail))) (if (= YaccParse (fail)) (let YaccParse (let Parse_shen.<semicolon> (shen.<semicolon> V1261) (if (not (= (fail) Parse_shen.<semicolon>)) (let Parse_shen.<st_input> (shen.<st_input> Parse_shen.<semicolon>) (if (not (= (fail) Parse_shen.<st_input>)) (shen.pair (hd Parse_shen.<st_input>) (cons ; (shen.hdtl Parse_shen.<st_input>))) (fail))) (fail))) (if (= YaccParse (fail)) (let YaccParse (let Parse_shen.<colon> (shen.<colon> V1261) (if (not (= (fail) Parse_shen.<colon>)) (let Parse_shen.<equal> (shen.<equal> Parse_shen.<colon>) (if (not (= (fail) Parse_shen.<equal>)) (let Parse_shen.<st_input> (shen.<st_input> Parse_shen.<equal>) (if (not (= (fail) Parse_shen.<st_input>)) (shen.pair (hd Parse_shen.<st_input>) (cons := (shen.hdtl Parse_shen.<st_input>))) (fail))) (fail))) (fail))) (if (= YaccParse (fail)) (let YaccParse (let Parse_shen.<colon> (shen.<colon> V1261) (if (not (= (fail) Parse_shen.<colon>)) (let Parse_shen.<minus> (shen.<minus> Parse_shen.<colon>) (if (not (= (fail) Parse_shen.<minus>)) (let Parse_shen.<st_input> (shen.<st_input> Parse_shen.<minus>) (if (not (= (fail) Parse_shen.<st_input>)) (shen.pair (hd Parse_shen.<st_input>) (cons :- (shen.hdtl Parse_shen.<st_input>))) (fail))) (fail))) (fail))) (if (= YaccParse (fail)) (let YaccParse (let Parse_shen.<colon> (shen.<colon> V1261) (if (not (= (fail) Parse_shen.<colon>)) (let Parse_shen.<st_input> (shen.<st_input> Parse_shen.<colon>) (if (not (= (fail) Parse_shen.<st_input>)) (shen.pair (hd Parse_shen.<st_input>) (cons : (shen.hdtl Parse_shen.<st_input>))) (fail))) (fail))) (if (= YaccParse (fail)) (let YaccParse (let Parse_shen.<comma> (shen.<comma> V1261) (if (not (= (fail) Parse_shen.<comma>)) (let Parse_shen.<st_input> (shen.<st_input> Parse_shen.<comma>) (if (not (= (fail) Parse_shen.<st_input>)) (shen.pair (hd Parse_shen.<st_input>) (cons (intern ",") (shen.hdtl Parse_shen.<st_input>))) (fail))) (fail))) (if (= YaccParse (fail)) (let YaccParse (let Parse_shen.<comment> (shen.<comment> V1261) (if (not (= (fail) Parse_shen.<comment>)) (let Parse_shen.<st_input> (shen.<st_input> Parse_shen.<comment>) (if (not (= (fail) Parse_shen.<st_input>)) (shen.pair (hd Parse_shen.<st_input>) (shen.hdtl Parse_shen.<st_input>)) (fail))) (fail))) (if (= YaccParse (fail)) (let YaccParse (let Parse_shen.<atom> (shen.<atom> V1261) (if (not (= (fail) Parse_shen.<atom>)) (let Parse_shen.<st_input> (shen.<st_input> Parse_shen.<atom>) (if (not (= (fail) Parse_shen.<st_input>)) (shen.pair (hd Parse_shen.<st_input>) (cons (macroexpand (shen.hdtl Parse_shen.<atom>)) (shen.hdtl Parse_shen.<st_input>))) (fail))) (fail))) (if (= YaccParse (fail)) (let YaccParse (let Parse_shen.<whitespaces> (shen.<whitespaces> V1261) (if (not (= (fail) Parse_shen.<whitespaces>)) (let Parse_shen.<st_input> (shen.<st_input> Parse_shen.<whitespaces>) (if (not (= (fail) Parse_shen.<st_input>)) (shen.pair (hd Parse_shen.<st_input>) (shen.hdtl Parse_shen.<st_input>)) (fail))) (fail))) (if (= YaccParse (fail)) (let Parse_<e> (<e> V1261) (if (not (= (fail) Parse_<e>)) (shen.pair (hd Parse_<e>) ()) (fail))) YaccParse)) YaccParse)) YaccParse)) YaccParse)) YaccParse)) YaccParse)) YaccParse)) YaccParse)) YaccParse)) YaccParse)) YaccParse)) YaccParse)) YaccParse)))
74
+ (defun shen.<st_input> (V17003) (let YaccParse (let Parse_shen.<lsb> (shen.<lsb> V17003) (if (not (= (fail) Parse_shen.<lsb>)) (let Parse_shen.<st_input1> (shen.<st_input1> Parse_shen.<lsb>) (if (not (= (fail) Parse_shen.<st_input1>)) (let Parse_shen.<rsb> (shen.<rsb> Parse_shen.<st_input1>) (if (not (= (fail) Parse_shen.<rsb>)) (let Parse_shen.<st_input2> (shen.<st_input2> Parse_shen.<rsb>) (if (not (= (fail) Parse_shen.<st_input2>)) (shen.pair (hd Parse_shen.<st_input2>) (cons (macroexpand (shen.cons_form (shen.hdtl Parse_shen.<st_input1>))) (shen.hdtl Parse_shen.<st_input2>))) (fail))) (fail))) (fail))) (fail))) (if (= YaccParse (fail)) (let YaccParse (let Parse_shen.<lrb> (shen.<lrb> V17003) (if (not (= (fail) Parse_shen.<lrb>)) (let Parse_shen.<st_input1> (shen.<st_input1> Parse_shen.<lrb>) (if (not (= (fail) Parse_shen.<st_input1>)) (let Parse_shen.<rrb> (shen.<rrb> Parse_shen.<st_input1>) (if (not (= (fail) Parse_shen.<rrb>)) (let Parse_shen.<st_input2> (shen.<st_input2> Parse_shen.<rrb>) (if (not (= (fail) Parse_shen.<st_input2>)) (shen.pair (hd Parse_shen.<st_input2>) (shen.package-macro (macroexpand (shen.hdtl Parse_shen.<st_input1>)) (shen.hdtl Parse_shen.<st_input2>))) (fail))) (fail))) (fail))) (fail))) (if (= YaccParse (fail)) (let YaccParse (let Parse_shen.<lcurly> (shen.<lcurly> V17003) (if (not (= (fail) Parse_shen.<lcurly>)) (let Parse_shen.<st_input> (shen.<st_input> Parse_shen.<lcurly>) (if (not (= (fail) Parse_shen.<st_input>)) (shen.pair (hd Parse_shen.<st_input>) (cons { (shen.hdtl Parse_shen.<st_input>))) (fail))) (fail))) (if (= YaccParse (fail)) (let YaccParse (let Parse_shen.<rcurly> (shen.<rcurly> V17003) (if (not (= (fail) Parse_shen.<rcurly>)) (let Parse_shen.<st_input> (shen.<st_input> Parse_shen.<rcurly>) (if (not (= (fail) Parse_shen.<st_input>)) (shen.pair (hd Parse_shen.<st_input>) (cons } (shen.hdtl Parse_shen.<st_input>))) (fail))) (fail))) (if (= YaccParse (fail)) (let YaccParse (let Parse_shen.<bar> (shen.<bar> V17003) (if (not (= (fail) Parse_shen.<bar>)) (let Parse_shen.<st_input> (shen.<st_input> Parse_shen.<bar>) (if (not (= (fail) Parse_shen.<st_input>)) (shen.pair (hd Parse_shen.<st_input>) (cons bar! (shen.hdtl Parse_shen.<st_input>))) (fail))) (fail))) (if (= YaccParse (fail)) (let YaccParse (let Parse_shen.<semicolon> (shen.<semicolon> V17003) (if (not (= (fail) Parse_shen.<semicolon>)) (let Parse_shen.<st_input> (shen.<st_input> Parse_shen.<semicolon>) (if (not (= (fail) Parse_shen.<st_input>)) (shen.pair (hd Parse_shen.<st_input>) (cons ; (shen.hdtl Parse_shen.<st_input>))) (fail))) (fail))) (if (= YaccParse (fail)) (let YaccParse (let Parse_shen.<colon> (shen.<colon> V17003) (if (not (= (fail) Parse_shen.<colon>)) (let Parse_shen.<equal> (shen.<equal> Parse_shen.<colon>) (if (not (= (fail) Parse_shen.<equal>)) (let Parse_shen.<st_input> (shen.<st_input> Parse_shen.<equal>) (if (not (= (fail) Parse_shen.<st_input>)) (shen.pair (hd Parse_shen.<st_input>) (cons := (shen.hdtl Parse_shen.<st_input>))) (fail))) (fail))) (fail))) (if (= YaccParse (fail)) (let YaccParse (let Parse_shen.<colon> (shen.<colon> V17003) (if (not (= (fail) Parse_shen.<colon>)) (let Parse_shen.<minus> (shen.<minus> Parse_shen.<colon>) (if (not (= (fail) Parse_shen.<minus>)) (let Parse_shen.<st_input> (shen.<st_input> Parse_shen.<minus>) (if (not (= (fail) Parse_shen.<st_input>)) (shen.pair (hd Parse_shen.<st_input>) (cons :- (shen.hdtl Parse_shen.<st_input>))) (fail))) (fail))) (fail))) (if (= YaccParse (fail)) (let YaccParse (let Parse_shen.<colon> (shen.<colon> V17003) (if (not (= (fail) Parse_shen.<colon>)) (let Parse_shen.<st_input> (shen.<st_input> Parse_shen.<colon>) (if (not (= (fail) Parse_shen.<st_input>)) (shen.pair (hd Parse_shen.<st_input>) (cons : (shen.hdtl Parse_shen.<st_input>))) (fail))) (fail))) (if (= YaccParse (fail)) (let YaccParse (let Parse_shen.<comma> (shen.<comma> V17003) (if (not (= (fail) Parse_shen.<comma>)) (let Parse_shen.<st_input> (shen.<st_input> Parse_shen.<comma>) (if (not (= (fail) Parse_shen.<st_input>)) (shen.pair (hd Parse_shen.<st_input>) (cons (intern ",") (shen.hdtl Parse_shen.<st_input>))) (fail))) (fail))) (if (= YaccParse (fail)) (let YaccParse (let Parse_shen.<comment> (shen.<comment> V17003) (if (not (= (fail) Parse_shen.<comment>)) (let Parse_shen.<st_input> (shen.<st_input> Parse_shen.<comment>) (if (not (= (fail) Parse_shen.<st_input>)) (shen.pair (hd Parse_shen.<st_input>) (shen.hdtl Parse_shen.<st_input>)) (fail))) (fail))) (if (= YaccParse (fail)) (let YaccParse (let Parse_shen.<atom> (shen.<atom> V17003) (if (not (= (fail) Parse_shen.<atom>)) (let Parse_shen.<st_input> (shen.<st_input> Parse_shen.<atom>) (if (not (= (fail) Parse_shen.<st_input>)) (shen.pair (hd Parse_shen.<st_input>) (cons (macroexpand (shen.hdtl Parse_shen.<atom>)) (shen.hdtl Parse_shen.<st_input>))) (fail))) (fail))) (if (= YaccParse (fail)) (let YaccParse (let Parse_shen.<whitespaces> (shen.<whitespaces> V17003) (if (not (= (fail) Parse_shen.<whitespaces>)) (let Parse_shen.<st_input> (shen.<st_input> Parse_shen.<whitespaces>) (if (not (= (fail) Parse_shen.<st_input>)) (shen.pair (hd Parse_shen.<st_input>) (shen.hdtl Parse_shen.<st_input>)) (fail))) (fail))) (if (= YaccParse (fail)) (let Parse_<e> (<e> V17003) (if (not (= (fail) Parse_<e>)) (shen.pair (hd Parse_<e>) ()) (fail))) YaccParse)) YaccParse)) YaccParse)) YaccParse)) YaccParse)) YaccParse)) YaccParse)) YaccParse)) YaccParse)) YaccParse)) YaccParse)) YaccParse)) YaccParse)))
75
75
 
76
- (defun shen.<lsb> (V1262) (if (and (cons? (hd V1262)) (= 91 (hd (hd V1262)))) (shen.pair (hd (shen.pair (tl (hd V1262)) (shen.hdtl V1262))) shen.skip) (fail)))
76
+ (defun shen.<lsb> (V17005) (if (and (cons? (hd V17005)) (= 91 (hd (hd V17005)))) (shen.pair (hd (shen.pair (tl (hd V17005)) (shen.hdtl V17005))) shen.skip) (fail)))
77
77
 
78
- (defun shen.<rsb> (V1263) (if (and (cons? (hd V1263)) (= 93 (hd (hd V1263)))) (shen.pair (hd (shen.pair (tl (hd V1263)) (shen.hdtl V1263))) shen.skip) (fail)))
78
+ (defun shen.<rsb> (V17007) (if (and (cons? (hd V17007)) (= 93 (hd (hd V17007)))) (shen.pair (hd (shen.pair (tl (hd V17007)) (shen.hdtl V17007))) shen.skip) (fail)))
79
79
 
80
- (defun shen.<lcurly> (V1264) (if (and (cons? (hd V1264)) (= 123 (hd (hd V1264)))) (shen.pair (hd (shen.pair (tl (hd V1264)) (shen.hdtl V1264))) shen.skip) (fail)))
80
+ (defun shen.<lcurly> (V17009) (if (and (cons? (hd V17009)) (= 123 (hd (hd V17009)))) (shen.pair (hd (shen.pair (tl (hd V17009)) (shen.hdtl V17009))) shen.skip) (fail)))
81
81
 
82
- (defun shen.<rcurly> (V1265) (if (and (cons? (hd V1265)) (= 125 (hd (hd V1265)))) (shen.pair (hd (shen.pair (tl (hd V1265)) (shen.hdtl V1265))) shen.skip) (fail)))
82
+ (defun shen.<rcurly> (V17011) (if (and (cons? (hd V17011)) (= 125 (hd (hd V17011)))) (shen.pair (hd (shen.pair (tl (hd V17011)) (shen.hdtl V17011))) shen.skip) (fail)))
83
83
 
84
- (defun shen.<bar> (V1266) (if (and (cons? (hd V1266)) (= 124 (hd (hd V1266)))) (shen.pair (hd (shen.pair (tl (hd V1266)) (shen.hdtl V1266))) shen.skip) (fail)))
84
+ (defun shen.<bar> (V17013) (if (and (cons? (hd V17013)) (= 124 (hd (hd V17013)))) (shen.pair (hd (shen.pair (tl (hd V17013)) (shen.hdtl V17013))) shen.skip) (fail)))
85
85
 
86
- (defun shen.<semicolon> (V1267) (if (and (cons? (hd V1267)) (= 59 (hd (hd V1267)))) (shen.pair (hd (shen.pair (tl (hd V1267)) (shen.hdtl V1267))) shen.skip) (fail)))
86
+ (defun shen.<semicolon> (V17015) (if (and (cons? (hd V17015)) (= 59 (hd (hd V17015)))) (shen.pair (hd (shen.pair (tl (hd V17015)) (shen.hdtl V17015))) shen.skip) (fail)))
87
87
 
88
- (defun shen.<colon> (V1268) (if (and (cons? (hd V1268)) (= 58 (hd (hd V1268)))) (shen.pair (hd (shen.pair (tl (hd V1268)) (shen.hdtl V1268))) shen.skip) (fail)))
88
+ (defun shen.<colon> (V17017) (if (and (cons? (hd V17017)) (= 58 (hd (hd V17017)))) (shen.pair (hd (shen.pair (tl (hd V17017)) (shen.hdtl V17017))) shen.skip) (fail)))
89
89
 
90
- (defun shen.<comma> (V1269) (if (and (cons? (hd V1269)) (= 44 (hd (hd V1269)))) (shen.pair (hd (shen.pair (tl (hd V1269)) (shen.hdtl V1269))) shen.skip) (fail)))
90
+ (defun shen.<comma> (V17019) (if (and (cons? (hd V17019)) (= 44 (hd (hd V17019)))) (shen.pair (hd (shen.pair (tl (hd V17019)) (shen.hdtl V17019))) shen.skip) (fail)))
91
91
 
92
- (defun shen.<equal> (V1270) (if (and (cons? (hd V1270)) (= 61 (hd (hd V1270)))) (shen.pair (hd (shen.pair (tl (hd V1270)) (shen.hdtl V1270))) shen.skip) (fail)))
92
+ (defun shen.<equal> (V17021) (if (and (cons? (hd V17021)) (= 61 (hd (hd V17021)))) (shen.pair (hd (shen.pair (tl (hd V17021)) (shen.hdtl V17021))) shen.skip) (fail)))
93
93
 
94
- (defun shen.<minus> (V1271) (if (and (cons? (hd V1271)) (= 45 (hd (hd V1271)))) (shen.pair (hd (shen.pair (tl (hd V1271)) (shen.hdtl V1271))) shen.skip) (fail)))
94
+ (defun shen.<minus> (V17023) (if (and (cons? (hd V17023)) (= 45 (hd (hd V17023)))) (shen.pair (hd (shen.pair (tl (hd V17023)) (shen.hdtl V17023))) shen.skip) (fail)))
95
95
 
96
- (defun shen.<lrb> (V1272) (if (and (cons? (hd V1272)) (= 40 (hd (hd V1272)))) (shen.pair (hd (shen.pair (tl (hd V1272)) (shen.hdtl V1272))) shen.skip) (fail)))
96
+ (defun shen.<lrb> (V17025) (if (and (cons? (hd V17025)) (= 40 (hd (hd V17025)))) (shen.pair (hd (shen.pair (tl (hd V17025)) (shen.hdtl V17025))) shen.skip) (fail)))
97
97
 
98
- (defun shen.<rrb> (V1273) (if (and (cons? (hd V1273)) (= 41 (hd (hd V1273)))) (shen.pair (hd (shen.pair (tl (hd V1273)) (shen.hdtl V1273))) shen.skip) (fail)))
98
+ (defun shen.<rrb> (V17027) (if (and (cons? (hd V17027)) (= 41 (hd (hd V17027)))) (shen.pair (hd (shen.pair (tl (hd V17027)) (shen.hdtl V17027))) shen.skip) (fail)))
99
99
 
100
- (defun shen.<atom> (V1274) (let YaccParse (let Parse_shen.<str> (shen.<str> V1274) (if (not (= (fail) Parse_shen.<str>)) (shen.pair (hd Parse_shen.<str>) (shen.control-chars (shen.hdtl Parse_shen.<str>))) (fail))) (if (= YaccParse (fail)) (let YaccParse (let Parse_shen.<number> (shen.<number> V1274) (if (not (= (fail) Parse_shen.<number>)) (shen.pair (hd Parse_shen.<number>) (shen.hdtl Parse_shen.<number>)) (fail))) (if (= YaccParse (fail)) (let Parse_shen.<sym> (shen.<sym> V1274) (if (not (= (fail) Parse_shen.<sym>)) (shen.pair (hd Parse_shen.<sym>) (if (= (shen.hdtl Parse_shen.<sym>) "<>") (cons vector (cons 0 ())) (intern (shen.hdtl Parse_shen.<sym>)))) (fail))) YaccParse)) YaccParse)))
100
+ (defun shen.<atom> (V17029) (let YaccParse (let Parse_shen.<str> (shen.<str> V17029) (if (not (= (fail) Parse_shen.<str>)) (shen.pair (hd Parse_shen.<str>) (shen.control-chars (shen.hdtl Parse_shen.<str>))) (fail))) (if (= YaccParse (fail)) (let YaccParse (let Parse_shen.<number> (shen.<number> V17029) (if (not (= (fail) Parse_shen.<number>)) (shen.pair (hd Parse_shen.<number>) (shen.hdtl Parse_shen.<number>)) (fail))) (if (= YaccParse (fail)) (let Parse_shen.<sym> (shen.<sym> V17029) (if (not (= (fail) Parse_shen.<sym>)) (shen.pair (hd Parse_shen.<sym>) (if (= (shen.hdtl Parse_shen.<sym>) "<>") (cons vector (cons 0 ())) (intern (shen.hdtl Parse_shen.<sym>)))) (fail))) YaccParse)) YaccParse)))
101
101
 
102
- (defun shen.control-chars (V1275) (cond ((= () V1275) "") ((and (cons? V1275) (and (= "c" (hd V1275)) (and (cons? (tl V1275)) (= "#" (hd (tl V1275)))))) (let CodePoint (shen.code-point (tl (tl V1275))) (let AfterCodePoint (shen.after-codepoint (tl (tl V1275))) (@s (n->string (shen.decimalise CodePoint)) (shen.control-chars AfterCodePoint))))) ((cons? V1275) (@s (hd V1275) (shen.control-chars (tl V1275)))) (true (shen.f_error shen.control-chars))))
102
+ (defun shen.control-chars (V17031) (cond ((= () V17031) "") ((and (cons? V17031) (and (= "c" (hd V17031)) (and (cons? (tl V17031)) (= "#" (hd (tl V17031)))))) (let CodePoint (shen.code-point (tl (tl V17031))) (let AfterCodePoint (shen.after-codepoint (tl (tl V17031))) (@s (n->string (shen.decimalise CodePoint)) (shen.control-chars AfterCodePoint))))) ((cons? V17031) (@s (hd V17031) (shen.control-chars (tl V17031)))) (true (shen.f_error shen.control-chars))))
103
103
 
104
- (defun shen.code-point (V1278) (cond ((and (cons? V1278) (= ";" (hd V1278))) "") ((and (cons? V1278) (element? (hd V1278) (cons "0" (cons "1" (cons "2" (cons "3" (cons "4" (cons "5" (cons "6" (cons "7" (cons "8" (cons "9" (cons "0" ()))))))))))))) (cons (hd V1278) (shen.code-point (tl V1278)))) (true (simple-error (cn "code point parse error " (shen.app V1278 "
104
+ (defun shen.code-point (V17035) (cond ((and (cons? V17035) (= ";" (hd V17035))) "") ((and (cons? V17035) (element? (hd V17035) (cons "0" (cons "1" (cons "2" (cons "3" (cons "4" (cons "5" (cons "6" (cons "7" (cons "8" (cons "9" (cons "0" ()))))))))))))) (cons (hd V17035) (shen.code-point (tl V17035)))) (true (simple-error (cn "code point parse error " (shen.app V17035 "
105
105
  " shen.a))))))
106
106
 
107
- (defun shen.after-codepoint (V1283) (cond ((= () V1283) ()) ((and (cons? V1283) (= ";" (hd V1283))) (tl V1283)) ((cons? V1283) (shen.after-codepoint (tl V1283))) (true (shen.f_error shen.after-codepoint))))
107
+ (defun shen.after-codepoint (V17041) (cond ((= () V17041) ()) ((and (cons? V17041) (= ";" (hd V17041))) (tl V17041)) ((cons? V17041) (shen.after-codepoint (tl V17041))) (true (shen.f_error shen.after-codepoint))))
108
108
 
109
- (defun shen.decimalise (V1284) (shen.pre (reverse (shen.digits->integers V1284)) 0))
109
+ (defun shen.decimalise (V17043) (shen.pre (reverse (shen.digits->integers V17043)) 0))
110
110
 
111
- (defun shen.digits->integers (V1289) (cond ((and (cons? V1289) (= "0" (hd V1289))) (cons 0 (shen.digits->integers (tl V1289)))) ((and (cons? V1289) (= "1" (hd V1289))) (cons 1 (shen.digits->integers (tl V1289)))) ((and (cons? V1289) (= "2" (hd V1289))) (cons 2 (shen.digits->integers (tl V1289)))) ((and (cons? V1289) (= "3" (hd V1289))) (cons 3 (shen.digits->integers (tl V1289)))) ((and (cons? V1289) (= "4" (hd V1289))) (cons 4 (shen.digits->integers (tl V1289)))) ((and (cons? V1289) (= "5" (hd V1289))) (cons 5 (shen.digits->integers (tl V1289)))) ((and (cons? V1289) (= "6" (hd V1289))) (cons 6 (shen.digits->integers (tl V1289)))) ((and (cons? V1289) (= "7" (hd V1289))) (cons 7 (shen.digits->integers (tl V1289)))) ((and (cons? V1289) (= "8" (hd V1289))) (cons 8 (shen.digits->integers (tl V1289)))) ((and (cons? V1289) (= "9" (hd V1289))) (cons 9 (shen.digits->integers (tl V1289)))) (true ())))
111
+ (defun shen.digits->integers (V17049) (cond ((and (cons? V17049) (= "0" (hd V17049))) (cons 0 (shen.digits->integers (tl V17049)))) ((and (cons? V17049) (= "1" (hd V17049))) (cons 1 (shen.digits->integers (tl V17049)))) ((and (cons? V17049) (= "2" (hd V17049))) (cons 2 (shen.digits->integers (tl V17049)))) ((and (cons? V17049) (= "3" (hd V17049))) (cons 3 (shen.digits->integers (tl V17049)))) ((and (cons? V17049) (= "4" (hd V17049))) (cons 4 (shen.digits->integers (tl V17049)))) ((and (cons? V17049) (= "5" (hd V17049))) (cons 5 (shen.digits->integers (tl V17049)))) ((and (cons? V17049) (= "6" (hd V17049))) (cons 6 (shen.digits->integers (tl V17049)))) ((and (cons? V17049) (= "7" (hd V17049))) (cons 7 (shen.digits->integers (tl V17049)))) ((and (cons? V17049) (= "8" (hd V17049))) (cons 8 (shen.digits->integers (tl V17049)))) ((and (cons? V17049) (= "9" (hd V17049))) (cons 9 (shen.digits->integers (tl V17049)))) (true ())))
112
112
 
113
- (defun shen.<sym> (V1290) (let Parse_shen.<alpha> (shen.<alpha> V1290) (if (not (= (fail) Parse_shen.<alpha>)) (let Parse_shen.<alphanums> (shen.<alphanums> Parse_shen.<alpha>) (if (not (= (fail) Parse_shen.<alphanums>)) (shen.pair (hd Parse_shen.<alphanums>) (@s (shen.hdtl Parse_shen.<alpha>) (shen.hdtl Parse_shen.<alphanums>))) (fail))) (fail))))
113
+ (defun shen.<sym> (V17051) (let Parse_shen.<alpha> (shen.<alpha> V17051) (if (not (= (fail) Parse_shen.<alpha>)) (let Parse_shen.<alphanums> (shen.<alphanums> Parse_shen.<alpha>) (if (not (= (fail) Parse_shen.<alphanums>)) (shen.pair (hd Parse_shen.<alphanums>) (@s (shen.hdtl Parse_shen.<alpha>) (shen.hdtl Parse_shen.<alphanums>))) (fail))) (fail))))
114
114
 
115
- (defun shen.<alphanums> (V1291) (let YaccParse (let Parse_shen.<alphanum> (shen.<alphanum> V1291) (if (not (= (fail) Parse_shen.<alphanum>)) (let Parse_shen.<alphanums> (shen.<alphanums> Parse_shen.<alphanum>) (if (not (= (fail) Parse_shen.<alphanums>)) (shen.pair (hd Parse_shen.<alphanums>) (@s (shen.hdtl Parse_shen.<alphanum>) (shen.hdtl Parse_shen.<alphanums>))) (fail))) (fail))) (if (= YaccParse (fail)) (let Parse_<e> (<e> V1291) (if (not (= (fail) Parse_<e>)) (shen.pair (hd Parse_<e>) "") (fail))) YaccParse)))
115
+ (defun shen.<alphanums> (V17053) (let YaccParse (let Parse_shen.<alphanum> (shen.<alphanum> V17053) (if (not (= (fail) Parse_shen.<alphanum>)) (let Parse_shen.<alphanums> (shen.<alphanums> Parse_shen.<alphanum>) (if (not (= (fail) Parse_shen.<alphanums>)) (shen.pair (hd Parse_shen.<alphanums>) (@s (shen.hdtl Parse_shen.<alphanum>) (shen.hdtl Parse_shen.<alphanums>))) (fail))) (fail))) (if (= YaccParse (fail)) (let Parse_<e> (<e> V17053) (if (not (= (fail) Parse_<e>)) (shen.pair (hd Parse_<e>) "") (fail))) YaccParse)))
116
116
 
117
- (defun shen.<alphanum> (V1292) (let YaccParse (let Parse_shen.<alpha> (shen.<alpha> V1292) (if (not (= (fail) Parse_shen.<alpha>)) (shen.pair (hd Parse_shen.<alpha>) (shen.hdtl Parse_shen.<alpha>)) (fail))) (if (= YaccParse (fail)) (let Parse_shen.<num> (shen.<num> V1292) (if (not (= (fail) Parse_shen.<num>)) (shen.pair (hd Parse_shen.<num>) (shen.hdtl Parse_shen.<num>)) (fail))) YaccParse)))
117
+ (defun shen.<alphanum> (V17055) (let YaccParse (let Parse_shen.<alpha> (shen.<alpha> V17055) (if (not (= (fail) Parse_shen.<alpha>)) (shen.pair (hd Parse_shen.<alpha>) (shen.hdtl Parse_shen.<alpha>)) (fail))) (if (= YaccParse (fail)) (let Parse_shen.<num> (shen.<num> V17055) (if (not (= (fail) Parse_shen.<num>)) (shen.pair (hd Parse_shen.<num>) (shen.hdtl Parse_shen.<num>)) (fail))) YaccParse)))
118
118
 
119
- (defun shen.<num> (V1293) (if (cons? (hd V1293)) (let Parse_Byte (hd (hd V1293)) (if (shen.numbyte? Parse_Byte) (shen.pair (hd (shen.pair (tl (hd V1293)) (shen.hdtl V1293))) (n->string Parse_Byte)) (fail))) (fail)))
119
+ (defun shen.<num> (V17057) (if (cons? (hd V17057)) (let Parse_Byte (hd (hd V17057)) (if (shen.numbyte? Parse_Byte) (shen.pair (hd (shen.pair (tl (hd V17057)) (shen.hdtl V17057))) (n->string Parse_Byte)) (fail))) (fail)))
120
120
 
121
- (defun shen.numbyte? (V1298) (cond ((= 48 V1298) true) ((= 49 V1298) true) ((= 50 V1298) true) ((= 51 V1298) true) ((= 52 V1298) true) ((= 53 V1298) true) ((= 54 V1298) true) ((= 55 V1298) true) ((= 56 V1298) true) ((= 57 V1298) true) (true false)))
121
+ (defun shen.numbyte? (V17063) (cond ((= 48 V17063) true) ((= 49 V17063) true) ((= 50 V17063) true) ((= 51 V17063) true) ((= 52 V17063) true) ((= 53 V17063) true) ((= 54 V17063) true) ((= 55 V17063) true) ((= 56 V17063) true) ((= 57 V17063) true) (true false)))
122
122
 
123
- (defun shen.<alpha> (V1299) (if (cons? (hd V1299)) (let Parse_Byte (hd (hd V1299)) (if (shen.symbol-code? Parse_Byte) (shen.pair (hd (shen.pair (tl (hd V1299)) (shen.hdtl V1299))) (n->string Parse_Byte)) (fail))) (fail)))
123
+ (defun shen.<alpha> (V17065) (if (cons? (hd V17065)) (let Parse_Byte (hd (hd V17065)) (if (shen.symbol-code? Parse_Byte) (shen.pair (hd (shen.pair (tl (hd V17065)) (shen.hdtl V17065))) (n->string Parse_Byte)) (fail))) (fail)))
124
124
 
125
- (defun shen.symbol-code? (V1300) (or (= V1300 126) (or (and (> V1300 94) (< V1300 123)) (or (and (> V1300 59) (< V1300 91)) (or (and (> V1300 41) (and (< V1300 58) (not (= V1300 44)))) (or (and (> V1300 34) (< V1300 40)) (= V1300 33)))))))
125
+ (defun shen.symbol-code? (V17067) (or (= V17067 126) (or (and (> V17067 94) (< V17067 123)) (or (and (> V17067 59) (< V17067 91)) (or (and (> V17067 41) (and (< V17067 58) (not (= V17067 44)))) (or (and (> V17067 34) (< V17067 40)) (= V17067 33)))))))
126
126
 
127
- (defun shen.<str> (V1301) (let Parse_shen.<dbq> (shen.<dbq> V1301) (if (not (= (fail) Parse_shen.<dbq>)) (let Parse_shen.<strcontents> (shen.<strcontents> Parse_shen.<dbq>) (if (not (= (fail) Parse_shen.<strcontents>)) (let Parse_shen.<dbq> (shen.<dbq> Parse_shen.<strcontents>) (if (not (= (fail) Parse_shen.<dbq>)) (shen.pair (hd Parse_shen.<dbq>) (shen.hdtl Parse_shen.<strcontents>)) (fail))) (fail))) (fail))))
127
+ (defun shen.<str> (V17069) (let Parse_shen.<dbq> (shen.<dbq> V17069) (if (not (= (fail) Parse_shen.<dbq>)) (let Parse_shen.<strcontents> (shen.<strcontents> Parse_shen.<dbq>) (if (not (= (fail) Parse_shen.<strcontents>)) (let Parse_shen.<dbq> (shen.<dbq> Parse_shen.<strcontents>) (if (not (= (fail) Parse_shen.<dbq>)) (shen.pair (hd Parse_shen.<dbq>) (shen.hdtl Parse_shen.<strcontents>)) (fail))) (fail))) (fail))))
128
128
 
129
- (defun shen.<dbq> (V1302) (if (cons? (hd V1302)) (let Parse_Byte (hd (hd V1302)) (if (= Parse_Byte 34) (shen.pair (hd (shen.pair (tl (hd V1302)) (shen.hdtl V1302))) Parse_Byte) (fail))) (fail)))
129
+ (defun shen.<dbq> (V17071) (if (cons? (hd V17071)) (let Parse_Byte (hd (hd V17071)) (if (= Parse_Byte 34) (shen.pair (hd (shen.pair (tl (hd V17071)) (shen.hdtl V17071))) Parse_Byte) (fail))) (fail)))
130
130
 
131
- (defun shen.<strcontents> (V1303) (let YaccParse (let Parse_shen.<strc> (shen.<strc> V1303) (if (not (= (fail) Parse_shen.<strc>)) (let Parse_shen.<strcontents> (shen.<strcontents> Parse_shen.<strc>) (if (not (= (fail) Parse_shen.<strcontents>)) (shen.pair (hd Parse_shen.<strcontents>) (cons (shen.hdtl Parse_shen.<strc>) (shen.hdtl Parse_shen.<strcontents>))) (fail))) (fail))) (if (= YaccParse (fail)) (let Parse_<e> (<e> V1303) (if (not (= (fail) Parse_<e>)) (shen.pair (hd Parse_<e>) ()) (fail))) YaccParse)))
131
+ (defun shen.<strcontents> (V17073) (let YaccParse (let Parse_shen.<strc> (shen.<strc> V17073) (if (not (= (fail) Parse_shen.<strc>)) (let Parse_shen.<strcontents> (shen.<strcontents> Parse_shen.<strc>) (if (not (= (fail) Parse_shen.<strcontents>)) (shen.pair (hd Parse_shen.<strcontents>) (cons (shen.hdtl Parse_shen.<strc>) (shen.hdtl Parse_shen.<strcontents>))) (fail))) (fail))) (if (= YaccParse (fail)) (let Parse_<e> (<e> V17073) (if (not (= (fail) Parse_<e>)) (shen.pair (hd Parse_<e>) ()) (fail))) YaccParse)))
132
132
 
133
- (defun shen.<byte> (V1304) (if (cons? (hd V1304)) (let Parse_Byte (hd (hd V1304)) (shen.pair (hd (shen.pair (tl (hd V1304)) (shen.hdtl V1304))) (n->string Parse_Byte))) (fail)))
133
+ (defun shen.<byte> (V17075) (if (cons? (hd V17075)) (let Parse_Byte (hd (hd V17075)) (shen.pair (hd (shen.pair (tl (hd V17075)) (shen.hdtl V17075))) (n->string Parse_Byte))) (fail)))
134
134
 
135
- (defun shen.<strc> (V1305) (if (cons? (hd V1305)) (let Parse_Byte (hd (hd V1305)) (if (not (= Parse_Byte 34)) (shen.pair (hd (shen.pair (tl (hd V1305)) (shen.hdtl V1305))) (n->string Parse_Byte)) (fail))) (fail)))
135
+ (defun shen.<strc> (V17077) (if (cons? (hd V17077)) (let Parse_Byte (hd (hd V17077)) (if (not (= Parse_Byte 34)) (shen.pair (hd (shen.pair (tl (hd V17077)) (shen.hdtl V17077))) (n->string Parse_Byte)) (fail))) (fail)))
136
136
 
137
- (defun shen.<number> (V1306) (let YaccParse (let Parse_shen.<minus> (shen.<minus> V1306) (if (not (= (fail) Parse_shen.<minus>)) (let Parse_shen.<number> (shen.<number> Parse_shen.<minus>) (if (not (= (fail) Parse_shen.<number>)) (shen.pair (hd Parse_shen.<number>) (- 0 (shen.hdtl Parse_shen.<number>))) (fail))) (fail))) (if (= YaccParse (fail)) (let YaccParse (let Parse_shen.<plus> (shen.<plus> V1306) (if (not (= (fail) Parse_shen.<plus>)) (let Parse_shen.<number> (shen.<number> Parse_shen.<plus>) (if (not (= (fail) Parse_shen.<number>)) (shen.pair (hd Parse_shen.<number>) (shen.hdtl Parse_shen.<number>)) (fail))) (fail))) (if (= YaccParse (fail)) (let YaccParse (let Parse_shen.<predigits> (shen.<predigits> V1306) (if (not (= (fail) Parse_shen.<predigits>)) (let Parse_shen.<stop> (shen.<stop> Parse_shen.<predigits>) (if (not (= (fail) Parse_shen.<stop>)) (let Parse_shen.<postdigits> (shen.<postdigits> Parse_shen.<stop>) (if (not (= (fail) Parse_shen.<postdigits>)) (let Parse_shen.<E> (shen.<E> Parse_shen.<postdigits>) (if (not (= (fail) Parse_shen.<E>)) (let Parse_shen.<log10> (shen.<log10> Parse_shen.<E>) (if (not (= (fail) Parse_shen.<log10>)) (shen.pair (hd Parse_shen.<log10>) (* (shen.expt 10 (shen.hdtl Parse_shen.<log10>)) (+ (shen.pre (reverse (shen.hdtl Parse_shen.<predigits>)) 0) (shen.post (shen.hdtl Parse_shen.<postdigits>) 1)))) (fail))) (fail))) (fail))) (fail))) (fail))) (if (= YaccParse (fail)) (let YaccParse (let Parse_shen.<digits> (shen.<digits> V1306) (if (not (= (fail) Parse_shen.<digits>)) (let Parse_shen.<E> (shen.<E> Parse_shen.<digits>) (if (not (= (fail) Parse_shen.<E>)) (let Parse_shen.<log10> (shen.<log10> Parse_shen.<E>) (if (not (= (fail) Parse_shen.<log10>)) (shen.pair (hd Parse_shen.<log10>) (* (shen.expt 10 (shen.hdtl Parse_shen.<log10>)) (shen.pre (reverse (shen.hdtl Parse_shen.<digits>)) 0))) (fail))) (fail))) (fail))) (if (= YaccParse (fail)) (let YaccParse (let Parse_shen.<predigits> (shen.<predigits> V1306) (if (not (= (fail) Parse_shen.<predigits>)) (let Parse_shen.<stop> (shen.<stop> Parse_shen.<predigits>) (if (not (= (fail) Parse_shen.<stop>)) (let Parse_shen.<postdigits> (shen.<postdigits> Parse_shen.<stop>) (if (not (= (fail) Parse_shen.<postdigits>)) (shen.pair (hd Parse_shen.<postdigits>) (+ (shen.pre (reverse (shen.hdtl Parse_shen.<predigits>)) 0) (shen.post (shen.hdtl Parse_shen.<postdigits>) 1))) (fail))) (fail))) (fail))) (if (= YaccParse (fail)) (let Parse_shen.<digits> (shen.<digits> V1306) (if (not (= (fail) Parse_shen.<digits>)) (shen.pair (hd Parse_shen.<digits>) (shen.pre (reverse (shen.hdtl Parse_shen.<digits>)) 0)) (fail))) YaccParse)) YaccParse)) YaccParse)) YaccParse)) YaccParse)))
137
+ (defun shen.<number> (V17079) (let YaccParse (let Parse_shen.<minus> (shen.<minus> V17079) (if (not (= (fail) Parse_shen.<minus>)) (let Parse_shen.<number> (shen.<number> Parse_shen.<minus>) (if (not (= (fail) Parse_shen.<number>)) (shen.pair (hd Parse_shen.<number>) (- 0 (shen.hdtl Parse_shen.<number>))) (fail))) (fail))) (if (= YaccParse (fail)) (let YaccParse (let Parse_shen.<plus> (shen.<plus> V17079) (if (not (= (fail) Parse_shen.<plus>)) (let Parse_shen.<number> (shen.<number> Parse_shen.<plus>) (if (not (= (fail) Parse_shen.<number>)) (shen.pair (hd Parse_shen.<number>) (shen.hdtl Parse_shen.<number>)) (fail))) (fail))) (if (= YaccParse (fail)) (let YaccParse (let Parse_shen.<predigits> (shen.<predigits> V17079) (if (not (= (fail) Parse_shen.<predigits>)) (let Parse_shen.<stop> (shen.<stop> Parse_shen.<predigits>) (if (not (= (fail) Parse_shen.<stop>)) (let Parse_shen.<postdigits> (shen.<postdigits> Parse_shen.<stop>) (if (not (= (fail) Parse_shen.<postdigits>)) (let Parse_shen.<E> (shen.<E> Parse_shen.<postdigits>) (if (not (= (fail) Parse_shen.<E>)) (let Parse_shen.<log10> (shen.<log10> Parse_shen.<E>) (if (not (= (fail) Parse_shen.<log10>)) (shen.pair (hd Parse_shen.<log10>) (* (shen.expt 10 (shen.hdtl Parse_shen.<log10>)) (+ (shen.pre (reverse (shen.hdtl Parse_shen.<predigits>)) 0) (shen.post (shen.hdtl Parse_shen.<postdigits>) 1)))) (fail))) (fail))) (fail))) (fail))) (fail))) (if (= YaccParse (fail)) (let YaccParse (let Parse_shen.<digits> (shen.<digits> V17079) (if (not (= (fail) Parse_shen.<digits>)) (let Parse_shen.<E> (shen.<E> Parse_shen.<digits>) (if (not (= (fail) Parse_shen.<E>)) (let Parse_shen.<log10> (shen.<log10> Parse_shen.<E>) (if (not (= (fail) Parse_shen.<log10>)) (shen.pair (hd Parse_shen.<log10>) (* (shen.expt 10 (shen.hdtl Parse_shen.<log10>)) (shen.pre (reverse (shen.hdtl Parse_shen.<digits>)) 0))) (fail))) (fail))) (fail))) (if (= YaccParse (fail)) (let YaccParse (let Parse_shen.<predigits> (shen.<predigits> V17079) (if (not (= (fail) Parse_shen.<predigits>)) (let Parse_shen.<stop> (shen.<stop> Parse_shen.<predigits>) (if (not (= (fail) Parse_shen.<stop>)) (let Parse_shen.<postdigits> (shen.<postdigits> Parse_shen.<stop>) (if (not (= (fail) Parse_shen.<postdigits>)) (shen.pair (hd Parse_shen.<postdigits>) (+ (shen.pre (reverse (shen.hdtl Parse_shen.<predigits>)) 0) (shen.post (shen.hdtl Parse_shen.<postdigits>) 1))) (fail))) (fail))) (fail))) (if (= YaccParse (fail)) (let Parse_shen.<digits> (shen.<digits> V17079) (if (not (= (fail) Parse_shen.<digits>)) (shen.pair (hd Parse_shen.<digits>) (shen.pre (reverse (shen.hdtl Parse_shen.<digits>)) 0)) (fail))) YaccParse)) YaccParse)) YaccParse)) YaccParse)) YaccParse)))
138
138
 
139
- (defun shen.<E> (V1307) (if (and (cons? (hd V1307)) (= 101 (hd (hd V1307)))) (shen.pair (hd (shen.pair (tl (hd V1307)) (shen.hdtl V1307))) shen.skip) (fail)))
139
+ (defun shen.<E> (V17081) (if (and (cons? (hd V17081)) (= 101 (hd (hd V17081)))) (shen.pair (hd (shen.pair (tl (hd V17081)) (shen.hdtl V17081))) shen.skip) (fail)))
140
140
 
141
- (defun shen.<log10> (V1308) (let YaccParse (let Parse_shen.<minus> (shen.<minus> V1308) (if (not (= (fail) Parse_shen.<minus>)) (let Parse_shen.<digits> (shen.<digits> Parse_shen.<minus>) (if (not (= (fail) Parse_shen.<digits>)) (shen.pair (hd Parse_shen.<digits>) (- 0 (shen.pre (reverse (shen.hdtl Parse_shen.<digits>)) 0))) (fail))) (fail))) (if (= YaccParse (fail)) (let Parse_shen.<digits> (shen.<digits> V1308) (if (not (= (fail) Parse_shen.<digits>)) (shen.pair (hd Parse_shen.<digits>) (shen.pre (reverse (shen.hdtl Parse_shen.<digits>)) 0)) (fail))) YaccParse)))
141
+ (defun shen.<log10> (V17083) (let YaccParse (let Parse_shen.<minus> (shen.<minus> V17083) (if (not (= (fail) Parse_shen.<minus>)) (let Parse_shen.<digits> (shen.<digits> Parse_shen.<minus>) (if (not (= (fail) Parse_shen.<digits>)) (shen.pair (hd Parse_shen.<digits>) (- 0 (shen.pre (reverse (shen.hdtl Parse_shen.<digits>)) 0))) (fail))) (fail))) (if (= YaccParse (fail)) (let Parse_shen.<digits> (shen.<digits> V17083) (if (not (= (fail) Parse_shen.<digits>)) (shen.pair (hd Parse_shen.<digits>) (shen.pre (reverse (shen.hdtl Parse_shen.<digits>)) 0)) (fail))) YaccParse)))
142
142
 
143
- (defun shen.<plus> (V1309) (if (cons? (hd V1309)) (let Parse_Byte (hd (hd V1309)) (if (= Parse_Byte 43) (shen.pair (hd (shen.pair (tl (hd V1309)) (shen.hdtl V1309))) Parse_Byte) (fail))) (fail)))
143
+ (defun shen.<plus> (V17085) (if (cons? (hd V17085)) (let Parse_Byte (hd (hd V17085)) (if (= Parse_Byte 43) (shen.pair (hd (shen.pair (tl (hd V17085)) (shen.hdtl V17085))) Parse_Byte) (fail))) (fail)))
144
144
 
145
- (defun shen.<stop> (V1310) (if (cons? (hd V1310)) (let Parse_Byte (hd (hd V1310)) (if (= Parse_Byte 46) (shen.pair (hd (shen.pair (tl (hd V1310)) (shen.hdtl V1310))) Parse_Byte) (fail))) (fail)))
145
+ (defun shen.<stop> (V17087) (if (cons? (hd V17087)) (let Parse_Byte (hd (hd V17087)) (if (= Parse_Byte 46) (shen.pair (hd (shen.pair (tl (hd V17087)) (shen.hdtl V17087))) Parse_Byte) (fail))) (fail)))
146
146
 
147
- (defun shen.<predigits> (V1311) (let YaccParse (let Parse_shen.<digits> (shen.<digits> V1311) (if (not (= (fail) Parse_shen.<digits>)) (shen.pair (hd Parse_shen.<digits>) (shen.hdtl Parse_shen.<digits>)) (fail))) (if (= YaccParse (fail)) (let Parse_<e> (<e> V1311) (if (not (= (fail) Parse_<e>)) (shen.pair (hd Parse_<e>) ()) (fail))) YaccParse)))
147
+ (defun shen.<predigits> (V17089) (let YaccParse (let Parse_shen.<digits> (shen.<digits> V17089) (if (not (= (fail) Parse_shen.<digits>)) (shen.pair (hd Parse_shen.<digits>) (shen.hdtl Parse_shen.<digits>)) (fail))) (if (= YaccParse (fail)) (let Parse_<e> (<e> V17089) (if (not (= (fail) Parse_<e>)) (shen.pair (hd Parse_<e>) ()) (fail))) YaccParse)))
148
148
 
149
- (defun shen.<postdigits> (V1312) (let Parse_shen.<digits> (shen.<digits> V1312) (if (not (= (fail) Parse_shen.<digits>)) (shen.pair (hd Parse_shen.<digits>) (shen.hdtl Parse_shen.<digits>)) (fail))))
149
+ (defun shen.<postdigits> (V17091) (let Parse_shen.<digits> (shen.<digits> V17091) (if (not (= (fail) Parse_shen.<digits>)) (shen.pair (hd Parse_shen.<digits>) (shen.hdtl Parse_shen.<digits>)) (fail))))
150
150
 
151
- (defun shen.<digits> (V1313) (let YaccParse (let Parse_shen.<digit> (shen.<digit> V1313) (if (not (= (fail) Parse_shen.<digit>)) (let Parse_shen.<digits> (shen.<digits> Parse_shen.<digit>) (if (not (= (fail) Parse_shen.<digits>)) (shen.pair (hd Parse_shen.<digits>) (cons (shen.hdtl Parse_shen.<digit>) (shen.hdtl Parse_shen.<digits>))) (fail))) (fail))) (if (= YaccParse (fail)) (let Parse_shen.<digit> (shen.<digit> V1313) (if (not (= (fail) Parse_shen.<digit>)) (shen.pair (hd Parse_shen.<digit>) (cons (shen.hdtl Parse_shen.<digit>) ())) (fail))) YaccParse)))
151
+ (defun shen.<digits> (V17093) (let YaccParse (let Parse_shen.<digit> (shen.<digit> V17093) (if (not (= (fail) Parse_shen.<digit>)) (let Parse_shen.<digits> (shen.<digits> Parse_shen.<digit>) (if (not (= (fail) Parse_shen.<digits>)) (shen.pair (hd Parse_shen.<digits>) (cons (shen.hdtl Parse_shen.<digit>) (shen.hdtl Parse_shen.<digits>))) (fail))) (fail))) (if (= YaccParse (fail)) (let Parse_shen.<digit> (shen.<digit> V17093) (if (not (= (fail) Parse_shen.<digit>)) (shen.pair (hd Parse_shen.<digit>) (cons (shen.hdtl Parse_shen.<digit>) ())) (fail))) YaccParse)))
152
152
 
153
- (defun shen.<digit> (V1314) (if (cons? (hd V1314)) (let Parse_X (hd (hd V1314)) (if (shen.numbyte? Parse_X) (shen.pair (hd (shen.pair (tl (hd V1314)) (shen.hdtl V1314))) (shen.byte->digit Parse_X)) (fail))) (fail)))
153
+ (defun shen.<digit> (V17095) (if (cons? (hd V17095)) (let Parse_X (hd (hd V17095)) (if (shen.numbyte? Parse_X) (shen.pair (hd (shen.pair (tl (hd V17095)) (shen.hdtl V17095))) (shen.byte->digit Parse_X)) (fail))) (fail)))
154
154
 
155
- (defun shen.byte->digit (V1315) (cond ((= 48 V1315) 0) ((= 49 V1315) 1) ((= 50 V1315) 2) ((= 51 V1315) 3) ((= 52 V1315) 4) ((= 53 V1315) 5) ((= 54 V1315) 6) ((= 55 V1315) 7) ((= 56 V1315) 8) ((= 57 V1315) 9) (true (shen.f_error shen.byte->digit))))
155
+ (defun shen.byte->digit (V17097) (cond ((= 48 V17097) 0) ((= 49 V17097) 1) ((= 50 V17097) 2) ((= 51 V17097) 3) ((= 52 V17097) 4) ((= 53 V17097) 5) ((= 54 V17097) 6) ((= 55 V17097) 7) ((= 56 V17097) 8) ((= 57 V17097) 9) (true (shen.f_error shen.byte->digit))))
156
156
 
157
- (defun shen.pre (V1318 V1319) (cond ((= () V1318) 0) ((cons? V1318) (+ (* (shen.expt 10 V1319) (hd V1318)) (shen.pre (tl V1318) (+ V1319 1)))) (true (shen.f_error shen.pre))))
157
+ (defun shen.pre (V17102 V17103) (cond ((= () V17102) 0) ((cons? V17102) (+ (* (shen.expt 10 V17103) (hd V17102)) (shen.pre (tl V17102) (+ V17103 1)))) (true (shen.f_error shen.pre))))
158
158
 
159
- (defun shen.post (V1322 V1323) (cond ((= () V1322) 0) ((cons? V1322) (+ (* (shen.expt 10 (- 0 V1323)) (hd V1322)) (shen.post (tl V1322) (+ V1323 1)))) (true (shen.f_error shen.post))))
159
+ (defun shen.post (V17108 V17109) (cond ((= () V17108) 0) ((cons? V17108) (+ (* (shen.expt 10 (- 0 V17109)) (hd V17108)) (shen.post (tl V17108) (+ V17109 1)))) (true (shen.f_error shen.post))))
160
160
 
161
- (defun shen.expt (V1326 V1327) (cond ((= 0 V1327) 1) ((> V1327 0) (* V1326 (shen.expt V1326 (- V1327 1)))) (true (* 1.0 (/ (shen.expt V1326 (+ V1327 1)) V1326)))))
161
+ (defun shen.expt (V17114 V17115) (cond ((= 0 V17115) 1) ((> V17115 0) (* V17114 (shen.expt V17114 (- V17115 1)))) (true (* 1.0 (/ (shen.expt V17114 (+ V17115 1)) V17114)))))
162
162
 
163
- (defun shen.<st_input1> (V1328) (let Parse_shen.<st_input> (shen.<st_input> V1328) (if (not (= (fail) Parse_shen.<st_input>)) (shen.pair (hd Parse_shen.<st_input>) (shen.hdtl Parse_shen.<st_input>)) (fail))))
163
+ (defun shen.<st_input1> (V17117) (let Parse_shen.<st_input> (shen.<st_input> V17117) (if (not (= (fail) Parse_shen.<st_input>)) (shen.pair (hd Parse_shen.<st_input>) (shen.hdtl Parse_shen.<st_input>)) (fail))))
164
164
 
165
- (defun shen.<st_input2> (V1329) (let Parse_shen.<st_input> (shen.<st_input> V1329) (if (not (= (fail) Parse_shen.<st_input>)) (shen.pair (hd Parse_shen.<st_input>) (shen.hdtl Parse_shen.<st_input>)) (fail))))
165
+ (defun shen.<st_input2> (V17119) (let Parse_shen.<st_input> (shen.<st_input> V17119) (if (not (= (fail) Parse_shen.<st_input>)) (shen.pair (hd Parse_shen.<st_input>) (shen.hdtl Parse_shen.<st_input>)) (fail))))
166
166
 
167
- (defun shen.<comment> (V1330) (let YaccParse (let Parse_shen.<singleline> (shen.<singleline> V1330) (if (not (= (fail) Parse_shen.<singleline>)) (shen.pair (hd Parse_shen.<singleline>) shen.skip) (fail))) (if (= YaccParse (fail)) (let Parse_shen.<multiline> (shen.<multiline> V1330) (if (not (= (fail) Parse_shen.<multiline>)) (shen.pair (hd Parse_shen.<multiline>) shen.skip) (fail))) YaccParse)))
167
+ (defun shen.<comment> (V17121) (let YaccParse (let Parse_shen.<singleline> (shen.<singleline> V17121) (if (not (= (fail) Parse_shen.<singleline>)) (shen.pair (hd Parse_shen.<singleline>) shen.skip) (fail))) (if (= YaccParse (fail)) (let Parse_shen.<multiline> (shen.<multiline> V17121) (if (not (= (fail) Parse_shen.<multiline>)) (shen.pair (hd Parse_shen.<multiline>) shen.skip) (fail))) YaccParse)))
168
168
 
169
- (defun shen.<singleline> (V1331) (let Parse_shen.<backslash> (shen.<backslash> V1331) (if (not (= (fail) Parse_shen.<backslash>)) (let Parse_shen.<backslash> (shen.<backslash> Parse_shen.<backslash>) (if (not (= (fail) Parse_shen.<backslash>)) (let Parse_shen.<anysingle> (shen.<anysingle> Parse_shen.<backslash>) (if (not (= (fail) Parse_shen.<anysingle>)) (let Parse_shen.<return> (shen.<return> Parse_shen.<anysingle>) (if (not (= (fail) Parse_shen.<return>)) (shen.pair (hd Parse_shen.<return>) shen.skip) (fail))) (fail))) (fail))) (fail))))
169
+ (defun shen.<singleline> (V17123) (let Parse_shen.<backslash> (shen.<backslash> V17123) (if (not (= (fail) Parse_shen.<backslash>)) (let Parse_shen.<backslash> (shen.<backslash> Parse_shen.<backslash>) (if (not (= (fail) Parse_shen.<backslash>)) (let Parse_shen.<anysingle> (shen.<anysingle> Parse_shen.<backslash>) (if (not (= (fail) Parse_shen.<anysingle>)) (let Parse_shen.<return> (shen.<return> Parse_shen.<anysingle>) (if (not (= (fail) Parse_shen.<return>)) (shen.pair (hd Parse_shen.<return>) shen.skip) (fail))) (fail))) (fail))) (fail))))
170
170
 
171
- (defun shen.<backslash> (V1332) (if (and (cons? (hd V1332)) (= 92 (hd (hd V1332)))) (shen.pair (hd (shen.pair (tl (hd V1332)) (shen.hdtl V1332))) shen.skip) (fail)))
171
+ (defun shen.<backslash> (V17125) (if (and (cons? (hd V17125)) (= 92 (hd (hd V17125)))) (shen.pair (hd (shen.pair (tl (hd V17125)) (shen.hdtl V17125))) shen.skip) (fail)))
172
172
 
173
- (defun shen.<anysingle> (V1333) (let YaccParse (let Parse_shen.<non-return> (shen.<non-return> V1333) (if (not (= (fail) Parse_shen.<non-return>)) (let Parse_shen.<anysingle> (shen.<anysingle> Parse_shen.<non-return>) (if (not (= (fail) Parse_shen.<anysingle>)) (shen.pair (hd Parse_shen.<anysingle>) shen.skip) (fail))) (fail))) (if (= YaccParse (fail)) (let Parse_<e> (<e> V1333) (if (not (= (fail) Parse_<e>)) (shen.pair (hd Parse_<e>) shen.skip) (fail))) YaccParse)))
173
+ (defun shen.<anysingle> (V17127) (let YaccParse (let Parse_shen.<non-return> (shen.<non-return> V17127) (if (not (= (fail) Parse_shen.<non-return>)) (let Parse_shen.<anysingle> (shen.<anysingle> Parse_shen.<non-return>) (if (not (= (fail) Parse_shen.<anysingle>)) (shen.pair (hd Parse_shen.<anysingle>) shen.skip) (fail))) (fail))) (if (= YaccParse (fail)) (let Parse_<e> (<e> V17127) (if (not (= (fail) Parse_<e>)) (shen.pair (hd Parse_<e>) shen.skip) (fail))) YaccParse)))
174
174
 
175
- (defun shen.<non-return> (V1334) (if (cons? (hd V1334)) (let Parse_X (hd (hd V1334)) (if (not (element? Parse_X (cons 10 (cons 13 ())))) (shen.pair (hd (shen.pair (tl (hd V1334)) (shen.hdtl V1334))) shen.skip) (fail))) (fail)))
175
+ (defun shen.<non-return> (V17129) (if (cons? (hd V17129)) (let Parse_X (hd (hd V17129)) (if (not (element? Parse_X (cons 10 (cons 13 ())))) (shen.pair (hd (shen.pair (tl (hd V17129)) (shen.hdtl V17129))) shen.skip) (fail))) (fail)))
176
176
 
177
- (defun shen.<return> (V1335) (if (cons? (hd V1335)) (let Parse_X (hd (hd V1335)) (if (element? Parse_X (cons 10 (cons 13 ()))) (shen.pair (hd (shen.pair (tl (hd V1335)) (shen.hdtl V1335))) shen.skip) (fail))) (fail)))
177
+ (defun shen.<return> (V17131) (if (cons? (hd V17131)) (let Parse_X (hd (hd V17131)) (if (element? Parse_X (cons 10 (cons 13 ()))) (shen.pair (hd (shen.pair (tl (hd V17131)) (shen.hdtl V17131))) shen.skip) (fail))) (fail)))
178
178
 
179
- (defun shen.<multiline> (V1336) (let Parse_shen.<backslash> (shen.<backslash> V1336) (if (not (= (fail) Parse_shen.<backslash>)) (let Parse_shen.<times> (shen.<times> Parse_shen.<backslash>) (if (not (= (fail) Parse_shen.<times>)) (let Parse_shen.<anymulti> (shen.<anymulti> Parse_shen.<times>) (if (not (= (fail) Parse_shen.<anymulti>)) (shen.pair (hd Parse_shen.<anymulti>) shen.skip) (fail))) (fail))) (fail))))
179
+ (defun shen.<multiline> (V17133) (let Parse_shen.<backslash> (shen.<backslash> V17133) (if (not (= (fail) Parse_shen.<backslash>)) (let Parse_shen.<times> (shen.<times> Parse_shen.<backslash>) (if (not (= (fail) Parse_shen.<times>)) (let Parse_shen.<anymulti> (shen.<anymulti> Parse_shen.<times>) (if (not (= (fail) Parse_shen.<anymulti>)) (shen.pair (hd Parse_shen.<anymulti>) shen.skip) (fail))) (fail))) (fail))))
180
180
 
181
- (defun shen.<times> (V1337) (if (and (cons? (hd V1337)) (= 42 (hd (hd V1337)))) (shen.pair (hd (shen.pair (tl (hd V1337)) (shen.hdtl V1337))) shen.skip) (fail)))
181
+ (defun shen.<times> (V17135) (if (and (cons? (hd V17135)) (= 42 (hd (hd V17135)))) (shen.pair (hd (shen.pair (tl (hd V17135)) (shen.hdtl V17135))) shen.skip) (fail)))
182
182
 
183
- (defun shen.<anymulti> (V1338) (let YaccParse (let Parse_shen.<comment> (shen.<comment> V1338) (if (not (= (fail) Parse_shen.<comment>)) (let Parse_shen.<anymulti> (shen.<anymulti> Parse_shen.<comment>) (if (not (= (fail) Parse_shen.<anymulti>)) (shen.pair (hd Parse_shen.<anymulti>) shen.skip) (fail))) (fail))) (if (= YaccParse (fail)) (let YaccParse (let Parse_shen.<times> (shen.<times> V1338) (if (not (= (fail) Parse_shen.<times>)) (let Parse_shen.<backslash> (shen.<backslash> Parse_shen.<times>) (if (not (= (fail) Parse_shen.<backslash>)) (shen.pair (hd Parse_shen.<backslash>) shen.skip) (fail))) (fail))) (if (= YaccParse (fail)) (if (cons? (hd V1338)) (let Parse_X (hd (hd V1338)) (let Parse_shen.<anymulti> (shen.<anymulti> (shen.pair (tl (hd V1338)) (shen.hdtl V1338))) (if (not (= (fail) Parse_shen.<anymulti>)) (shen.pair (hd Parse_shen.<anymulti>) shen.skip) (fail)))) (fail)) YaccParse)) YaccParse)))
183
+ (defun shen.<anymulti> (V17137) (let YaccParse (let Parse_shen.<comment> (shen.<comment> V17137) (if (not (= (fail) Parse_shen.<comment>)) (let Parse_shen.<anymulti> (shen.<anymulti> Parse_shen.<comment>) (if (not (= (fail) Parse_shen.<anymulti>)) (shen.pair (hd Parse_shen.<anymulti>) shen.skip) (fail))) (fail))) (if (= YaccParse (fail)) (let YaccParse (let Parse_shen.<times> (shen.<times> V17137) (if (not (= (fail) Parse_shen.<times>)) (let Parse_shen.<backslash> (shen.<backslash> Parse_shen.<times>) (if (not (= (fail) Parse_shen.<backslash>)) (shen.pair (hd Parse_shen.<backslash>) shen.skip) (fail))) (fail))) (if (= YaccParse (fail)) (if (cons? (hd V17137)) (let Parse_X (hd (hd V17137)) (let Parse_shen.<anymulti> (shen.<anymulti> (shen.pair (tl (hd V17137)) (shen.hdtl V17137))) (if (not (= (fail) Parse_shen.<anymulti>)) (shen.pair (hd Parse_shen.<anymulti>) shen.skip) (fail)))) (fail)) YaccParse)) YaccParse)))
184
184
 
185
- (defun shen.<whitespaces> (V1339) (let YaccParse (let Parse_shen.<whitespace> (shen.<whitespace> V1339) (if (not (= (fail) Parse_shen.<whitespace>)) (let Parse_shen.<whitespaces> (shen.<whitespaces> Parse_shen.<whitespace>) (if (not (= (fail) Parse_shen.<whitespaces>)) (shen.pair (hd Parse_shen.<whitespaces>) shen.skip) (fail))) (fail))) (if (= YaccParse (fail)) (let Parse_shen.<whitespace> (shen.<whitespace> V1339) (if (not (= (fail) Parse_shen.<whitespace>)) (shen.pair (hd Parse_shen.<whitespace>) shen.skip) (fail))) YaccParse)))
185
+ (defun shen.<whitespaces> (V17139) (let YaccParse (let Parse_shen.<whitespace> (shen.<whitespace> V17139) (if (not (= (fail) Parse_shen.<whitespace>)) (let Parse_shen.<whitespaces> (shen.<whitespaces> Parse_shen.<whitespace>) (if (not (= (fail) Parse_shen.<whitespaces>)) (shen.pair (hd Parse_shen.<whitespaces>) shen.skip) (fail))) (fail))) (if (= YaccParse (fail)) (let Parse_shen.<whitespace> (shen.<whitespace> V17139) (if (not (= (fail) Parse_shen.<whitespace>)) (shen.pair (hd Parse_shen.<whitespace>) shen.skip) (fail))) YaccParse)))
186
186
 
187
- (defun shen.<whitespace> (V1340) (if (cons? (hd V1340)) (let Parse_X (hd (hd V1340)) (if (let Parse_Case Parse_X (or (= Parse_Case 32) (or (= Parse_Case 13) (or (= Parse_Case 10) (= Parse_Case 9))))) (shen.pair (hd (shen.pair (tl (hd V1340)) (shen.hdtl V1340))) shen.skip) (fail))) (fail)))
187
+ (defun shen.<whitespace> (V17141) (if (cons? (hd V17141)) (let Parse_X (hd (hd V17141)) (if (let Parse_Case Parse_X (or (= Parse_Case 32) (or (= Parse_Case 13) (or (= Parse_Case 10) (= Parse_Case 9))))) (shen.pair (hd (shen.pair (tl (hd V17141)) (shen.hdtl V17141))) shen.skip) (fail))) (fail)))
188
188
 
189
- (defun shen.cons_form (V1341) (cond ((= () V1341) ()) ((and (cons? V1341) (and (cons? (tl V1341)) (and (cons? (tl (tl V1341))) (and (= () (tl (tl (tl V1341)))) (= (hd (tl V1341)) bar!))))) (cons cons (cons (hd V1341) (tl (tl V1341))))) ((cons? V1341) (cons cons (cons (hd V1341) (cons (shen.cons_form (tl V1341)) ())))) (true (shen.f_error shen.cons_form))))
189
+ (defun shen.cons_form (V17143) (cond ((= () V17143) ()) ((and (cons? V17143) (and (cons? (tl V17143)) (and (cons? (tl (tl V17143))) (and (= () (tl (tl (tl V17143)))) (= (hd (tl V17143)) bar!))))) (cons cons (cons (hd V17143) (tl (tl V17143))))) ((cons? V17143) (cons cons (cons (hd V17143) (cons (shen.cons_form (tl V17143)) ())))) (true (shen.f_error shen.cons_form))))
190
190
 
191
- (defun shen.package-macro (V1344 V1345) (cond ((and (cons? V1344) (and (= $ (hd V1344)) (and (cons? (tl V1344)) (= () (tl (tl V1344)))))) (append (explode (hd (tl V1344))) V1345)) ((and (cons? V1344) (and (= package (hd V1344)) (and (cons? (tl V1344)) (and (= null (hd (tl V1344))) (cons? (tl (tl V1344))))))) (append (tl (tl (tl V1344))) V1345)) ((and (cons? V1344) (and (= package (hd V1344)) (and (cons? (tl V1344)) (cons? (tl (tl V1344)))))) (let ListofExceptions (shen.eval-without-macros (hd (tl (tl V1344)))) (let Record (shen.record-exceptions ListofExceptions (hd (tl V1344))) (let PackageNameDot (intern (cn (str (hd (tl V1344))) ".")) (append (shen.packageh PackageNameDot ListofExceptions (tl (tl (tl V1344)))) V1345))))) (true (cons V1344 V1345))))
191
+ (defun shen.package-macro (V17148 V17149) (cond ((and (cons? V17148) (and (= $ (hd V17148)) (and (cons? (tl V17148)) (= () (tl (tl V17148)))))) (append (explode (hd (tl V17148))) V17149)) ((and (cons? V17148) (and (= package (hd V17148)) (and (cons? (tl V17148)) (and (= null (hd (tl V17148))) (cons? (tl (tl V17148))))))) (append (tl (tl (tl V17148))) V17149)) ((and (cons? V17148) (and (= package (hd V17148)) (and (cons? (tl V17148)) (cons? (tl (tl V17148)))))) (let ListofExceptions (shen.eval-without-macros (hd (tl (tl V17148)))) (let Record (shen.record-exceptions ListofExceptions (hd (tl V17148))) (let PackageNameDot (intern (cn (str (hd (tl V17148))) ".")) (append (shen.packageh PackageNameDot ListofExceptions (tl (tl (tl V17148)))) V17149))))) (true (cons V17148 V17149))))
192
192
 
193
- (defun shen.record-exceptions (V1346 V1347) (let CurrExceptions (trap-error (get V1347 shen.external-symbols (value *property-vector*)) (lambda E ())) (let AllExceptions (union V1346 CurrExceptions) (put V1347 shen.external-symbols AllExceptions (value *property-vector*)))))
193
+ (defun shen.record-exceptions (V17152 V17153) (let CurrExceptions (trap-error (get V17153 shen.external-symbols (value *property-vector*)) (lambda E ())) (let AllExceptions (union V17152 CurrExceptions) (put V17153 shen.external-symbols AllExceptions (value *property-vector*)))))
194
194
 
195
- (defun shen.packageh (V1356 V1357 V1358) (cond ((cons? V1358) (cons (shen.packageh V1356 V1357 (hd V1358)) (shen.packageh V1356 V1357 (tl V1358)))) ((or (shen.sysfunc? V1358) (or (variable? V1358) (or (element? V1358 V1357) (or (shen.doubleunderline? V1358) (shen.singleunderline? V1358))))) V1358) ((and (symbol? V1358) (not (shen.prefix? (cons "s" (cons "h" (cons "e" (cons "n" (cons "." ()))))) (explode V1358)))) (concat V1356 V1358)) (true V1358)))
195
+ (defun shen.packageh (V17165 V17166 V17167) (cond ((cons? V17167) (cons (shen.packageh V17165 V17166 (hd V17167)) (shen.packageh V17165 V17166 (tl V17167)))) ((or (shen.sysfunc? V17167) (or (variable? V17167) (or (element? V17167 V17166) (or (shen.doubleunderline? V17167) (shen.singleunderline? V17167))))) V17167) ((and (symbol? V17167) (not (shen.prefix? (cons "s" (cons "h" (cons "e" (cons "n" (cons "." ()))))) (explode V17167)))) (concat V17165 V17167)) (true V17167)))
196
196
 
197
197
 
198
198