diff --git a/debug/read/read-cps-opt.c b/debug/read/read-cps-opt.c new file mode 100644 index 00000000..5ea0cb1a --- /dev/null +++ b/debug/read/read-cps-opt.c @@ -0,0 +1,3567 @@ +((define read #f) + (define *in-port-table* #f) + (define reg-port + #((record-marker) + #((record-marker) #f (id args body)) + #(630 + (k$812 fp$262) + ((#((record-marker) + #((record-marker) #f (id args body)) + #(628 + (r$263) + ((if r$263 + (k$812 r$263) + (list #((record-marker) + #((record-marker) #f (id args body)) + #(626 + (r$817) + ((#((record-marker) + #((record-marker) #f (id args body)) + #(625 + (r$814) + ((#((record-marker) + #((record-marker) #f (id args body)) + #(623 (r$815) ((k$812 r$263)))) + (set! *in-port-table* + (cons r$263 *in-port-table*)))))) + (set! r$263 r$817))))) + fp$262 + #f + 1 + 0))))) + (assoc fp$262 *in-port-table*)))))) + (define in-port:read-buf! + #((record-marker) + #((record-marker) #f (id args body)) + #(621 + (k$807 ptbl$260) + ((in-port:set-buf! + #((record-marker) + #((record-marker) #f (id args body)) + #(618 (r$809) ((k$807 (cadr ptbl$260))))) + ptbl$260 + #f))))) + (define in-port:get-buf + #((record-marker) + #((record-marker) #f (id args body)) + #(617 (k$804 ptbl$259) ((k$804 (cadr ptbl$259)))))) + (define in-port:set-buf! + #((record-marker) + #((record-marker) #f (id args body)) + #(616 + (k$800 ptbl$258 buf$257) + ((k$800 (set-car! (cdr ptbl$258) buf$257)))))) + (define in-port:get-lnum + #((record-marker) + #((record-marker) #f (id args body)) + #(614 + (k$797 ptbl$256) + ((k$797 (caddr ptbl$256)))))) + (define in-port:set-lnum! + #((record-marker) + #((record-marker) #f (id args body)) + #(613 + (k$793 ptbl$255 lnum$254) + ((k$793 (set-car! (cddr ptbl$255) lnum$254)))))) + (define in-port:get-cnum + #((record-marker) + #((record-marker) #f (id args body)) + #(611 + (k$790 ptbl$253) + ((k$790 (cadddr ptbl$253)))))) + (define in-port:set-cnum! + #((record-marker) + #((record-marker) #f (id args body)) + #(610 + (k$786 ptbl$252 cnum$251) + ((k$786 (set-car! (cdddr ptbl$252) cnum$251)))))) + (define add-tok + #((record-marker) + #((record-marker) #f (id args body)) + #(608 + (k$783 tok$250 toks$249) + ((k$783 (cons tok$250 toks$249)))))) + (define get-toks + #((record-marker) + #((record-marker) #f (id args body)) + #(607 + (k$778 tok$248 toks$247) + ((if (null? tok$248) + (k$778 toks$247) + (->tok #((record-marker) + #((record-marker) #f (id args body)) + #(605 (r$780) ((add-tok k$778 r$780 toks$247)))) + tok$248)))))) + (define ->tok + #((record-marker) + #((record-marker) #f (id args body)) + #(604 + (k$774 lst$246) + ((reverse + #((record-marker) + #((record-marker) #f (id args body)) + #(603 (r$775) ((parse-atom k$774 r$775)))) + lst$246))))) + (define dotted? + #((record-marker) + #((record-marker) #f (id args body)) + #(602 + (k$766 lst$245) + ((#((record-marker) + #((record-marker) #f (id args body)) + #(600 + (r$767) + ((if r$767 + (reverse + #((record-marker) + #((record-marker) #f (id args body)) + #(599 + (r$770) + ((k$766 (equal? (cadr r$770) (string->symbol ".")))))) + lst$245) + (k$766 #f))))) + (> (length lst$245) 2)))))) + (define ->dotted-list + #((record-marker) + #((record-marker) #f (id args body)) + #(596 + (k$756 lst$244) + ((if (null? lst$244) + (k$756 '()) + (if (equal? (car lst$244) (string->symbol ".")) + (k$756 (cadr lst$244)) + (->dotted-list + #((record-marker) + #((record-marker) #f (id args body)) + #(588 + (r$760) + ((k$756 (cons (car lst$244) r$760))))) + (cdr lst$244)))))))) + (define parse-error + #((record-marker) + #((record-marker) #f (id args body)) + #(585 + (k$750 msg$243 lnum$242 cnum$241) + ((#((record-marker) + #((record-marker) #f (id args body)) + #(584 + (r$752) + ((#((record-marker) + #((record-marker) #f (id args body)) + #(583 + (r$753) + ((#((record-marker) + #((record-marker) #f (id args body)) + #(582 (r$751) ((error k$750 r$751)))) + (string-append + "Error (line " + r$752 + ", char " + r$753 + "): " + msg$243))))) + (number->string cnum$241))))) + (number->string lnum$242)))))) + (define parse/tok + #((record-marker) + #((record-marker) #f (id args body)) + #(581 + (k$739 fp$240 + tok$239 + toks$238 + all?$237 + comment?$236 + parens$235 + ptbl$234 + curr-char$233) + ((if (null? tok$239) + (#((record-marker) + #((record-marker) #f (id args body)) + #(570 + (r$741) + ((parse k$739 + fp$240 + r$741 + toks$238 + all?$237 + comment?$236 + parens$235 + ptbl$234)))) + '()) + (if all?$237 + (#((record-marker) + #((record-marker) #f (id args body)) + #(574 + (r$742) + ((->tok #((record-marker) + #((record-marker) #f (id args body)) + #(573 + (r$744) + ((add-tok + #((record-marker) + #((record-marker) #f (id args body)) + #(572 + (r$743) + ((parse k$739 + fp$240 + r$742 + r$743 + all?$237 + comment?$236 + parens$235 + ptbl$234)))) + r$744 + toks$238)))) + tok$239)))) + '()) + (in-port:set-buf! + #((record-marker) + #((record-marker) #f (id args body)) + #(578 + (r$745) + ((->tok #((record-marker) + #((record-marker) #f (id args body)) + #(577 + (r$747) + ((add-tok + #((record-marker) + #((record-marker) #f (id args body)) + #(576 (r$746) ((k$739 (car r$746))))) + r$747 + toks$238)))) + tok$239)))) + ptbl$234 + curr-char$233))))))) + (define parse + #((record-marker) + #((record-marker) #f (id args body)) + #(569 + (k$497 fp$202 + tok$201 + toks$200 + all?$199 + comment?$198 + parens$197 + ptbl$196) + ((in-port:get-cnum + #((record-marker) + #((record-marker) #f (id args body)) + #(567 + (r$736) + ((#((record-marker) + #((record-marker) #f (id args body)) + #(566 + (r$735) + ((in-port:set-cnum! + #((record-marker) + #((record-marker) #f (id args body)) + #(565 + (r$498) + ((#((record-marker) + #((record-marker) #f (id args body)) + #(564 + (k$733) + ((in-port:get-buf + #((record-marker) + #((record-marker) #f (id args body)) + #(563 + (r$734) + ((if r$734 + (in-port:read-buf! k$733 ptbl$196) + (k$733 (read-char fp$202)))))) + ptbl$196)))) + #((record-marker) + #((record-marker) #f (id args body)) + #(561 + (c$204) + ((if (eof-object? c$204) + (#((record-marker) + #((record-marker) #f (id args body)) + #(276 + (k$506) + ((#((record-marker) + #((record-marker) + #f + (id args body)) + #(275 + (r$507) + ((if r$507 + (in-port:get-lnum + #((record-marker) + #((record-marker) + #f + (id args body)) + #(274 + (r$508) + ((in-port:get-cnum + #((record-marker) + #((record-marker) + #f + (id args body)) + #(273 + (r$509) + ((parse-error + k$506 + "missing closing parenthesis" + r$508 + r$509)))) + ptbl$196)))) + ptbl$196) + (k$506 #f))))) + (> parens$197 0))))) + #((record-marker) + #((record-marker) #f (id args body)) + #(272 + (r$501) + ((if all?$199 + (get-toks + #((record-marker) + #((record-marker) + #f + (id args body)) + #(267 + (r$502) + ((reverse k$497 r$502)))) + tok$201 + toks$200) + (get-toks + #((record-marker) + #((record-marker) + #f + (id args body)) + #(270 + (last$232) + ((#((record-marker) + #((record-marker) + #f + (id args body)) + #(268 + (r$504) + ((if r$504 + (k$497 (car last$232)) + (k$497 c$204))))) + (> (length last$232) 0))))) + tok$201 + toks$200)))))) + (if comment?$198 + (if (eq? c$204 #\newline) + (in-port:get-lnum + #((record-marker) + #((record-marker) #f (id args body)) + #(282 + (r$515) + ((#((record-marker) + #((record-marker) + #f + (id args body)) + #(281 + (r$514) + ((in-port:set-lnum! + #((record-marker) + #((record-marker) + #f + (id args body)) + #(280 + (r$511) + ((in-port:set-cnum! + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(279 + (r$512) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(278 + (r$513) + ((parse k$497 + fp$202 + r$513 + toks$200 + all?$199 + #f + parens$197 + ptbl$196)))) + '())))) + ptbl$196 + 0)))) + ptbl$196 + r$514)))) + (+ 1 r$515))))) + ptbl$196) + (#((record-marker) + #((record-marker) #f (id args body)) + #(284 + (r$516) + ((parse k$497 + fp$202 + r$516 + toks$200 + all?$199 + #t + parens$197 + ptbl$196)))) + '())) + (char-whitespace? + #((record-marker) + #((record-marker) #f (id args body)) + #(559 + (r$517) + ((if r$517 + (#((record-marker) + #((record-marker) + #f + (id args body)) + #(294 + (k$522) + ((if (equal? + c$204 + #\newline) + (in-port:get-lnum + #((record-marker) + #((record-marker) + #f + (id args body)) + #(292 + (r$525) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(291 + (r$524) + ((in-port:set-lnum! + k$522 + ptbl$196 + r$524)))) + (+ 1 r$525))))) + ptbl$196) + (k$522 #f))))) + #((record-marker) + #((record-marker) + #f + (id args body)) + #(290 + (r$518) + ((#((record-marker) + #((record-marker) + #f + (id args body)) + #(289 + (k$520) + ((if (equal? + c$204 + #\newline) + (in-port:set-cnum! + k$520 + ptbl$196 + 0) + (k$520 #f))))) + #((record-marker) + #((record-marker) + #f + (id args body)) + #(287 + (r$519) + ((parse/tok + k$497 + fp$202 + tok$201 + toks$200 + all?$199 + #f + parens$197 + ptbl$196 + c$204))))))))) + (if (eq? c$204 #\;) + (parse/tok + k$497 + fp$202 + tok$201 + toks$200 + all?$199 + #t + parens$197 + ptbl$196 + c$204) + (if (eq? c$204 #\') + (#((record-marker) + #((record-marker) + #f + (id args body)) + #(315 + (k$541) + ((if all?$199 + (k$541 #f) + (not k$541 + (null? tok$201)))))) + #((record-marker) + #((record-marker) + #f + (id args body)) + #(313 + (r$528) + ((if r$528 + (in-port:set-buf! + #((record-marker) + #((record-marker) + #f + (id args body)) + #(299 + (r$529) + ((->tok #((record-marker) + #((record-marker) + #f + (id args + body)) + #(298 + (r$531) + ((add-tok + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(297 + (r$530) + ((k$497 (car r$530))))) + r$531 + toks$200)))) + tok$201)))) + ptbl$196 + c$204) + (#((record-marker) + #((record-marker) + #f + (id args body)) + #(311 + (r$539) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(310 + (r$540) + ((parse #((record-marker) + #((record-marker) + #f + (id args + body)) + #(308 + (sub$230) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(307 + (new-toks$231) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(306 + (r$538) + ((list #((record-marker) + #((record-marker) + #f + (id args + body)) + #(305 + (r$536) + ((get-toks + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(304 + (r$537) + ((add-tok + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(303 + (r$535) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(302 + (r$533) + ((if all?$199 + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(301 + (r$534) + ((parse k$497 + fp$202 + r$534 + new-toks$231 + all?$199 + #f + parens$197 + ptbl$196)))) + '()) + (k$497 (car new-toks$231)))))) + (set! new-toks$231 + r$535))))) + r$536 + r$537)))) + tok$201 + toks$200)))) + r$538 + sub$230)))) + 'quote)))) + #f)))) + fp$202 + r$539 + r$540 + #f + #f + 0 + ptbl$196)))) + '())))) + '())))))) + (if (eq? c$204 #\`) + (#((record-marker) + #((record-marker) + #f + (id args body)) + #(335 + (k$557) + ((if all?$199 + (k$557 #f) + (not k$557 + (null? tok$201)))))) + #((record-marker) + #((record-marker) + #f + (id args body)) + #(333 + (r$544) + ((if r$544 + (in-port:set-buf! + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(319 + (r$545) + ((->tok #((record-marker) + #((record-marker) + #f + (id args + body)) + #(318 + (r$547) + ((add-tok + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(317 + (r$546) + ((k$497 (car r$546))))) + r$547 + toks$200)))) + tok$201)))) + ptbl$196 + c$204) + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(331 + (r$555) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(330 + (r$556) + ((parse #((record-marker) + #((record-marker) + #f + (id args + body)) + #(328 + (sub$228) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(327 + (new-toks$229) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(326 + (r$554) + ((list #((record-marker) + #((record-marker) + #f + (id args + body)) + #(325 + (r$552) + ((get-toks + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(324 + (r$553) + ((add-tok + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(323 + (r$551) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(322 + (r$549) + ((if all?$199 + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(321 + (r$550) + ((parse k$497 + fp$202 + r$550 + new-toks$229 + all?$199 + #f + parens$197 + ptbl$196)))) + '()) + (k$497 (car new-toks$229)))))) + (set! new-toks$229 + r$551))))) + r$552 + r$553)))) + tok$201 + toks$200)))) + r$554 + sub$228)))) + 'quasiquote)))) + #f)))) + fp$202 + r$555 + r$556 + #f + #f + 0 + ptbl$196)))) + '())))) + '())))))) + (if (eq? c$204 #\,) + (#((record-marker) + #((record-marker) + #f + (id args body)) + #(371 + (k$587) + ((if all?$199 + (k$587 #f) + (not k$587 + (null? tok$201)))))) + #((record-marker) + #((record-marker) + #f + (id args body)) + #(369 + (r$560) + ((if r$560 + (in-port:set-buf! + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(339 + (r$561) + ((->tok #((record-marker) + #((record-marker) + #f + (id args + body)) + #(338 + (r$563) + ((add-tok + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(337 + (r$562) + ((k$497 (car r$562))))) + r$563 + toks$200)))) + tok$201)))) + ptbl$196 + c$204) + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(367 + (sub$227 + next-c$226 + unquote-sym$225 + new-toks$224) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(366 + (r$564) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(365 + (r$586) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(364 + (r$565) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(363 + (k$584) + ((if (equal? + next-c$226 + #\@) + (k$584 'unquote-splicing) + (k$584 'unquote))))) + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(361 + (r$583) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(360 + (r$566) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(359 + (r$567) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(358 + (k$578) + ((if (eof-object? + next-c$226) + (in-port:get-lnum + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(352 + (r$580) + ((in-port:get-cnum + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(351 + (r$581) + ((parse-error + k$578 + "unexpected end of file" + r$580 + r$581)))) + ptbl$196)))) + ptbl$196) + (if (equal? + next-c$226 + #\@) + (k$578 #f) + (in-port:set-buf! + k$578 + ptbl$196 + next-c$226)))))) + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(350 + (r$568) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(349 + (r$576) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(348 + (r$577) + ((parse #((record-marker) + #((record-marker) + #f + (id args + body)) + #(347 + (r$575) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(346 + (r$569) + ((list #((record-marker) + #((record-marker) + #f + (id args + body)) + #(345 + (r$573) + ((get-toks + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(344 + (r$574) + ((add-tok + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(343 + (r$572) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(342 + (r$570) + ((if all?$199 + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(341 + (r$571) + ((parse k$497 + fp$202 + r$571 + new-toks$224 + all?$199 + #f + parens$197 + ptbl$196)))) + '()) + (k$497 (car new-toks$224)))))) + (set! new-toks$224 + r$572))))) + r$573 + r$574)))) + tok$201 + toks$200)))) + unquote-sym$225 + sub$227)))) + (set! sub$227 + r$575))))) + fp$202 + r$576 + r$577 + #f + #f + 0 + ptbl$196)))) + '())))) + '())))))))) + (set! new-toks$224 + #f))))) + (set! unquote-sym$225 + r$583))))))))) + (set! next-c$226 + r$586))))) + (read-char + fp$202))))) + (set! sub$227 + #f))))) + #f + #f + #f + #f)))))) + (if (eq? c$204 #\() + (#((record-marker) + #((record-marker) + #f + (id args body)) + #(395 + (k$607) + ((if all?$199 + (k$607 #f) + (not k$607 + (null? tok$201)))))) + #((record-marker) + #((record-marker) + #f + (id args body)) + #(393 + (r$590) + ((if r$590 + (in-port:set-buf! + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(375 + (r$591) + ((->tok #((record-marker) + #((record-marker) + #f + (id args + body)) + #(374 + (r$593) + ((add-tok + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(373 + (r$592) + ((k$497 (car r$592))))) + r$593 + toks$200)))) + tok$201)))) + ptbl$196 + c$204) + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(391 + (r$604) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(390 + (r$605) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(389 + (r$606) + ((parse #((record-marker) + #((record-marker) + #f + (id args + body)) + #(388 + (r$594) + ((get-toks + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(387 + (r$595) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(386 + (sub$222 + toks*$221) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(385 + (new-toks$223) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(384 + (k$600) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(383 + (k$602) + ((if (pair? sub$222) + (dotted? + k$602 + sub$222) + (k$602 #f))))) + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(381 + (r$601) + ((if r$601 + (->dotted-list + k$600 + sub$222) + (k$600 sub$222))))))))) + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(380 + (r$599) + ((add-tok + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(379 + (r$598) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(378 + (r$596) + ((if all?$199 + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(377 + (r$597) + ((parse k$497 + fp$202 + r$597 + new-toks$223 + all?$199 + #f + parens$197 + ptbl$196)))) + '()) + (k$497 (car new-toks$223)))))) + (set! new-toks$223 + r$598))))) + r$599 + toks*$221)))))))) + #f)))) + r$594 + r$595)))) + tok$201 + toks$200)))) + fp$202 + r$604 + r$605 + #t + #f + r$606 + ptbl$196)))) + (+ parens$197 + 1))))) + '())))) + '())))))) + (if (eq? c$204 #\)) + (#((record-marker) + #((record-marker) + #f + (id args body)) + #(409 + (k$618) + ((if all?$199 + (k$618 #f) + (not k$618 + (null? tok$201)))))) + #((record-marker) + #((record-marker) + #f + (id args body)) + #(407 + (r$610) + ((if r$610 + (in-port:set-buf! + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(399 + (r$611) + ((->tok #((record-marker) + #((record-marker) + #f + (id args + body)) + #(398 + (r$613) + ((add-tok + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(397 + (r$612) + ((k$497 (car r$612))))) + r$613 + toks$200)))) + tok$201)))) + ptbl$196 + c$204) + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(406 + (r$614) + ((if r$614 + (in-port:get-lnum + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(402 + (r$615) + ((in-port:get-cnum + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(401 + (r$616) + ((parse-error + k$497 + "unexpected closing parenthesis" + r$615 + r$616)))) + ptbl$196)))) + ptbl$196) + (get-toks + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(404 + (r$617) + ((reverse + k$497 + r$617)))) + tok$201 + toks$200))))) + (= parens$197 + 0))))))) + (if (eq? c$204 #\") + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(426 + (k$631) + ((if all?$199 + (k$631 #f) + (not k$631 + (null? tok$201)))))) + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(424 + (r$621) + ((if r$621 + (in-port:set-buf! + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(413 + (r$622) + ((->tok #((record-marker) + #((record-marker) + #f + (id args + body)) + #(412 + (r$624) + ((add-tok + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(411 + (r$623) + ((k$497 (car r$623))))) + r$624 + toks$200)))) + tok$201)))) + ptbl$196 + c$204) + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(422 + (r$630) + ((read-str + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(421 + (r$625) + ((get-toks + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(420 + (r$626) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(419 + (str$219 + toks*$218) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(418 + (new-toks$220) + ((add-tok + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(417 + (r$629) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(416 + (r$627) + ((if all?$199 + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(415 + (r$628) + ((parse k$497 + fp$202 + r$628 + new-toks$220 + all?$199 + #f + parens$197 + ptbl$196)))) + '()) + (k$497 (car new-toks$220)))))) + (set! new-toks$220 + r$629))))) + str$219 + toks*$218)))) + #f)))) + r$625 + r$626)))) + tok$201 + toks$200)))) + fp$202 + r$630 + ptbl$196)))) + '())))))) + (if (eq? c$204 #\#) + (if (null? tok$201) + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(542 + (next-c$205) + ((in-port:get-cnum + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(541 + (r$729) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(540 + (r$728) + ((in-port:set-cnum! + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(539 + (r$636) + ((if (eq? #\| + next-c$205) + (read-block-comment + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(429 + (r$638) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(428 + (r$639) + ((parse k$497 + fp$202 + r$639 + toks$200 + all?$199 + #f + parens$197 + ptbl$196)))) + '())))) + fp$202 + ptbl$196) + (if (eq? #\t + next-c$205) + (if all?$199 + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(432 + (r$641) + ((parse k$497 + fp$202 + r$641 + (cons #t + toks$200) + all?$199 + #f + parens$197 + ptbl$196)))) + '()) + (k$497 #t)) + (if (eq? #\f + next-c$205) + (if all?$199 + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(435 + (r$644) + ((parse k$497 + fp$202 + r$644 + (cons #f + toks$200) + all?$199 + #f + parens$197 + ptbl$196)))) + '()) + (k$497 #f)) + (if (eq? #\e + next-c$205) + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(437 + (r$647) + ((parse-number + k$497 + fp$202 + toks$200 + all?$199 + parens$197 + ptbl$196 + 10 + r$647)))) + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(439 + (k$648 num$217) + ((parse-atom + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(438 + (r$649) + ((exact k$648 + r$649)))) + num$217))))) + (if (eq? #\i + next-c$205) + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(441 + (r$651) + ((parse-number + k$497 + fp$202 + toks$200 + all?$199 + parens$197 + ptbl$196 + 10 + r$651)))) + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(443 + (k$652 num$216) + ((parse-atom + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(442 + (r$653) + ((inexact + k$652 + r$653)))) + num$216))))) + (if (eq? #\b + next-c$205) + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(445 + (r$655) + ((parse-number + k$497 + fp$202 + toks$200 + all?$199 + parens$197 + ptbl$196 + 2 + r$655)))) + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(447 + (k$656 num$215) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(446 + (r$657) + ((k$656 (string->number + r$657 + 2))))) + (list->string + num$215)))))) + (if (eq? #\o + next-c$205) + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(449 + (r$659) + ((parse-number + k$497 + fp$202 + toks$200 + all?$199 + parens$197 + ptbl$196 + 8 + r$659)))) + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(451 + (k$660 num$214) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(450 + (r$661) + ((k$660 (string->number + r$661 + 8))))) + (list->string + num$214)))))) + (if (eq? #\x + next-c$205) + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(453 + (r$663) + ((parse-number + k$497 + fp$202 + toks$200 + all?$199 + parens$197 + ptbl$196 + 16 + r$663)))) + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(455 + (k$664 num$213) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(454 + (r$665) + ((k$664 (string->number + r$665 + 16))))) + (list->string + num$213)))))) + (if (eq? #\u + next-c$205) + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(487 + (r$695) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(486 + (r$667) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(485 + (k$691) + ((if (eq? #\8 + next-c$205) + (k$691 #f) + (in-port:get-lnum + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(483 + (r$693) + ((in-port:get-cnum + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(482 + (r$694) + ((parse-error + k$691 + "Unhandled input sequence" + r$693 + r$694)))) + ptbl$196)))) + ptbl$196))))) + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(481 + (r$668) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(480 + (r$690) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(479 + (r$669) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(478 + (k$686) + ((if (eq? #\( + next-c$205) + (k$686 #f) + (in-port:get-lnum + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(476 + (r$688) + ((in-port:get-cnum + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(475 + (r$689) + ((parse-error + k$686 + "Unhandled input sequence" + r$688 + r$689)))) + ptbl$196)))) + ptbl$196))))) + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(474 + (r$670) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(473 + (r$683) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(472 + (r$684) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(471 + (r$685) + ((parse #((record-marker) + #((record-marker) + #f + (id args + body)) + #(470 + (r$671) + ((get-toks + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(469 + (r$672) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(468 + (sub$211 + toks*$210) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(467 + (new-toks$212) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(466 + (k$677) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(465 + (k$681) + ((if (pair? sub$211) + (dotted? + k$681 + sub$211) + (k$681 #f))))) + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(463 + (r$678) + ((if r$678 + (in-port:get-lnum + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(462 + (r$679) + ((in-port:get-cnum + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(461 + (r$680) + ((parse-error + k$677 + "Invalid vector syntax" + r$679 + r$680)))) + ptbl$196)))) + ptbl$196) + (k$677 (apply bytevector + sub$211)))))))))) + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(460 + (r$676) + ((add-tok + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(459 + (r$675) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(458 + (r$673) + ((if all?$199 + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(457 + (r$674) + ((parse k$497 + fp$202 + r$674 + new-toks$212 + all?$199 + #f + parens$197 + ptbl$196)))) + '()) + (k$497 (car new-toks$212)))))) + (set! new-toks$212 + r$675))))) + r$676 + toks*$210)))))))) + #f)))) + r$671 + r$672)))) + tok$201 + toks$200)))) + fp$202 + r$683 + r$684 + #t + #f + r$685 + ptbl$196)))) + (+ parens$197 + 1))))) + '())))) + '())))))))) + (set! next-c$205 + r$690))))) + (read-char + fp$202))))))))) + (set! next-c$205 + r$695))))) + (read-char + fp$202)) + (if (eq? #\( + next-c$205) + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(505 + (r$709) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(504 + (r$710) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(503 + (r$711) + ((parse #((record-marker) + #((record-marker) + #f + (id args + body)) + #(502 + (r$697) + ((get-toks + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(501 + (r$698) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(500 + (sub$208 + toks*$207) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(499 + (new-toks$209) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(498 + (k$703) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(497 + (k$707) + ((if (pair? sub$208) + (dotted? + k$707 + sub$208) + (k$707 #f))))) + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(495 + (r$704) + ((if r$704 + (in-port:get-lnum + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(494 + (r$705) + ((in-port:get-cnum + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(493 + (r$706) + ((parse-error + k$703 + "Invalid vector syntax" + r$705 + r$706)))) + ptbl$196)))) + ptbl$196) + (k$703 (list->vector + sub$208)))))))))) + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(492 + (r$702) + ((add-tok + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(491 + (r$701) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(490 + (r$699) + ((if all?$199 + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(489 + (r$700) + ((parse k$497 + fp$202 + r$700 + new-toks$209 + all?$199 + #f + parens$197 + ptbl$196)))) + '()) + (k$497 (car new-toks$209)))))) + (set! new-toks$209 + r$701))))) + r$702 + toks*$207)))))))) + #f)))) + r$697 + r$698)))) + tok$201 + toks$200)))) + fp$202 + r$709 + r$710 + #t + #f + r$711 + ptbl$196)))) + (+ parens$197 + 1))))) + '())))) + '()) + (if (eq? #\\ + next-c$205) + (read-pound + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(510 + (r$715) + ((if all?$199 + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(507 + (r$714) + ((parse k$497 + fp$202 + r$714 + (cons r$715 + toks$200) + all?$199 + #f + parens$197 + ptbl$196)))) + '()) + (k$497 (car (cons r$715 + toks$200))))))) + fp$202 + ptbl$196) + (if (eq? #\; + next-c$205) + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(522 + (r$724) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(521 + (r$725) + ((parse #((record-marker) + #((record-marker) + #f + (id args + body)) + #(520 + (r$717) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(519 + (k$722) + ((if all?$199 + (k$722 #f) + (not k$722 + (null? tok$201)))))) + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(517 + (r$718) + ((if r$718 + (in-port:set-buf! + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(514 + (r$719) + ((->tok #((record-marker) + #((record-marker) + #f + (id args + body)) + #(513 + (r$721) + ((add-tok + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(512 + (r$720) + ((k$497 (car r$720))))) + r$721 + toks$200)))) + tok$201)))) + ptbl$196 + c$204) + (parse k$497 + fp$202 + tok$201 + toks$200 + all?$199 + #f + parens$197 + ptbl$196))))))))) + fp$202 + r$724 + r$725 + #f + #f + 0 + ptbl$196)))) + '())))) + '()) + (in-port:get-lnum + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(525 + (r$726) + ((in-port:get-cnum + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(524 + (r$727) + ((parse-error + k$497 + "Unhandled input sequence" + r$726 + r$727)))) + ptbl$196)))) + ptbl$196)))))))))))))))) + ptbl$196 + r$728)))) + (+ 1 + r$729))))) + ptbl$196)))) + (read-char + fp$202)) + (parse k$497 + fp$202 + (cons c$204 + tok$201) + toks$200 + all?$199 + #f + parens$197 + ptbl$196)) + (if (eq? c$204 + #\|) + (parse-literal-identifier + k$497 + fp$202 + toks$200 + all?$199 + parens$197 + ptbl$196) + (parse k$497 + fp$202 + (cons c$204 + tok$201) + toks$200 + all?$199 + #f + parens$197 + ptbl$196)))))))))))))) + c$204)))))))))) + ptbl$196 + r$735)))) + (+ 1 r$736))))) + ptbl$196))))) + (define read-pound + #((record-marker) + #((record-marker) #f (id args body)) + #(266 + (k$438 fp$183 ptbl$182) + ((#((record-marker) + #((record-marker) #f (id args body)) + #(265 + (done$187 loop$186) + ((#((record-marker) + #((record-marker) #f (id args body)) + #(211 + (r$456) + ((#((record-marker) + #((record-marker) #f (id args body)) + #(210 + (r$439) + ((#((record-marker) + #((record-marker) #f (id args body)) + #(191 + (r$442) + ((#((record-marker) + #((record-marker) #f (id args body)) + #(190 + (r$440) + ((#((record-marker) + #((record-marker) #f (id args body)) + #(189 + (r$441) + ((loop$186 k$438 r$441)))) + '())))) + (set! loop$186 r$442))))) + #((record-marker) + #((record-marker) #f (id args body)) + #(209 + (k$443 buf$190) + ((#((record-marker) + #((record-marker) #f (id args body)) + #(207 + (c$191) + ((#((record-marker) + #((record-marker) #f (id args body)) + #(204 + (k$449) + ((if (eof-object? c$191) + (k$449 (eof-object? c$191)) + (#((record-marker) + #((record-marker) + #f + (id args body)) + #(203 + (k$453) + ((char-whitespace? + #((record-marker) + #((record-marker) + #f + (id args body)) + #(202 + (r$454) + ((if r$454 + (k$453 (> (length + buf$190) + 0)) + (k$453 #f))))) + c$191)))) + #((record-marker) + #((record-marker) + #f + (id args body)) + #(199 + (tmp$193) + ((if tmp$193 + (k$449 tmp$193) + (#((record-marker) + #((record-marker) + #f + (id args body)) + #(197 + (r$451) + ((if r$451 + (k$449 (equal? + c$191 + #\))) + (k$449 #f))))) + (> (length buf$190) + 0))))))))))) + #((record-marker) + #((record-marker) #f (id args body)) + #(196 + (r$445) + ((if r$445 + (done$187 k$443 buf$190) + (#((record-marker) + #((record-marker) + #f + (id args body)) + #(194 + (r$447) + ((loop$186 + k$443 + (cons r$447 buf$190))))) + (read-char fp$183)))))))))) + (peek-char fp$183))))))))) + (set! done$187 r$456))))) + #((record-marker) + #((record-marker) #f (id args body)) + #(263 + (k$457 raw-buf$194) + ((reverse + #((record-marker) + #((record-marker) #f (id args body)) + #(261 + (buf$195) + ((#((record-marker) + #((record-marker) #f (id args body)) + #(259 + (r$459) + ((if r$459 + (in-port:get-lnum + #((record-marker) + #((record-marker) #f (id args body)) + #(213 + (r$460) + ((in-port:get-cnum + #((record-marker) + #((record-marker) + #f + (id args body)) + #(212 + (r$461) + ((parse-error + k$457 + "missing character" + r$460 + r$461)))) + ptbl$182)))) + ptbl$182) + (#((record-marker) + #((record-marker) #f (id args body)) + #(257 + (r$462) + ((if r$462 + (k$457 (car buf$195)) + (#((record-marker) + #((record-marker) + #f + (id args body)) + #(256 + (r$492) + ((if (equal? buf$195 r$492) + (k$457 #\) + (#((record-marker) + #((record-marker) + #f + (id args body)) + #(254 + (r$491) + ((if (equal? + buf$195 + r$491) + (k$457 #\) + (#((record-marker) + #((record-marker) + #f + (id args body)) + #(252 + (r$490) + ((if (equal? + buf$195 + r$490) + (k$457 #\) + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(250 + (r$489) + ((if (equal? + buf$195 + r$489) + (k$457 #\) + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(248 + (r$488) + ((if (equal? + buf$195 + r$488) + (k$457 #\newline) + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(246 + (r$487) + ((if (equal? + buf$195 + r$487) + (k$457 #\) + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(244 + (r$486) + ((if (equal? + buf$195 + r$486) + (k$457 #\ ) + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(242 + (r$485) + ((if (equal? + buf$195 + r$485) + (k$457 #\space) + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(240 + (r$484) + ((if (equal? + buf$195 + r$484) + (k$457 #\ ) + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(238 + (k$480) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(236 + (r$481) + ((if r$481 + (k$480 (equal? + (car buf$195) + #\x)) + (k$480 #f))))) + (> (length + buf$195) + 1))))) + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(234 + (r$472) + ((if r$472 + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(226 + (r$474) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(225 + (r$473) + ((k$457 (integer->char + r$473))))) + (string->number + r$474 + 16))))) + (list->string + (cdr buf$195))) + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(232 + (r$479) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(231 + (r$476) + ((in-port:get-lnum + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(230 + (r$477) + ((in-port:get-cnum + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(229 + (r$478) + ((parse-error + k$457 + r$476 + r$477 + r$478)))) + ptbl$182)))) + ptbl$182)))) + (string-append + "unable to parse character: " + r$479))))) + (list->string + buf$195))))))))))) + '(#\t + #\a + #\b)))))) + '(#\s + #\p + #\a + #\c + #\e)))))) + '(#\r + #\e + #\t + #\u + #\r + #\n)))))) + '(#\n + #\u + #\l + #\l)))))) + '(#\n + #\e + #\w + #\l + #\i + #\n + #\e)))))) + '(#\e + #\s + #\c + #\a + #\p + #\e)))))) + '(#\d + #\e + #\l + #\e + #\t + #\e)))))) + '(#\b + #\a + #\c + #\k + #\s + #\p + #\a + #\c + #\e)))))) + '(#\a #\l #\a #\r #\m)))))) + (= 1 (length buf$195))))))) + (= 0 (length buf$195)))))) + raw-buf$194)))))))) + #f + #f))))) + (define read-str + #((record-marker) + #((record-marker) #f (id args body)) + #(188 + (k$426 fp$180 buf$179 ptbl$178) + ((#((record-marker) + #((record-marker) #f (id args body)) + #(186 + (c$181) + ((if (eof-object? c$181) + (in-port:get-lnum + #((record-marker) + #((record-marker) #f (id args body)) + #(175 + (r$429) + ((in-port:get-cnum + #((record-marker) + #((record-marker) #f (id args body)) + #(174 + (r$430) + ((parse-error + k$426 + "missing closing double-quote" + r$429 + r$430)))) + ptbl$178)))) + ptbl$178) + (if (equal? #\\ c$181) + (read-str-esc + #((record-marker) + #((record-marker) #f (id args body)) + #(177 + (r$432) + ((read-str k$426 fp$180 r$432 ptbl$178)))) + fp$180 + buf$179 + ptbl$178) + (if (equal? #\" c$181) + (reverse + #((record-marker) + #((record-marker) #f (id args body)) + #(179 (r$434) ((k$426 (list->string r$434))))) + buf$179) + (read-str + k$426 + fp$180 + (cons c$181 buf$179) + ptbl$178))))))) + (read-char fp$180)))))) + (define read-str-esc + #((record-marker) + #((record-marker) #f (id args body)) + #(173 + (k$410 fp$175 buf$174 ptbl$173) + ((#((record-marker) + #((record-marker) #f (id args body)) + #(171 + (c$176) + ((if (eof-object? c$176) + (in-port:get-lnum + #((record-marker) + #((record-marker) #f (id args body)) + #(155 + (r$413) + ((in-port:get-cnum + #((record-marker) + #((record-marker) #f (id args body)) + #(154 + (r$414) + ((parse-error + k$410 + "missing escaped character within string" + r$413 + r$414)))) + ptbl$173)))) + ptbl$173) + (#((record-marker) + #((record-marker) #f (id args body)) + #(167 + (k$423) + ((if (equal? #\" c$176) + (k$423 (equal? #\" c$176)) + (k$423 (equal? #\\ c$176)))))) + #((record-marker) + #((record-marker) #f (id args body)) + #(166 + (r$415) + ((if r$415 + (k$410 (cons c$176 buf$174)) + (if (equal? #\n c$176) + (k$410 (cons #\newline buf$174)) + (list #((record-marker) + #((record-marker) #f (id args body)) + #(163 + (r$421) + ((#((record-marker) + #((record-marker) #f (id args body)) + #(162 + (r$420) + ((#((record-marker) + #((record-marker) + #f + (id args body)) + #(161 + (r$417) + ((in-port:get-lnum + #((record-marker) + #((record-marker) + #f + (id args body)) + #(160 + (r$418) + ((in-port:get-cnum + #((record-marker) + #((record-marker) + #f + (id args body)) + #(159 + (r$419) + ((parse-error + k$410 + r$417 + r$418 + r$419)))) + ptbl$173)))) + ptbl$173)))) + (string-append + "invalid escape character [" + r$420 + "] in string"))))) + (list->string r$421))))) + c$176))))))))))) + (read-char fp$175)))))) + (define sign? + #((record-marker) + #((record-marker) #f (id args body)) + #(153 + (k$406 c$171) + ((if (equal? c$171 #\+) + (k$406 (equal? c$171 #\+)) + (k$406 (equal? c$171 #\-))))))) + (define token-numeric? + #((record-marker) + #((record-marker) #f (id args body)) + #(150 + (k$386 a$167) + ((char-numeric? + #((record-marker) + #((record-marker) #f (id args body)) + #(147 + (tmp$168) + ((if tmp$168 + (k$386 tmp$168) + (#((record-marker) + #((record-marker) #f (id args body)) + #(146 + (k$397) + ((#((record-marker) + #((record-marker) #f (id args body)) + #(144 + (r$398) + ((if r$398 + (if (eq? #\. (car a$167)) + (char-numeric? k$397 (cadr a$167)) + (k$397 #f)) + (k$397 #f))))) + (> (length a$167) 1))))) + #((record-marker) + #((record-marker) #f (id args body)) + #(139 + (tmp$169) + ((if tmp$169 + (k$386 tmp$169) + (#((record-marker) + #((record-marker) #f (id args body)) + #(137 + (r$389) + ((if r$389 + (char-numeric? + #((record-marker) + #((record-marker) #f (id args body)) + #(134 + (tmp$170) + ((#((record-marker) + #((record-marker) #f (id args body)) + #(133 + (k$393) + ((if tmp$170 + (k$393 tmp$170) + (k$393 (eq? #\. + (cadr a$167))))))) + #((record-marker) + #((record-marker) #f (id args body)) + #(131 + (r$390) + ((if r$390 + (sign? k$386 (car a$167)) + (k$386 #f))))))))) + (cadr a$167)) + (k$386 #f))))) + (> (length a$167) 1))))))))))) + (car a$167)))))) + (define parse-atom + #((record-marker) + #((record-marker) #f (id args body)) + #(129 + (k$380 a$166) + ((token-numeric? + #((record-marker) + #((record-marker) #f (id args body)) + #(128 + (r$381) + ((if r$381 + (#((record-marker) + #((record-marker) #f (id args body)) + #(124 (r$382) ((k$380 (string->number r$382))))) + (list->string a$166)) + (#((record-marker) + #((record-marker) #f (id args body)) + #(126 (r$383) ((k$380 (string->symbol r$383))))) + (list->string a$166)))))) + a$166))))) + (define get-next-char + #((record-marker) + #((record-marker) #f (id args body)) + #(123 + (k$376 fp$165 ptbl$164) + ((in-port:get-buf + #((record-marker) + #((record-marker) #f (id args body)) + #(122 + (r$377) + ((if r$377 + (in-port:read-buf! k$376 ptbl$164) + (k$376 (read-char fp$165)))))) + ptbl$164))))) + (define read-block-comment + #((record-marker) + #((record-marker) #f (id args body)) + #(121 + (k$371 fp$162 ptbl$161) + ((get-next-char + #((record-marker) + #((record-marker) #f (id args body)) + #(119 + (c$163) + ((if (eq? #\| c$163) + (read-block-terminator k$371 fp$162 ptbl$161) + (read-block-comment k$371 fp$162 ptbl$161))))) + fp$162 + ptbl$161))))) + (define read-block-terminator + #((record-marker) + #((record-marker) #f (id args body)) + #(115 + (k$365 fp$159 ptbl$158) + ((get-next-char + #((record-marker) + #((record-marker) #f (id args body)) + #(113 + (c$160) + ((if (eq? #\# c$160) + (k$365 #t) + (if (eq? #\| c$160) + (read-block-terminator k$365 fp$159 ptbl$158) + (read-block-comment k$365 fp$159 ptbl$158)))))) + fp$159 + ptbl$158))))) + (define parse-literal-identifier + #((record-marker) + #((record-marker) #f (id args body)) + #(107 + (k$358 fp$156 + toks$155 + all?$154 + parens$153 + ptbl$152) + ((#((record-marker) + #((record-marker) #f (id args body)) + #(106 + (r$362) + ((parse-li-rec + #((record-marker) + #((record-marker) #f (id args body)) + #(104 + (sym$157) + ((if all?$154 + (#((record-marker) + #((record-marker) #f (id args body)) + #(103 + (r$360) + ((parse k$358 + fp$156 + r$360 + (cons sym$157 toks$155) + all?$154 + #f + parens$153 + ptbl$152)))) + '()) + (k$358 sym$157))))) + fp$156 + r$362 + ptbl$152)))) + '()))))) + (define parse-li-rec + #((record-marker) + #((record-marker) #f (id args body)) + #(101 + (k$343 fp$147 tok$146 ptbl$145) + ((get-next-char + #((record-marker) + #((record-marker) #f (id args body)) + #(100 + (r$344) + ((#((record-marker) + #((record-marker) #f (id args body)) + #(97 + (r$345) + ((#((record-marker) + #((record-marker) #f (id args body)) + #(96 + (c$150 next$149) + ((if (eq? #\| c$150) + (#((record-marker) + #((record-marker) #f (id args body)) + #(88 + (k$348) + ((if (null? tok$146) + (k$348 "||") + (reverse + #((record-marker) + #((record-marker) #f (id args body)) + #(86 + (r$350) + ((k$348 (list->string r$350))))) + tok$146))))) + #((record-marker) + #((record-marker) #f (id args body)) + #(84 + (str$151) + ((k$343 (string->symbol str$151)))))) + (if (eof-object? c$150) + (in-port:get-lnum + #((record-marker) + #((record-marker) #f (id args body)) + #(91 + (r$352) + ((in-port:get-cnum + #((record-marker) + #((record-marker) #f (id args body)) + #(90 + (r$353) + ((parse-error + k$343 + "EOF encountered parsing literal identifier" + r$352 + r$353)))) + ptbl$145)))) + ptbl$145) + (next$149 k$343 c$150)))))) + r$344 + r$345)))) + #((record-marker) + #((record-marker) #f (id args body)) + #(99 + (k$354 c$148) + ((parse-li-rec + k$354 + fp$147 + (cons c$148 tok$146) + ptbl$145)))))))) + fp$147 + ptbl$145))))) + (define parse-number + #((record-marker) + #((record-marker) #f (id args body)) + #(83 + (k$325 fp$141 + toks$140 + all?$139 + parens$138 + ptbl$137 + base$136 + tok->num$135) + ((#((record-marker) + #((record-marker) #f (id args body)) + #(82 + (r$340) + ((parse-number-rec + #((record-marker) + #((record-marker) #f (id args body)) + #(80 + (num$142) + ((#((record-marker) + #((record-marker) #f (id args body)) + #(79 + (k$333) + ((if (null? num$142) + (k$333 #f) + (token-numeric? + #((record-marker) + #((record-marker) #f (id args body)) + #(76 + (tmp$144) + ((if tmp$144 + (k$333 tmp$144) + (#((record-marker) + #((record-marker) #f (id args body)) + #(74 + (r$336) + ((if r$336 + (#((record-marker) + #((record-marker) + #f + (id args body)) + #(73 + (r$337) + ((if r$337 + (hex-digit? + k$333 + (car num$142)) + (k$333 #f))))) + (= base$136 16)) + (k$333 #f))))) + (> (length num$142) 0)))))) + num$142))))) + #((record-marker) + #((record-marker) #f (id args body)) + #(71 + (r$327) + ((if r$327 + (tok->num$135 + #((record-marker) + #((record-marker) #f (id args body)) + #(65 + (result$143) + ((if all?$139 + (#((record-marker) + #((record-marker) #f (id args body)) + #(64 + (r$329) + ((parse k$325 + fp$141 + r$329 + (cons result$143 toks$140) + all?$139 + #f + parens$138 + ptbl$137)))) + '()) + (k$325 result$143))))) + num$142) + (in-port:get-lnum + #((record-marker) + #((record-marker) #f (id args body)) + #(69 + (r$331) + ((in-port:get-cnum + #((record-marker) + #((record-marker) #f (id args body)) + #(68 + (r$332) + ((parse-error + k$325 + "Illegal number syntax" + r$331 + r$332)))) + ptbl$137)))) + ptbl$137))))))))) + base$136 + fp$141 + r$340 + ptbl$137)))) + '()))))) + (define parse-number-rec + #((record-marker) + #((record-marker) #f (id args body)) + #(62 + (k$301 base$130 fp$129 tok$128 ptbl$127) + ((get-next-char + #((record-marker) + #((record-marker) #f (id args body)) + #(61 + (r$302) + ((#((record-marker) + #((record-marker) #f (id args body)) + #(58 + (r$303) + ((#((record-marker) + #((record-marker) #f (id args body)) + #(57 + (c$133 next$132) + ((sign? #((record-marker) + #((record-marker) #f (id args body)) + #(56 + (r$304) + ((if r$304 + (next$132 k$301 c$133) + (if (eq? #\. c$133) + (next$132 k$301 c$133) + (char-numeric? + #((record-marker) + #((record-marker) + #f + (id args body)) + #(54 + (r$306) + ((if r$306 + (#((record-marker) + #((record-marker) + #f + (id args body)) + #(46 + (k$308) + ((#((record-marker) + #((record-marker) + #f + (id args body)) + #(45 + (k$315) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(44 + (r$316) + ((if r$316 + (char>? + k$315 + c$133 + #\1) + (k$315 #f))))) + (= base$130 + 2))))) + #((record-marker) + #((record-marker) + #f + (id args body)) + #(42 + (tmp$134) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(41 + (k$313) + ((if tmp$134 + (k$313 tmp$134) + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(40 + (r$314) + ((if r$314 + (char>? + k$313 + c$133 + #\7) + (k$313 #f))))) + (= base$130 + 8)))))) + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(39 + (r$309) + ((if r$309 + (in-port:get-lnum + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(38 + (r$310) + ((in-port:get-cnum + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(37 + (r$311) + ((parse-error + k$308 + "Illegal digit" + r$310 + r$311)))) + ptbl$127)))) + ptbl$127) + (k$308 #f))))))))))))) + #((record-marker) + #((record-marker) + #f + (id args body)) + #(36 + (r$307) + ((next$132 + k$301 + c$133))))) + (#((record-marker) + #((record-marker) + #f + (id args body)) + #(53 + (k$319) + ((#((record-marker) + #((record-marker) + #f + (id args body)) + #(52 + (r$320) + ((if r$320 + (hex-digit? + k$319 + c$133) + (k$319 #f))))) + (= base$130 16))))) + #((record-marker) + #((record-marker) + #f + (id args body)) + #(51 + (r$317) + ((if r$317 + (next$132 + k$301 + c$133) + (in-port:set-buf! + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(49 + (r$318) + ((reverse + k$301 + tok$128)))) + ptbl$127 + c$133)))))))))) + c$133)))))) + c$133)))) + r$302 + r$303)))) + #((record-marker) + #((record-marker) #f (id args body)) + #(60 + (k$321 c$131) + ((parse-number-rec + k$321 + base$130 + fp$129 + (cons c$131 tok$128) + ptbl$127)))))))) + fp$129 + ptbl$127))))) + (define hex-digit? + #((record-marker) + #((record-marker) #f (id args body)) + #(33 + (k$294 c$125) + ((#((record-marker) + #((record-marker) #f (id args body)) + #(32 + (k$297) + ((char>=? + #((record-marker) + #((record-marker) #f (id args body)) + #(31 + (r$298) + ((if r$298 (char<=? k$297 c$125 #\f) (k$297 #f))))) + c$125 + #\a)))) + #((record-marker) + #((record-marker) #f (id args body)) + #(29 + (tmp$126) + ((if tmp$126 + (k$294 tmp$126) + (char>=? + #((record-marker) + #((record-marker) #f (id args body)) + #(28 + (r$296) + ((if r$296 (char<=? k$294 c$125 #\F) (k$294 #f))))) + c$125 + #\A)))))))))) + (define cyc-read + #((record-marker) + #((record-marker) #f (id args body)) + #(27 + (k$285 . args$123) + ((#((record-marker) + #((record-marker) #f (id args body)) + #(26 + (k$290) + ((if (null? args$123) + (current-input-port k$290) + (k$290 (car args$123)))))) + #((record-marker) + #((record-marker) #f (id args body)) + #(23 + (fp$124) + ((#((record-marker) + #((record-marker) #f (id args body)) + #(22 + (r$287) + ((#((record-marker) + #((record-marker) #f (id args body)) + #(21 + (r$288) + ((reg-port + #((record-marker) + #((record-marker) #f (id args body)) + #(20 + (r$289) + ((parse k$285 + fp$124 + r$287 + r$288 + #f + #f + 0 + r$289)))) + fp$124)))) + '())))) + '()))))))))) + (define read-all + #((record-marker) + #((record-marker) #f (id args body)) + #(19 + (k$272 . args$116) + ((#((record-marker) + #((record-marker) #f (id args body)) + #(17 + (k$281) + ((if (null? args$116) + (current-input-port k$281) + (k$281 (car args$116)))))) + #((record-marker) + #((record-marker) #f (id args body)) + #(14 + (fp$118) + ((#((record-marker) + #((record-marker) #f (id args body)) + #(13 + (loop$119) + ((#((record-marker) + #((record-marker) #f (id args body)) + #(7 + (r$276) + ((#((record-marker) + #((record-marker) #f (id args body)) + #(6 + (r$274) + ((#((record-marker) + #((record-marker) #f (id args body)) + #(5 (r$275) ((loop$119 k$272 fp$118 r$275)))) + '())))) + (set! loop$119 r$276))))) + #((record-marker) + #((record-marker) #f (id args body)) + #(12 + (k$277 fp$121 result$120) + ((cyc-read + #((record-marker) + #((record-marker) #f (id args body)) + #(10 + (obj$122) + ((if (eof-object? obj$122) + (reverse k$277 result$120) + (loop$119 + k$277 + fp$121 + (cons obj$122 result$120)))))) + fp$121)))))))) + #f))))))))) + (define lib-init:schemeread + #((record-marker) + #((record-marker) #f (id args body)) + #(4 + (k$266) + ((#((record-marker) + #((record-marker) #f (id args body)) + #(2 + (r$268) + ((#((record-marker) + #((record-marker) #f (id args body)) + #(1 + (r$269) + ((k$266 (set! *in-port-table* r$269))))) + '())))) + (set! read cyc-read))))))) + diff --git a/debug/read/read-old-cps-opt.c b/debug/read/read-old-cps-opt.c new file mode 100644 index 00000000..5ea3cc6a --- /dev/null +++ b/debug/read/read-old-cps-opt.c @@ -0,0 +1,5075 @@ +((define read #f) + (define *in-port-table* #f) + (define reg-port + #((record-marker) + #((record-marker) #f (id args body)) + #(630 + (k$812 fp$262) + ((#((record-marker) + #((record-marker) #f (id args body)) + #(628 + (r$263) + ((if r$263 + (#((record-marker) + #((record-marker) #f (id args body)) + #(622 () ((k$812 r$263))))) + (#((record-marker) + #((record-marker) #f (id args body)) + #(627 + () + ((list #((record-marker) + #((record-marker) #f (id args body)) + #(626 + (r$817) + ((#((record-marker) + #((record-marker) #f (id args body)) + #(625 + (r$814) + ((#((record-marker) + #((record-marker) #f (id args body)) + #(624 + (r$816) + ((#((record-marker) + #((record-marker) + #f + (id args body)) + #(623 (r$815) ((k$812 r$263)))) + (set! *in-port-table* r$816))))) + (cons r$263 *in-port-table*))))) + (set! r$263 r$817))))) + fp$262 + #f + 1 + 0))))))))) + (assoc fp$262 *in-port-table*)))))) + (define in-port:read-buf! + #((record-marker) + #((record-marker) #f (id args body)) + #(621 + (k$807 ptbl$260) + ((#((record-marker) + #((record-marker) #f (id args body)) + #(619 + (result$261) + ((in-port:set-buf! + #((record-marker) + #((record-marker) #f (id args body)) + #(618 (r$809) ((k$807 result$261)))) + ptbl$260 + #f)))) + (cadr ptbl$260)))))) + (define in-port:get-buf + #((record-marker) + #((record-marker) #f (id args body)) + #(617 (k$804 ptbl$259) ((k$804 (cadr ptbl$259)))))) + (define in-port:set-buf! + #((record-marker) + #((record-marker) #f (id args body)) + #(616 + (k$800 ptbl$258 buf$257) + ((#((record-marker) + #((record-marker) #f (id args body)) + #(615 (r$801) ((k$800 (set-car! r$801 buf$257))))) + (cdr ptbl$258)))))) + (define in-port:get-lnum + #((record-marker) + #((record-marker) #f (id args body)) + #(614 + (k$797 ptbl$256) + ((k$797 (caddr ptbl$256)))))) + (define in-port:set-lnum! + #((record-marker) + #((record-marker) #f (id args body)) + #(613 + (k$793 ptbl$255 lnum$254) + ((#((record-marker) + #((record-marker) #f (id args body)) + #(612 + (r$794) + ((k$793 (set-car! r$794 lnum$254))))) + (cddr ptbl$255)))))) + (define in-port:get-cnum + #((record-marker) + #((record-marker) #f (id args body)) + #(611 + (k$790 ptbl$253) + ((k$790 (cadddr ptbl$253)))))) + (define in-port:set-cnum! + #((record-marker) + #((record-marker) #f (id args body)) + #(610 + (k$786 ptbl$252 cnum$251) + ((#((record-marker) + #((record-marker) #f (id args body)) + #(609 + (r$787) + ((k$786 (set-car! r$787 cnum$251))))) + (cdddr ptbl$252)))))) + (define add-tok + #((record-marker) + #((record-marker) #f (id args body)) + #(608 + (k$783 tok$250 toks$249) + ((k$783 (cons tok$250 toks$249)))))) + (define get-toks + #((record-marker) + #((record-marker) #f (id args body)) + #(607 + (k$778 tok$248 toks$247) + ((#((record-marker) + #((record-marker) #f (id args body)) + #(606 + (r$779) + ((if r$779 + (k$778 toks$247) + (->tok #((record-marker) + #((record-marker) #f (id args body)) + #(605 (r$780) ((add-tok k$778 r$780 toks$247)))) + tok$248))))) + (null? tok$248)))))) + (define ->tok + #((record-marker) + #((record-marker) #f (id args body)) + #(604 + (k$774 lst$246) + ((reverse + #((record-marker) + #((record-marker) #f (id args body)) + #(603 (r$775) ((parse-atom k$774 r$775)))) + lst$246))))) + (define dotted? + #((record-marker) + #((record-marker) #f (id args body)) + #(602 + (k$766 lst$245) + ((#((record-marker) + #((record-marker) #f (id args body)) + #(601 + (r$771) + ((#((record-marker) + #((record-marker) #f (id args body)) + #(600 + (r$767) + ((if r$767 + (reverse + #((record-marker) + #((record-marker) #f (id args body)) + #(599 + (r$770) + ((#((record-marker) + #((record-marker) #f (id args body)) + #(598 + (r$768) + ((#((record-marker) + #((record-marker) #f (id args body)) + #(597 + (r$769) + ((k$766 (equal? r$768 r$769))))) + (string->symbol "."))))) + (cadr r$770))))) + lst$245) + (k$766 #f))))) + (> r$771 2))))) + (length lst$245)))))) + (define ->dotted-list + #((record-marker) + #((record-marker) #f (id args body)) + #(596 + (k$756 lst$244) + ((#((record-marker) + #((record-marker) #f (id args body)) + #(595 + (r$757) + ((if r$757 + (#((record-marker) + #((record-marker) #f (id args body)) + #(586 () ((k$756 '()))))) + (#((record-marker) + #((record-marker) #f (id args body)) + #(594 + (r$762) + ((#((record-marker) + #((record-marker) #f (id args body)) + #(593 + (r$763) + ((#((record-marker) + #((record-marker) #f (id args body)) + #(592 + (r$758) + ((if r$758 + (#((record-marker) + #((record-marker) #f (id args body)) + #(587 () ((k$756 (cadr lst$244)))))) + (#((record-marker) + #((record-marker) #f (id args body)) + #(591 + () + ((#((record-marker) + #((record-marker) + #f + (id args body)) + #(590 + (r$759) + ((#((record-marker) + #((record-marker) + #f + (id args body)) + #(589 + (r$761) + ((->dotted-list + #((record-marker) + #((record-marker) + #f + (id args body)) + #(588 + (r$760) + ((k$756 (cons r$759 + r$760))))) + r$761)))) + (cdr lst$244))))) + (car lst$244)))))))))) + (equal? r$762 r$763))))) + (string->symbol "."))))) + (car lst$244)))))) + (null? lst$244)))))) + (define parse-error + #((record-marker) + #((record-marker) #f (id args body)) + #(585 + (k$750 msg$243 lnum$242 cnum$241) + ((#((record-marker) + #((record-marker) #f (id args body)) + #(584 + (r$752) + ((#((record-marker) + #((record-marker) #f (id args body)) + #(583 + (r$753) + ((#((record-marker) + #((record-marker) #f (id args body)) + #(582 (r$751) ((error k$750 r$751)))) + (string-append + "Error (line " + r$752 + ", char " + r$753 + "): " + msg$243))))) + (number->string cnum$241))))) + (number->string lnum$242)))))) + (define parse/tok + #((record-marker) + #((record-marker) #f (id args body)) + #(581 + (k$739 fp$240 + tok$239 + toks$238 + all?$237 + comment?$236 + parens$235 + ptbl$234 + curr-char$233) + ((#((record-marker) + #((record-marker) #f (id args body)) + #(580 + (r$740) + ((if r$740 + (#((record-marker) + #((record-marker) #f (id args body)) + #(571 + () + ((#((record-marker) + #((record-marker) #f (id args body)) + #(570 + (r$741) + ((parse k$739 + fp$240 + r$741 + toks$238 + all?$237 + comment?$236 + parens$235 + ptbl$234)))) + '()))))) + (if all?$237 + (#((record-marker) + #((record-marker) #f (id args body)) + #(575 + () + ((#((record-marker) + #((record-marker) #f (id args body)) + #(574 + (r$742) + ((->tok #((record-marker) + #((record-marker) #f (id args body)) + #(573 + (r$744) + ((add-tok + #((record-marker) + #((record-marker) + #f + (id args body)) + #(572 + (r$743) + ((parse k$739 + fp$240 + r$742 + r$743 + all?$237 + comment?$236 + parens$235 + ptbl$234)))) + r$744 + toks$238)))) + tok$239)))) + '()))))) + (#((record-marker) + #((record-marker) #f (id args body)) + #(579 + () + ((in-port:set-buf! + #((record-marker) + #((record-marker) #f (id args body)) + #(578 + (r$745) + ((->tok #((record-marker) + #((record-marker) #f (id args body)) + #(577 + (r$747) + ((add-tok + #((record-marker) + #((record-marker) + #f + (id args body)) + #(576 + (r$746) + ((k$739 (car r$746))))) + r$747 + toks$238)))) + tok$239)))) + ptbl$234 + curr-char$233)))))))))) + (null? tok$239)))))) + (define parse + #((record-marker) + #((record-marker) #f (id args body)) + #(569 + (k$497 fp$202 + tok$201 + toks$200 + all?$199 + comment?$198 + parens$197 + ptbl$196) + ((#((record-marker) + #((record-marker) #f (id args body)) + #(568 + () + ((in-port:get-cnum + #((record-marker) + #((record-marker) #f (id args body)) + #(567 + (r$736) + ((#((record-marker) + #((record-marker) #f (id args body)) + #(566 + (r$735) + ((in-port:set-cnum! + #((record-marker) + #((record-marker) #f (id args body)) + #(565 + (r$498) + ((#((record-marker) + #((record-marker) #f (id args body)) + #(564 + (k$733) + ((in-port:get-buf + #((record-marker) + #((record-marker) #f (id args body)) + #(563 + (r$734) + ((if r$734 + (in-port:read-buf! + k$733 + ptbl$196) + (k$733 (read-char fp$202)))))) + ptbl$196)))) + #((record-marker) + #((record-marker) #f (id args body)) + #(561 + (c$204) + ((#((record-marker) + #((record-marker) #f (id args body)) + #(560 + (r$500) + ((if r$500 + (#((record-marker) + #((record-marker) + #f + (id args body)) + #(277 + () + ((#((record-marker) + #((record-marker) + #f + (id args body)) + #(276 + (k$506) + ((#((record-marker) + #((record-marker) + #f + (id args body)) + #(275 + (r$507) + ((if r$507 + (in-port:get-lnum + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(274 + (r$508) + ((in-port:get-cnum + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(273 + (r$509) + ((parse-error + k$506 + "missing closing parenthesis" + r$508 + r$509)))) + ptbl$196)))) + ptbl$196) + (k$506 #f))))) + (> parens$197 + 0))))) + #((record-marker) + #((record-marker) + #f + (id args body)) + #(272 + (r$501) + ((if all?$199 + (get-toks + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(267 + (r$502) + ((reverse + k$497 + r$502)))) + tok$201 + toks$200) + (get-toks + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(270 + (last$232) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(269 + (r$505) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(268 + (r$504) + ((if r$504 + (k$497 (car last$232)) + (k$497 c$204))))) + (> r$505 + 0))))) + (length + last$232))))) + tok$201 + toks$200)))))))))) + (if comment?$198 + (#((record-marker) + #((record-marker) + #f + (id args body)) + #(286 + () + ((#((record-marker) + #((record-marker) + #f + (id args body)) + #(285 + (r$510) + ((if r$510 + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(283 + () + ((in-port:get-lnum + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(282 + (r$515) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(281 + (r$514) + ((in-port:set-lnum! + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(280 + (r$511) + ((in-port:set-cnum! + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(279 + (r$512) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(278 + (r$513) + ((parse k$497 + fp$202 + r$513 + toks$200 + all?$199 + #f + parens$197 + ptbl$196)))) + '())))) + ptbl$196 + 0)))) + ptbl$196 + r$514)))) + (+ 1 + r$515))))) + ptbl$196))))) + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(284 + (r$516) + ((parse k$497 + fp$202 + r$516 + toks$200 + all?$199 + #t + parens$197 + ptbl$196)))) + '()))))) + (eq? c$204 + #\newline)))))) + (char-whitespace? + #((record-marker) + #((record-marker) + #f + (id args body)) + #(559 + (r$517) + ((if r$517 + (#((record-marker) + #((record-marker) + #f + (id args body)) + #(295 + () + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(294 + (k$522) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(293 + (r$523) + ((if r$523 + (in-port:get-lnum + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(292 + (r$525) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(291 + (r$524) + ((in-port:set-lnum! + k$522 + ptbl$196 + r$524)))) + (+ 1 + r$525))))) + ptbl$196) + (k$522 #f))))) + (equal? + c$204 + #\newline))))) + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(290 + (r$518) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(289 + (k$520) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(288 + (r$521) + ((if r$521 + (in-port:set-cnum! + k$520 + ptbl$196 + 0) + (k$520 #f))))) + (equal? + c$204 + #\newline))))) + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(287 + (r$519) + ((parse/tok + k$497 + fp$202 + tok$201 + toks$200 + all?$199 + #f + parens$197 + ptbl$196 + c$204))))))))))))) + (#((record-marker) + #((record-marker) + #f + (id args body)) + #(558 + (r$526) + ((if r$526 + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(296 + () + ((parse/tok + k$497 + fp$202 + tok$201 + toks$200 + all?$199 + #t + parens$197 + ptbl$196 + c$204))))) + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(557 + (r$527) + ((if r$527 + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(316 + () + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(315 + (k$541) + ((if all?$199 + (k$541 #f) + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(314 + (r$542) + ((not k$541 + r$542)))) + (null? tok$201)))))) + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(313 + (r$528) + ((if r$528 + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(300 + () + ((in-port:set-buf! + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(299 + (r$529) + ((->tok #((record-marker) + #((record-marker) + #f + (id args + body)) + #(298 + (r$531) + ((add-tok + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(297 + (r$530) + ((k$497 (car r$530))))) + r$531 + toks$200)))) + tok$201)))) + ptbl$196 + c$204))))) + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(312 + () + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(311 + (r$539) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(310 + (r$540) + ((parse #((record-marker) + #((record-marker) + #f + (id args + body)) + #(308 + (sub$230) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(307 + (new-toks$231) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(306 + (r$538) + ((list #((record-marker) + #((record-marker) + #f + (id args + body)) + #(305 + (r$536) + ((get-toks + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(304 + (r$537) + ((add-tok + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(303 + (r$535) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(302 + (r$533) + ((if all?$199 + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(301 + (r$534) + ((parse k$497 + fp$202 + r$534 + new-toks$231 + all?$199 + #f + parens$197 + ptbl$196)))) + '()) + (k$497 (car new-toks$231)))))) + (set! new-toks$231 + r$535))))) + r$536 + r$537)))) + tok$201 + toks$200)))) + r$538 + sub$230)))) + 'quote)))) + #f)))) + fp$202 + r$539 + r$540 + #f + #f + 0 + ptbl$196)))) + '())))) + '())))))))))))))) + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(556 + (r$543) + ((if r$543 + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(336 + () + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(335 + (k$557) + ((if all?$199 + (k$557 #f) + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(334 + (r$558) + ((not k$557 + r$558)))) + (null? tok$201)))))) + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(333 + (r$544) + ((if r$544 + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(320 + () + ((in-port:set-buf! + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(319 + (r$545) + ((->tok #((record-marker) + #((record-marker) + #f + (id args + body)) + #(318 + (r$547) + ((add-tok + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(317 + (r$546) + ((k$497 (car r$546))))) + r$547 + toks$200)))) + tok$201)))) + ptbl$196 + c$204))))) + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(332 + () + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(331 + (r$555) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(330 + (r$556) + ((parse #((record-marker) + #((record-marker) + #f + (id args + body)) + #(328 + (sub$228) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(327 + (new-toks$229) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(326 + (r$554) + ((list #((record-marker) + #((record-marker) + #f + (id args + body)) + #(325 + (r$552) + ((get-toks + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(324 + (r$553) + ((add-tok + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(323 + (r$551) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(322 + (r$549) + ((if all?$199 + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(321 + (r$550) + ((parse k$497 + fp$202 + r$550 + new-toks$229 + all?$199 + #f + parens$197 + ptbl$196)))) + '()) + (k$497 (car new-toks$229)))))) + (set! new-toks$229 + r$551))))) + r$552 + r$553)))) + tok$201 + toks$200)))) + r$554 + sub$228)))) + 'quasiquote)))) + #f)))) + fp$202 + r$555 + r$556 + #f + #f + 0 + ptbl$196)))) + '())))) + '())))))))))))))) + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(555 + (r$559) + ((if r$559 + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(372 + () + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(371 + (k$587) + ((if all?$199 + (k$587 #f) + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(370 + (r$588) + ((not k$587 + r$588)))) + (null? tok$201)))))) + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(369 + (r$560) + ((if r$560 + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(340 + () + ((in-port:set-buf! + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(339 + (r$561) + ((->tok #((record-marker) + #((record-marker) + #f + (id args + body)) + #(338 + (r$563) + ((add-tok + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(337 + (r$562) + ((k$497 (car r$562))))) + r$563 + toks$200)))) + tok$201)))) + ptbl$196 + c$204))))) + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(368 + () + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(367 + (sub$227 + next-c$226 + unquote-sym$225 + new-toks$224) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(366 + (r$564) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(365 + (r$586) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(364 + (r$565) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(363 + (k$584) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(362 + (r$585) + ((if r$585 + (k$584 'unquote-splicing) + (k$584 'unquote))))) + (equal? + next-c$226 + #\@))))) + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(361 + (r$583) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(360 + (r$566) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(359 + (r$567) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(358 + (k$578) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(357 + (r$579) + ((if r$579 + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(353 + () + ((in-port:get-lnum + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(352 + (r$580) + ((in-port:get-cnum + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(351 + (r$581) + ((parse-error + k$578 + "unexpected end of file" + r$580 + r$581)))) + ptbl$196)))) + ptbl$196))))) + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(356 + (r$582) + ((if r$582 + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(354 + () + ((k$578 #f))))) + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(355 + () + ((in-port:set-buf! + k$578 + ptbl$196 + next-c$226))))))))) + (equal? + next-c$226 + #\@)))))) + (eof-object? + next-c$226))))) + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(350 + (r$568) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(349 + (r$576) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(348 + (r$577) + ((parse #((record-marker) + #((record-marker) + #f + (id args + body)) + #(347 + (r$575) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(346 + (r$569) + ((list #((record-marker) + #((record-marker) + #f + (id args + body)) + #(345 + (r$573) + ((get-toks + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(344 + (r$574) + ((add-tok + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(343 + (r$572) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(342 + (r$570) + ((if all?$199 + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(341 + (r$571) + ((parse k$497 + fp$202 + r$571 + new-toks$224 + all?$199 + #f + parens$197 + ptbl$196)))) + '()) + (k$497 (car new-toks$224)))))) + (set! new-toks$224 + r$572))))) + r$573 + r$574)))) + tok$201 + toks$200)))) + unquote-sym$225 + sub$227)))) + (set! sub$227 + r$575))))) + fp$202 + r$576 + r$577 + #f + #f + 0 + ptbl$196)))) + '())))) + '())))))))) + (set! new-toks$224 + #f))))) + (set! unquote-sym$225 + r$583))))))))) + (set! next-c$226 + r$586))))) + (read-char + fp$202))))) + (set! sub$227 + #f))))) + #f + #f + #f + #f)))))))))))))) + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(554 + (r$589) + ((if r$589 + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(396 + () + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(395 + (k$607) + ((if all?$199 + (k$607 #f) + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(394 + (r$608) + ((not k$607 + r$608)))) + (null? tok$201)))))) + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(393 + (r$590) + ((if r$590 + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(376 + () + ((in-port:set-buf! + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(375 + (r$591) + ((->tok #((record-marker) + #((record-marker) + #f + (id args + body)) + #(374 + (r$593) + ((add-tok + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(373 + (r$592) + ((k$497 (car r$592))))) + r$593 + toks$200)))) + tok$201)))) + ptbl$196 + c$204))))) + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(392 + () + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(391 + (r$604) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(390 + (r$605) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(389 + (r$606) + ((parse #((record-marker) + #((record-marker) + #f + (id args + body)) + #(388 + (r$594) + ((get-toks + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(387 + (r$595) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(386 + (sub$222 + toks*$221) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(385 + (new-toks$223) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(384 + (k$600) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(383 + (k$602) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(382 + (r$603) + ((if r$603 + (dotted? + k$602 + sub$222) + (k$602 #f))))) + (pair? sub$222))))) + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(381 + (r$601) + ((if r$601 + (->dotted-list + k$600 + sub$222) + (k$600 sub$222))))))))) + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(380 + (r$599) + ((add-tok + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(379 + (r$598) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(378 + (r$596) + ((if all?$199 + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(377 + (r$597) + ((parse k$497 + fp$202 + r$597 + new-toks$223 + all?$199 + #f + parens$197 + ptbl$196)))) + '()) + (k$497 (car new-toks$223)))))) + (set! new-toks$223 + r$598))))) + r$599 + toks*$221)))))))) + #f)))) + r$594 + r$595)))) + tok$201 + toks$200)))) + fp$202 + r$604 + r$605 + #t + #f + r$606 + ptbl$196)))) + (+ parens$197 + 1))))) + '())))) + '())))))))))))))) + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(553 + (r$609) + ((if r$609 + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(410 + () + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(409 + (k$618) + ((if all?$199 + (k$618 #f) + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(408 + (r$619) + ((not k$618 + r$619)))) + (null? tok$201)))))) + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(407 + (r$610) + ((if r$610 + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(400 + () + ((in-port:set-buf! + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(399 + (r$611) + ((->tok #((record-marker) + #((record-marker) + #f + (id args + body)) + #(398 + (r$613) + ((add-tok + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(397 + (r$612) + ((k$497 (car r$612))))) + r$613 + toks$200)))) + tok$201)))) + ptbl$196 + c$204))))) + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(406 + (r$614) + ((if r$614 + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(403 + () + ((in-port:get-lnum + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(402 + (r$615) + ((in-port:get-cnum + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(401 + (r$616) + ((parse-error + k$497 + "unexpected closing parenthesis" + r$615 + r$616)))) + ptbl$196)))) + ptbl$196))))) + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(405 + () + ((get-toks + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(404 + (r$617) + ((reverse + k$497 + r$617)))) + tok$201 + toks$200))))))))) + (= parens$197 + 0))))))))))) + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(552 + (r$620) + ((if r$620 + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(427 + () + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(426 + (k$631) + ((if all?$199 + (k$631 #f) + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(425 + (r$632) + ((not k$631 + r$632)))) + (null? tok$201)))))) + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(424 + (r$621) + ((if r$621 + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(414 + () + ((in-port:set-buf! + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(413 + (r$622) + ((->tok #((record-marker) + #((record-marker) + #f + (id args + body)) + #(412 + (r$624) + ((add-tok + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(411 + (r$623) + ((k$497 (car r$623))))) + r$624 + toks$200)))) + tok$201)))) + ptbl$196 + c$204))))) + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(423 + () + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(422 + (r$630) + ((read-str + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(421 + (r$625) + ((get-toks + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(420 + (r$626) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(419 + (str$219 + toks*$218) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(418 + (new-toks$220) + ((add-tok + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(417 + (r$629) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(416 + (r$627) + ((if all?$199 + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(415 + (r$628) + ((parse k$497 + fp$202 + r$628 + new-toks$220 + all?$199 + #f + parens$197 + ptbl$196)))) + '()) + (k$497 (car new-toks$220)))))) + (set! new-toks$220 + r$629))))) + str$219 + toks*$218)))) + #f)))) + r$625 + r$626)))) + tok$201 + toks$200)))) + fp$202 + r$630 + ptbl$196)))) + '())))))))))))))) + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(551 + (r$633) + ((if r$633 + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(546 + () + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(545 + (r$634) + ((if r$634 + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(542 + (next-c$205) + ((in-port:get-cnum + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(541 + (r$729) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(540 + (r$728) + ((in-port:set-cnum! + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(539 + (r$636) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(538 + (r$637) + ((if r$637 + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(430 + () + ((read-block-comment + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(429 + (r$638) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(428 + (r$639) + ((parse k$497 + fp$202 + r$639 + toks$200 + all?$199 + #f + parens$197 + ptbl$196)))) + '())))) + fp$202 + ptbl$196))))) + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(537 + (r$640) + ((if r$640 + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(433 + () + ((if all?$199 + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(432 + (r$641) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(431 + (r$642) + ((parse k$497 + fp$202 + r$641 + r$642 + all?$199 + #f + parens$197 + ptbl$196)))) + (cons #t + toks$200))))) + '()) + (k$497 #t)))))) + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(536 + (r$643) + ((if r$643 + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(436 + () + ((if all?$199 + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(435 + (r$644) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(434 + (r$645) + ((parse k$497 + fp$202 + r$644 + r$645 + all?$199 + #f + parens$197 + ptbl$196)))) + (cons #f + toks$200))))) + '()) + (k$497 #f)))))) + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(535 + (r$646) + ((if r$646 + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(440 + () + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(437 + (r$647) + ((parse-number + k$497 + fp$202 + toks$200 + all?$199 + parens$197 + ptbl$196 + 10 + r$647)))) + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(439 + (k$648 num$217) + ((parse-atom + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(438 + (r$649) + ((exact k$648 + r$649)))) + num$217))))))))) + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(534 + (r$650) + ((if r$650 + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(444 + () + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(441 + (r$651) + ((parse-number + k$497 + fp$202 + toks$200 + all?$199 + parens$197 + ptbl$196 + 10 + r$651)))) + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(443 + (k$652 num$216) + ((parse-atom + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(442 + (r$653) + ((inexact + k$652 + r$653)))) + num$216))))))))) + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(533 + (r$654) + ((if r$654 + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(448 + () + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(445 + (r$655) + ((parse-number + k$497 + fp$202 + toks$200 + all?$199 + parens$197 + ptbl$196 + 2 + r$655)))) + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(447 + (k$656 num$215) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(446 + (r$657) + ((k$656 (string->number + r$657 + 2))))) + (list->string + num$215)))))))))) + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(532 + (r$658) + ((if r$658 + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(452 + () + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(449 + (r$659) + ((parse-number + k$497 + fp$202 + toks$200 + all?$199 + parens$197 + ptbl$196 + 8 + r$659)))) + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(451 + (k$660 num$214) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(450 + (r$661) + ((k$660 (string->number + r$661 + 8))))) + (list->string + num$214)))))))))) + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(531 + (r$662) + ((if r$662 + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(456 + () + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(453 + (r$663) + ((parse-number + k$497 + fp$202 + toks$200 + all?$199 + parens$197 + ptbl$196 + 16 + r$663)))) + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(455 + (k$664 num$213) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(454 + (r$665) + ((k$664 (string->number + r$665 + 16))))) + (list->string + num$213)))))))))) + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(530 + (r$666) + ((if r$666 + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(488 + () + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(487 + (r$695) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(486 + (r$667) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(485 + (k$691) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(484 + (r$692) + ((if r$692 + (k$691 #f) + (in-port:get-lnum + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(483 + (r$693) + ((in-port:get-cnum + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(482 + (r$694) + ((parse-error + k$691 + "Unhandled input sequence" + r$693 + r$694)))) + ptbl$196)))) + ptbl$196))))) + (eq? #\8 + next-c$205))))) + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(481 + (r$668) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(480 + (r$690) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(479 + (r$669) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(478 + (k$686) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(477 + (r$687) + ((if r$687 + (k$686 #f) + (in-port:get-lnum + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(476 + (r$688) + ((in-port:get-cnum + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(475 + (r$689) + ((parse-error + k$686 + "Unhandled input sequence" + r$688 + r$689)))) + ptbl$196)))) + ptbl$196))))) + (eq? #\( + next-c$205))))) + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(474 + (r$670) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(473 + (r$683) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(472 + (r$684) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(471 + (r$685) + ((parse #((record-marker) + #((record-marker) + #f + (id args + body)) + #(470 + (r$671) + ((get-toks + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(469 + (r$672) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(468 + (sub$211 + toks*$210) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(467 + (new-toks$212) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(466 + (k$677) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(465 + (k$681) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(464 + (r$682) + ((if r$682 + (dotted? + k$681 + sub$211) + (k$681 #f))))) + (pair? sub$211))))) + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(463 + (r$678) + ((if r$678 + (in-port:get-lnum + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(462 + (r$679) + ((in-port:get-cnum + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(461 + (r$680) + ((parse-error + k$677 + "Invalid vector syntax" + r$679 + r$680)))) + ptbl$196)))) + ptbl$196) + (k$677 (apply bytevector + sub$211)))))))))) + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(460 + (r$676) + ((add-tok + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(459 + (r$675) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(458 + (r$673) + ((if all?$199 + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(457 + (r$674) + ((parse k$497 + fp$202 + r$674 + new-toks$212 + all?$199 + #f + parens$197 + ptbl$196)))) + '()) + (k$497 (car new-toks$212)))))) + (set! new-toks$212 + r$675))))) + r$676 + toks*$210)))))))) + #f)))) + r$671 + r$672)))) + tok$201 + toks$200)))) + fp$202 + r$683 + r$684 + #t + #f + r$685 + ptbl$196)))) + (+ parens$197 + 1))))) + '())))) + '())))))))) + (set! next-c$205 + r$690))))) + (read-char + fp$202))))))))) + (set! next-c$205 + r$695))))) + (read-char + fp$202)))))) + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(529 + (r$696) + ((if r$696 + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(506 + () + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(505 + (r$709) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(504 + (r$710) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(503 + (r$711) + ((parse #((record-marker) + #((record-marker) + #f + (id args + body)) + #(502 + (r$697) + ((get-toks + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(501 + (r$698) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(500 + (sub$208 + toks*$207) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(499 + (new-toks$209) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(498 + (k$703) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(497 + (k$707) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(496 + (r$708) + ((if r$708 + (dotted? + k$707 + sub$208) + (k$707 #f))))) + (pair? sub$208))))) + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(495 + (r$704) + ((if r$704 + (in-port:get-lnum + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(494 + (r$705) + ((in-port:get-cnum + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(493 + (r$706) + ((parse-error + k$703 + "Invalid vector syntax" + r$705 + r$706)))) + ptbl$196)))) + ptbl$196) + (k$703 (list->vector + sub$208)))))))))) + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(492 + (r$702) + ((add-tok + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(491 + (r$701) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(490 + (r$699) + ((if all?$199 + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(489 + (r$700) + ((parse k$497 + fp$202 + r$700 + new-toks$209 + all?$199 + #f + parens$197 + ptbl$196)))) + '()) + (k$497 (car new-toks$209)))))) + (set! new-toks$209 + r$701))))) + r$702 + toks*$207)))))))) + #f)))) + r$697 + r$698)))) + tok$201 + toks$200)))) + fp$202 + r$709 + r$710 + #t + #f + r$711 + ptbl$196)))) + (+ parens$197 + 1))))) + '())))) + '()))))) + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(528 + (r$712) + ((if r$712 + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(511 + () + ((read-pound + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(510 + (r$715) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(508 + (new-toks$206) + ((if all?$199 + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(507 + (r$714) + ((parse k$497 + fp$202 + r$714 + new-toks$206 + all?$199 + #f + parens$197 + ptbl$196)))) + '()) + (k$497 (car new-toks$206)))))) + (cons r$715 + toks$200))))) + fp$202 + ptbl$196))))) + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(527 + (r$716) + ((if r$716 + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(523 + () + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(522 + (r$724) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(521 + (r$725) + ((parse #((record-marker) + #((record-marker) + #f + (id args + body)) + #(520 + (r$717) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(519 + (k$722) + ((if all?$199 + (k$722 #f) + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(518 + (r$723) + ((not k$722 + r$723)))) + (null? tok$201)))))) + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(517 + (r$718) + ((if r$718 + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(515 + () + ((in-port:set-buf! + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(514 + (r$719) + ((->tok #((record-marker) + #((record-marker) + #f + (id args + body)) + #(513 + (r$721) + ((add-tok + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(512 + (r$720) + ((k$497 (car r$720))))) + r$721 + toks$200)))) + tok$201)))) + ptbl$196 + c$204))))) + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(516 + () + ((parse k$497 + fp$202 + tok$201 + toks$200 + all?$199 + #f + parens$197 + ptbl$196))))))))))))) + fp$202 + r$724 + r$725 + #f + #f + 0 + ptbl$196)))) + '())))) + '()))))) + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(526 + () + ((in-port:get-lnum + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(525 + (r$726) + ((in-port:get-cnum + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(524 + (r$727) + ((parse-error + k$497 + "Unhandled input sequence" + r$726 + r$727)))) + ptbl$196)))) + ptbl$196))))))))) + (eq? #\; + next-c$205)))))) + (eq? #\\ + next-c$205)))))) + (eq? #\( + next-c$205)))))) + (eq? #\u + next-c$205)))))) + (eq? #\x + next-c$205)))))) + (eq? #\o + next-c$205)))))) + (eq? #\b + next-c$205)))))) + (eq? #\i + next-c$205)))))) + (eq? #\e + next-c$205)))))) + (eq? #\f + next-c$205)))))) + (eq? #\t + next-c$205)))))) + (eq? #\| + next-c$205))))) + ptbl$196 + r$728)))) + (+ 1 + r$729))))) + ptbl$196)))) + (read-char + fp$202)) + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(544 + (r$730) + ((parse k$497 + fp$202 + r$730 + toks$200 + all?$199 + #f + parens$197 + ptbl$196)))) + (cons c$204 + tok$201)))))) + (null? tok$201)))))) + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(550 + (r$731) + ((if r$731 + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(547 + () + ((parse-literal-identifier + k$497 + fp$202 + toks$200 + all?$199 + parens$197 + ptbl$196))))) + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(549 + () + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(548 + (r$732) + ((parse k$497 + fp$202 + r$732 + toks$200 + all?$199 + #f + parens$197 + ptbl$196)))) + (cons c$204 + tok$201)))))))))) + (eq? c$204 + #\|)))))) + (eq? c$204 + #\#)))))) + (eq? c$204 + #\")))))) + (eq? c$204 + #\))))))) + (eq? c$204 + #\()))))) + (eq? c$204 + #\,)))))) + (eq? c$204 + #\`)))))) + (eq? c$204 + #\')))))) + (eq? c$204 #\;)))))) + c$204)))))) + (eof-object? c$204))))))))) + ptbl$196 + r$735)))) + (+ 1 r$736))))) + ptbl$196))))))))) + (define read-pound + #((record-marker) + #((record-marker) #f (id args body)) + #(266 + (k$438 fp$183 ptbl$182) + ((#((record-marker) + #((record-marker) #f (id args body)) + #(265 + (done$187 loop$186) + ((#((record-marker) + #((record-marker) #f (id args body)) + #(264 + () + ((#((record-marker) + #((record-marker) #f (id args body)) + #(211 + (r$456) + ((#((record-marker) + #((record-marker) #f (id args body)) + #(210 + (r$439) + ((#((record-marker) + #((record-marker) #f (id args body)) + #(191 + (r$442) + ((#((record-marker) + #((record-marker) #f (id args body)) + #(190 + (r$440) + ((#((record-marker) + #((record-marker) + #f + (id args body)) + #(189 + (r$441) + ((loop$186 k$438 r$441)))) + '())))) + (set! loop$186 r$442))))) + #((record-marker) + #((record-marker) #f (id args body)) + #(209 + (k$443 buf$190) + ((#((record-marker) + #((record-marker) #f (id args body)) + #(207 + (c$191) + ((#((record-marker) + #((record-marker) + #f + (id args body)) + #(205 + (tmp$192) + ((#((record-marker) + #((record-marker) + #f + (id args body)) + #(204 + (k$449) + ((if tmp$192 + (k$449 tmp$192) + (#((record-marker) + #((record-marker) + #f + (id args body)) + #(203 + (k$453) + ((char-whitespace? + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(202 + (r$454) + ((if r$454 + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(201 + (r$455) + ((k$453 (> r$455 + 0))))) + (length + buf$190)) + (k$453 #f))))) + c$191)))) + #((record-marker) + #((record-marker) + #f + (id args body)) + #(199 + (tmp$193) + ((if tmp$193 + (k$449 tmp$193) + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(198 + (r$452) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(197 + (r$451) + ((if r$451 + (k$449 (equal? + c$191 + #\))) + (k$449 #f))))) + (> r$452 + 0))))) + (length + buf$190))))))))))) + #((record-marker) + #((record-marker) + #f + (id args body)) + #(196 + (r$445) + ((if r$445 + (#((record-marker) + #((record-marker) + #f + (id args body)) + #(192 + () + ((done$187 + k$443 + buf$190))))) + (#((record-marker) + #((record-marker) + #f + (id args body)) + #(195 + () + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(194 + (r$447) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(193 + (r$446) + ((loop$186 + k$443 + r$446)))) + (cons r$447 + buf$190))))) + (read-char + fp$183)))))))))))))) + (eof-object? c$191))))) + (peek-char fp$183))))))))) + (set! done$187 r$456))))) + #((record-marker) + #((record-marker) #f (id args body)) + #(263 + (k$457 raw-buf$194) + ((reverse + #((record-marker) + #((record-marker) #f (id args body)) + #(261 + (buf$195) + ((#((record-marker) + #((record-marker) #f (id args body)) + #(260 + (r$494) + ((#((record-marker) + #((record-marker) #f (id args body)) + #(259 + (r$459) + ((if r$459 + (#((record-marker) + #((record-marker) + #f + (id args body)) + #(214 + () + ((in-port:get-lnum + #((record-marker) + #((record-marker) + #f + (id args body)) + #(213 + (r$460) + ((in-port:get-cnum + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(212 + (r$461) + ((parse-error + k$457 + "missing character" + r$460 + r$461)))) + ptbl$182)))) + ptbl$182))))) + (#((record-marker) + #((record-marker) + #f + (id args body)) + #(258 + (r$493) + ((#((record-marker) + #((record-marker) + #f + (id args body)) + #(257 + (r$462) + ((if r$462 + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(215 + () + ((k$457 (car buf$195)))))) + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(256 + (r$492) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(255 + (r$463) + ((if r$463 + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(216 + () + ((k$457 #\))))) + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(254 + (r$491) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(253 + (r$464) + ((if r$464 + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(217 + () + ((k$457 #\))))) + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(252 + (r$490) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(251 + (r$465) + ((if r$465 + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(218 + () + ((k$457 #\))))) + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(250 + (r$489) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(249 + (r$466) + ((if r$466 + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(219 + () + ((k$457 #\))))) + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(248 + (r$488) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(247 + (r$467) + ((if r$467 + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(220 + () + ((k$457 #\newline))))) + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(246 + (r$487) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(245 + (r$468) + ((if r$468 + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(221 + () + ((k$457 #\))))) + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(244 + (r$486) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(243 + (r$469) + ((if r$469 + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(222 + () + ((k$457 #\ ))))) + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(242 + (r$485) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(241 + (r$470) + ((if r$470 + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(223 + () + ((k$457 #\space))))) + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(240 + (r$484) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(239 + (r$471) + ((if r$471 + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(224 + () + ((k$457 #\ ))))) + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(238 + (k$480) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(237 + (r$483) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(236 + (r$481) + ((if r$481 + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(235 + (r$482) + ((k$480 (equal? + r$482 + #\x))))) + (car buf$195)) + (k$480 #f))))) + (> r$483 + 1))))) + (length + buf$195))))) + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(234 + (r$472) + ((if r$472 + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(228 + () + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(227 + (r$475) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(226 + (r$474) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(225 + (r$473) + ((k$457 (integer->char + r$473))))) + (string->number + r$474 + 16))))) + (list->string + r$475))))) + (cdr buf$195)))))) + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(233 + () + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(232 + (r$479) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(231 + (r$476) + ((in-port:get-lnum + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(230 + (r$477) + ((in-port:get-cnum + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(229 + (r$478) + ((parse-error + k$457 + r$476 + r$477 + r$478)))) + ptbl$182)))) + ptbl$182)))) + (string-append + "unable to parse character: " + r$479))))) + (list->string + buf$195))))))))))))))) + (equal? + buf$195 + r$484))))) + '(#\t + #\a + #\b)))))) + (equal? + buf$195 + r$485))))) + '(#\s + #\p + #\a + #\c + #\e)))))) + (equal? + buf$195 + r$486))))) + '(#\r + #\e + #\t + #\u + #\r + #\n)))))) + (equal? + buf$195 + r$487))))) + '(#\n + #\u + #\l + #\l)))))) + (equal? + buf$195 + r$488))))) + '(#\n + #\e + #\w + #\l + #\i + #\n + #\e)))))) + (equal? + buf$195 + r$489))))) + '(#\e + #\s + #\c + #\a + #\p + #\e)))))) + (equal? + buf$195 + r$490))))) + '(#\d + #\e + #\l + #\e + #\t + #\e)))))) + (equal? + buf$195 + r$491))))) + '(#\b + #\a + #\c + #\k + #\s + #\p + #\a + #\c + #\e)))))) + (equal? + buf$195 + r$492))))) + '(#\a + #\l + #\a + #\r + #\m)))))) + (= 1 r$493))))) + (length buf$195)))))) + (= 0 r$494))))) + (length buf$195))))) + raw-buf$194)))))))))))) + #f + #f))))) + (define read-str + #((record-marker) + #((record-marker) #f (id args body)) + #(188 + (k$426 fp$180 buf$179 ptbl$178) + ((#((record-marker) + #((record-marker) #f (id args body)) + #(186 + (c$181) + ((#((record-marker) + #((record-marker) #f (id args body)) + #(185 + (r$428) + ((if r$428 + (#((record-marker) + #((record-marker) #f (id args body)) + #(176 + () + ((in-port:get-lnum + #((record-marker) + #((record-marker) #f (id args body)) + #(175 + (r$429) + ((in-port:get-cnum + #((record-marker) + #((record-marker) #f (id args body)) + #(174 + (r$430) + ((parse-error + k$426 + "missing closing double-quote" + r$429 + r$430)))) + ptbl$178)))) + ptbl$178))))) + (#((record-marker) + #((record-marker) #f (id args body)) + #(184 + (r$431) + ((if r$431 + (#((record-marker) + #((record-marker) #f (id args body)) + #(178 + () + ((read-str-esc + #((record-marker) + #((record-marker) #f (id args body)) + #(177 + (r$432) + ((read-str + k$426 + fp$180 + r$432 + ptbl$178)))) + fp$180 + buf$179 + ptbl$178))))) + (#((record-marker) + #((record-marker) #f (id args body)) + #(183 + (r$433) + ((if r$433 + (#((record-marker) + #((record-marker) #f (id args body)) + #(180 + () + ((reverse + #((record-marker) + #((record-marker) + #f + (id args body)) + #(179 + (r$434) + ((k$426 (list->string + r$434))))) + buf$179))))) + (#((record-marker) + #((record-marker) #f (id args body)) + #(182 + () + ((#((record-marker) + #((record-marker) + #f + (id args body)) + #(181 + (r$435) + ((read-str + k$426 + fp$180 + r$435 + ptbl$178)))) + (cons c$181 buf$179)))))))))) + (equal? #\" c$181)))))) + (equal? #\\ c$181)))))) + (eof-object? c$181))))) + (read-char fp$180)))))) + (define read-str-esc + #((record-marker) + #((record-marker) #f (id args body)) + #(173 + (k$410 fp$175 buf$174 ptbl$173) + ((#((record-marker) + #((record-marker) #f (id args body)) + #(171 + (c$176) + ((#((record-marker) + #((record-marker) #f (id args body)) + #(170 + (r$412) + ((if r$412 + (#((record-marker) + #((record-marker) #f (id args body)) + #(156 + () + ((in-port:get-lnum + #((record-marker) + #((record-marker) #f (id args body)) + #(155 + (r$413) + ((in-port:get-cnum + #((record-marker) + #((record-marker) #f (id args body)) + #(154 + (r$414) + ((parse-error + k$410 + "missing escaped character within string" + r$413 + r$414)))) + ptbl$173)))) + ptbl$173))))) + (#((record-marker) + #((record-marker) #f (id args body)) + #(168 + (tmp$177) + ((#((record-marker) + #((record-marker) #f (id args body)) + #(167 + (k$423) + ((if tmp$177 + (k$423 tmp$177) + (k$423 (equal? #\\ c$176)))))) + #((record-marker) + #((record-marker) #f (id args body)) + #(166 + (r$415) + ((if r$415 + (#((record-marker) + #((record-marker) #f (id args body)) + #(157 + () + ((k$410 (cons c$176 buf$174)))))) + (#((record-marker) + #((record-marker) #f (id args body)) + #(165 + (r$416) + ((if r$416 + (#((record-marker) + #((record-marker) + #f + (id args body)) + #(158 + () + ((k$410 (cons #\newline + buf$174)))))) + (#((record-marker) + #((record-marker) + #f + (id args body)) + #(164 + () + ((list #((record-marker) + #((record-marker) + #f + (id args body)) + #(163 + (r$421) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(162 + (r$420) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(161 + (r$417) + ((in-port:get-lnum + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(160 + (r$418) + ((in-port:get-cnum + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(159 + (r$419) + ((parse-error + k$410 + r$417 + r$418 + r$419)))) + ptbl$173)))) + ptbl$173)))) + (string-append + "invalid escape character [" + r$420 + "] in string"))))) + (list->string + r$421))))) + c$176))))))))) + (equal? #\n c$176)))))))))) + (equal? #\" c$176)))))) + (eof-object? c$176))))) + (read-char fp$175)))))) + (define sign? + #((record-marker) + #((record-marker) #f (id args body)) + #(153 + (k$406 c$171) + ((#((record-marker) + #((record-marker) #f (id args body)) + #(151 + (tmp$172) + ((if tmp$172 + (k$406 tmp$172) + (k$406 (equal? c$171 #\-)))))) + (equal? c$171 #\+)))))) + (define token-numeric? + #((record-marker) + #((record-marker) #f (id args body)) + #(150 + (k$386 a$167) + ((#((record-marker) + #((record-marker) #f (id args body)) + #(149 + (r$403) + ((char-numeric? + #((record-marker) + #((record-marker) #f (id args body)) + #(147 + (tmp$168) + ((if tmp$168 + (k$386 tmp$168) + (#((record-marker) + #((record-marker) #f (id args body)) + #(146 + (k$397) + ((#((record-marker) + #((record-marker) #f (id args body)) + #(145 + (r$402) + ((#((record-marker) + #((record-marker) #f (id args body)) + #(144 + (r$398) + ((if r$398 + (#((record-marker) + #((record-marker) + #f + (id args body)) + #(143 + (r$401) + ((#((record-marker) + #((record-marker) + #f + (id args body)) + #(142 + (r$399) + ((if r$399 + (#((record-marker) + #((record-marker) + #f + (id args body)) + #(141 + (r$400) + ((char-numeric? + k$397 + r$400)))) + (cadr a$167)) + (k$397 #f))))) + (eq? #\. r$401))))) + (car a$167)) + (k$397 #f))))) + (> r$402 1))))) + (length a$167))))) + #((record-marker) + #((record-marker) #f (id args body)) + #(139 + (tmp$169) + ((if tmp$169 + (k$386 tmp$169) + (#((record-marker) + #((record-marker) #f (id args body)) + #(138 + (r$396) + ((#((record-marker) + #((record-marker) #f (id args body)) + #(137 + (r$389) + ((if r$389 + (#((record-marker) + #((record-marker) + #f + (id args body)) + #(136 + (r$395) + ((char-numeric? + #((record-marker) + #((record-marker) + #f + (id args body)) + #(134 + (tmp$170) + ((#((record-marker) + #((record-marker) + #f + (id args body)) + #(133 + (k$393) + ((if tmp$170 + (k$393 tmp$170) + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(132 + (r$394) + ((k$393 (eq? #\. + r$394))))) + (cadr a$167)))))) + #((record-marker) + #((record-marker) + #f + (id args body)) + #(131 + (r$390) + ((if r$390 + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(130 + (r$391) + ((sign? k$386 + r$391)))) + (car a$167)) + (k$386 #f))))))))) + r$395)))) + (cadr a$167)) + (k$386 #f))))) + (> r$396 1))))) + (length a$167))))))))))) + r$403)))) + (car a$167)))))) + (define parse-atom + #((record-marker) + #((record-marker) #f (id args body)) + #(129 + (k$380 a$166) + ((token-numeric? + #((record-marker) + #((record-marker) #f (id args body)) + #(128 + (r$381) + ((if r$381 + (#((record-marker) + #((record-marker) #f (id args body)) + #(125 + () + ((#((record-marker) + #((record-marker) #f (id args body)) + #(124 (r$382) ((k$380 (string->number r$382))))) + (list->string a$166)))))) + (#((record-marker) + #((record-marker) #f (id args body)) + #(127 + () + ((#((record-marker) + #((record-marker) #f (id args body)) + #(126 (r$383) ((k$380 (string->symbol r$383))))) + (list->string a$166)))))))))) + a$166))))) + (define get-next-char + #((record-marker) + #((record-marker) #f (id args body)) + #(123 + (k$376 fp$165 ptbl$164) + ((in-port:get-buf + #((record-marker) + #((record-marker) #f (id args body)) + #(122 + (r$377) + ((if r$377 + (in-port:read-buf! k$376 ptbl$164) + (k$376 (read-char fp$165)))))) + ptbl$164))))) + (define read-block-comment + #((record-marker) + #((record-marker) #f (id args body)) + #(121 + (k$371 fp$162 ptbl$161) + ((get-next-char + #((record-marker) + #((record-marker) #f (id args body)) + #(119 + (c$163) + ((#((record-marker) + #((record-marker) #f (id args body)) + #(118 + (r$373) + ((if r$373 + (#((record-marker) + #((record-marker) #f (id args body)) + #(116 + () + ((read-block-terminator k$371 fp$162 ptbl$161))))) + (#((record-marker) + #((record-marker) #f (id args body)) + #(117 + () + ((read-block-comment k$371 fp$162 ptbl$161))))))))) + (eq? #\| c$163))))) + fp$162 + ptbl$161))))) + (define read-block-terminator + #((record-marker) + #((record-marker) #f (id args body)) + #(115 + (k$365 fp$159 ptbl$158) + ((get-next-char + #((record-marker) + #((record-marker) #f (id args body)) + #(113 + (c$160) + ((#((record-marker) + #((record-marker) #f (id args body)) + #(112 + (r$367) + ((if r$367 + (#((record-marker) + #((record-marker) #f (id args body)) + #(108 () ((k$365 #t))))) + (#((record-marker) + #((record-marker) #f (id args body)) + #(111 + (r$368) + ((if r$368 + (#((record-marker) + #((record-marker) #f (id args body)) + #(109 + () + ((read-block-terminator + k$365 + fp$159 + ptbl$158))))) + (#((record-marker) + #((record-marker) #f (id args body)) + #(110 + () + ((read-block-comment + k$365 + fp$159 + ptbl$158))))))))) + (eq? #\| c$160)))))) + (eq? #\# c$160))))) + fp$159 + ptbl$158))))) + (define parse-literal-identifier + #((record-marker) + #((record-marker) #f (id args body)) + #(107 + (k$358 fp$156 + toks$155 + all?$154 + parens$153 + ptbl$152) + ((#((record-marker) + #((record-marker) #f (id args body)) + #(106 + (r$362) + ((parse-li-rec + #((record-marker) + #((record-marker) #f (id args body)) + #(104 + (sym$157) + ((if all?$154 + (#((record-marker) + #((record-marker) #f (id args body)) + #(103 + (r$360) + ((#((record-marker) + #((record-marker) #f (id args body)) + #(102 + (r$361) + ((parse k$358 + fp$156 + r$360 + r$361 + all?$154 + #f + parens$153 + ptbl$152)))) + (cons sym$157 toks$155))))) + '()) + (k$358 sym$157))))) + fp$156 + r$362 + ptbl$152)))) + '()))))) + (define parse-li-rec + #((record-marker) + #((record-marker) #f (id args body)) + #(101 + (k$343 fp$147 tok$146 ptbl$145) + ((get-next-char + #((record-marker) + #((record-marker) #f (id args body)) + #(100 + (r$344) + ((#((record-marker) + #((record-marker) #f (id args body)) + #(97 + (r$345) + ((#((record-marker) + #((record-marker) #f (id args body)) + #(96 + (c$150 next$149) + ((#((record-marker) + #((record-marker) #f (id args body)) + #(95 + (r$346) + ((if r$346 + (#((record-marker) + #((record-marker) #f (id args body)) + #(89 + () + ((#((record-marker) + #((record-marker) #f (id args body)) + #(88 + (k$348) + ((#((record-marker) + #((record-marker) + #f + (id args body)) + #(87 + (r$349) + ((if r$349 + (k$348 "||") + (reverse + #((record-marker) + #((record-marker) + #f + (id args body)) + #(86 + (r$350) + ((k$348 (list->string + r$350))))) + tok$146))))) + (null? tok$146))))) + #((record-marker) + #((record-marker) #f (id args body)) + #(84 + (str$151) + ((k$343 (string->symbol + str$151)))))))))) + (#((record-marker) + #((record-marker) #f (id args body)) + #(94 + (r$351) + ((if r$351 + (#((record-marker) + #((record-marker) + #f + (id args body)) + #(92 + () + ((in-port:get-lnum + #((record-marker) + #((record-marker) + #f + (id args body)) + #(91 + (r$352) + ((in-port:get-cnum + #((record-marker) + #((record-marker) + #f + (id args body)) + #(90 + (r$353) + ((parse-error + k$343 + "EOF encountered parsing literal identifier" + r$352 + r$353)))) + ptbl$145)))) + ptbl$145))))) + (#((record-marker) + #((record-marker) + #f + (id args body)) + #(93 + () + ((next$149 k$343 c$150))))))))) + (eof-object? c$150)))))) + (eq? #\| c$150))))) + r$344 + r$345)))) + #((record-marker) + #((record-marker) #f (id args body)) + #(99 + (k$354 c$148) + ((#((record-marker) + #((record-marker) #f (id args body)) + #(98 + (r$355) + ((parse-li-rec k$354 fp$147 r$355 ptbl$145)))) + (cons c$148 tok$146))))))))) + fp$147 + ptbl$145))))) + (define parse-number + #((record-marker) + #((record-marker) #f (id args body)) + #(83 + (k$325 fp$141 + toks$140 + all?$139 + parens$138 + ptbl$137 + base$136 + tok->num$135) + ((#((record-marker) + #((record-marker) #f (id args body)) + #(82 + (r$340) + ((parse-number-rec + #((record-marker) + #((record-marker) #f (id args body)) + #(80 + (num$142) + ((#((record-marker) + #((record-marker) #f (id args body)) + #(79 + (k$333) + ((#((record-marker) + #((record-marker) #f (id args body)) + #(78 + (r$334) + ((if r$334 + (k$333 #f) + (token-numeric? + #((record-marker) + #((record-marker) #f (id args body)) + #(76 + (tmp$144) + ((if tmp$144 + (k$333 tmp$144) + (#((record-marker) + #((record-marker) + #f + (id args body)) + #(75 + (r$339) + ((#((record-marker) + #((record-marker) + #f + (id args body)) + #(74 + (r$336) + ((if r$336 + (#((record-marker) + #((record-marker) + #f + (id args body)) + #(73 + (r$337) + ((if r$337 + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(72 + (r$338) + ((hex-digit? + k$333 + r$338)))) + (car num$142)) + (k$333 #f))))) + (= base$136 16)) + (k$333 #f))))) + (> r$339 0))))) + (length num$142)))))) + num$142))))) + (null? num$142))))) + #((record-marker) + #((record-marker) #f (id args body)) + #(71 + (r$327) + ((if r$327 + (#((record-marker) + #((record-marker) #f (id args body)) + #(67 + () + ((tok->num$135 + #((record-marker) + #((record-marker) #f (id args body)) + #(65 + (result$143) + ((if all?$139 + (#((record-marker) + #((record-marker) + #f + (id args body)) + #(64 + (r$329) + ((#((record-marker) + #((record-marker) + #f + (id args body)) + #(63 + (r$330) + ((parse k$325 + fp$141 + r$329 + r$330 + all?$139 + #f + parens$138 + ptbl$137)))) + (cons result$143 + toks$140))))) + '()) + (k$325 result$143))))) + num$142))))) + (#((record-marker) + #((record-marker) #f (id args body)) + #(70 + () + ((in-port:get-lnum + #((record-marker) + #((record-marker) #f (id args body)) + #(69 + (r$331) + ((in-port:get-cnum + #((record-marker) + #((record-marker) + #f + (id args body)) + #(68 + (r$332) + ((parse-error + k$325 + "Illegal number syntax" + r$331 + r$332)))) + ptbl$137)))) + ptbl$137))))))))))))) + base$136 + fp$141 + r$340 + ptbl$137)))) + '()))))) + (define parse-number-rec + #((record-marker) + #((record-marker) #f (id args body)) + #(62 + (k$301 base$130 fp$129 tok$128 ptbl$127) + ((get-next-char + #((record-marker) + #((record-marker) #f (id args body)) + #(61 + (r$302) + ((#((record-marker) + #((record-marker) #f (id args body)) + #(58 + (r$303) + ((#((record-marker) + #((record-marker) #f (id args body)) + #(57 + (c$133 next$132) + ((sign? #((record-marker) + #((record-marker) #f (id args body)) + #(56 + (r$304) + ((if r$304 + (#((record-marker) + #((record-marker) #f (id args body)) + #(34 () ((next$132 k$301 c$133))))) + (#((record-marker) + #((record-marker) #f (id args body)) + #(55 + (r$305) + ((if r$305 + (#((record-marker) + #((record-marker) + #f + (id args body)) + #(35 + () + ((next$132 + k$301 + c$133))))) + (char-numeric? + #((record-marker) + #((record-marker) + #f + (id args body)) + #(54 + (r$306) + ((if r$306 + (#((record-marker) + #((record-marker) + #f + (id args body)) + #(47 + () + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(46 + (k$308) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(45 + (k$315) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(44 + (r$316) + ((if r$316 + (char>? + k$315 + c$133 + #\1) + (k$315 #f))))) + (= base$130 + 2))))) + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(42 + (tmp$134) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(41 + (k$313) + ((if tmp$134 + (k$313 tmp$134) + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(40 + (r$314) + ((if r$314 + (char>? + k$313 + c$133 + #\7) + (k$313 #f))))) + (= base$130 + 8)))))) + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(39 + (r$309) + ((if r$309 + (in-port:get-lnum + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(38 + (r$310) + ((in-port:get-cnum + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(37 + (r$311) + ((parse-error + k$308 + "Illegal digit" + r$310 + r$311)))) + ptbl$127)))) + ptbl$127) + (k$308 #f))))))))))))) + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(36 + (r$307) + ((next$132 + k$301 + c$133))))))))) + (#((record-marker) + #((record-marker) + #f + (id args body)) + #(53 + (k$319) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(52 + (r$320) + ((if r$320 + (hex-digit? + k$319 + c$133) + (k$319 #f))))) + (= base$130 + 16))))) + #((record-marker) + #((record-marker) + #f + (id args body)) + #(51 + (r$317) + ((if r$317 + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(48 + () + ((next$132 + k$301 + c$133))))) + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(50 + () + ((in-port:set-buf! + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(49 + (r$318) + ((reverse + k$301 + tok$128)))) + ptbl$127 + c$133)))))))))))))) + c$133))))) + (eq? #\. c$133)))))) + c$133)))) + r$302 + r$303)))) + #((record-marker) + #((record-marker) #f (id args body)) + #(60 + (k$321 c$131) + ((#((record-marker) + #((record-marker) #f (id args body)) + #(59 + (r$322) + ((parse-number-rec + k$321 + base$130 + fp$129 + r$322 + ptbl$127)))) + (cons c$131 tok$128))))))))) + fp$129 + ptbl$127))))) + (define hex-digit? + #((record-marker) + #((record-marker) #f (id args body)) + #(33 + (k$294 c$125) + ((#((record-marker) + #((record-marker) #f (id args body)) + #(32 + (k$297) + ((char>=? + #((record-marker) + #((record-marker) #f (id args body)) + #(31 + (r$298) + ((if r$298 (char<=? k$297 c$125 #\f) (k$297 #f))))) + c$125 + #\a)))) + #((record-marker) + #((record-marker) #f (id args body)) + #(29 + (tmp$126) + ((if tmp$126 + (k$294 tmp$126) + (char>=? + #((record-marker) + #((record-marker) #f (id args body)) + #(28 + (r$296) + ((if r$296 (char<=? k$294 c$125 #\F) (k$294 #f))))) + c$125 + #\A)))))))))) + (define cyc-read + #((record-marker) + #((record-marker) #f (id args body)) + #(27 + (k$285 . args$123) + ((#((record-marker) + #((record-marker) #f (id args body)) + #(26 + (k$290) + ((#((record-marker) + #((record-marker) #f (id args body)) + #(25 + (r$291) + ((if r$291 + (current-input-port k$290) + (k$290 (car args$123)))))) + (null? args$123))))) + #((record-marker) + #((record-marker) #f (id args body)) + #(23 + (fp$124) + ((#((record-marker) + #((record-marker) #f (id args body)) + #(22 + (r$287) + ((#((record-marker) + #((record-marker) #f (id args body)) + #(21 + (r$288) + ((reg-port + #((record-marker) + #((record-marker) #f (id args body)) + #(20 + (r$289) + ((parse k$285 + fp$124 + r$287 + r$288 + #f + #f + 0 + r$289)))) + fp$124)))) + '())))) + '()))))))))) + (define read-all + #((record-marker) + #((record-marker) #f (id args body)) + #(19 + (k$272 . args$116) + ((#((record-marker) + #((record-marker) #f (id args body)) + #(18 + () + ((#((record-marker) + #((record-marker) #f (id args body)) + #(17 + (k$281) + ((#((record-marker) + #((record-marker) #f (id args body)) + #(16 + (r$282) + ((if r$282 + (current-input-port k$281) + (k$281 (car args$116)))))) + (null? args$116))))) + #((record-marker) + #((record-marker) #f (id args body)) + #(14 + (fp$118) + ((#((record-marker) + #((record-marker) #f (id args body)) + #(13 + (loop$119) + ((#((record-marker) + #((record-marker) #f (id args body)) + #(7 + (r$276) + ((#((record-marker) + #((record-marker) #f (id args body)) + #(6 + (r$274) + ((#((record-marker) + #((record-marker) #f (id args body)) + #(5 + (r$275) + ((loop$119 k$272 fp$118 r$275)))) + '())))) + (set! loop$119 r$276))))) + #((record-marker) + #((record-marker) #f (id args body)) + #(12 + (k$277 fp$121 result$120) + ((cyc-read + #((record-marker) + #((record-marker) #f (id args body)) + #(10 + (obj$122) + ((#((record-marker) + #((record-marker) #f (id args body)) + #(9 + (r$279) + ((if r$279 + (reverse k$277 result$120) + (#((record-marker) + #((record-marker) + #f + (id args body)) + #(8 + (r$280) + ((loop$119 + k$277 + fp$121 + r$280)))) + (cons obj$122 result$120)))))) + (eof-object? obj$122))))) + fp$121)))))))) + #f))))))))))))) + (define lib-init:schemeread + #((record-marker) + #((record-marker) #f (id args body)) + #(4 + (k$266) + ((#((record-marker) + #((record-marker) #f (id args body)) + #(3 + () + ((#((record-marker) + #((record-marker) #f (id args body)) + #(2 + (r$268) + ((#((record-marker) + #((record-marker) #f (id args body)) + #(1 + (r$269) + ((k$266 (set! *in-port-table* r$269))))) + '())))) + (set! read cyc-read))))))))))) diff --git a/debug/read/read-old.c b/debug/read/read-old.c new file mode 100644 index 00000000..44b14500 --- /dev/null +++ b/debug/read/read-old.c @@ -0,0 +1,68429 @@ +/** + ** This file was automatically generated by the Cyclone scheme compiler + ** + ** (c) 2014-2016 Justin Ethier + ** Version 0.0.7 (Pre-release) + ** + **/ + +/* +"---------------- input program:" + */ +/* +((define-library + (scheme read) + (import (scheme base) (scheme char)) + (export read read-all) + (begin + (define read cyc-read) + (define *in-port-table* '()) + (define (reg-port fp) + (let ((r (assoc fp *in-port-table*))) + (cond ((not r) + (set! r (list fp #f 1 0)) + (set! *in-port-table* (cons r *in-port-table*)) + r) + (else r)))) + (define (in-port:read-buf! ptbl) + (let ((result (cadr ptbl))) + (in-port:set-buf! ptbl #f) + result)) + (define (in-port:get-buf ptbl) (cadr ptbl)) + (define (in-port:set-buf! ptbl buf) + (set-car! (cdr ptbl) buf)) + (define (in-port:get-lnum ptbl) (caddr ptbl)) + (define (in-port:set-lnum! ptbl lnum) + (set-car! (cddr ptbl) lnum)) + (define (in-port:get-cnum ptbl) (cadddr ptbl)) + (define (in-port:set-cnum! ptbl cnum) + (set-car! (cdddr ptbl) cnum)) + (define (add-tok tok toks) (cons tok toks)) + (define (get-toks tok toks) + (if (null? tok) toks (add-tok (->tok tok) toks))) + (define (->tok lst) (parse-atom (reverse lst))) + (define (dotted? lst) + (and (> (length lst) 2) + (equal? + (cadr (reverse lst)) + (string->symbol ".")))) + (define (->dotted-list lst) + (cond ((null? lst) '()) + ((equal? (car lst) (string->symbol ".")) + (cadr lst)) + (else (cons (car lst) (->dotted-list (cdr lst)))))) + (define (parse-error msg lnum cnum) + (error (string-append + "Error (line " + (number->string lnum) + ", char " + (number->string cnum) + "): " + msg))) + (define (parse/tok + fp + tok + toks + all? + comment? + parens + ptbl + curr-char) + (cond ((null? tok) + (parse fp '() toks all? comment? parens ptbl)) + (all? + (parse fp + '() + (add-tok (->tok tok) toks) + all? + comment? + parens + ptbl)) + (else + (in-port:set-buf! ptbl curr-char) + (car (add-tok (->tok tok) toks))))) + (define (parse fp tok toks all? comment? parens ptbl) + (in-port:set-cnum! + ptbl + (+ 1 (in-port:get-cnum ptbl))) + (let ((c (if (in-port:get-buf ptbl) + (in-port:read-buf! ptbl) + (read-char fp)))) + (cond ((eof-object? c) + (if (> parens 0) + (parse-error + "missing closing parenthesis" + (in-port:get-lnum ptbl) + (in-port:get-cnum ptbl))) + (if all? + (reverse (get-toks tok toks)) + (let ((last (get-toks tok toks))) + (if (> (length last) 0) (car last) c)))) + (comment? + (if (eq? c #\newline) + (begin + (in-port:set-lnum! + ptbl + (+ 1 (in-port:get-lnum ptbl))) + (in-port:set-cnum! ptbl 0) + (parse fp '() toks all? #f parens ptbl)) + (parse fp '() toks all? #t parens ptbl))) + ((char-whitespace? c) + (if (equal? c #\newline) + (in-port:set-lnum! + ptbl + (+ 1 (in-port:get-lnum ptbl)))) + (if (equal? c #\newline) + (in-port:set-cnum! ptbl 0)) + (parse/tok fp tok toks all? #f parens ptbl c)) + ((eq? c #\;) + (parse/tok fp tok toks all? #t parens ptbl c)) + ((eq? c #\') + (cond ((and (not all?) (not (null? tok))) + (in-port:set-buf! ptbl c) + (car (add-tok (->tok tok) toks))) + (else + (let ((sub (parse fp '() '() #f #f 0 ptbl))) + (define new-toks + (add-tok (list 'quote sub) (get-toks tok toks))) + (if all? + (parse fp '() new-toks all? #f parens ptbl) + (car new-toks)))))) + ((eq? c #\`) + (cond ((and (not all?) (not (null? tok))) + (in-port:set-buf! ptbl c) + (car (add-tok (->tok tok) toks))) + (else + (let ((sub (parse fp '() '() #f #f 0 ptbl))) + (define new-toks + (add-tok + (list 'quasiquote sub) + (get-toks tok toks))) + (if all? + (parse fp '() new-toks all? #f parens ptbl) + (car new-toks)))))) + ((eq? c #\,) + (cond ((and (not all?) (not (null? tok))) + (in-port:set-buf! ptbl c) + (car (add-tok (->tok tok) toks))) + (else + (letrec ((sub #f) + (next-c (read-char fp)) + (unquote-sym + (if (equal? next-c #\@) + 'unquote-splicing + 'unquote)) + (new-toks #f)) + (cond ((eof-object? next-c) + (parse-error + "unexpected end of file" + (in-port:get-lnum ptbl) + (in-port:get-cnum ptbl))) + ((not (equal? next-c #\@)) + (in-port:set-buf! ptbl next-c)) + (else #f)) + (set! sub (parse fp '() '() #f #f 0 ptbl)) + (set! new-toks + (add-tok + (list unquote-sym sub) + (get-toks tok toks))) + (if all? + (parse fp '() new-toks all? #f parens ptbl) + (car new-toks)))))) + ((eq? c #\() + (cond ((and (not all?) (not (null? tok))) + (in-port:set-buf! ptbl c) + (car (add-tok (->tok tok) toks))) + (else + (let ((sub (parse fp '() '() #t #f (+ parens 1) ptbl)) + (toks* (get-toks tok toks))) + (define new-toks + (add-tok + (if (and (pair? sub) (dotted? sub)) + (->dotted-list sub) + sub) + toks*)) + (if all? + (parse fp '() new-toks all? #f parens ptbl) + (car new-toks)))))) + ((eq? c #\)) + (cond ((and (not all?) (not (null? tok))) + (in-port:set-buf! ptbl c) + (car (add-tok (->tok tok) toks))) + ((= parens 0) + (parse-error + "unexpected closing parenthesis" + (in-port:get-lnum ptbl) + (in-port:get-cnum ptbl))) + (else (reverse (get-toks tok toks))))) + ((eq? c #\") + (cond ((and (not all?) (not (null? tok))) + (in-port:set-buf! ptbl c) + (car (add-tok (->tok tok) toks))) + (else + (let ((str (read-str fp '() ptbl)) + (toks* (get-toks tok toks))) + (define new-toks (add-tok str toks*)) + (if all? + (parse fp '() new-toks all? #f parens ptbl) + (car new-toks)))))) + ((eq? c #\#) + (if (null? tok) + (let ((next-c (read-char fp))) + (in-port:set-cnum! + ptbl + (+ 1 (in-port:get-cnum ptbl))) + (cond ((eq? #\| next-c) + (read-block-comment fp ptbl) + (parse fp '() toks all? #f parens ptbl)) + ((eq? #\t next-c) + (if all? + (parse fp '() (cons #t toks) all? #f parens ptbl) + #t)) + ((eq? #\f next-c) + (if all? + (parse fp '() (cons #f toks) all? #f parens ptbl) + #f)) + ((eq? #\e next-c) + (parse-number + fp + toks + all? + parens + ptbl + 10 + (lambda (num) (exact (parse-atom num))))) + ((eq? #\i next-c) + (parse-number + fp + toks + all? + parens + ptbl + 10 + (lambda (num) (inexact (parse-atom num))))) + ((eq? #\b next-c) + (parse-number + fp + toks + all? + parens + ptbl + 2 + (lambda (num) + (string->number (list->string num) 2)))) + ((eq? #\o next-c) + (parse-number + fp + toks + all? + parens + ptbl + 8 + (lambda (num) + (string->number (list->string num) 8)))) + ((eq? #\x next-c) + (parse-number + fp + toks + all? + parens + ptbl + 16 + (lambda (num) + (string->number (list->string num) 16)))) + ((eq? #\u next-c) + (set! next-c (read-char fp)) + (if (not (eq? #\8 next-c)) + (parse-error + "Unhandled input sequence" + (in-port:get-lnum ptbl) + (in-port:get-cnum ptbl))) + (set! next-c (read-char fp)) + (if (not (eq? #\( next-c)) + (parse-error + "Unhandled input sequence" + (in-port:get-lnum ptbl) + (in-port:get-cnum ptbl))) + (let ((sub (parse fp + '() + '() + #t + #f + (+ parens 1) + ptbl)) + (toks* (get-toks tok toks))) + (define new-toks + (add-tok + (if (and (pair? sub) (dotted? sub)) + (parse-error + "Invalid vector syntax" + (in-port:get-lnum ptbl) + (in-port:get-cnum ptbl)) + (apply bytevector sub)) + toks*)) + (if all? + (parse fp '() new-toks all? #f parens ptbl) + (car new-toks)))) + ((eq? #\( next-c) + (let ((sub (parse fp + '() + '() + #t + #f + (+ parens 1) + ptbl)) + (toks* (get-toks tok toks))) + (define new-toks + (add-tok + (if (and (pair? sub) (dotted? sub)) + (parse-error + "Invalid vector syntax" + (in-port:get-lnum ptbl) + (in-port:get-cnum ptbl)) + (list->vector sub)) + toks*)) + (if all? + (parse fp '() new-toks all? #f parens ptbl) + (car new-toks)))) + ((eq? #\\ next-c) + (let ((new-toks (cons (read-pound fp ptbl) toks))) + (if all? + (parse fp '() new-toks all? #f parens ptbl) + (car new-toks)))) + ((eq? #\; next-c) + (parse fp '() '() #f #f 0 ptbl) + (cond ((and (not all?) (not (null? tok))) + (in-port:set-buf! ptbl c) + (car (add-tok (->tok tok) toks))) + (else + (parse fp tok toks all? #f parens ptbl)))) + (else + (parse-error + "Unhandled input sequence" + (in-port:get-lnum ptbl) + (in-port:get-cnum ptbl))))) + (parse fp (cons c tok) toks all? #f parens ptbl))) + ((eq? c #\|) + (parse-literal-identifier + fp + toks + all? + parens + ptbl)) + (else + (parse fp (cons c tok) toks all? #f parens ptbl))))) + (define (read-pound fp ptbl) + (define (done raw-buf) + (let ((buf (reverse raw-buf))) + (cond ((= 0 (length buf)) + (parse-error + "missing character" + (in-port:get-lnum ptbl) + (in-port:get-cnum ptbl))) + ((= 1 (length buf)) (car buf)) + ((equal? buf '(#\a #\l #\a #\r #\m)) + (integer->char 7)) + ((equal? + buf + '(#\b #\a #\c #\k #\s #\p #\a #\c #\e)) + (integer->char 8)) + ((equal? buf '(#\d #\e #\l #\e #\t #\e)) + (integer->char 127)) + ((equal? buf '(#\e #\s #\c #\a #\p #\e)) + (integer->char 27)) + ((equal? buf '(#\n #\e #\w #\l #\i #\n #\e)) + (integer->char 10)) + ((equal? buf '(#\n #\u #\l #\l)) + (integer->char 0)) + ((equal? buf '(#\r #\e #\t #\u #\r #\n)) + (integer->char 13)) + ((equal? buf '(#\s #\p #\a #\c #\e)) + (integer->char 32)) + ((equal? buf '(#\t #\a #\b)) (integer->char 9)) + ((and (> (length buf) 1) (equal? (car buf) #\x)) + (integer->char + (string->number (list->string (cdr buf)) 16))) + (else + (parse-error + (string-append + "unable to parse character: " + (list->string buf)) + (in-port:get-lnum ptbl) + (in-port:get-cnum ptbl)))))) + (define (loop buf) + (let ((c (peek-char fp))) + (cond ((or (eof-object? c) + (and (char-whitespace? c) (> (length buf) 0)) + (and (> (length buf) 0) (equal? c #\)))) + (done buf)) + (else (loop (cons (read-char fp) buf)))))) + (loop '())) + (define (read-str fp buf ptbl) + (let ((c (read-char fp))) + (cond ((eof-object? c) + (parse-error + "missing closing double-quote" + (in-port:get-lnum ptbl) + (in-port:get-cnum ptbl))) + ((equal? #\\ c) + (read-str fp (read-str-esc fp buf ptbl) ptbl)) + ((equal? #\" c) (list->string (reverse buf))) + (else (read-str fp (cons c buf) ptbl))))) + (define (read-str-esc fp buf ptbl) + (let ((c (read-char fp))) + (cond ((eof-object? c) + (parse-error + "missing escaped character within string" + (in-port:get-lnum ptbl) + (in-port:get-cnum ptbl))) + ((or (equal? #\" c) (equal? #\\ c)) (cons c buf)) + ((equal? #\n c) (cons #\newline buf)) + (else + (parse-error + (string-append + "invalid escape character [" + (list->string (list c)) + "] in string") + (in-port:get-lnum ptbl) + (in-port:get-cnum ptbl)))))) + (define (sign? c) + (or (equal? c #\+) (equal? c #\-))) + (define (token-numeric? a) + (or (char-numeric? (car a)) + (and (> (length a) 1) + (eq? #\. (car a)) + (char-numeric? (cadr a))) + (and (> (length a) 1) + (or (char-numeric? (cadr a)) (eq? #\. (cadr a))) + (sign? (car a))))) + (define (parse-atom a) + (cond ((token-numeric? a) + (string->number (list->string a))) + (else (string->symbol (list->string a))))) + (define (get-next-char fp ptbl) + (if (in-port:get-buf ptbl) + (in-port:read-buf! ptbl) + (read-char fp))) + (define (read-block-comment fp ptbl) + (let ((c (get-next-char fp ptbl))) + (cond ((eq? #\| c) (read-block-terminator fp ptbl)) + (else (read-block-comment fp ptbl))))) + (define (read-block-terminator fp ptbl) + (let ((c (get-next-char fp ptbl))) + (cond ((eq? #\# c) #t) + ((eq? #\| c) (read-block-terminator fp ptbl)) + (else (read-block-comment fp ptbl))))) + (define (parse-literal-identifier + fp + toks + all? + parens + ptbl) + (let ((sym (parse-li-rec fp '() ptbl))) + (if all? + (parse fp + '() + (cons sym toks) + all? + #f + parens + ptbl) + sym))) + (define (parse-li-rec fp tok ptbl) + (let ((c (get-next-char fp ptbl)) + (next (lambda (c) (parse-li-rec fp (cons c tok) ptbl)))) + (cond ((eq? #\| c) + (let ((str (if (null? tok) + "||" + (list->string (reverse tok))))) + (string->symbol str))) + ((eof-object? c) + (parse-error + "EOF encountered parsing literal identifier" + (in-port:get-lnum ptbl) + (in-port:get-cnum ptbl))) + (else (next c))))) + (define (parse-number + fp + toks + all? + parens + ptbl + base + tok->num) + (let ((num (parse-number-rec base fp '() ptbl))) + (cond ((and (not (null? num)) + (or (token-numeric? num) + (and (> (length num) 0) + (= base 16) + (hex-digit? (car num))))) + (let ((result (tok->num num))) + (if all? + (parse fp + '() + (cons result toks) + all? + #f + parens + ptbl) + result))) + (else + (parse-error + "Illegal number syntax" + (in-port:get-lnum ptbl) + (in-port:get-cnum ptbl)))))) + (define (parse-number-rec base fp tok ptbl) + (let ((c (get-next-char fp ptbl)) + (next (lambda (c) + (parse-number-rec base fp (cons c tok) ptbl)))) + (cond ((sign? c) (next c)) + ((eq? #\. c) (next c)) + ((char-numeric? c) + (if (or (and (= base 2) (char>? c #\1)) + (and (= base 8) (char>? c #\7))) + (parse-error + "Illegal digit" + (in-port:get-lnum ptbl) + (in-port:get-cnum ptbl))) + (next c)) + ((and (= base 16) (hex-digit? c)) (next c)) + (else (in-port:set-buf! ptbl c) (reverse tok))))) + (define (hex-digit? c) + (or (and (char>=? c #\a) (char<=? c #\f)) + (and (char>=? c #\A) (char<=? c #\F)))) + (define cyc-read + (lambda args + (let ((fp (if (null? args) (current-input-port) (car args)))) + (parse fp '() '() #f #f 0 (reg-port fp))))) + (define (read-all . args) + (let ((fp (if (null? args) (current-input-port) (car args)))) + (define (loop fp result) + (let ((obj (cyc-read fp))) + (if (eof-object? obj) + (reverse result) + (loop fp (cons obj result))))) + (loop fp '())))))) + */ +/* +"imports:" + */ +/* +((scheme base) (scheme char)) + */ +/* +"resolved imports:" + */ +/* +((cons-source scheme base) + (syntax-rules scheme base) + (letrec* scheme base) + (guard scheme base) + (guard-aux scheme base) + (define-record-type scheme base) + (record? scheme base) + (register-simple-type scheme base) + (make-type-predicate scheme base) + (make-constructor scheme base) + (make-getter scheme base) + (make-setter scheme base) + (slot-set! scheme base) + (type-slot-offset scheme base) + (receive scheme base) + (abs scheme base) + (max scheme base) + (min scheme base) + (modulo scheme base) + (floor-remainder scheme base) + (even? scheme base) + (exact-integer? scheme base) + (exact? scheme base) + (inexact? scheme base) + (odd? scheme base) + (complex? scheme base) + (rational? scheme base) + (gcd scheme base) + (lcm scheme base) + (quotient scheme base) + (remainder scheme base) + (truncate-quotient scheme base) + (truncate-remainder scheme base) + (truncate/ scheme base) + (floor-quotient scheme base) + (floor-remainder scheme base) + (floor/ scheme base) + (square scheme base) + (expt scheme base) + (call-with-current-continuation scheme base) + (call/cc scheme base) + (call-with-values scheme base) + (dynamic-wind scheme base) + (values scheme base) + (char=? scheme base) + (char? scheme base) + (char<=? scheme base) + (char>=? scheme base) + (string=? scheme base) + (string? scheme base) + (string>=? scheme base) + (foldl scheme base) + (foldr scheme base) + (not scheme base) + (list? scheme base) + (zero? scheme base) + (positive? scheme base) + (negative? scheme base) + (append scheme base) + (list scheme base) + (make-list scheme base) + (list-copy scheme base) + (map scheme base) + (for-each scheme base) + (list-tail scheme base) + (list-ref scheme base) + (list-set! scheme base) + (reverse scheme base) + (boolean=? scheme base) + (symbol=? scheme base) + (Cyc-obj=? scheme base) + (vector scheme base) + (vector-append scheme base) + (vector-copy scheme base) + (vector-copy! scheme base) + (vector-fill! scheme base) + (vector->list scheme base) + (vector->string scheme base) + (vector-map scheme base) + (vector-for-each scheme base) + (make-string scheme base) + (string scheme base) + (string-copy scheme base) + (string-copy! scheme base) + (string-fill! scheme base) + (string->list scheme base) + (string->vector scheme base) + (string-map scheme base) + (string-for-each scheme base) + (make-parameter scheme base) + (current-output-port scheme base) + (current-input-port scheme base) + (current-error-port scheme base) + (call-with-port scheme base) + (error scheme base) + (raise scheme base) + (raise-continuable scheme base) + (with-exception-handler scheme base) + (Cyc-add-exception-handler scheme base) + (Cyc-remove-exception-handler scheme base) + (newline scheme base) + (write-char scheme base) + (write-string scheme base) + (flush-output-port scheme base) + (read-line scheme base) + (read-string scheme base) + (input-port? scheme base) + (output-port? scheme base) + (input-port-open? scheme base) + (output-port-open? scheme base) + (features scheme base) + (any scheme base) + (every scheme base) + (and scheme base) + (or scheme base) + (let scheme base) + (let* scheme base) + (letrec scheme base) + (begin scheme base) + (case scheme base) + (cond scheme base) + (cond-expand scheme base) + (do scheme base) + (when scheme base) + (unless scheme base) + (quasiquote scheme base) + (floor scheme base) + (ceiling scheme base) + (truncate scheme base) + (round scheme base) + (exact scheme base) + (inexact scheme base) + (eof-object scheme base) + (syntax-error scheme base) + (bytevector-copy scheme base) + (utf8->string scheme base) + (string->utf8 scheme base) + (denominator scheme base) + (numerator scheme base) + (char-alphabetic? scheme char) + (char-downcase scheme char) + (char-foldcase scheme char) + (char-lower-case? scheme char) + (char-numeric? scheme char) + (char-upcase scheme char) + (char-upper-case? scheme char) + (char-whitespace? scheme char) + (char-ci<=? scheme char) + (char-ci=? scheme char) + (char-ci>? scheme char) + (digit-value scheme char) + (string-upcase scheme char) + (string-downcase scheme char) + (string-foldcase scheme char) + (string-ci<=? scheme char) + (string-ci=? scheme char) + (string-ci>? scheme char)) + */ +/* +"resolved macros:" + */ +/* +() + */ +/* +"---------------- after macro expansion:" + */ +/* +((define read cyc-read) + (define *in-port-table* '()) + (define reg-port + (lambda (fp) + ((lambda (r) + (if (not r) + ((lambda () + (set! r (list fp #f 1 0)) + (set! *in-port-table* (cons r *in-port-table*)) + r)) + ((lambda () r)))) + (assoc fp *in-port-table*)))) + (define in-port:read-buf! + (lambda (ptbl) + ((lambda (result) + (in-port:set-buf! ptbl #f) + result) + (cadr ptbl)))) + (define in-port:get-buf + (lambda (ptbl) (cadr ptbl))) + (define in-port:set-buf! + (lambda (ptbl buf) (set-car! (cdr ptbl) buf))) + (define in-port:get-lnum + (lambda (ptbl) (caddr ptbl))) + (define in-port:set-lnum! + (lambda (ptbl lnum) (set-car! (cddr ptbl) lnum))) + (define in-port:get-cnum + (lambda (ptbl) (cadddr ptbl))) + (define in-port:set-cnum! + (lambda (ptbl cnum) (set-car! (cdddr ptbl) cnum))) + (define add-tok + (lambda (tok toks) (cons tok toks))) + (define get-toks + (lambda (tok toks) + (if (null? tok) toks (add-tok (->tok tok) toks)))) + (define ->tok + (lambda (lst) (parse-atom (reverse lst)))) + (define dotted? + (lambda (lst) + (if (> (length lst) 2) + (equal? + (cadr (reverse lst)) + (string->symbol ".")) + #f))) + (define ->dotted-list + (lambda (lst) + (if (null? lst) + ((lambda () '())) + (if (equal? (car lst) (string->symbol ".")) + ((lambda () (cadr lst))) + ((lambda () + (cons (car lst) (->dotted-list (cdr lst))))))))) + (define parse-error + (lambda (msg lnum cnum) + (error (string-append + "Error (line " + (number->string lnum) + ", char " + (number->string cnum) + "): " + msg)))) + (define parse/tok + (lambda (fp tok toks all? comment? parens ptbl curr-char) + (if (null? tok) + ((lambda () + (parse fp '() toks all? comment? parens ptbl))) + (if all? + ((lambda () + (parse fp + '() + (add-tok (->tok tok) toks) + all? + comment? + parens + ptbl))) + ((lambda () + (in-port:set-buf! ptbl curr-char) + (car (add-tok (->tok tok) toks)))))))) + (define parse + (lambda (fp tok toks all? comment? parens ptbl) + (in-port:set-cnum! + ptbl + (+ 1 (in-port:get-cnum ptbl))) + ((lambda (c) + (if (eof-object? c) + ((lambda () + (if (> parens 0) + (parse-error + "missing closing parenthesis" + (in-port:get-lnum ptbl) + (in-port:get-cnum ptbl)) + #f) + (if all? + (reverse (get-toks tok toks)) + ((lambda (last) + (if (> (length last) 0) (car last) c)) + (get-toks tok toks))))) + (if comment? + ((lambda () + (if (eq? c #\newline) + ((lambda () + (in-port:set-lnum! + ptbl + (+ 1 (in-port:get-lnum ptbl))) + (in-port:set-cnum! ptbl 0) + (parse fp '() toks all? #f parens ptbl))) + (parse fp '() toks all? #t parens ptbl)))) + (if (char-whitespace? c) + ((lambda () + (if (equal? c #\newline) + (in-port:set-lnum! + ptbl + (+ 1 (in-port:get-lnum ptbl))) + #f) + (if (equal? c #\newline) + (in-port:set-cnum! ptbl 0) + #f) + (parse/tok fp tok toks all? #f parens ptbl c))) + (if (eq? c #\;) + ((lambda () + (parse/tok fp tok toks all? #t parens ptbl c))) + (if (eq? c #\') + ((lambda () + (if (if (not all?) (not (null? tok)) #f) + ((lambda () + (in-port:set-buf! ptbl c) + (car (add-tok (->tok tok) toks)))) + ((lambda () + ((lambda (sub) + (define new-toks + (add-tok (list 'quote sub) (get-toks tok toks))) + (if all? + (parse fp '() new-toks all? #f parens ptbl) + (car new-toks))) + (parse fp '() '() #f #f 0 ptbl))))))) + (if (eq? c #\`) + ((lambda () + (if (if (not all?) (not (null? tok)) #f) + ((lambda () + (in-port:set-buf! ptbl c) + (car (add-tok (->tok tok) toks)))) + ((lambda () + ((lambda (sub) + (define new-toks + (add-tok + (list 'quasiquote sub) + (get-toks tok toks))) + (if all? + (parse fp '() new-toks all? #f parens ptbl) + (car new-toks))) + (parse fp '() '() #f #f 0 ptbl))))))) + (if (eq? c #\,) + ((lambda () + (if (if (not all?) (not (null? tok)) #f) + ((lambda () + (in-port:set-buf! ptbl c) + (car (add-tok (->tok tok) toks)))) + ((lambda () + ((lambda (sub next-c unquote-sym new-toks) + (set! sub #f) + (set! next-c (read-char fp)) + (set! unquote-sym + (if (equal? next-c #\@) + 'unquote-splicing + 'unquote)) + (set! new-toks #f) + (if (eof-object? next-c) + ((lambda () + (parse-error + "unexpected end of file" + (in-port:get-lnum ptbl) + (in-port:get-cnum ptbl)))) + (if (not (equal? next-c #\@)) + ((lambda () + (in-port:set-buf! ptbl next-c))) + ((lambda () #f)))) + (set! sub (parse fp '() '() #f #f 0 ptbl)) + (set! new-toks + (add-tok + (list unquote-sym sub) + (get-toks tok toks))) + (if all? + (parse fp '() new-toks all? #f parens ptbl) + (car new-toks))) + #f + #f + #f + #f)))))) + (if (eq? c #\() + ((lambda () + (if (if (not all?) (not (null? tok)) #f) + ((lambda () + (in-port:set-buf! ptbl c) + (car (add-tok (->tok tok) toks)))) + ((lambda () + ((lambda (sub toks*) + (define new-toks + (add-tok + (if (if (pair? sub) (dotted? sub) #f) + (->dotted-list sub) + sub) + toks*)) + (if all? + (parse fp '() new-toks all? #f parens ptbl) + (car new-toks))) + (parse fp '() '() #t #f (+ parens 1) ptbl) + (get-toks tok toks))))))) + (if (eq? c #\)) + ((lambda () + (if (if (not all?) (not (null? tok)) #f) + ((lambda () + (in-port:set-buf! ptbl c) + (car (add-tok (->tok tok) toks)))) + (if (= parens 0) + ((lambda () + (parse-error + "unexpected closing parenthesis" + (in-port:get-lnum ptbl) + (in-port:get-cnum ptbl)))) + ((lambda () (reverse (get-toks tok toks)))))))) + (if (eq? c #\") + ((lambda () + (if (if (not all?) (not (null? tok)) #f) + ((lambda () + (in-port:set-buf! ptbl c) + (car (add-tok (->tok tok) toks)))) + ((lambda () + ((lambda (str toks*) + (define new-toks (add-tok str toks*)) + (if all? + (parse fp + '() + new-toks + all? + #f + parens + ptbl) + (car new-toks))) + (read-str fp '() ptbl) + (get-toks tok toks))))))) + (if (eq? c #\#) + ((lambda () + (if (null? tok) + ((lambda (next-c) + (in-port:set-cnum! + ptbl + (+ 1 (in-port:get-cnum ptbl))) + (if (eq? #\| next-c) + ((lambda () + (read-block-comment fp ptbl) + (parse fp + '() + toks + all? + #f + parens + ptbl))) + (if (eq? #\t next-c) + ((lambda () + (if all? + (parse fp + '() + (cons #t toks) + all? + #f + parens + ptbl) + #t))) + (if (eq? #\f next-c) + ((lambda () + (if all? + (parse fp + '() + (cons #f toks) + all? + #f + parens + ptbl) + #f))) + (if (eq? #\e next-c) + ((lambda () + (parse-number + fp + toks + all? + parens + ptbl + 10 + (lambda (num) + (exact (parse-atom + num)))))) + (if (eq? #\i next-c) + ((lambda () + (parse-number + fp + toks + all? + parens + ptbl + 10 + (lambda (num) + (inexact + (parse-atom num)))))) + (if (eq? #\b next-c) + ((lambda () + (parse-number + fp + toks + all? + parens + ptbl + 2 + (lambda (num) + (string->number + (list->string num) + 2))))) + (if (eq? #\o next-c) + ((lambda () + (parse-number + fp + toks + all? + parens + ptbl + 8 + (lambda (num) + (string->number + (list->string num) + 8))))) + (if (eq? #\x next-c) + ((lambda () + (parse-number + fp + toks + all? + parens + ptbl + 16 + (lambda (num) + (string->number + (list->string + num) + 16))))) + (if (eq? #\u next-c) + ((lambda () + (set! next-c + (read-char fp)) + (if (not (eq? #\8 + next-c)) + (parse-error + "Unhandled input sequence" + (in-port:get-lnum + ptbl) + (in-port:get-cnum + ptbl)) + #f) + (set! next-c + (read-char fp)) + (if (not (eq? #\( + next-c)) + (parse-error + "Unhandled input sequence" + (in-port:get-lnum + ptbl) + (in-port:get-cnum + ptbl)) + #f) + ((lambda (sub toks*) + (define new-toks + (add-tok + (if (if (pair? sub) + (dotted? + sub) + #f) + (parse-error + "Invalid vector syntax" + (in-port:get-lnum + ptbl) + (in-port:get-cnum + ptbl)) + (apply bytevector + sub)) + toks*)) + (if all? + (parse fp + '() + new-toks + all? + #f + parens + ptbl) + (car new-toks))) + (parse fp + '() + '() + #t + #f + (+ parens 1) + ptbl) + (get-toks + tok + toks)))) + (if (eq? #\( next-c) + ((lambda () + ((lambda (sub + toks*) + (define new-toks + (add-tok + (if (if (pair? sub) + (dotted? + sub) + #f) + (parse-error + "Invalid vector syntax" + (in-port:get-lnum + ptbl) + (in-port:get-cnum + ptbl)) + (list->vector + sub)) + toks*)) + (if all? + (parse fp + '() + new-toks + all? + #f + parens + ptbl) + (car new-toks))) + (parse fp + '() + '() + #t + #f + (+ parens + 1) + ptbl) + (get-toks + tok + toks)))) + (if (eq? #\\ next-c) + ((lambda () + ((lambda (new-toks) + (if all? + (parse fp + '() + new-toks + all? + #f + parens + ptbl) + (car new-toks))) + (cons (read-pound + fp + ptbl) + toks)))) + (if (eq? #\; next-c) + ((lambda () + (parse fp + '() + '() + #f + #f + 0 + ptbl) + (if (if (not all?) + (not (null? tok)) + #f) + ((lambda () + (in-port:set-buf! + ptbl + c) + (car (add-tok + (->tok tok) + toks)))) + ((lambda () + (parse fp + tok + toks + all? + #f + parens + ptbl)))))) + ((lambda () + (parse-error + "Unhandled input sequence" + (in-port:get-lnum + ptbl) + (in-port:get-cnum + ptbl))))))))))))))))) + (read-char fp)) + (parse fp + (cons c tok) + toks + all? + #f + parens + ptbl)))) + (if (eq? c #\|) + ((lambda () + (parse-literal-identifier + fp + toks + all? + parens + ptbl))) + ((lambda () + (parse fp + (cons c tok) + toks + all? + #f + parens + ptbl)))))))))))))))) + (if (in-port:get-buf ptbl) + (in-port:read-buf! ptbl) + (read-char fp))))) + (define read-pound + (lambda (fp ptbl) + (define done + (lambda (raw-buf) + ((lambda (buf) + (if (= 0 (length buf)) + ((lambda () + (parse-error + "missing character" + (in-port:get-lnum ptbl) + (in-port:get-cnum ptbl)))) + (if (= 1 (length buf)) + ((lambda () (car buf))) + (if (equal? buf '(#\a #\l #\a #\r #\m)) + ((lambda () (integer->char 7))) + (if (equal? + buf + '(#\b #\a #\c #\k #\s #\p #\a #\c #\e)) + ((lambda () (integer->char 8))) + (if (equal? buf '(#\d #\e #\l #\e #\t #\e)) + ((lambda () (integer->char 127))) + (if (equal? buf '(#\e #\s #\c #\a #\p #\e)) + ((lambda () (integer->char 27))) + (if (equal? buf '(#\n #\e #\w #\l #\i #\n #\e)) + ((lambda () (integer->char 10))) + (if (equal? buf '(#\n #\u #\l #\l)) + ((lambda () (integer->char 0))) + (if (equal? buf '(#\r #\e #\t #\u #\r #\n)) + ((lambda () (integer->char 13))) + (if (equal? buf '(#\s #\p #\a #\c #\e)) + ((lambda () (integer->char 32))) + (if (equal? buf '(#\t #\a #\b)) + ((lambda () (integer->char 9))) + (if (if (> (length buf) 1) + (equal? (car buf) #\x) + #f) + ((lambda () + (integer->char + (string->number + (list->string (cdr buf)) + 16)))) + ((lambda () + (parse-error + (string-append + "unable to parse character: " + (list->string buf)) + (in-port:get-lnum ptbl) + (in-port:get-cnum ptbl))))))))))))))))) + (reverse raw-buf)))) + (define loop + (lambda (buf) + ((lambda (c) + (if ((lambda (tmp) + (if tmp + tmp + ((lambda (tmp) + (if tmp + tmp + (if (> (length buf) 0) (equal? c #\)) #f))) + (if (char-whitespace? c) (> (length buf) 0) #f)))) + (eof-object? c)) + ((lambda () (done buf))) + ((lambda () (loop (cons (read-char fp) buf)))))) + (peek-char fp)))) + (loop '()))) + (define read-str + (lambda (fp buf ptbl) + ((lambda (c) + (if (eof-object? c) + ((lambda () + (parse-error + "missing closing double-quote" + (in-port:get-lnum ptbl) + (in-port:get-cnum ptbl)))) + (if (equal? #\\ c) + ((lambda () + (read-str fp (read-str-esc fp buf ptbl) ptbl))) + (if (equal? #\" c) + ((lambda () (list->string (reverse buf)))) + ((lambda () (read-str fp (cons c buf) ptbl))))))) + (read-char fp)))) + (define read-str-esc + (lambda (fp buf ptbl) + ((lambda (c) + (if (eof-object? c) + ((lambda () + (parse-error + "missing escaped character within string" + (in-port:get-lnum ptbl) + (in-port:get-cnum ptbl)))) + (if ((lambda (tmp) (if tmp tmp (equal? #\\ c))) + (equal? #\" c)) + ((lambda () (cons c buf))) + (if (equal? #\n c) + ((lambda () (cons #\newline buf))) + ((lambda () + (parse-error + (string-append + "invalid escape character [" + (list->string (list c)) + "] in string") + (in-port:get-lnum ptbl) + (in-port:get-cnum ptbl)))))))) + (read-char fp)))) + (define sign? + (lambda (c) + ((lambda (tmp) (if tmp tmp (equal? c #\-))) + (equal? c #\+)))) + (define token-numeric? + (lambda (a) + ((lambda (tmp) + (if tmp + tmp + ((lambda (tmp) + (if tmp + tmp + (if (> (length a) 1) + (if ((lambda (tmp) (if tmp tmp (eq? #\. (cadr a)))) + (char-numeric? (cadr a))) + (sign? (car a)) + #f) + #f))) + (if (> (length a) 1) + (if (eq? #\. (car a)) + (char-numeric? (cadr a)) + #f) + #f)))) + (char-numeric? (car a))))) + (define parse-atom + (lambda (a) + (if (token-numeric? a) + ((lambda () (string->number (list->string a)))) + ((lambda () (string->symbol (list->string a))))))) + (define get-next-char + (lambda (fp ptbl) + (if (in-port:get-buf ptbl) + (in-port:read-buf! ptbl) + (read-char fp)))) + (define read-block-comment + (lambda (fp ptbl) + ((lambda (c) + (if (eq? #\| c) + ((lambda () (read-block-terminator fp ptbl))) + ((lambda () (read-block-comment fp ptbl))))) + (get-next-char fp ptbl)))) + (define read-block-terminator + (lambda (fp ptbl) + ((lambda (c) + (if (eq? #\# c) + ((lambda () #t)) + (if (eq? #\| c) + ((lambda () (read-block-terminator fp ptbl))) + ((lambda () (read-block-comment fp ptbl)))))) + (get-next-char fp ptbl)))) + (define parse-literal-identifier + (lambda (fp toks all? parens ptbl) + ((lambda (sym) + (if all? + (parse fp + '() + (cons sym toks) + all? + #f + parens + ptbl) + sym)) + (parse-li-rec fp '() ptbl)))) + (define parse-li-rec + (lambda (fp tok ptbl) + ((lambda (c next) + (if (eq? #\| c) + ((lambda () + ((lambda (str) (string->symbol str)) + (if (null? tok) + "||" + (list->string (reverse tok)))))) + (if (eof-object? c) + ((lambda () + (parse-error + "EOF encountered parsing literal identifier" + (in-port:get-lnum ptbl) + (in-port:get-cnum ptbl)))) + ((lambda () (next c)))))) + (get-next-char fp ptbl) + (lambda (c) (parse-li-rec fp (cons c tok) ptbl))))) + (define parse-number + (lambda (fp toks all? parens ptbl base tok->num) + ((lambda (num) + (if (if (not (null? num)) + ((lambda (tmp) + (if tmp + tmp + (if (> (length num) 0) + (if (= base 16) (hex-digit? (car num)) #f) + #f))) + (token-numeric? num)) + #f) + ((lambda () + ((lambda (result) + (if all? + (parse fp + '() + (cons result toks) + all? + #f + parens + ptbl) + result)) + (tok->num num)))) + ((lambda () + (parse-error + "Illegal number syntax" + (in-port:get-lnum ptbl) + (in-port:get-cnum ptbl)))))) + (parse-number-rec base fp '() ptbl)))) + (define parse-number-rec + (lambda (base fp tok ptbl) + ((lambda (c next) + (if (sign? c) + ((lambda () (next c))) + (if (eq? #\. c) + ((lambda () (next c))) + (if (char-numeric? c) + ((lambda () + (if ((lambda (tmp) + (if tmp tmp (if (= base 8) (char>? c #\7) #f))) + (if (= base 2) (char>? c #\1) #f)) + (parse-error + "Illegal digit" + (in-port:get-lnum ptbl) + (in-port:get-cnum ptbl)) + #f) + (next c))) + (if (if (= base 16) (hex-digit? c) #f) + ((lambda () (next c))) + ((lambda () + (in-port:set-buf! ptbl c) + (reverse tok)))))))) + (get-next-char fp ptbl) + (lambda (c) + (parse-number-rec base fp (cons c tok) ptbl))))) + (define hex-digit? + (lambda (c) + ((lambda (tmp) + (if tmp + tmp + (if (char>=? c #\A) (char<=? c #\F) #f))) + (if (char>=? c #\a) (char<=? c #\f) #f)))) + (define cyc-read + (lambda args + ((lambda (fp) + (parse fp '() '() #f #f 0 (reg-port fp))) + (if (null? args) (current-input-port) (car args))))) + (define read-all + (lambda args + ((lambda (fp) + (define loop + (lambda (fp result) + ((lambda (obj) + (if (eof-object? obj) + (reverse result) + (loop fp (cons obj result)))) + (cyc-read fp)))) + (loop fp '())) + (if (null? args) (current-input-port) (car args)))))) + */ +/* +"---------------- after processing globals" + */ +/* +((define read #f) + (define *in-port-table* #f) + (define reg-port + (lambda (fp) + ((lambda (r) + (if (not r) + ((lambda () + (set! r (list fp #f 1 0)) + (set! *in-port-table* (cons r *in-port-table*)) + r)) + ((lambda () r)))) + (assoc fp *in-port-table*)))) + (define in-port:read-buf! + (lambda (ptbl) + ((lambda (result) + (in-port:set-buf! ptbl #f) + result) + (cadr ptbl)))) + (define in-port:get-buf + (lambda (ptbl) (cadr ptbl))) + (define in-port:set-buf! + (lambda (ptbl buf) (set-car! (cdr ptbl) buf))) + (define in-port:get-lnum + (lambda (ptbl) (caddr ptbl))) + (define in-port:set-lnum! + (lambda (ptbl lnum) (set-car! (cddr ptbl) lnum))) + (define in-port:get-cnum + (lambda (ptbl) (cadddr ptbl))) + (define in-port:set-cnum! + (lambda (ptbl cnum) (set-car! (cdddr ptbl) cnum))) + (define add-tok + (lambda (tok toks) (cons tok toks))) + (define get-toks + (lambda (tok toks) + (if (null? tok) toks (add-tok (->tok tok) toks)))) + (define ->tok + (lambda (lst) (parse-atom (reverse lst)))) + (define dotted? + (lambda (lst) + (if (> (length lst) 2) + (equal? + (cadr (reverse lst)) + (string->symbol ".")) + #f))) + (define ->dotted-list + (lambda (lst) + (if (null? lst) + ((lambda () '())) + (if (equal? (car lst) (string->symbol ".")) + ((lambda () (cadr lst))) + ((lambda () + (cons (car lst) (->dotted-list (cdr lst))))))))) + (define parse-error + (lambda (msg lnum cnum) + (error (string-append + "Error (line " + (number->string lnum) + ", char " + (number->string cnum) + "): " + msg)))) + (define parse/tok + (lambda (fp tok toks all? comment? parens ptbl curr-char) + (if (null? tok) + ((lambda () + (parse fp '() toks all? comment? parens ptbl))) + (if all? + ((lambda () + (parse fp + '() + (add-tok (->tok tok) toks) + all? + comment? + parens + ptbl))) + ((lambda () + (in-port:set-buf! ptbl curr-char) + (car (add-tok (->tok tok) toks)))))))) + (define parse + (lambda (fp tok toks all? comment? parens ptbl) + (in-port:set-cnum! + ptbl + (+ 1 (in-port:get-cnum ptbl))) + ((lambda (c) + (if (eof-object? c) + ((lambda () + (if (> parens 0) + (parse-error + "missing closing parenthesis" + (in-port:get-lnum ptbl) + (in-port:get-cnum ptbl)) + #f) + (if all? + (reverse (get-toks tok toks)) + ((lambda (last) + (if (> (length last) 0) (car last) c)) + (get-toks tok toks))))) + (if comment? + ((lambda () + (if (eq? c #\newline) + ((lambda () + (in-port:set-lnum! + ptbl + (+ 1 (in-port:get-lnum ptbl))) + (in-port:set-cnum! ptbl 0) + (parse fp '() toks all? #f parens ptbl))) + (parse fp '() toks all? #t parens ptbl)))) + (if (char-whitespace? c) + ((lambda () + (if (equal? c #\newline) + (in-port:set-lnum! + ptbl + (+ 1 (in-port:get-lnum ptbl))) + #f) + (if (equal? c #\newline) + (in-port:set-cnum! ptbl 0) + #f) + (parse/tok fp tok toks all? #f parens ptbl c))) + (if (eq? c #\;) + ((lambda () + (parse/tok fp tok toks all? #t parens ptbl c))) + (if (eq? c #\') + ((lambda () + (if (if (not all?) (not (null? tok)) #f) + ((lambda () + (in-port:set-buf! ptbl c) + (car (add-tok (->tok tok) toks)))) + ((lambda () + ((lambda (sub) + (define new-toks + (add-tok (list 'quote sub) (get-toks tok toks))) + (if all? + (parse fp '() new-toks all? #f parens ptbl) + (car new-toks))) + (parse fp '() '() #f #f 0 ptbl))))))) + (if (eq? c #\`) + ((lambda () + (if (if (not all?) (not (null? tok)) #f) + ((lambda () + (in-port:set-buf! ptbl c) + (car (add-tok (->tok tok) toks)))) + ((lambda () + ((lambda (sub) + (define new-toks + (add-tok + (list 'quasiquote sub) + (get-toks tok toks))) + (if all? + (parse fp '() new-toks all? #f parens ptbl) + (car new-toks))) + (parse fp '() '() #f #f 0 ptbl))))))) + (if (eq? c #\,) + ((lambda () + (if (if (not all?) (not (null? tok)) #f) + ((lambda () + (in-port:set-buf! ptbl c) + (car (add-tok (->tok tok) toks)))) + ((lambda () + ((lambda (sub next-c unquote-sym new-toks) + (set! sub #f) + (set! next-c (read-char fp)) + (set! unquote-sym + (if (equal? next-c #\@) + 'unquote-splicing + 'unquote)) + (set! new-toks #f) + (if (eof-object? next-c) + ((lambda () + (parse-error + "unexpected end of file" + (in-port:get-lnum ptbl) + (in-port:get-cnum ptbl)))) + (if (not (equal? next-c #\@)) + ((lambda () + (in-port:set-buf! ptbl next-c))) + ((lambda () #f)))) + (set! sub (parse fp '() '() #f #f 0 ptbl)) + (set! new-toks + (add-tok + (list unquote-sym sub) + (get-toks tok toks))) + (if all? + (parse fp '() new-toks all? #f parens ptbl) + (car new-toks))) + #f + #f + #f + #f)))))) + (if (eq? c #\() + ((lambda () + (if (if (not all?) (not (null? tok)) #f) + ((lambda () + (in-port:set-buf! ptbl c) + (car (add-tok (->tok tok) toks)))) + ((lambda () + ((lambda (sub toks*) + (define new-toks + (add-tok + (if (if (pair? sub) (dotted? sub) #f) + (->dotted-list sub) + sub) + toks*)) + (if all? + (parse fp '() new-toks all? #f parens ptbl) + (car new-toks))) + (parse fp '() '() #t #f (+ parens 1) ptbl) + (get-toks tok toks))))))) + (if (eq? c #\)) + ((lambda () + (if (if (not all?) (not (null? tok)) #f) + ((lambda () + (in-port:set-buf! ptbl c) + (car (add-tok (->tok tok) toks)))) + (if (= parens 0) + ((lambda () + (parse-error + "unexpected closing parenthesis" + (in-port:get-lnum ptbl) + (in-port:get-cnum ptbl)))) + ((lambda () (reverse (get-toks tok toks)))))))) + (if (eq? c #\") + ((lambda () + (if (if (not all?) (not (null? tok)) #f) + ((lambda () + (in-port:set-buf! ptbl c) + (car (add-tok (->tok tok) toks)))) + ((lambda () + ((lambda (str toks*) + (define new-toks (add-tok str toks*)) + (if all? + (parse fp + '() + new-toks + all? + #f + parens + ptbl) + (car new-toks))) + (read-str fp '() ptbl) + (get-toks tok toks))))))) + (if (eq? c #\#) + ((lambda () + (if (null? tok) + ((lambda (next-c) + (in-port:set-cnum! + ptbl + (+ 1 (in-port:get-cnum ptbl))) + (if (eq? #\| next-c) + ((lambda () + (read-block-comment fp ptbl) + (parse fp + '() + toks + all? + #f + parens + ptbl))) + (if (eq? #\t next-c) + ((lambda () + (if all? + (parse fp + '() + (cons #t toks) + all? + #f + parens + ptbl) + #t))) + (if (eq? #\f next-c) + ((lambda () + (if all? + (parse fp + '() + (cons #f toks) + all? + #f + parens + ptbl) + #f))) + (if (eq? #\e next-c) + ((lambda () + (parse-number + fp + toks + all? + parens + ptbl + 10 + (lambda (num) + (exact (parse-atom + num)))))) + (if (eq? #\i next-c) + ((lambda () + (parse-number + fp + toks + all? + parens + ptbl + 10 + (lambda (num) + (inexact + (parse-atom num)))))) + (if (eq? #\b next-c) + ((lambda () + (parse-number + fp + toks + all? + parens + ptbl + 2 + (lambda (num) + (string->number + (list->string num) + 2))))) + (if (eq? #\o next-c) + ((lambda () + (parse-number + fp + toks + all? + parens + ptbl + 8 + (lambda (num) + (string->number + (list->string num) + 8))))) + (if (eq? #\x next-c) + ((lambda () + (parse-number + fp + toks + all? + parens + ptbl + 16 + (lambda (num) + (string->number + (list->string + num) + 16))))) + (if (eq? #\u next-c) + ((lambda () + (set! next-c + (read-char fp)) + (if (not (eq? #\8 + next-c)) + (parse-error + "Unhandled input sequence" + (in-port:get-lnum + ptbl) + (in-port:get-cnum + ptbl)) + #f) + (set! next-c + (read-char fp)) + (if (not (eq? #\( + next-c)) + (parse-error + "Unhandled input sequence" + (in-port:get-lnum + ptbl) + (in-port:get-cnum + ptbl)) + #f) + ((lambda (sub toks*) + (define new-toks + (add-tok + (if (if (pair? sub) + (dotted? + sub) + #f) + (parse-error + "Invalid vector syntax" + (in-port:get-lnum + ptbl) + (in-port:get-cnum + ptbl)) + (apply bytevector + sub)) + toks*)) + (if all? + (parse fp + '() + new-toks + all? + #f + parens + ptbl) + (car new-toks))) + (parse fp + '() + '() + #t + #f + (+ parens 1) + ptbl) + (get-toks + tok + toks)))) + (if (eq? #\( next-c) + ((lambda () + ((lambda (sub + toks*) + (define new-toks + (add-tok + (if (if (pair? sub) + (dotted? + sub) + #f) + (parse-error + "Invalid vector syntax" + (in-port:get-lnum + ptbl) + (in-port:get-cnum + ptbl)) + (list->vector + sub)) + toks*)) + (if all? + (parse fp + '() + new-toks + all? + #f + parens + ptbl) + (car new-toks))) + (parse fp + '() + '() + #t + #f + (+ parens + 1) + ptbl) + (get-toks + tok + toks)))) + (if (eq? #\\ next-c) + ((lambda () + ((lambda (new-toks) + (if all? + (parse fp + '() + new-toks + all? + #f + parens + ptbl) + (car new-toks))) + (cons (read-pound + fp + ptbl) + toks)))) + (if (eq? #\; next-c) + ((lambda () + (parse fp + '() + '() + #f + #f + 0 + ptbl) + (if (if (not all?) + (not (null? tok)) + #f) + ((lambda () + (in-port:set-buf! + ptbl + c) + (car (add-tok + (->tok tok) + toks)))) + ((lambda () + (parse fp + tok + toks + all? + #f + parens + ptbl)))))) + ((lambda () + (parse-error + "Unhandled input sequence" + (in-port:get-lnum + ptbl) + (in-port:get-cnum + ptbl))))))))))))))))) + (read-char fp)) + (parse fp + (cons c tok) + toks + all? + #f + parens + ptbl)))) + (if (eq? c #\|) + ((lambda () + (parse-literal-identifier + fp + toks + all? + parens + ptbl))) + ((lambda () + (parse fp + (cons c tok) + toks + all? + #f + parens + ptbl)))))))))))))))) + (if (in-port:get-buf ptbl) + (in-port:read-buf! ptbl) + (read-char fp))))) + (define read-pound + (lambda (fp ptbl) + (define done + (lambda (raw-buf) + ((lambda (buf) + (if (= 0 (length buf)) + ((lambda () + (parse-error + "missing character" + (in-port:get-lnum ptbl) + (in-port:get-cnum ptbl)))) + (if (= 1 (length buf)) + ((lambda () (car buf))) + (if (equal? buf '(#\a #\l #\a #\r #\m)) + ((lambda () (integer->char 7))) + (if (equal? + buf + '(#\b #\a #\c #\k #\s #\p #\a #\c #\e)) + ((lambda () (integer->char 8))) + (if (equal? buf '(#\d #\e #\l #\e #\t #\e)) + ((lambda () (integer->char 127))) + (if (equal? buf '(#\e #\s #\c #\a #\p #\e)) + ((lambda () (integer->char 27))) + (if (equal? buf '(#\n #\e #\w #\l #\i #\n #\e)) + ((lambda () (integer->char 10))) + (if (equal? buf '(#\n #\u #\l #\l)) + ((lambda () (integer->char 0))) + (if (equal? buf '(#\r #\e #\t #\u #\r #\n)) + ((lambda () (integer->char 13))) + (if (equal? buf '(#\s #\p #\a #\c #\e)) + ((lambda () (integer->char 32))) + (if (equal? buf '(#\t #\a #\b)) + ((lambda () (integer->char 9))) + (if (if (> (length buf) 1) + (equal? (car buf) #\x) + #f) + ((lambda () + (integer->char + (string->number + (list->string (cdr buf)) + 16)))) + ((lambda () + (parse-error + (string-append + "unable to parse character: " + (list->string buf)) + (in-port:get-lnum ptbl) + (in-port:get-cnum ptbl))))))))))))))))) + (reverse raw-buf)))) + (define loop + (lambda (buf) + ((lambda (c) + (if ((lambda (tmp) + (if tmp + tmp + ((lambda (tmp) + (if tmp + tmp + (if (> (length buf) 0) (equal? c #\)) #f))) + (if (char-whitespace? c) (> (length buf) 0) #f)))) + (eof-object? c)) + ((lambda () (done buf))) + ((lambda () (loop (cons (read-char fp) buf)))))) + (peek-char fp)))) + (loop '()))) + (define read-str + (lambda (fp buf ptbl) + ((lambda (c) + (if (eof-object? c) + ((lambda () + (parse-error + "missing closing double-quote" + (in-port:get-lnum ptbl) + (in-port:get-cnum ptbl)))) + (if (equal? #\\ c) + ((lambda () + (read-str fp (read-str-esc fp buf ptbl) ptbl))) + (if (equal? #\" c) + ((lambda () (list->string (reverse buf)))) + ((lambda () (read-str fp (cons c buf) ptbl))))))) + (read-char fp)))) + (define read-str-esc + (lambda (fp buf ptbl) + ((lambda (c) + (if (eof-object? c) + ((lambda () + (parse-error + "missing escaped character within string" + (in-port:get-lnum ptbl) + (in-port:get-cnum ptbl)))) + (if ((lambda (tmp) (if tmp tmp (equal? #\\ c))) + (equal? #\" c)) + ((lambda () (cons c buf))) + (if (equal? #\n c) + ((lambda () (cons #\newline buf))) + ((lambda () + (parse-error + (string-append + "invalid escape character [" + (list->string (list c)) + "] in string") + (in-port:get-lnum ptbl) + (in-port:get-cnum ptbl)))))))) + (read-char fp)))) + (define sign? + (lambda (c) + ((lambda (tmp) (if tmp tmp (equal? c #\-))) + (equal? c #\+)))) + (define token-numeric? + (lambda (a) + ((lambda (tmp) + (if tmp + tmp + ((lambda (tmp) + (if tmp + tmp + (if (> (length a) 1) + (if ((lambda (tmp) (if tmp tmp (eq? #\. (cadr a)))) + (char-numeric? (cadr a))) + (sign? (car a)) + #f) + #f))) + (if (> (length a) 1) + (if (eq? #\. (car a)) + (char-numeric? (cadr a)) + #f) + #f)))) + (char-numeric? (car a))))) + (define parse-atom + (lambda (a) + (if (token-numeric? a) + ((lambda () (string->number (list->string a)))) + ((lambda () (string->symbol (list->string a))))))) + (define get-next-char + (lambda (fp ptbl) + (if (in-port:get-buf ptbl) + (in-port:read-buf! ptbl) + (read-char fp)))) + (define read-block-comment + (lambda (fp ptbl) + ((lambda (c) + (if (eq? #\| c) + ((lambda () (read-block-terminator fp ptbl))) + ((lambda () (read-block-comment fp ptbl))))) + (get-next-char fp ptbl)))) + (define read-block-terminator + (lambda (fp ptbl) + ((lambda (c) + (if (eq? #\# c) + ((lambda () #t)) + (if (eq? #\| c) + ((lambda () (read-block-terminator fp ptbl))) + ((lambda () (read-block-comment fp ptbl)))))) + (get-next-char fp ptbl)))) + (define parse-literal-identifier + (lambda (fp toks all? parens ptbl) + ((lambda (sym) + (if all? + (parse fp + '() + (cons sym toks) + all? + #f + parens + ptbl) + sym)) + (parse-li-rec fp '() ptbl)))) + (define parse-li-rec + (lambda (fp tok ptbl) + ((lambda (c next) + (if (eq? #\| c) + ((lambda () + ((lambda (str) (string->symbol str)) + (if (null? tok) + "||" + (list->string (reverse tok)))))) + (if (eof-object? c) + ((lambda () + (parse-error + "EOF encountered parsing literal identifier" + (in-port:get-lnum ptbl) + (in-port:get-cnum ptbl)))) + ((lambda () (next c)))))) + (get-next-char fp ptbl) + (lambda (c) (parse-li-rec fp (cons c tok) ptbl))))) + (define parse-number + (lambda (fp toks all? parens ptbl base tok->num) + ((lambda (num) + (if (if (not (null? num)) + ((lambda (tmp) + (if tmp + tmp + (if (> (length num) 0) + (if (= base 16) (hex-digit? (car num)) #f) + #f))) + (token-numeric? num)) + #f) + ((lambda () + ((lambda (result) + (if all? + (parse fp + '() + (cons result toks) + all? + #f + parens + ptbl) + result)) + (tok->num num)))) + ((lambda () + (parse-error + "Illegal number syntax" + (in-port:get-lnum ptbl) + (in-port:get-cnum ptbl)))))) + (parse-number-rec base fp '() ptbl)))) + (define parse-number-rec + (lambda (base fp tok ptbl) + ((lambda (c next) + (if (sign? c) + ((lambda () (next c))) + (if (eq? #\. c) + ((lambda () (next c))) + (if (char-numeric? c) + ((lambda () + (if ((lambda (tmp) + (if tmp tmp (if (= base 8) (char>? c #\7) #f))) + (if (= base 2) (char>? c #\1) #f)) + (parse-error + "Illegal digit" + (in-port:get-lnum ptbl) + (in-port:get-cnum ptbl)) + #f) + (next c))) + (if (if (= base 16) (hex-digit? c) #f) + ((lambda () (next c))) + ((lambda () + (in-port:set-buf! ptbl c) + (reverse tok)))))))) + (get-next-char fp ptbl) + (lambda (c) + (parse-number-rec base fp (cons c tok) ptbl))))) + (define hex-digit? + (lambda (c) + ((lambda (tmp) + (if tmp + tmp + (if (char>=? c #\A) (char<=? c #\F) #f))) + (if (char>=? c #\a) (char<=? c #\f) #f)))) + (define cyc-read + (lambda args + ((lambda (fp) + (parse fp '() '() #f #f 0 (reg-port fp))) + (if (null? args) (current-input-port) (car args))))) + (define read-all + (lambda args + ((lambda (fp) + (define loop + (lambda (fp result) + ((lambda (obj) + (if (eof-object? obj) + (reverse result) + (loop fp (cons obj result)))) + (cyc-read fp)))) + (loop fp '())) + (if (null? args) (current-input-port) (car args))))) + (define lib-init:schemeread + (lambda () + 0 + (set! read cyc-read) + (set! *in-port-table* '())))) + */ +/* +"---------------- after alpha conversion:" + */ +/* +((define read #f) + (define *in-port-table* #f) + (define reg-port + (lambda (fp$262) + ((lambda (r$263) + (if r$263 + ((lambda () r$263)) + ((lambda () + (set! r$263 (list fp$262 #f 1 0)) + (set! *in-port-table* + (cons r$263 *in-port-table*)) + r$263)))) + (assoc fp$262 *in-port-table*)))) + (define in-port:read-buf! + (lambda (ptbl$260) + ((lambda (result$261) + (in-port:set-buf! ptbl$260 #f) + result$261) + (cadr ptbl$260)))) + (define in-port:get-buf + (lambda (ptbl$259) (cadr ptbl$259))) + (define in-port:set-buf! + (lambda (ptbl$258 buf$257) + (set-car! (cdr ptbl$258) buf$257))) + (define in-port:get-lnum + (lambda (ptbl$256) (caddr ptbl$256))) + (define in-port:set-lnum! + (lambda (ptbl$255 lnum$254) + (set-car! (cddr ptbl$255) lnum$254))) + (define in-port:get-cnum + (lambda (ptbl$253) (cadddr ptbl$253))) + (define in-port:set-cnum! + (lambda (ptbl$252 cnum$251) + (set-car! (cdddr ptbl$252) cnum$251))) + (define add-tok + (lambda (tok$250 toks$249) + (cons tok$250 toks$249))) + (define get-toks + (lambda (tok$248 toks$247) + (if (null? tok$248) + toks$247 + (add-tok (->tok tok$248) toks$247)))) + (define ->tok + (lambda (lst$246) (parse-atom (reverse lst$246)))) + (define dotted? + (lambda (lst$245) + (if (> (length lst$245) 2) + (equal? + (cadr (reverse lst$245)) + (string->symbol ".")) + #f))) + (define ->dotted-list + (lambda (lst$244) + (if (null? lst$244) + ((lambda () '())) + (if (equal? (car lst$244) (string->symbol ".")) + ((lambda () (cadr lst$244))) + ((lambda () + (cons (car lst$244) + (->dotted-list (cdr lst$244))))))))) + (define parse-error + (lambda (msg$243 lnum$242 cnum$241) + (error (string-append + "Error (line " + (number->string lnum$242) + ", char " + (number->string cnum$241) + "): " + msg$243)))) + (define parse/tok + (lambda (fp$240 + tok$239 + toks$238 + all?$237 + comment?$236 + parens$235 + ptbl$234 + curr-char$233) + (if (null? tok$239) + ((lambda () + (parse fp$240 + '() + toks$238 + all?$237 + comment?$236 + parens$235 + ptbl$234))) + (if all?$237 + ((lambda () + (parse fp$240 + '() + (add-tok (->tok tok$239) toks$238) + all?$237 + comment?$236 + parens$235 + ptbl$234))) + ((lambda () + (in-port:set-buf! ptbl$234 curr-char$233) + (car (add-tok (->tok tok$239) toks$238)))))))) + (define parse + (lambda (fp$202 + tok$201 + toks$200 + all?$199 + comment?$198 + parens$197 + ptbl$196) + ((lambda (new-toks$203) + (in-port:set-cnum! + ptbl$196 + (+ 1 (in-port:get-cnum ptbl$196))) + ((lambda (c$204) + (if (eof-object? c$204) + ((lambda () + (if (> parens$197 0) + (parse-error + "missing closing parenthesis" + (in-port:get-lnum ptbl$196) + (in-port:get-cnum ptbl$196)) + #f) + (if all?$199 + (reverse (get-toks tok$201 toks$200)) + ((lambda (last$232) + (if (> (length last$232) 0) (car last$232) c$204)) + (get-toks tok$201 toks$200))))) + (if comment?$198 + ((lambda () + (if (eq? c$204 #\newline) + ((lambda () + (in-port:set-lnum! + ptbl$196 + (+ 1 (in-port:get-lnum ptbl$196))) + (in-port:set-cnum! ptbl$196 0) + (parse fp$202 + '() + toks$200 + all?$199 + #f + parens$197 + ptbl$196))) + (parse fp$202 + '() + toks$200 + all?$199 + #t + parens$197 + ptbl$196)))) + (if (char-whitespace? c$204) + ((lambda () + (if (equal? c$204 #\newline) + (in-port:set-lnum! + ptbl$196 + (+ 1 (in-port:get-lnum ptbl$196))) + #f) + (if (equal? c$204 #\newline) + (in-port:set-cnum! ptbl$196 0) + #f) + (parse/tok + fp$202 + tok$201 + toks$200 + all?$199 + #f + parens$197 + ptbl$196 + c$204))) + (if (eq? c$204 #\;) + ((lambda () + (parse/tok + fp$202 + tok$201 + toks$200 + all?$199 + #t + parens$197 + ptbl$196 + c$204))) + (if (eq? c$204 #\') + ((lambda () + (if (if all?$199 #f (not (null? tok$201))) + ((lambda () + (in-port:set-buf! ptbl$196 c$204) + (car (add-tok (->tok tok$201) toks$200)))) + ((lambda () + ((lambda (sub$230) + ((lambda (new-toks$231) + (set! new-toks$231 + (add-tok + (list 'quote sub$230) + (get-toks tok$201 toks$200))) + (if all?$199 + (parse fp$202 + '() + new-toks$231 + all?$199 + #f + parens$197 + ptbl$196) + (car new-toks$231))) + #f)) + (parse fp$202 '() '() #f #f 0 ptbl$196))))))) + (if (eq? c$204 #\`) + ((lambda () + (if (if all?$199 #f (not (null? tok$201))) + ((lambda () + (in-port:set-buf! ptbl$196 c$204) + (car (add-tok (->tok tok$201) toks$200)))) + ((lambda () + ((lambda (sub$228) + ((lambda (new-toks$229) + (set! new-toks$229 + (add-tok + (list 'quasiquote sub$228) + (get-toks tok$201 toks$200))) + (if all?$199 + (parse fp$202 + '() + new-toks$229 + all?$199 + #f + parens$197 + ptbl$196) + (car new-toks$229))) + #f)) + (parse fp$202 '() '() #f #f 0 ptbl$196))))))) + (if (eq? c$204 #\,) + ((lambda () + (if (if all?$199 #f (not (null? tok$201))) + ((lambda () + (in-port:set-buf! ptbl$196 c$204) + (car (add-tok (->tok tok$201) toks$200)))) + ((lambda () + ((lambda (sub$227 + next-c$226 + unquote-sym$225 + new-toks$224) + (set! sub$227 #f) + (set! next-c$226 (read-char fp$202)) + (set! unquote-sym$225 + (if (equal? next-c$226 #\@) + 'unquote-splicing + 'unquote)) + (set! new-toks$224 #f) + (if (eof-object? next-c$226) + ((lambda () + (parse-error + "unexpected end of file" + (in-port:get-lnum ptbl$196) + (in-port:get-cnum ptbl$196)))) + (if (equal? next-c$226 #\@) + ((lambda () #f)) + ((lambda () + (in-port:set-buf! + ptbl$196 + next-c$226))))) + (set! sub$227 + (parse fp$202 '() '() #f #f 0 ptbl$196)) + (set! new-toks$224 + (add-tok + (list unquote-sym$225 sub$227) + (get-toks tok$201 toks$200))) + (if all?$199 + (parse fp$202 + '() + new-toks$224 + all?$199 + #f + parens$197 + ptbl$196) + (car new-toks$224))) + #f + #f + #f + #f)))))) + (if (eq? c$204 #\() + ((lambda () + (if (if all?$199 #f (not (null? tok$201))) + ((lambda () + (in-port:set-buf! ptbl$196 c$204) + (car (add-tok (->tok tok$201) toks$200)))) + ((lambda () + ((lambda (sub$222 toks*$221) + ((lambda (new-toks$223) + (set! new-toks$223 + (add-tok + (if (if (pair? sub$222) + (dotted? sub$222) + #f) + (->dotted-list sub$222) + sub$222) + toks*$221)) + (if all?$199 + (parse fp$202 + '() + new-toks$223 + all?$199 + #f + parens$197 + ptbl$196) + (car new-toks$223))) + #f)) + (parse fp$202 + '() + '() + #t + #f + (+ parens$197 1) + ptbl$196) + (get-toks tok$201 toks$200))))))) + (if (eq? c$204 #\)) + ((lambda () + (if (if all?$199 #f (not (null? tok$201))) + ((lambda () + (in-port:set-buf! ptbl$196 c$204) + (car (add-tok (->tok tok$201) toks$200)))) + (if (= parens$197 0) + ((lambda () + (parse-error + "unexpected closing parenthesis" + (in-port:get-lnum ptbl$196) + (in-port:get-cnum ptbl$196)))) + ((lambda () + (reverse + (get-toks tok$201 toks$200)))))))) + (if (eq? c$204 #\") + ((lambda () + (if (if all?$199 #f (not (null? tok$201))) + ((lambda () + (in-port:set-buf! ptbl$196 c$204) + (car (add-tok + (->tok tok$201) + toks$200)))) + ((lambda () + ((lambda (str$219 toks*$218) + ((lambda (new-toks$220) + (set! new-toks$220 + (add-tok str$219 toks*$218)) + (if all?$199 + (parse fp$202 + '() + new-toks$220 + all?$199 + #f + parens$197 + ptbl$196) + (car new-toks$220))) + #f)) + (read-str fp$202 '() ptbl$196) + (get-toks tok$201 toks$200))))))) + (if (eq? c$204 #\#) + ((lambda () + (if (null? tok$201) + ((lambda (next-c$205) + (in-port:set-cnum! + ptbl$196 + (+ 1 (in-port:get-cnum ptbl$196))) + (if (eq? #\| next-c$205) + ((lambda () + (read-block-comment + fp$202 + ptbl$196) + (parse fp$202 + '() + toks$200 + all?$199 + #f + parens$197 + ptbl$196))) + (if (eq? #\t next-c$205) + ((lambda () + (if all?$199 + (parse fp$202 + '() + (cons #t toks$200) + all?$199 + #f + parens$197 + ptbl$196) + #t))) + (if (eq? #\f next-c$205) + ((lambda () + (if all?$199 + (parse fp$202 + '() + (cons #f toks$200) + all?$199 + #f + parens$197 + ptbl$196) + #f))) + (if (eq? #\e next-c$205) + ((lambda () + (parse-number + fp$202 + toks$200 + all?$199 + parens$197 + ptbl$196 + 10 + (lambda (num$217) + (exact (parse-atom + num$217)))))) + (if (eq? #\i next-c$205) + ((lambda () + (parse-number + fp$202 + toks$200 + all?$199 + parens$197 + ptbl$196 + 10 + (lambda (num$216) + (inexact + (parse-atom + num$216)))))) + (if (eq? #\b next-c$205) + ((lambda () + (parse-number + fp$202 + toks$200 + all?$199 + parens$197 + ptbl$196 + 2 + (lambda (num$215) + (string->number + (list->string + num$215) + 2))))) + (if (eq? #\o next-c$205) + ((lambda () + (parse-number + fp$202 + toks$200 + all?$199 + parens$197 + ptbl$196 + 8 + (lambda (num$214) + (string->number + (list->string + num$214) + 8))))) + (if (eq? #\x next-c$205) + ((lambda () + (parse-number + fp$202 + toks$200 + all?$199 + parens$197 + ptbl$196 + 16 + (lambda (num$213) + (string->number + (list->string + num$213) + 16))))) + (if (eq? #\u + next-c$205) + ((lambda () + (set! next-c$205 + (read-char + fp$202)) + (if (eq? #\8 + next-c$205) + #f + (parse-error + "Unhandled input sequence" + (in-port:get-lnum + ptbl$196) + (in-port:get-cnum + ptbl$196))) + (set! next-c$205 + (read-char + fp$202)) + (if (eq? #\( + next-c$205) + #f + (parse-error + "Unhandled input sequence" + (in-port:get-lnum + ptbl$196) + (in-port:get-cnum + ptbl$196))) + ((lambda (sub$211 + toks*$210) + ((lambda (new-toks$212) + (set! new-toks$212 + (add-tok + (if (if (pair? sub$211) + (dotted? + sub$211) + #f) + (parse-error + "Invalid vector syntax" + (in-port:get-lnum + ptbl$196) + (in-port:get-cnum + ptbl$196)) + (apply bytevector + sub$211)) + toks*$210)) + (if all?$199 + (parse fp$202 + '() + new-toks$212 + all?$199 + #f + parens$197 + ptbl$196) + (car new-toks$212))) + #f)) + (parse fp$202 + '() + '() + #t + #f + (+ parens$197 + 1) + ptbl$196) + (get-toks + tok$201 + toks$200)))) + (if (eq? #\( + next-c$205) + ((lambda () + ((lambda (sub$208 + toks*$207) + ((lambda (new-toks$209) + (set! new-toks$209 + (add-tok + (if (if (pair? sub$208) + (dotted? + sub$208) + #f) + (parse-error + "Invalid vector syntax" + (in-port:get-lnum + ptbl$196) + (in-port:get-cnum + ptbl$196)) + (list->vector + sub$208)) + toks*$207)) + (if all?$199 + (parse fp$202 + '() + new-toks$209 + all?$199 + #f + parens$197 + ptbl$196) + (car new-toks$209))) + #f)) + (parse fp$202 + '() + '() + #t + #f + (+ parens$197 + 1) + ptbl$196) + (get-toks + tok$201 + toks$200)))) + (if (eq? #\\ + next-c$205) + ((lambda () + ((lambda (new-toks$206) + (if all?$199 + (parse fp$202 + '() + new-toks$206 + all?$199 + #f + parens$197 + ptbl$196) + (car new-toks$206))) + (cons (read-pound + fp$202 + ptbl$196) + toks$200)))) + (if (eq? #\; + next-c$205) + ((lambda () + (parse fp$202 + '() + '() + #f + #f + 0 + ptbl$196) + (if (if all?$199 + #f + (not (null? tok$201))) + ((lambda () + (in-port:set-buf! + ptbl$196 + c$204) + (car (add-tok + (->tok tok$201) + toks$200)))) + ((lambda () + (parse fp$202 + tok$201 + toks$200 + all?$199 + #f + parens$197 + ptbl$196)))))) + ((lambda () + (parse-error + "Unhandled input sequence" + (in-port:get-lnum + ptbl$196) + (in-port:get-cnum + ptbl$196))))))))))))))))) + (read-char fp$202)) + (parse fp$202 + (cons c$204 tok$201) + toks$200 + all?$199 + #f + parens$197 + ptbl$196)))) + (if (eq? c$204 #\|) + ((lambda () + (parse-literal-identifier + fp$202 + toks$200 + all?$199 + parens$197 + ptbl$196))) + ((lambda () + (parse fp$202 + (cons c$204 tok$201) + toks$200 + all?$199 + #f + parens$197 + ptbl$196)))))))))))))))) + (if (in-port:get-buf ptbl$196) + (in-port:read-buf! ptbl$196) + (read-char fp$202)))) + #f))) + (define read-pound + (lambda (fp$183 ptbl$182) + ((lambda (done$187 loop$186) + ((lambda (done$189 loop$188) + (set! done$187 + (lambda (raw-buf$194) + ((lambda (buf$195) + (if (= 0 (length buf$195)) + ((lambda () + (parse-error + "missing character" + (in-port:get-lnum ptbl$182) + (in-port:get-cnum ptbl$182)))) + (if (= 1 (length buf$195)) + ((lambda () (car buf$195))) + (if (equal? buf$195 '(#\a #\l #\a #\r #\m)) + ((lambda () #\)) + (if (equal? + buf$195 + '(#\b #\a #\c #\k #\s #\p #\a #\c #\e)) + ((lambda () #\)) + (if (equal? buf$195 '(#\d #\e #\l #\e #\t #\e)) + ((lambda () #\)) + (if (equal? buf$195 '(#\e #\s #\c #\a #\p #\e)) + ((lambda () #\)) + (if (equal? + buf$195 + '(#\n #\e #\w #\l #\i #\n #\e)) + ((lambda () #\newline)) + (if (equal? buf$195 '(#\n #\u #\l #\l)) + ((lambda () #\)) + (if (equal? + buf$195 + '(#\r #\e #\t #\u #\r #\n)) + ((lambda () #\ )) + (if (equal? buf$195 '(#\s #\p #\a #\c #\e)) + ((lambda () #\space)) + (if (equal? buf$195 '(#\t #\a #\b)) + ((lambda () #\ )) + (if (if (> (length buf$195) 1) + (equal? (car buf$195) #\x) + #f) + ((lambda () + (integer->char + (string->number + (list->string (cdr buf$195)) + 16)))) + ((lambda () + (parse-error + (string-append + "unable to parse character: " + (list->string buf$195)) + (in-port:get-lnum ptbl$182) + (in-port:get-cnum + ptbl$182))))))))))))))))) + (reverse raw-buf$194)))) + (set! loop$186 + (lambda (buf$190) + ((lambda (c$191) + (if ((lambda (tmp$192) + (if tmp$192 + tmp$192 + ((lambda (tmp$193) + (if tmp$193 + tmp$193 + (if (> (length buf$190) 0) + (equal? c$191 #\)) + #f))) + (if (char-whitespace? c$191) + (> (length buf$190) 0) + #f)))) + (eof-object? c$191)) + ((lambda () (done$187 buf$190))) + ((lambda () + (loop$186 (cons (read-char fp$183) buf$190)))))) + (peek-char fp$183)))) + (loop$186 '())) + #f + #f)) + #f + #f))) + (define read-str + (lambda (fp$180 buf$179 ptbl$178) + ((lambda (c$181) + (if (eof-object? c$181) + ((lambda () + (parse-error + "missing closing double-quote" + (in-port:get-lnum ptbl$178) + (in-port:get-cnum ptbl$178)))) + (if (equal? #\\ c$181) + ((lambda () + (read-str + fp$180 + (read-str-esc fp$180 buf$179 ptbl$178) + ptbl$178))) + (if (equal? #\" c$181) + ((lambda () (list->string (reverse buf$179)))) + ((lambda () + (read-str fp$180 (cons c$181 buf$179) ptbl$178))))))) + (read-char fp$180)))) + (define read-str-esc + (lambda (fp$175 buf$174 ptbl$173) + ((lambda (c$176) + (if (eof-object? c$176) + ((lambda () + (parse-error + "missing escaped character within string" + (in-port:get-lnum ptbl$173) + (in-port:get-cnum ptbl$173)))) + (if ((lambda (tmp$177) + (if tmp$177 tmp$177 (equal? #\\ c$176))) + (equal? #\" c$176)) + ((lambda () (cons c$176 buf$174))) + (if (equal? #\n c$176) + ((lambda () (cons #\newline buf$174))) + ((lambda () + (parse-error + (string-append + "invalid escape character [" + (list->string (list c$176)) + "] in string") + (in-port:get-lnum ptbl$173) + (in-port:get-cnum ptbl$173)))))))) + (read-char fp$175)))) + (define sign? + (lambda (c$171) + ((lambda (tmp$172) + (if tmp$172 tmp$172 (equal? c$171 #\-))) + (equal? c$171 #\+)))) + (define token-numeric? + (lambda (a$167) + ((lambda (tmp$168) + (if tmp$168 + tmp$168 + ((lambda (tmp$169) + (if tmp$169 + tmp$169 + (if (> (length a$167) 1) + (if ((lambda (tmp$170) + (if tmp$170 tmp$170 (eq? #\. (cadr a$167)))) + (char-numeric? (cadr a$167))) + (sign? (car a$167)) + #f) + #f))) + (if (> (length a$167) 1) + (if (eq? #\. (car a$167)) + (char-numeric? (cadr a$167)) + #f) + #f)))) + (char-numeric? (car a$167))))) + (define parse-atom + (lambda (a$166) + (if (token-numeric? a$166) + ((lambda () (string->number (list->string a$166)))) + ((lambda () (string->symbol (list->string a$166))))))) + (define get-next-char + (lambda (fp$165 ptbl$164) + (if (in-port:get-buf ptbl$164) + (in-port:read-buf! ptbl$164) + (read-char fp$165)))) + (define read-block-comment + (lambda (fp$162 ptbl$161) + ((lambda (c$163) + (if (eq? #\| c$163) + ((lambda () + (read-block-terminator fp$162 ptbl$161))) + ((lambda () (read-block-comment fp$162 ptbl$161))))) + (get-next-char fp$162 ptbl$161)))) + (define read-block-terminator + (lambda (fp$159 ptbl$158) + ((lambda (c$160) + (if (eq? #\# c$160) + ((lambda () #t)) + (if (eq? #\| c$160) + ((lambda () + (read-block-terminator fp$159 ptbl$158))) + ((lambda () (read-block-comment fp$159 ptbl$158)))))) + (get-next-char fp$159 ptbl$158)))) + (define parse-literal-identifier + (lambda (fp$156 toks$155 all?$154 parens$153 ptbl$152) + ((lambda (sym$157) + (if all?$154 + (parse fp$156 + '() + (cons sym$157 toks$155) + all?$154 + #f + parens$153 + ptbl$152) + sym$157)) + (parse-li-rec fp$156 '() ptbl$152)))) + (define parse-li-rec + (lambda (fp$147 tok$146 ptbl$145) + ((lambda (c$150 next$149) + (if (eq? #\| c$150) + ((lambda () + ((lambda (str$151) (string->symbol str$151)) + (if (null? tok$146) + "||" + (list->string (reverse tok$146)))))) + (if (eof-object? c$150) + ((lambda () + (parse-error + "EOF encountered parsing literal identifier" + (in-port:get-lnum ptbl$145) + (in-port:get-cnum ptbl$145)))) + ((lambda () (next$149 c$150)))))) + (get-next-char fp$147 ptbl$145) + (lambda (c$148) + (parse-li-rec + fp$147 + (cons c$148 tok$146) + ptbl$145))))) + (define parse-number + (lambda (fp$141 + toks$140 + all?$139 + parens$138 + ptbl$137 + base$136 + tok->num$135) + ((lambda (num$142) + (if (if (null? num$142) + #f + ((lambda (tmp$144) + (if tmp$144 + tmp$144 + (if (> (length num$142) 0) + (if (= base$136 16) + (hex-digit? (car num$142)) + #f) + #f))) + (token-numeric? num$142))) + ((lambda () + ((lambda (result$143) + (if all?$139 + (parse fp$141 + '() + (cons result$143 toks$140) + all?$139 + #f + parens$138 + ptbl$137) + result$143)) + (tok->num$135 num$142)))) + ((lambda () + (parse-error + "Illegal number syntax" + (in-port:get-lnum ptbl$137) + (in-port:get-cnum ptbl$137)))))) + (parse-number-rec base$136 fp$141 '() ptbl$137)))) + (define parse-number-rec + (lambda (base$130 fp$129 tok$128 ptbl$127) + ((lambda (c$133 next$132) + (if (sign? c$133) + ((lambda () (next$132 c$133))) + (if (eq? #\. c$133) + ((lambda () (next$132 c$133))) + (if (char-numeric? c$133) + ((lambda () + (if ((lambda (tmp$134) + (if tmp$134 + tmp$134 + (if (= base$130 8) (char>? c$133 #\7) #f))) + (if (= base$130 2) (char>? c$133 #\1) #f)) + (parse-error + "Illegal digit" + (in-port:get-lnum ptbl$127) + (in-port:get-cnum ptbl$127)) + #f) + (next$132 c$133))) + (if (if (= base$130 16) (hex-digit? c$133) #f) + ((lambda () (next$132 c$133))) + ((lambda () + (in-port:set-buf! ptbl$127 c$133) + (reverse tok$128)))))))) + (get-next-char fp$129 ptbl$127) + (lambda (c$131) + (parse-number-rec + base$130 + fp$129 + (cons c$131 tok$128) + ptbl$127))))) + (define hex-digit? + (lambda (c$125) + ((lambda (tmp$126) + (if tmp$126 + tmp$126 + (if (char>=? c$125 #\A) (char<=? c$125 #\F) #f))) + (if (char>=? c$125 #\a) (char<=? c$125 #\f) #f)))) + (define cyc-read + (lambda args$123 + ((lambda (fp$124) + (parse fp$124 '() '() #f #f 0 (reg-port fp$124))) + (if (null? args$123) + (current-input-port) + (car args$123))))) + (define read-all + (lambda args$116 + ((lambda (loop$117) + ((lambda (fp$118) + ((lambda (loop$119) + (set! loop$119 + (lambda (fp$121 result$120) + ((lambda (obj$122) + (if (eof-object? obj$122) + (reverse result$120) + (loop$119 fp$121 (cons obj$122 result$120)))) + (cyc-read fp$121)))) + (loop$119 fp$118 '())) + #f)) + (if (null? args$116) + (current-input-port) + (car args$116)))) + #f))) + (define lib-init:schemeread + (lambda () + 0 + (set! read cyc-read) + (set! *in-port-table* '())))) + */ +/* +"---------------- after CPS:" + */ +/* +((define read #f) + (define *in-port-table* #f) + (define reg-port + #((record-marker) + #((record-marker) #f (id args body)) + #(630 + (k$812 fp$262) + ((#((record-marker) + #((record-marker) #f (id args body)) + #(629 + (r$813) + ((#((record-marker) + #((record-marker) #f (id args body)) + #(628 + (r$263) + ((if r$263 + (#((record-marker) + #((record-marker) #f (id args body)) + #(622 () ((k$812 r$263))))) + (#((record-marker) + #((record-marker) #f (id args body)) + #(627 + () + ((list #((record-marker) + #((record-marker) #f (id args body)) + #(626 + (r$817) + ((#((record-marker) + #((record-marker) #f (id args body)) + #(625 + (r$814) + ((#((record-marker) + #((record-marker) + #f + (id args body)) + #(624 + (r$816) + ((#((record-marker) + #((record-marker) + #f + (id args body)) + #(623 + (r$815) + ((k$812 r$263)))) + (set! *in-port-table* + r$816))))) + (cons r$263 *in-port-table*))))) + (set! r$263 r$817))))) + fp$262 + #f + 1 + 0))))))))) + r$813)))) + (assoc fp$262 *in-port-table*)))))) + (define in-port:read-buf! + #((record-marker) + #((record-marker) #f (id args body)) + #(621 + (k$807 ptbl$260) + ((#((record-marker) + #((record-marker) #f (id args body)) + #(620 + (r$808) + ((#((record-marker) + #((record-marker) #f (id args body)) + #(619 + (result$261) + ((in-port:set-buf! + #((record-marker) + #((record-marker) #f (id args body)) + #(618 (r$809) ((k$807 result$261)))) + ptbl$260 + #f)))) + r$808)))) + (cadr ptbl$260)))))) + (define in-port:get-buf + #((record-marker) + #((record-marker) #f (id args body)) + #(617 (k$804 ptbl$259) ((k$804 (cadr ptbl$259)))))) + (define in-port:set-buf! + #((record-marker) + #((record-marker) #f (id args body)) + #(616 + (k$800 ptbl$258 buf$257) + ((#((record-marker) + #((record-marker) #f (id args body)) + #(615 (r$801) ((k$800 (set-car! r$801 buf$257))))) + (cdr ptbl$258)))))) + (define in-port:get-lnum + #((record-marker) + #((record-marker) #f (id args body)) + #(614 + (k$797 ptbl$256) + ((k$797 (caddr ptbl$256)))))) + (define in-port:set-lnum! + #((record-marker) + #((record-marker) #f (id args body)) + #(613 + (k$793 ptbl$255 lnum$254) + ((#((record-marker) + #((record-marker) #f (id args body)) + #(612 + (r$794) + ((k$793 (set-car! r$794 lnum$254))))) + (cddr ptbl$255)))))) + (define in-port:get-cnum + #((record-marker) + #((record-marker) #f (id args body)) + #(611 + (k$790 ptbl$253) + ((k$790 (cadddr ptbl$253)))))) + (define in-port:set-cnum! + #((record-marker) + #((record-marker) #f (id args body)) + #(610 + (k$786 ptbl$252 cnum$251) + ((#((record-marker) + #((record-marker) #f (id args body)) + #(609 + (r$787) + ((k$786 (set-car! r$787 cnum$251))))) + (cdddr ptbl$252)))))) + (define add-tok + #((record-marker) + #((record-marker) #f (id args body)) + #(608 + (k$783 tok$250 toks$249) + ((k$783 (cons tok$250 toks$249)))))) + (define get-toks + #((record-marker) + #((record-marker) #f (id args body)) + #(607 + (k$778 tok$248 toks$247) + ((#((record-marker) + #((record-marker) #f (id args body)) + #(606 + (r$779) + ((if r$779 + (k$778 toks$247) + (->tok #((record-marker) + #((record-marker) #f (id args body)) + #(605 (r$780) ((add-tok k$778 r$780 toks$247)))) + tok$248))))) + (null? tok$248)))))) + (define ->tok + #((record-marker) + #((record-marker) #f (id args body)) + #(604 + (k$774 lst$246) + ((reverse + #((record-marker) + #((record-marker) #f (id args body)) + #(603 (r$775) ((parse-atom k$774 r$775)))) + lst$246))))) + (define dotted? + #((record-marker) + #((record-marker) #f (id args body)) + #(602 + (k$766 lst$245) + ((#((record-marker) + #((record-marker) #f (id args body)) + #(601 + (r$771) + ((#((record-marker) + #((record-marker) #f (id args body)) + #(600 + (r$767) + ((if r$767 + (reverse + #((record-marker) + #((record-marker) #f (id args body)) + #(599 + (r$770) + ((#((record-marker) + #((record-marker) #f (id args body)) + #(598 + (r$768) + ((#((record-marker) + #((record-marker) #f (id args body)) + #(597 + (r$769) + ((k$766 (equal? r$768 r$769))))) + (string->symbol "."))))) + (cadr r$770))))) + lst$245) + (k$766 #f))))) + (> r$771 2))))) + (length lst$245)))))) + (define ->dotted-list + #((record-marker) + #((record-marker) #f (id args body)) + #(596 + (k$756 lst$244) + ((#((record-marker) + #((record-marker) #f (id args body)) + #(595 + (r$757) + ((if r$757 + (#((record-marker) + #((record-marker) #f (id args body)) + #(586 () ((k$756 '()))))) + (#((record-marker) + #((record-marker) #f (id args body)) + #(594 + (r$762) + ((#((record-marker) + #((record-marker) #f (id args body)) + #(593 + (r$763) + ((#((record-marker) + #((record-marker) #f (id args body)) + #(592 + (r$758) + ((if r$758 + (#((record-marker) + #((record-marker) #f (id args body)) + #(587 () ((k$756 (cadr lst$244)))))) + (#((record-marker) + #((record-marker) #f (id args body)) + #(591 + () + ((#((record-marker) + #((record-marker) + #f + (id args body)) + #(590 + (r$759) + ((#((record-marker) + #((record-marker) + #f + (id args body)) + #(589 + (r$761) + ((->dotted-list + #((record-marker) + #((record-marker) + #f + (id args body)) + #(588 + (r$760) + ((k$756 (cons r$759 + r$760))))) + r$761)))) + (cdr lst$244))))) + (car lst$244)))))))))) + (equal? r$762 r$763))))) + (string->symbol "."))))) + (car lst$244)))))) + (null? lst$244)))))) + (define parse-error + #((record-marker) + #((record-marker) #f (id args body)) + #(585 + (k$750 msg$243 lnum$242 cnum$241) + ((#((record-marker) + #((record-marker) #f (id args body)) + #(584 + (r$752) + ((#((record-marker) + #((record-marker) #f (id args body)) + #(583 + (r$753) + ((#((record-marker) + #((record-marker) #f (id args body)) + #(582 (r$751) ((error k$750 r$751)))) + (string-append + "Error (line " + r$752 + ", char " + r$753 + "): " + msg$243))))) + (number->string cnum$241))))) + (number->string lnum$242)))))) + (define parse/tok + #((record-marker) + #((record-marker) #f (id args body)) + #(581 + (k$739 fp$240 + tok$239 + toks$238 + all?$237 + comment?$236 + parens$235 + ptbl$234 + curr-char$233) + ((#((record-marker) + #((record-marker) #f (id args body)) + #(580 + (r$740) + ((if r$740 + (#((record-marker) + #((record-marker) #f (id args body)) + #(571 + () + ((#((record-marker) + #((record-marker) #f (id args body)) + #(570 + (r$741) + ((parse k$739 + fp$240 + r$741 + toks$238 + all?$237 + comment?$236 + parens$235 + ptbl$234)))) + '()))))) + (if all?$237 + (#((record-marker) + #((record-marker) #f (id args body)) + #(575 + () + ((#((record-marker) + #((record-marker) #f (id args body)) + #(574 + (r$742) + ((->tok #((record-marker) + #((record-marker) #f (id args body)) + #(573 + (r$744) + ((add-tok + #((record-marker) + #((record-marker) + #f + (id args body)) + #(572 + (r$743) + ((parse k$739 + fp$240 + r$742 + r$743 + all?$237 + comment?$236 + parens$235 + ptbl$234)))) + r$744 + toks$238)))) + tok$239)))) + '()))))) + (#((record-marker) + #((record-marker) #f (id args body)) + #(579 + () + ((in-port:set-buf! + #((record-marker) + #((record-marker) #f (id args body)) + #(578 + (r$745) + ((->tok #((record-marker) + #((record-marker) #f (id args body)) + #(577 + (r$747) + ((add-tok + #((record-marker) + #((record-marker) + #f + (id args body)) + #(576 + (r$746) + ((k$739 (car r$746))))) + r$747 + toks$238)))) + tok$239)))) + ptbl$234 + curr-char$233)))))))))) + (null? tok$239)))))) + (define parse + #((record-marker) + #((record-marker) #f (id args body)) + #(569 + (k$497 fp$202 + tok$201 + toks$200 + all?$199 + comment?$198 + parens$197 + ptbl$196) + ((#((record-marker) + #((record-marker) #f (id args body)) + #(568 + (new-toks$203) + ((in-port:get-cnum + #((record-marker) + #((record-marker) #f (id args body)) + #(567 + (r$736) + ((#((record-marker) + #((record-marker) #f (id args body)) + #(566 + (r$735) + ((in-port:set-cnum! + #((record-marker) + #((record-marker) #f (id args body)) + #(565 + (r$498) + ((#((record-marker) + #((record-marker) #f (id args body)) + #(564 + (k$733) + ((in-port:get-buf + #((record-marker) + #((record-marker) #f (id args body)) + #(563 + (r$734) + ((if r$734 + (in-port:read-buf! + k$733 + ptbl$196) + (k$733 (read-char fp$202)))))) + ptbl$196)))) + #((record-marker) + #((record-marker) #f (id args body)) + #(562 + (r$499) + ((#((record-marker) + #((record-marker) #f (id args body)) + #(561 + (c$204) + ((#((record-marker) + #((record-marker) + #f + (id args body)) + #(560 + (r$500) + ((if r$500 + (#((record-marker) + #((record-marker) + #f + (id args body)) + #(277 + () + ((#((record-marker) + #((record-marker) + #f + (id args body)) + #(276 + (k$506) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(275 + (r$507) + ((if r$507 + (in-port:get-lnum + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(274 + (r$508) + ((in-port:get-cnum + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(273 + (r$509) + ((parse-error + k$506 + "missing closing parenthesis" + r$508 + r$509)))) + ptbl$196)))) + ptbl$196) + (k$506 #f))))) + (> parens$197 + 0))))) + #((record-marker) + #((record-marker) + #f + (id args body)) + #(272 + (r$501) + ((if all?$199 + (get-toks + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(267 + (r$502) + ((reverse + k$497 + r$502)))) + tok$201 + toks$200) + (get-toks + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(271 + (r$503) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(270 + (last$232) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(269 + (r$505) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(268 + (r$504) + ((if r$504 + (k$497 (car last$232)) + (k$497 c$204))))) + (> r$505 + 0))))) + (length + last$232))))) + r$503)))) + tok$201 + toks$200)))))))))) + (if comment?$198 + (#((record-marker) + #((record-marker) + #f + (id args body)) + #(286 + () + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(285 + (r$510) + ((if r$510 + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(283 + () + ((in-port:get-lnum + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(282 + (r$515) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(281 + (r$514) + ((in-port:set-lnum! + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(280 + (r$511) + ((in-port:set-cnum! + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(279 + (r$512) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(278 + (r$513) + ((parse k$497 + fp$202 + r$513 + toks$200 + all?$199 + #f + parens$197 + ptbl$196)))) + '())))) + ptbl$196 + 0)))) + ptbl$196 + r$514)))) + (+ 1 + r$515))))) + ptbl$196))))) + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(284 + (r$516) + ((parse k$497 + fp$202 + r$516 + toks$200 + all?$199 + #t + parens$197 + ptbl$196)))) + '()))))) + (eq? c$204 + #\newline)))))) + (char-whitespace? + #((record-marker) + #((record-marker) + #f + (id args body)) + #(559 + (r$517) + ((if r$517 + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(295 + () + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(294 + (k$522) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(293 + (r$523) + ((if r$523 + (in-port:get-lnum + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(292 + (r$525) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(291 + (r$524) + ((in-port:set-lnum! + k$522 + ptbl$196 + r$524)))) + (+ 1 + r$525))))) + ptbl$196) + (k$522 #f))))) + (equal? + c$204 + #\newline))))) + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(290 + (r$518) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(289 + (k$520) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(288 + (r$521) + ((if r$521 + (in-port:set-cnum! + k$520 + ptbl$196 + 0) + (k$520 #f))))) + (equal? + c$204 + #\newline))))) + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(287 + (r$519) + ((parse/tok + k$497 + fp$202 + tok$201 + toks$200 + all?$199 + #f + parens$197 + ptbl$196 + c$204))))))))))))) + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(558 + (r$526) + ((if r$526 + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(296 + () + ((parse/tok + k$497 + fp$202 + tok$201 + toks$200 + all?$199 + #t + parens$197 + ptbl$196 + c$204))))) + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(557 + (r$527) + ((if r$527 + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(316 + () + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(315 + (k$541) + ((if all?$199 + (k$541 #f) + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(314 + (r$542) + ((not k$541 + r$542)))) + (null? tok$201)))))) + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(313 + (r$528) + ((if r$528 + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(300 + () + ((in-port:set-buf! + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(299 + (r$529) + ((->tok #((record-marker) + #((record-marker) + #f + (id args + body)) + #(298 + (r$531) + ((add-tok + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(297 + (r$530) + ((k$497 (car r$530))))) + r$531 + toks$200)))) + tok$201)))) + ptbl$196 + c$204))))) + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(312 + () + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(311 + (r$539) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(310 + (r$540) + ((parse #((record-marker) + #((record-marker) + #f + (id args + body)) + #(309 + (r$532) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(308 + (sub$230) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(307 + (new-toks$231) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(306 + (r$538) + ((list #((record-marker) + #((record-marker) + #f + (id args + body)) + #(305 + (r$536) + ((get-toks + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(304 + (r$537) + ((add-tok + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(303 + (r$535) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(302 + (r$533) + ((if all?$199 + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(301 + (r$534) + ((parse k$497 + fp$202 + r$534 + new-toks$231 + all?$199 + #f + parens$197 + ptbl$196)))) + '()) + (k$497 (car new-toks$231)))))) + (set! new-toks$231 + r$535))))) + r$536 + r$537)))) + tok$201 + toks$200)))) + r$538 + sub$230)))) + 'quote)))) + #f)))) + r$532)))) + fp$202 + r$539 + r$540 + #f + #f + 0 + ptbl$196)))) + '())))) + '())))))))))))))) + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(556 + (r$543) + ((if r$543 + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(336 + () + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(335 + (k$557) + ((if all?$199 + (k$557 #f) + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(334 + (r$558) + ((not k$557 + r$558)))) + (null? tok$201)))))) + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(333 + (r$544) + ((if r$544 + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(320 + () + ((in-port:set-buf! + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(319 + (r$545) + ((->tok #((record-marker) + #((record-marker) + #f + (id args + body)) + #(318 + (r$547) + ((add-tok + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(317 + (r$546) + ((k$497 (car r$546))))) + r$547 + toks$200)))) + tok$201)))) + ptbl$196 + c$204))))) + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(332 + () + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(331 + (r$555) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(330 + (r$556) + ((parse #((record-marker) + #((record-marker) + #f + (id args + body)) + #(329 + (r$548) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(328 + (sub$228) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(327 + (new-toks$229) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(326 + (r$554) + ((list #((record-marker) + #((record-marker) + #f + (id args + body)) + #(325 + (r$552) + ((get-toks + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(324 + (r$553) + ((add-tok + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(323 + (r$551) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(322 + (r$549) + ((if all?$199 + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(321 + (r$550) + ((parse k$497 + fp$202 + r$550 + new-toks$229 + all?$199 + #f + parens$197 + ptbl$196)))) + '()) + (k$497 (car new-toks$229)))))) + (set! new-toks$229 + r$551))))) + r$552 + r$553)))) + tok$201 + toks$200)))) + r$554 + sub$228)))) + 'quasiquote)))) + #f)))) + r$548)))) + fp$202 + r$555 + r$556 + #f + #f + 0 + ptbl$196)))) + '())))) + '())))))))))))))) + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(555 + (r$559) + ((if r$559 + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(372 + () + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(371 + (k$587) + ((if all?$199 + (k$587 #f) + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(370 + (r$588) + ((not k$587 + r$588)))) + (null? tok$201)))))) + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(369 + (r$560) + ((if r$560 + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(340 + () + ((in-port:set-buf! + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(339 + (r$561) + ((->tok #((record-marker) + #((record-marker) + #f + (id args + body)) + #(338 + (r$563) + ((add-tok + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(337 + (r$562) + ((k$497 (car r$562))))) + r$563 + toks$200)))) + tok$201)))) + ptbl$196 + c$204))))) + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(368 + () + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(367 + (sub$227 + next-c$226 + unquote-sym$225 + new-toks$224) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(366 + (r$564) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(365 + (r$586) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(364 + (r$565) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(363 + (k$584) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(362 + (r$585) + ((if r$585 + (k$584 'unquote-splicing) + (k$584 'unquote))))) + (equal? + next-c$226 + #\@))))) + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(361 + (r$583) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(360 + (r$566) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(359 + (r$567) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(358 + (k$578) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(357 + (r$579) + ((if r$579 + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(353 + () + ((in-port:get-lnum + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(352 + (r$580) + ((in-port:get-cnum + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(351 + (r$581) + ((parse-error + k$578 + "unexpected end of file" + r$580 + r$581)))) + ptbl$196)))) + ptbl$196))))) + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(356 + (r$582) + ((if r$582 + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(354 + () + ((k$578 #f))))) + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(355 + () + ((in-port:set-buf! + k$578 + ptbl$196 + next-c$226))))))))) + (equal? + next-c$226 + #\@)))))) + (eof-object? + next-c$226))))) + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(350 + (r$568) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(349 + (r$576) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(348 + (r$577) + ((parse #((record-marker) + #((record-marker) + #f + (id args + body)) + #(347 + (r$575) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(346 + (r$569) + ((list #((record-marker) + #((record-marker) + #f + (id args + body)) + #(345 + (r$573) + ((get-toks + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(344 + (r$574) + ((add-tok + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(343 + (r$572) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(342 + (r$570) + ((if all?$199 + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(341 + (r$571) + ((parse k$497 + fp$202 + r$571 + new-toks$224 + all?$199 + #f + parens$197 + ptbl$196)))) + '()) + (k$497 (car new-toks$224)))))) + (set! new-toks$224 + r$572))))) + r$573 + r$574)))) + tok$201 + toks$200)))) + unquote-sym$225 + sub$227)))) + (set! sub$227 + r$575))))) + fp$202 + r$576 + r$577 + #f + #f + 0 + ptbl$196)))) + '())))) + '())))))))) + (set! new-toks$224 + #f))))) + (set! unquote-sym$225 + r$583))))))))) + (set! next-c$226 + r$586))))) + (read-char + fp$202))))) + (set! sub$227 + #f))))) + #f + #f + #f + #f)))))))))))))) + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(554 + (r$589) + ((if r$589 + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(396 + () + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(395 + (k$607) + ((if all?$199 + (k$607 #f) + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(394 + (r$608) + ((not k$607 + r$608)))) + (null? tok$201)))))) + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(393 + (r$590) + ((if r$590 + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(376 + () + ((in-port:set-buf! + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(375 + (r$591) + ((->tok #((record-marker) + #((record-marker) + #f + (id args + body)) + #(374 + (r$593) + ((add-tok + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(373 + (r$592) + ((k$497 (car r$592))))) + r$593 + toks$200)))) + tok$201)))) + ptbl$196 + c$204))))) + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(392 + () + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(391 + (r$604) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(390 + (r$605) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(389 + (r$606) + ((parse #((record-marker) + #((record-marker) + #f + (id args + body)) + #(388 + (r$594) + ((get-toks + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(387 + (r$595) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(386 + (sub$222 + toks*$221) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(385 + (new-toks$223) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(384 + (k$600) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(383 + (k$602) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(382 + (r$603) + ((if r$603 + (dotted? + k$602 + sub$222) + (k$602 #f))))) + (pair? sub$222))))) + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(381 + (r$601) + ((if r$601 + (->dotted-list + k$600 + sub$222) + (k$600 sub$222))))))))) + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(380 + (r$599) + ((add-tok + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(379 + (r$598) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(378 + (r$596) + ((if all?$199 + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(377 + (r$597) + ((parse k$497 + fp$202 + r$597 + new-toks$223 + all?$199 + #f + parens$197 + ptbl$196)))) + '()) + (k$497 (car new-toks$223)))))) + (set! new-toks$223 + r$598))))) + r$599 + toks*$221)))))))) + #f)))) + r$594 + r$595)))) + tok$201 + toks$200)))) + fp$202 + r$604 + r$605 + #t + #f + r$606 + ptbl$196)))) + (+ parens$197 + 1))))) + '())))) + '())))))))))))))) + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(553 + (r$609) + ((if r$609 + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(410 + () + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(409 + (k$618) + ((if all?$199 + (k$618 #f) + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(408 + (r$619) + ((not k$618 + r$619)))) + (null? tok$201)))))) + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(407 + (r$610) + ((if r$610 + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(400 + () + ((in-port:set-buf! + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(399 + (r$611) + ((->tok #((record-marker) + #((record-marker) + #f + (id args + body)) + #(398 + (r$613) + ((add-tok + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(397 + (r$612) + ((k$497 (car r$612))))) + r$613 + toks$200)))) + tok$201)))) + ptbl$196 + c$204))))) + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(406 + (r$614) + ((if r$614 + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(403 + () + ((in-port:get-lnum + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(402 + (r$615) + ((in-port:get-cnum + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(401 + (r$616) + ((parse-error + k$497 + "unexpected closing parenthesis" + r$615 + r$616)))) + ptbl$196)))) + ptbl$196))))) + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(405 + () + ((get-toks + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(404 + (r$617) + ((reverse + k$497 + r$617)))) + tok$201 + toks$200))))))))) + (= parens$197 + 0))))))))))) + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(552 + (r$620) + ((if r$620 + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(427 + () + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(426 + (k$631) + ((if all?$199 + (k$631 #f) + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(425 + (r$632) + ((not k$631 + r$632)))) + (null? tok$201)))))) + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(424 + (r$621) + ((if r$621 + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(414 + () + ((in-port:set-buf! + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(413 + (r$622) + ((->tok #((record-marker) + #((record-marker) + #f + (id args + body)) + #(412 + (r$624) + ((add-tok + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(411 + (r$623) + ((k$497 (car r$623))))) + r$624 + toks$200)))) + tok$201)))) + ptbl$196 + c$204))))) + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(423 + () + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(422 + (r$630) + ((read-str + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(421 + (r$625) + ((get-toks + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(420 + (r$626) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(419 + (str$219 + toks*$218) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(418 + (new-toks$220) + ((add-tok + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(417 + (r$629) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(416 + (r$627) + ((if all?$199 + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(415 + (r$628) + ((parse k$497 + fp$202 + r$628 + new-toks$220 + all?$199 + #f + parens$197 + ptbl$196)))) + '()) + (k$497 (car new-toks$220)))))) + (set! new-toks$220 + r$629))))) + str$219 + toks*$218)))) + #f)))) + r$625 + r$626)))) + tok$201 + toks$200)))) + fp$202 + r$630 + ptbl$196)))) + '())))))))))))))) + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(551 + (r$633) + ((if r$633 + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(546 + () + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(545 + (r$634) + ((if r$634 + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(543 + (r$635) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(542 + (next-c$205) + ((in-port:get-cnum + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(541 + (r$729) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(540 + (r$728) + ((in-port:set-cnum! + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(539 + (r$636) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(538 + (r$637) + ((if r$637 + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(430 + () + ((read-block-comment + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(429 + (r$638) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(428 + (r$639) + ((parse k$497 + fp$202 + r$639 + toks$200 + all?$199 + #f + parens$197 + ptbl$196)))) + '())))) + fp$202 + ptbl$196))))) + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(537 + (r$640) + ((if r$640 + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(433 + () + ((if all?$199 + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(432 + (r$641) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(431 + (r$642) + ((parse k$497 + fp$202 + r$641 + r$642 + all?$199 + #f + parens$197 + ptbl$196)))) + (cons #t + toks$200))))) + '()) + (k$497 #t)))))) + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(536 + (r$643) + ((if r$643 + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(436 + () + ((if all?$199 + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(435 + (r$644) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(434 + (r$645) + ((parse k$497 + fp$202 + r$644 + r$645 + all?$199 + #f + parens$197 + ptbl$196)))) + (cons #f + toks$200))))) + '()) + (k$497 #f)))))) + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(535 + (r$646) + ((if r$646 + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(440 + () + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(437 + (r$647) + ((parse-number + k$497 + fp$202 + toks$200 + all?$199 + parens$197 + ptbl$196 + 10 + r$647)))) + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(439 + (k$648 num$217) + ((parse-atom + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(438 + (r$649) + ((exact k$648 + r$649)))) + num$217))))))))) + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(534 + (r$650) + ((if r$650 + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(444 + () + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(441 + (r$651) + ((parse-number + k$497 + fp$202 + toks$200 + all?$199 + parens$197 + ptbl$196 + 10 + r$651)))) + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(443 + (k$652 num$216) + ((parse-atom + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(442 + (r$653) + ((inexact + k$652 + r$653)))) + num$216))))))))) + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(533 + (r$654) + ((if r$654 + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(448 + () + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(445 + (r$655) + ((parse-number + k$497 + fp$202 + toks$200 + all?$199 + parens$197 + ptbl$196 + 2 + r$655)))) + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(447 + (k$656 num$215) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(446 + (r$657) + ((k$656 (string->number + r$657 + 2))))) + (list->string + num$215)))))))))) + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(532 + (r$658) + ((if r$658 + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(452 + () + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(449 + (r$659) + ((parse-number + k$497 + fp$202 + toks$200 + all?$199 + parens$197 + ptbl$196 + 8 + r$659)))) + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(451 + (k$660 num$214) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(450 + (r$661) + ((k$660 (string->number + r$661 + 8))))) + (list->string + num$214)))))))))) + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(531 + (r$662) + ((if r$662 + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(456 + () + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(453 + (r$663) + ((parse-number + k$497 + fp$202 + toks$200 + all?$199 + parens$197 + ptbl$196 + 16 + r$663)))) + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(455 + (k$664 num$213) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(454 + (r$665) + ((k$664 (string->number + r$665 + 16))))) + (list->string + num$213)))))))))) + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(530 + (r$666) + ((if r$666 + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(488 + () + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(487 + (r$695) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(486 + (r$667) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(485 + (k$691) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(484 + (r$692) + ((if r$692 + (k$691 #f) + (in-port:get-lnum + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(483 + (r$693) + ((in-port:get-cnum + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(482 + (r$694) + ((parse-error + k$691 + "Unhandled input sequence" + r$693 + r$694)))) + ptbl$196)))) + ptbl$196))))) + (eq? #\8 + next-c$205))))) + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(481 + (r$668) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(480 + (r$690) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(479 + (r$669) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(478 + (k$686) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(477 + (r$687) + ((if r$687 + (k$686 #f) + (in-port:get-lnum + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(476 + (r$688) + ((in-port:get-cnum + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(475 + (r$689) + ((parse-error + k$686 + "Unhandled input sequence" + r$688 + r$689)))) + ptbl$196)))) + ptbl$196))))) + (eq? #\( + next-c$205))))) + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(474 + (r$670) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(473 + (r$683) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(472 + (r$684) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(471 + (r$685) + ((parse #((record-marker) + #((record-marker) + #f + (id args + body)) + #(470 + (r$671) + ((get-toks + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(469 + (r$672) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(468 + (sub$211 + toks*$210) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(467 + (new-toks$212) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(466 + (k$677) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(465 + (k$681) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(464 + (r$682) + ((if r$682 + (dotted? + k$681 + sub$211) + (k$681 #f))))) + (pair? sub$211))))) + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(463 + (r$678) + ((if r$678 + (in-port:get-lnum + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(462 + (r$679) + ((in-port:get-cnum + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(461 + (r$680) + ((parse-error + k$677 + "Invalid vector syntax" + r$679 + r$680)))) + ptbl$196)))) + ptbl$196) + (k$677 (apply bytevector + sub$211)))))))))) + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(460 + (r$676) + ((add-tok + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(459 + (r$675) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(458 + (r$673) + ((if all?$199 + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(457 + (r$674) + ((parse k$497 + fp$202 + r$674 + new-toks$212 + all?$199 + #f + parens$197 + ptbl$196)))) + '()) + (k$497 (car new-toks$212)))))) + (set! new-toks$212 + r$675))))) + r$676 + toks*$210)))))))) + #f)))) + r$671 + r$672)))) + tok$201 + toks$200)))) + fp$202 + r$683 + r$684 + #t + #f + r$685 + ptbl$196)))) + (+ parens$197 + 1))))) + '())))) + '())))))))) + (set! next-c$205 + r$690))))) + (read-char + fp$202))))))))) + (set! next-c$205 + r$695))))) + (read-char + fp$202)))))) + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(529 + (r$696) + ((if r$696 + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(506 + () + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(505 + (r$709) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(504 + (r$710) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(503 + (r$711) + ((parse #((record-marker) + #((record-marker) + #f + (id args + body)) + #(502 + (r$697) + ((get-toks + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(501 + (r$698) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(500 + (sub$208 + toks*$207) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(499 + (new-toks$209) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(498 + (k$703) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(497 + (k$707) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(496 + (r$708) + ((if r$708 + (dotted? + k$707 + sub$208) + (k$707 #f))))) + (pair? sub$208))))) + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(495 + (r$704) + ((if r$704 + (in-port:get-lnum + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(494 + (r$705) + ((in-port:get-cnum + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(493 + (r$706) + ((parse-error + k$703 + "Invalid vector syntax" + r$705 + r$706)))) + ptbl$196)))) + ptbl$196) + (k$703 (list->vector + sub$208)))))))))) + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(492 + (r$702) + ((add-tok + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(491 + (r$701) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(490 + (r$699) + ((if all?$199 + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(489 + (r$700) + ((parse k$497 + fp$202 + r$700 + new-toks$209 + all?$199 + #f + parens$197 + ptbl$196)))) + '()) + (k$497 (car new-toks$209)))))) + (set! new-toks$209 + r$701))))) + r$702 + toks*$207)))))))) + #f)))) + r$697 + r$698)))) + tok$201 + toks$200)))) + fp$202 + r$709 + r$710 + #t + #f + r$711 + ptbl$196)))) + (+ parens$197 + 1))))) + '())))) + '()))))) + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(528 + (r$712) + ((if r$712 + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(511 + () + ((read-pound + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(510 + (r$715) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(509 + (r$713) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(508 + (new-toks$206) + ((if all?$199 + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(507 + (r$714) + ((parse k$497 + fp$202 + r$714 + new-toks$206 + all?$199 + #f + parens$197 + ptbl$196)))) + '()) + (k$497 (car new-toks$206)))))) + r$713)))) + (cons r$715 + toks$200))))) + fp$202 + ptbl$196))))) + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(527 + (r$716) + ((if r$716 + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(523 + () + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(522 + (r$724) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(521 + (r$725) + ((parse #((record-marker) + #((record-marker) + #f + (id args + body)) + #(520 + (r$717) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(519 + (k$722) + ((if all?$199 + (k$722 #f) + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(518 + (r$723) + ((not k$722 + r$723)))) + (null? tok$201)))))) + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(517 + (r$718) + ((if r$718 + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(515 + () + ((in-port:set-buf! + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(514 + (r$719) + ((->tok #((record-marker) + #((record-marker) + #f + (id args + body)) + #(513 + (r$721) + ((add-tok + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(512 + (r$720) + ((k$497 (car r$720))))) + r$721 + toks$200)))) + tok$201)))) + ptbl$196 + c$204))))) + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(516 + () + ((parse k$497 + fp$202 + tok$201 + toks$200 + all?$199 + #f + parens$197 + ptbl$196))))))))))))) + fp$202 + r$724 + r$725 + #f + #f + 0 + ptbl$196)))) + '())))) + '()))))) + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(526 + () + ((in-port:get-lnum + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(525 + (r$726) + ((in-port:get-cnum + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(524 + (r$727) + ((parse-error + k$497 + "Unhandled input sequence" + r$726 + r$727)))) + ptbl$196)))) + ptbl$196))))))))) + (eq? #\; + next-c$205)))))) + (eq? #\\ + next-c$205)))))) + (eq? #\( + next-c$205)))))) + (eq? #\u + next-c$205)))))) + (eq? #\x + next-c$205)))))) + (eq? #\o + next-c$205)))))) + (eq? #\b + next-c$205)))))) + (eq? #\i + next-c$205)))))) + (eq? #\e + next-c$205)))))) + (eq? #\f + next-c$205)))))) + (eq? #\t + next-c$205)))))) + (eq? #\| + next-c$205))))) + ptbl$196 + r$728)))) + (+ 1 + r$729))))) + ptbl$196)))) + r$635)))) + (read-char + fp$202)) + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(544 + (r$730) + ((parse k$497 + fp$202 + r$730 + toks$200 + all?$199 + #f + parens$197 + ptbl$196)))) + (cons c$204 + tok$201)))))) + (null? tok$201)))))) + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(550 + (r$731) + ((if r$731 + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(547 + () + ((parse-literal-identifier + k$497 + fp$202 + toks$200 + all?$199 + parens$197 + ptbl$196))))) + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(549 + () + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(548 + (r$732) + ((parse k$497 + fp$202 + r$732 + toks$200 + all?$199 + #f + parens$197 + ptbl$196)))) + (cons c$204 + tok$201)))))))))) + (eq? c$204 + #\|)))))) + (eq? c$204 + #\#)))))) + (eq? c$204 + #\")))))) + (eq? c$204 + #\))))))) + (eq? c$204 + #\()))))) + (eq? c$204 + #\,)))))) + (eq? c$204 + #\`)))))) + (eq? c$204 + #\')))))) + (eq? c$204 + #\;)))))) + c$204)))))) + (eof-object? c$204))))) + r$499)))))))) + ptbl$196 + r$735)))) + (+ 1 r$736))))) + ptbl$196)))) + #f))))) + (define read-pound + #((record-marker) + #((record-marker) #f (id args body)) + #(266 + (k$438 fp$183 ptbl$182) + ((#((record-marker) + #((record-marker) #f (id args body)) + #(265 + (done$187 loop$186) + ((#((record-marker) + #((record-marker) #f (id args body)) + #(264 + (done$189 loop$188) + ((#((record-marker) + #((record-marker) #f (id args body)) + #(211 + (r$456) + ((#((record-marker) + #((record-marker) #f (id args body)) + #(210 + (r$439) + ((#((record-marker) + #((record-marker) #f (id args body)) + #(191 + (r$442) + ((#((record-marker) + #((record-marker) #f (id args body)) + #(190 + (r$440) + ((#((record-marker) + #((record-marker) + #f + (id args body)) + #(189 + (r$441) + ((loop$186 k$438 r$441)))) + '())))) + (set! loop$186 r$442))))) + #((record-marker) + #((record-marker) #f (id args body)) + #(209 + (k$443 buf$190) + ((#((record-marker) + #((record-marker) #f (id args body)) + #(208 + (r$444) + ((#((record-marker) + #((record-marker) + #f + (id args body)) + #(207 + (c$191) + ((#((record-marker) + #((record-marker) + #f + (id args body)) + #(206 + (r$448) + ((#((record-marker) + #((record-marker) + #f + (id args body)) + #(205 + (tmp$192) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(204 + (k$449) + ((if tmp$192 + (k$449 tmp$192) + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(203 + (k$453) + ((char-whitespace? + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(202 + (r$454) + ((if r$454 + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(201 + (r$455) + ((k$453 (> r$455 + 0))))) + (length + buf$190)) + (k$453 #f))))) + c$191)))) + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(200 + (r$450) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(199 + (tmp$193) + ((if tmp$193 + (k$449 tmp$193) + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(198 + (r$452) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(197 + (r$451) + ((if r$451 + (k$449 (equal? + c$191 + #\))) + (k$449 #f))))) + (> r$452 + 0))))) + (length + buf$190)))))) + r$450))))))))) + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(196 + (r$445) + ((if r$445 + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(192 + () + ((done$187 + k$443 + buf$190))))) + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(195 + () + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(194 + (r$447) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(193 + (r$446) + ((loop$186 + k$443 + r$446)))) + (cons r$447 + buf$190))))) + (read-char + fp$183)))))))))))))) + r$448)))) + (eof-object? c$191))))) + r$444)))) + (peek-char fp$183))))))))) + (set! done$187 r$456))))) + #((record-marker) + #((record-marker) #f (id args body)) + #(263 + (k$457 raw-buf$194) + ((reverse + #((record-marker) + #((record-marker) #f (id args body)) + #(262 + (r$458) + ((#((record-marker) + #((record-marker) #f (id args body)) + #(261 + (buf$195) + ((#((record-marker) + #((record-marker) #f (id args body)) + #(260 + (r$494) + ((#((record-marker) + #((record-marker) + #f + (id args body)) + #(259 + (r$459) + ((if r$459 + (#((record-marker) + #((record-marker) + #f + (id args body)) + #(214 + () + ((in-port:get-lnum + #((record-marker) + #((record-marker) + #f + (id args body)) + #(213 + (r$460) + ((in-port:get-cnum + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(212 + (r$461) + ((parse-error + k$457 + "missing character" + r$460 + r$461)))) + ptbl$182)))) + ptbl$182))))) + (#((record-marker) + #((record-marker) + #f + (id args body)) + #(258 + (r$493) + ((#((record-marker) + #((record-marker) + #f + (id args body)) + #(257 + (r$462) + ((if r$462 + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(215 + () + ((k$457 (car buf$195)))))) + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(256 + (r$492) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(255 + (r$463) + ((if r$463 + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(216 + () + ((k$457 #\))))) + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(254 + (r$491) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(253 + (r$464) + ((if r$464 + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(217 + () + ((k$457 #\))))) + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(252 + (r$490) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(251 + (r$465) + ((if r$465 + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(218 + () + ((k$457 #\))))) + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(250 + (r$489) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(249 + (r$466) + ((if r$466 + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(219 + () + ((k$457 #\))))) + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(248 + (r$488) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(247 + (r$467) + ((if r$467 + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(220 + () + ((k$457 #\newline))))) + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(246 + (r$487) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(245 + (r$468) + ((if r$468 + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(221 + () + ((k$457 #\))))) + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(244 + (r$486) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(243 + (r$469) + ((if r$469 + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(222 + () + ((k$457 #\ ))))) + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(242 + (r$485) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(241 + (r$470) + ((if r$470 + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(223 + () + ((k$457 #\space))))) + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(240 + (r$484) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(239 + (r$471) + ((if r$471 + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(224 + () + ((k$457 #\ ))))) + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(238 + (k$480) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(237 + (r$483) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(236 + (r$481) + ((if r$481 + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(235 + (r$482) + ((k$480 (equal? + r$482 + #\x))))) + (car buf$195)) + (k$480 #f))))) + (> r$483 + 1))))) + (length + buf$195))))) + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(234 + (r$472) + ((if r$472 + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(228 + () + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(227 + (r$475) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(226 + (r$474) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(225 + (r$473) + ((k$457 (integer->char + r$473))))) + (string->number + r$474 + 16))))) + (list->string + r$475))))) + (cdr buf$195)))))) + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(233 + () + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(232 + (r$479) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(231 + (r$476) + ((in-port:get-lnum + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(230 + (r$477) + ((in-port:get-cnum + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(229 + (r$478) + ((parse-error + k$457 + r$476 + r$477 + r$478)))) + ptbl$182)))) + ptbl$182)))) + (string-append + "unable to parse character: " + r$479))))) + (list->string + buf$195))))))))))))))) + (equal? + buf$195 + r$484))))) + '(#\t + #\a + #\b)))))) + (equal? + buf$195 + r$485))))) + '(#\s + #\p + #\a + #\c + #\e)))))) + (equal? + buf$195 + r$486))))) + '(#\r + #\e + #\t + #\u + #\r + #\n)))))) + (equal? + buf$195 + r$487))))) + '(#\n + #\u + #\l + #\l)))))) + (equal? + buf$195 + r$488))))) + '(#\n + #\e + #\w + #\l + #\i + #\n + #\e)))))) + (equal? + buf$195 + r$489))))) + '(#\e + #\s + #\c + #\a + #\p + #\e)))))) + (equal? + buf$195 + r$490))))) + '(#\d + #\e + #\l + #\e + #\t + #\e)))))) + (equal? + buf$195 + r$491))))) + '(#\b + #\a + #\c + #\k + #\s + #\p + #\a + #\c + #\e)))))) + (equal? + buf$195 + r$492))))) + '(#\a + #\l + #\a + #\r + #\m)))))) + (= 1 r$493))))) + (length buf$195)))))) + (= 0 r$494))))) + (length buf$195))))) + r$458)))) + raw-buf$194)))))))) + #f + #f)))) + #f + #f))))) + (define read-str + #((record-marker) + #((record-marker) #f (id args body)) + #(188 + (k$426 fp$180 buf$179 ptbl$178) + ((#((record-marker) + #((record-marker) #f (id args body)) + #(187 + (r$427) + ((#((record-marker) + #((record-marker) #f (id args body)) + #(186 + (c$181) + ((#((record-marker) + #((record-marker) #f (id args body)) + #(185 + (r$428) + ((if r$428 + (#((record-marker) + #((record-marker) #f (id args body)) + #(176 + () + ((in-port:get-lnum + #((record-marker) + #((record-marker) #f (id args body)) + #(175 + (r$429) + ((in-port:get-cnum + #((record-marker) + #((record-marker) + #f + (id args body)) + #(174 + (r$430) + ((parse-error + k$426 + "missing closing double-quote" + r$429 + r$430)))) + ptbl$178)))) + ptbl$178))))) + (#((record-marker) + #((record-marker) #f (id args body)) + #(184 + (r$431) + ((if r$431 + (#((record-marker) + #((record-marker) #f (id args body)) + #(178 + () + ((read-str-esc + #((record-marker) + #((record-marker) + #f + (id args body)) + #(177 + (r$432) + ((read-str + k$426 + fp$180 + r$432 + ptbl$178)))) + fp$180 + buf$179 + ptbl$178))))) + (#((record-marker) + #((record-marker) #f (id args body)) + #(183 + (r$433) + ((if r$433 + (#((record-marker) + #((record-marker) + #f + (id args body)) + #(180 + () + ((reverse + #((record-marker) + #((record-marker) + #f + (id args body)) + #(179 + (r$434) + ((k$426 (list->string + r$434))))) + buf$179))))) + (#((record-marker) + #((record-marker) + #f + (id args body)) + #(182 + () + ((#((record-marker) + #((record-marker) + #f + (id args body)) + #(181 + (r$435) + ((read-str + k$426 + fp$180 + r$435 + ptbl$178)))) + (cons c$181 buf$179)))))))))) + (equal? #\" c$181)))))) + (equal? #\\ c$181)))))) + (eof-object? c$181))))) + r$427)))) + (read-char fp$180)))))) + (define read-str-esc + #((record-marker) + #((record-marker) #f (id args body)) + #(173 + (k$410 fp$175 buf$174 ptbl$173) + ((#((record-marker) + #((record-marker) #f (id args body)) + #(172 + (r$411) + ((#((record-marker) + #((record-marker) #f (id args body)) + #(171 + (c$176) + ((#((record-marker) + #((record-marker) #f (id args body)) + #(170 + (r$412) + ((if r$412 + (#((record-marker) + #((record-marker) #f (id args body)) + #(156 + () + ((in-port:get-lnum + #((record-marker) + #((record-marker) #f (id args body)) + #(155 + (r$413) + ((in-port:get-cnum + #((record-marker) + #((record-marker) + #f + (id args body)) + #(154 + (r$414) + ((parse-error + k$410 + "missing escaped character within string" + r$413 + r$414)))) + ptbl$173)))) + ptbl$173))))) + (#((record-marker) + #((record-marker) #f (id args body)) + #(169 + (r$422) + ((#((record-marker) + #((record-marker) #f (id args body)) + #(168 + (tmp$177) + ((#((record-marker) + #((record-marker) #f (id args body)) + #(167 + (k$423) + ((if tmp$177 + (k$423 tmp$177) + (k$423 (equal? #\\ c$176)))))) + #((record-marker) + #((record-marker) #f (id args body)) + #(166 + (r$415) + ((if r$415 + (#((record-marker) + #((record-marker) + #f + (id args body)) + #(157 + () + ((k$410 (cons c$176 + buf$174)))))) + (#((record-marker) + #((record-marker) + #f + (id args body)) + #(165 + (r$416) + ((if r$416 + (#((record-marker) + #((record-marker) + #f + (id args body)) + #(158 + () + ((k$410 (cons #\newline + buf$174)))))) + (#((record-marker) + #((record-marker) + #f + (id args body)) + #(164 + () + ((list #((record-marker) + #((record-marker) + #f + (id args + body)) + #(163 + (r$421) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(162 + (r$420) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(161 + (r$417) + ((in-port:get-lnum + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(160 + (r$418) + ((in-port:get-cnum + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(159 + (r$419) + ((parse-error + k$410 + r$417 + r$418 + r$419)))) + ptbl$173)))) + ptbl$173)))) + (string-append + "invalid escape character [" + r$420 + "] in string"))))) + (list->string + r$421))))) + c$176))))))))) + (equal? #\n c$176)))))))))) + r$422)))) + (equal? #\" c$176)))))) + (eof-object? c$176))))) + r$411)))) + (read-char fp$175)))))) + (define sign? + #((record-marker) + #((record-marker) #f (id args body)) + #(153 + (k$406 c$171) + ((#((record-marker) + #((record-marker) #f (id args body)) + #(152 + (r$407) + ((#((record-marker) + #((record-marker) #f (id args body)) + #(151 + (tmp$172) + ((if tmp$172 + (k$406 tmp$172) + (k$406 (equal? c$171 #\-)))))) + r$407)))) + (equal? c$171 #\+)))))) + (define token-numeric? + #((record-marker) + #((record-marker) #f (id args body)) + #(150 + (k$386 a$167) + ((#((record-marker) + #((record-marker) #f (id args body)) + #(149 + (r$403) + ((char-numeric? + #((record-marker) + #((record-marker) #f (id args body)) + #(148 + (r$387) + ((#((record-marker) + #((record-marker) #f (id args body)) + #(147 + (tmp$168) + ((if tmp$168 + (k$386 tmp$168) + (#((record-marker) + #((record-marker) #f (id args body)) + #(146 + (k$397) + ((#((record-marker) + #((record-marker) #f (id args body)) + #(145 + (r$402) + ((#((record-marker) + #((record-marker) #f (id args body)) + #(144 + (r$398) + ((if r$398 + (#((record-marker) + #((record-marker) + #f + (id args body)) + #(143 + (r$401) + ((#((record-marker) + #((record-marker) + #f + (id args body)) + #(142 + (r$399) + ((if r$399 + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(141 + (r$400) + ((char-numeric? + k$397 + r$400)))) + (cadr a$167)) + (k$397 #f))))) + (eq? #\. r$401))))) + (car a$167)) + (k$397 #f))))) + (> r$402 1))))) + (length a$167))))) + #((record-marker) + #((record-marker) #f (id args body)) + #(140 + (r$388) + ((#((record-marker) + #((record-marker) #f (id args body)) + #(139 + (tmp$169) + ((if tmp$169 + (k$386 tmp$169) + (#((record-marker) + #((record-marker) + #f + (id args body)) + #(138 + (r$396) + ((#((record-marker) + #((record-marker) + #f + (id args body)) + #(137 + (r$389) + ((if r$389 + (#((record-marker) + #((record-marker) + #f + (id args body)) + #(136 + (r$395) + ((char-numeric? + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(135 + (r$392) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(134 + (tmp$170) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(133 + (k$393) + ((if tmp$170 + (k$393 tmp$170) + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(132 + (r$394) + ((k$393 (eq? #\. + r$394))))) + (cadr a$167)))))) + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(131 + (r$390) + ((if r$390 + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(130 + (r$391) + ((sign? k$386 + r$391)))) + (car a$167)) + (k$386 #f))))))))) + r$392)))) + r$395)))) + (cadr a$167)) + (k$386 #f))))) + (> r$396 1))))) + (length a$167)))))) + r$388))))))))) + r$387)))) + r$403)))) + (car a$167)))))) + (define parse-atom + #((record-marker) + #((record-marker) #f (id args body)) + #(129 + (k$380 a$166) + ((token-numeric? + #((record-marker) + #((record-marker) #f (id args body)) + #(128 + (r$381) + ((if r$381 + (#((record-marker) + #((record-marker) #f (id args body)) + #(125 + () + ((#((record-marker) + #((record-marker) #f (id args body)) + #(124 (r$382) ((k$380 (string->number r$382))))) + (list->string a$166)))))) + (#((record-marker) + #((record-marker) #f (id args body)) + #(127 + () + ((#((record-marker) + #((record-marker) #f (id args body)) + #(126 (r$383) ((k$380 (string->symbol r$383))))) + (list->string a$166)))))))))) + a$166))))) + (define get-next-char + #((record-marker) + #((record-marker) #f (id args body)) + #(123 + (k$376 fp$165 ptbl$164) + ((in-port:get-buf + #((record-marker) + #((record-marker) #f (id args body)) + #(122 + (r$377) + ((if r$377 + (in-port:read-buf! k$376 ptbl$164) + (k$376 (read-char fp$165)))))) + ptbl$164))))) + (define read-block-comment + #((record-marker) + #((record-marker) #f (id args body)) + #(121 + (k$371 fp$162 ptbl$161) + ((get-next-char + #((record-marker) + #((record-marker) #f (id args body)) + #(120 + (r$372) + ((#((record-marker) + #((record-marker) #f (id args body)) + #(119 + (c$163) + ((#((record-marker) + #((record-marker) #f (id args body)) + #(118 + (r$373) + ((if r$373 + (#((record-marker) + #((record-marker) #f (id args body)) + #(116 + () + ((read-block-terminator + k$371 + fp$162 + ptbl$161))))) + (#((record-marker) + #((record-marker) #f (id args body)) + #(117 + () + ((read-block-comment + k$371 + fp$162 + ptbl$161))))))))) + (eq? #\| c$163))))) + r$372)))) + fp$162 + ptbl$161))))) + (define read-block-terminator + #((record-marker) + #((record-marker) #f (id args body)) + #(115 + (k$365 fp$159 ptbl$158) + ((get-next-char + #((record-marker) + #((record-marker) #f (id args body)) + #(114 + (r$366) + ((#((record-marker) + #((record-marker) #f (id args body)) + #(113 + (c$160) + ((#((record-marker) + #((record-marker) #f (id args body)) + #(112 + (r$367) + ((if r$367 + (#((record-marker) + #((record-marker) #f (id args body)) + #(108 () ((k$365 #t))))) + (#((record-marker) + #((record-marker) #f (id args body)) + #(111 + (r$368) + ((if r$368 + (#((record-marker) + #((record-marker) #f (id args body)) + #(109 + () + ((read-block-terminator + k$365 + fp$159 + ptbl$158))))) + (#((record-marker) + #((record-marker) #f (id args body)) + #(110 + () + ((read-block-comment + k$365 + fp$159 + ptbl$158))))))))) + (eq? #\| c$160)))))) + (eq? #\# c$160))))) + r$366)))) + fp$159 + ptbl$158))))) + (define parse-literal-identifier + #((record-marker) + #((record-marker) #f (id args body)) + #(107 + (k$358 fp$156 + toks$155 + all?$154 + parens$153 + ptbl$152) + ((#((record-marker) + #((record-marker) #f (id args body)) + #(106 + (r$362) + ((parse-li-rec + #((record-marker) + #((record-marker) #f (id args body)) + #(105 + (r$359) + ((#((record-marker) + #((record-marker) #f (id args body)) + #(104 + (sym$157) + ((if all?$154 + (#((record-marker) + #((record-marker) #f (id args body)) + #(103 + (r$360) + ((#((record-marker) + #((record-marker) #f (id args body)) + #(102 + (r$361) + ((parse k$358 + fp$156 + r$360 + r$361 + all?$154 + #f + parens$153 + ptbl$152)))) + (cons sym$157 toks$155))))) + '()) + (k$358 sym$157))))) + r$359)))) + fp$156 + r$362 + ptbl$152)))) + '()))))) + (define parse-li-rec + #((record-marker) + #((record-marker) #f (id args body)) + #(101 + (k$343 fp$147 tok$146 ptbl$145) + ((get-next-char + #((record-marker) + #((record-marker) #f (id args body)) + #(100 + (r$344) + ((#((record-marker) + #((record-marker) #f (id args body)) + #(97 + (r$345) + ((#((record-marker) + #((record-marker) #f (id args body)) + #(96 + (c$150 next$149) + ((#((record-marker) + #((record-marker) #f (id args body)) + #(95 + (r$346) + ((if r$346 + (#((record-marker) + #((record-marker) #f (id args body)) + #(89 + () + ((#((record-marker) + #((record-marker) #f (id args body)) + #(88 + (k$348) + ((#((record-marker) + #((record-marker) + #f + (id args body)) + #(87 + (r$349) + ((if r$349 + (k$348 "||") + (reverse + #((record-marker) + #((record-marker) + #f + (id args body)) + #(86 + (r$350) + ((k$348 (list->string + r$350))))) + tok$146))))) + (null? tok$146))))) + #((record-marker) + #((record-marker) #f (id args body)) + #(85 + (r$347) + ((#((record-marker) + #((record-marker) + #f + (id args body)) + #(84 + (str$151) + ((k$343 (string->symbol + str$151))))) + r$347))))))))) + (#((record-marker) + #((record-marker) #f (id args body)) + #(94 + (r$351) + ((if r$351 + (#((record-marker) + #((record-marker) + #f + (id args body)) + #(92 + () + ((in-port:get-lnum + #((record-marker) + #((record-marker) + #f + (id args body)) + #(91 + (r$352) + ((in-port:get-cnum + #((record-marker) + #((record-marker) + #f + (id args body)) + #(90 + (r$353) + ((parse-error + k$343 + "EOF encountered parsing literal identifier" + r$352 + r$353)))) + ptbl$145)))) + ptbl$145))))) + (#((record-marker) + #((record-marker) + #f + (id args body)) + #(93 + () + ((next$149 k$343 c$150))))))))) + (eof-object? c$150)))))) + (eq? #\| c$150))))) + r$344 + r$345)))) + #((record-marker) + #((record-marker) #f (id args body)) + #(99 + (k$354 c$148) + ((#((record-marker) + #((record-marker) #f (id args body)) + #(98 + (r$355) + ((parse-li-rec k$354 fp$147 r$355 ptbl$145)))) + (cons c$148 tok$146))))))))) + fp$147 + ptbl$145))))) + (define parse-number + #((record-marker) + #((record-marker) #f (id args body)) + #(83 + (k$325 fp$141 + toks$140 + all?$139 + parens$138 + ptbl$137 + base$136 + tok->num$135) + ((#((record-marker) + #((record-marker) #f (id args body)) + #(82 + (r$340) + ((parse-number-rec + #((record-marker) + #((record-marker) #f (id args body)) + #(81 + (r$326) + ((#((record-marker) + #((record-marker) #f (id args body)) + #(80 + (num$142) + ((#((record-marker) + #((record-marker) #f (id args body)) + #(79 + (k$333) + ((#((record-marker) + #((record-marker) #f (id args body)) + #(78 + (r$334) + ((if r$334 + (k$333 #f) + (token-numeric? + #((record-marker) + #((record-marker) + #f + (id args body)) + #(77 + (r$335) + ((#((record-marker) + #((record-marker) + #f + (id args body)) + #(76 + (tmp$144) + ((if tmp$144 + (k$333 tmp$144) + (#((record-marker) + #((record-marker) + #f + (id args body)) + #(75 + (r$339) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(74 + (r$336) + ((if r$336 + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(73 + (r$337) + ((if r$337 + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(72 + (r$338) + ((hex-digit? + k$333 + r$338)))) + (car num$142)) + (k$333 #f))))) + (= base$136 + 16)) + (k$333 #f))))) + (> r$339 0))))) + (length num$142)))))) + r$335)))) + num$142))))) + (null? num$142))))) + #((record-marker) + #((record-marker) #f (id args body)) + #(71 + (r$327) + ((if r$327 + (#((record-marker) + #((record-marker) #f (id args body)) + #(67 + () + ((tok->num$135 + #((record-marker) + #((record-marker) + #f + (id args body)) + #(66 + (r$328) + ((#((record-marker) + #((record-marker) + #f + (id args body)) + #(65 + (result$143) + ((if all?$139 + (#((record-marker) + #((record-marker) + #f + (id args body)) + #(64 + (r$329) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(63 + (r$330) + ((parse k$325 + fp$141 + r$329 + r$330 + all?$139 + #f + parens$138 + ptbl$137)))) + (cons result$143 + toks$140))))) + '()) + (k$325 result$143))))) + r$328)))) + num$142))))) + (#((record-marker) + #((record-marker) #f (id args body)) + #(70 + () + ((in-port:get-lnum + #((record-marker) + #((record-marker) + #f + (id args body)) + #(69 + (r$331) + ((in-port:get-cnum + #((record-marker) + #((record-marker) + #f + (id args body)) + #(68 + (r$332) + ((parse-error + k$325 + "Illegal number syntax" + r$331 + r$332)))) + ptbl$137)))) + ptbl$137))))))))))))) + r$326)))) + base$136 + fp$141 + r$340 + ptbl$137)))) + '()))))) + (define parse-number-rec + #((record-marker) + #((record-marker) #f (id args body)) + #(62 + (k$301 base$130 fp$129 tok$128 ptbl$127) + ((get-next-char + #((record-marker) + #((record-marker) #f (id args body)) + #(61 + (r$302) + ((#((record-marker) + #((record-marker) #f (id args body)) + #(58 + (r$303) + ((#((record-marker) + #((record-marker) #f (id args body)) + #(57 + (c$133 next$132) + ((sign? #((record-marker) + #((record-marker) #f (id args body)) + #(56 + (r$304) + ((if r$304 + (#((record-marker) + #((record-marker) #f (id args body)) + #(34 () ((next$132 k$301 c$133))))) + (#((record-marker) + #((record-marker) #f (id args body)) + #(55 + (r$305) + ((if r$305 + (#((record-marker) + #((record-marker) + #f + (id args body)) + #(35 + () + ((next$132 + k$301 + c$133))))) + (char-numeric? + #((record-marker) + #((record-marker) + #f + (id args body)) + #(54 + (r$306) + ((if r$306 + (#((record-marker) + #((record-marker) + #f + (id args body)) + #(47 + () + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(46 + (k$308) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(45 + (k$315) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(44 + (r$316) + ((if r$316 + (char>? + k$315 + c$133 + #\1) + (k$315 #f))))) + (= base$130 + 2))))) + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(43 + (r$312) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(42 + (tmp$134) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(41 + (k$313) + ((if tmp$134 + (k$313 tmp$134) + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(40 + (r$314) + ((if r$314 + (char>? + k$313 + c$133 + #\7) + (k$313 #f))))) + (= base$130 + 8)))))) + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(39 + (r$309) + ((if r$309 + (in-port:get-lnum + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(38 + (r$310) + ((in-port:get-cnum + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(37 + (r$311) + ((parse-error + k$308 + "Illegal digit" + r$310 + r$311)))) + ptbl$127)))) + ptbl$127) + (k$308 #f))))))))) + r$312)))))))) + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(36 + (r$307) + ((next$132 + k$301 + c$133))))))))) + (#((record-marker) + #((record-marker) + #f + (id args body)) + #(53 + (k$319) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(52 + (r$320) + ((if r$320 + (hex-digit? + k$319 + c$133) + (k$319 #f))))) + (= base$130 + 16))))) + #((record-marker) + #((record-marker) + #f + (id args body)) + #(51 + (r$317) + ((if r$317 + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(48 + () + ((next$132 + k$301 + c$133))))) + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(50 + () + ((in-port:set-buf! + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(49 + (r$318) + ((reverse + k$301 + tok$128)))) + ptbl$127 + c$133)))))))))))))) + c$133))))) + (eq? #\. c$133)))))) + c$133)))) + r$302 + r$303)))) + #((record-marker) + #((record-marker) #f (id args body)) + #(60 + (k$321 c$131) + ((#((record-marker) + #((record-marker) #f (id args body)) + #(59 + (r$322) + ((parse-number-rec + k$321 + base$130 + fp$129 + r$322 + ptbl$127)))) + (cons c$131 tok$128))))))))) + fp$129 + ptbl$127))))) + (define hex-digit? + #((record-marker) + #((record-marker) #f (id args body)) + #(33 + (k$294 c$125) + ((#((record-marker) + #((record-marker) #f (id args body)) + #(32 + (k$297) + ((char>=? + #((record-marker) + #((record-marker) #f (id args body)) + #(31 + (r$298) + ((if r$298 (char<=? k$297 c$125 #\f) (k$297 #f))))) + c$125 + #\a)))) + #((record-marker) + #((record-marker) #f (id args body)) + #(30 + (r$295) + ((#((record-marker) + #((record-marker) #f (id args body)) + #(29 + (tmp$126) + ((if tmp$126 + (k$294 tmp$126) + (char>=? + #((record-marker) + #((record-marker) #f (id args body)) + #(28 + (r$296) + ((if r$296 (char<=? k$294 c$125 #\F) (k$294 #f))))) + c$125 + #\A))))) + r$295))))))))) + (define cyc-read + #((record-marker) + #((record-marker) #f (id args body)) + #(27 + (k$285 . args$123) + ((#((record-marker) + #((record-marker) #f (id args body)) + #(26 + (k$290) + ((#((record-marker) + #((record-marker) #f (id args body)) + #(25 + (r$291) + ((if r$291 + (current-input-port k$290) + (k$290 (car args$123)))))) + (null? args$123))))) + #((record-marker) + #((record-marker) #f (id args body)) + #(24 + (r$286) + ((#((record-marker) + #((record-marker) #f (id args body)) + #(23 + (fp$124) + ((#((record-marker) + #((record-marker) #f (id args body)) + #(22 + (r$287) + ((#((record-marker) + #((record-marker) #f (id args body)) + #(21 + (r$288) + ((reg-port + #((record-marker) + #((record-marker) #f (id args body)) + #(20 + (r$289) + ((parse k$285 + fp$124 + r$287 + r$288 + #f + #f + 0 + r$289)))) + fp$124)))) + '())))) + '())))) + r$286))))))))) + (define read-all + #((record-marker) + #((record-marker) #f (id args body)) + #(19 + (k$272 . args$116) + ((#((record-marker) + #((record-marker) #f (id args body)) + #(18 + (loop$117) + ((#((record-marker) + #((record-marker) #f (id args body)) + #(17 + (k$281) + ((#((record-marker) + #((record-marker) #f (id args body)) + #(16 + (r$282) + ((if r$282 + (current-input-port k$281) + (k$281 (car args$116)))))) + (null? args$116))))) + #((record-marker) + #((record-marker) #f (id args body)) + #(15 + (r$273) + ((#((record-marker) + #((record-marker) #f (id args body)) + #(14 + (fp$118) + ((#((record-marker) + #((record-marker) #f (id args body)) + #(13 + (loop$119) + ((#((record-marker) + #((record-marker) #f (id args body)) + #(7 + (r$276) + ((#((record-marker) + #((record-marker) #f (id args body)) + #(6 + (r$274) + ((#((record-marker) + #((record-marker) + #f + (id args body)) + #(5 + (r$275) + ((loop$119 + k$272 + fp$118 + r$275)))) + '())))) + (set! loop$119 r$276))))) + #((record-marker) + #((record-marker) #f (id args body)) + #(12 + (k$277 fp$121 result$120) + ((cyc-read + #((record-marker) + #((record-marker) #f (id args body)) + #(11 + (r$278) + ((#((record-marker) + #((record-marker) + #f + (id args body)) + #(10 + (obj$122) + ((#((record-marker) + #((record-marker) + #f + (id args body)) + #(9 + (r$279) + ((if r$279 + (reverse + k$277 + result$120) + (#((record-marker) + #((record-marker) + #f + (id args body)) + #(8 + (r$280) + ((loop$119 + k$277 + fp$121 + r$280)))) + (cons obj$122 + result$120)))))) + (eof-object? obj$122))))) + r$278)))) + fp$121)))))))) + #f)))) + r$273)))))))) + #f))))) + (define lib-init:schemeread + #((record-marker) + #((record-marker) #f (id args body)) + #(4 + (k$266) + ((#((record-marker) + #((record-marker) #f (id args body)) + #(3 + (r$267) + ((#((record-marker) + #((record-marker) #f (id args body)) + #(2 + (r$268) + ((#((record-marker) + #((record-marker) #f (id args body)) + #(1 + (r$269) + ((k$266 (set! *in-port-table* r$269))))) + '())))) + (set! read cyc-read))))) + 0)))))) + */ +/* +"---------------- cps analysis db:" + */ +/* +#((record-marker) + #((record-marker) + #f + (size hash compare associate entries)) + #(1341 + #[procedure] + #[procedure] + #[procedure] + #(() + ((1 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((2 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((3 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((4 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((5 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((6 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((7 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((8 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((9 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((10 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((11 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#t ? ())))) + ((12 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? (r$276 loop$119 r$276)))) + (k$343 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 101 #f #f (93 90 84) #f #f 1 2)))) + ((13 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((14 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((15 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#t ? (k$281))))) + ((16 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((17 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ()))) + (k$348 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f + 88 + #f + #f + (86 87) + #f + #((record-marker) + #((record-marker) #f (id args body)) + #(85 + (r$347) + ((#((record-marker) + #((record-marker) #f (id args body)) + #(84 + (str$151) + ((k$343 (string->symbol str$151))))) + r$347)))) + 2 + 0)))) + ((18 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((19 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((20 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((21 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((22 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((23 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((24 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#t ? (k$290))))) + ((25 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((26 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((27 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((28 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ()))) + (k$648 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 439 #f #f (438) #f #f 0 1)))) + ((29 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((30 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#t ? (k$297))))) + ((31 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((32 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((33 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((34 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((35 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((36 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? (k$308))))) + ((37 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((38 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((39 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? (k$313))))) + ((40 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((41 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((42 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((43 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#t ? (k$315))))) + ((44 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((45 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((46 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((47 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((48 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((49 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((50 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ()))) + (k$354 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 99 #f #f (98) #f #f 0 1)))) + ((51 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? (k$319))))) + ((52 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((53 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((54 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ()))) + (k$358 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 107 #f #f (104 102) #f #f 1 1)))) + ((55 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((56 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((57 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((58 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((59 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ()))) + (k$652 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 443 #f #f (442) #f #f 0 1)))) + ((60 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? (r$303 next$132 r$303))))) + ((61 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((62 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((63 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ()))) + (k$656 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 447 #f #f (446) #f #f 1 0)))) + ((64 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ()))) + (fp$202 + . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f + 569 + #f + #f + (548 + 547 + 544 + 545 + 521 + 516 + 511 + 507 + 503 + 489 + 488 + 481 + 471 + 457 + 453 + 449 + 445 + 441 + 437 + 434 + 431 + 430 + 428 + 422 + 415 + 389 + 377 + 366 + 348 + 341 + 330 + 321 + 310 + 301 + 296 + 287 + 284 + 278 + 563) + #f + #f + 0 + 39)))) + ((65 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((66 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#t ? ())))) + ((67 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((68 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((69 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((70 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((71 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? (k$333))))) + ((72 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((73 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((74 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((75 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((76 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((77 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#t ? ())))) + ((78 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((79 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((80 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((81 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#t ? ())))) + ((82 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((83 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((84 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((85 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#t ? (k$348))))) + ((86 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((87 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((88 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ()))) + (k$365 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 115 #f #f (110 109 108) #f #f 1 2)))) + ((89 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((90 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((91 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((92 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((93 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((94 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ()))) + (k$660 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 451 #f #f (450) #f #f 1 0)))) + ((95 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((96 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((97 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((98 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ()))) + (k$664 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 455 #f #f (454) #f #f 1 0)))) + ((99 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? (r$345 next$149 r$345))))) + ((100 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((101 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((102 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((103 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((104 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((105 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#t ? ())))) + ((106 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((107 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((108 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((109 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((110 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((111 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((112 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((113 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((114 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#t ? ())))) + ((115 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((116 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((117 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((118 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((119 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((120 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#t ? ())))) + ((k$371 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 121 #f #f (117 116) #f #f 0 2))) + (121 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((122 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((123 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((124 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((125 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((k$376 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 123 #f #f (122 122) #f #f 1 1))) + (126 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((127 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((128 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((129 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((130 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((131 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? (k$393))))) + ((132 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((133 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((134 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((135 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#t ? ())))) + ((136 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((137 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((138 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ()))) + (k$677 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f + 466 + #f + #f + (463 461) + #f + #((record-marker) + #((record-marker) #f (id args body)) + #(460 + (r$676) + ((add-tok + #((record-marker) + #((record-marker) #f (id args body)) + #(459 + (r$675) + ((#((record-marker) + #((record-marker) #f (id args body)) + #(458 + (r$673) + ((if all?$199 + (#((record-marker) + #((record-marker) #f (id args body)) + #(457 + (r$674) + ((parse k$497 + fp$202 + r$674 + new-toks$212 + all?$199 + #f + parens$197 + ptbl$196)))) + '()) + (k$497 (car new-toks$212)))))) + (set! new-toks$212 r$675))))) + r$676 + toks*$210)))) + 1 + 1)))) + ((139 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((140 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#t ? (k$397))))) + ((141 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((142 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((143 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((144 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((145 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((146 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((147 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((148 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#t ? ())))) + ((149 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((150 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((151 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((152 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#t ? ())))) + ((153 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((154 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((155 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((156 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((k$380 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 129 #f #f (126 124) #f #f 2 0))) + (157 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((158 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((159 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((160 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((161 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((162 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((163 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ()))) + (k$386 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 150 #f #f (137 131 130 139 147) #f #f 4 1)))) + ((164 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((165 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((166 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? (k$423))))) + ((167 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((168 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((k$681 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f + 465 + #f + #f + (464 464) + #f + #((record-marker) + #((record-marker) #f (id args body)) + #(463 + (r$678) + ((if r$678 + (in-port:get-lnum + #((record-marker) + #((record-marker) #f (id args body)) + #(462 + (r$679) + ((in-port:get-cnum + #((record-marker) + #((record-marker) #f (id args body)) + #(461 + (r$680) + ((parse-error + k$677 + "Invalid vector syntax" + r$679 + r$680)))) + ptbl$196)))) + ptbl$196) + (k$677 (apply bytevector sub$211)))))) + 1 + 1))) + (169 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#t ? ())))) + ((170 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((171 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((172 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#t ? ())))) + ((173 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((k$686 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f + 478 + #f + #f + (475 477) + #f + #((record-marker) + #((record-marker) #f (id args body)) + #(474 + (r$670) + ((#((record-marker) + #((record-marker) #f (id args body)) + #(473 + (r$683) + ((#((record-marker) + #((record-marker) #f (id args body)) + #(472 + (r$684) + ((#((record-marker) + #((record-marker) #f (id args body)) + #(471 + (r$685) + ((parse #((record-marker) + #((record-marker) + #f + (id args body)) + #(470 + (r$671) + ((get-toks + #((record-marker) + #((record-marker) + #f + (id args body)) + #(469 + (r$672) + ((#((record-marker) + #((record-marker) + #f + (id args body)) + #(468 + (sub$211 + toks*$210) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(467 + (new-toks$212) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(466 + (k$677) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(465 + (k$681) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(464 + (r$682) + ((if r$682 + (dotted? + k$681 + sub$211) + (k$681 #f))))) + (pair? sub$211))))) + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(463 + (r$678) + ((if r$678 + (in-port:get-lnum + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(462 + (r$679) + ((in-port:get-cnum + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(461 + (r$680) + ((parse-error + k$677 + "Invalid vector syntax" + r$679 + r$680)))) + ptbl$196)))) + ptbl$196) + (k$677 (apply bytevector + sub$211)))))))))) + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(460 + (r$676) + ((add-tok + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(459 + (r$675) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(458 + (r$673) + ((if all?$199 + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(457 + (r$674) + ((parse k$497 + fp$202 + r$674 + new-toks$212 + all?$199 + #f + parens$197 + ptbl$196)))) + '()) + (k$497 (car new-toks$212)))))) + (set! new-toks$212 + r$675))))) + r$676 + toks*$210)))))))) + #f)))) + r$671 + r$672)))) + tok$201 + toks$200)))) + fp$202 + r$683 + r$684 + #t + #f + r$685 + ptbl$196)))) + (+ parens$197 1))))) + '())))) + '())))) + 1 + 1))) + (174 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((175 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((176 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((177 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((178 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((179 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((180 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((181 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((182 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((183 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((184 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((185 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((186 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((187 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#t ? ())))) + ((188 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((189 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((r$500 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 560 #f #f (560) #f (eof-object? c$204) 0 0))) + (190 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((r$501 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 272 #f #f () #f #f 0 0))) + (191 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((r$502 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 267 #f #f (267) #f #f 0 1))) + (192 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((r$503 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 271 #f #f (271) #f #f 0 1))) + (193 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((r$504 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 268 #f #f (268) #f (> r$505 0) 0 0))) + (194 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((r$505 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 269 #f #f (269) #f (length last$232) 0 1))) + (195 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((196 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? (k$449))))) + ((k$393 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f + 133 + #f + #f + (132 133) + #f + #((record-marker) + #((record-marker) #f (id args body)) + #(131 + (r$390) + ((if r$390 + (#((record-marker) + #((record-marker) #f (id args body)) + #(130 (r$391) ((sign? k$386 r$391)))) + (car a$167)) + (k$386 #f))))) + 2 + 0))) + (r$507 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 275 #f #f (275) #f (> parens$197 0) 0 0))) + (197 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((r$508 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 274 #f #f (273) #f #f 0 1))) + (198 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((r$509 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 273 #f #f (273) #f #f 0 1))) + (199 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((200 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#t ? (k$453))))) + ((201 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ()))) + (k$397 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f + 146 + #f + #f + (144 142 141) + #f + #((record-marker) + #((record-marker) #f (id args body)) + #(140 + (r$388) + ((#((record-marker) + #((record-marker) #f (id args body)) + #(139 + (tmp$169) + ((if tmp$169 + (k$386 tmp$169) + (#((record-marker) + #((record-marker) #f (id args body)) + #(138 + (r$396) + ((#((record-marker) + #((record-marker) #f (id args body)) + #(137 + (r$389) + ((if r$389 + (#((record-marker) + #((record-marker) + #f + (id args body)) + #(136 + (r$395) + ((char-numeric? + #((record-marker) + #((record-marker) + #f + (id args body)) + #(135 + (r$392) + ((#((record-marker) + #((record-marker) + #f + (id args body)) + #(134 + (tmp$170) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(133 + (k$393) + ((if tmp$170 + (k$393 tmp$170) + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(132 + (r$394) + ((k$393 (eq? #\. + r$394))))) + (cadr a$167)))))) + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(131 + (r$390) + ((if r$390 + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(130 + (r$391) + ((sign? k$386 + r$391)))) + (car a$167)) + (k$386 #f))))))))) + r$392)))) + r$395)))) + (cadr a$167)) + (k$386 #f))))) + (> r$396 1))))) + (length a$167)))))) + r$388)))) + 2 + 1)))) + ((r$801 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 615 #f #f (615) #f (cdr ptbl$258) 0 1))) + (202 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((203 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((204 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((205 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((k$691 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f + 485 + #f + #f + (482 484) + #f + #((record-marker) + #((record-marker) #f (id args body)) + #(481 + (r$668) + ((#((record-marker) + #((record-marker) #f (id args body)) + #(480 + (r$690) + ((#((record-marker) + #((record-marker) #f (id args body)) + #(479 + (r$669) + ((#((record-marker) + #((record-marker) #f (id args body)) + #(478 + (k$686) + ((#((record-marker) + #((record-marker) #f (id args body)) + #(477 + (r$687) + ((if r$687 + (k$686 #f) + (in-port:get-lnum + #((record-marker) + #((record-marker) + #f + (id args body)) + #(476 + (r$688) + ((in-port:get-cnum + #((record-marker) + #((record-marker) + #f + (id args body)) + #(475 + (r$689) + ((parse-error + k$686 + "Unhandled input sequence" + r$688 + r$689)))) + ptbl$196)))) + ptbl$196))))) + (eq? #\( next-c$205))))) + #((record-marker) + #((record-marker) #f (id args body)) + #(474 + (r$670) + ((#((record-marker) + #((record-marker) #f (id args body)) + #(473 + (r$683) + ((#((record-marker) + #((record-marker) + #f + (id args body)) + #(472 + (r$684) + ((#((record-marker) + #((record-marker) + #f + (id args body)) + #(471 + (r$685) + ((parse #((record-marker) + #((record-marker) + #f + (id args + body)) + #(470 + (r$671) + ((get-toks + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(469 + (r$672) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(468 + (sub$211 + toks*$210) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(467 + (new-toks$212) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(466 + (k$677) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(465 + (k$681) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(464 + (r$682) + ((if r$682 + (dotted? + k$681 + sub$211) + (k$681 #f))))) + (pair? sub$211))))) + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(463 + (r$678) + ((if r$678 + (in-port:get-lnum + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(462 + (r$679) + ((in-port:get-cnum + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(461 + (r$680) + ((parse-error + k$677 + "Invalid vector syntax" + r$679 + r$680)))) + ptbl$196)))) + ptbl$196) + (k$677 (apply bytevector + sub$211)))))))))) + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(460 + (r$676) + ((add-tok + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(459 + (r$675) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(458 + (r$673) + ((if all?$199 + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(457 + (r$674) + ((parse k$497 + fp$202 + r$674 + new-toks$212 + all?$199 + #f + parens$197 + ptbl$196)))) + '()) + (k$497 (car new-toks$212)))))) + (set! new-toks$212 + r$675))))) + r$676 + toks*$210)))))))) + #f)))) + r$671 + r$672)))) + tok$201 + toks$200)))) + fp$202 + r$683 + r$684 + #t + #f + r$685 + ptbl$196)))) + (+ parens$197 1))))) + '())))) + '())))))))) + (set! next-c$205 r$690))))) + (read-char fp$202))))) + 1 + 1))) + (206 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#t ? ())))) + ((207 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((208 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#t ? ())))) + ((r$808 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 620 #f #f (620) #f (cadr ptbl$260) 0 1))) + (209 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? (r$442 loop$186 r$442))))) + ((r$809 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 618 #f #f () #f #f 0 0))) + (fp$240 + . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 581 #f #f (572 570) #f #f 0 2))) + (210 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((211 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((212 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((213 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((214 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((215 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((216 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((217 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((218 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((219 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((220 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((221 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((222 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((223 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((224 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((225 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((226 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((r$510 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f + 285 + #f + #f + (285) + #f + (eq? c$204 #\newline) + 0 + 0))) + (227 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((r$511 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 280 #f #f () #f #f 0 0))) + (228 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((r$512 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 279 #f #f () #f #f 0 0))) + (229 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((r$513 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 278 #f #f (278) #f '() 0 1))) + (230 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((r$514 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 281 #f #f (281) #f (+ 1 r$515) 0 1))) + (231 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((r$515 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 282 #f #f (282) #f #f 0 1))) + (232 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((r$516 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 284 #f #f (284) #f '() 0 1))) + (233 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((r$517 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 559 #f #f (559) #f #f 0 0))) + (234 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? (k$480))))) + ((r$518 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 290 #f #f () #f #f 0 0))) + (235 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((r$519 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 287 #f #f () #f #f 0 0))) + (236 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((237 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((238 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((239 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((240 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((r$813 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f + 629 + #f + #f + (629) + #f + (assoc fp$262 *in-port-table*) + 0 + 1))) + (241 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((r$814 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 625 #f #f () #f (set! r$263 r$817) 0 0))) + (242 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((r$815 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f + 623 + #f + #f + () + #f + (set! *in-port-table* r$816) + 0 + 0))) + (243 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((r$816 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f + 624 + #f + #f + (624) + #f + (cons r$263 *in-port-table*) + 0 + 0))) + (244 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((r$817 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 626 #f #f (626) #f #f 0 0))) + (245 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((246 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((247 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((248 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((249 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((250 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((251 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((252 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((253 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((254 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((list . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(? ? #f #f (164 346 326 306 627) #f #f 5 0))) + (255 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((256 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((257 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((258 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((259 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((260 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((261 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((262 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#t ? ())))) + ((263 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? (r$456 done$187 r$456))))) + ((264 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((r$521 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f + 288 + #f + #f + (288) + #f + (equal? c$204 #\newline) + 0 + 0))) + (265 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((266 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((267 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ()))) + (r$523 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f + 293 + #f + #f + (293) + #f + (equal? c$204 #\newline) + 0 + 0)))) + ((r$524 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 291 #f #f (291) #f (+ 1 r$525) 0 1))) + (268 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((r$525 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 292 #f #f (292) #f #f 0 1))) + (269 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((r$526 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 558 #f #f (558) #f (eq? c$204 #\;) 0 0))) + (270 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((r$527 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 557 #f #f (557) #f (eq? c$204 #\') 0 0))) + (271 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#t ? ())))) + ((r$528 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 313 #f #f (313) #f #f 0 0))) + (272 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? (k$506))))) + ((r$529 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 299 #f #f () #f #f 0 0))) + (273 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((274 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((275 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((276 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((277 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((278 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((279 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((280 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((281 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((282 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((283 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((284 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((285 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((fp$262 + . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 630 #f #f (630 627) #f #f 0 2))) + (286 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((287 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? (k$520))))) + ((288 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((289 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((290 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? (k$522))))) + ((291 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((292 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((293 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((294 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((295 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((296 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((297 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((298 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((299 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((300 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((301 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ()))) + (r$530 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 297 #f #f (297) #f #f 0 1)))) + ((302 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ()))) + (r$531 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 298 #f #f (298) #f #f 0 1)))) + ((303 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ()))) + (r$532 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 309 #f #f (309) #f #f 0 1)))) + ((r$533 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f + 302 + #f + #f + () + #f + (set! new-toks$231 r$535) + 0 + 0))) + (304 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((r$534 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 301 #f #f (301) #f '() 0 1))) + (305 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((r$535 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 303 #f #f (303) #f #f 0 0))) + (306 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((r$536 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 305 #f #f (304) #f #f 0 1))) + (307 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((r$537 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 304 #f #f (304) #f #f 0 1))) + (308 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((r$538 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 306 #f #f (306) #f 'quote 0 1))) + (309 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#t ? ())))) + ((310 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ()))) + (r$539 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 311 #f #f (310) #f '() 0 1)))) + ((311 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((312 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((313 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? (k$541))))) + ((314 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((315 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((316 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((317 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((318 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((319 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((320 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((321 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((322 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((323 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((324 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((325 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((326 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((327 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((328 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((329 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#t ? ())))) + ((330 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((331 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((332 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((333 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? (k$557))))) + ((334 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((335 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((336 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((337 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((338 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ()))) + (r$540 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 310 #f #f (310) #f '() 0 1)))) + ((339 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((340 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ()))) + (r$542 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 314 #f #f (314) #f (null? tok$201) 0 1)))) + ((341 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ()))) + (r$543 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 556 #f #f (556) #f (eq? c$204 #\`) 0 0)))) + ((342 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ()))) + (r$544 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 333 #f #f (333) #f #f 0 0)))) + ((343 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ()))) + (r$545 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 319 #f #f () #f #f 0 0)))) + ((344 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ()))) + (r$546 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 317 #f #f (317) #f #f 0 1)))) + ((345 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ()))) + (r$547 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 318 #f #f (318) #f #f 0 1)))) + ((346 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ()))) + (r$548 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 329 #f #f (329) #f #f 0 1)))) + ((347 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ()))) + (r$549 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f + 322 + #f + #f + () + #f + (set! new-toks$229 r$551) + 0 + 0)))) + ((348 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((349 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((350 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? (k$578))))) + ((351 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((352 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((353 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((354 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((355 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((356 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((357 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((358 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((359 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((360 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((361 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? (k$584))))) + ((362 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((363 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((364 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((365 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((366 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((367 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((368 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((369 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? (k$587))))) + ((370 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((371 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((372 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((373 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((374 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((375 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ()))) + (r$550 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 321 #f #f (321) #f '() 0 1)))) + ((376 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ()))) + (r$551 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 323 #f #f (323) #f #f 0 0)))) + ((377 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ()))) + (r$552 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 325 #f #f (324) #f #f 0 1)))) + ((378 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ()))) + (r$553 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 324 #f #f (324) #f #f 0 1)))) + ((379 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ()))) + (r$554 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 326 #f #f (326) #f 'quasiquote 0 1)))) + ((380 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? (k$600)))) + (r$555 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 331 #f #f (330) #f '() 0 1)))) + ((381 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? (k$602)))) + (r$556 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 330 #f #f (330) #f '() 0 1)))) + ((382 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((383 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ()))) + (r$558 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 334 #f #f (334) #f (null? tok$201) 0 1)))) + ((384 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ()))) + (r$559 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 555 #f #f (555) #f (eq? c$204 #\,) 0 0)))) + ((385 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((386 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((387 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((388 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((389 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((390 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((391 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((392 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((393 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? (k$607))))) + ((394 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((395 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((396 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((397 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((398 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((399 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((400 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((401 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((402 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((403 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((404 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ()))) + (r$263 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f + 628 + #f + #f + (626 625 623 622 628) + #t + r$817 + 0 + 3)))) + ((405 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((406 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((407 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? (k$618))))) + ((r$267 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 3 #t 0 () #f 0 0 0))) + (408 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((r$268 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 2 #f #f () #f (set! read cyc-read) 0 0))) + (409 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((r$269 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 1 #f #f (1) #f '() 0 0))) + (410 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((411 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((412 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ()))) + (r$560 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 369 #f #f (369) #f #f 0 0)))) + ((413 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ()))) + (r$561 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 339 #f #f () #f #f 0 0)))) + ((414 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ()))) + (r$562 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 337 #f #f (337) #f #f 0 1)))) + ((r$563 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 338 #f #f (338) #f #f 0 1))) + (415 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((r$564 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 366 #f #f () #f (set! sub$227 #f) 0 0))) + (416 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((r$565 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 364 #f #f () #f (set! next-c$226 r$586) 0 0))) + (417 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((r$566 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f + 360 + #f + #f + () + #f + (set! unquote-sym$225 r$583) + 0 + 0))) + (418 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((r$567 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 359 #f #f () #f (set! new-toks$224 #f) 0 0))) + (419 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((r$568 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 350 #f #f () #f #f 0 0))) + (420 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((r$569 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 346 #f #f () #f (set! sub$227 r$575) 0 0))) + (421 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((422 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((423 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((424 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? (k$631))))) + ((425 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((426 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((427 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((428 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((429 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((430 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((431 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((432 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((433 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((434 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((435 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((436 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((437 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((438 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((439 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? (r$647))))) + ((440 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((r$273 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 15 #f #f (15) #f #f 0 1))) + (441 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((r$274 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 6 #f #f () #f (set! loop$119 r$276) 0 0))) + (442 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((r$275 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 5 #f #f (5) #f '() 0 1))) + (443 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? (r$651))))) + ((r$276 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f + 7 + #f + #f + (7) + #f + #((record-marker) + #((record-marker) #f (id args body)) + #(12 + (k$277 fp$121 result$120) + ((cyc-read + #((record-marker) + #((record-marker) #f (id args body)) + #(11 + (r$278) + ((#((record-marker) + #((record-marker) #f (id args body)) + #(10 + (obj$122) + ((#((record-marker) + #((record-marker) #f (id args body)) + #(9 + (r$279) + ((if r$279 + (reverse k$277 result$120) + (#((record-marker) + #((record-marker) + #f + (id args body)) + #(8 + (r$280) + ((loop$119 + k$277 + fp$121 + r$280)))) + (cons obj$122 result$120)))))) + (eof-object? obj$122))))) + r$278)))) + fp$121)))) + 0 + 0))) + (444 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((445 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((r$278 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 11 #f #f (11) #f #f 0 1))) + (446 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((r$279 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 9 #f #f (9) #f (eof-object? obj$122) 0 0))) + (447 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? (r$655))))) + ((448 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((r$570 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f + 342 + #f + #f + () + #f + (set! new-toks$224 r$572) + 0 + 0))) + (449 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((r$571 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 341 #f #f (341) #f '() 0 1))) + (450 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((r$572 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 343 #f #f (343) #f #f 0 0))) + (451 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? (r$659))))) + ((r$573 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 345 #f #f (344) #f #f 0 1))) + (452 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((r$574 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 344 #f #f (344) #f #f 0 1))) + (453 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((r$575 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 347 #f #f (347) #f #f 0 0))) + (454 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((r$576 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 349 #f #f (348) #f '() 0 1))) + (455 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? (r$663))))) + ((r$577 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 348 #f #f (348) #f '() 0 1))) + (456 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((457 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((r$579 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f + 357 + #f + #f + (357) + #f + (eof-object? next-c$226) + 0 + 0))) + (458 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((459 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((460 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? (k$677))))) + ((461 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((462 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((463 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? (k$681))))) + ((464 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((465 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((466 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((467 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((468 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((469 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((470 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((471 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((472 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((473 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((474 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? (k$686))))) + ((r$280 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f + 8 + #f + #f + (8) + #f + (cons obj$122 result$120) + 0 + 1))) + (475 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((476 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((r$282 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 16 #f #f (16) #f (null? args$116) 0 0))) + (477 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((hex-digit? + . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(? + -1 + #f + #f + (-1 52 72) + #f + (#((record-marker) + #((record-marker) #f (id args body)) + #(33 + (k$294 c$125) + ((#((record-marker) + #((record-marker) #f (id args body)) + #(32 + (k$297) + ((char>=? + #((record-marker) + #((record-marker) #f (id args body)) + #(31 + (r$298) + ((if r$298 + (char<=? k$297 c$125 #\f) + (k$297 #f))))) + c$125 + #\a)))) + #((record-marker) + #((record-marker) #f (id args body)) + #(30 + (r$295) + ((#((record-marker) + #((record-marker) #f (id args body)) + #(29 + (tmp$126) + ((if tmp$126 + (k$294 tmp$126) + (char>=? + #((record-marker) + #((record-marker) #f (id args body)) + #(28 + (r$296) + ((if r$296 + (char<=? k$294 c$125 #\F) + (k$294 #f))))) + c$125 + #\A))))) + r$295))))))))) + 2 + 0))) + (inexact + . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(? ? #f #f (442) #f #f 1 0))) + (478 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((479 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((480 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((r$286 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 24 #f #f (24) #f #f 0 1))) + (481 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? (k$691))))) + ((r$287 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 22 #f #f (20) #f '() 0 1))) + (482 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((r$288 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 21 #f #f (20) #f '() 0 1))) + (483 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((r$289 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 20 #f #f (20) #f #f 0 1))) + (484 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((485 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((r$580 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 352 #f #f (351) #f #f 0 1))) + (486 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((r$581 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 351 #f #f (351) #f #f 0 1))) + (487 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((r$582 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f + 356 + #f + #f + (356) + #f + (equal? next-c$226 #\@) + 0 + 0))) + (488 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((r$583 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 361 #f #f (361) #f #f 0 0))) + (489 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((490 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((r$585 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f + 362 + #f + #f + (362) + #f + (equal? next-c$226 #\@) + 0 + 0))) + (491 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((r$586 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 365 #f #f (365) #f (read-char fp$202) 0 0))) + (492 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? (k$703))))) + ((493 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((r$588 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 370 #f #f (370) #f (null? tok$201) 0 1))) + (494 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((r$589 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 554 #f #f (554) #f (eq? c$204 #\() 0 0))) + (495 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? (k$707))))) + ((496 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((497 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((498 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((499 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((500 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((501 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((502 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((503 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((504 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ()))) + (done$187 + . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 265 #f #f (211 192) #f r$456 1 0)))) + ((505 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((506 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ()))) + (done$189 + . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 264 #t #f () #f #f 0 0)))) + ((507 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((508 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((509 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#t ? ())))) + ((510 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((511 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((512 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((r$291 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 25 #f #f (25) #f (null? args$123) 0 0))) + (513 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((514 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((515 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((516 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((r$295 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 30 #f #f (30) #f #f 0 1))) + (517 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? (k$722))))) + ((r$296 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 28 #f #f (28) #f #f 0 0))) + (518 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((519 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((r$298 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 31 #f #f (31) #f #f 0 0))) + (520 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((521 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((522 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((r$590 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 393 #f #f (393) #f #f 0 0))) + (523 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((r$591 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 375 #f #f () #f #f 0 0))) + (524 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((r$592 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 373 #f #f (373) #f #f 0 1))) + (525 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((r$593 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 374 #f #f (374) #f #f 0 1))) + (526 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((r$594 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 388 #f #f (387) #f #f 0 1))) + (527 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((r$595 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 387 #f #f (387) #f #f 0 1))) + (528 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((r$596 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f + 378 + #f + #f + () + #f + (set! new-toks$223 r$598) + 0 + 0))) + (529 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((r$597 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 377 #f #f (377) #f '() 0 1))) + (530 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((r$598 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 379 #f #f (379) #f #f 0 0))) + (531 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((r$599 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 380 #f #f (380) #f #f 0 1))) + (532 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((533 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((534 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((535 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((536 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((537 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((538 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((539 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((540 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((541 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((542 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((543 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#t ? ())))) + ((544 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((545 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((546 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((547 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((548 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((549 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((550 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((551 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((552 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((553 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((554 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((555 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((556 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((557 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ()))) + (k$506 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f + 276 + #f + #f + (275 273) + #f + #((record-marker) + #((record-marker) #f (id args body)) + #(272 + (r$501) + ((if all?$199 + (get-toks + #((record-marker) + #((record-marker) #f (id args body)) + #(267 (r$502) ((reverse k$497 r$502)))) + tok$201 + toks$200) + (get-toks + #((record-marker) + #((record-marker) #f (id args body)) + #(271 + (r$503) + ((#((record-marker) + #((record-marker) #f (id args body)) + #(270 + (last$232) + ((#((record-marker) + #((record-marker) #f (id args body)) + #(269 + (r$505) + ((#((record-marker) + #((record-marker) + #f + (id args body)) + #(268 + (r$504) + ((if r$504 + (k$497 (car last$232)) + (k$497 c$204))))) + (> r$505 0))))) + (length last$232))))) + r$503)))) + tok$201 + toks$200))))) + 1 + 1)))) + ((558 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((559 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((560 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((561 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((k$800 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 616 #f #f (615) #f #f 1 0))) + (562 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#t ? (k$733))))) + ((563 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((564 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((565 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((k$804 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 617 #f #f (617) #f #f 1 0))) + (566 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((567 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((568 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((k$807 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 621 #f #f (618) #f #f 1 0))) + (569 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((570 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((571 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((572 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((573 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((574 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((575 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((576 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((577 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((578 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((579 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((580 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((581 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((582 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((583 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((584 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((base$130 + . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 62 #f #f (59 53 41 45) #f #f 0 4))) + (585 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((586 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((587 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((588 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((589 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((590 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((base$136 + . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 83 #f #f (82 74) #f #f 0 2))) + (591 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((592 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((593 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((594 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((595 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((596 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((597 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((598 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((599 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((600 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((601 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ()))) + (k$812 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 630 #f #f (623 622) #f #f 2 0)))) + ((602 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((603 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((604 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((605 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((606 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((607 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((608 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((609 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((610 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((611 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((612 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((613 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((614 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((615 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((616 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((617 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((618 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((619 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((620 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#t ? ())))) + ((621 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((622 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((623 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((624 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((k$520 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f + 289 + #f + #f + (288 288) + #f + #((record-marker) + #((record-marker) #f (id args body)) + #(287 + (r$519) + ((parse/tok + k$497 + fp$202 + tok$201 + toks$200 + all?$199 + #f + parens$197 + ptbl$196 + c$204)))) + 1 + 1))) + (625 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((626 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + ((627 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ()))) + (k$522 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f + 294 + #f + #f + (293 291) + #f + #((record-marker) + #((record-marker) #f (id args body)) + #(290 + (r$518) + ((#((record-marker) + #((record-marker) #f (id args body)) + #(289 + (k$520) + ((#((record-marker) + #((record-marker) #f (id args body)) + #(288 + (r$521) + ((if r$521 + (in-port:set-cnum! k$520 ptbl$196 0) + (k$520 #f))))) + (equal? c$204 #\newline))))) + #((record-marker) + #((record-marker) #f (id args body)) + #(287 + (r$519) + ((parse/tok + k$497 + fp$202 + tok$201 + toks$200 + all?$199 + #f + parens$197 + ptbl$196 + c$204)))))))) + 1 + 1)))) + ((628 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ()))) + (eq? . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(? + ? + #f + #f + (56 + 96 + 113 + 112 + 119 + 132 + 143 + 559 + 558 + 557 + 556 + 555 + 554 + 553 + 552 + 551 + 539 + 538 + 537 + 536 + 535 + 534 + 533 + 532 + 531 + 530 + 529 + 528 + 478 + 485 + 286) + #f + #f + 31 + 0)))) + ((629 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#t ? ())))) + ((630 + . + #((record-marker) + #((record-marker) + #f + (simple unused-params assigned-to-var)) + #(#f ? ())))) + () + ((->tok . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(? + -1 + #f + #f + (514 413 399 375 339 319 299 578 574 -1 606) + #f + (#((record-marker) + #((record-marker) #f (id args body)) + #(604 + (k$774 lst$246) + ((reverse + #((record-marker) + #((record-marker) #f (id args body)) + #(603 (r$775) ((parse-atom k$774 r$775)))) + lst$246))))) + 10 + 0)))) + () + () + () + () + () + () + () + ((not . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(? + ? + #f + #f + (518 425 408 394 370 334 314) + #f + #f + 7 + 0)))) + () + () + () + () + () + () + () + () + () + () + () + () + () + () + () + () + () + () + () + () + () + () + () + ((c$204 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f + 561 + #f + #f + (561 + 560 + 559 + 558 + 557 + 556 + 555 + 554 + 553 + 552 + 551 + 549 + 545 + 515 + 414 + 400 + 376 + 340 + 320 + 300 + 296 + 287 + 289 + 294 + 286 + 268) + #f + r$499 + 0 + 26)))) + () + () + () + () + () + () + () + () + () + () + () + () + () + () + ((sign? . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(? + -1 + #f + #f + (57 130 -1) + #f + (#((record-marker) + #((record-marker) #f (id args body)) + #(153 + (k$406 c$171) + ((#((record-marker) + #((record-marker) #f (id args body)) + #(152 + (r$407) + ((#((record-marker) + #((record-marker) #f (id args body)) + #(151 + (tmp$172) + ((if tmp$172 + (k$406 tmp$172) + (k$406 (equal? c$171 #\-)))))) + r$407)))) + (equal? c$171 #\+)))))) + 2 + 0)))) + () + () + () + () + () + () + () + () + () + () + () + () + () + () + () + () + () + () + () + () + ((k$541 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f + 315 + #f + #f + (314 315) + #f + #((record-marker) + #((record-marker) #f (id args body)) + #(313 + (r$528) + ((if r$528 + (#((record-marker) + #((record-marker) #f (id args body)) + #(300 + () + ((in-port:set-buf! + #((record-marker) + #((record-marker) #f (id args body)) + #(299 + (r$529) + ((->tok #((record-marker) + #((record-marker) + #f + (id args body)) + #(298 + (r$531) + ((add-tok + #((record-marker) + #((record-marker) + #f + (id args body)) + #(297 + (r$530) + ((k$497 (car r$530))))) + r$531 + toks$200)))) + tok$201)))) + ptbl$196 + c$204))))) + (#((record-marker) + #((record-marker) #f (id args body)) + #(312 + () + ((#((record-marker) + #((record-marker) #f (id args body)) + #(311 + (r$539) + ((#((record-marker) + #((record-marker) #f (id args body)) + #(310 + (r$540) + ((parse #((record-marker) + #((record-marker) + #f + (id args body)) + #(309 + (r$532) + ((#((record-marker) + #((record-marker) + #f + (id args body)) + #(308 + (sub$230) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(307 + (new-toks$231) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(306 + (r$538) + ((list #((record-marker) + #((record-marker) + #f + (id args + body)) + #(305 + (r$536) + ((get-toks + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(304 + (r$537) + ((add-tok + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(303 + (r$535) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(302 + (r$533) + ((if all?$199 + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(301 + (r$534) + ((parse k$497 + fp$202 + r$534 + new-toks$231 + all?$199 + #f + parens$197 + ptbl$196)))) + '()) + (k$497 (car new-toks$231)))))) + (set! new-toks$231 + r$535))))) + r$536 + r$537)))) + tok$201 + toks$200)))) + r$538 + sub$230)))) + 'quote)))) + #f)))) + r$532)))) + fp$202 + r$539 + r$540 + #f + #f + 0 + ptbl$196)))) + '())))) + '()))))))))) + 1 + 1)))) + () + () + () + () + () + () + () + () + () + () + () + () + () + () + () + () + () + () + () + () + ((apply . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(? ? #f #f (463) #f #f 1 0)))) + () + () + () + () + () + () + () + () + () + () + () + () + () + () + () + () + () + () + () + () + () + ((k$557 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f + 335 + #f + #f + (334 335) + #f + #((record-marker) + #((record-marker) #f (id args body)) + #(333 + (r$544) + ((if r$544 + (#((record-marker) + #((record-marker) #f (id args body)) + #(320 + () + ((in-port:set-buf! + #((record-marker) + #((record-marker) #f (id args body)) + #(319 + (r$545) + ((->tok #((record-marker) + #((record-marker) + #f + (id args body)) + #(318 + (r$547) + ((add-tok + #((record-marker) + #((record-marker) + #f + (id args body)) + #(317 + (r$546) + ((k$497 (car r$546))))) + r$547 + toks$200)))) + tok$201)))) + ptbl$196 + c$204))))) + (#((record-marker) + #((record-marker) #f (id args body)) + #(332 + () + ((#((record-marker) + #((record-marker) #f (id args body)) + #(331 + (r$555) + ((#((record-marker) + #((record-marker) #f (id args body)) + #(330 + (r$556) + ((parse #((record-marker) + #((record-marker) + #f + (id args body)) + #(329 + (r$548) + ((#((record-marker) + #((record-marker) + #f + (id args body)) + #(328 + (sub$228) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(327 + (new-toks$229) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(326 + (r$554) + ((list #((record-marker) + #((record-marker) + #f + (id args + body)) + #(325 + (r$552) + ((get-toks + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(324 + (r$553) + ((add-tok + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(323 + (r$551) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(322 + (r$549) + ((if all?$199 + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(321 + (r$550) + ((parse k$497 + fp$202 + r$550 + new-toks$229 + all?$199 + #f + parens$197 + ptbl$196)))) + '()) + (k$497 (car new-toks$229)))))) + (set! new-toks$229 + r$551))))) + r$552 + r$553)))) + tok$201 + toks$200)))) + r$554 + sub$228)))) + 'quasiquote)))) + #f)))) + r$548)))) + fp$202 + r$555 + r$556 + #f + #f + 0 + ptbl$196)))) + '())))) + '()))))))))) + 1 + 1)))) + () + ((char<=? + . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(? ? #f #f (28 31) #f #f 2 0)))) + () + () + () + () + () + () + () + () + () + () + () + () + () + () + () + () + () + () + () + () + () + () + ((k$266 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 4 #f #f (1) #f #f 1 0)))) + () + () + () + () + () + () + () + () + () + () + () + () + () + () + () + () + () + ((fp$118 + . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 14 #f #f (5) #f r$273 0 1)))) + () + () + () + () + () + () + () + () + () + () + () + () + () + () + ((k$272 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 19 #f #f (5) #f #f 0 1)))) + () + () + () + () + ((k$277 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 12 #f #f (8 9) #f #f 0 2)))) + () + () + () + () + () + () + () + () + () + ((fp$121 + . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 12 #f #f (12 8) #f #f 0 2)))) + () + ((k$578 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f + 358 + #f + #f + (355 354 351) + #f + #((record-marker) + #((record-marker) #f (id args body)) + #(350 + (r$568) + ((#((record-marker) + #((record-marker) #f (id args body)) + #(349 + (r$576) + ((#((record-marker) + #((record-marker) #f (id args body)) + #(348 + (r$577) + ((parse #((record-marker) + #((record-marker) #f (id args body)) + #(347 + (r$575) + ((#((record-marker) + #((record-marker) + #f + (id args body)) + #(346 + (r$569) + ((list #((record-marker) + #((record-marker) + #f + (id args body)) + #(345 + (r$573) + ((get-toks + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(344 + (r$574) + ((add-tok + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(343 + (r$572) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(342 + (r$570) + ((if all?$199 + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(341 + (r$571) + ((parse k$497 + fp$202 + r$571 + new-toks$224 + all?$199 + #f + parens$197 + ptbl$196)))) + '()) + (k$497 (car new-toks$224)))))) + (set! new-toks$224 + r$572))))) + r$573 + r$574)))) + tok$201 + toks$200)))) + unquote-sym$225 + sub$227)))) + (set! sub$227 r$575))))) + fp$202 + r$576 + r$577 + #f + #f + 0 + ptbl$196)))) + '())))) + '())))) + 1 + 2)))) + ((fp$124 + . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 23 #f #f (21 20) #f r$286 0 2)))) + () + () + () + () + ((fp$129 + . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 62 #f #f (62 59) #f #f 0 2)))) + () + () + () + () + () + () + () + () + () + () + () + () + ((k$281 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f + 17 + #f + #f + (16 16) + #f + #((record-marker) + #((record-marker) #f (id args body)) + #(15 + (r$273) + ((#((record-marker) + #((record-marker) #f (id args body)) + #(14 + (fp$118) + ((#((record-marker) + #((record-marker) #f (id args body)) + #(13 + (loop$119) + ((#((record-marker) + #((record-marker) #f (id args body)) + #(7 + (r$276) + ((#((record-marker) + #((record-marker) #f (id args body)) + #(6 + (r$274) + ((#((record-marker) + #((record-marker) + #f + (id args body)) + #(5 + (r$275) + ((loop$119 + k$272 + fp$118 + r$275)))) + '())))) + (set! loop$119 r$276))))) + #((record-marker) + #((record-marker) #f (id args body)) + #(12 + (k$277 fp$121 result$120) + ((cyc-read + #((record-marker) + #((record-marker) + #f + (id args body)) + #(11 + (r$278) + ((#((record-marker) + #((record-marker) + #f + (id args body)) + #(10 + (obj$122) + ((#((record-marker) + #((record-marker) + #f + (id args body)) + #(9 + (r$279) + ((if r$279 + (reverse + k$277 + result$120) + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(8 + (r$280) + ((loop$119 + k$277 + fp$121 + r$280)))) + (cons obj$122 + result$120)))))) + (eof-object? obj$122))))) + r$278)))) + fp$121)))))))) + #f)))) + r$273)))) + 1 + 1)))) + () + () + () + ((k$285 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 27 #f #f (20) #f #f 0 1)))) + () + () + () + () + () + () + () + () + () + ((k$584 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f + 363 + #f + #f + (362 362) + #f + #((record-marker) + #((record-marker) #f (id args body)) + #(361 + (r$583) + ((#((record-marker) + #((record-marker) #f (id args body)) + #(360 + (r$566) + ((#((record-marker) + #((record-marker) #f (id args body)) + #(359 + (r$567) + ((#((record-marker) + #((record-marker) #f (id args body)) + #(358 + (k$578) + ((#((record-marker) + #((record-marker) #f (id args body)) + #(357 + (r$579) + ((if r$579 + (#((record-marker) + #((record-marker) + #f + (id args body)) + #(353 + () + ((in-port:get-lnum + #((record-marker) + #((record-marker) + #f + (id args body)) + #(352 + (r$580) + ((in-port:get-cnum + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(351 + (r$581) + ((parse-error + k$578 + "unexpected end of file" + r$580 + r$581)))) + ptbl$196)))) + ptbl$196))))) + (#((record-marker) + #((record-marker) + #f + (id args body)) + #(356 + (r$582) + ((if r$582 + (#((record-marker) + #((record-marker) + #f + (id args body)) + #(354 + () + ((k$578 #f))))) + (#((record-marker) + #((record-marker) + #f + (id args body)) + #(355 + () + ((in-port:set-buf! + k$578 + ptbl$196 + next-c$226))))))))) + (equal? next-c$226 #\@)))))) + (eof-object? next-c$226))))) + #((record-marker) + #((record-marker) #f (id args body)) + #(350 + (r$568) + ((#((record-marker) + #((record-marker) #f (id args body)) + #(349 + (r$576) + ((#((record-marker) + #((record-marker) + #f + (id args body)) + #(348 + (r$577) + ((parse #((record-marker) + #((record-marker) + #f + (id args body)) + #(347 + (r$575) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(346 + (r$569) + ((list #((record-marker) + #((record-marker) + #f + (id args + body)) + #(345 + (r$573) + ((get-toks + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(344 + (r$574) + ((add-tok + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(343 + (r$572) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(342 + (r$570) + ((if all?$199 + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(341 + (r$571) + ((parse k$497 + fp$202 + r$571 + new-toks$224 + all?$199 + #f + parens$197 + ptbl$196)))) + '()) + (k$497 (car new-toks$224)))))) + (set! new-toks$224 + r$572))))) + r$573 + r$574)))) + tok$201 + toks$200)))) + unquote-sym$225 + sub$227)))) + (set! sub$227 + r$575))))) + fp$202 + r$576 + r$577 + #f + #f + 0 + ptbl$196)))) + '())))) + '())))))))) + (set! new-toks$224 #f))))) + (set! unquote-sym$225 r$583))))) + 2 + 0)))) + () + () + ((k$587 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f + 371 + #f + #f + (370 371) + #f + #((record-marker) + #((record-marker) #f (id args body)) + #(369 + (r$560) + ((if r$560 + (#((record-marker) + #((record-marker) #f (id args body)) + #(340 + () + ((in-port:set-buf! + #((record-marker) + #((record-marker) #f (id args body)) + #(339 + (r$561) + ((->tok #((record-marker) + #((record-marker) + #f + (id args body)) + #(338 + (r$563) + ((add-tok + #((record-marker) + #((record-marker) + #f + (id args body)) + #(337 + (r$562) + ((k$497 (car r$562))))) + r$563 + toks$200)))) + tok$201)))) + ptbl$196 + c$204))))) + (#((record-marker) + #((record-marker) #f (id args body)) + #(368 + () + ((#((record-marker) + #((record-marker) #f (id args body)) + #(367 + (sub$227 + next-c$226 + unquote-sym$225 + new-toks$224) + ((#((record-marker) + #((record-marker) #f (id args body)) + #(366 + (r$564) + ((#((record-marker) + #((record-marker) + #f + (id args body)) + #(365 + (r$586) + ((#((record-marker) + #((record-marker) + #f + (id args body)) + #(364 + (r$565) + ((#((record-marker) + #((record-marker) + #f + (id args body)) + #(363 + (k$584) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(362 + (r$585) + ((if r$585 + (k$584 'unquote-splicing) + (k$584 'unquote))))) + (equal? + next-c$226 + #\@))))) + #((record-marker) + #((record-marker) + #f + (id args body)) + #(361 + (r$583) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(360 + (r$566) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(359 + (r$567) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(358 + (k$578) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(357 + (r$579) + ((if r$579 + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(353 + () + ((in-port:get-lnum + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(352 + (r$580) + ((in-port:get-cnum + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(351 + (r$581) + ((parse-error + k$578 + "unexpected end of file" + r$580 + r$581)))) + ptbl$196)))) + ptbl$196))))) + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(356 + (r$582) + ((if r$582 + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(354 + () + ((k$578 #f))))) + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(355 + () + ((in-port:set-buf! + k$578 + ptbl$196 + next-c$226))))))))) + (equal? + next-c$226 + #\@)))))) + (eof-object? + next-c$226))))) + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(350 + (r$568) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(349 + (r$576) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(348 + (r$577) + ((parse #((record-marker) + #((record-marker) + #f + (id args + body)) + #(347 + (r$575) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(346 + (r$569) + ((list #((record-marker) + #((record-marker) + #f + (id args + body)) + #(345 + (r$573) + ((get-toks + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(344 + (r$574) + ((add-tok + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(343 + (r$572) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(342 + (r$570) + ((if all?$199 + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(341 + (r$571) + ((parse k$497 + fp$202 + r$571 + new-toks$224 + all?$199 + #f + parens$197 + ptbl$196)))) + '()) + (k$497 (car new-toks$224)))))) + (set! new-toks$224 + r$572))))) + r$573 + r$574)))) + tok$201 + toks$200)))) + unquote-sym$225 + sub$227)))) + (set! sub$227 + r$575))))) + fp$202 + r$576 + r$577 + #f + #f + 0 + ptbl$196)))) + '())))) + '())))))))) + (set! new-toks$224 + #f))))) + (set! unquote-sym$225 + r$583))))))))) + (set! next-c$226 r$586))))) + (read-char fp$202))))) + (set! sub$227 #f))))) + #f + #f + #f + #f))))))))) + 1 + 1)))) + () + () + () + () + () + () + () + () + () + () + () + () + () + () + ((r$400 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 141 #f #f (141) #f (cadr a$167) 0 1))) + (caddr . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(? ? #f #f (614) #f #f 1 0)))) + ((r$401 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 143 #f #f (143) #f (car a$167) 0 1)))) + ((r$402 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 145 #f #f (145) #f (length a$167) 0 1)))) + ((r$403 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 149 #f #f (149) #f (car a$167) 0 1)))) + ((k$290 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f + 26 + #f + #f + (25 25) + #f + #((record-marker) + #((record-marker) #f (id args body)) + #(24 + (r$286) + ((#((record-marker) + #((record-marker) #f (id args body)) + #(23 + (fp$124) + ((#((record-marker) + #((record-marker) #f (id args body)) + #(22 + (r$287) + ((#((record-marker) + #((record-marker) #f (id args body)) + #(21 + (r$288) + ((reg-port + #((record-marker) + #((record-marker) + #f + (id args body)) + #(20 + (r$289) + ((parse k$285 + fp$124 + r$287 + r$288 + #f + #f + 0 + r$289)))) + fp$124)))) + '())))) + '())))) + r$286)))) + 1 + 1)))) + () + () + ((r$407 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 152 #f #f (152) #f (equal? c$171 #\+) 0 1)))) + ((k$294 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 33 #f #f (28 28 29) #f #f 2 1)))) + () + () + ((k$297 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f + 32 + #f + #f + (31 31) + #f + #((record-marker) + #((record-marker) #f (id args body)) + #(30 + (r$295) + ((#((record-marker) + #((record-marker) #f (id args body)) + #(29 + (tmp$126) + ((if tmp$126 + (k$294 tmp$126) + (char>=? + #((record-marker) + #((record-marker) #f (id args body)) + #(28 + (r$296) + ((if r$296 + (char<=? k$294 c$125 #\F) + (k$294 #f))))) + c$125 + #\A))))) + r$295)))) + 1 + 1))) + (r$700 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 489 #f #f (489) #f '() 0 1)))) + ((r$701 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 491 #f #f (491) #f #f 0 0)))) + ((r$702 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 492 #f #f (492) #f #f 0 1)))) + () + ((r$704 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 495 #f #f (495) #f #f 0 0)))) + ((r$705 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 494 #f #f (493) #f #f 0 1)))) + ((r$706 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 493 #f #f (493) #f #f 0 1)))) + () + ((r$708 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 496 #f #f (496) #f (pair? sub$208) 0 0)))) + ((r$709 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 505 #f #f (503) #f '() 0 1)))) + ((fp$141 + . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 83 #f #f (82 63) #f #f 0 2)))) + () + () + () + () + () + ((fp$147 + . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 101 #f #f (101 98) #f #f 0 2)))) + () + () + () + () + () + () + () + () + () + () + ((r$411 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 172 #f #f (172) #f (read-char fp$175) 0 1)))) + ((r$412 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 170 #f #f (170) #f (eof-object? c$176) 0 0)))) + ((r$413 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 155 #f #f (154) #f #f 0 1)))) + ((r$414 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 154 #f #f (154) #f #f 0 1)))) + ((r$415 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 166 #f #f (166) #f #f 0 0)))) + ((r$416 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 165 #f #f (165) #f (equal? #\n c$176) 0 0)))) + ((r$417 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f + 161 + #f + #f + (159) + #f + (string-append + "invalid escape character [" + r$420 + "] in string") + 0 + 1)))) + ((r$418 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 160 #f #f (159) #f #f 0 1)))) + ((r$419 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 159 #f #f (159) #f #f 0 1)))) + () + ((r$710 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 504 #f #f (503) #f '() 0 1)))) + ((cons . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(? + ? + #f + #f + (9 + 60 + 64 + 99 + 103 + 158 + 157 + 182 + 194 + 549 + 545 + 510 + 435 + 432 + 588 + 608 + 625) + #f + #f + 17 + 0))) + (r$711 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 503 #f #f (503) #f (+ parens$197 1) 0 1)))) + ((r$712 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 528 #f #f (528) #f (eq? #\\ next-c$205) 0 0)))) + ((r$713 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f + 509 + #f + #f + (509) + #f + (cons r$715 toks$200) + 0 + 1)))) + ((r$714 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 507 #f #f (507) #f '() 0 1)))) + ((r$715 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 510 #f #f (510) #f #f 0 1)))) + ((r$716 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 527 #f #f (527) #f (eq? #\; next-c$205) 0 0)))) + ((r$717 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 520 #f #f () #f #f 0 0)))) + ((r$718 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 517 #f #f (517) #f #f 0 0)))) + ((r$719 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 514 #f #f () #f #f 0 0)))) + () + () + () + () + () + ((fp$156 + . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 107 #f #f (106 102) #f #f 0 2)))) + () + () + ((fp$159 + . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 115 #f #f (115 110 109) #f #f 0 3)))) + () + ((buf$257 + . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 616 #f #f (615) #f #f 0 1))) + (ptbl$234 + . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 581 #f #f (579 572 570) #f #f 0 3)))) + () + () + () + () + () + ((r$420 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 162 #f #f (162) #f (list->string r$421) 0 1)))) + ((r$421 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 163 #f #f (163) #f #f 0 1)))) + ((r$422 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 169 #f #f (169) #f (equal? #\" c$176) 0 1)))) + () + () + () + () + ((r$427 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 187 #f #f (187) #f (read-char fp$180) 0 1)))) + ((r$428 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 185 #f #f (185) #f (eof-object? c$181) 0 0)))) + ((r$429 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 175 #f #f (174) #f #f 0 1)))) + () + ((r$720 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 512 #f #f (512) #f #f 0 1)))) + ((r$721 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 513 #f #f (513) #f #f 0 1)))) + () + ((r$723 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 518 #f #f (518) #f (null? tok$201) 0 1)))) + ((r$724 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 522 #f #f (521) #f '() 0 1)))) + ((r$725 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 521 #f #f (521) #f '() 0 1)))) + ((r$726 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 525 #f #f (524) #f #f 0 1)))) + ((r$727 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 524 #f #f (524) #f #f 0 1)))) + ((r$728 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 540 #f #f (540) #f (+ 1 r$729) 0 1)))) + ((r$729 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 541 #f #f (541) #f #f 0 1)))) + () + ((fp$162 + . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 121 #f #f (121 117 116) #f #f 0 3)))) + () + () + ((fp$165 + . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 123 #f #f (122) #f #f 0 1)))) + () + () + () + () + ((cnum$241 + . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 585 #f #f (584) #f #f 0 1)))) + () + () + () + () + () + () + ((r$430 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 174 #f #f (174) #f #f 0 1)))) + ((r$431 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 184 #f #f (184) #f (equal? #\\ c$181) 0 0)))) + ((r$432 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 177 #f #f (177) #f #f 0 1)))) + ((r$433 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 183 #f #f (183) #f (equal? #\" c$181) 0 0)))) + ((r$434 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 179 #f #f (179) #f #f 0 1)))) + ((r$435 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 181 #f #f (181) #f (cons c$181 buf$179) 0 1)))) + () + () + () + ((r$439 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 210 #f #f () #f (set! done$187 r$456) 0 0)))) + () + ((r$730 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 544 #f #f (544) #f (cons c$204 tok$201) 0 1)))) + ((r$731 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 550 #f #f (550) #f (eq? c$204 #\|) 0 0)))) + ((r$732 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 548 #f #f (548) #f (cons c$204 tok$201) 0 1)))) + () + ((r$734 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 563 #f #f (563) #f #f 0 0)))) + ((r$735 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 566 #f #f (566) #f (+ 1 r$736) 0 1)))) + ((r$736 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 567 #f #f (567) #f #f 0 1)))) + () + () + () + () + () + () + () + ((fp$175 + . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 173 #f #f (173) #f #f 0 1)))) + () + () + () + ((ptbl$252 + . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 610 #f #f (610) #f #f 0 1)))) + ((cnum$251 + . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 610 #f #f (609) #f #f 0 1))) + (ptbl$253 + . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 611 #f #f (611) #f #f 0 1)))) + () + ((ptbl$255 + . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 613 #f #f (613) #f #f 0 1))) + (exact . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(? ? #f #f (438) #f #f 1 0)))) + ((ptbl$256 + . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 614 #f #f (614) #f #f 0 1)))) + () + ((ptbl$258 + . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 616 #f #f (616) #f #f 0 1)))) + ((ptbl$259 + . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 617 #f #f (617) #f #f 0 1)))) + ((r$440 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 190 #f #f () #f (set! loop$186 r$442) 0 0)))) + ((r$441 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 189 #f #f (189) #f '() 0 1)))) + ((r$442 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f + 191 + #f + #f + (191) + #f + #((record-marker) + #((record-marker) #f (id args body)) + #(209 + (k$443 buf$190) + ((#((record-marker) + #((record-marker) #f (id args body)) + #(208 + (r$444) + ((#((record-marker) + #((record-marker) #f (id args body)) + #(207 + (c$191) + ((#((record-marker) + #((record-marker) #f (id args body)) + #(206 + (r$448) + ((#((record-marker) + #((record-marker) #f (id args body)) + #(205 + (tmp$192) + ((#((record-marker) + #((record-marker) + #f + (id args body)) + #(204 + (k$449) + ((if tmp$192 + (k$449 tmp$192) + (#((record-marker) + #((record-marker) + #f + (id args body)) + #(203 + (k$453) + ((char-whitespace? + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(202 + (r$454) + ((if r$454 + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(201 + (r$455) + ((k$453 (> r$455 + 0))))) + (length + buf$190)) + (k$453 #f))))) + c$191)))) + #((record-marker) + #((record-marker) + #f + (id args body)) + #(200 + (r$450) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(199 + (tmp$193) + ((if tmp$193 + (k$449 tmp$193) + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(198 + (r$452) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(197 + (r$451) + ((if r$451 + (k$449 (equal? + c$191 + #\))) + (k$449 #f))))) + (> r$452 + 0))))) + (length + buf$190)))))) + r$450))))))))) + #((record-marker) + #((record-marker) + #f + (id args body)) + #(196 + (r$445) + ((if r$445 + (#((record-marker) + #((record-marker) + #f + (id args body)) + #(192 + () + ((done$187 + k$443 + buf$190))))) + (#((record-marker) + #((record-marker) + #f + (id args body)) + #(195 + () + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(194 + (r$447) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(193 + (r$446) + ((loop$186 + k$443 + r$446)))) + (cons r$447 + buf$190))))) + (read-char + fp$183)))))))))))))) + r$448)))) + (eof-object? c$191))))) + r$444)))) + (peek-char fp$183))))) + 0 + 0)))) + () + ((r$444 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 208 #f #f (208) #f (peek-char fp$183) 0 1)))) + ((r$445 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 196 #f #f (196) #f #f 0 0)))) + ((r$446 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 193 #f #f (193) #f (cons r$447 buf$190) 0 1)))) + ((r$447 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 194 #f #f (194) #f (read-char fp$183) 0 1)))) + ((r$448 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 206 #f #f (206) #f (eof-object? c$191) 0 1)))) + () + () + ((r$740 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 580 #f #f (580) #f (null? tok$239) 0 0)))) + ((r$741 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 570 #f #f (570) #f '() 0 1)))) + ((r$742 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 574 #f #f (572) #f '() 0 1)))) + ((r$743 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 572 #f #f (572) #f #f 0 1)))) + ((cadddr + . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(? ? #f #f (611) #f #f 1 0))) + (r$744 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 573 #f #f (573) #f #f 0 1)))) + ((r$745 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 578 #f #f () #f #f 0 0)))) + ((r$746 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 576 #f #f (576) #f #f 0 1)))) + ((r$747 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 577 #f #f (577) #f #f 0 1)))) + () + ((fp$180 + . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 188 #f #f (188 181 178 177) #f #f 0 4)))) + () + () + ((fp$183 + . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 266 #f #f (209 195) #f #f 0 2)))) + () + () + () + ((ptbl$260 + . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 621 #f #f (621 619) #f #f 0 2)))) + () + () + () + () + () + () + () + () + () + ((r$450 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 200 #f #f (200) #f #f 0 1)))) + ((read . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(? -1 #f #f (3 -1) #t cyc-read 0 0))) + (r$451 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 197 #f #f (197) #f (> r$452 0) 0 0)))) + ((r$452 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 198 #f #f (198) #f (length buf$190) 0 1)))) + () + ((r$454 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 202 #f #f (202) #f #f 0 0)))) + ((r$455 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 201 #f #f (201) #f (length buf$190) 0 1)))) + ((r$456 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f + 211 + #f + #f + (211) + #f + #((record-marker) + #((record-marker) #f (id args body)) + #(263 + (k$457 raw-buf$194) + ((reverse + #((record-marker) + #((record-marker) #f (id args body)) + #(262 + (r$458) + ((#((record-marker) + #((record-marker) #f (id args body)) + #(261 + (buf$195) + ((#((record-marker) + #((record-marker) #f (id args body)) + #(260 + (r$494) + ((#((record-marker) + #((record-marker) + #f + (id args body)) + #(259 + (r$459) + ((if r$459 + (#((record-marker) + #((record-marker) + #f + (id args body)) + #(214 + () + ((in-port:get-lnum + #((record-marker) + #((record-marker) + #f + (id args body)) + #(213 + (r$460) + ((in-port:get-cnum + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(212 + (r$461) + ((parse-error + k$457 + "missing character" + r$460 + r$461)))) + ptbl$182)))) + ptbl$182))))) + (#((record-marker) + #((record-marker) + #f + (id args body)) + #(258 + (r$493) + ((#((record-marker) + #((record-marker) + #f + (id args body)) + #(257 + (r$462) + ((if r$462 + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(215 + () + ((k$457 (car buf$195)))))) + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(256 + (r$492) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(255 + (r$463) + ((if r$463 + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(216 + () + ((k$457 #\))))) + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(254 + (r$491) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(253 + (r$464) + ((if r$464 + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(217 + () + ((k$457 #\))))) + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(252 + (r$490) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(251 + (r$465) + ((if r$465 + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(218 + () + ((k$457 #\))))) + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(250 + (r$489) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(249 + (r$466) + ((if r$466 + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(219 + () + ((k$457 #\))))) + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(248 + (r$488) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(247 + (r$467) + ((if r$467 + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(220 + () + ((k$457 #\newline))))) + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(246 + (r$487) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(245 + (r$468) + ((if r$468 + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(221 + () + ((k$457 #\))))) + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(244 + (r$486) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(243 + (r$469) + ((if r$469 + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(222 + () + ((k$457 #\ ))))) + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(242 + (r$485) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(241 + (r$470) + ((if r$470 + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(223 + () + ((k$457 #\space))))) + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(240 + (r$484) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(239 + (r$471) + ((if r$471 + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(224 + () + ((k$457 #\ ))))) + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(238 + (k$480) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(237 + (r$483) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(236 + (r$481) + ((if r$481 + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(235 + (r$482) + ((k$480 (equal? + r$482 + #\x))))) + (car buf$195)) + (k$480 #f))))) + (> r$483 + 1))))) + (length + buf$195))))) + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(234 + (r$472) + ((if r$472 + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(228 + () + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(227 + (r$475) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(226 + (r$474) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(225 + (r$473) + ((k$457 (integer->char + r$473))))) + (string->number + r$474 + 16))))) + (list->string + r$475))))) + (cdr buf$195)))))) + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(233 + () + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(232 + (r$479) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(231 + (r$476) + ((in-port:get-lnum + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(230 + (r$477) + ((in-port:get-cnum + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(229 + (r$478) + ((parse-error + k$457 + r$476 + r$477 + r$478)))) + ptbl$182)))) + ptbl$182)))) + (string-append + "unable to parse character: " + r$479))))) + (list->string + buf$195))))))))))))))) + (equal? + buf$195 + r$484))))) + '(#\t + #\a + #\b)))))) + (equal? + buf$195 + r$485))))) + '(#\s + #\p + #\a + #\c + #\e)))))) + (equal? + buf$195 + r$486))))) + '(#\r + #\e + #\t + #\u + #\r + #\n)))))) + (equal? + buf$195 + r$487))))) + '(#\n + #\u + #\l + #\l)))))) + (equal? + buf$195 + r$488))))) + '(#\n + #\e + #\w + #\l + #\i + #\n + #\e)))))) + (equal? + buf$195 + r$489))))) + '(#\e + #\s + #\c + #\a + #\p + #\e)))))) + (equal? + buf$195 + r$490))))) + '(#\d + #\e + #\l + #\e + #\t + #\e)))))) + (equal? + buf$195 + r$491))))) + '(#\b + #\a + #\c + #\k + #\s + #\p + #\a + #\c + #\e)))))) + (equal? + buf$195 + r$492))))) + '(#\a + #\l + #\a + #\r + #\m)))))) + (= 1 r$493))))) + (length buf$195)))))) + (= 0 r$494))))) + (length buf$195))))) + r$458)))) + raw-buf$194)))) + 0 + 0)))) + () + ((r$458 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 262 #f #f (262) #f #f 0 1)))) + ((r$459 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 259 #f #f (259) #f (= 0 r$494) 0 0)))) + () + () + ((r$751 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f + 582 + #f + #f + (582) + #f + (string-append + "Error (line " + r$752 + ", char " + r$753 + "): " + msg$243) + 0 + 1)))) + ((r$752 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f + 584 + #f + #f + (583) + #f + (number->string lnum$242) + 0 + 1)))) + ((r$753 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f + 583 + #f + #f + (583) + #f + (number->string cnum$241) + 0 + 1)))) + () + () + () + ((r$757 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 595 #f #f (595) #f (null? lst$244) 0 0)))) + ((r$758 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 592 #f #f (592) #f (equal? r$762 r$763) 0 0)))) + ((pair? . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(? ? #f #f (497 465 383) #f #f 3 0))) + (r$759 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 590 #f #f (588) #f (car lst$244) 0 1)))) + () + () + () + () + () + () + () + () + () + () + ((a$166 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 129 #f #f (129 127 125) #f #f 0 3)))) + ((a$167 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f + 150 + #f + #f + (150 139 137 131 133 146 144 142) + #f + #f + 0 + 8)))) + () + () + () + () + ((r$460 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 213 #f #f (212) #f #f 0 1)))) + ((r$461 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 212 #f #f (212) #f #f 0 1)))) + ((r$462 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 257 #f #f (257) #f (= 1 r$493) 0 0)))) + ((r$463 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f + 255 + #f + #f + (255) + #f + (equal? buf$195 r$492) + 0 + 0)))) + ((r$464 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f + 253 + #f + #f + (253) + #f + (equal? buf$195 r$491) + 0 + 0)))) + ((r$465 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f + 251 + #f + #f + (251) + #f + (equal? buf$195 r$490) + 0 + 0)))) + ((r$466 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f + 249 + #f + #f + (249) + #f + (equal? buf$195 r$489) + 0 + 0)))) + ((r$467 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f + 247 + #f + #f + (247) + #f + (equal? buf$195 r$488) + 0 + 0)))) + ((r$468 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f + 245 + #f + #f + (245) + #f + (equal? buf$195 r$487) + 0 + 0)))) + ((r$469 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f + 243 + #f + #f + (243) + #f + (equal? buf$195 r$486) + 0 + 0)))) + () + ((r$760 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 588 #f #f (588) #f #f 0 1)))) + ((r$761 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 589 #f #f (589) #f (cdr lst$244) 0 1)))) + ((r$762 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 594 #f #f (593) #f (car lst$244) 0 1)))) + ((r$763 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 593 #f #f (593) #f (string->symbol ".") 0 1)))) + () + () + () + ((r$767 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 600 #f #f (600) #f (> r$771 2) 0 0)))) + ((r$768 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 598 #f #f (597) #f (cadr r$770) 0 1)))) + ((r$769 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 597 #f #f (597) #f (string->symbol ".") 0 1)))) + () + () + () + () + () + () + () + () + () + () + () + () + () + () + () + () + ((r$470 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f + 241 + #f + #f + (241) + #f + (equal? buf$195 r$485) + 0 + 0)))) + ((r$471 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f + 239 + #f + #f + (239) + #f + (equal? buf$195 r$484) + 0 + 0)))) + ((r$472 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 234 #f #f (234) #f #f 0 0)))) + ((r$473 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f + 225 + #f + #f + (225) + #f + (string->number r$474 16) + 0 + 1)))) + ((r$474 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 226 #f #f (226) #f (list->string r$475) 0 1)))) + ((r$475 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 227 #f #f (227) #f (cdr buf$195) 0 1)))) + ((r$476 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f + 231 + #f + #f + (229) + #f + (string-append + "unable to parse character: " + r$479) + 0 + 1)))) + ((r$477 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 230 #f #f (229) #f #f 0 1)))) + ((r$478 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 229 #f #f (229) #f #f 0 1)))) + ((r$479 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f + 232 + #f + #f + (232) + #f + (list->string buf$195) + 0 + 1)))) + () + ((r$770 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 599 #f #f (599) #f #f 0 1)))) + ((r$771 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 601 #f #f (601) #f (length lst$245) 0 1)))) + () + () + () + ((r$775 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 603 #f #f (603) #f #f 0 1)))) + () + () + () + ((r$779 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 606 #f #f (606) #f (null? tok$248) 0 0)))) + () + () + () + () + () + () + () + () + () + () + () + () + () + () + () + () + () + ((r$481 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 236 #f #f (236) #f (> r$483 1) 0 0)))) + ((r$482 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 235 #f #f (235) #f (car buf$195) 0 1)))) + ((r$483 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 237 #f #f (237) #f (length buf$195) 0 1)))) + ((r$484 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 240 #f #f (240) #f '(#\t #\a #\b) 0 1)))) + ((r$485 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f + 242 + #f + #f + (242) + #f + '(#\s #\p #\a #\c #\e) + 0 + 1)))) + ((r$486 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f + 244 + #f + #f + (244) + #f + '(#\r #\e #\t #\u #\r #\n) + 0 + 1)))) + ((r$487 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 246 #f #f (246) #f '(#\n #\u #\l #\l) 0 1)))) + ((r$488 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f + 248 + #f + #f + (248) + #f + '(#\n #\e #\w #\l #\i #\n #\e) + 0 + 1)))) + ((r$489 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f + 250 + #f + #f + (250) + #f + '(#\e #\s #\c #\a #\p #\e) + 0 + 1)))) + () + ((r$780 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 605 #f #f (605) #f #f 0 1)))) + () + () + () + () + () + ((parse . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(? + -1 + #f + #f + (20 + 63 + 102 + 548 + 544 + 516 + 521 + 507 + 489 + 503 + 457 + 471 + 434 + 431 + 428 + 415 + 377 + 389 + 341 + 348 + 321 + 330 + 301 + 310 + 284 + 278 + -1 + 572 + 570) + #f + (#((record-marker) + #((record-marker) #f (id args body)) + #(569 + (k$497 fp$202 + tok$201 + toks$200 + all?$199 + comment?$198 + parens$197 + ptbl$196) + ((#((record-marker) + #((record-marker) #f (id args body)) + #(568 + (new-toks$203) + ((in-port:get-cnum + #((record-marker) + #((record-marker) #f (id args body)) + #(567 + (r$736) + ((#((record-marker) + #((record-marker) #f (id args body)) + #(566 + (r$735) + ((in-port:set-cnum! + #((record-marker) + #((record-marker) + #f + (id args body)) + #(565 + (r$498) + ((#((record-marker) + #((record-marker) + #f + (id args body)) + #(564 + (k$733) + ((in-port:get-buf + #((record-marker) + #((record-marker) + #f + (id args body)) + #(563 + (r$734) + ((if r$734 + (in-port:read-buf! + k$733 + ptbl$196) + (k$733 (read-char + fp$202)))))) + ptbl$196)))) + #((record-marker) + #((record-marker) + #f + (id args body)) + #(562 + (r$499) + ((#((record-marker) + #((record-marker) + #f + (id args body)) + #(561 + (c$204) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(560 + (r$500) + ((if r$500 + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(277 + () + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(276 + (k$506) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(275 + (r$507) + ((if r$507 + (in-port:get-lnum + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(274 + (r$508) + ((in-port:get-cnum + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(273 + (r$509) + ((parse-error + k$506 + "missing closing parenthesis" + r$508 + r$509)))) + ptbl$196)))) + ptbl$196) + (k$506 #f))))) + (> parens$197 + 0))))) + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(272 + (r$501) + ((if all?$199 + (get-toks + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(267 + (r$502) + ((reverse + k$497 + r$502)))) + tok$201 + toks$200) + (get-toks + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(271 + (r$503) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(270 + (last$232) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(269 + (r$505) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(268 + (r$504) + ((if r$504 + (k$497 (car last$232)) + (k$497 c$204))))) + (> r$505 + 0))))) + (length + last$232))))) + r$503)))) + tok$201 + toks$200)))))))))) + (if comment?$198 + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(286 + () + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(285 + (r$510) + ((if r$510 + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(283 + () + ((in-port:get-lnum + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(282 + (r$515) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(281 + (r$514) + ((in-port:set-lnum! + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(280 + (r$511) + ((in-port:set-cnum! + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(279 + (r$512) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(278 + (r$513) + ((parse k$497 + fp$202 + r$513 + toks$200 + all?$199 + #f + parens$197 + ptbl$196)))) + '())))) + ptbl$196 + 0)))) + ptbl$196 + r$514)))) + (+ 1 + r$515))))) + ptbl$196))))) + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(284 + (r$516) + ((parse k$497 + fp$202 + r$516 + toks$200 + all?$199 + #t + parens$197 + ptbl$196)))) + '()))))) + (eq? c$204 + #\newline)))))) + (char-whitespace? + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(559 + (r$517) + ((if r$517 + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(295 + () + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(294 + (k$522) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(293 + (r$523) + ((if r$523 + (in-port:get-lnum + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(292 + (r$525) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(291 + (r$524) + ((in-port:set-lnum! + k$522 + ptbl$196 + r$524)))) + (+ 1 + r$525))))) + ptbl$196) + (k$522 #f))))) + (equal? + c$204 + #\newline))))) + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(290 + (r$518) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(289 + (k$520) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(288 + (r$521) + ((if r$521 + (in-port:set-cnum! + k$520 + ptbl$196 + 0) + (k$520 #f))))) + (equal? + c$204 + #\newline))))) + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(287 + (r$519) + ((parse/tok + k$497 + fp$202 + tok$201 + toks$200 + all?$199 + #f + parens$197 + ptbl$196 + c$204))))))))))))) + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(558 + (r$526) + ((if r$526 + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(296 + () + ((parse/tok + k$497 + fp$202 + tok$201 + toks$200 + all?$199 + #t + parens$197 + ptbl$196 + c$204))))) + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(557 + (r$527) + ((if r$527 + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(316 + () + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(315 + (k$541) + ((if all?$199 + (k$541 #f) + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(314 + (r$542) + ((not k$541 + r$542)))) + (null? tok$201)))))) + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(313 + (r$528) + ((if r$528 + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(300 + () + ((in-port:set-buf! + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(299 + (r$529) + ((->tok #((record-marker) + #((record-marker) + #f + (id args + body)) + #(298 + (r$531) + ((add-tok + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(297 + (r$530) + ((k$497 (car r$530))))) + r$531 + toks$200)))) + tok$201)))) + ptbl$196 + c$204))))) + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(312 + () + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(311 + (r$539) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(310 + (r$540) + ((parse #((record-marker) + #((record-marker) + #f + (id args + body)) + #(309 + (r$532) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(308 + (sub$230) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(307 + (new-toks$231) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(306 + (r$538) + ((list #((record-marker) + #((record-marker) + #f + (id args + body)) + #(305 + (r$536) + ((get-toks + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(304 + (r$537) + ((add-tok + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(303 + (r$535) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(302 + (r$533) + ((if all?$199 + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(301 + (r$534) + ((parse k$497 + fp$202 + r$534 + new-toks$231 + all?$199 + #f + parens$197 + ptbl$196)))) + '()) + (k$497 (car new-toks$231)))))) + (set! new-toks$231 + r$535))))) + r$536 + r$537)))) + tok$201 + toks$200)))) + r$538 + sub$230)))) + 'quote)))) + #f)))) + r$532)))) + fp$202 + r$539 + r$540 + #f + #f + 0 + ptbl$196)))) + '())))) + '())))))))))))))) + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(556 + (r$543) + ((if r$543 + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(336 + () + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(335 + (k$557) + ((if all?$199 + (k$557 #f) + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(334 + (r$558) + ((not k$557 + r$558)))) + (null? tok$201)))))) + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(333 + (r$544) + ((if r$544 + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(320 + () + ((in-port:set-buf! + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(319 + (r$545) + ((->tok #((record-marker) + #((record-marker) + #f + (id args + body)) + #(318 + (r$547) + ((add-tok + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(317 + (r$546) + ((k$497 (car r$546))))) + r$547 + toks$200)))) + tok$201)))) + ptbl$196 + c$204))))) + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(332 + () + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(331 + (r$555) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(330 + (r$556) + ((parse #((record-marker) + #((record-marker) + #f + (id args + body)) + #(329 + (r$548) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(328 + (sub$228) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(327 + (new-toks$229) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(326 + (r$554) + ((list #((record-marker) + #((record-marker) + #f + (id args + body)) + #(325 + (r$552) + ((get-toks + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(324 + (r$553) + ((add-tok + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(323 + (r$551) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(322 + (r$549) + ((if all?$199 + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(321 + (r$550) + ((parse k$497 + fp$202 + r$550 + new-toks$229 + all?$199 + #f + parens$197 + ptbl$196)))) + '()) + (k$497 (car new-toks$229)))))) + (set! new-toks$229 + r$551))))) + r$552 + r$553)))) + tok$201 + toks$200)))) + r$554 + sub$228)))) + 'quasiquote)))) + #f)))) + r$548)))) + fp$202 + r$555 + r$556 + #f + #f + 0 + ptbl$196)))) + '())))) + '())))))))))))))) + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(555 + (r$559) + ((if r$559 + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(372 + () + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(371 + (k$587) + ((if all?$199 + (k$587 #f) + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(370 + (r$588) + ((not k$587 + r$588)))) + (null? tok$201)))))) + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(369 + (r$560) + ((if r$560 + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(340 + () + ((in-port:set-buf! + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(339 + (r$561) + ((->tok #((record-marker) + #((record-marker) + #f + (id args + body)) + #(338 + (r$563) + ((add-tok + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(337 + (r$562) + ((k$497 (car r$562))))) + r$563 + toks$200)))) + tok$201)))) + ptbl$196 + c$204))))) + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(368 + () + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(367 + (sub$227 + next-c$226 + unquote-sym$225 + new-toks$224) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(366 + (r$564) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(365 + (r$586) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(364 + (r$565) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(363 + (k$584) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(362 + (r$585) + ((if r$585 + (k$584 'unquote-splicing) + (k$584 'unquote))))) + (equal? + next-c$226 + #\@))))) + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(361 + (r$583) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(360 + (r$566) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(359 + (r$567) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(358 + (k$578) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(357 + (r$579) + ((if r$579 + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(353 + () + ((in-port:get-lnum + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(352 + (r$580) + ((in-port:get-cnum + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(351 + (r$581) + ((parse-error + k$578 + "unexpected end of file" + r$580 + r$581)))) + ptbl$196)))) + ptbl$196))))) + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(356 + (r$582) + ((if r$582 + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(354 + () + ((k$578 #f))))) + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(355 + () + ((in-port:set-buf! + k$578 + ptbl$196 + next-c$226))))))))) + (equal? + next-c$226 + #\@)))))) + (eof-object? + next-c$226))))) + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(350 + (r$568) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(349 + (r$576) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(348 + (r$577) + ((parse #((record-marker) + #((record-marker) + #f + (id args + body)) + #(347 + (r$575) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(346 + (r$569) + ((list #((record-marker) + #((record-marker) + #f + (id args + body)) + #(345 + (r$573) + ((get-toks + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(344 + (r$574) + ((add-tok + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(343 + (r$572) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(342 + (r$570) + ((if all?$199 + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(341 + (r$571) + ((parse k$497 + fp$202 + r$571 + new-toks$224 + all?$199 + #f + parens$197 + ptbl$196)))) + '()) + (k$497 (car new-toks$224)))))) + (set! new-toks$224 + r$572))))) + r$573 + r$574)))) + tok$201 + toks$200)))) + unquote-sym$225 + sub$227)))) + (set! sub$227 + r$575))))) + fp$202 + r$576 + r$577 + #f + #f + 0 + ptbl$196)))) + '())))) + '())))))))) + (set! new-toks$224 + #f))))) + (set! unquote-sym$225 + r$583))))))))) + (set! next-c$226 + r$586))))) + (read-char + fp$202))))) + (set! sub$227 + #f))))) + #f + #f + #f + #f)))))))))))))) + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(554 + (r$589) + ((if r$589 + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(396 + () + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(395 + (k$607) + ((if all?$199 + (k$607 #f) + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(394 + (r$608) + ((not k$607 + r$608)))) + (null? tok$201)))))) + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(393 + (r$590) + ((if r$590 + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(376 + () + ((in-port:set-buf! + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(375 + (r$591) + ((->tok #((record-marker) + #((record-marker) + #f + (id args + body)) + #(374 + (r$593) + ((add-tok + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(373 + (r$592) + ((k$497 (car r$592))))) + r$593 + toks$200)))) + tok$201)))) + ptbl$196 + c$204))))) + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(392 + () + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(391 + (r$604) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(390 + (r$605) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(389 + (r$606) + ((parse #((record-marker) + #((record-marker) + #f + (id args + body)) + #(388 + (r$594) + ((get-toks + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(387 + (r$595) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(386 + (sub$222 + toks*$221) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(385 + (new-toks$223) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(384 + (k$600) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(383 + (k$602) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(382 + (r$603) + ((if r$603 + (dotted? + k$602 + sub$222) + (k$602 #f))))) + (pair? sub$222))))) + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(381 + (r$601) + ((if r$601 + (->dotted-list + k$600 + sub$222) + (k$600 sub$222))))))))) + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(380 + (r$599) + ((add-tok + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(379 + (r$598) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(378 + (r$596) + ((if all?$199 + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(377 + (r$597) + ((parse k$497 + fp$202 + r$597 + new-toks$223 + all?$199 + #f + parens$197 + ptbl$196)))) + '()) + (k$497 (car new-toks$223)))))) + (set! new-toks$223 + r$598))))) + r$599 + toks*$221)))))))) + #f)))) + r$594 + r$595)))) + tok$201 + toks$200)))) + fp$202 + r$604 + r$605 + #t + #f + r$606 + ptbl$196)))) + (+ parens$197 + 1))))) + '())))) + '())))))))))))))) + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(553 + (r$609) + ((if r$609 + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(410 + () + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(409 + (k$618) + ((if all?$199 + (k$618 #f) + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(408 + (r$619) + ((not k$618 + r$619)))) + (null? tok$201)))))) + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(407 + (r$610) + ((if r$610 + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(400 + () + ((in-port:set-buf! + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(399 + (r$611) + ((->tok #((record-marker) + #((record-marker) + #f + (id args + body)) + #(398 + (r$613) + ((add-tok + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(397 + (r$612) + ((k$497 (car r$612))))) + r$613 + toks$200)))) + tok$201)))) + ptbl$196 + c$204))))) + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(406 + (r$614) + ((if r$614 + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(403 + () + ((in-port:get-lnum + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(402 + (r$615) + ((in-port:get-cnum + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(401 + (r$616) + ((parse-error + k$497 + "unexpected closing parenthesis" + r$615 + r$616)))) + ptbl$196)))) + ptbl$196))))) + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(405 + () + ((get-toks + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(404 + (r$617) + ((reverse + k$497 + r$617)))) + tok$201 + toks$200))))))))) + (= parens$197 + 0))))))))))) + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(552 + (r$620) + ((if r$620 + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(427 + () + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(426 + (k$631) + ((if all?$199 + (k$631 #f) + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(425 + (r$632) + ((not k$631 + r$632)))) + (null? tok$201)))))) + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(424 + (r$621) + ((if r$621 + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(414 + () + ((in-port:set-buf! + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(413 + (r$622) + ((->tok #((record-marker) + #((record-marker) + #f + (id args + body)) + #(412 + (r$624) + ((add-tok + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(411 + (r$623) + ((k$497 (car r$623))))) + r$624 + toks$200)))) + tok$201)))) + ptbl$196 + c$204))))) + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(423 + () + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(422 + (r$630) + ((read-str + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(421 + (r$625) + ((get-toks + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(420 + (r$626) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(419 + (str$219 + toks*$218) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(418 + (new-toks$220) + ((add-tok + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(417 + (r$629) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(416 + (r$627) + ((if all?$199 + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(415 + (r$628) + ((parse k$497 + fp$202 + r$628 + new-toks$220 + all?$199 + #f + parens$197 + ptbl$196)))) + '()) + (k$497 (car new-toks$220)))))) + (set! new-toks$220 + r$629))))) + str$219 + toks*$218)))) + #f)))) + r$625 + r$626)))) + tok$201 + toks$200)))) + fp$202 + r$630 + ptbl$196)))) + '())))))))))))))) + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(551 + (r$633) + ((if r$633 + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(546 + () + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(545 + (r$634) + ((if r$634 + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(543 + (r$635) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(542 + (next-c$205) + ((in-port:get-cnum + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(541 + (r$729) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(540 + (r$728) + ((in-port:set-cnum! + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(539 + (r$636) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(538 + (r$637) + ((if r$637 + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(430 + () + ((read-block-comment + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(429 + (r$638) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(428 + (r$639) + ((parse k$497 + fp$202 + r$639 + toks$200 + all?$199 + #f + parens$197 + ptbl$196)))) + '())))) + fp$202 + ptbl$196))))) + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(537 + (r$640) + ((if r$640 + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(433 + () + ((if all?$199 + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(432 + (r$641) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(431 + (r$642) + ((parse k$497 + fp$202 + r$641 + r$642 + all?$199 + #f + parens$197 + ptbl$196)))) + (cons #t + toks$200))))) + '()) + (k$497 #t)))))) + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(536 + (r$643) + ((if r$643 + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(436 + () + ((if all?$199 + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(435 + (r$644) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(434 + (r$645) + ((parse k$497 + fp$202 + r$644 + r$645 + all?$199 + #f + parens$197 + ptbl$196)))) + (cons #f + toks$200))))) + '()) + (k$497 #f)))))) + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(535 + (r$646) + ((if r$646 + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(440 + () + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(437 + (r$647) + ((parse-number + k$497 + fp$202 + toks$200 + all?$199 + parens$197 + ptbl$196 + 10 + r$647)))) + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(439 + (k$648 num$217) + ((parse-atom + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(438 + (r$649) + ((exact k$648 + r$649)))) + num$217))))))))) + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(534 + (r$650) + ((if r$650 + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(444 + () + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(441 + (r$651) + ((parse-number + k$497 + fp$202 + toks$200 + all?$199 + parens$197 + ptbl$196 + 10 + r$651)))) + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(443 + (k$652 num$216) + ((parse-atom + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(442 + (r$653) + ((inexact + k$652 + r$653)))) + num$216))))))))) + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(533 + (r$654) + ((if r$654 + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(448 + () + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(445 + (r$655) + ((parse-number + k$497 + fp$202 + toks$200 + all?$199 + parens$197 + ptbl$196 + 2 + r$655)))) + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(447 + (k$656 num$215) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(446 + (r$657) + ((k$656 (string->number + r$657 + 2))))) + (list->string + num$215)))))))))) + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(532 + (r$658) + ((if r$658 + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(452 + () + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(449 + (r$659) + ((parse-number + k$497 + fp$202 + toks$200 + all?$199 + parens$197 + ptbl$196 + 8 + r$659)))) + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(451 + (k$660 num$214) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(450 + (r$661) + ((k$660 (string->number + r$661 + 8))))) + (list->string + num$214)))))))))) + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(531 + (r$662) + ((if r$662 + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(456 + () + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(453 + (r$663) + ((parse-number + k$497 + fp$202 + toks$200 + all?$199 + parens$197 + ptbl$196 + 16 + r$663)))) + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(455 + (k$664 num$213) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(454 + (r$665) + ((k$664 (string->number + r$665 + 16))))) + (list->string + num$213)))))))))) + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(530 + (r$666) + ((if r$666 + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(488 + () + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(487 + (r$695) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(486 + (r$667) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(485 + (k$691) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(484 + (r$692) + ((if r$692 + (k$691 #f) + (in-port:get-lnum + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(483 + (r$693) + ((in-port:get-cnum + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(482 + (r$694) + ((parse-error + k$691 + "Unhandled input sequence" + r$693 + r$694)))) + ptbl$196)))) + ptbl$196))))) + (eq? #\8 + next-c$205))))) + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(481 + (r$668) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(480 + (r$690) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(479 + (r$669) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(478 + (k$686) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(477 + (r$687) + ((if r$687 + (k$686 #f) + (in-port:get-lnum + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(476 + (r$688) + ((in-port:get-cnum + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(475 + (r$689) + ((parse-error + k$686 + "Unhandled input sequence" + r$688 + r$689)))) + ptbl$196)))) + ptbl$196))))) + (eq? #\( + next-c$205))))) + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(474 + (r$670) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(473 + (r$683) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(472 + (r$684) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(471 + (r$685) + ((parse #((record-marker) + #((record-marker) + #f + (id args + body)) + #(470 + (r$671) + ((get-toks + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(469 + (r$672) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(468 + (sub$211 + toks*$210) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(467 + (new-toks$212) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(466 + (k$677) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(465 + (k$681) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(464 + (r$682) + ((if r$682 + (dotted? + k$681 + sub$211) + (k$681 #f))))) + (pair? sub$211))))) + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(463 + (r$678) + ((if r$678 + (in-port:get-lnum + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(462 + (r$679) + ((in-port:get-cnum + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(461 + (r$680) + ((parse-error + k$677 + "Invalid vector syntax" + r$679 + r$680)))) + ptbl$196)))) + ptbl$196) + (k$677 (apply bytevector + sub$211)))))))))) + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(460 + (r$676) + ((add-tok + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(459 + (r$675) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(458 + (r$673) + ((if all?$199 + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(457 + (r$674) + ((parse k$497 + fp$202 + r$674 + new-toks$212 + all?$199 + #f + parens$197 + ptbl$196)))) + '()) + (k$497 (car new-toks$212)))))) + (set! new-toks$212 + r$675))))) + r$676 + toks*$210)))))))) + #f)))) + r$671 + r$672)))) + tok$201 + toks$200)))) + fp$202 + r$683 + r$684 + #t + #f + r$685 + ptbl$196)))) + (+ parens$197 + 1))))) + '())))) + '())))))))) + (set! next-c$205 + r$690))))) + (read-char + fp$202))))))))) + (set! next-c$205 + r$695))))) + (read-char + fp$202)))))) + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(529 + (r$696) + ((if r$696 + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(506 + () + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(505 + (r$709) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(504 + (r$710) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(503 + (r$711) + ((parse #((record-marker) + #((record-marker) + #f + (id args + body)) + #(502 + (r$697) + ((get-toks + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(501 + (r$698) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(500 + (sub$208 + toks*$207) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(499 + (new-toks$209) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(498 + (k$703) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(497 + (k$707) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(496 + (r$708) + ((if r$708 + (dotted? + k$707 + sub$208) + (k$707 #f))))) + (pair? sub$208))))) + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(495 + (r$704) + ((if r$704 + (in-port:get-lnum + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(494 + (r$705) + ((in-port:get-cnum + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(493 + (r$706) + ((parse-error + k$703 + "Invalid vector syntax" + r$705 + r$706)))) + ptbl$196)))) + ptbl$196) + (k$703 (list->vector + sub$208)))))))))) + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(492 + (r$702) + ((add-tok + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(491 + (r$701) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(490 + (r$699) + ((if all?$199 + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(489 + (r$700) + ((parse k$497 + fp$202 + r$700 + new-toks$209 + all?$199 + #f + parens$197 + ptbl$196)))) + '()) + (k$497 (car new-toks$209)))))) + (set! new-toks$209 + r$701))))) + r$702 + toks*$207)))))))) + #f)))) + r$697 + r$698)))) + tok$201 + toks$200)))) + fp$202 + r$709 + r$710 + #t + #f + r$711 + ptbl$196)))) + (+ parens$197 + 1))))) + '())))) + '()))))) + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(528 + (r$712) + ((if r$712 + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(511 + () + ((read-pound + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(510 + (r$715) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(509 + (r$713) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(508 + (new-toks$206) + ((if all?$199 + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(507 + (r$714) + ((parse k$497 + fp$202 + r$714 + new-toks$206 + all?$199 + #f + parens$197 + ptbl$196)))) + '()) + (k$497 (car new-toks$206)))))) + r$713)))) + (cons r$715 + toks$200))))) + fp$202 + ptbl$196))))) + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(527 + (r$716) + ((if r$716 + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(523 + () + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(522 + (r$724) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(521 + (r$725) + ((parse #((record-marker) + #((record-marker) + #f + (id args + body)) + #(520 + (r$717) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(519 + (k$722) + ((if all?$199 + (k$722 #f) + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(518 + (r$723) + ((not k$722 + r$723)))) + (null? tok$201)))))) + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(517 + (r$718) + ((if r$718 + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(515 + () + ((in-port:set-buf! + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(514 + (r$719) + ((->tok #((record-marker) + #((record-marker) + #f + (id args + body)) + #(513 + (r$721) + ((add-tok + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(512 + (r$720) + ((k$497 (car r$720))))) + r$721 + toks$200)))) + tok$201)))) + ptbl$196 + c$204))))) + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(516 + () + ((parse k$497 + fp$202 + tok$201 + toks$200 + all?$199 + #f + parens$197 + ptbl$196))))))))))))) + fp$202 + r$724 + r$725 + #f + #f + 0 + ptbl$196)))) + '())))) + '()))))) + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(526 + () + ((in-port:get-lnum + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(525 + (r$726) + ((in-port:get-cnum + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(524 + (r$727) + ((parse-error + k$497 + "Unhandled input sequence" + r$726 + r$727)))) + ptbl$196)))) + ptbl$196))))))))) + (eq? #\; + next-c$205)))))) + (eq? #\\ + next-c$205)))))) + (eq? #\( + next-c$205)))))) + (eq? #\u + next-c$205)))))) + (eq? #\x + next-c$205)))))) + (eq? #\o + next-c$205)))))) + (eq? #\b + next-c$205)))))) + (eq? #\i + next-c$205)))))) + (eq? #\e + next-c$205)))))) + (eq? #\f + next-c$205)))))) + (eq? #\t + next-c$205)))))) + (eq? #\| + next-c$205))))) + ptbl$196 + r$728)))) + (+ 1 + r$729))))) + ptbl$196)))) + r$635)))) + (read-char + fp$202)) + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(544 + (r$730) + ((parse k$497 + fp$202 + r$730 + toks$200 + all?$199 + #f + parens$197 + ptbl$196)))) + (cons c$204 + tok$201)))))) + (null? tok$201)))))) + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(550 + (r$731) + ((if r$731 + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(547 + () + ((parse-literal-identifier + k$497 + fp$202 + toks$200 + all?$199 + parens$197 + ptbl$196))))) + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(549 + () + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(548 + (r$732) + ((parse k$497 + fp$202 + r$732 + toks$200 + all?$199 + #f + parens$197 + ptbl$196)))) + (cons c$204 + tok$201)))))))))) + (eq? c$204 + #\|)))))) + (eq? c$204 + #\#)))))) + (eq? c$204 + #\")))))) + (eq? c$204 + #\))))))) + (eq? c$204 + #\()))))) + (eq? c$204 + #\,)))))) + (eq? c$204 + #\`)))))) + (eq? c$204 + #\')))))) + (eq? c$204 + #\;)))))) + c$204)))))) + (eof-object? + c$204))))) + r$499)))))))) + ptbl$196 + r$735)))) + (+ 1 r$736))))) + ptbl$196)))) + #f))))) + 28 + 0)))) + ((r$787 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 609 #f #f (609) #f (cdddr ptbl$252) 0 1)))) + () + () + () + () + () + () + ((+ . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(? + ? + #f + #f + (567 541 504 472 390 292 282) + #f + #f + 7 + 0)))) + () + () + () + () + () + () + () + () + () + () + () + ((r$490 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f + 252 + #f + #f + (252) + #f + '(#\d #\e #\l #\e #\t #\e) + 0 + 1)))) + ((r$491 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f + 254 + #f + #f + (254) + #f + '(#\b #\a #\c #\k #\s #\p #\a #\c #\e) + 0 + 1)))) + ((r$492 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f + 256 + #f + #f + (256) + #f + '(#\a #\l #\a #\r #\m) + 0 + 1)))) + ((r$493 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 258 #f #f (258) #f (length buf$195) 0 1)))) + ((r$494 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 260 #f #f (260) #f (length buf$195) 0 1)))) + () + ((= . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(? ? #f #f (53 41 45 74 260 258 407) #f #f 7 0)))) + ((> . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(? + ? + #f + #f + (75 138 145 237 198 201 269 276 601) + #f + #f + 9 + 0)))) + ((r$498 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 565 #f #f () #f #f 0 0)))) + ((r$499 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 562 #f #f (562) #f #f 0 1)))) + () + () + () + () + () + ((r$794 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 612 #f #f (612) #f (cddr ptbl$255) 0 1)))) + () + () + () + () + () + () + () + () + () + () + ((assoc . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(? ? #f #f (630) #f #f 1 0)))) + () + () + () + () + () + () + () + ((k$406 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 153 #f #f (151 151) #f #f 2 0)))) + () + () + () + () + () + () + () + ((k$703 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f + 498 + #f + #f + (495 493) + #f + #((record-marker) + #((record-marker) #f (id args body)) + #(492 + (r$702) + ((add-tok + #((record-marker) + #((record-marker) #f (id args body)) + #(491 + (r$701) + ((#((record-marker) + #((record-marker) #f (id args body)) + #(490 + (r$699) + ((if all?$199 + (#((record-marker) + #((record-marker) #f (id args body)) + #(489 + (r$700) + ((parse k$497 + fp$202 + r$700 + new-toks$209 + all?$199 + #f + parens$197 + ptbl$196)))) + '()) + (k$497 (car new-toks$209)))))) + (set! new-toks$209 r$701))))) + r$702 + toks*$207)))) + 1 + 1)))) + () + () + () + ((k$707 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f + 497 + #f + #f + (496 496) + #f + #((record-marker) + #((record-marker) #f (id args body)) + #(495 + (r$704) + ((if r$704 + (in-port:get-lnum + #((record-marker) + #((record-marker) #f (id args body)) + #(494 + (r$705) + ((in-port:get-cnum + #((record-marker) + #((record-marker) #f (id args body)) + #(493 + (r$706) + ((parse-error + k$703 + "Invalid vector syntax" + r$705 + r$706)))) + ptbl$196)))) + ptbl$196) + (k$703 (list->vector sub$208)))))) + 1 + 1)))) + () + () + () + () + () + () + () + () + () + () + () + () + () + () + () + () + () + () + ((k$410 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 173 #f #f (159 158 157 154) #f #f 2 2)))) + () + () + () + () + () + () + () + () + ((cdddr . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(? ? #f #f (610) #f #f 1 0)))) + () + () + () + () + () + () + () + () + () + () + () + () + () + () + () + () + () + () + () + () + () + () + () + () + () + () + () + () + () + () + ((k$423 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f + 167 + #f + #f + (167 167) + #f + #((record-marker) + #((record-marker) #f (id args body)) + #(166 + (r$415) + ((if r$415 + (#((record-marker) + #((record-marker) #f (id args body)) + #(157 () ((k$410 (cons c$176 buf$174)))))) + (#((record-marker) + #((record-marker) #f (id args body)) + #(165 + (r$416) + ((if r$416 + (#((record-marker) + #((record-marker) #f (id args body)) + #(158 + () + ((k$410 (cons #\newline buf$174)))))) + (#((record-marker) + #((record-marker) #f (id args body)) + #(164 + () + ((list #((record-marker) + #((record-marker) + #f + (id args body)) + #(163 + (r$421) + ((#((record-marker) + #((record-marker) + #f + (id args body)) + #(162 + (r$420) + ((#((record-marker) + #((record-marker) + #f + (id args body)) + #(161 + (r$417) + ((in-port:get-lnum + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(160 + (r$418) + ((in-port:get-cnum + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(159 + (r$419) + ((parse-error + k$410 + r$417 + r$418 + r$419)))) + ptbl$173)))) + ptbl$173)))) + (string-append + "invalid escape character [" + r$420 + "] in string"))))) + (list->string r$421))))) + c$176))))))))) + (equal? #\n c$176)))))) + 2 + 0)))) + () + () + ((k$426 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 188 #f #f (181 179 177 174) #f #f 1 3)))) + () + () + () + () + () + () + ((k$722 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f + 519 + #f + #f + (518 519) + #f + #((record-marker) + #((record-marker) #f (id args body)) + #(517 + (r$718) + ((if r$718 + (#((record-marker) + #((record-marker) #f (id args body)) + #(515 + () + ((in-port:set-buf! + #((record-marker) + #((record-marker) #f (id args body)) + #(514 + (r$719) + ((->tok #((record-marker) + #((record-marker) + #f + (id args body)) + #(513 + (r$721) + ((add-tok + #((record-marker) + #((record-marker) + #f + (id args body)) + #(512 + (r$720) + ((k$497 (car r$720))))) + r$721 + toks$200)))) + tok$201)))) + ptbl$196 + c$204))))) + (#((record-marker) + #((record-marker) #f (id args body)) + #(516 + () + ((parse k$497 + fp$202 + tok$201 + toks$200 + all?$199 + #f + parens$197 + ptbl$196))))))))) + 1 + 1)))) + () + () + () + () + () + () + () + () + () + () + () + () + () + () + () + () + () + () + () + () + () + () + () + () + () + () + () + () + () + () + () + ((k$438 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 266 #f #f (189) #f #f 0 1)))) + () + () + () + () + () + ((k$733 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f + 564 + #f + #f + (563 563) + #f + #((record-marker) + #((record-marker) #f (id args body)) + #(562 + (r$499) + ((#((record-marker) + #((record-marker) #f (id args body)) + #(561 + (c$204) + ((#((record-marker) + #((record-marker) #f (id args body)) + #(560 + (r$500) + ((if r$500 + (#((record-marker) + #((record-marker) #f (id args body)) + #(277 + () + ((#((record-marker) + #((record-marker) + #f + (id args body)) + #(276 + (k$506) + ((#((record-marker) + #((record-marker) + #f + (id args body)) + #(275 + (r$507) + ((if r$507 + (in-port:get-lnum + #((record-marker) + #((record-marker) + #f + (id args body)) + #(274 + (r$508) + ((in-port:get-cnum + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(273 + (r$509) + ((parse-error + k$506 + "missing closing parenthesis" + r$508 + r$509)))) + ptbl$196)))) + ptbl$196) + (k$506 #f))))) + (> parens$197 0))))) + #((record-marker) + #((record-marker) + #f + (id args body)) + #(272 + (r$501) + ((if all?$199 + (get-toks + #((record-marker) + #((record-marker) + #f + (id args body)) + #(267 + (r$502) + ((reverse + k$497 + r$502)))) + tok$201 + toks$200) + (get-toks + #((record-marker) + #((record-marker) + #f + (id args body)) + #(271 + (r$503) + ((#((record-marker) + #((record-marker) + #f + (id args body)) + #(270 + (last$232) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(269 + (r$505) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(268 + (r$504) + ((if r$504 + (k$497 (car last$232)) + (k$497 c$204))))) + (> r$505 + 0))))) + (length + last$232))))) + r$503)))) + tok$201 + toks$200)))))))))) + (if comment?$198 + (#((record-marker) + #((record-marker) #f (id args body)) + #(286 + () + ((#((record-marker) + #((record-marker) + #f + (id args body)) + #(285 + (r$510) + ((if r$510 + (#((record-marker) + #((record-marker) + #f + (id args body)) + #(283 + () + ((in-port:get-lnum + #((record-marker) + #((record-marker) + #f + (id args body)) + #(282 + (r$515) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(281 + (r$514) + ((in-port:set-lnum! + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(280 + (r$511) + ((in-port:set-cnum! + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(279 + (r$512) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(278 + (r$513) + ((parse k$497 + fp$202 + r$513 + toks$200 + all?$199 + #f + parens$197 + ptbl$196)))) + '())))) + ptbl$196 + 0)))) + ptbl$196 + r$514)))) + (+ 1 + r$515))))) + ptbl$196))))) + (#((record-marker) + #((record-marker) + #f + (id args body)) + #(284 + (r$516) + ((parse k$497 + fp$202 + r$516 + toks$200 + all?$199 + #t + parens$197 + ptbl$196)))) + '()))))) + (eq? c$204 #\newline)))))) + (char-whitespace? + #((record-marker) + #((record-marker) #f (id args body)) + #(559 + (r$517) + ((if r$517 + (#((record-marker) + #((record-marker) + #f + (id args body)) + #(295 + () + ((#((record-marker) + #((record-marker) + #f + (id args body)) + #(294 + (k$522) + ((#((record-marker) + #((record-marker) + #f + (id args body)) + #(293 + (r$523) + ((if r$523 + (in-port:get-lnum + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(292 + (r$525) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(291 + (r$524) + ((in-port:set-lnum! + k$522 + ptbl$196 + r$524)))) + (+ 1 + r$525))))) + ptbl$196) + (k$522 #f))))) + (equal? + c$204 + #\newline))))) + #((record-marker) + #((record-marker) + #f + (id args body)) + #(290 + (r$518) + ((#((record-marker) + #((record-marker) + #f + (id args body)) + #(289 + (k$520) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(288 + (r$521) + ((if r$521 + (in-port:set-cnum! + k$520 + ptbl$196 + 0) + (k$520 #f))))) + (equal? + c$204 + #\newline))))) + #((record-marker) + #((record-marker) + #f + (id args body)) + #(287 + (r$519) + ((parse/tok + k$497 + fp$202 + tok$201 + toks$200 + all?$199 + #f + parens$197 + ptbl$196 + c$204))))))))))))) + (#((record-marker) + #((record-marker) + #f + (id args body)) + #(558 + (r$526) + ((if r$526 + (#((record-marker) + #((record-marker) + #f + (id args body)) + #(296 + () + ((parse/tok + k$497 + fp$202 + tok$201 + toks$200 + all?$199 + #t + parens$197 + ptbl$196 + c$204))))) + (#((record-marker) + #((record-marker) + #f + (id args body)) + #(557 + (r$527) + ((if r$527 + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(316 + () + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(315 + (k$541) + ((if all?$199 + (k$541 #f) + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(314 + (r$542) + ((not k$541 + r$542)))) + (null? tok$201)))))) + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(313 + (r$528) + ((if r$528 + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(300 + () + ((in-port:set-buf! + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(299 + (r$529) + ((->tok #((record-marker) + #((record-marker) + #f + (id args + body)) + #(298 + (r$531) + ((add-tok + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(297 + (r$530) + ((k$497 (car r$530))))) + r$531 + toks$200)))) + tok$201)))) + ptbl$196 + c$204))))) + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(312 + () + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(311 + (r$539) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(310 + (r$540) + ((parse #((record-marker) + #((record-marker) + #f + (id args + body)) + #(309 + (r$532) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(308 + (sub$230) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(307 + (new-toks$231) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(306 + (r$538) + ((list #((record-marker) + #((record-marker) + #f + (id args + body)) + #(305 + (r$536) + ((get-toks + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(304 + (r$537) + ((add-tok + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(303 + (r$535) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(302 + (r$533) + ((if all?$199 + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(301 + (r$534) + ((parse k$497 + fp$202 + r$534 + new-toks$231 + all?$199 + #f + parens$197 + ptbl$196)))) + '()) + (k$497 (car new-toks$231)))))) + (set! new-toks$231 + r$535))))) + r$536 + r$537)))) + tok$201 + toks$200)))) + r$538 + sub$230)))) + 'quote)))) + #f)))) + r$532)))) + fp$202 + r$539 + r$540 + #f + #f + 0 + ptbl$196)))) + '())))) + '())))))))))))))) + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(556 + (r$543) + ((if r$543 + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(336 + () + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(335 + (k$557) + ((if all?$199 + (k$557 #f) + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(334 + (r$558) + ((not k$557 + r$558)))) + (null? tok$201)))))) + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(333 + (r$544) + ((if r$544 + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(320 + () + ((in-port:set-buf! + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(319 + (r$545) + ((->tok #((record-marker) + #((record-marker) + #f + (id args + body)) + #(318 + (r$547) + ((add-tok + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(317 + (r$546) + ((k$497 (car r$546))))) + r$547 + toks$200)))) + tok$201)))) + ptbl$196 + c$204))))) + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(332 + () + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(331 + (r$555) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(330 + (r$556) + ((parse #((record-marker) + #((record-marker) + #f + (id args + body)) + #(329 + (r$548) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(328 + (sub$228) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(327 + (new-toks$229) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(326 + (r$554) + ((list #((record-marker) + #((record-marker) + #f + (id args + body)) + #(325 + (r$552) + ((get-toks + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(324 + (r$553) + ((add-tok + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(323 + (r$551) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(322 + (r$549) + ((if all?$199 + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(321 + (r$550) + ((parse k$497 + fp$202 + r$550 + new-toks$229 + all?$199 + #f + parens$197 + ptbl$196)))) + '()) + (k$497 (car new-toks$229)))))) + (set! new-toks$229 + r$551))))) + r$552 + r$553)))) + tok$201 + toks$200)))) + r$554 + sub$228)))) + 'quasiquote)))) + #f)))) + r$548)))) + fp$202 + r$555 + r$556 + #f + #f + 0 + ptbl$196)))) + '())))) + '())))))))))))))) + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(555 + (r$559) + ((if r$559 + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(372 + () + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(371 + (k$587) + ((if all?$199 + (k$587 #f) + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(370 + (r$588) + ((not k$587 + r$588)))) + (null? tok$201)))))) + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(369 + (r$560) + ((if r$560 + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(340 + () + ((in-port:set-buf! + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(339 + (r$561) + ((->tok #((record-marker) + #((record-marker) + #f + (id args + body)) + #(338 + (r$563) + ((add-tok + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(337 + (r$562) + ((k$497 (car r$562))))) + r$563 + toks$200)))) + tok$201)))) + ptbl$196 + c$204))))) + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(368 + () + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(367 + (sub$227 + next-c$226 + unquote-sym$225 + new-toks$224) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(366 + (r$564) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(365 + (r$586) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(364 + (r$565) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(363 + (k$584) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(362 + (r$585) + ((if r$585 + (k$584 'unquote-splicing) + (k$584 'unquote))))) + (equal? + next-c$226 + #\@))))) + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(361 + (r$583) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(360 + (r$566) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(359 + (r$567) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(358 + (k$578) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(357 + (r$579) + ((if r$579 + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(353 + () + ((in-port:get-lnum + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(352 + (r$580) + ((in-port:get-cnum + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(351 + (r$581) + ((parse-error + k$578 + "unexpected end of file" + r$580 + r$581)))) + ptbl$196)))) + ptbl$196))))) + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(356 + (r$582) + ((if r$582 + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(354 + () + ((k$578 #f))))) + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(355 + () + ((in-port:set-buf! + k$578 + ptbl$196 + next-c$226))))))))) + (equal? + next-c$226 + #\@)))))) + (eof-object? + next-c$226))))) + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(350 + (r$568) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(349 + (r$576) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(348 + (r$577) + ((parse #((record-marker) + #((record-marker) + #f + (id args + body)) + #(347 + (r$575) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(346 + (r$569) + ((list #((record-marker) + #((record-marker) + #f + (id args + body)) + #(345 + (r$573) + ((get-toks + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(344 + (r$574) + ((add-tok + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(343 + (r$572) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(342 + (r$570) + ((if all?$199 + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(341 + (r$571) + ((parse k$497 + fp$202 + r$571 + new-toks$224 + all?$199 + #f + parens$197 + ptbl$196)))) + '()) + (k$497 (car new-toks$224)))))) + (set! new-toks$224 + r$572))))) + r$573 + r$574)))) + tok$201 + toks$200)))) + unquote-sym$225 + sub$227)))) + (set! sub$227 + r$575))))) + fp$202 + r$576 + r$577 + #f + #f + 0 + ptbl$196)))) + '())))) + '())))))))) + (set! new-toks$224 + #f))))) + (set! unquote-sym$225 + r$583))))))))) + (set! next-c$226 + r$586))))) + (read-char + fp$202))))) + (set! sub$227 + #f))))) + #f + #f + #f + #f)))))))))))))) + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(554 + (r$589) + ((if r$589 + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(396 + () + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(395 + (k$607) + ((if all?$199 + (k$607 #f) + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(394 + (r$608) + ((not k$607 + r$608)))) + (null? tok$201)))))) + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(393 + (r$590) + ((if r$590 + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(376 + () + ((in-port:set-buf! + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(375 + (r$591) + ((->tok #((record-marker) + #((record-marker) + #f + (id args + body)) + #(374 + (r$593) + ((add-tok + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(373 + (r$592) + ((k$497 (car r$592))))) + r$593 + toks$200)))) + tok$201)))) + ptbl$196 + c$204))))) + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(392 + () + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(391 + (r$604) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(390 + (r$605) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(389 + (r$606) + ((parse #((record-marker) + #((record-marker) + #f + (id args + body)) + #(388 + (r$594) + ((get-toks + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(387 + (r$595) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(386 + (sub$222 + toks*$221) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(385 + (new-toks$223) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(384 + (k$600) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(383 + (k$602) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(382 + (r$603) + ((if r$603 + (dotted? + k$602 + sub$222) + (k$602 #f))))) + (pair? sub$222))))) + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(381 + (r$601) + ((if r$601 + (->dotted-list + k$600 + sub$222) + (k$600 sub$222))))))))) + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(380 + (r$599) + ((add-tok + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(379 + (r$598) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(378 + (r$596) + ((if all?$199 + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(377 + (r$597) + ((parse k$497 + fp$202 + r$597 + new-toks$223 + all?$199 + #f + parens$197 + ptbl$196)))) + '()) + (k$497 (car new-toks$223)))))) + (set! new-toks$223 + r$598))))) + r$599 + toks*$221)))))))) + #f)))) + r$594 + r$595)))) + tok$201 + toks$200)))) + fp$202 + r$604 + r$605 + #t + #f + r$606 + ptbl$196)))) + (+ parens$197 + 1))))) + '())))) + '())))))))))))))) + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(553 + (r$609) + ((if r$609 + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(410 + () + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(409 + (k$618) + ((if all?$199 + (k$618 #f) + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(408 + (r$619) + ((not k$618 + r$619)))) + (null? tok$201)))))) + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(407 + (r$610) + ((if r$610 + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(400 + () + ((in-port:set-buf! + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(399 + (r$611) + ((->tok #((record-marker) + #((record-marker) + #f + (id args + body)) + #(398 + (r$613) + ((add-tok + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(397 + (r$612) + ((k$497 (car r$612))))) + r$613 + toks$200)))) + tok$201)))) + ptbl$196 + c$204))))) + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(406 + (r$614) + ((if r$614 + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(403 + () + ((in-port:get-lnum + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(402 + (r$615) + ((in-port:get-cnum + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(401 + (r$616) + ((parse-error + k$497 + "unexpected closing parenthesis" + r$615 + r$616)))) + ptbl$196)))) + ptbl$196))))) + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(405 + () + ((get-toks + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(404 + (r$617) + ((reverse + k$497 + r$617)))) + tok$201 + toks$200))))))))) + (= parens$197 + 0))))))))))) + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(552 + (r$620) + ((if r$620 + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(427 + () + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(426 + (k$631) + ((if all?$199 + (k$631 #f) + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(425 + (r$632) + ((not k$631 + r$632)))) + (null? tok$201)))))) + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(424 + (r$621) + ((if r$621 + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(414 + () + ((in-port:set-buf! + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(413 + (r$622) + ((->tok #((record-marker) + #((record-marker) + #f + (id args + body)) + #(412 + (r$624) + ((add-tok + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(411 + (r$623) + ((k$497 (car r$623))))) + r$624 + toks$200)))) + tok$201)))) + ptbl$196 + c$204))))) + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(423 + () + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(422 + (r$630) + ((read-str + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(421 + (r$625) + ((get-toks + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(420 + (r$626) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(419 + (str$219 + toks*$218) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(418 + (new-toks$220) + ((add-tok + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(417 + (r$629) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(416 + (r$627) + ((if all?$199 + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(415 + (r$628) + ((parse k$497 + fp$202 + r$628 + new-toks$220 + all?$199 + #f + parens$197 + ptbl$196)))) + '()) + (k$497 (car new-toks$220)))))) + (set! new-toks$220 + r$629))))) + str$219 + toks*$218)))) + #f)))) + r$625 + r$626)))) + tok$201 + toks$200)))) + fp$202 + r$630 + ptbl$196)))) + '())))))))))))))) + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(551 + (r$633) + ((if r$633 + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(546 + () + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(545 + (r$634) + ((if r$634 + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(543 + (r$635) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(542 + (next-c$205) + ((in-port:get-cnum + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(541 + (r$729) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(540 + (r$728) + ((in-port:set-cnum! + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(539 + (r$636) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(538 + (r$637) + ((if r$637 + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(430 + () + ((read-block-comment + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(429 + (r$638) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(428 + (r$639) + ((parse k$497 + fp$202 + r$639 + toks$200 + all?$199 + #f + parens$197 + ptbl$196)))) + '())))) + fp$202 + ptbl$196))))) + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(537 + (r$640) + ((if r$640 + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(433 + () + ((if all?$199 + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(432 + (r$641) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(431 + (r$642) + ((parse k$497 + fp$202 + r$641 + r$642 + all?$199 + #f + parens$197 + ptbl$196)))) + (cons #t + toks$200))))) + '()) + (k$497 #t)))))) + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(536 + (r$643) + ((if r$643 + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(436 + () + ((if all?$199 + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(435 + (r$644) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(434 + (r$645) + ((parse k$497 + fp$202 + r$644 + r$645 + all?$199 + #f + parens$197 + ptbl$196)))) + (cons #f + toks$200))))) + '()) + (k$497 #f)))))) + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(535 + (r$646) + ((if r$646 + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(440 + () + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(437 + (r$647) + ((parse-number + k$497 + fp$202 + toks$200 + all?$199 + parens$197 + ptbl$196 + 10 + r$647)))) + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(439 + (k$648 num$217) + ((parse-atom + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(438 + (r$649) + ((exact k$648 + r$649)))) + num$217))))))))) + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(534 + (r$650) + ((if r$650 + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(444 + () + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(441 + (r$651) + ((parse-number + k$497 + fp$202 + toks$200 + all?$199 + parens$197 + ptbl$196 + 10 + r$651)))) + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(443 + (k$652 num$216) + ((parse-atom + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(442 + (r$653) + ((inexact + k$652 + r$653)))) + num$216))))))))) + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(533 + (r$654) + ((if r$654 + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(448 + () + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(445 + (r$655) + ((parse-number + k$497 + fp$202 + toks$200 + all?$199 + parens$197 + ptbl$196 + 2 + r$655)))) + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(447 + (k$656 num$215) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(446 + (r$657) + ((k$656 (string->number + r$657 + 2))))) + (list->string + num$215)))))))))) + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(532 + (r$658) + ((if r$658 + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(452 + () + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(449 + (r$659) + ((parse-number + k$497 + fp$202 + toks$200 + all?$199 + parens$197 + ptbl$196 + 8 + r$659)))) + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(451 + (k$660 num$214) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(450 + (r$661) + ((k$660 (string->number + r$661 + 8))))) + (list->string + num$214)))))))))) + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(531 + (r$662) + ((if r$662 + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(456 + () + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(453 + (r$663) + ((parse-number + k$497 + fp$202 + toks$200 + all?$199 + parens$197 + ptbl$196 + 16 + r$663)))) + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(455 + (k$664 num$213) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(454 + (r$665) + ((k$664 (string->number + r$665 + 16))))) + (list->string + num$213)))))))))) + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(530 + (r$666) + ((if r$666 + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(488 + () + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(487 + (r$695) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(486 + (r$667) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(485 + (k$691) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(484 + (r$692) + ((if r$692 + (k$691 #f) + (in-port:get-lnum + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(483 + (r$693) + ((in-port:get-cnum + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(482 + (r$694) + ((parse-error + k$691 + "Unhandled input sequence" + r$693 + r$694)))) + ptbl$196)))) + ptbl$196))))) + (eq? #\8 + next-c$205))))) + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(481 + (r$668) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(480 + (r$690) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(479 + (r$669) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(478 + (k$686) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(477 + (r$687) + ((if r$687 + (k$686 #f) + (in-port:get-lnum + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(476 + (r$688) + ((in-port:get-cnum + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(475 + (r$689) + ((parse-error + k$686 + "Unhandled input sequence" + r$688 + r$689)))) + ptbl$196)))) + ptbl$196))))) + (eq? #\( + next-c$205))))) + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(474 + (r$670) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(473 + (r$683) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(472 + (r$684) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(471 + (r$685) + ((parse #((record-marker) + #((record-marker) + #f + (id args + body)) + #(470 + (r$671) + ((get-toks + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(469 + (r$672) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(468 + (sub$211 + toks*$210) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(467 + (new-toks$212) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(466 + (k$677) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(465 + (k$681) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(464 + (r$682) + ((if r$682 + (dotted? + k$681 + sub$211) + (k$681 #f))))) + (pair? sub$211))))) + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(463 + (r$678) + ((if r$678 + (in-port:get-lnum + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(462 + (r$679) + ((in-port:get-cnum + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(461 + (r$680) + ((parse-error + k$677 + "Invalid vector syntax" + r$679 + r$680)))) + ptbl$196)))) + ptbl$196) + (k$677 (apply bytevector + sub$211)))))))))) + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(460 + (r$676) + ((add-tok + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(459 + (r$675) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(458 + (r$673) + ((if all?$199 + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(457 + (r$674) + ((parse k$497 + fp$202 + r$674 + new-toks$212 + all?$199 + #f + parens$197 + ptbl$196)))) + '()) + (k$497 (car new-toks$212)))))) + (set! new-toks$212 + r$675))))) + r$676 + toks*$210)))))))) + #f)))) + r$671 + r$672)))) + tok$201 + toks$200)))) + fp$202 + r$683 + r$684 + #t + #f + r$685 + ptbl$196)))) + (+ parens$197 + 1))))) + '())))) + '())))))))) + (set! next-c$205 + r$690))))) + (read-char + fp$202))))))))) + (set! next-c$205 + r$695))))) + (read-char + fp$202)))))) + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(529 + (r$696) + ((if r$696 + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(506 + () + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(505 + (r$709) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(504 + (r$710) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(503 + (r$711) + ((parse #((record-marker) + #((record-marker) + #f + (id args + body)) + #(502 + (r$697) + ((get-toks + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(501 + (r$698) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(500 + (sub$208 + toks*$207) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(499 + (new-toks$209) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(498 + (k$703) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(497 + (k$707) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(496 + (r$708) + ((if r$708 + (dotted? + k$707 + sub$208) + (k$707 #f))))) + (pair? sub$208))))) + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(495 + (r$704) + ((if r$704 + (in-port:get-lnum + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(494 + (r$705) + ((in-port:get-cnum + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(493 + (r$706) + ((parse-error + k$703 + "Invalid vector syntax" + r$705 + r$706)))) + ptbl$196)))) + ptbl$196) + (k$703 (list->vector + sub$208)))))))))) + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(492 + (r$702) + ((add-tok + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(491 + (r$701) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(490 + (r$699) + ((if all?$199 + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(489 + (r$700) + ((parse k$497 + fp$202 + r$700 + new-toks$209 + all?$199 + #f + parens$197 + ptbl$196)))) + '()) + (k$497 (car new-toks$209)))))) + (set! new-toks$209 + r$701))))) + r$702 + toks*$207)))))))) + #f)))) + r$697 + r$698)))) + tok$201 + toks$200)))) + fp$202 + r$709 + r$710 + #t + #f + r$711 + ptbl$196)))) + (+ parens$197 + 1))))) + '())))) + '()))))) + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(528 + (r$712) + ((if r$712 + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(511 + () + ((read-pound + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(510 + (r$715) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(509 + (r$713) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(508 + (new-toks$206) + ((if all?$199 + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(507 + (r$714) + ((parse k$497 + fp$202 + r$714 + new-toks$206 + all?$199 + #f + parens$197 + ptbl$196)))) + '()) + (k$497 (car new-toks$206)))))) + r$713)))) + (cons r$715 + toks$200))))) + fp$202 + ptbl$196))))) + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(527 + (r$716) + ((if r$716 + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(523 + () + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(522 + (r$724) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(521 + (r$725) + ((parse #((record-marker) + #((record-marker) + #f + (id args + body)) + #(520 + (r$717) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(519 + (k$722) + ((if all?$199 + (k$722 #f) + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(518 + (r$723) + ((not k$722 + r$723)))) + (null? tok$201)))))) + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(517 + (r$718) + ((if r$718 + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(515 + () + ((in-port:set-buf! + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(514 + (r$719) + ((->tok #((record-marker) + #((record-marker) + #f + (id args + body)) + #(513 + (r$721) + ((add-tok + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(512 + (r$720) + ((k$497 (car r$720))))) + r$721 + toks$200)))) + tok$201)))) + ptbl$196 + c$204))))) + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(516 + () + ((parse k$497 + fp$202 + tok$201 + toks$200 + all?$199 + #f + parens$197 + ptbl$196))))))))))))) + fp$202 + r$724 + r$725 + #f + #f + 0 + ptbl$196)))) + '())))) + '()))))) + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(526 + () + ((in-port:get-lnum + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(525 + (r$726) + ((in-port:get-cnum + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(524 + (r$727) + ((parse-error + k$497 + "Unhandled input sequence" + r$726 + r$727)))) + ptbl$196)))) + ptbl$196))))))))) + (eq? #\; + next-c$205)))))) + (eq? #\\ + next-c$205)))))) + (eq? #\( + next-c$205)))))) + (eq? #\u + next-c$205)))))) + (eq? #\x + next-c$205)))))) + (eq? #\o + next-c$205)))))) + (eq? #\b + next-c$205)))))) + (eq? #\i + next-c$205)))))) + (eq? #\e + next-c$205)))))) + (eq? #\f + next-c$205)))))) + (eq? #\t + next-c$205)))))) + (eq? #\| + next-c$205))))) + ptbl$196 + r$728)))) + (+ 1 + r$729))))) + ptbl$196)))) + r$635)))) + (read-char + fp$202)) + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(544 + (r$730) + ((parse k$497 + fp$202 + r$730 + toks$200 + all?$199 + #f + parens$197 + ptbl$196)))) + (cons c$204 + tok$201)))))) + (null? tok$201)))))) + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(550 + (r$731) + ((if r$731 + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(547 + () + ((parse-literal-identifier + k$497 + fp$202 + toks$200 + all?$199 + parens$197 + ptbl$196))))) + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(549 + () + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(548 + (r$732) + ((parse k$497 + fp$202 + r$732 + toks$200 + all?$199 + #f + parens$197 + ptbl$196)))) + (cons c$204 + tok$201)))))))))) + (eq? c$204 + #\|)))))) + (eq? c$204 + #\#)))))) + (eq? c$204 + #\")))))) + (eq? c$204 + #\))))))) + (eq? c$204 + #\()))))) + (eq? c$204 + #\,)))))) + (eq? c$204 + #\`)))))) + (eq? c$204 #\')))))) + (eq? c$204 #\;)))))) + c$204)))))) + (eof-object? c$204))))) + r$499)))) + 1 + 1)))) + () + () + () + () + () + ((k$739 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 581 #f #f (576 572 570) #f #f 1 2)))) + () + () + () + () + () + () + () + ((equal? + . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(? + ? + #f + #f + (153 + 151 + 170 + 166 + 167 + 185 + 184 + 256 + 254 + 252 + 250 + 248 + 246 + 244 + 242 + 240 + 235 + 197 + 357 + 363 + 289 + 294 + 593 + 597) + #f + #f + 24 + 0)))) + () + () + () + () + () + () + () + () + () + () + () + ((k$443 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 209 #f #f (193 192) #f #f 0 2)))) + () + () + () + ((error . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(? ? #f #f (582) #f #f 1 0)))) + () + ((k$449 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f + 204 + #f + #f + (197 197 199 204) + #f + #((record-marker) + #((record-marker) #f (id args body)) + #(196 + (r$445) + ((if r$445 + (#((record-marker) + #((record-marker) #f (id args body)) + #(192 () ((done$187 k$443 buf$190))))) + (#((record-marker) + #((record-marker) #f (id args body)) + #(195 + () + ((#((record-marker) + #((record-marker) #f (id args body)) + #(194 + (r$447) + ((#((record-marker) + #((record-marker) #f (id args body)) + #(193 (r$446) ((loop$186 k$443 r$446)))) + (cons r$447 buf$190))))) + (read-char fp$183)))))))))) + 4 + 0)))) + () + () + () + () + () + () + () + () + () + () + () + () + () + () + () + () + () + () + () + () + () + () + () + () + () + () + () + () + () + () + ((c$125 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 33 #f #f (29 28 32 31) #f #f 0 4))) + (k$453 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f + 203 + #f + #f + (202 201) + #f + #((record-marker) + #((record-marker) #f (id args body)) + #(200 + (r$450) + ((#((record-marker) + #((record-marker) #f (id args body)) + #(199 + (tmp$193) + ((if tmp$193 + (k$449 tmp$193) + (#((record-marker) + #((record-marker) #f (id args body)) + #(198 + (r$452) + ((#((record-marker) + #((record-marker) #f (id args body)) + #(197 + (r$451) + ((if r$451 + (k$449 (equal? c$191 #\))) + (k$449 #f))))) + (> r$452 0))))) + (length buf$190)))))) + r$450)))) + 2 + 0)))) + () + () + () + ((k$457 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f + 263 + #f + #f + (229 + 225 + 224 + 223 + 222 + 221 + 220 + 219 + 218 + 217 + 216 + 215 + 212) + #f + #f + 11 + 2)))) + () + () + () + ((k$750 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 585 #f #f (582) #f #f 0 1)))) + () + () + () + () + () + ((k$756 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 596 #f #f (588 587 586) #f #f 3 0)))) + () + () + ((char>=? + . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(? ? #f #f (29 32) #f #f 2 0)))) + () + () + () + () + () + () + () + () + () + ((car . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(? + ? + #f + #f + (16 + 25 + 73 + 150 + 131 + 144 + 236 + 215 + 512 + 508 + 490 + 458 + 416 + 411 + 397 + 378 + 373 + 342 + 337 + 322 + 317 + 302 + 297 + 268 + 576 + 595 + 591) + #f + #f + 27 + 0)))) + () + () + () + () + () + ((c$131 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 60 #f #f (60) #f #f 0 1)))) + () + ((c$133 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f + 57 + #f + #f + (57 56 55 50 48 52 36 40 44 35 34) + #f + r$302 + 0 + 11)))) + () + () + () + () + () + () + () + () + () + () + () + () + () + () + () + ((k$766 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 602 #f #f (600 597) #f #f 2 0)))) + () + () + () + () + () + () + () + () + () + () + () + () + () + () + () + () + () + () + () + () + () + () + () + () + () + ((c$148 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 99 #f #f (99) #f #f 0 1)))) + () + () + () + () + () + () + () + () + ((k$774 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 604 #f #f (603) #f #f 0 1)))) + () + () + () + ((k$778 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 607 #f #f (605 606) #f #f 1 1)))) + () + () + () + () + () + () + () + () + () + () + () + () + () + () + () + ((c$150 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 96 #f #f (96 95 93) #f r$344 0 3)))) + () + ((k$480 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f + 238 + #f + #f + (236 235) + #f + #((record-marker) + #((record-marker) #f (id args body)) + #(234 + (r$472) + ((if r$472 + (#((record-marker) + #((record-marker) #f (id args body)) + #(228 + () + ((#((record-marker) + #((record-marker) #f (id args body)) + #(227 + (r$475) + ((#((record-marker) + #((record-marker) #f (id args body)) + #(226 + (r$474) + ((#((record-marker) + #((record-marker) + #f + (id args body)) + #(225 + (r$473) + ((k$457 (integer->char + r$473))))) + (string->number r$474 16))))) + (list->string r$475))))) + (cdr buf$195)))))) + (#((record-marker) + #((record-marker) #f (id args body)) + #(233 + () + ((#((record-marker) + #((record-marker) #f (id args body)) + #(232 + (r$479) + ((#((record-marker) + #((record-marker) #f (id args body)) + #(231 + (r$476) + ((in-port:get-lnum + #((record-marker) + #((record-marker) + #f + (id args body)) + #(230 + (r$477) + ((in-port:get-cnum + #((record-marker) + #((record-marker) + #f + (id args body)) + #(229 + (r$478) + ((parse-error + k$457 + r$476 + r$477 + r$478)))) + ptbl$182)))) + ptbl$182)))) + (string-append + "unable to parse character: " + r$479))))) + (list->string buf$195)))))))))) + 2 + 0)))) + () + () + () + () + () + () + () + () + () + () + () + () + () + ((k$783 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 608 #f #f (608) #f #f 1 0)))) + () + () + ((k$786 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 610 #f #f (609) #f #f 1 0)))) + () + () + () + () + ((dotted? + . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(? + -1 + #f + #f + (496 464 382 -1) + #f + (#((record-marker) + #((record-marker) #f (id args body)) + #(602 + (k$766 lst$245) + ((#((record-marker) + #((record-marker) #f (id args body)) + #(601 + (r$771) + ((#((record-marker) + #((record-marker) #f (id args body)) + #(600 + (r$767) + ((if r$767 + (reverse + #((record-marker) + #((record-marker) #f (id args body)) + #(599 + (r$770) + ((#((record-marker) + #((record-marker) #f (id args body)) + #(598 + (r$768) + ((#((record-marker) + #((record-marker) + #f + (id args body)) + #(597 + (r$769) + ((k$766 (equal? + r$768 + r$769))))) + (string->symbol "."))))) + (cadr r$770))))) + lst$245) + (k$766 #f))))) + (> r$771 2))))) + (length lst$245)))))) + 3 + 0)))) + () + ((r$302 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 61 #f #f (58) #f #f 0 1)))) + ((r$303 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f + 58 + #f + #f + (58) + #f + #((record-marker) + #((record-marker) #f (id args body)) + #(60 + (k$321 c$131) + ((#((record-marker) + #((record-marker) #f (id args body)) + #(59 + (r$322) + ((parse-number-rec + k$321 + base$130 + fp$129 + r$322 + ptbl$127)))) + (cons c$131 tok$128))))) + 0 + 1)))) + ((r$304 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 56 #f #f (56) #f #f 0 0)))) + ((r$305 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 55 #f #f (55) #f (eq? #\. c$133) 0 0)))) + ((r$306 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 54 #f #f (54) #f #f 0 0)))) + ((r$307 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 36 #f #f () #f #f 0 0)))) + ((cdr . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(? ? #f #f (228 590 616) #f #f 3 0)))) + ((r$309 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 39 #f #f (39) #f #f 0 0)))) + () + () + ((r$601 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 381 #f #f (381) #f #f 0 0)))) + ((c$160 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 113 #f #f (113 112) #f r$366 0 2)))) + ((r$603 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 382 #f #f (382) #f (pair? sub$222) 0 0)))) + ((r$604 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 391 #f #f (389) #f '() 0 1)))) + ((c$163 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 119 #f #f (119) #f r$372 0 1))) + (r$605 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 390 #f #f (389) #f '() 0 1)))) + ((r$606 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 389 #f #f (389) #f (+ parens$197 1) 0 1)))) + () + ((r$608 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 394 #f #f (394) #f (null? tok$201) 0 1)))) + ((r$609 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 553 #f #f (553) #f (eq? c$204 #\)) 0 0)))) + () + ((k$497 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f + 569 + #f + #f + (548 + 547 + 544 + 524 + 516 + 512 + 508 + 507 + 490 + 489 + 458 + 457 + 453 + 449 + 445 + 441 + 437 + 436 + 434 + 433 + 431 + 428 + 416 + 415 + 411 + 404 + 401 + 397 + 378 + 377 + 373 + 342 + 341 + 337 + 322 + 321 + 317 + 302 + 301 + 297 + 296 + 287 + 284 + 278 + 268 + 268 + 267) + #f + #f + 19 + 28)))) + () + () + () + ((k$790 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 611 #f #f (611) #f #f 1 0)))) + () + () + ((k$793 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 613 #f #f (612) #f #f 1 0)))) + () + () + () + ((k$797 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 614 #f #f (614) #f #f 1 0)))) + ((ptbl$127 + . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 62 #f #f (62 59 50 39 38) #f #f 0 5)))) + () + () + ((r$310 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 38 #f #f (37) #f #f 0 1)))) + ((r$311 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 37 #f #f (37) #f #f 0 1)))) + ((r$312 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 43 #f #f (43) #f #f 0 1))) + (length + . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(? + ? + #f + #f + (76 139 146 261 259 238 199 202 270 602) + #f + #f + 10 + 0)))) + () + ((r$314 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 40 #f #f (40) #f (= base$130 8) 0 0))) + (char>? + . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(? ? #f #f (40 44) #f #f 2 0)))) + () + ((r$316 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 44 #f #f (44) #f (= base$130 2) 0 0)))) + ((r$317 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 51 #f #f (51) #f #f 0 0)))) + ((r$318 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 49 #f #f () #f #f 0 0)))) + () + () + ((r$610 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 407 #f #f (407) #f #f 0 0)))) + ((r$611 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 399 #f #f () #f #f 0 0)))) + ((r$612 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 397 #f #f (397) #f #f 0 1)))) + ((r$613 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 398 #f #f (398) #f #f 0 1))) + (c$171 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 153 #f #f (153 151) #f #f 0 2)))) + ((r$614 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 406 #f #f (406) #f (= parens$197 0) 0 0)))) + ((r$615 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 402 #f #f (401) #f #f 0 1)))) + ((r$616 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 401 #f #f (401) #f #f 0 1)))) + ((r$617 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 404 #f #f (404) #f #f 0 1)))) + ((c$176 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f + 171 + #f + #f + (171 170 166 164 157 167) + #f + r$411 + 0 + 6)))) + ((r$619 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 408 #f #f (408) #f (null? tok$201) 0 1)))) + () + () + () + () + () + () + () + () + () + () + () + () + () + ((ptbl$137 + . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 83 #f #f (82 70 69 63) #f #f 0 4)))) + () + () + ((r$320 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 52 #f #f (52) #f (= base$130 16) 0 0)))) + () + ((r$322 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 59 #f #f (59) #f (cons c$131 tok$128) 0 1)))) + () + () + () + ((r$326 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 81 #f #f (81) #f #f 0 1)))) + ((r$327 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 71 #f #f (71) #f #f 0 0)))) + ((r$328 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 66 #f #f (66) #f #f 0 1)))) + ((r$329 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 64 #f #f (63) #f '() 0 1)))) + () + ((r$620 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 552 #f #f (552) #f (eq? c$204 #\") 0 0)))) + ((r$621 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 424 #f #f (424) #f #f 0 0)))) + ((r$622 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 413 #f #f () #f #f 0 0)))) + ((r$623 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 411 #f #f (411) #f #f 0 1))) + (c$181 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 186 #f #f (186 185 184 182) #f r$427 0 4)))) + ((r$624 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 412 #f #f (412) #f #f 0 1)))) + ((r$625 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 421 #f #f (420) #f #f 0 1)))) + ((r$626 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 420 #f #f (420) #f #f 0 1)))) + ((r$627 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f + 416 + #f + #f + () + #f + (set! new-toks$220 r$629) + 0 + 0)))) + ((r$628 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 415 #f #f (415) #f '() 0 1)))) + ((r$629 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 417 #f #f (417) #f #f 0 0)))) + () + () + ((cyc-read + . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(? + -1 + #f + #f + (3 12 -1) + #f + (#((record-marker) + #((record-marker) #f (id args body)) + #(27 + (k$285 . args$123) + ((#((record-marker) + #((record-marker) #f (id args body)) + #(26 + (k$290) + ((#((record-marker) + #((record-marker) #f (id args body)) + #(25 + (r$291) + ((if r$291 + (current-input-port k$290) + (k$290 (car args$123)))))) + (null? args$123))))) + #((record-marker) + #((record-marker) #f (id args body)) + #(24 + (r$286) + ((#((record-marker) + #((record-marker) #f (id args body)) + #(23 + (fp$124) + ((#((record-marker) + #((record-marker) #f (id args body)) + #(22 + (r$287) + ((#((record-marker) + #((record-marker) #f (id args body)) + #(21 + (r$288) + ((reg-port + #((record-marker) + #((record-marker) + #f + (id args body)) + #(20 + (r$289) + ((parse k$285 + fp$124 + r$287 + r$288 + #f + #f + 0 + r$289)))) + fp$124)))) + '())))) + '())))) + r$286))))))))) + 1 + 0)))) + () + () + () + () + () + () + () + () + ((ptbl$145 + . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 101 #f #f (101 98 92 91) #f #f 0 4)))) + () + () + () + () + ((r$330 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f + 63 + #f + #f + (63) + #f + (cons result$143 toks$140) + 0 + 1)))) + ((r$331 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 69 #f #f (68) #f #f 0 1)))) + ((r$332 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 68 #f #f (68) #f #f 0 1)))) + () + ((r$334 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 78 #f #f (78) #f (null? num$142) 0 0)))) + ((r$335 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 77 #f #f (77) #f #f 0 1)))) + ((r$336 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 74 #f #f (74) #f (> r$339 0) 0 0)))) + ((r$337 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 73 #f #f (73) #f (= base$136 16) 0 0)))) + ((r$338 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 72 #f #f (72) #f (car num$142) 0 1)))) + ((r$339 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 75 #f #f (75) #f (length num$142) 0 1)))) + () + ((r$630 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 422 #f #f (422) #f '() 0 1)))) + () + ((r$632 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 425 #f #f (425) #f (null? tok$201) 0 1)))) + ((r$633 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 551 #f #f (551) #f (eq? c$204 #\#) 0 0))) + (c$191 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 207 #f #f (207 197 203) #f r$444 0 3)))) + ((r$634 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 545 #f #f (545) #f (null? tok$201) 0 0)))) + ((r$635 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 543 #f #f (543) #f (read-char fp$202) 0 1)))) + ((r$636 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 539 #f #f () #f #f 0 0)))) + ((r$637 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 538 #f #f (538) #f (eq? #\| next-c$205) 0 0)))) + ((r$638 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 429 #f #f () #f #f 0 0)))) + ((r$639 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 428 #f #f (428) #f '() 0 1)))) + () + () + () + () + () + () + () + ((buf$174 + . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 173 #f #f (158 157) #f #f 0 2)))) + ((ptbl$152 + . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 107 #f #f (106 102) #f #f 0 2)))) + () + () + () + ((buf$179 + . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 188 #f #f (182 180 178) #f #f 0 3)))) + () + ((ptbl$158 + . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 115 #f #f (115 110 109) #f #f 0 3)))) + () + ((r$340 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 82 #f #f (82) #f '() 0 1)))) + () + () + () + ((r$344 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 100 #f #f (97) #f #f 0 1)))) + ((r$345 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f + 97 + #f + #f + (97) + #f + #((record-marker) + #((record-marker) #f (id args body)) + #(99 + (k$354 c$148) + ((#((record-marker) + #((record-marker) #f (id args body)) + #(98 + (r$355) + ((parse-li-rec k$354 fp$147 r$355 ptbl$145)))) + (cons c$148 tok$146))))) + 0 + 1)))) + ((r$346 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 95 #f #f (95) #f (eq? #\| c$150) 0 0)))) + ((r$347 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 85 #f #f (85) #f #f 0 1)))) + () + ((r$349 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 87 #f #f (87) #f (null? tok$146) 0 0)))) + () + ((r$640 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 537 #f #f (537) #f (eq? #\t next-c$205) 0 0)))) + ((r$641 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 432 #f #f (431) #f '() 0 1)))) + ((r$642 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 431 #f #f (431) #f (cons #t toks$200) 0 1)))) + ((r$643 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 536 #f #f (536) #f (eq? #\f next-c$205) 0 0)))) + ((r$644 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 435 #f #f (434) #f '() 0 1)))) + ((r$645 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 434 #f #f (434) #f (cons #f toks$200) 0 1)))) + ((r$646 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 535 #f #f (535) #f (eq? #\e next-c$205) 0 0)))) + ((r$647 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f + 437 + #f + #f + (437) + #f + #((record-marker) + #((record-marker) #f (id args body)) + #(439 + (k$648 num$217) + ((parse-atom + #((record-marker) + #((record-marker) #f (id args body)) + #(438 (r$649) ((exact k$648 r$649)))) + num$217)))) + 0 + 1)))) + () + ((r$649 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 438 #f #f (438) #f #f 0 1)))) + () + () + () + () + () + () + () + ((ptbl$161 + . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 121 #f #f (121 117 116) #f #f 0 3)))) + () + () + ((ptbl$164 + . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 123 #f #f (123 122) #f #f 0 2)))) + () + ((null? . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(? + ? + #f + #f + (17 + 26 + 79 + 88 + 546 + 519 + 426 + 409 + 395 + 371 + 335 + 315 + 581 + 596 + 607) + #f + #f + 15 + 0)))) + () + () + () + ((r$350 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 86 #f #f (86) #f #f 0 1)))) + ((r$351 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 94 #f #f (94) #f (eof-object? c$150) 0 0)))) + ((r$352 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 91 #f #f (90) #f #f 0 1)))) + ((r$353 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 90 #f #f (90) #f #f 0 1)))) + () + ((r$355 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 98 #f #f (98) #f (cons c$148 tok$146) 0 1)))) + () + () + () + ((r$359 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 105 #f #f (105) #f #f 0 1)))) + () + ((r$650 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 534 #f #f (534) #f (eq? #\i next-c$205) 0 0)))) + ((r$651 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f + 441 + #f + #f + (441) + #f + #((record-marker) + #((record-marker) #f (id args body)) + #(443 + (k$652 num$216) + ((parse-atom + #((record-marker) + #((record-marker) #f (id args body)) + #(442 (r$653) ((inexact k$652 r$653)))) + num$216)))) + 0 + 1)))) + () + ((r$653 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 442 #f #f (442) #f #f 0 1)))) + ((r$654 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 533 #f #f (533) #f (eq? #\b next-c$205) 0 0)))) + ((r$655 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f + 445 + #f + #f + (445) + #f + #((record-marker) + #((record-marker) #f (id args body)) + #(447 + (k$656 num$215) + ((#((record-marker) + #((record-marker) #f (id args body)) + #(446 (r$657) ((k$656 (string->number r$657 2))))) + (list->string num$215))))) + 0 + 1)))) + () + ((r$657 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f + 446 + #f + #f + (446) + #f + (list->string num$215) + 0 + 1)))) + ((r$658 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 532 #f #f (532) #f (eq? #\o next-c$205) 0 0)))) + ((r$659 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f + 449 + #f + #f + (449) + #f + #((record-marker) + #((record-marker) #f (id args body)) + #(451 + (k$660 num$214) + ((#((record-marker) + #((record-marker) #f (id args body)) + #(450 (r$661) ((k$660 (string->number r$661 8))))) + (list->string num$214))))) + 0 + 1)))) + () + () + () + ((buf$190 + . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 209 #f #f (194 192 199 202) #f #f 0 4)))) + () + () + () + () + ((buf$195 + . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f + 261 + #f + #f + (261 + 259 + 256 + 254 + 252 + 250 + 248 + 246 + 244 + 242 + 240 + 233 + 228 + 238 + 236 + 215) + #f + r$458 + 0 + 16)))) + ((ptbl$173 + . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 173 #f #f (161 160 156 155) #f #f 0 4)))) + () + () + () + () + ((ptbl$178 + . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 188 #f #f (181 178 177 176 175) #f #f 0 5)))) + () + ((r$360 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 103 #f #f (102) #f '() 0 1)))) + ((r$361 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f + 102 + #f + #f + (102) + #f + (cons sym$157 toks$155) + 0 + 1)))) + ((r$362 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 106 #f #f (106) #f '() 0 1)))) + () + () + () + ((r$366 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 114 #f #f (114) #f #f 0 1)))) + ((r$367 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 112 #f #f (112) #f (eq? #\# c$160) 0 0)))) + ((r$368 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 111 #f #f (111) #f (eq? #\| c$160) 0 0)))) + () + () + () + ((r$661 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f + 450 + #f + #f + (450) + #f + (list->string num$214) + 0 + 1)))) + ((r$662 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 531 #f #f (531) #f (eq? #\x next-c$205) 0 0)))) + ((r$663 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f + 453 + #f + #f + (453) + #f + #((record-marker) + #((record-marker) #f (id args body)) + #(455 + (k$664 num$213) + ((#((record-marker) + #((record-marker) #f (id args body)) + #(454 + (r$665) + ((k$664 (string->number r$665 16))))) + (list->string num$213))))) + 0 + 1)))) + () + ((r$665 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f + 454 + #f + #f + (454) + #f + (list->string num$213) + 0 + 1)))) + ((r$666 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 530 #f #f (530) #f (eq? #\u next-c$205) 0 0)))) + ((r$667 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 486 #f #f () #f (set! next-c$205 r$695) 0 0)))) + ((r$668 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 481 #f #f () #f #f 0 0)))) + ((r$669 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 479 #f #f () #f (set! next-c$205 r$690) 0 0)))) + () + () + () + () + () + () + () + () + ((ptbl$182 + . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 266 #f #f (231 230 214 213) #f #f 0 4)))) + () + () + () + () + () + () + () + () + () + ((r$372 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 120 #f #f (120) #f #f 0 1)))) + ((r$373 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 118 #f #f (118) #f (eq? #\| c$163) 0 0)))) + () + () + () + ((r$377 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 122 #f #f (122) #f #f 0 0)))) + () + () + () + ((r$670 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 474 #f #f () #f #f 0 0)))) + ((r$671 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 470 #f #f (469) #f #f 0 1)))) + ((r$672 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 469 #f #f (469) #f #f 0 1)))) + ((r$673 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f + 458 + #f + #f + () + #f + (set! new-toks$212 r$675) + 0 + 0)))) + ((r$674 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 457 #f #f (457) #f '() 0 1)))) + ((r$675 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 459 #f #f (459) #f #f 0 0)))) + ((r$676 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 460 #f #f (460) #f #f 0 1)))) + () + ((r$678 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 463 #f #f (463) #f #f 0 0)))) + ((r$679 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 462 #f #f (461) #f #f 0 1)))) + () + () + () + () + () + ((add-tok + . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(? + -1 + #f + #f + (513 + 492 + 460 + 418 + 412 + 398 + 380 + 374 + 344 + 338 + 324 + 318 + 304 + 298 + 577 + 573 + 605 + -1) + #f + (#((record-marker) + #((record-marker) #f (id args body)) + #(608 + (k$783 tok$250 toks$249) + ((k$783 (cons tok$250 toks$249)))))) + 17 + 0)))) + () + () + () + () + () + () + ((ptbl$196 + . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f + 569 + #f + #f + (568 + 566 + 548 + 547 + 544 + 542 + 540 + 526 + 525 + 521 + 516 + 515 + 511 + 507 + 503 + 489 + 495 + 494 + 471 + 457 + 463 + 462 + 477 + 476 + 484 + 483 + 453 + 449 + 445 + 441 + 437 + 434 + 431 + 430 + 428 + 422 + 415 + 414 + 403 + 402 + 400 + 389 + 377 + 376 + 348 + 341 + 355 + 353 + 352 + 340 + 330 + 321 + 320 + 310 + 301 + 300 + 296 + 287 + 288 + 293 + 291 + 284 + 283 + 281 + 280 + 278 + 275 + 274 + 564 + 563) + #f + #f + 0 + 70)))) + () + () + () + () + ((r$381 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 128 #f #f (128) #f #f 0 0)))) + ((r$382 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 124 #f #f (124) #f (list->string a$166) 0 1)))) + ((r$383 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 126 #f #f (126) #f (list->string a$166) 0 1)))) + () + () + () + ((r$387 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 148 #f #f (148) #f #f 0 1)))) + ((r$388 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 140 #f #f (140) #f #f 0 1)))) + ((r$389 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 137 #f #f (137) #f (> r$396 1) 0 0)))) + () + ((r$680 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 461 #f #f (461) #f #f 0 1)))) + () + ((r$682 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 464 #f #f (464) #f (pair? sub$211) 0 0)))) + ((r$683 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 473 #f #f (471) #f '() 0 1)))) + ((r$684 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 472 #f #f (471) #f '() 0 1)))) + ((r$685 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 471 #f #f (471) #f (+ parens$197 1) 0 1)))) + ((cadr . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(? + ? + #f + #f + (137 133 142 587 599 617 621) + #f + #f + 7 + 0)))) + ((r$687 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 477 #f #f (477) #f (eq? #\( next-c$205) 0 0)))) + ((r$688 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 476 #f #f (475) #f #f 0 1)))) + ((r$689 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 475 #f #f (475) #f #f 0 1)))) + () + () + () + () + () + () + () + ((cddr . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(? ? #f #f (613) #f #f 1 0)))) + () + () + () + () + () + () + () + () + ((r$390 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 131 #f #f (131) #f #f 0 0)))) + ((r$391 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 130 #f #f (130) #f (car a$167) 0 1)))) + ((r$392 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 135 #f #f (135) #f #f 0 1)))) + () + ((r$394 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 132 #f #f (132) #f (cadr a$167) 0 1)))) + ((r$395 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 136 #f #f (136) #f (cadr a$167) 0 1)))) + ((r$396 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 138 #f #f (138) #f (length a$167) 0 1)))) + () + ((r$398 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 144 #f #f (144) #f (> r$402 1) 0 0)))) + ((r$399 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 142 #f #f (142) #f (eq? #\. r$401) 0 0)))) + () + ((r$690 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 480 #f #f (480) #f (read-char fp$202) 0 0)))) + () + ((r$692 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 484 #f #f (484) #f (eq? #\8 next-c$205) 0 0)))) + ((r$693 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 483 #f #f (482) #f #f 0 1)))) + ((r$694 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 482 #f #f (482) #f #f 0 1)))) + ((r$695 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 487 #f #f (487) #f (read-char fp$202) 0 0)))) + ((r$696 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 529 #f #f (529) #f (eq? #\( next-c$205) 0 0)))) + ((r$697 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 502 #f #f (501) #f #f 0 1)))) + ((r$698 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 501 #f #f (501) #f #f 0 1)))) + ((r$699 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f + 490 + #f + #f + () + #f + (set! new-toks$209 r$701) + 0 + 0)))) + () + () + () + () + () + () + () + () + ((k$301 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 62 #f #f (49 48 36 35 34) #f #f 0 5)))) + () + () + () + () + () + () + ((k$308 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f + 46 + #f + #f + (39 37) + #f + #((record-marker) + #((record-marker) #f (id args body)) + #(36 (r$307) ((next$132 k$301 c$133)))) + 1 + 1)))) + () + () + ((k$600 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f + 384 + #f + #f + (381 381) + #f + #((record-marker) + #((record-marker) #f (id args body)) + #(380 + (r$599) + ((add-tok + #((record-marker) + #((record-marker) #f (id args body)) + #(379 + (r$598) + ((#((record-marker) + #((record-marker) #f (id args body)) + #(378 + (r$596) + ((if all?$199 + (#((record-marker) + #((record-marker) #f (id args body)) + #(377 + (r$597) + ((parse k$497 + fp$202 + r$597 + new-toks$223 + all?$199 + #f + parens$197 + ptbl$196)))) + '()) + (k$497 (car new-toks$223)))))) + (set! new-toks$223 r$598))))) + r$599 + toks*$221)))) + 1 + 1)))) + () + ((k$602 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f + 383 + #f + #f + (382 382) + #f + #((record-marker) + #((record-marker) #f (id args body)) + #(381 + (r$601) + ((if r$601 + (->dotted-list k$600 sub$222) + (k$600 sub$222))))) + 1 + 1)))) + () + () + () + () + ((k$607 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f + 395 + #f + #f + (394 395) + #f + #((record-marker) + #((record-marker) #f (id args body)) + #(393 + (r$590) + ((if r$590 + (#((record-marker) + #((record-marker) #f (id args body)) + #(376 + () + ((in-port:set-buf! + #((record-marker) + #((record-marker) #f (id args body)) + #(375 + (r$591) + ((->tok #((record-marker) + #((record-marker) + #f + (id args body)) + #(374 + (r$593) + ((add-tok + #((record-marker) + #((record-marker) + #f + (id args body)) + #(373 + (r$592) + ((k$497 (car r$592))))) + r$593 + toks$200)))) + tok$201)))) + ptbl$196 + c$204))))) + (#((record-marker) + #((record-marker) #f (id args body)) + #(392 + () + ((#((record-marker) + #((record-marker) #f (id args body)) + #(391 + (r$604) + ((#((record-marker) + #((record-marker) #f (id args body)) + #(390 + (r$605) + ((#((record-marker) + #((record-marker) + #f + (id args body)) + #(389 + (r$606) + ((parse #((record-marker) + #((record-marker) + #f + (id args body)) + #(388 + (r$594) + ((get-toks + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(387 + (r$595) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(386 + (sub$222 + toks*$221) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(385 + (new-toks$223) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(384 + (k$600) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(383 + (k$602) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(382 + (r$603) + ((if r$603 + (dotted? + k$602 + sub$222) + (k$602 #f))))) + (pair? sub$222))))) + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(381 + (r$601) + ((if r$601 + (->dotted-list + k$600 + sub$222) + (k$600 sub$222))))))))) + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(380 + (r$599) + ((add-tok + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(379 + (r$598) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(378 + (r$596) + ((if all?$199 + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(377 + (r$597) + ((parse k$497 + fp$202 + r$597 + new-toks$223 + all?$199 + #f + parens$197 + ptbl$196)))) + '()) + (k$497 (car new-toks$223)))))) + (set! new-toks$223 + r$598))))) + r$599 + toks*$221)))))))) + #f)))) + r$594 + r$595)))) + tok$201 + toks$200)))) + fp$202 + r$604 + r$605 + #t + #f + r$606 + ptbl$196)))) + (+ parens$197 1))))) + '())))) + '()))))))))) + 1 + 1)))) + () + () + () + () + () + () + () + () + () + () + () + () + () + () + () + () + () + () + () + () + () + ((k$313 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f + 41 + #f + #f + (40 40 41) + #f + #((record-marker) + #((record-marker) #f (id args body)) + #(39 + (r$309) + ((if r$309 + (in-port:get-lnum + #((record-marker) + #((record-marker) #f (id args body)) + #(38 + (r$310) + ((in-port:get-cnum + #((record-marker) + #((record-marker) #f (id args body)) + #(37 + (r$311) + ((parse-error + k$308 + "Illegal digit" + r$310 + r$311)))) + ptbl$127)))) + ptbl$127) + (k$308 #f))))) + 2 + 1)))) + () + ((k$315 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f + 45 + #f + #f + (44 44) + #f + #((record-marker) + #((record-marker) #f (id args body)) + #(43 + (r$312) + ((#((record-marker) + #((record-marker) #f (id args body)) + #(42 + (tmp$134) + ((#((record-marker) + #((record-marker) #f (id args body)) + #(41 + (k$313) + ((if tmp$134 + (k$313 tmp$134) + (#((record-marker) + #((record-marker) #f (id args body)) + #(40 + (r$314) + ((if r$314 + (char>? k$313 c$133 #\7) + (k$313 #f))))) + (= base$130 8)))))) + #((record-marker) + #((record-marker) #f (id args body)) + #(39 + (r$309) + ((if r$309 + (in-port:get-lnum + #((record-marker) + #((record-marker) #f (id args body)) + #(38 + (r$310) + ((in-port:get-cnum + #((record-marker) + #((record-marker) + #f + (id args body)) + #(37 + (r$311) + ((parse-error + k$308 + "Illegal digit" + r$310 + r$311)))) + ptbl$127)))) + ptbl$127) + (k$308 #f))))))))) + r$312)))) + 1 + 1)))) + () + () + () + ((k$319 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f + 53 + #f + #f + (52 52) + #f + #((record-marker) + #((record-marker) #f (id args body)) + #(51 + (r$317) + ((if r$317 + (#((record-marker) + #((record-marker) #f (id args body)) + #(48 () ((next$132 k$301 c$133))))) + (#((record-marker) + #((record-marker) #f (id args body)) + #(50 + () + ((in-port:set-buf! + #((record-marker) + #((record-marker) #f (id args body)) + #(49 (r$318) ((reverse k$301 tok$128)))) + ptbl$127 + c$133))))))))) + 1 + 1)))) + () + () + () + () + () + () + () + () + () + ((k$618 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f + 409 + #f + #f + (408 409) + #f + #((record-marker) + #((record-marker) #f (id args body)) + #(407 + (r$610) + ((if r$610 + (#((record-marker) + #((record-marker) #f (id args body)) + #(400 + () + ((in-port:set-buf! + #((record-marker) + #((record-marker) #f (id args body)) + #(399 + (r$611) + ((->tok #((record-marker) + #((record-marker) + #f + (id args body)) + #(398 + (r$613) + ((add-tok + #((record-marker) + #((record-marker) + #f + (id args body)) + #(397 + (r$612) + ((k$497 (car r$612))))) + r$613 + toks$200)))) + tok$201)))) + ptbl$196 + c$204))))) + (#((record-marker) + #((record-marker) #f (id args body)) + #(406 + (r$614) + ((if r$614 + (#((record-marker) + #((record-marker) #f (id args body)) + #(403 + () + ((in-port:get-lnum + #((record-marker) + #((record-marker) #f (id args body)) + #(402 + (r$615) + ((in-port:get-cnum + #((record-marker) + #((record-marker) + #f + (id args body)) + #(401 + (r$616) + ((parse-error + k$497 + "unexpected closing parenthesis" + r$615 + r$616)))) + ptbl$196)))) + ptbl$196))))) + (#((record-marker) + #((record-marker) #f (id args body)) + #(405 + () + ((get-toks + #((record-marker) + #((record-marker) #f (id args body)) + #(404 + (r$617) + ((reverse k$497 r$617)))) + tok$201 + toks$200))))))))) + (= parens$197 0)))))) + 1 + 1)))) + () + () + () + () + () + () + () + () + () + () + () + () + () + () + () + () + () + () + ((k$321 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 60 #f #f (59) #f #f 0 1)))) + () + () + () + ((k$325 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 83 #f #f (68 65 63) #f #f 1 2)))) + () + () + () + () + () + () + () + () + () + () + () + () + () + () + () + () + () + () + () + () + () + () + () + () + () + () + () + () + () + () + () + () + () + () + ((k$333 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f + 79 + #f + #f + (74 73 72 76 78) + #f + #((record-marker) + #((record-marker) #f (id args body)) + #(71 + (r$327) + ((if r$327 + (#((record-marker) + #((record-marker) #f (id args body)) + #(67 + () + ((tok->num$135 + #((record-marker) + #((record-marker) #f (id args body)) + #(66 + (r$328) + ((#((record-marker) + #((record-marker) #f (id args body)) + #(65 + (result$143) + ((if all?$139 + (#((record-marker) + #((record-marker) + #f + (id args body)) + #(64 + (r$329) + ((#((record-marker) + #((record-marker) + #f + (id args body)) + #(63 + (r$330) + ((parse k$325 + fp$141 + r$329 + r$330 + all?$139 + #f + parens$138 + ptbl$137)))) + (cons result$143 + toks$140))))) + '()) + (k$325 result$143))))) + r$328)))) + num$142))))) + (#((record-marker) + #((record-marker) #f (id args body)) + #(70 + () + ((in-port:get-lnum + #((record-marker) + #((record-marker) #f (id args body)) + #(69 + (r$331) + ((in-port:get-cnum + #((record-marker) + #((record-marker) #f (id args body)) + #(68 + (r$332) + ((parse-error + k$325 + "Illegal number syntax" + r$331 + r$332)))) + ptbl$137)))) + ptbl$137))))))))) + 4 + 1)))) + () + () + () + () + () + () + () + () + ((k$631 . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f + 426 + #f + #f + (425 426) + #f + #((record-marker) + #((record-marker) #f (id args body)) + #(424 + (r$621) + ((if r$621 + (#((record-marker) + #((record-marker) #f (id args body)) + #(414 + () + ((in-port:set-buf! + #((record-marker) + #((record-marker) #f (id args body)) + #(413 + (r$622) + ((->tok #((record-marker) + #((record-marker) + #f + (id args body)) + #(412 + (r$624) + ((add-tok + #((record-marker) + #((record-marker) + #f + (id args body)) + #(411 + (r$623) + ((k$497 (car r$623))))) + r$624 + toks$200)))) + tok$201)))) + ptbl$196 + c$204))))) + (#((record-marker) + #((record-marker) #f (id args body)) + #(423 + () + ((#((record-marker) + #((record-marker) #f (id args body)) + #(422 + (r$630) + ((read-str + #((record-marker) + #((record-marker) #f (id args body)) + #(421 + (r$625) + ((get-toks + #((record-marker) + #((record-marker) + #f + (id args body)) + #(420 + (r$626) + ((#((record-marker) + #((record-marker) + #f + (id args body)) + #(419 + (str$219 toks*$218) + ((#((record-marker) + #((record-marker) + #f + (id args body)) + #(418 + (new-toks$220) + ((add-tok + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(417 + (r$629) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(416 + (r$627) + ((if all?$199 + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(415 + (r$628) + ((parse k$497 + fp$202 + r$628 + new-toks$220 + all?$199 + #f + parens$197 + ptbl$196)))) + '()) + (k$497 (car new-toks$220)))))) + (set! new-toks$220 + r$629))))) + str$219 + toks*$218)))) + #f)))) + r$625 + r$626)))) + tok$201 + toks$200)))) + fp$202 + r$630 + ptbl$196)))) + '()))))))))) + 1 + 1)))) + ((lib-init:schemeread + . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(? + -1 + #f + #f + (-1) + #f + (#((record-marker) + #((record-marker) #f (id args body)) + #(4 + (k$266) + ((#((record-marker) + #((record-marker) #f (id args body)) + #(3 + (r$267) + ((#((record-marker) + #((record-marker) #f (id args body)) + #(2 + (r$268) + ((#((record-marker) + #((record-marker) #f (id args body)) + #(1 + (r$269) + ((k$266 (set! *in-port-table* r$269))))) + '())))) + (set! read cyc-read))))) + 0))))) + 0 + 0))) + (obj$122 + . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 10 #f #f (10 9) #f r$278 0 2))) + (result$120 + . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 12 #f #f (9 9) #f #f 0 2))) + (loop$119 + . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 13 #f #f (8 7 5) #f r$276 2 0))) + (loop$117 + . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 18 #t #f () #f #f 0 0))) + (args$116 + . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 19 #f #f (17 16) #f #f 0 2))) + (read-all + . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(? + -1 + #f + #f + (-1) + #f + (#((record-marker) + #((record-marker) #f (id args body)) + #(19 + (k$272 . args$116) + ((#((record-marker) + #((record-marker) #f (id args body)) + #(18 + (loop$117) + ((#((record-marker) + #((record-marker) #f (id args body)) + #(17 + (k$281) + ((#((record-marker) + #((record-marker) #f (id args body)) + #(16 + (r$282) + ((if r$282 + (current-input-port k$281) + (k$281 (car args$116)))))) + (null? args$116))))) + #((record-marker) + #((record-marker) #f (id args body)) + #(15 + (r$273) + ((#((record-marker) + #((record-marker) #f (id args body)) + #(14 + (fp$118) + ((#((record-marker) + #((record-marker) #f (id args body)) + #(13 + (loop$119) + ((#((record-marker) + #((record-marker) + #f + (id args body)) + #(7 + (r$276) + ((#((record-marker) + #((record-marker) + #f + (id args body)) + #(6 + (r$274) + ((#((record-marker) + #((record-marker) + #f + (id args body)) + #(5 + (r$275) + ((loop$119 + k$272 + fp$118 + r$275)))) + '())))) + (set! loop$119 r$276))))) + #((record-marker) + #((record-marker) + #f + (id args body)) + #(12 + (k$277 fp$121 result$120) + ((cyc-read + #((record-marker) + #((record-marker) + #f + (id args body)) + #(11 + (r$278) + ((#((record-marker) + #((record-marker) + #f + (id args body)) + #(10 + (obj$122) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(9 + (r$279) + ((if r$279 + (reverse + k$277 + result$120) + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(8 + (r$280) + ((loop$119 + k$277 + fp$121 + r$280)))) + (cons obj$122 + result$120)))))) + (eof-object? + obj$122))))) + r$278)))) + fp$121)))))))) + #f)))) + r$273)))))))) + #f))))) + 0 + 0))) + (current-input-port + . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(? ? #f #f (16 25) #f #f 2 0))) + (args$123 + . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 27 #f #f (26 25) #f #f 0 2))) + (tmp$126 + . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 29 #f #f (29 29) #f r$295 0 1))) + (tmp$134 + . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 42 #f #f (41 41) #f r$312 0 1))) + (next$132 + . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 57 #f #f (48 36 35 34) #f r$303 4 0))) + (tok$128 + . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 62 #f #f (60 49) #f #f 0 2))) + (result$143 + . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 65 #f #f (65 64) #f r$328 0 2))) + (tmp$144 + . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 76 #f #f (76 76) #f r$335 0 1))) + (num$142 + . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 80 #f #f (67 79 78 76 73) #f r$326 0 5))) + (parse-number-rec + . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(? + -1 + #f + #f + (59 -1 82) + #f + (#((record-marker) + #((record-marker) #f (id args body)) + #(62 + (k$301 base$130 fp$129 tok$128 ptbl$127) + ((get-next-char + #((record-marker) + #((record-marker) #f (id args body)) + #(61 + (r$302) + ((#((record-marker) + #((record-marker) #f (id args body)) + #(58 + (r$303) + ((#((record-marker) + #((record-marker) #f (id args body)) + #(57 + (c$133 next$132) + ((sign? #((record-marker) + #((record-marker) + #f + (id args body)) + #(56 + (r$304) + ((if r$304 + (#((record-marker) + #((record-marker) + #f + (id args body)) + #(34 + () + ((next$132 + k$301 + c$133))))) + (#((record-marker) + #((record-marker) + #f + (id args body)) + #(55 + (r$305) + ((if r$305 + (#((record-marker) + #((record-marker) + #f + (id args body)) + #(35 + () + ((next$132 + k$301 + c$133))))) + (char-numeric? + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(54 + (r$306) + ((if r$306 + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(47 + () + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(46 + (k$308) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(45 + (k$315) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(44 + (r$316) + ((if r$316 + (char>? + k$315 + c$133 + #\1) + (k$315 #f))))) + (= base$130 + 2))))) + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(43 + (r$312) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(42 + (tmp$134) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(41 + (k$313) + ((if tmp$134 + (k$313 tmp$134) + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(40 + (r$314) + ((if r$314 + (char>? + k$313 + c$133 + #\7) + (k$313 #f))))) + (= base$130 + 8)))))) + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(39 + (r$309) + ((if r$309 + (in-port:get-lnum + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(38 + (r$310) + ((in-port:get-cnum + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(37 + (r$311) + ((parse-error + k$308 + "Illegal digit" + r$310 + r$311)))) + ptbl$127)))) + ptbl$127) + (k$308 #f))))))))) + r$312)))))))) + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(36 + (r$307) + ((next$132 + k$301 + c$133))))))))) + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(53 + (k$319) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(52 + (r$320) + ((if r$320 + (hex-digit? + k$319 + c$133) + (k$319 #f))))) + (= base$130 + 16))))) + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(51 + (r$317) + ((if r$317 + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(48 + () + ((next$132 + k$301 + c$133))))) + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(50 + () + ((in-port:set-buf! + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(49 + (r$318) + ((reverse + k$301 + tok$128)))) + ptbl$127 + c$133)))))))))))))) + c$133))))) + (eq? #\. c$133)))))) + c$133)))) + r$302 + r$303)))) + #((record-marker) + #((record-marker) #f (id args body)) + #(60 + (k$321 c$131) + ((#((record-marker) + #((record-marker) #f (id args body)) + #(59 + (r$322) + ((parse-number-rec + k$321 + base$130 + fp$129 + r$322 + ptbl$127)))) + (cons c$131 tok$128))))))))) + fp$129 + ptbl$127))))) + 2 + 0))) + (tok->num$135 + . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 83 #f #f (67) #f #f 1 0))) + (parens$138 + . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 83 #f #f (63) #f #f 0 1))) + (all?$139 + . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 83 #f #f (63 65) #f #f 0 1))) + (toks$140 + . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 83 #f #f (64) #f #f 0 1))) + (str$151 + . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 84 #f #f (84) #f r$347 0 1))) + (next$149 + . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 96 #f #f (93) #f r$345 1 0))) + (tok$146 + . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 101 #f #f (99 88 87) #f #f 0 3))) + (sym$157 + . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 104 #f #f (104 103) #f r$359 0 2))) + (parse-li-rec + . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(? + -1 + #f + #f + (98 -1 106) + #f + (#((record-marker) + #((record-marker) #f (id args body)) + #(101 + (k$343 fp$147 tok$146 ptbl$145) + ((get-next-char + #((record-marker) + #((record-marker) #f (id args body)) + #(100 + (r$344) + ((#((record-marker) + #((record-marker) #f (id args body)) + #(97 + (r$345) + ((#((record-marker) + #((record-marker) #f (id args body)) + #(96 + (c$150 next$149) + ((#((record-marker) + #((record-marker) #f (id args body)) + #(95 + (r$346) + ((if r$346 + (#((record-marker) + #((record-marker) + #f + (id args body)) + #(89 + () + ((#((record-marker) + #((record-marker) + #f + (id args body)) + #(88 + (k$348) + ((#((record-marker) + #((record-marker) + #f + (id args body)) + #(87 + (r$349) + ((if r$349 + (k$348 "||") + (reverse + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(86 + (r$350) + ((k$348 (list->string + r$350))))) + tok$146))))) + (null? tok$146))))) + #((record-marker) + #((record-marker) + #f + (id args body)) + #(85 + (r$347) + ((#((record-marker) + #((record-marker) + #f + (id args body)) + #(84 + (str$151) + ((k$343 (string->symbol + str$151))))) + r$347))))))))) + (#((record-marker) + #((record-marker) + #f + (id args body)) + #(94 + (r$351) + ((if r$351 + (#((record-marker) + #((record-marker) + #f + (id args body)) + #(92 + () + ((in-port:get-lnum + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(91 + (r$352) + ((in-port:get-cnum + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(90 + (r$353) + ((parse-error + k$343 + "EOF encountered parsing literal identifier" + r$352 + r$353)))) + ptbl$145)))) + ptbl$145))))) + (#((record-marker) + #((record-marker) + #f + (id args body)) + #(93 + () + ((next$149 + k$343 + c$150))))))))) + (eof-object? c$150)))))) + (eq? #\| c$150))))) + r$344 + r$345)))) + #((record-marker) + #((record-marker) #f (id args body)) + #(99 + (k$354 c$148) + ((#((record-marker) + #((record-marker) #f (id args body)) + #(98 + (r$355) + ((parse-li-rec + k$354 + fp$147 + r$355 + ptbl$145)))) + (cons c$148 tok$146))))))))) + fp$147 + ptbl$145))))) + 2 + 0))) + (parens$153 + . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 107 #f #f (102) #f #f 0 1))) + (all?$154 + . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 107 #f #f (102 104) #f #f 0 1))) + (toks$155 + . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 107 #f #f (103) #f #f 0 1))) + (read-block-terminator + . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(? + -1 + #f + #f + (109 -1 116) + #f + (#((record-marker) + #((record-marker) #f (id args body)) + #(115 + (k$365 fp$159 ptbl$158) + ((get-next-char + #((record-marker) + #((record-marker) #f (id args body)) + #(114 + (r$366) + ((#((record-marker) + #((record-marker) #f (id args body)) + #(113 + (c$160) + ((#((record-marker) + #((record-marker) #f (id args body)) + #(112 + (r$367) + ((if r$367 + (#((record-marker) + #((record-marker) #f (id args body)) + #(108 () ((k$365 #t))))) + (#((record-marker) + #((record-marker) #f (id args body)) + #(111 + (r$368) + ((if r$368 + (#((record-marker) + #((record-marker) + #f + (id args body)) + #(109 + () + ((read-block-terminator + k$365 + fp$159 + ptbl$158))))) + (#((record-marker) + #((record-marker) + #f + (id args body)) + #(110 + () + ((read-block-comment + k$365 + fp$159 + ptbl$158))))))))) + (eq? #\| c$160)))))) + (eq? #\# c$160))))) + r$366)))) + fp$159 + ptbl$158))))) + 2 + 0))) + (get-next-char + . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(? + -1 + #f + #f + (62 101 115 121 -1) + #f + (#((record-marker) + #((record-marker) #f (id args body)) + #(123 + (k$376 fp$165 ptbl$164) + ((in-port:get-buf + #((record-marker) + #((record-marker) #f (id args body)) + #(122 + (r$377) + ((if r$377 + (in-port:read-buf! k$376 ptbl$164) + (k$376 (read-char fp$165)))))) + ptbl$164))))) + 4 + 0))) + (tmp$170 + . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 134 #f #f (133 133) #f r$392 0 1))) + (tmp$169 + . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 139 #f #f (139 139) #f r$388 0 1))) + (new-toks$223 + . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 385 #f #f (379 378 377) #f r$598 0 2))) + (toks*$221 + . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 386 #f #f (380) #f r$595 0 1))) + (sub$222 + . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 386 #f #f (381 381 383 382) #f r$594 0 4))) + (eof-object? + . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(? + ? + #f + #f + (10 95 171 186 207 561 358) + #f + #f + 7 + 0))) + (new-toks$224 + . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 367 #f #f (360 343 342 341) #t #f 0 2))) + (unquote-sym$225 + . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 367 #f #f (361 346) #f r$583 0 1))) + (next-c$226 + . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f + 367 + #f + #f + (365 358 357 355 363) + #f + r$586 + 0 + 4))) + (sub$227 + . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 367 #f #f (367 347 346) #t #f 0 1))) + (new-toks$229 + . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 327 #f #f (323 322 321) #f r$551 0 2))) + (sub$228 + . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 328 #f #f (326) #f r$548 0 1))) + (new-toks$231 + . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 307 #f #f (303 302 301) #f r$535 0 2))) + (sub$230 + . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 308 #f #f (306) #f r$532 0 1))) + (lst$244 + . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 596 #f #f (596 595 591 590 587) #f #f 0 5))) + (->dotted-list + . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(? + -1 + #f + #f + (381 589 -1) + #f + (#((record-marker) + #((record-marker) #f (id args body)) + #(596 + (k$756 lst$244) + ((#((record-marker) + #((record-marker) #f (id args body)) + #(595 + (r$757) + ((if r$757 + (#((record-marker) + #((record-marker) #f (id args body)) + #(586 () ((k$756 '()))))) + (#((record-marker) + #((record-marker) #f (id args body)) + #(594 + (r$762) + ((#((record-marker) + #((record-marker) #f (id args body)) + #(593 + (r$763) + ((#((record-marker) + #((record-marker) #f (id args body)) + #(592 + (r$758) + ((if r$758 + (#((record-marker) + #((record-marker) + #f + (id args body)) + #(587 + () + ((k$756 (cadr lst$244)))))) + (#((record-marker) + #((record-marker) + #f + (id args body)) + #(591 + () + ((#((record-marker) + #((record-marker) + #f + (id args body)) + #(590 + (r$759) + ((#((record-marker) + #((record-marker) + #f + (id args body)) + #(589 + (r$761) + ((->dotted-list + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(588 + (r$760) + ((k$756 (cons r$759 + r$760))))) + r$761)))) + (cdr lst$244))))) + (car lst$244)))))))))) + (equal? r$762 r$763))))) + (string->symbol "."))))) + (car lst$244)))))) + (null? lst$244)))))) + 2 + 0))) + (string->symbol + . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(? ? #f #f (84 126 594 598) #f #f 4 0))) + (lst$245 + . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 602 #f #f (602 600) #f #f 0 2))) + (parse-atom + . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(? + -1 + #f + #f + (-1 443 439 603) + #f + (#((record-marker) + #((record-marker) #f (id args body)) + #(129 + (k$380 a$166) + ((token-numeric? + #((record-marker) + #((record-marker) #f (id args body)) + #(128 + (r$381) + ((if r$381 + (#((record-marker) + #((record-marker) #f (id args body)) + #(125 + () + ((#((record-marker) + #((record-marker) #f (id args body)) + #(124 + (r$382) + ((k$380 (string->number r$382))))) + (list->string a$166)))))) + (#((record-marker) + #((record-marker) #f (id args body)) + #(127 + () + ((#((record-marker) + #((record-marker) #f (id args body)) + #(126 + (r$383) + ((k$380 (string->symbol r$383))))) + (list->string a$166)))))))))) + a$166))))) + 3 + 0))) + (reverse + . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(? + ? + #f + #f + (9 49 87 180 263 404 267 600 604) + #f + #f + 9 + 0))) + (lst$246 + . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 604 #f #f (604) #f #f 0 1))) + (toks$247 + . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 607 #f #f (605 606) #f #f 0 2))) + (tok$248 + . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 607 #f #f (607 606) #f #f 0 2))) + (get-toks + . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(? + -1 + #f + #f + (502 470 421 405 388 345 325 305 272 272 -1) + #f + (#((record-marker) + #((record-marker) #f (id args body)) + #(607 + (k$778 tok$248 toks$247) + ((#((record-marker) + #((record-marker) #f (id args body)) + #(606 + (r$779) + ((if r$779 + (k$778 toks$247) + (->tok #((record-marker) + #((record-marker) #f (id args body)) + #(605 + (r$780) + ((add-tok k$778 r$780 toks$247)))) + tok$248))))) + (null? tok$248)))))) + 10 + 0))) + (toks$249 + . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 608 #f #f (608) #f #f 0 1))) + (tok$250 + . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 608 #f #f (608) #f #f 0 1))) + (in-port:set-cnum! + . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(? + -1 + #f + #f + (540 288 280 566 -1) + #f + (#((record-marker) + #((record-marker) #f (id args body)) + #(610 + (k$786 ptbl$252 cnum$251) + ((#((record-marker) + #((record-marker) #f (id args body)) + #(609 + (r$787) + ((k$786 (set-car! r$787 cnum$251))))) + (cdddr ptbl$252)))))) + 4 + 0))) + (*in-port-table* + . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(? -1 #f #f (1 630 625 624 -1) #t r$269 0 2))) + (reg-port + . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(? + -1 + #f + #f + (21 -1) + #f + (#((record-marker) + #((record-marker) #f (id args body)) + #(630 + (k$812 fp$262) + ((#((record-marker) + #((record-marker) #f (id args body)) + #(629 + (r$813) + ((#((record-marker) + #((record-marker) #f (id args body)) + #(628 + (r$263) + ((if r$263 + (#((record-marker) + #((record-marker) #f (id args body)) + #(622 () ((k$812 r$263))))) + (#((record-marker) + #((record-marker) #f (id args body)) + #(627 + () + ((list #((record-marker) + #((record-marker) + #f + (id args body)) + #(626 + (r$817) + ((#((record-marker) + #((record-marker) + #f + (id args body)) + #(625 + (r$814) + ((#((record-marker) + #((record-marker) + #f + (id args body)) + #(624 + (r$816) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(623 + (r$815) + ((k$812 r$263)))) + (set! *in-port-table* + r$816))))) + (cons r$263 + *in-port-table*))))) + (set! r$263 r$817))))) + fp$262 + #f + 1 + 0))))))))) + r$813)))) + (assoc fp$262 *in-port-table*)))))) + 1 + 0))) + (in-port:read-buf! + . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(? + -1 + #f + #f + (122 563 -1) + #f + (#((record-marker) + #((record-marker) #f (id args body)) + #(621 + (k$807 ptbl$260) + ((#((record-marker) + #((record-marker) #f (id args body)) + #(620 + (r$808) + ((#((record-marker) + #((record-marker) #f (id args body)) + #(619 + (result$261) + ((in-port:set-buf! + #((record-marker) + #((record-marker) #f (id args body)) + #(618 (r$809) ((k$807 result$261)))) + ptbl$260 + #f)))) + r$808)))) + (cadr ptbl$260)))))) + 2 + 0))) + (result$261 + . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 619 #f #f (618) #f r$808 0 1))) + (in-port:set-buf! + . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(? + -1 + #f + #f + (50 515 414 400 376 355 340 320 300 579 -1 619) + #f + (#((record-marker) + #((record-marker) #f (id args body)) + #(616 + (k$800 ptbl$258 buf$257) + ((#((record-marker) + #((record-marker) #f (id args body)) + #(615 (r$801) ((k$800 (set-car! r$801 buf$257))))) + (cdr ptbl$258)))))) + 11 + 0))) + (in-port:get-buf + . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(? + -1 + #f + #f + (123 564 -1) + #f + (#((record-marker) + #((record-marker) #f (id args body)) + #(617 (k$804 ptbl$259) ((k$804 (cadr ptbl$259)))))) + 2 + 0))) + (set-car! + . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(? ? #f #f (609 612 615) #f #f 3 0))) + (in-port:get-lnum + . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(? + -1 + #f + #f + (39 + 70 + 92 + 161 + 156 + 176 + 231 + 214 + 526 + 495 + 463 + 477 + 484 + 403 + 353 + 293 + 283 + 275 + -1) + #f + (#((record-marker) + #((record-marker) #f (id args body)) + #(614 + (k$797 ptbl$256) + ((k$797 (caddr ptbl$256)))))) + 18 + 0))) + (in-port:set-lnum! + . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(? + -1 + #f + #f + (291 281 -1) + #f + (#((record-marker) + #((record-marker) #f (id args body)) + #(613 + (k$793 ptbl$255 lnum$254) + ((#((record-marker) + #((record-marker) #f (id args body)) + #(612 + (r$794) + ((k$793 (set-car! r$794 lnum$254))))) + (cddr ptbl$255)))))) + 2 + 0))) + (lnum$254 + . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 613 #f #f (612) #f #f 0 1))) + (in-port:get-cnum + . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(? + -1 + #f + #f + (38 + 69 + 91 + 160 + 155 + 175 + 230 + 213 + 525 + 494 + 462 + 476 + 483 + 542 + 402 + 352 + 274 + 568 + -1) + #f + (#((record-marker) + #((record-marker) #f (id args body)) + #(611 + (k$790 ptbl$253) + ((k$790 (cadddr ptbl$253)))))) + 18 + 0))) + (parse-error + . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(? + -1 + #f + #f + (37 + 68 + 90 + 159 + 154 + 174 + 229 + 212 + 524 + 493 + 461 + 475 + 482 + 401 + 351 + 273 + -1) + #f + (#((record-marker) + #((record-marker) #f (id args body)) + #(585 + (k$750 msg$243 lnum$242 cnum$241) + ((#((record-marker) + #((record-marker) #f (id args body)) + #(584 + (r$752) + ((#((record-marker) + #((record-marker) #f (id args body)) + #(583 + (r$753) + ((#((record-marker) + #((record-marker) #f (id args body)) + #(582 (r$751) ((error k$750 r$751)))) + (string-append + "Error (line " + r$752 + ", char " + r$753 + "): " + msg$243))))) + (number->string cnum$241))))) + (number->string lnum$242)))))) + 16 + 0))) + (msg$243 + . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 585 #f #f (583) #f #f 0 1))) + (lnum$242 + . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 585 #f #f (585) #f #f 0 1))) + (string-append + . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(? ? #f #f (162 232 583) #f #f 3 0))) + (number->string + . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(? ? #f #f (585 584) #f #f 2 0))) + (parse/tok + . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(? + -1 + #f + #f + (296 287 -1) + #f + (#((record-marker) + #((record-marker) #f (id args body)) + #(581 + (k$739 fp$240 + tok$239 + toks$238 + all?$237 + comment?$236 + parens$235 + ptbl$234 + curr-char$233) + ((#((record-marker) + #((record-marker) #f (id args body)) + #(580 + (r$740) + ((if r$740 + (#((record-marker) + #((record-marker) #f (id args body)) + #(571 + () + ((#((record-marker) + #((record-marker) #f (id args body)) + #(570 + (r$741) + ((parse k$739 + fp$240 + r$741 + toks$238 + all?$237 + comment?$236 + parens$235 + ptbl$234)))) + '()))))) + (if all?$237 + (#((record-marker) + #((record-marker) #f (id args body)) + #(575 + () + ((#((record-marker) + #((record-marker) #f (id args body)) + #(574 + (r$742) + ((->tok #((record-marker) + #((record-marker) + #f + (id args body)) + #(573 + (r$744) + ((add-tok + #((record-marker) + #((record-marker) + #f + (id args body)) + #(572 + (r$743) + ((parse k$739 + fp$240 + r$742 + r$743 + all?$237 + comment?$236 + parens$235 + ptbl$234)))) + r$744 + toks$238)))) + tok$239)))) + '()))))) + (#((record-marker) + #((record-marker) #f (id args body)) + #(579 + () + ((in-port:set-buf! + #((record-marker) + #((record-marker) #f (id args body)) + #(578 + (r$745) + ((->tok #((record-marker) + #((record-marker) + #f + (id args body)) + #(577 + (r$747) + ((add-tok + #((record-marker) + #((record-marker) + #f + (id args body)) + #(576 + (r$746) + ((k$739 (car r$746))))) + r$747 + toks$238)))) + tok$239)))) + ptbl$234 + curr-char$233)))))))))) + (null? tok$239)))))) + 2 + 0))) + (tok$239 + . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 581 #f #f (581 578 574) #f #f 0 3))) + (toks$238 + . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 581 #f #f (577 573 570) #f #f 0 3))) + (all?$237 + . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 581 #f #f (572 580 570) #f #f 0 2))) + (comment?$236 + . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 581 #f #f (572 570) #f #f 0 2))) + (parens$235 + . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 581 #f #f (572 570) #f #f 0 2))) + (curr-char$233 + . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 581 #f #f (579) #f #f 0 1))) + (tok$201 + . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f + 569 + #f + #f + (549 + 546 + 545 + 516 + 514 + 519 + 502 + 470 + 421 + 413 + 426 + 405 + 399 + 409 + 388 + 375 + 395 + 345 + 339 + 371 + 325 + 319 + 335 + 305 + 299 + 315 + 296 + 287 + 272 + 272) + #f + #f + 0 + 30))) + (toks$200 + . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f + 569 + #f + #f + (548 + 547 + 544 + 516 + 513 + 510 + 502 + 470 + 453 + 449 + 445 + 441 + 437 + 435 + 432 + 428 + 421 + 412 + 405 + 398 + 388 + 374 + 345 + 338 + 325 + 318 + 305 + 298 + 296 + 287 + 284 + 278 + 272 + 272) + #f + #f + 0 + 34))) + (all?$199 + . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f + 569 + #f + #f + (548 + 547 + 544 + 516 + 519 + 507 + 508 + 489 + 490 + 457 + 458 + 453 + 449 + 445 + 441 + 437 + 434 + 436 + 431 + 433 + 428 + 415 + 416 + 426 + 409 + 377 + 378 + 395 + 341 + 342 + 371 + 321 + 322 + 335 + 301 + 302 + 315 + 296 + 287 + 284 + 278 + 272) + #f + #f + 0 + 24))) + (comment?$198 + . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 569 #f #f (560) #f #f 0 0))) + (parens$197 + . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f + 569 + #f + #f + (548 + 547 + 544 + 516 + 507 + 504 + 489 + 472 + 457 + 453 + 449 + 445 + 441 + 437 + 434 + 431 + 428 + 415 + 407 + 390 + 377 + 341 + 321 + 301 + 296 + 287 + 284 + 278 + 276) + #f + #f + 0 + 29))) + (new-toks$203 + . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 568 #t #f () #f #f 0 0))) + (read-char + . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(? + ? + #f + #f + (122 173 188 195 545 488 481 366 563) + #f + #f + 9 + 0))) + (last$232 + . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 270 #f #f (270 268) #f r$503 0 2))) + (char-whitespace? + . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(? ? #f #f (203 560) #f #f 2 0))) + (read-str + . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(? + -1 + #f + #f + (181 177 -1 422) + #f + (#((record-marker) + #((record-marker) #f (id args body)) + #(188 + (k$426 fp$180 buf$179 ptbl$178) + ((#((record-marker) + #((record-marker) #f (id args body)) + #(187 + (r$427) + ((#((record-marker) + #((record-marker) #f (id args body)) + #(186 + (c$181) + ((#((record-marker) + #((record-marker) #f (id args body)) + #(185 + (r$428) + ((if r$428 + (#((record-marker) + #((record-marker) #f (id args body)) + #(176 + () + ((in-port:get-lnum + #((record-marker) + #((record-marker) + #f + (id args body)) + #(175 + (r$429) + ((in-port:get-cnum + #((record-marker) + #((record-marker) + #f + (id args body)) + #(174 + (r$430) + ((parse-error + k$426 + "missing closing double-quote" + r$429 + r$430)))) + ptbl$178)))) + ptbl$178))))) + (#((record-marker) + #((record-marker) #f (id args body)) + #(184 + (r$431) + ((if r$431 + (#((record-marker) + #((record-marker) + #f + (id args body)) + #(178 + () + ((read-str-esc + #((record-marker) + #((record-marker) + #f + (id args body)) + #(177 + (r$432) + ((read-str + k$426 + fp$180 + r$432 + ptbl$178)))) + fp$180 + buf$179 + ptbl$178))))) + (#((record-marker) + #((record-marker) + #f + (id args body)) + #(183 + (r$433) + ((if r$433 + (#((record-marker) + #((record-marker) + #f + (id args body)) + #(180 + () + ((reverse + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(179 + (r$434) + ((k$426 (list->string + r$434))))) + buf$179))))) + (#((record-marker) + #((record-marker) + #f + (id args body)) + #(182 + () + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(181 + (r$435) + ((read-str + k$426 + fp$180 + r$435 + ptbl$178)))) + (cons c$181 + buf$179)))))))))) + (equal? #\" c$181)))))) + (equal? #\\ c$181)))))) + (eof-object? c$181))))) + r$427)))) + (read-char fp$180)))))) + 3 + 0))) + (str$219 + . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 419 #f #f (418) #f r$625 0 1))) + (toks*$218 + . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 419 #f #f (418) #f r$626 0 1))) + (new-toks$220 + . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 418 #f #f (417 416 415) #f r$629 0 2))) + (next-c$205 + . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f + 542 + #f + #f + (539 + 538 + 537 + 536 + 535 + 534 + 533 + 532 + 531 + 530 + 529 + 528 + 487 + 480 + 478 + 485) + #t + r$695 + 0 + 14))) + (read-block-comment + . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(? + -1 + #f + #f + (110 117 -1 430) + #f + (#((record-marker) + #((record-marker) #f (id args body)) + #(121 + (k$371 fp$162 ptbl$161) + ((get-next-char + #((record-marker) + #((record-marker) #f (id args body)) + #(120 + (r$372) + ((#((record-marker) + #((record-marker) #f (id args body)) + #(119 + (c$163) + ((#((record-marker) + #((record-marker) #f (id args body)) + #(118 + (r$373) + ((if r$373 + (#((record-marker) + #((record-marker) #f (id args body)) + #(116 + () + ((read-block-terminator + k$371 + fp$162 + ptbl$161))))) + (#((record-marker) + #((record-marker) #f (id args body)) + #(117 + () + ((read-block-comment + k$371 + fp$162 + ptbl$161))))))))) + (eq? #\| c$163))))) + r$372)))) + fp$162 + ptbl$161))))) + 3 + 0))) + (parse-number + . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(? + -1 + #f + #f + (-1 453 449 445 441 437) + #f + (#((record-marker) + #((record-marker) #f (id args body)) + #(83 + (k$325 fp$141 + toks$140 + all?$139 + parens$138 + ptbl$137 + base$136 + tok->num$135) + ((#((record-marker) + #((record-marker) #f (id args body)) + #(82 + (r$340) + ((parse-number-rec + #((record-marker) + #((record-marker) #f (id args body)) + #(81 + (r$326) + ((#((record-marker) + #((record-marker) #f (id args body)) + #(80 + (num$142) + ((#((record-marker) + #((record-marker) #f (id args body)) + #(79 + (k$333) + ((#((record-marker) + #((record-marker) + #f + (id args body)) + #(78 + (r$334) + ((if r$334 + (k$333 #f) + (token-numeric? + #((record-marker) + #((record-marker) + #f + (id args body)) + #(77 + (r$335) + ((#((record-marker) + #((record-marker) + #f + (id args body)) + #(76 + (tmp$144) + ((if tmp$144 + (k$333 tmp$144) + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(75 + (r$339) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(74 + (r$336) + ((if r$336 + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(73 + (r$337) + ((if r$337 + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(72 + (r$338) + ((hex-digit? + k$333 + r$338)))) + (car num$142)) + (k$333 #f))))) + (= base$136 + 16)) + (k$333 #f))))) + (> r$339 + 0))))) + (length + num$142)))))) + r$335)))) + num$142))))) + (null? num$142))))) + #((record-marker) + #((record-marker) #f (id args body)) + #(71 + (r$327) + ((if r$327 + (#((record-marker) + #((record-marker) + #f + (id args body)) + #(67 + () + ((tok->num$135 + #((record-marker) + #((record-marker) + #f + (id args body)) + #(66 + (r$328) + ((#((record-marker) + #((record-marker) + #f + (id args body)) + #(65 + (result$143) + ((if all?$139 + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(64 + (r$329) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(63 + (r$330) + ((parse k$325 + fp$141 + r$329 + r$330 + all?$139 + #f + parens$138 + ptbl$137)))) + (cons result$143 + toks$140))))) + '()) + (k$325 result$143))))) + r$328)))) + num$142))))) + (#((record-marker) + #((record-marker) + #f + (id args body)) + #(70 + () + ((in-port:get-lnum + #((record-marker) + #((record-marker) + #f + (id args body)) + #(69 + (r$331) + ((in-port:get-cnum + #((record-marker) + #((record-marker) + #f + (id args body)) + #(68 + (r$332) + ((parse-error + k$325 + "Illegal number syntax" + r$331 + r$332)))) + ptbl$137)))) + ptbl$137))))))))))))) + r$326)))) + base$136 + fp$141 + r$340 + ptbl$137)))) + '()))))) + 5 + 0))) + (num$217 + . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 439 #f #f (439) #f #f 0 1))) + (num$216 + . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 443 #f #f (443) #f #f 0 1))) + (num$215 + . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 447 #f #f (447) #f #f 0 1))) + (string->number + . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(? ? #f #f (124 226 454 450 446) #f #f 5 0))) + (list->string + . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(? + ? + #f + #f + (86 127 125 163 179 233 227 455 451 447) + #f + #f + 10 + 0))) + (num$214 + . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 451 #f #f (451) #f #f 0 1))) + (num$213 + . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 455 #f #f (455) #f #f 0 1))) + (sub$211 + . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 468 #f #f (463 465 464) #f r$671 0 3))) + (toks*$210 + . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 468 #f #f (460) #f r$672 0 1))) + (new-toks$212 + . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 467 #f #f (459 458 457) #f r$675 0 2))) + (bytevector + . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(? ? #f #f (463) #f #f 0 1))) + (sub$208 + . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 500 #f #f (495 497 496) #f r$697 0 3))) + (toks*$207 + . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 500 #f #f (492) #f r$698 0 1))) + (new-toks$209 + . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 499 #f #f (491 490 489) #f r$701 0 2))) + (list->vector + . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(? ? #f #f (495) #f #f 1 0))) + (read-pound + . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(? + -1 + #f + #f + (-1 511) + #f + (#((record-marker) + #((record-marker) #f (id args body)) + #(266 + (k$438 fp$183 ptbl$182) + ((#((record-marker) + #((record-marker) #f (id args body)) + #(265 + (done$187 loop$186) + ((#((record-marker) + #((record-marker) #f (id args body)) + #(264 + (done$189 loop$188) + ((#((record-marker) + #((record-marker) #f (id args body)) + #(211 + (r$456) + ((#((record-marker) + #((record-marker) #f (id args body)) + #(210 + (r$439) + ((#((record-marker) + #((record-marker) + #f + (id args body)) + #(191 + (r$442) + ((#((record-marker) + #((record-marker) + #f + (id args body)) + #(190 + (r$440) + ((#((record-marker) + #((record-marker) + #f + (id args body)) + #(189 + (r$441) + ((loop$186 + k$438 + r$441)))) + '())))) + (set! loop$186 r$442))))) + #((record-marker) + #((record-marker) + #f + (id args body)) + #(209 + (k$443 buf$190) + ((#((record-marker) + #((record-marker) + #f + (id args body)) + #(208 + (r$444) + ((#((record-marker) + #((record-marker) + #f + (id args body)) + #(207 + (c$191) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(206 + (r$448) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(205 + (tmp$192) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(204 + (k$449) + ((if tmp$192 + (k$449 tmp$192) + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(203 + (k$453) + ((char-whitespace? + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(202 + (r$454) + ((if r$454 + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(201 + (r$455) + ((k$453 (> r$455 + 0))))) + (length + buf$190)) + (k$453 #f))))) + c$191)))) + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(200 + (r$450) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(199 + (tmp$193) + ((if tmp$193 + (k$449 tmp$193) + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(198 + (r$452) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(197 + (r$451) + ((if r$451 + (k$449 (equal? + c$191 + #\))) + (k$449 #f))))) + (> r$452 + 0))))) + (length + buf$190)))))) + r$450))))))))) + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(196 + (r$445) + ((if r$445 + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(192 + () + ((done$187 + k$443 + buf$190))))) + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(195 + () + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(194 + (r$447) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(193 + (r$446) + ((loop$186 + k$443 + r$446)))) + (cons r$447 + buf$190))))) + (read-char + fp$183)))))))))))))) + r$448)))) + (eof-object? + c$191))))) + r$444)))) + (peek-char fp$183))))))))) + (set! done$187 r$456))))) + #((record-marker) + #((record-marker) #f (id args body)) + #(263 + (k$457 raw-buf$194) + ((reverse + #((record-marker) + #((record-marker) #f (id args body)) + #(262 + (r$458) + ((#((record-marker) + #((record-marker) + #f + (id args body)) + #(261 + (buf$195) + ((#((record-marker) + #((record-marker) + #f + (id args body)) + #(260 + (r$494) + ((#((record-marker) + #((record-marker) + #f + (id args body)) + #(259 + (r$459) + ((if r$459 + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(214 + () + ((in-port:get-lnum + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(213 + (r$460) + ((in-port:get-cnum + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(212 + (r$461) + ((parse-error + k$457 + "missing character" + r$460 + r$461)))) + ptbl$182)))) + ptbl$182))))) + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(258 + (r$493) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(257 + (r$462) + ((if r$462 + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(215 + () + ((k$457 (car buf$195)))))) + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(256 + (r$492) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(255 + (r$463) + ((if r$463 + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(216 + () + ((k$457 #\))))) + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(254 + (r$491) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(253 + (r$464) + ((if r$464 + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(217 + () + ((k$457 #\))))) + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(252 + (r$490) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(251 + (r$465) + ((if r$465 + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(218 + () + ((k$457 #\))))) + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(250 + (r$489) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(249 + (r$466) + ((if r$466 + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(219 + () + ((k$457 #\))))) + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(248 + (r$488) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(247 + (r$467) + ((if r$467 + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(220 + () + ((k$457 #\newline))))) + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(246 + (r$487) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(245 + (r$468) + ((if r$468 + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(221 + () + ((k$457 #\))))) + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(244 + (r$486) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(243 + (r$469) + ((if r$469 + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(222 + () + ((k$457 #\ ))))) + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(242 + (r$485) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(241 + (r$470) + ((if r$470 + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(223 + () + ((k$457 #\space))))) + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(240 + (r$484) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(239 + (r$471) + ((if r$471 + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(224 + () + ((k$457 #\ ))))) + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(238 + (k$480) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(237 + (r$483) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(236 + (r$481) + ((if r$481 + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(235 + (r$482) + ((k$480 (equal? + r$482 + #\x))))) + (car buf$195)) + (k$480 #f))))) + (> r$483 + 1))))) + (length + buf$195))))) + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(234 + (r$472) + ((if r$472 + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(228 + () + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(227 + (r$475) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(226 + (r$474) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(225 + (r$473) + ((k$457 (integer->char + r$473))))) + (string->number + r$474 + 16))))) + (list->string + r$475))))) + (cdr buf$195)))))) + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(233 + () + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(232 + (r$479) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(231 + (r$476) + ((in-port:get-lnum + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(230 + (r$477) + ((in-port:get-cnum + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(229 + (r$478) + ((parse-error + k$457 + r$476 + r$477 + r$478)))) + ptbl$182)))) + ptbl$182)))) + (string-append + "unable to parse character: " + r$479))))) + (list->string + buf$195))))))))))))))) + (equal? + buf$195 + r$484))))) + '(#\t + #\a + #\b)))))) + (equal? + buf$195 + r$485))))) + '(#\s + #\p + #\a + #\c + #\e)))))) + (equal? + buf$195 + r$486))))) + '(#\r + #\e + #\t + #\u + #\r + #\n)))))) + (equal? + buf$195 + r$487))))) + '(#\n + #\u + #\l + #\l)))))) + (equal? + buf$195 + r$488))))) + '(#\n + #\e + #\w + #\l + #\i + #\n + #\e)))))) + (equal? + buf$195 + r$489))))) + '(#\e + #\s + #\c + #\a + #\p + #\e)))))) + (equal? + buf$195 + r$490))))) + '(#\d + #\e + #\l + #\e + #\t + #\e)))))) + (equal? + buf$195 + r$491))))) + '(#\b + #\a + #\c + #\k + #\s + #\p + #\a + #\c + #\e)))))) + (equal? + buf$195 + r$492))))) + '(#\a + #\l + #\a + #\r + #\m)))))) + (= 1 + r$493))))) + (length + buf$195)))))) + (= 0 r$494))))) + (length buf$195))))) + r$458)))) + raw-buf$194)))))))) + #f + #f)))) + #f + #f))))) + 1 + 0))) + (new-toks$206 + . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 508 #f #f (508 507) #f r$713 0 2))) + (parse-literal-identifier + . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(? + -1 + #f + #f + (-1 547) + #f + (#((record-marker) + #((record-marker) #f (id args body)) + #(107 + (k$358 fp$156 + toks$155 + all?$154 + parens$153 + ptbl$152) + ((#((record-marker) + #((record-marker) #f (id args body)) + #(106 + (r$362) + ((parse-li-rec + #((record-marker) + #((record-marker) #f (id args body)) + #(105 + (r$359) + ((#((record-marker) + #((record-marker) #f (id args body)) + #(104 + (sym$157) + ((if all?$154 + (#((record-marker) + #((record-marker) #f (id args body)) + #(103 + (r$360) + ((#((record-marker) + #((record-marker) + #f + (id args body)) + #(102 + (r$361) + ((parse k$358 + fp$156 + r$360 + r$361 + all?$154 + #f + parens$153 + ptbl$152)))) + (cons sym$157 toks$155))))) + '()) + (k$358 sym$157))))) + r$359)))) + fp$156 + r$362 + ptbl$152)))) + '()))))) + 1 + 0))) + (loop$186 + . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 265 #f #f (193 191 189) #f r$442 2 0))) + (loop$188 + . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 264 #t #f () #f #f 0 0))) + (tmp$192 + . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 205 #f #f (204 204) #f r$448 0 1))) + (tmp$193 + . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 199 #f #f (199 199) #f r$450 0 1))) + (peek-char + . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(? ? #f #f (209) #f #f 1 0))) + (raw-buf$194 + . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 263 #f #f (263) #f #f 0 1))) + (integer->char + . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(? ? #f #f (225) #f #f 1 0))) + (read-str-esc + . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(? + -1 + #f + #f + (-1 178) + #f + (#((record-marker) + #((record-marker) #f (id args body)) + #(173 + (k$410 fp$175 buf$174 ptbl$173) + ((#((record-marker) + #((record-marker) #f (id args body)) + #(172 + (r$411) + ((#((record-marker) + #((record-marker) #f (id args body)) + #(171 + (c$176) + ((#((record-marker) + #((record-marker) #f (id args body)) + #(170 + (r$412) + ((if r$412 + (#((record-marker) + #((record-marker) #f (id args body)) + #(156 + () + ((in-port:get-lnum + #((record-marker) + #((record-marker) + #f + (id args body)) + #(155 + (r$413) + ((in-port:get-cnum + #((record-marker) + #((record-marker) + #f + (id args body)) + #(154 + (r$414) + ((parse-error + k$410 + "missing escaped character within string" + r$413 + r$414)))) + ptbl$173)))) + ptbl$173))))) + (#((record-marker) + #((record-marker) #f (id args body)) + #(169 + (r$422) + ((#((record-marker) + #((record-marker) + #f + (id args body)) + #(168 + (tmp$177) + ((#((record-marker) + #((record-marker) + #f + (id args body)) + #(167 + (k$423) + ((if tmp$177 + (k$423 tmp$177) + (k$423 (equal? + #\\ + c$176)))))) + #((record-marker) + #((record-marker) + #f + (id args body)) + #(166 + (r$415) + ((if r$415 + (#((record-marker) + #((record-marker) + #f + (id args body)) + #(157 + () + ((k$410 (cons c$176 + buf$174)))))) + (#((record-marker) + #((record-marker) + #f + (id args body)) + #(165 + (r$416) + ((if r$416 + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(158 + () + ((k$410 (cons #\newline + buf$174)))))) + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(164 + () + ((list #((record-marker) + #((record-marker) + #f + (id args + body)) + #(163 + (r$421) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(162 + (r$420) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(161 + (r$417) + ((in-port:get-lnum + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(160 + (r$418) + ((in-port:get-cnum + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(159 + (r$419) + ((parse-error + k$410 + r$417 + r$418 + r$419)))) + ptbl$173)))) + ptbl$173)))) + (string-append + "invalid escape character [" + r$420 + "] in string"))))) + (list->string + r$421))))) + c$176))))))))) + (equal? + #\n + c$176)))))))))) + r$422)))) + (equal? #\" c$176)))))) + (eof-object? c$176))))) + r$411)))) + (read-char fp$175)))))) + 1 + 0))) + (tmp$177 + . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 168 #f #f (167 167) #f r$422 0 1))) + (tmp$172 + . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 151 #f #f (151 151) #f r$407 0 1))) + (token-numeric? + . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(? + -1 + #f + #f + (78 129 -1) + #f + (#((record-marker) + #((record-marker) #f (id args body)) + #(150 + (k$386 a$167) + ((#((record-marker) + #((record-marker) #f (id args body)) + #(149 + (r$403) + ((char-numeric? + #((record-marker) + #((record-marker) #f (id args body)) + #(148 + (r$387) + ((#((record-marker) + #((record-marker) #f (id args body)) + #(147 + (tmp$168) + ((if tmp$168 + (k$386 tmp$168) + (#((record-marker) + #((record-marker) #f (id args body)) + #(146 + (k$397) + ((#((record-marker) + #((record-marker) + #f + (id args body)) + #(145 + (r$402) + ((#((record-marker) + #((record-marker) + #f + (id args body)) + #(144 + (r$398) + ((if r$398 + (#((record-marker) + #((record-marker) + #f + (id args body)) + #(143 + (r$401) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(142 + (r$399) + ((if r$399 + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(141 + (r$400) + ((char-numeric? + k$397 + r$400)))) + (cadr a$167)) + (k$397 #f))))) + (eq? #\. + r$401))))) + (car a$167)) + (k$397 #f))))) + (> r$402 1))))) + (length a$167))))) + #((record-marker) + #((record-marker) #f (id args body)) + #(140 + (r$388) + ((#((record-marker) + #((record-marker) + #f + (id args body)) + #(139 + (tmp$169) + ((if tmp$169 + (k$386 tmp$169) + (#((record-marker) + #((record-marker) + #f + (id args body)) + #(138 + (r$396) + ((#((record-marker) + #((record-marker) + #f + (id args body)) + #(137 + (r$389) + ((if r$389 + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(136 + (r$395) + ((char-numeric? + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(135 + (r$392) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(134 + (tmp$170) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(133 + (k$393) + ((if tmp$170 + (k$393 tmp$170) + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(132 + (r$394) + ((k$393 (eq? #\. + r$394))))) + (cadr a$167)))))) + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(131 + (r$390) + ((if r$390 + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(130 + (r$391) + ((sign? k$386 + r$391)))) + (car a$167)) + (k$386 #f))))))))) + r$392)))) + r$395)))) + (cadr a$167)) + (k$386 #f))))) + (> r$396 1))))) + (length a$167)))))) + r$388))))))))) + r$387)))) + r$403)))) + (car a$167)))))) + 2 + 0))) + (char-numeric? + . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(? ? #f #f (55 136 141 149) #f #f 4 0))) + (tmp$168 + . + #((record-marker) + #((record-marker) + #f + (global + defined-by + const + const-value + ref-by + reassigned + assigned-value + app-fnc-count + app-arg-count)) + #(#f 147 #f #f (147 147) #f r$387 0 1)))) + () + () + () + () + () + () + () + () + () + () + () + () + () + ()))) + */ +/* +"---------------- after cps optimizations:" + */ +/* +((define read #f) + (define *in-port-table* #f) + (define reg-port + #((record-marker) + #((record-marker) #f (id args body)) + #(630 + (k$812 fp$262) + ((#((record-marker) + #((record-marker) #f (id args body)) + #(628 + (r$263) + ((if r$263 + (#((record-marker) + #((record-marker) #f (id args body)) + #(622 () ((k$812 r$263))))) + (#((record-marker) + #((record-marker) #f (id args body)) + #(627 + () + ((list #((record-marker) + #((record-marker) #f (id args body)) + #(626 + (r$817) + ((#((record-marker) + #((record-marker) #f (id args body)) + #(625 + (r$814) + ((#((record-marker) + #((record-marker) #f (id args body)) + #(624 + (r$816) + ((#((record-marker) + #((record-marker) + #f + (id args body)) + #(623 (r$815) ((k$812 r$263)))) + (set! *in-port-table* r$816))))) + (cons r$263 *in-port-table*))))) + (set! r$263 r$817))))) + fp$262 + #f + 1 + 0))))))))) + (assoc fp$262 *in-port-table*)))))) + (define in-port:read-buf! + #((record-marker) + #((record-marker) #f (id args body)) + #(621 + (k$807 ptbl$260) + ((#((record-marker) + #((record-marker) #f (id args body)) + #(619 + (result$261) + ((in-port:set-buf! + #((record-marker) + #((record-marker) #f (id args body)) + #(618 (r$809) ((k$807 result$261)))) + ptbl$260 + #f)))) + (cadr ptbl$260)))))) + (define in-port:get-buf + #((record-marker) + #((record-marker) #f (id args body)) + #(617 (k$804 ptbl$259) ((k$804 (cadr ptbl$259)))))) + (define in-port:set-buf! + #((record-marker) + #((record-marker) #f (id args body)) + #(616 + (k$800 ptbl$258 buf$257) + ((#((record-marker) + #((record-marker) #f (id args body)) + #(615 (r$801) ((k$800 (set-car! r$801 buf$257))))) + (cdr ptbl$258)))))) + (define in-port:get-lnum + #((record-marker) + #((record-marker) #f (id args body)) + #(614 + (k$797 ptbl$256) + ((k$797 (caddr ptbl$256)))))) + (define in-port:set-lnum! + #((record-marker) + #((record-marker) #f (id args body)) + #(613 + (k$793 ptbl$255 lnum$254) + ((#((record-marker) + #((record-marker) #f (id args body)) + #(612 + (r$794) + ((k$793 (set-car! r$794 lnum$254))))) + (cddr ptbl$255)))))) + (define in-port:get-cnum + #((record-marker) + #((record-marker) #f (id args body)) + #(611 + (k$790 ptbl$253) + ((k$790 (cadddr ptbl$253)))))) + (define in-port:set-cnum! + #((record-marker) + #((record-marker) #f (id args body)) + #(610 + (k$786 ptbl$252 cnum$251) + ((#((record-marker) + #((record-marker) #f (id args body)) + #(609 + (r$787) + ((k$786 (set-car! r$787 cnum$251))))) + (cdddr ptbl$252)))))) + (define add-tok + #((record-marker) + #((record-marker) #f (id args body)) + #(608 + (k$783 tok$250 toks$249) + ((k$783 (cons tok$250 toks$249)))))) + (define get-toks + #((record-marker) + #((record-marker) #f (id args body)) + #(607 + (k$778 tok$248 toks$247) + ((#((record-marker) + #((record-marker) #f (id args body)) + #(606 + (r$779) + ((if r$779 + (k$778 toks$247) + (->tok #((record-marker) + #((record-marker) #f (id args body)) + #(605 (r$780) ((add-tok k$778 r$780 toks$247)))) + tok$248))))) + (null? tok$248)))))) + (define ->tok + #((record-marker) + #((record-marker) #f (id args body)) + #(604 + (k$774 lst$246) + ((reverse + #((record-marker) + #((record-marker) #f (id args body)) + #(603 (r$775) ((parse-atom k$774 r$775)))) + lst$246))))) + (define dotted? + #((record-marker) + #((record-marker) #f (id args body)) + #(602 + (k$766 lst$245) + ((#((record-marker) + #((record-marker) #f (id args body)) + #(601 + (r$771) + ((#((record-marker) + #((record-marker) #f (id args body)) + #(600 + (r$767) + ((if r$767 + (reverse + #((record-marker) + #((record-marker) #f (id args body)) + #(599 + (r$770) + ((#((record-marker) + #((record-marker) #f (id args body)) + #(598 + (r$768) + ((#((record-marker) + #((record-marker) #f (id args body)) + #(597 + (r$769) + ((k$766 (equal? r$768 r$769))))) + (string->symbol "."))))) + (cadr r$770))))) + lst$245) + (k$766 #f))))) + (> r$771 2))))) + (length lst$245)))))) + (define ->dotted-list + #((record-marker) + #((record-marker) #f (id args body)) + #(596 + (k$756 lst$244) + ((#((record-marker) + #((record-marker) #f (id args body)) + #(595 + (r$757) + ((if r$757 + (#((record-marker) + #((record-marker) #f (id args body)) + #(586 () ((k$756 '()))))) + (#((record-marker) + #((record-marker) #f (id args body)) + #(594 + (r$762) + ((#((record-marker) + #((record-marker) #f (id args body)) + #(593 + (r$763) + ((#((record-marker) + #((record-marker) #f (id args body)) + #(592 + (r$758) + ((if r$758 + (#((record-marker) + #((record-marker) #f (id args body)) + #(587 () ((k$756 (cadr lst$244)))))) + (#((record-marker) + #((record-marker) #f (id args body)) + #(591 + () + ((#((record-marker) + #((record-marker) + #f + (id args body)) + #(590 + (r$759) + ((#((record-marker) + #((record-marker) + #f + (id args body)) + #(589 + (r$761) + ((->dotted-list + #((record-marker) + #((record-marker) + #f + (id args body)) + #(588 + (r$760) + ((k$756 (cons r$759 + r$760))))) + r$761)))) + (cdr lst$244))))) + (car lst$244)))))))))) + (equal? r$762 r$763))))) + (string->symbol "."))))) + (car lst$244)))))) + (null? lst$244)))))) + (define parse-error + #((record-marker) + #((record-marker) #f (id args body)) + #(585 + (k$750 msg$243 lnum$242 cnum$241) + ((#((record-marker) + #((record-marker) #f (id args body)) + #(584 + (r$752) + ((#((record-marker) + #((record-marker) #f (id args body)) + #(583 + (r$753) + ((#((record-marker) + #((record-marker) #f (id args body)) + #(582 (r$751) ((error k$750 r$751)))) + (string-append + "Error (line " + r$752 + ", char " + r$753 + "): " + msg$243))))) + (number->string cnum$241))))) + (number->string lnum$242)))))) + (define parse/tok + #((record-marker) + #((record-marker) #f (id args body)) + #(581 + (k$739 fp$240 + tok$239 + toks$238 + all?$237 + comment?$236 + parens$235 + ptbl$234 + curr-char$233) + ((#((record-marker) + #((record-marker) #f (id args body)) + #(580 + (r$740) + ((if r$740 + (#((record-marker) + #((record-marker) #f (id args body)) + #(571 + () + ((#((record-marker) + #((record-marker) #f (id args body)) + #(570 + (r$741) + ((parse k$739 + fp$240 + r$741 + toks$238 + all?$237 + comment?$236 + parens$235 + ptbl$234)))) + '()))))) + (if all?$237 + (#((record-marker) + #((record-marker) #f (id args body)) + #(575 + () + ((#((record-marker) + #((record-marker) #f (id args body)) + #(574 + (r$742) + ((->tok #((record-marker) + #((record-marker) #f (id args body)) + #(573 + (r$744) + ((add-tok + #((record-marker) + #((record-marker) + #f + (id args body)) + #(572 + (r$743) + ((parse k$739 + fp$240 + r$742 + r$743 + all?$237 + comment?$236 + parens$235 + ptbl$234)))) + r$744 + toks$238)))) + tok$239)))) + '()))))) + (#((record-marker) + #((record-marker) #f (id args body)) + #(579 + () + ((in-port:set-buf! + #((record-marker) + #((record-marker) #f (id args body)) + #(578 + (r$745) + ((->tok #((record-marker) + #((record-marker) #f (id args body)) + #(577 + (r$747) + ((add-tok + #((record-marker) + #((record-marker) + #f + (id args body)) + #(576 + (r$746) + ((k$739 (car r$746))))) + r$747 + toks$238)))) + tok$239)))) + ptbl$234 + curr-char$233)))))))))) + (null? tok$239)))))) + (define parse + #((record-marker) + #((record-marker) #f (id args body)) + #(569 + (k$497 fp$202 + tok$201 + toks$200 + all?$199 + comment?$198 + parens$197 + ptbl$196) + ((#((record-marker) + #((record-marker) #f (id args body)) + #(568 + () + ((in-port:get-cnum + #((record-marker) + #((record-marker) #f (id args body)) + #(567 + (r$736) + ((#((record-marker) + #((record-marker) #f (id args body)) + #(566 + (r$735) + ((in-port:set-cnum! + #((record-marker) + #((record-marker) #f (id args body)) + #(565 + (r$498) + ((#((record-marker) + #((record-marker) #f (id args body)) + #(564 + (k$733) + ((in-port:get-buf + #((record-marker) + #((record-marker) #f (id args body)) + #(563 + (r$734) + ((if r$734 + (in-port:read-buf! + k$733 + ptbl$196) + (k$733 (read-char fp$202)))))) + ptbl$196)))) + #((record-marker) + #((record-marker) #f (id args body)) + #(561 + (c$204) + ((#((record-marker) + #((record-marker) #f (id args body)) + #(560 + (r$500) + ((if r$500 + (#((record-marker) + #((record-marker) + #f + (id args body)) + #(277 + () + ((#((record-marker) + #((record-marker) + #f + (id args body)) + #(276 + (k$506) + ((#((record-marker) + #((record-marker) + #f + (id args body)) + #(275 + (r$507) + ((if r$507 + (in-port:get-lnum + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(274 + (r$508) + ((in-port:get-cnum + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(273 + (r$509) + ((parse-error + k$506 + "missing closing parenthesis" + r$508 + r$509)))) + ptbl$196)))) + ptbl$196) + (k$506 #f))))) + (> parens$197 + 0))))) + #((record-marker) + #((record-marker) + #f + (id args body)) + #(272 + (r$501) + ((if all?$199 + (get-toks + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(267 + (r$502) + ((reverse + k$497 + r$502)))) + tok$201 + toks$200) + (get-toks + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(270 + (last$232) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(269 + (r$505) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(268 + (r$504) + ((if r$504 + (k$497 (car last$232)) + (k$497 c$204))))) + (> r$505 + 0))))) + (length + last$232))))) + tok$201 + toks$200)))))))))) + (if comment?$198 + (#((record-marker) + #((record-marker) + #f + (id args body)) + #(286 + () + ((#((record-marker) + #((record-marker) + #f + (id args body)) + #(285 + (r$510) + ((if r$510 + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(283 + () + ((in-port:get-lnum + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(282 + (r$515) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(281 + (r$514) + ((in-port:set-lnum! + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(280 + (r$511) + ((in-port:set-cnum! + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(279 + (r$512) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(278 + (r$513) + ((parse k$497 + fp$202 + r$513 + toks$200 + all?$199 + #f + parens$197 + ptbl$196)))) + '())))) + ptbl$196 + 0)))) + ptbl$196 + r$514)))) + (+ 1 + r$515))))) + ptbl$196))))) + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(284 + (r$516) + ((parse k$497 + fp$202 + r$516 + toks$200 + all?$199 + #t + parens$197 + ptbl$196)))) + '()))))) + (eq? c$204 + #\newline)))))) + (char-whitespace? + #((record-marker) + #((record-marker) + #f + (id args body)) + #(559 + (r$517) + ((if r$517 + (#((record-marker) + #((record-marker) + #f + (id args body)) + #(295 + () + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(294 + (k$522) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(293 + (r$523) + ((if r$523 + (in-port:get-lnum + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(292 + (r$525) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(291 + (r$524) + ((in-port:set-lnum! + k$522 + ptbl$196 + r$524)))) + (+ 1 + r$525))))) + ptbl$196) + (k$522 #f))))) + (equal? + c$204 + #\newline))))) + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(290 + (r$518) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(289 + (k$520) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(288 + (r$521) + ((if r$521 + (in-port:set-cnum! + k$520 + ptbl$196 + 0) + (k$520 #f))))) + (equal? + c$204 + #\newline))))) + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(287 + (r$519) + ((parse/tok + k$497 + fp$202 + tok$201 + toks$200 + all?$199 + #f + parens$197 + ptbl$196 + c$204))))))))))))) + (#((record-marker) + #((record-marker) + #f + (id args body)) + #(558 + (r$526) + ((if r$526 + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(296 + () + ((parse/tok + k$497 + fp$202 + tok$201 + toks$200 + all?$199 + #t + parens$197 + ptbl$196 + c$204))))) + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(557 + (r$527) + ((if r$527 + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(316 + () + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(315 + (k$541) + ((if all?$199 + (k$541 #f) + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(314 + (r$542) + ((not k$541 + r$542)))) + (null? tok$201)))))) + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(313 + (r$528) + ((if r$528 + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(300 + () + ((in-port:set-buf! + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(299 + (r$529) + ((->tok #((record-marker) + #((record-marker) + #f + (id args + body)) + #(298 + (r$531) + ((add-tok + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(297 + (r$530) + ((k$497 (car r$530))))) + r$531 + toks$200)))) + tok$201)))) + ptbl$196 + c$204))))) + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(312 + () + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(311 + (r$539) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(310 + (r$540) + ((parse #((record-marker) + #((record-marker) + #f + (id args + body)) + #(308 + (sub$230) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(307 + (new-toks$231) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(306 + (r$538) + ((list #((record-marker) + #((record-marker) + #f + (id args + body)) + #(305 + (r$536) + ((get-toks + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(304 + (r$537) + ((add-tok + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(303 + (r$535) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(302 + (r$533) + ((if all?$199 + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(301 + (r$534) + ((parse k$497 + fp$202 + r$534 + new-toks$231 + all?$199 + #f + parens$197 + ptbl$196)))) + '()) + (k$497 (car new-toks$231)))))) + (set! new-toks$231 + r$535))))) + r$536 + r$537)))) + tok$201 + toks$200)))) + r$538 + sub$230)))) + 'quote)))) + #f)))) + fp$202 + r$539 + r$540 + #f + #f + 0 + ptbl$196)))) + '())))) + '())))))))))))))) + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(556 + (r$543) + ((if r$543 + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(336 + () + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(335 + (k$557) + ((if all?$199 + (k$557 #f) + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(334 + (r$558) + ((not k$557 + r$558)))) + (null? tok$201)))))) + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(333 + (r$544) + ((if r$544 + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(320 + () + ((in-port:set-buf! + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(319 + (r$545) + ((->tok #((record-marker) + #((record-marker) + #f + (id args + body)) + #(318 + (r$547) + ((add-tok + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(317 + (r$546) + ((k$497 (car r$546))))) + r$547 + toks$200)))) + tok$201)))) + ptbl$196 + c$204))))) + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(332 + () + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(331 + (r$555) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(330 + (r$556) + ((parse #((record-marker) + #((record-marker) + #f + (id args + body)) + #(328 + (sub$228) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(327 + (new-toks$229) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(326 + (r$554) + ((list #((record-marker) + #((record-marker) + #f + (id args + body)) + #(325 + (r$552) + ((get-toks + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(324 + (r$553) + ((add-tok + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(323 + (r$551) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(322 + (r$549) + ((if all?$199 + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(321 + (r$550) + ((parse k$497 + fp$202 + r$550 + new-toks$229 + all?$199 + #f + parens$197 + ptbl$196)))) + '()) + (k$497 (car new-toks$229)))))) + (set! new-toks$229 + r$551))))) + r$552 + r$553)))) + tok$201 + toks$200)))) + r$554 + sub$228)))) + 'quasiquote)))) + #f)))) + fp$202 + r$555 + r$556 + #f + #f + 0 + ptbl$196)))) + '())))) + '())))))))))))))) + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(555 + (r$559) + ((if r$559 + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(372 + () + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(371 + (k$587) + ((if all?$199 + (k$587 #f) + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(370 + (r$588) + ((not k$587 + r$588)))) + (null? tok$201)))))) + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(369 + (r$560) + ((if r$560 + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(340 + () + ((in-port:set-buf! + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(339 + (r$561) + ((->tok #((record-marker) + #((record-marker) + #f + (id args + body)) + #(338 + (r$563) + ((add-tok + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(337 + (r$562) + ((k$497 (car r$562))))) + r$563 + toks$200)))) + tok$201)))) + ptbl$196 + c$204))))) + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(368 + () + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(367 + (sub$227 + next-c$226 + unquote-sym$225 + new-toks$224) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(366 + (r$564) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(365 + (r$586) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(364 + (r$565) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(363 + (k$584) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(362 + (r$585) + ((if r$585 + (k$584 'unquote-splicing) + (k$584 'unquote))))) + (equal? + next-c$226 + #\@))))) + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(361 + (r$583) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(360 + (r$566) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(359 + (r$567) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(358 + (k$578) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(357 + (r$579) + ((if r$579 + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(353 + () + ((in-port:get-lnum + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(352 + (r$580) + ((in-port:get-cnum + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(351 + (r$581) + ((parse-error + k$578 + "unexpected end of file" + r$580 + r$581)))) + ptbl$196)))) + ptbl$196))))) + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(356 + (r$582) + ((if r$582 + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(354 + () + ((k$578 #f))))) + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(355 + () + ((in-port:set-buf! + k$578 + ptbl$196 + next-c$226))))))))) + (equal? + next-c$226 + #\@)))))) + (eof-object? + next-c$226))))) + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(350 + (r$568) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(349 + (r$576) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(348 + (r$577) + ((parse #((record-marker) + #((record-marker) + #f + (id args + body)) + #(347 + (r$575) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(346 + (r$569) + ((list #((record-marker) + #((record-marker) + #f + (id args + body)) + #(345 + (r$573) + ((get-toks + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(344 + (r$574) + ((add-tok + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(343 + (r$572) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(342 + (r$570) + ((if all?$199 + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(341 + (r$571) + ((parse k$497 + fp$202 + r$571 + new-toks$224 + all?$199 + #f + parens$197 + ptbl$196)))) + '()) + (k$497 (car new-toks$224)))))) + (set! new-toks$224 + r$572))))) + r$573 + r$574)))) + tok$201 + toks$200)))) + unquote-sym$225 + sub$227)))) + (set! sub$227 + r$575))))) + fp$202 + r$576 + r$577 + #f + #f + 0 + ptbl$196)))) + '())))) + '())))))))) + (set! new-toks$224 + #f))))) + (set! unquote-sym$225 + r$583))))))))) + (set! next-c$226 + r$586))))) + (read-char + fp$202))))) + (set! sub$227 + #f))))) + #f + #f + #f + #f)))))))))))))) + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(554 + (r$589) + ((if r$589 + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(396 + () + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(395 + (k$607) + ((if all?$199 + (k$607 #f) + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(394 + (r$608) + ((not k$607 + r$608)))) + (null? tok$201)))))) + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(393 + (r$590) + ((if r$590 + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(376 + () + ((in-port:set-buf! + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(375 + (r$591) + ((->tok #((record-marker) + #((record-marker) + #f + (id args + body)) + #(374 + (r$593) + ((add-tok + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(373 + (r$592) + ((k$497 (car r$592))))) + r$593 + toks$200)))) + tok$201)))) + ptbl$196 + c$204))))) + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(392 + () + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(391 + (r$604) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(390 + (r$605) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(389 + (r$606) + ((parse #((record-marker) + #((record-marker) + #f + (id args + body)) + #(388 + (r$594) + ((get-toks + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(387 + (r$595) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(386 + (sub$222 + toks*$221) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(385 + (new-toks$223) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(384 + (k$600) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(383 + (k$602) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(382 + (r$603) + ((if r$603 + (dotted? + k$602 + sub$222) + (k$602 #f))))) + (pair? sub$222))))) + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(381 + (r$601) + ((if r$601 + (->dotted-list + k$600 + sub$222) + (k$600 sub$222))))))))) + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(380 + (r$599) + ((add-tok + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(379 + (r$598) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(378 + (r$596) + ((if all?$199 + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(377 + (r$597) + ((parse k$497 + fp$202 + r$597 + new-toks$223 + all?$199 + #f + parens$197 + ptbl$196)))) + '()) + (k$497 (car new-toks$223)))))) + (set! new-toks$223 + r$598))))) + r$599 + toks*$221)))))))) + #f)))) + r$594 + r$595)))) + tok$201 + toks$200)))) + fp$202 + r$604 + r$605 + #t + #f + r$606 + ptbl$196)))) + (+ parens$197 + 1))))) + '())))) + '())))))))))))))) + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(553 + (r$609) + ((if r$609 + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(410 + () + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(409 + (k$618) + ((if all?$199 + (k$618 #f) + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(408 + (r$619) + ((not k$618 + r$619)))) + (null? tok$201)))))) + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(407 + (r$610) + ((if r$610 + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(400 + () + ((in-port:set-buf! + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(399 + (r$611) + ((->tok #((record-marker) + #((record-marker) + #f + (id args + body)) + #(398 + (r$613) + ((add-tok + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(397 + (r$612) + ((k$497 (car r$612))))) + r$613 + toks$200)))) + tok$201)))) + ptbl$196 + c$204))))) + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(406 + (r$614) + ((if r$614 + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(403 + () + ((in-port:get-lnum + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(402 + (r$615) + ((in-port:get-cnum + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(401 + (r$616) + ((parse-error + k$497 + "unexpected closing parenthesis" + r$615 + r$616)))) + ptbl$196)))) + ptbl$196))))) + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(405 + () + ((get-toks + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(404 + (r$617) + ((reverse + k$497 + r$617)))) + tok$201 + toks$200))))))))) + (= parens$197 + 0))))))))))) + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(552 + (r$620) + ((if r$620 + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(427 + () + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(426 + (k$631) + ((if all?$199 + (k$631 #f) + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(425 + (r$632) + ((not k$631 + r$632)))) + (null? tok$201)))))) + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(424 + (r$621) + ((if r$621 + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(414 + () + ((in-port:set-buf! + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(413 + (r$622) + ((->tok #((record-marker) + #((record-marker) + #f + (id args + body)) + #(412 + (r$624) + ((add-tok + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(411 + (r$623) + ((k$497 (car r$623))))) + r$624 + toks$200)))) + tok$201)))) + ptbl$196 + c$204))))) + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(423 + () + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(422 + (r$630) + ((read-str + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(421 + (r$625) + ((get-toks + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(420 + (r$626) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(419 + (str$219 + toks*$218) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(418 + (new-toks$220) + ((add-tok + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(417 + (r$629) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(416 + (r$627) + ((if all?$199 + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(415 + (r$628) + ((parse k$497 + fp$202 + r$628 + new-toks$220 + all?$199 + #f + parens$197 + ptbl$196)))) + '()) + (k$497 (car new-toks$220)))))) + (set! new-toks$220 + r$629))))) + str$219 + toks*$218)))) + #f)))) + r$625 + r$626)))) + tok$201 + toks$200)))) + fp$202 + r$630 + ptbl$196)))) + '())))))))))))))) + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(551 + (r$633) + ((if r$633 + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(546 + () + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(545 + (r$634) + ((if r$634 + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(542 + (next-c$205) + ((in-port:get-cnum + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(541 + (r$729) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(540 + (r$728) + ((in-port:set-cnum! + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(539 + (r$636) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(538 + (r$637) + ((if r$637 + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(430 + () + ((read-block-comment + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(429 + (r$638) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(428 + (r$639) + ((parse k$497 + fp$202 + r$639 + toks$200 + all?$199 + #f + parens$197 + ptbl$196)))) + '())))) + fp$202 + ptbl$196))))) + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(537 + (r$640) + ((if r$640 + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(433 + () + ((if all?$199 + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(432 + (r$641) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(431 + (r$642) + ((parse k$497 + fp$202 + r$641 + r$642 + all?$199 + #f + parens$197 + ptbl$196)))) + (cons #t + toks$200))))) + '()) + (k$497 #t)))))) + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(536 + (r$643) + ((if r$643 + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(436 + () + ((if all?$199 + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(435 + (r$644) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(434 + (r$645) + ((parse k$497 + fp$202 + r$644 + r$645 + all?$199 + #f + parens$197 + ptbl$196)))) + (cons #f + toks$200))))) + '()) + (k$497 #f)))))) + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(535 + (r$646) + ((if r$646 + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(440 + () + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(437 + (r$647) + ((parse-number + k$497 + fp$202 + toks$200 + all?$199 + parens$197 + ptbl$196 + 10 + r$647)))) + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(439 + (k$648 num$217) + ((parse-atom + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(438 + (r$649) + ((exact k$648 + r$649)))) + num$217))))))))) + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(534 + (r$650) + ((if r$650 + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(444 + () + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(441 + (r$651) + ((parse-number + k$497 + fp$202 + toks$200 + all?$199 + parens$197 + ptbl$196 + 10 + r$651)))) + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(443 + (k$652 num$216) + ((parse-atom + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(442 + (r$653) + ((inexact + k$652 + r$653)))) + num$216))))))))) + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(533 + (r$654) + ((if r$654 + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(448 + () + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(445 + (r$655) + ((parse-number + k$497 + fp$202 + toks$200 + all?$199 + parens$197 + ptbl$196 + 2 + r$655)))) + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(447 + (k$656 num$215) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(446 + (r$657) + ((k$656 (string->number + r$657 + 2))))) + (list->string + num$215)))))))))) + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(532 + (r$658) + ((if r$658 + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(452 + () + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(449 + (r$659) + ((parse-number + k$497 + fp$202 + toks$200 + all?$199 + parens$197 + ptbl$196 + 8 + r$659)))) + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(451 + (k$660 num$214) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(450 + (r$661) + ((k$660 (string->number + r$661 + 8))))) + (list->string + num$214)))))))))) + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(531 + (r$662) + ((if r$662 + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(456 + () + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(453 + (r$663) + ((parse-number + k$497 + fp$202 + toks$200 + all?$199 + parens$197 + ptbl$196 + 16 + r$663)))) + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(455 + (k$664 num$213) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(454 + (r$665) + ((k$664 (string->number + r$665 + 16))))) + (list->string + num$213)))))))))) + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(530 + (r$666) + ((if r$666 + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(488 + () + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(487 + (r$695) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(486 + (r$667) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(485 + (k$691) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(484 + (r$692) + ((if r$692 + (k$691 #f) + (in-port:get-lnum + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(483 + (r$693) + ((in-port:get-cnum + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(482 + (r$694) + ((parse-error + k$691 + "Unhandled input sequence" + r$693 + r$694)))) + ptbl$196)))) + ptbl$196))))) + (eq? #\8 + next-c$205))))) + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(481 + (r$668) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(480 + (r$690) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(479 + (r$669) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(478 + (k$686) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(477 + (r$687) + ((if r$687 + (k$686 #f) + (in-port:get-lnum + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(476 + (r$688) + ((in-port:get-cnum + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(475 + (r$689) + ((parse-error + k$686 + "Unhandled input sequence" + r$688 + r$689)))) + ptbl$196)))) + ptbl$196))))) + (eq? #\( + next-c$205))))) + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(474 + (r$670) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(473 + (r$683) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(472 + (r$684) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(471 + (r$685) + ((parse #((record-marker) + #((record-marker) + #f + (id args + body)) + #(470 + (r$671) + ((get-toks + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(469 + (r$672) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(468 + (sub$211 + toks*$210) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(467 + (new-toks$212) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(466 + (k$677) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(465 + (k$681) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(464 + (r$682) + ((if r$682 + (dotted? + k$681 + sub$211) + (k$681 #f))))) + (pair? sub$211))))) + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(463 + (r$678) + ((if r$678 + (in-port:get-lnum + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(462 + (r$679) + ((in-port:get-cnum + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(461 + (r$680) + ((parse-error + k$677 + "Invalid vector syntax" + r$679 + r$680)))) + ptbl$196)))) + ptbl$196) + (k$677 (apply bytevector + sub$211)))))))))) + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(460 + (r$676) + ((add-tok + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(459 + (r$675) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(458 + (r$673) + ((if all?$199 + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(457 + (r$674) + ((parse k$497 + fp$202 + r$674 + new-toks$212 + all?$199 + #f + parens$197 + ptbl$196)))) + '()) + (k$497 (car new-toks$212)))))) + (set! new-toks$212 + r$675))))) + r$676 + toks*$210)))))))) + #f)))) + r$671 + r$672)))) + tok$201 + toks$200)))) + fp$202 + r$683 + r$684 + #t + #f + r$685 + ptbl$196)))) + (+ parens$197 + 1))))) + '())))) + '())))))))) + (set! next-c$205 + r$690))))) + (read-char + fp$202))))))))) + (set! next-c$205 + r$695))))) + (read-char + fp$202)))))) + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(529 + (r$696) + ((if r$696 + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(506 + () + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(505 + (r$709) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(504 + (r$710) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(503 + (r$711) + ((parse #((record-marker) + #((record-marker) + #f + (id args + body)) + #(502 + (r$697) + ((get-toks + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(501 + (r$698) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(500 + (sub$208 + toks*$207) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(499 + (new-toks$209) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(498 + (k$703) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(497 + (k$707) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(496 + (r$708) + ((if r$708 + (dotted? + k$707 + sub$208) + (k$707 #f))))) + (pair? sub$208))))) + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(495 + (r$704) + ((if r$704 + (in-port:get-lnum + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(494 + (r$705) + ((in-port:get-cnum + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(493 + (r$706) + ((parse-error + k$703 + "Invalid vector syntax" + r$705 + r$706)))) + ptbl$196)))) + ptbl$196) + (k$703 (list->vector + sub$208)))))))))) + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(492 + (r$702) + ((add-tok + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(491 + (r$701) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(490 + (r$699) + ((if all?$199 + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(489 + (r$700) + ((parse k$497 + fp$202 + r$700 + new-toks$209 + all?$199 + #f + parens$197 + ptbl$196)))) + '()) + (k$497 (car new-toks$209)))))) + (set! new-toks$209 + r$701))))) + r$702 + toks*$207)))))))) + #f)))) + r$697 + r$698)))) + tok$201 + toks$200)))) + fp$202 + r$709 + r$710 + #t + #f + r$711 + ptbl$196)))) + (+ parens$197 + 1))))) + '())))) + '()))))) + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(528 + (r$712) + ((if r$712 + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(511 + () + ((read-pound + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(510 + (r$715) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(508 + (new-toks$206) + ((if all?$199 + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(507 + (r$714) + ((parse k$497 + fp$202 + r$714 + new-toks$206 + all?$199 + #f + parens$197 + ptbl$196)))) + '()) + (k$497 (car new-toks$206)))))) + (cons r$715 + toks$200))))) + fp$202 + ptbl$196))))) + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(527 + (r$716) + ((if r$716 + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(523 + () + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(522 + (r$724) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(521 + (r$725) + ((parse #((record-marker) + #((record-marker) + #f + (id args + body)) + #(520 + (r$717) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(519 + (k$722) + ((if all?$199 + (k$722 #f) + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(518 + (r$723) + ((not k$722 + r$723)))) + (null? tok$201)))))) + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(517 + (r$718) + ((if r$718 + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(515 + () + ((in-port:set-buf! + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(514 + (r$719) + ((->tok #((record-marker) + #((record-marker) + #f + (id args + body)) + #(513 + (r$721) + ((add-tok + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(512 + (r$720) + ((k$497 (car r$720))))) + r$721 + toks$200)))) + tok$201)))) + ptbl$196 + c$204))))) + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(516 + () + ((parse k$497 + fp$202 + tok$201 + toks$200 + all?$199 + #f + parens$197 + ptbl$196))))))))))))) + fp$202 + r$724 + r$725 + #f + #f + 0 + ptbl$196)))) + '())))) + '()))))) + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(526 + () + ((in-port:get-lnum + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(525 + (r$726) + ((in-port:get-cnum + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(524 + (r$727) + ((parse-error + k$497 + "Unhandled input sequence" + r$726 + r$727)))) + ptbl$196)))) + ptbl$196))))))))) + (eq? #\; + next-c$205)))))) + (eq? #\\ + next-c$205)))))) + (eq? #\( + next-c$205)))))) + (eq? #\u + next-c$205)))))) + (eq? #\x + next-c$205)))))) + (eq? #\o + next-c$205)))))) + (eq? #\b + next-c$205)))))) + (eq? #\i + next-c$205)))))) + (eq? #\e + next-c$205)))))) + (eq? #\f + next-c$205)))))) + (eq? #\t + next-c$205)))))) + (eq? #\| + next-c$205))))) + ptbl$196 + r$728)))) + (+ 1 + r$729))))) + ptbl$196)))) + (read-char + fp$202)) + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(544 + (r$730) + ((parse k$497 + fp$202 + r$730 + toks$200 + all?$199 + #f + parens$197 + ptbl$196)))) + (cons c$204 + tok$201)))))) + (null? tok$201)))))) + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(550 + (r$731) + ((if r$731 + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(547 + () + ((parse-literal-identifier + k$497 + fp$202 + toks$200 + all?$199 + parens$197 + ptbl$196))))) + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(549 + () + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(548 + (r$732) + ((parse k$497 + fp$202 + r$732 + toks$200 + all?$199 + #f + parens$197 + ptbl$196)))) + (cons c$204 + tok$201)))))))))) + (eq? c$204 + #\|)))))) + (eq? c$204 + #\#)))))) + (eq? c$204 + #\")))))) + (eq? c$204 + #\))))))) + (eq? c$204 + #\()))))) + (eq? c$204 + #\,)))))) + (eq? c$204 + #\`)))))) + (eq? c$204 + #\')))))) + (eq? c$204 #\;)))))) + c$204)))))) + (eof-object? c$204))))))))) + ptbl$196 + r$735)))) + (+ 1 r$736))))) + ptbl$196))))))))) + (define read-pound + #((record-marker) + #((record-marker) #f (id args body)) + #(266 + (k$438 fp$183 ptbl$182) + ((#((record-marker) + #((record-marker) #f (id args body)) + #(265 + (done$187 loop$186) + ((#((record-marker) + #((record-marker) #f (id args body)) + #(264 + () + ((#((record-marker) + #((record-marker) #f (id args body)) + #(211 + (r$456) + ((#((record-marker) + #((record-marker) #f (id args body)) + #(210 + (r$439) + ((#((record-marker) + #((record-marker) #f (id args body)) + #(191 + (r$442) + ((#((record-marker) + #((record-marker) #f (id args body)) + #(190 + (r$440) + ((#((record-marker) + #((record-marker) + #f + (id args body)) + #(189 + (r$441) + ((loop$186 k$438 r$441)))) + '())))) + (set! loop$186 r$442))))) + #((record-marker) + #((record-marker) #f (id args body)) + #(209 + (k$443 buf$190) + ((#((record-marker) + #((record-marker) #f (id args body)) + #(207 + (c$191) + ((#((record-marker) + #((record-marker) + #f + (id args body)) + #(205 + (tmp$192) + ((#((record-marker) + #((record-marker) + #f + (id args body)) + #(204 + (k$449) + ((if tmp$192 + (k$449 tmp$192) + (#((record-marker) + #((record-marker) + #f + (id args body)) + #(203 + (k$453) + ((char-whitespace? + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(202 + (r$454) + ((if r$454 + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(201 + (r$455) + ((k$453 (> r$455 + 0))))) + (length + buf$190)) + (k$453 #f))))) + c$191)))) + #((record-marker) + #((record-marker) + #f + (id args body)) + #(199 + (tmp$193) + ((if tmp$193 + (k$449 tmp$193) + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(198 + (r$452) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(197 + (r$451) + ((if r$451 + (k$449 (equal? + c$191 + #\))) + (k$449 #f))))) + (> r$452 + 0))))) + (length + buf$190))))))))))) + #((record-marker) + #((record-marker) + #f + (id args body)) + #(196 + (r$445) + ((if r$445 + (#((record-marker) + #((record-marker) + #f + (id args body)) + #(192 + () + ((done$187 + k$443 + buf$190))))) + (#((record-marker) + #((record-marker) + #f + (id args body)) + #(195 + () + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(194 + (r$447) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(193 + (r$446) + ((loop$186 + k$443 + r$446)))) + (cons r$447 + buf$190))))) + (read-char + fp$183)))))))))))))) + (eof-object? c$191))))) + (peek-char fp$183))))))))) + (set! done$187 r$456))))) + #((record-marker) + #((record-marker) #f (id args body)) + #(263 + (k$457 raw-buf$194) + ((reverse + #((record-marker) + #((record-marker) #f (id args body)) + #(261 + (buf$195) + ((#((record-marker) + #((record-marker) #f (id args body)) + #(260 + (r$494) + ((#((record-marker) + #((record-marker) #f (id args body)) + #(259 + (r$459) + ((if r$459 + (#((record-marker) + #((record-marker) + #f + (id args body)) + #(214 + () + ((in-port:get-lnum + #((record-marker) + #((record-marker) + #f + (id args body)) + #(213 + (r$460) + ((in-port:get-cnum + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(212 + (r$461) + ((parse-error + k$457 + "missing character" + r$460 + r$461)))) + ptbl$182)))) + ptbl$182))))) + (#((record-marker) + #((record-marker) + #f + (id args body)) + #(258 + (r$493) + ((#((record-marker) + #((record-marker) + #f + (id args body)) + #(257 + (r$462) + ((if r$462 + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(215 + () + ((k$457 (car buf$195)))))) + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(256 + (r$492) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(255 + (r$463) + ((if r$463 + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(216 + () + ((k$457 #\))))) + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(254 + (r$491) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(253 + (r$464) + ((if r$464 + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(217 + () + ((k$457 #\))))) + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(252 + (r$490) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(251 + (r$465) + ((if r$465 + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(218 + () + ((k$457 #\))))) + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(250 + (r$489) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(249 + (r$466) + ((if r$466 + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(219 + () + ((k$457 #\))))) + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(248 + (r$488) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(247 + (r$467) + ((if r$467 + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(220 + () + ((k$457 #\newline))))) + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(246 + (r$487) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(245 + (r$468) + ((if r$468 + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(221 + () + ((k$457 #\))))) + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(244 + (r$486) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(243 + (r$469) + ((if r$469 + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(222 + () + ((k$457 #\ ))))) + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(242 + (r$485) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(241 + (r$470) + ((if r$470 + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(223 + () + ((k$457 #\space))))) + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(240 + (r$484) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(239 + (r$471) + ((if r$471 + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(224 + () + ((k$457 #\ ))))) + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(238 + (k$480) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(237 + (r$483) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(236 + (r$481) + ((if r$481 + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(235 + (r$482) + ((k$480 (equal? + r$482 + #\x))))) + (car buf$195)) + (k$480 #f))))) + (> r$483 + 1))))) + (length + buf$195))))) + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(234 + (r$472) + ((if r$472 + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(228 + () + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(227 + (r$475) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(226 + (r$474) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(225 + (r$473) + ((k$457 (integer->char + r$473))))) + (string->number + r$474 + 16))))) + (list->string + r$475))))) + (cdr buf$195)))))) + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(233 + () + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(232 + (r$479) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(231 + (r$476) + ((in-port:get-lnum + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(230 + (r$477) + ((in-port:get-cnum + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(229 + (r$478) + ((parse-error + k$457 + r$476 + r$477 + r$478)))) + ptbl$182)))) + ptbl$182)))) + (string-append + "unable to parse character: " + r$479))))) + (list->string + buf$195))))))))))))))) + (equal? + buf$195 + r$484))))) + '(#\t + #\a + #\b)))))) + (equal? + buf$195 + r$485))))) + '(#\s + #\p + #\a + #\c + #\e)))))) + (equal? + buf$195 + r$486))))) + '(#\r + #\e + #\t + #\u + #\r + #\n)))))) + (equal? + buf$195 + r$487))))) + '(#\n + #\u + #\l + #\l)))))) + (equal? + buf$195 + r$488))))) + '(#\n + #\e + #\w + #\l + #\i + #\n + #\e)))))) + (equal? + buf$195 + r$489))))) + '(#\e + #\s + #\c + #\a + #\p + #\e)))))) + (equal? + buf$195 + r$490))))) + '(#\d + #\e + #\l + #\e + #\t + #\e)))))) + (equal? + buf$195 + r$491))))) + '(#\b + #\a + #\c + #\k + #\s + #\p + #\a + #\c + #\e)))))) + (equal? + buf$195 + r$492))))) + '(#\a + #\l + #\a + #\r + #\m)))))) + (= 1 r$493))))) + (length buf$195)))))) + (= 0 r$494))))) + (length buf$195))))) + raw-buf$194)))))))))))) + #f + #f))))) + (define read-str + #((record-marker) + #((record-marker) #f (id args body)) + #(188 + (k$426 fp$180 buf$179 ptbl$178) + ((#((record-marker) + #((record-marker) #f (id args body)) + #(186 + (c$181) + ((#((record-marker) + #((record-marker) #f (id args body)) + #(185 + (r$428) + ((if r$428 + (#((record-marker) + #((record-marker) #f (id args body)) + #(176 + () + ((in-port:get-lnum + #((record-marker) + #((record-marker) #f (id args body)) + #(175 + (r$429) + ((in-port:get-cnum + #((record-marker) + #((record-marker) #f (id args body)) + #(174 + (r$430) + ((parse-error + k$426 + "missing closing double-quote" + r$429 + r$430)))) + ptbl$178)))) + ptbl$178))))) + (#((record-marker) + #((record-marker) #f (id args body)) + #(184 + (r$431) + ((if r$431 + (#((record-marker) + #((record-marker) #f (id args body)) + #(178 + () + ((read-str-esc + #((record-marker) + #((record-marker) #f (id args body)) + #(177 + (r$432) + ((read-str + k$426 + fp$180 + r$432 + ptbl$178)))) + fp$180 + buf$179 + ptbl$178))))) + (#((record-marker) + #((record-marker) #f (id args body)) + #(183 + (r$433) + ((if r$433 + (#((record-marker) + #((record-marker) #f (id args body)) + #(180 + () + ((reverse + #((record-marker) + #((record-marker) + #f + (id args body)) + #(179 + (r$434) + ((k$426 (list->string + r$434))))) + buf$179))))) + (#((record-marker) + #((record-marker) #f (id args body)) + #(182 + () + ((#((record-marker) + #((record-marker) + #f + (id args body)) + #(181 + (r$435) + ((read-str + k$426 + fp$180 + r$435 + ptbl$178)))) + (cons c$181 buf$179)))))))))) + (equal? #\" c$181)))))) + (equal? #\\ c$181)))))) + (eof-object? c$181))))) + (read-char fp$180)))))) + (define read-str-esc + #((record-marker) + #((record-marker) #f (id args body)) + #(173 + (k$410 fp$175 buf$174 ptbl$173) + ((#((record-marker) + #((record-marker) #f (id args body)) + #(171 + (c$176) + ((#((record-marker) + #((record-marker) #f (id args body)) + #(170 + (r$412) + ((if r$412 + (#((record-marker) + #((record-marker) #f (id args body)) + #(156 + () + ((in-port:get-lnum + #((record-marker) + #((record-marker) #f (id args body)) + #(155 + (r$413) + ((in-port:get-cnum + #((record-marker) + #((record-marker) #f (id args body)) + #(154 + (r$414) + ((parse-error + k$410 + "missing escaped character within string" + r$413 + r$414)))) + ptbl$173)))) + ptbl$173))))) + (#((record-marker) + #((record-marker) #f (id args body)) + #(168 + (tmp$177) + ((#((record-marker) + #((record-marker) #f (id args body)) + #(167 + (k$423) + ((if tmp$177 + (k$423 tmp$177) + (k$423 (equal? #\\ c$176)))))) + #((record-marker) + #((record-marker) #f (id args body)) + #(166 + (r$415) + ((if r$415 + (#((record-marker) + #((record-marker) #f (id args body)) + #(157 + () + ((k$410 (cons c$176 buf$174)))))) + (#((record-marker) + #((record-marker) #f (id args body)) + #(165 + (r$416) + ((if r$416 + (#((record-marker) + #((record-marker) + #f + (id args body)) + #(158 + () + ((k$410 (cons #\newline + buf$174)))))) + (#((record-marker) + #((record-marker) + #f + (id args body)) + #(164 + () + ((list #((record-marker) + #((record-marker) + #f + (id args body)) + #(163 + (r$421) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(162 + (r$420) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(161 + (r$417) + ((in-port:get-lnum + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(160 + (r$418) + ((in-port:get-cnum + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(159 + (r$419) + ((parse-error + k$410 + r$417 + r$418 + r$419)))) + ptbl$173)))) + ptbl$173)))) + (string-append + "invalid escape character [" + r$420 + "] in string"))))) + (list->string + r$421))))) + c$176))))))))) + (equal? #\n c$176)))))))))) + (equal? #\" c$176)))))) + (eof-object? c$176))))) + (read-char fp$175)))))) + (define sign? + #((record-marker) + #((record-marker) #f (id args body)) + #(153 + (k$406 c$171) + ((#((record-marker) + #((record-marker) #f (id args body)) + #(151 + (tmp$172) + ((if tmp$172 + (k$406 tmp$172) + (k$406 (equal? c$171 #\-)))))) + (equal? c$171 #\+)))))) + (define token-numeric? + #((record-marker) + #((record-marker) #f (id args body)) + #(150 + (k$386 a$167) + ((#((record-marker) + #((record-marker) #f (id args body)) + #(149 + (r$403) + ((char-numeric? + #((record-marker) + #((record-marker) #f (id args body)) + #(147 + (tmp$168) + ((if tmp$168 + (k$386 tmp$168) + (#((record-marker) + #((record-marker) #f (id args body)) + #(146 + (k$397) + ((#((record-marker) + #((record-marker) #f (id args body)) + #(145 + (r$402) + ((#((record-marker) + #((record-marker) #f (id args body)) + #(144 + (r$398) + ((if r$398 + (#((record-marker) + #((record-marker) + #f + (id args body)) + #(143 + (r$401) + ((#((record-marker) + #((record-marker) + #f + (id args body)) + #(142 + (r$399) + ((if r$399 + (#((record-marker) + #((record-marker) + #f + (id args body)) + #(141 + (r$400) + ((char-numeric? + k$397 + r$400)))) + (cadr a$167)) + (k$397 #f))))) + (eq? #\. r$401))))) + (car a$167)) + (k$397 #f))))) + (> r$402 1))))) + (length a$167))))) + #((record-marker) + #((record-marker) #f (id args body)) + #(139 + (tmp$169) + ((if tmp$169 + (k$386 tmp$169) + (#((record-marker) + #((record-marker) #f (id args body)) + #(138 + (r$396) + ((#((record-marker) + #((record-marker) #f (id args body)) + #(137 + (r$389) + ((if r$389 + (#((record-marker) + #((record-marker) + #f + (id args body)) + #(136 + (r$395) + ((char-numeric? + #((record-marker) + #((record-marker) + #f + (id args body)) + #(134 + (tmp$170) + ((#((record-marker) + #((record-marker) + #f + (id args body)) + #(133 + (k$393) + ((if tmp$170 + (k$393 tmp$170) + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(132 + (r$394) + ((k$393 (eq? #\. + r$394))))) + (cadr a$167)))))) + #((record-marker) + #((record-marker) + #f + (id args body)) + #(131 + (r$390) + ((if r$390 + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(130 + (r$391) + ((sign? k$386 + r$391)))) + (car a$167)) + (k$386 #f))))))))) + r$395)))) + (cadr a$167)) + (k$386 #f))))) + (> r$396 1))))) + (length a$167))))))))))) + r$403)))) + (car a$167)))))) + (define parse-atom + #((record-marker) + #((record-marker) #f (id args body)) + #(129 + (k$380 a$166) + ((token-numeric? + #((record-marker) + #((record-marker) #f (id args body)) + #(128 + (r$381) + ((if r$381 + (#((record-marker) + #((record-marker) #f (id args body)) + #(125 + () + ((#((record-marker) + #((record-marker) #f (id args body)) + #(124 (r$382) ((k$380 (string->number r$382))))) + (list->string a$166)))))) + (#((record-marker) + #((record-marker) #f (id args body)) + #(127 + () + ((#((record-marker) + #((record-marker) #f (id args body)) + #(126 (r$383) ((k$380 (string->symbol r$383))))) + (list->string a$166)))))))))) + a$166))))) + (define get-next-char + #((record-marker) + #((record-marker) #f (id args body)) + #(123 + (k$376 fp$165 ptbl$164) + ((in-port:get-buf + #((record-marker) + #((record-marker) #f (id args body)) + #(122 + (r$377) + ((if r$377 + (in-port:read-buf! k$376 ptbl$164) + (k$376 (read-char fp$165)))))) + ptbl$164))))) + (define read-block-comment + #((record-marker) + #((record-marker) #f (id args body)) + #(121 + (k$371 fp$162 ptbl$161) + ((get-next-char + #((record-marker) + #((record-marker) #f (id args body)) + #(119 + (c$163) + ((#((record-marker) + #((record-marker) #f (id args body)) + #(118 + (r$373) + ((if r$373 + (#((record-marker) + #((record-marker) #f (id args body)) + #(116 + () + ((read-block-terminator k$371 fp$162 ptbl$161))))) + (#((record-marker) + #((record-marker) #f (id args body)) + #(117 + () + ((read-block-comment k$371 fp$162 ptbl$161))))))))) + (eq? #\| c$163))))) + fp$162 + ptbl$161))))) + (define read-block-terminator + #((record-marker) + #((record-marker) #f (id args body)) + #(115 + (k$365 fp$159 ptbl$158) + ((get-next-char + #((record-marker) + #((record-marker) #f (id args body)) + #(113 + (c$160) + ((#((record-marker) + #((record-marker) #f (id args body)) + #(112 + (r$367) + ((if r$367 + (#((record-marker) + #((record-marker) #f (id args body)) + #(108 () ((k$365 #t))))) + (#((record-marker) + #((record-marker) #f (id args body)) + #(111 + (r$368) + ((if r$368 + (#((record-marker) + #((record-marker) #f (id args body)) + #(109 + () + ((read-block-terminator + k$365 + fp$159 + ptbl$158))))) + (#((record-marker) + #((record-marker) #f (id args body)) + #(110 + () + ((read-block-comment + k$365 + fp$159 + ptbl$158))))))))) + (eq? #\| c$160)))))) + (eq? #\# c$160))))) + fp$159 + ptbl$158))))) + (define parse-literal-identifier + #((record-marker) + #((record-marker) #f (id args body)) + #(107 + (k$358 fp$156 + toks$155 + all?$154 + parens$153 + ptbl$152) + ((#((record-marker) + #((record-marker) #f (id args body)) + #(106 + (r$362) + ((parse-li-rec + #((record-marker) + #((record-marker) #f (id args body)) + #(104 + (sym$157) + ((if all?$154 + (#((record-marker) + #((record-marker) #f (id args body)) + #(103 + (r$360) + ((#((record-marker) + #((record-marker) #f (id args body)) + #(102 + (r$361) + ((parse k$358 + fp$156 + r$360 + r$361 + all?$154 + #f + parens$153 + ptbl$152)))) + (cons sym$157 toks$155))))) + '()) + (k$358 sym$157))))) + fp$156 + r$362 + ptbl$152)))) + '()))))) + (define parse-li-rec + #((record-marker) + #((record-marker) #f (id args body)) + #(101 + (k$343 fp$147 tok$146 ptbl$145) + ((get-next-char + #((record-marker) + #((record-marker) #f (id args body)) + #(100 + (r$344) + ((#((record-marker) + #((record-marker) #f (id args body)) + #(97 + (r$345) + ((#((record-marker) + #((record-marker) #f (id args body)) + #(96 + (c$150 next$149) + ((#((record-marker) + #((record-marker) #f (id args body)) + #(95 + (r$346) + ((if r$346 + (#((record-marker) + #((record-marker) #f (id args body)) + #(89 + () + ((#((record-marker) + #((record-marker) #f (id args body)) + #(88 + (k$348) + ((#((record-marker) + #((record-marker) + #f + (id args body)) + #(87 + (r$349) + ((if r$349 + (k$348 "||") + (reverse + #((record-marker) + #((record-marker) + #f + (id args body)) + #(86 + (r$350) + ((k$348 (list->string + r$350))))) + tok$146))))) + (null? tok$146))))) + #((record-marker) + #((record-marker) #f (id args body)) + #(84 + (str$151) + ((k$343 (string->symbol + str$151)))))))))) + (#((record-marker) + #((record-marker) #f (id args body)) + #(94 + (r$351) + ((if r$351 + (#((record-marker) + #((record-marker) + #f + (id args body)) + #(92 + () + ((in-port:get-lnum + #((record-marker) + #((record-marker) + #f + (id args body)) + #(91 + (r$352) + ((in-port:get-cnum + #((record-marker) + #((record-marker) + #f + (id args body)) + #(90 + (r$353) + ((parse-error + k$343 + "EOF encountered parsing literal identifier" + r$352 + r$353)))) + ptbl$145)))) + ptbl$145))))) + (#((record-marker) + #((record-marker) + #f + (id args body)) + #(93 + () + ((next$149 k$343 c$150))))))))) + (eof-object? c$150)))))) + (eq? #\| c$150))))) + r$344 + r$345)))) + #((record-marker) + #((record-marker) #f (id args body)) + #(99 + (k$354 c$148) + ((#((record-marker) + #((record-marker) #f (id args body)) + #(98 + (r$355) + ((parse-li-rec k$354 fp$147 r$355 ptbl$145)))) + (cons c$148 tok$146))))))))) + fp$147 + ptbl$145))))) + (define parse-number + #((record-marker) + #((record-marker) #f (id args body)) + #(83 + (k$325 fp$141 + toks$140 + all?$139 + parens$138 + ptbl$137 + base$136 + tok->num$135) + ((#((record-marker) + #((record-marker) #f (id args body)) + #(82 + (r$340) + ((parse-number-rec + #((record-marker) + #((record-marker) #f (id args body)) + #(80 + (num$142) + ((#((record-marker) + #((record-marker) #f (id args body)) + #(79 + (k$333) + ((#((record-marker) + #((record-marker) #f (id args body)) + #(78 + (r$334) + ((if r$334 + (k$333 #f) + (token-numeric? + #((record-marker) + #((record-marker) #f (id args body)) + #(76 + (tmp$144) + ((if tmp$144 + (k$333 tmp$144) + (#((record-marker) + #((record-marker) + #f + (id args body)) + #(75 + (r$339) + ((#((record-marker) + #((record-marker) + #f + (id args body)) + #(74 + (r$336) + ((if r$336 + (#((record-marker) + #((record-marker) + #f + (id args body)) + #(73 + (r$337) + ((if r$337 + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(72 + (r$338) + ((hex-digit? + k$333 + r$338)))) + (car num$142)) + (k$333 #f))))) + (= base$136 16)) + (k$333 #f))))) + (> r$339 0))))) + (length num$142)))))) + num$142))))) + (null? num$142))))) + #((record-marker) + #((record-marker) #f (id args body)) + #(71 + (r$327) + ((if r$327 + (#((record-marker) + #((record-marker) #f (id args body)) + #(67 + () + ((tok->num$135 + #((record-marker) + #((record-marker) #f (id args body)) + #(65 + (result$143) + ((if all?$139 + (#((record-marker) + #((record-marker) + #f + (id args body)) + #(64 + (r$329) + ((#((record-marker) + #((record-marker) + #f + (id args body)) + #(63 + (r$330) + ((parse k$325 + fp$141 + r$329 + r$330 + all?$139 + #f + parens$138 + ptbl$137)))) + (cons result$143 + toks$140))))) + '()) + (k$325 result$143))))) + num$142))))) + (#((record-marker) + #((record-marker) #f (id args body)) + #(70 + () + ((in-port:get-lnum + #((record-marker) + #((record-marker) #f (id args body)) + #(69 + (r$331) + ((in-port:get-cnum + #((record-marker) + #((record-marker) + #f + (id args body)) + #(68 + (r$332) + ((parse-error + k$325 + "Illegal number syntax" + r$331 + r$332)))) + ptbl$137)))) + ptbl$137))))))))))))) + base$136 + fp$141 + r$340 + ptbl$137)))) + '()))))) + (define parse-number-rec + #((record-marker) + #((record-marker) #f (id args body)) + #(62 + (k$301 base$130 fp$129 tok$128 ptbl$127) + ((get-next-char + #((record-marker) + #((record-marker) #f (id args body)) + #(61 + (r$302) + ((#((record-marker) + #((record-marker) #f (id args body)) + #(58 + (r$303) + ((#((record-marker) + #((record-marker) #f (id args body)) + #(57 + (c$133 next$132) + ((sign? #((record-marker) + #((record-marker) #f (id args body)) + #(56 + (r$304) + ((if r$304 + (#((record-marker) + #((record-marker) #f (id args body)) + #(34 () ((next$132 k$301 c$133))))) + (#((record-marker) + #((record-marker) #f (id args body)) + #(55 + (r$305) + ((if r$305 + (#((record-marker) + #((record-marker) + #f + (id args body)) + #(35 + () + ((next$132 + k$301 + c$133))))) + (char-numeric? + #((record-marker) + #((record-marker) + #f + (id args body)) + #(54 + (r$306) + ((if r$306 + (#((record-marker) + #((record-marker) + #f + (id args body)) + #(47 + () + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(46 + (k$308) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(45 + (k$315) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(44 + (r$316) + ((if r$316 + (char>? + k$315 + c$133 + #\1) + (k$315 #f))))) + (= base$130 + 2))))) + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(42 + (tmp$134) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(41 + (k$313) + ((if tmp$134 + (k$313 tmp$134) + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(40 + (r$314) + ((if r$314 + (char>? + k$313 + c$133 + #\7) + (k$313 #f))))) + (= base$130 + 8)))))) + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(39 + (r$309) + ((if r$309 + (in-port:get-lnum + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(38 + (r$310) + ((in-port:get-cnum + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(37 + (r$311) + ((parse-error + k$308 + "Illegal digit" + r$310 + r$311)))) + ptbl$127)))) + ptbl$127) + (k$308 #f))))))))))))) + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(36 + (r$307) + ((next$132 + k$301 + c$133))))))))) + (#((record-marker) + #((record-marker) + #f + (id args body)) + #(53 + (k$319) + ((#((record-marker) + #((record-marker) + #f + (id args + body)) + #(52 + (r$320) + ((if r$320 + (hex-digit? + k$319 + c$133) + (k$319 #f))))) + (= base$130 + 16))))) + #((record-marker) + #((record-marker) + #f + (id args body)) + #(51 + (r$317) + ((if r$317 + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(48 + () + ((next$132 + k$301 + c$133))))) + (#((record-marker) + #((record-marker) + #f + (id args + body)) + #(50 + () + ((in-port:set-buf! + #((record-marker) + #((record-marker) + #f + (id args + body)) + #(49 + (r$318) + ((reverse + k$301 + tok$128)))) + ptbl$127 + c$133)))))))))))))) + c$133))))) + (eq? #\. c$133)))))) + c$133)))) + r$302 + r$303)))) + #((record-marker) + #((record-marker) #f (id args body)) + #(60 + (k$321 c$131) + ((#((record-marker) + #((record-marker) #f (id args body)) + #(59 + (r$322) + ((parse-number-rec + k$321 + base$130 + fp$129 + r$322 + ptbl$127)))) + (cons c$131 tok$128))))))))) + fp$129 + ptbl$127))))) + (define hex-digit? + #((record-marker) + #((record-marker) #f (id args body)) + #(33 + (k$294 c$125) + ((#((record-marker) + #((record-marker) #f (id args body)) + #(32 + (k$297) + ((char>=? + #((record-marker) + #((record-marker) #f (id args body)) + #(31 + (r$298) + ((if r$298 (char<=? k$297 c$125 #\f) (k$297 #f))))) + c$125 + #\a)))) + #((record-marker) + #((record-marker) #f (id args body)) + #(29 + (tmp$126) + ((if tmp$126 + (k$294 tmp$126) + (char>=? + #((record-marker) + #((record-marker) #f (id args body)) + #(28 + (r$296) + ((if r$296 (char<=? k$294 c$125 #\F) (k$294 #f))))) + c$125 + #\A)))))))))) + (define cyc-read + #((record-marker) + #((record-marker) #f (id args body)) + #(27 + (k$285 . args$123) + ((#((record-marker) + #((record-marker) #f (id args body)) + #(26 + (k$290) + ((#((record-marker) + #((record-marker) #f (id args body)) + #(25 + (r$291) + ((if r$291 + (current-input-port k$290) + (k$290 (car args$123)))))) + (null? args$123))))) + #((record-marker) + #((record-marker) #f (id args body)) + #(23 + (fp$124) + ((#((record-marker) + #((record-marker) #f (id args body)) + #(22 + (r$287) + ((#((record-marker) + #((record-marker) #f (id args body)) + #(21 + (r$288) + ((reg-port + #((record-marker) + #((record-marker) #f (id args body)) + #(20 + (r$289) + ((parse k$285 + fp$124 + r$287 + r$288 + #f + #f + 0 + r$289)))) + fp$124)))) + '())))) + '()))))))))) + (define read-all + #((record-marker) + #((record-marker) #f (id args body)) + #(19 + (k$272 . args$116) + ((#((record-marker) + #((record-marker) #f (id args body)) + #(18 + () + ((#((record-marker) + #((record-marker) #f (id args body)) + #(17 + (k$281) + ((#((record-marker) + #((record-marker) #f (id args body)) + #(16 + (r$282) + ((if r$282 + (current-input-port k$281) + (k$281 (car args$116)))))) + (null? args$116))))) + #((record-marker) + #((record-marker) #f (id args body)) + #(14 + (fp$118) + ((#((record-marker) + #((record-marker) #f (id args body)) + #(13 + (loop$119) + ((#((record-marker) + #((record-marker) #f (id args body)) + #(7 + (r$276) + ((#((record-marker) + #((record-marker) #f (id args body)) + #(6 + (r$274) + ((#((record-marker) + #((record-marker) #f (id args body)) + #(5 + (r$275) + ((loop$119 k$272 fp$118 r$275)))) + '())))) + (set! loop$119 r$276))))) + #((record-marker) + #((record-marker) #f (id args body)) + #(12 + (k$277 fp$121 result$120) + ((cyc-read + #((record-marker) + #((record-marker) #f (id args body)) + #(10 + (obj$122) + ((#((record-marker) + #((record-marker) #f (id args body)) + #(9 + (r$279) + ((if r$279 + (reverse k$277 result$120) + (#((record-marker) + #((record-marker) + #f + (id args body)) + #(8 + (r$280) + ((loop$119 + k$277 + fp$121 + r$280)))) + (cons obj$122 result$120)))))) + (eof-object? obj$122))))) + fp$121)))))))) + #f))))))))))))) + (define lib-init:schemeread + #((record-marker) + #((record-marker) #f (id args body)) + #(4 + (k$266) + ((#((record-marker) + #((record-marker) #f (id args body)) + #(3 + () + ((#((record-marker) + #((record-marker) #f (id args body)) + #(2 + (r$268) + ((#((record-marker) + #((record-marker) #f (id args body)) + #(1 + (r$269) + ((k$266 (set! *in-port-table* r$269))))) + '())))) + (set! read cyc-read))))))))))) + */ +/* +"---------------- after wrap-mutables:" + */ +/* +((define read #f) + (define *in-port-table* #f) + (define reg-port + (lambda (k$812 fp$262) + ((lambda (r$263) + ((lambda (r$263) + (if (cell-get r$263) + ((lambda () (k$812 (cell-get r$263)))) + ((lambda () + (list (lambda (r$817) + ((lambda (r$814) + ((lambda (r$816) + ((lambda (r$815) (k$812 (cell-get r$263))) + (set-global! *in-port-table* r$816))) + (cons (cell-get r$263) *in-port-table*))) + (set-cell! r$263 r$817))) + fp$262 + #f + 1 + 0))))) + (cell r$263))) + (assoc fp$262 *in-port-table*)))) + (define in-port:read-buf! + (lambda (k$807 ptbl$260) + ((lambda (result$261) + (in-port:set-buf! + (lambda (r$809) (k$807 result$261)) + ptbl$260 + #f)) + (cadr ptbl$260)))) + (define in-port:get-buf + (lambda (k$804 ptbl$259) (k$804 (cadr ptbl$259)))) + (define in-port:set-buf! + (lambda (k$800 ptbl$258 buf$257) + ((lambda (r$801) (k$800 (set-car! r$801 buf$257))) + (cdr ptbl$258)))) + (define in-port:get-lnum + (lambda (k$797 ptbl$256) + (k$797 (caddr ptbl$256)))) + (define in-port:set-lnum! + (lambda (k$793 ptbl$255 lnum$254) + ((lambda (r$794) + (k$793 (set-car! r$794 lnum$254))) + (cddr ptbl$255)))) + (define in-port:get-cnum + (lambda (k$790 ptbl$253) + (k$790 (cadddr ptbl$253)))) + (define in-port:set-cnum! + (lambda (k$786 ptbl$252 cnum$251) + ((lambda (r$787) + (k$786 (set-car! r$787 cnum$251))) + (cdddr ptbl$252)))) + (define add-tok + (lambda (k$783 tok$250 toks$249) + (k$783 (cons tok$250 toks$249)))) + (define get-toks + (lambda (k$778 tok$248 toks$247) + ((lambda (r$779) + (if r$779 + (k$778 toks$247) + (->tok (lambda (r$780) (add-tok k$778 r$780 toks$247)) + tok$248))) + (null? tok$248)))) + (define ->tok + (lambda (k$774 lst$246) + (reverse + (lambda (r$775) (parse-atom k$774 r$775)) + lst$246))) + (define dotted? + (lambda (k$766 lst$245) + ((lambda (r$771) + ((lambda (r$767) + (if r$767 + (reverse + (lambda (r$770) + ((lambda (r$768) + ((lambda (r$769) (k$766 (equal? r$768 r$769))) + (string->symbol "."))) + (cadr r$770))) + lst$245) + (k$766 #f))) + (> r$771 2))) + (length lst$245)))) + (define ->dotted-list + (lambda (k$756 lst$244) + ((lambda (r$757) + (if r$757 + ((lambda () (k$756 '()))) + ((lambda (r$762) + ((lambda (r$763) + ((lambda (r$758) + (if r$758 + ((lambda () (k$756 (cadr lst$244)))) + ((lambda () + ((lambda (r$759) + ((lambda (r$761) + (->dotted-list + (lambda (r$760) (k$756 (cons r$759 r$760))) + r$761)) + (cdr lst$244))) + (car lst$244)))))) + (equal? r$762 r$763))) + (string->symbol "."))) + (car lst$244)))) + (null? lst$244)))) + (define parse-error + (lambda (k$750 msg$243 lnum$242 cnum$241) + ((lambda (r$752) + ((lambda (r$753) + ((lambda (r$751) (error k$750 r$751)) + (string-append + "Error (line " + r$752 + ", char " + r$753 + "): " + msg$243))) + (number->string cnum$241))) + (number->string lnum$242)))) + (define parse/tok + (lambda (k$739 + fp$240 + tok$239 + toks$238 + all?$237 + comment?$236 + parens$235 + ptbl$234 + curr-char$233) + ((lambda (r$740) + (if r$740 + ((lambda () + ((lambda (r$741) + (parse k$739 + fp$240 + r$741 + toks$238 + all?$237 + comment?$236 + parens$235 + ptbl$234)) + '()))) + (if all?$237 + ((lambda () + ((lambda (r$742) + (->tok (lambda (r$744) + (add-tok + (lambda (r$743) + (parse k$739 + fp$240 + r$742 + r$743 + all?$237 + comment?$236 + parens$235 + ptbl$234)) + r$744 + toks$238)) + tok$239)) + '()))) + ((lambda () + (in-port:set-buf! + (lambda (r$745) + (->tok (lambda (r$747) + (add-tok + (lambda (r$746) (k$739 (car r$746))) + r$747 + toks$238)) + tok$239)) + ptbl$234 + curr-char$233)))))) + (null? tok$239)))) + (define parse + (lambda (k$497 + fp$202 + tok$201 + toks$200 + all?$199 + comment?$198 + parens$197 + ptbl$196) + ((lambda () + (in-port:get-cnum + (lambda (r$736) + ((lambda (r$735) + (in-port:set-cnum! + (lambda (r$498) + ((lambda (k$733) + (in-port:get-buf + (lambda (r$734) + (if r$734 + (in-port:read-buf! k$733 ptbl$196) + (k$733 (read-char fp$202)))) + ptbl$196)) + (lambda (c$204) + ((lambda (r$500) + (if r$500 + ((lambda () + ((lambda (k$506) + ((lambda (r$507) + (if r$507 + (in-port:get-lnum + (lambda (r$508) + (in-port:get-cnum + (lambda (r$509) + (parse-error + k$506 + "missing closing parenthesis" + r$508 + r$509)) + ptbl$196)) + ptbl$196) + (k$506 #f))) + (> parens$197 0))) + (lambda (r$501) + (if all?$199 + (get-toks + (lambda (r$502) (reverse k$497 r$502)) + tok$201 + toks$200) + (get-toks + (lambda (last$232) + ((lambda (r$505) + ((lambda (r$504) + (if r$504 + (k$497 (car last$232)) + (k$497 c$204))) + (> r$505 0))) + (length last$232))) + tok$201 + toks$200)))))) + (if comment?$198 + ((lambda () + ((lambda (r$510) + (if r$510 + ((lambda () + (in-port:get-lnum + (lambda (r$515) + ((lambda (r$514) + (in-port:set-lnum! + (lambda (r$511) + (in-port:set-cnum! + (lambda (r$512) + ((lambda (r$513) + (parse k$497 + fp$202 + r$513 + toks$200 + all?$199 + #f + parens$197 + ptbl$196)) + '())) + ptbl$196 + 0)) + ptbl$196 + r$514)) + (+ 1 r$515))) + ptbl$196))) + ((lambda (r$516) + (parse k$497 + fp$202 + r$516 + toks$200 + all?$199 + #t + parens$197 + ptbl$196)) + '()))) + (eq? c$204 #\newline)))) + (char-whitespace? + (lambda (r$517) + (if r$517 + ((lambda () + ((lambda (k$522) + ((lambda (r$523) + (if r$523 + (in-port:get-lnum + (lambda (r$525) + ((lambda (r$524) + (in-port:set-lnum! + k$522 + ptbl$196 + r$524)) + (+ 1 r$525))) + ptbl$196) + (k$522 #f))) + (equal? c$204 #\newline))) + (lambda (r$518) + ((lambda (k$520) + ((lambda (r$521) + (if r$521 + (in-port:set-cnum! + k$520 + ptbl$196 + 0) + (k$520 #f))) + (equal? c$204 #\newline))) + (lambda (r$519) + (parse/tok + k$497 + fp$202 + tok$201 + toks$200 + all?$199 + #f + parens$197 + ptbl$196 + c$204))))))) + ((lambda (r$526) + (if r$526 + ((lambda () + (parse/tok + k$497 + fp$202 + tok$201 + toks$200 + all?$199 + #t + parens$197 + ptbl$196 + c$204))) + ((lambda (r$527) + (if r$527 + ((lambda () + ((lambda (k$541) + (if all?$199 + (k$541 #f) + ((lambda (r$542) + (not k$541 r$542)) + (null? tok$201)))) + (lambda (r$528) + (if r$528 + ((lambda () + (in-port:set-buf! + (lambda (r$529) + (->tok (lambda (r$531) + (add-tok + (lambda (r$530) + (k$497 (car r$530))) + r$531 + toks$200)) + tok$201)) + ptbl$196 + c$204))) + ((lambda () + ((lambda (r$539) + ((lambda (r$540) + (parse (lambda (sub$230) + ((lambda (new-toks$231) + ((lambda (new-toks$231) + ((lambda (r$538) + (list (lambda (r$536) + (get-toks + (lambda (r$537) + (add-tok + (lambda (r$535) + ((lambda (r$533) + (if all?$199 + ((lambda (r$534) + (parse k$497 + fp$202 + r$534 + (cell-get + new-toks$231) + all?$199 + #f + parens$197 + ptbl$196)) + '()) + (k$497 (car (cell-get + new-toks$231))))) + (set-cell! + new-toks$231 + r$535))) + r$536 + r$537)) + tok$201 + toks$200)) + r$538 + sub$230)) + 'quote)) + (cell new-toks$231))) + #f)) + fp$202 + r$539 + r$540 + #f + #f + 0 + ptbl$196)) + '())) + '())))))))) + ((lambda (r$543) + (if r$543 + ((lambda () + ((lambda (k$557) + (if all?$199 + (k$557 #f) + ((lambda (r$558) + (not k$557 r$558)) + (null? tok$201)))) + (lambda (r$544) + (if r$544 + ((lambda () + (in-port:set-buf! + (lambda (r$545) + (->tok (lambda (r$547) + (add-tok + (lambda (r$546) + (k$497 (car r$546))) + r$547 + toks$200)) + tok$201)) + ptbl$196 + c$204))) + ((lambda () + ((lambda (r$555) + ((lambda (r$556) + (parse (lambda (sub$228) + ((lambda (new-toks$229) + ((lambda (new-toks$229) + ((lambda (r$554) + (list (lambda (r$552) + (get-toks + (lambda (r$553) + (add-tok + (lambda (r$551) + ((lambda (r$549) + (if all?$199 + ((lambda (r$550) + (parse k$497 + fp$202 + r$550 + (cell-get + new-toks$229) + all?$199 + #f + parens$197 + ptbl$196)) + '()) + (k$497 (car (cell-get + new-toks$229))))) + (set-cell! + new-toks$229 + r$551))) + r$552 + r$553)) + tok$201 + toks$200)) + r$554 + sub$228)) + 'quasiquote)) + (cell new-toks$229))) + #f)) + fp$202 + r$555 + r$556 + #f + #f + 0 + ptbl$196)) + '())) + '())))))))) + ((lambda (r$559) + (if r$559 + ((lambda () + ((lambda (k$587) + (if all?$199 + (k$587 #f) + ((lambda (r$588) + (not k$587 + r$588)) + (null? tok$201)))) + (lambda (r$560) + (if r$560 + ((lambda () + (in-port:set-buf! + (lambda (r$561) + (->tok (lambda (r$563) + (add-tok + (lambda (r$562) + (k$497 (car r$562))) + r$563 + toks$200)) + tok$201)) + ptbl$196 + c$204))) + ((lambda () + ((lambda (sub$227 + next-c$226 + unquote-sym$225 + new-toks$224) + ((lambda (sub$227) + ((lambda (next-c$226) + ((lambda (unquote-sym$225) + ((lambda (new-toks$224) + ((lambda (r$564) + ((lambda (r$586) + ((lambda (r$565) + ((lambda (k$584) + ((lambda (r$585) + (if r$585 + (k$584 'unquote-splicing) + (k$584 'unquote))) + (equal? + (cell-get + next-c$226) + #\@))) + (lambda (r$583) + ((lambda (r$566) + ((lambda (r$567) + ((lambda (k$578) + ((lambda (r$579) + (if r$579 + ((lambda () + (in-port:get-lnum + (lambda (r$580) + (in-port:get-cnum + (lambda (r$581) + (parse-error + k$578 + "unexpected end of file" + r$580 + r$581)) + ptbl$196)) + ptbl$196))) + ((lambda (r$582) + (if r$582 + ((lambda () + (k$578 #f))) + ((lambda () + (in-port:set-buf! + k$578 + ptbl$196 + (cell-get + next-c$226)))))) + (equal? + (cell-get + next-c$226) + #\@)))) + (eof-object? + (cell-get + next-c$226)))) + (lambda (r$568) + ((lambda (r$576) + ((lambda (r$577) + (parse (lambda (r$575) + ((lambda (r$569) + (list (lambda (r$573) + (get-toks + (lambda (r$574) + (add-tok + (lambda (r$572) + ((lambda (r$570) + (if all?$199 + ((lambda (r$571) + (parse k$497 + fp$202 + r$571 + (cell-get + new-toks$224) + all?$199 + #f + parens$197 + ptbl$196)) + '()) + (k$497 (car (cell-get + new-toks$224))))) + (set-cell! + new-toks$224 + r$572))) + r$573 + r$574)) + tok$201 + toks$200)) + (cell-get + unquote-sym$225) + (cell-get + sub$227))) + (set-cell! + sub$227 + r$575))) + fp$202 + r$576 + r$577 + #f + #f + 0 + ptbl$196)) + '())) + '())))) + (set-cell! + new-toks$224 + #f))) + (set-cell! + unquote-sym$225 + r$583))))) + (set-cell! + next-c$226 + r$586))) + (read-char + fp$202))) + (set-cell! + sub$227 + #f))) + (cell new-toks$224))) + (cell unquote-sym$225))) + (cell next-c$226))) + (cell sub$227))) + #f + #f + #f + #f)))))))) + ((lambda (r$589) + (if r$589 + ((lambda () + ((lambda (k$607) + (if all?$199 + (k$607 #f) + ((lambda (r$608) + (not k$607 + r$608)) + (null? tok$201)))) + (lambda (r$590) + (if r$590 + ((lambda () + (in-port:set-buf! + (lambda (r$591) + (->tok (lambda (r$593) + (add-tok + (lambda (r$592) + (k$497 (car r$592))) + r$593 + toks$200)) + tok$201)) + ptbl$196 + c$204))) + ((lambda () + ((lambda (r$604) + ((lambda (r$605) + ((lambda (r$606) + (parse (lambda (r$594) + (get-toks + (lambda (r$595) + ((lambda (sub$222 + toks*$221) + ((lambda (new-toks$223) + ((lambda (new-toks$223) + ((lambda (k$600) + ((lambda (k$602) + ((lambda (r$603) + (if r$603 + (dotted? + k$602 + sub$222) + (k$602 #f))) + (pair? sub$222))) + (lambda (r$601) + (if r$601 + (->dotted-list + k$600 + sub$222) + (k$600 sub$222))))) + (lambda (r$599) + (add-tok + (lambda (r$598) + ((lambda (r$596) + (if all?$199 + ((lambda (r$597) + (parse k$497 + fp$202 + r$597 + (cell-get + new-toks$223) + all?$199 + #f + parens$197 + ptbl$196)) + '()) + (k$497 (car (cell-get + new-toks$223))))) + (set-cell! + new-toks$223 + r$598))) + r$599 + toks*$221)))) + (cell new-toks$223))) + #f)) + r$594 + r$595)) + tok$201 + toks$200)) + fp$202 + r$604 + r$605 + #t + #f + r$606 + ptbl$196)) + (+ parens$197 + 1))) + '())) + '())))))))) + ((lambda (r$609) + (if r$609 + ((lambda () + ((lambda (k$618) + (if all?$199 + (k$618 #f) + ((lambda (r$619) + (not k$618 + r$619)) + (null? tok$201)))) + (lambda (r$610) + (if r$610 + ((lambda () + (in-port:set-buf! + (lambda (r$611) + (->tok (lambda (r$613) + (add-tok + (lambda (r$612) + (k$497 (car r$612))) + r$613 + toks$200)) + tok$201)) + ptbl$196 + c$204))) + ((lambda (r$614) + (if r$614 + ((lambda () + (in-port:get-lnum + (lambda (r$615) + (in-port:get-cnum + (lambda (r$616) + (parse-error + k$497 + "unexpected closing parenthesis" + r$615 + r$616)) + ptbl$196)) + ptbl$196))) + ((lambda () + (get-toks + (lambda (r$617) + (reverse + k$497 + r$617)) + tok$201 + toks$200))))) + (= parens$197 + 0))))))) + ((lambda (r$620) + (if r$620 + ((lambda () + ((lambda (k$631) + (if all?$199 + (k$631 #f) + ((lambda (r$632) + (not k$631 + r$632)) + (null? tok$201)))) + (lambda (r$621) + (if r$621 + ((lambda () + (in-port:set-buf! + (lambda (r$622) + (->tok (lambda (r$624) + (add-tok + (lambda (r$623) + (k$497 (car r$623))) + r$624 + toks$200)) + tok$201)) + ptbl$196 + c$204))) + ((lambda () + ((lambda (r$630) + (read-str + (lambda (r$625) + (get-toks + (lambda (r$626) + ((lambda (str$219 + toks*$218) + ((lambda (new-toks$220) + ((lambda (new-toks$220) + (add-tok + (lambda (r$629) + ((lambda (r$627) + (if all?$199 + ((lambda (r$628) + (parse k$497 + fp$202 + r$628 + (cell-get + new-toks$220) + all?$199 + #f + parens$197 + ptbl$196)) + '()) + (k$497 (car (cell-get + new-toks$220))))) + (set-cell! + new-toks$220 + r$629))) + str$219 + toks*$218)) + (cell new-toks$220))) + #f)) + r$625 + r$626)) + tok$201 + toks$200)) + fp$202 + r$630 + ptbl$196)) + '())))))))) + ((lambda (r$633) + (if r$633 + ((lambda () + ((lambda (r$634) + (if r$634 + ((lambda (next-c$205) + ((lambda (next-c$205) + (in-port:get-cnum + (lambda (r$729) + ((lambda (r$728) + (in-port:set-cnum! + (lambda (r$636) + ((lambda (r$637) + (if r$637 + ((lambda () + (read-block-comment + (lambda (r$638) + ((lambda (r$639) + (parse k$497 + fp$202 + r$639 + toks$200 + all?$199 + #f + parens$197 + ptbl$196)) + '())) + fp$202 + ptbl$196))) + ((lambda (r$640) + (if r$640 + ((lambda () + (if all?$199 + ((lambda (r$641) + ((lambda (r$642) + (parse k$497 + fp$202 + r$641 + r$642 + all?$199 + #f + parens$197 + ptbl$196)) + (cons #t + toks$200))) + '()) + (k$497 #t)))) + ((lambda (r$643) + (if r$643 + ((lambda () + (if all?$199 + ((lambda (r$644) + ((lambda (r$645) + (parse k$497 + fp$202 + r$644 + r$645 + all?$199 + #f + parens$197 + ptbl$196)) + (cons #f + toks$200))) + '()) + (k$497 #f)))) + ((lambda (r$646) + (if r$646 + ((lambda () + ((lambda (r$647) + (parse-number + k$497 + fp$202 + toks$200 + all?$199 + parens$197 + ptbl$196 + 10 + r$647)) + (lambda (k$648 + num$217) + (parse-atom + (lambda (r$649) + (exact k$648 + r$649)) + num$217))))) + ((lambda (r$650) + (if r$650 + ((lambda () + ((lambda (r$651) + (parse-number + k$497 + fp$202 + toks$200 + all?$199 + parens$197 + ptbl$196 + 10 + r$651)) + (lambda (k$652 + num$216) + (parse-atom + (lambda (r$653) + (inexact + k$652 + r$653)) + num$216))))) + ((lambda (r$654) + (if r$654 + ((lambda () + ((lambda (r$655) + (parse-number + k$497 + fp$202 + toks$200 + all?$199 + parens$197 + ptbl$196 + 2 + r$655)) + (lambda (k$656 + num$215) + ((lambda (r$657) + (k$656 (string->number + r$657 + 2))) + (list->string + num$215)))))) + ((lambda (r$658) + (if r$658 + ((lambda () + ((lambda (r$659) + (parse-number + k$497 + fp$202 + toks$200 + all?$199 + parens$197 + ptbl$196 + 8 + r$659)) + (lambda (k$660 + num$214) + ((lambda (r$661) + (k$660 (string->number + r$661 + 8))) + (list->string + num$214)))))) + ((lambda (r$662) + (if r$662 + ((lambda () + ((lambda (r$663) + (parse-number + k$497 + fp$202 + toks$200 + all?$199 + parens$197 + ptbl$196 + 16 + r$663)) + (lambda (k$664 + num$213) + ((lambda (r$665) + (k$664 (string->number + r$665 + 16))) + (list->string + num$213)))))) + ((lambda (r$666) + (if r$666 + ((lambda () + ((lambda (r$695) + ((lambda (r$667) + ((lambda (k$691) + ((lambda (r$692) + (if r$692 + (k$691 #f) + (in-port:get-lnum + (lambda (r$693) + (in-port:get-cnum + (lambda (r$694) + (parse-error + k$691 + "Unhandled input sequence" + r$693 + r$694)) + ptbl$196)) + ptbl$196))) + (eq? #\8 + (cell-get + next-c$205)))) + (lambda (r$668) + ((lambda (r$690) + ((lambda (r$669) + ((lambda (k$686) + ((lambda (r$687) + (if r$687 + (k$686 #f) + (in-port:get-lnum + (lambda (r$688) + (in-port:get-cnum + (lambda (r$689) + (parse-error + k$686 + "Unhandled input sequence" + r$688 + r$689)) + ptbl$196)) + ptbl$196))) + (eq? #\( + (cell-get + next-c$205)))) + (lambda (r$670) + ((lambda (r$683) + ((lambda (r$684) + ((lambda (r$685) + (parse (lambda (r$671) + (get-toks + (lambda (r$672) + ((lambda (sub$211 + toks*$210) + ((lambda (new-toks$212) + ((lambda (new-toks$212) + ((lambda (k$677) + ((lambda (k$681) + ((lambda (r$682) + (if r$682 + (dotted? + k$681 + sub$211) + (k$681 #f))) + (pair? sub$211))) + (lambda (r$678) + (if r$678 + (in-port:get-lnum + (lambda (r$679) + (in-port:get-cnum + (lambda (r$680) + (parse-error + k$677 + "Invalid vector syntax" + r$679 + r$680)) + ptbl$196)) + ptbl$196) + (k$677 (apply bytevector + sub$211)))))) + (lambda (r$676) + (add-tok + (lambda (r$675) + ((lambda (r$673) + (if all?$199 + ((lambda (r$674) + (parse k$497 + fp$202 + r$674 + (cell-get + new-toks$212) + all?$199 + #f + parens$197 + ptbl$196)) + '()) + (k$497 (car (cell-get + new-toks$212))))) + (set-cell! + new-toks$212 + r$675))) + r$676 + toks*$210)))) + (cell new-toks$212))) + #f)) + r$671 + r$672)) + tok$201 + toks$200)) + fp$202 + r$683 + r$684 + #t + #f + r$685 + ptbl$196)) + (+ parens$197 + 1))) + '())) + '())))) + (set-cell! + next-c$205 + r$690))) + (read-char + fp$202))))) + (set-cell! + next-c$205 + r$695))) + (read-char + fp$202)))) + ((lambda (r$696) + (if r$696 + ((lambda () + ((lambda (r$709) + ((lambda (r$710) + ((lambda (r$711) + (parse (lambda (r$697) + (get-toks + (lambda (r$698) + ((lambda (sub$208 + toks*$207) + ((lambda (new-toks$209) + ((lambda (new-toks$209) + ((lambda (k$703) + ((lambda (k$707) + ((lambda (r$708) + (if r$708 + (dotted? + k$707 + sub$208) + (k$707 #f))) + (pair? sub$208))) + (lambda (r$704) + (if r$704 + (in-port:get-lnum + (lambda (r$705) + (in-port:get-cnum + (lambda (r$706) + (parse-error + k$703 + "Invalid vector syntax" + r$705 + r$706)) + ptbl$196)) + ptbl$196) + (k$703 (list->vector + sub$208)))))) + (lambda (r$702) + (add-tok + (lambda (r$701) + ((lambda (r$699) + (if all?$199 + ((lambda (r$700) + (parse k$497 + fp$202 + r$700 + (cell-get + new-toks$209) + all?$199 + #f + parens$197 + ptbl$196)) + '()) + (k$497 (car (cell-get + new-toks$209))))) + (set-cell! + new-toks$209 + r$701))) + r$702 + toks*$207)))) + (cell new-toks$209))) + #f)) + r$697 + r$698)) + tok$201 + toks$200)) + fp$202 + r$709 + r$710 + #t + #f + r$711 + ptbl$196)) + (+ parens$197 + 1))) + '())) + '()))) + ((lambda (r$712) + (if r$712 + ((lambda () + (read-pound + (lambda (r$715) + ((lambda (new-toks$206) + (if all?$199 + ((lambda (r$714) + (parse k$497 + fp$202 + r$714 + new-toks$206 + all?$199 + #f + parens$197 + ptbl$196)) + '()) + (k$497 (car new-toks$206)))) + (cons r$715 + toks$200))) + fp$202 + ptbl$196))) + ((lambda (r$716) + (if r$716 + ((lambda () + ((lambda (r$724) + ((lambda (r$725) + (parse (lambda (r$717) + ((lambda (k$722) + (if all?$199 + (k$722 #f) + ((lambda (r$723) + (not k$722 + r$723)) + (null? tok$201)))) + (lambda (r$718) + (if r$718 + ((lambda () + (in-port:set-buf! + (lambda (r$719) + (->tok (lambda (r$721) + (add-tok + (lambda (r$720) + (k$497 (car r$720))) + r$721 + toks$200)) + tok$201)) + ptbl$196 + c$204))) + ((lambda () + (parse k$497 + fp$202 + tok$201 + toks$200 + all?$199 + #f + parens$197 + ptbl$196))))))) + fp$202 + r$724 + r$725 + #f + #f + 0 + ptbl$196)) + '())) + '()))) + ((lambda () + (in-port:get-lnum + (lambda (r$726) + (in-port:get-cnum + (lambda (r$727) + (parse-error + k$497 + "Unhandled input sequence" + r$726 + r$727)) + ptbl$196)) + ptbl$196))))) + (eq? #\; + (cell-get + next-c$205))))) + (eq? #\\ + (cell-get + next-c$205))))) + (eq? #\( + (cell-get + next-c$205))))) + (eq? #\u + (cell-get + next-c$205))))) + (eq? #\x + (cell-get + next-c$205))))) + (eq? #\o + (cell-get + next-c$205))))) + (eq? #\b + (cell-get + next-c$205))))) + (eq? #\i + (cell-get + next-c$205))))) + (eq? #\e + (cell-get + next-c$205))))) + (eq? #\f + (cell-get + next-c$205))))) + (eq? #\t + (cell-get + next-c$205))))) + (eq? #\| + (cell-get + next-c$205)))) + ptbl$196 + r$728)) + (+ 1 + r$729))) + ptbl$196)) + (cell next-c$205))) + (read-char + fp$202)) + ((lambda (r$730) + (parse k$497 + fp$202 + r$730 + toks$200 + all?$199 + #f + parens$197 + ptbl$196)) + (cons c$204 + tok$201)))) + (null? tok$201)))) + ((lambda (r$731) + (if r$731 + ((lambda () + (parse-literal-identifier + k$497 + fp$202 + toks$200 + all?$199 + parens$197 + ptbl$196))) + ((lambda () + ((lambda (r$732) + (parse k$497 + fp$202 + r$732 + toks$200 + all?$199 + #f + parens$197 + ptbl$196)) + (cons c$204 + tok$201)))))) + (eq? c$204 + #\|)))) + (eq? c$204 + #\#)))) + (eq? c$204 + #\")))) + (eq? c$204 #\))))) + (eq? c$204 #\()))) + (eq? c$204 #\,)))) + (eq? c$204 #\`)))) + (eq? c$204 #\')))) + (eq? c$204 #\;)))) + c$204)))) + (eof-object? c$204))))) + ptbl$196 + r$735)) + (+ 1 r$736))) + ptbl$196))))) + (define read-pound + (lambda (k$438 fp$183 ptbl$182) + ((lambda (done$187 loop$186) + ((lambda (done$187) + ((lambda (loop$186) + ((lambda () + ((lambda (r$456) + ((lambda (r$439) + ((lambda (r$442) + ((lambda (r$440) + ((lambda (r$441) + ((cell-get loop$186) k$438 r$441)) + '())) + (set-cell! loop$186 r$442))) + (lambda (k$443 buf$190) + ((lambda (c$191) + ((lambda (tmp$192) + ((lambda (k$449) + (if tmp$192 + (k$449 tmp$192) + ((lambda (k$453) + (char-whitespace? + (lambda (r$454) + (if r$454 + ((lambda (r$455) + (k$453 (> r$455 0))) + (length buf$190)) + (k$453 #f))) + c$191)) + (lambda (tmp$193) + (if tmp$193 + (k$449 tmp$193) + ((lambda (r$452) + ((lambda (r$451) + (if r$451 + (k$449 (equal? c$191 #\))) + (k$449 #f))) + (> r$452 0))) + (length buf$190))))))) + (lambda (r$445) + (if r$445 + ((lambda () + ((cell-get done$187) k$443 buf$190))) + ((lambda () + ((lambda (r$447) + ((lambda (r$446) + ((cell-get loop$186) k$443 r$446)) + (cons r$447 buf$190))) + (read-char fp$183)))))))) + (eof-object? c$191))) + (peek-char fp$183))))) + (set-cell! done$187 r$456))) + (lambda (k$457 raw-buf$194) + (reverse + (lambda (buf$195) + ((lambda (r$494) + ((lambda (r$459) + (if r$459 + ((lambda () + (in-port:get-lnum + (lambda (r$460) + (in-port:get-cnum + (lambda (r$461) + (parse-error + k$457 + "missing character" + r$460 + r$461)) + ptbl$182)) + ptbl$182))) + ((lambda (r$493) + ((lambda (r$462) + (if r$462 + ((lambda () (k$457 (car buf$195)))) + ((lambda (r$492) + ((lambda (r$463) + (if r$463 + ((lambda () (k$457 #\))) + ((lambda (r$491) + ((lambda (r$464) + (if r$464 + ((lambda () + (k$457 #\))) + ((lambda (r$490) + ((lambda (r$465) + (if r$465 + ((lambda () + (k$457 #\))) + ((lambda (r$489) + ((lambda (r$466) + (if r$466 + ((lambda () + (k$457 #\))) + ((lambda (r$488) + ((lambda (r$467) + (if r$467 + ((lambda () + (k$457 #\newline))) + ((lambda (r$487) + ((lambda (r$468) + (if r$468 + ((lambda () + (k$457 #\))) + ((lambda (r$486) + ((lambda (r$469) + (if r$469 + ((lambda () + (k$457 #\ ))) + ((lambda (r$485) + ((lambda (r$470) + (if r$470 + ((lambda () + (k$457 #\space))) + ((lambda (r$484) + ((lambda (r$471) + (if r$471 + ((lambda () + (k$457 #\ ))) + ((lambda (k$480) + ((lambda (r$483) + ((lambda (r$481) + (if r$481 + ((lambda (r$482) + (k$480 (equal? + r$482 + #\x))) + (car buf$195)) + (k$480 #f))) + (> r$483 + 1))) + (length + buf$195))) + (lambda (r$472) + (if r$472 + ((lambda () + ((lambda (r$475) + ((lambda (r$474) + ((lambda (r$473) + (k$457 (integer->char + r$473))) + (string->number + r$474 + 16))) + (list->string + r$475))) + (cdr buf$195)))) + ((lambda () + ((lambda (r$479) + ((lambda (r$476) + (in-port:get-lnum + (lambda (r$477) + (in-port:get-cnum + (lambda (r$478) + (parse-error + k$457 + r$476 + r$477 + r$478)) + ptbl$182)) + ptbl$182)) + (string-append + "unable to parse character: " + r$479))) + (list->string + buf$195))))))))) + (equal? + buf$195 + r$484))) + '(#\t + #\a + #\b)))) + (equal? + buf$195 + r$485))) + '(#\s + #\p + #\a + #\c + #\e)))) + (equal? + buf$195 + r$486))) + '(#\r + #\e + #\t + #\u + #\r + #\n)))) + (equal? + buf$195 + r$487))) + '(#\n + #\u + #\l + #\l)))) + (equal? + buf$195 + r$488))) + '(#\n + #\e + #\w + #\l + #\i + #\n + #\e)))) + (equal? + buf$195 + r$489))) + '(#\e + #\s + #\c + #\a + #\p + #\e)))) + (equal? + buf$195 + r$490))) + '(#\d + #\e + #\l + #\e + #\t + #\e)))) + (equal? buf$195 r$491))) + '(#\b + #\a + #\c + #\k + #\s + #\p + #\a + #\c + #\e)))) + (equal? buf$195 r$492))) + '(#\a #\l #\a #\r #\m)))) + (= 1 r$493))) + (length buf$195)))) + (= 0 r$494))) + (length buf$195))) + raw-buf$194)))))) + (cell loop$186))) + (cell done$187))) + #f + #f))) + (define read-str + (lambda (k$426 fp$180 buf$179 ptbl$178) + ((lambda (c$181) + ((lambda (r$428) + (if r$428 + ((lambda () + (in-port:get-lnum + (lambda (r$429) + (in-port:get-cnum + (lambda (r$430) + (parse-error + k$426 + "missing closing double-quote" + r$429 + r$430)) + ptbl$178)) + ptbl$178))) + ((lambda (r$431) + (if r$431 + ((lambda () + (read-str-esc + (lambda (r$432) + (read-str k$426 fp$180 r$432 ptbl$178)) + fp$180 + buf$179 + ptbl$178))) + ((lambda (r$433) + (if r$433 + ((lambda () + (reverse + (lambda (r$434) (k$426 (list->string r$434))) + buf$179))) + ((lambda () + ((lambda (r$435) + (read-str k$426 fp$180 r$435 ptbl$178)) + (cons c$181 buf$179)))))) + (equal? #\" c$181)))) + (equal? #\\ c$181)))) + (eof-object? c$181))) + (read-char fp$180)))) + (define read-str-esc + (lambda (k$410 fp$175 buf$174 ptbl$173) + ((lambda (c$176) + ((lambda (r$412) + (if r$412 + ((lambda () + (in-port:get-lnum + (lambda (r$413) + (in-port:get-cnum + (lambda (r$414) + (parse-error + k$410 + "missing escaped character within string" + r$413 + r$414)) + ptbl$173)) + ptbl$173))) + ((lambda (tmp$177) + ((lambda (k$423) + (if tmp$177 + (k$423 tmp$177) + (k$423 (equal? #\\ c$176)))) + (lambda (r$415) + (if r$415 + ((lambda () (k$410 (cons c$176 buf$174)))) + ((lambda (r$416) + (if r$416 + ((lambda () (k$410 (cons #\newline buf$174)))) + ((lambda () + (list (lambda (r$421) + ((lambda (r$420) + ((lambda (r$417) + (in-port:get-lnum + (lambda (r$418) + (in-port:get-cnum + (lambda (r$419) + (parse-error + k$410 + r$417 + r$418 + r$419)) + ptbl$173)) + ptbl$173)) + (string-append + "invalid escape character [" + r$420 + "] in string"))) + (list->string r$421))) + c$176))))) + (equal? #\n c$176)))))) + (equal? #\" c$176)))) + (eof-object? c$176))) + (read-char fp$175)))) + (define sign? + (lambda (k$406 c$171) + ((lambda (tmp$172) + (if tmp$172 + (k$406 tmp$172) + (k$406 (equal? c$171 #\-)))) + (equal? c$171 #\+)))) + (define token-numeric? + (lambda (k$386 a$167) + ((lambda (r$403) + (char-numeric? + (lambda (tmp$168) + (if tmp$168 + (k$386 tmp$168) + ((lambda (k$397) + ((lambda (r$402) + ((lambda (r$398) + (if r$398 + ((lambda (r$401) + ((lambda (r$399) + (if r$399 + ((lambda (r$400) (char-numeric? k$397 r$400)) + (cadr a$167)) + (k$397 #f))) + (eq? #\. r$401))) + (car a$167)) + (k$397 #f))) + (> r$402 1))) + (length a$167))) + (lambda (tmp$169) + (if tmp$169 + (k$386 tmp$169) + ((lambda (r$396) + ((lambda (r$389) + (if r$389 + ((lambda (r$395) + (char-numeric? + (lambda (tmp$170) + ((lambda (k$393) + (if tmp$170 + (k$393 tmp$170) + ((lambda (r$394) (k$393 (eq? #\. r$394))) + (cadr a$167)))) + (lambda (r$390) + (if r$390 + ((lambda (r$391) (sign? k$386 r$391)) + (car a$167)) + (k$386 #f))))) + r$395)) + (cadr a$167)) + (k$386 #f))) + (> r$396 1))) + (length a$167))))))) + r$403)) + (car a$167)))) + (define parse-atom + (lambda (k$380 a$166) + (token-numeric? + (lambda (r$381) + (if r$381 + ((lambda () + ((lambda (r$382) (k$380 (string->number r$382))) + (list->string a$166)))) + ((lambda () + ((lambda (r$383) (k$380 (string->symbol r$383))) + (list->string a$166)))))) + a$166))) + (define get-next-char + (lambda (k$376 fp$165 ptbl$164) + (in-port:get-buf + (lambda (r$377) + (if r$377 + (in-port:read-buf! k$376 ptbl$164) + (k$376 (read-char fp$165)))) + ptbl$164))) + (define read-block-comment + (lambda (k$371 fp$162 ptbl$161) + (get-next-char + (lambda (c$163) + ((lambda (r$373) + (if r$373 + ((lambda () + (read-block-terminator k$371 fp$162 ptbl$161))) + ((lambda () + (read-block-comment k$371 fp$162 ptbl$161))))) + (eq? #\| c$163))) + fp$162 + ptbl$161))) + (define read-block-terminator + (lambda (k$365 fp$159 ptbl$158) + (get-next-char + (lambda (c$160) + ((lambda (r$367) + (if r$367 + ((lambda () (k$365 #t))) + ((lambda (r$368) + (if r$368 + ((lambda () + (read-block-terminator k$365 fp$159 ptbl$158))) + ((lambda () + (read-block-comment k$365 fp$159 ptbl$158))))) + (eq? #\| c$160)))) + (eq? #\# c$160))) + fp$159 + ptbl$158))) + (define parse-literal-identifier + (lambda (k$358 + fp$156 + toks$155 + all?$154 + parens$153 + ptbl$152) + ((lambda (r$362) + (parse-li-rec + (lambda (sym$157) + (if all?$154 + ((lambda (r$360) + ((lambda (r$361) + (parse k$358 + fp$156 + r$360 + r$361 + all?$154 + #f + parens$153 + ptbl$152)) + (cons sym$157 toks$155))) + '()) + (k$358 sym$157))) + fp$156 + r$362 + ptbl$152)) + '()))) + (define parse-li-rec + (lambda (k$343 fp$147 tok$146 ptbl$145) + (get-next-char + (lambda (r$344) + ((lambda (r$345) + ((lambda (c$150 next$149) + ((lambda (r$346) + (if r$346 + ((lambda () + ((lambda (k$348) + ((lambda (r$349) + (if r$349 + (k$348 "||") + (reverse + (lambda (r$350) (k$348 (list->string r$350))) + tok$146))) + (null? tok$146))) + (lambda (str$151) + (k$343 (string->symbol str$151)))))) + ((lambda (r$351) + (if r$351 + ((lambda () + (in-port:get-lnum + (lambda (r$352) + (in-port:get-cnum + (lambda (r$353) + (parse-error + k$343 + "EOF encountered parsing literal identifier" + r$352 + r$353)) + ptbl$145)) + ptbl$145))) + ((lambda () (next$149 k$343 c$150))))) + (eof-object? c$150)))) + (eq? #\| c$150))) + r$344 + r$345)) + (lambda (k$354 c$148) + ((lambda (r$355) + (parse-li-rec k$354 fp$147 r$355 ptbl$145)) + (cons c$148 tok$146))))) + fp$147 + ptbl$145))) + (define parse-number + (lambda (k$325 + fp$141 + toks$140 + all?$139 + parens$138 + ptbl$137 + base$136 + tok->num$135) + ((lambda (r$340) + (parse-number-rec + (lambda (num$142) + ((lambda (k$333) + ((lambda (r$334) + (if r$334 + (k$333 #f) + (token-numeric? + (lambda (tmp$144) + (if tmp$144 + (k$333 tmp$144) + ((lambda (r$339) + ((lambda (r$336) + (if r$336 + ((lambda (r$337) + (if r$337 + ((lambda (r$338) + (hex-digit? k$333 r$338)) + (car num$142)) + (k$333 #f))) + (= base$136 16)) + (k$333 #f))) + (> r$339 0))) + (length num$142)))) + num$142))) + (null? num$142))) + (lambda (r$327) + (if r$327 + ((lambda () + (tok->num$135 + (lambda (result$143) + (if all?$139 + ((lambda (r$329) + ((lambda (r$330) + (parse k$325 + fp$141 + r$329 + r$330 + all?$139 + #f + parens$138 + ptbl$137)) + (cons result$143 toks$140))) + '()) + (k$325 result$143))) + num$142))) + ((lambda () + (in-port:get-lnum + (lambda (r$331) + (in-port:get-cnum + (lambda (r$332) + (parse-error + k$325 + "Illegal number syntax" + r$331 + r$332)) + ptbl$137)) + ptbl$137))))))) + base$136 + fp$141 + r$340 + ptbl$137)) + '()))) + (define parse-number-rec + (lambda (k$301 base$130 fp$129 tok$128 ptbl$127) + (get-next-char + (lambda (r$302) + ((lambda (r$303) + ((lambda (c$133 next$132) + (sign? (lambda (r$304) + (if r$304 + ((lambda () (next$132 k$301 c$133))) + ((lambda (r$305) + (if r$305 + ((lambda () (next$132 k$301 c$133))) + (char-numeric? + (lambda (r$306) + (if r$306 + ((lambda () + ((lambda (k$308) + ((lambda (k$315) + ((lambda (r$316) + (if r$316 + (char>? k$315 c$133 #\1) + (k$315 #f))) + (= base$130 2))) + (lambda (tmp$134) + ((lambda (k$313) + (if tmp$134 + (k$313 tmp$134) + ((lambda (r$314) + (if r$314 + (char>? k$313 c$133 #\7) + (k$313 #f))) + (= base$130 8)))) + (lambda (r$309) + (if r$309 + (in-port:get-lnum + (lambda (r$310) + (in-port:get-cnum + (lambda (r$311) + (parse-error + k$308 + "Illegal digit" + r$310 + r$311)) + ptbl$127)) + ptbl$127) + (k$308 #f))))))) + (lambda (r$307) + (next$132 k$301 c$133))))) + ((lambda (k$319) + ((lambda (r$320) + (if r$320 + (hex-digit? k$319 c$133) + (k$319 #f))) + (= base$130 16))) + (lambda (r$317) + (if r$317 + ((lambda () (next$132 k$301 c$133))) + ((lambda () + (in-port:set-buf! + (lambda (r$318) + (reverse k$301 tok$128)) + ptbl$127 + c$133)))))))) + c$133))) + (eq? #\. c$133)))) + c$133)) + r$302 + r$303)) + (lambda (k$321 c$131) + ((lambda (r$322) + (parse-number-rec + k$321 + base$130 + fp$129 + r$322 + ptbl$127)) + (cons c$131 tok$128))))) + fp$129 + ptbl$127))) + (define hex-digit? + (lambda (k$294 c$125) + ((lambda (k$297) + (char>=? + (lambda (r$298) + (if r$298 (char<=? k$297 c$125 #\f) (k$297 #f))) + c$125 + #\a)) + (lambda (tmp$126) + (if tmp$126 + (k$294 tmp$126) + (char>=? + (lambda (r$296) + (if r$296 (char<=? k$294 c$125 #\F) (k$294 #f))) + c$125 + #\A)))))) + (define cyc-read + (lambda (k$285 . args$123) + ((lambda (k$290) + ((lambda (r$291) + (if r$291 + (current-input-port k$290) + (k$290 (car args$123)))) + (null? args$123))) + (lambda (fp$124) + ((lambda (r$287) + ((lambda (r$288) + (reg-port + (lambda (r$289) + (parse k$285 fp$124 r$287 r$288 #f #f 0 r$289)) + fp$124)) + '())) + '()))))) + (define read-all + (lambda (k$272 . args$116) + ((lambda () + ((lambda (k$281) + ((lambda (r$282) + (if r$282 + (current-input-port k$281) + (k$281 (car args$116)))) + (null? args$116))) + (lambda (fp$118) + ((lambda (loop$119) + ((lambda (loop$119) + ((lambda (r$276) + ((lambda (r$274) + ((lambda (r$275) + ((cell-get loop$119) k$272 fp$118 r$275)) + '())) + (set-cell! loop$119 r$276))) + (lambda (k$277 fp$121 result$120) + (cyc-read + (lambda (obj$122) + ((lambda (r$279) + (if r$279 + (reverse k$277 result$120) + ((lambda (r$280) + ((cell-get loop$119) k$277 fp$121 r$280)) + (cons obj$122 result$120)))) + (eof-object? obj$122))) + fp$121)))) + (cell loop$119))) + #f))))))) + (define lib-init:schemeread + (lambda (k$266) + ((lambda () + ((lambda (r$268) + ((lambda (r$269) + (k$266 (set-global! *in-port-table* r$269))) + '())) + (set-global! read cyc-read))))))) + */ +/* +"---------------- after closure-convert:" + */ +/* +((define read (%closure-ref #f 0) #f) + (define *in-port-table* (%closure-ref #f 0) #f) + (define reg-port + (lambda (k$812 fp$262) + ((%closure + (lambda (self$1395 r$263) + ((%closure + (lambda (self$1396 r$263) + (if (cell-get r$263) + ((%closure + (lambda (self$1402) + ((%closure-ref (%closure-ref self$1402 1) 0) + (%closure-ref self$1402 1) + (cell-get (%closure-ref self$1402 2)))) + (%closure-ref self$1396 2) + r$263)) + ((%closure + (lambda (self$1397) + ((%closure-ref list 0) + list + (%closure + (lambda (self$1398 r$817) + ((%closure + (lambda (self$1399 r$814) + ((%closure + (lambda (self$1400 r$816) + ((%closure + (lambda (self$1401 r$815) + ((%closure-ref + (%closure-ref self$1401 1) + 0) + (%closure-ref self$1401 1) + (cell-get + (%closure-ref self$1401 2)))) + (%closure-ref self$1400 1) + (%closure-ref self$1400 2)) + (set-global! *in-port-table* r$816))) + (%closure-ref self$1399 1) + (%closure-ref self$1399 2)) + (cons (cell-get (%closure-ref self$1399 2)) + *in-port-table*))) + (%closure-ref self$1398 1) + (%closure-ref self$1398 2)) + (set-cell! (%closure-ref self$1398 2) r$817))) + (%closure-ref self$1397 2) + (%closure-ref self$1397 3)) + (%closure-ref self$1397 1) + #f + 1 + 0)) + (%closure-ref self$1396 1) + (%closure-ref self$1396 2) + r$263)))) + (%closure-ref self$1395 1) + (%closure-ref self$1395 2)) + (cell r$263))) + fp$262 + k$812) + (assoc fp$262 *in-port-table*)))) + (define in-port:read-buf! + (lambda (k$807 ptbl$260) + ((%closure + (lambda (self$1393 result$261) + ((%closure-ref in-port:set-buf! 0) + in-port:set-buf! + (%closure + (lambda (self$1394 r$809) + ((%closure-ref (%closure-ref self$1394 1) 0) + (%closure-ref self$1394 1) + (%closure-ref self$1394 2))) + (%closure-ref self$1393 1) + result$261) + (%closure-ref self$1393 2) + #f)) + k$807 + ptbl$260) + (cadr ptbl$260)))) + (define in-port:get-buf + (lambda (k$804 ptbl$259) + ((%closure-ref k$804 0) k$804 (cadr ptbl$259)))) + (define in-port:set-buf! + (lambda (k$800 ptbl$258 buf$257) + ((%closure + (lambda (self$1392 r$801) + ((%closure-ref (%closure-ref self$1392 2) 0) + (%closure-ref self$1392 2) + (set-car! r$801 (%closure-ref self$1392 1)))) + buf$257 + k$800) + (cdr ptbl$258)))) + (define in-port:get-lnum + (lambda (k$797 ptbl$256) + ((%closure-ref k$797 0) k$797 (caddr ptbl$256)))) + (define in-port:set-lnum! + (lambda (k$793 ptbl$255 lnum$254) + ((%closure + (lambda (self$1391 r$794) + ((%closure-ref (%closure-ref self$1391 1) 0) + (%closure-ref self$1391 1) + (set-car! r$794 (%closure-ref self$1391 2)))) + k$793 + lnum$254) + (cddr ptbl$255)))) + (define in-port:get-cnum + (lambda (k$790 ptbl$253) + ((%closure-ref k$790 0) k$790 (cadddr ptbl$253)))) + (define in-port:set-cnum! + (lambda (k$786 ptbl$252 cnum$251) + ((%closure + (lambda (self$1390 r$787) + ((%closure-ref (%closure-ref self$1390 2) 0) + (%closure-ref self$1390 2) + (set-car! r$787 (%closure-ref self$1390 1)))) + cnum$251 + k$786) + (cdddr ptbl$252)))) + (define add-tok + (lambda (k$783 tok$250 toks$249) + ((%closure-ref k$783 0) + k$783 + (cons tok$250 toks$249)))) + (define get-toks + (lambda (k$778 tok$248 toks$247) + ((%closure + (lambda (self$1388 r$779) + (if r$779 + ((%closure-ref (%closure-ref self$1388 1) 0) + (%closure-ref self$1388 1) + (%closure-ref self$1388 3)) + ((%closure-ref ->tok 0) + ->tok + (%closure + (lambda (self$1389 r$780) + ((%closure-ref add-tok 0) + add-tok + (%closure-ref self$1389 1) + r$780 + (%closure-ref self$1389 2))) + (%closure-ref self$1388 1) + (%closure-ref self$1388 3)) + (%closure-ref self$1388 2)))) + k$778 + tok$248 + toks$247) + (null? tok$248)))) + (define ->tok + (lambda (k$774 lst$246) + ((%closure-ref reverse 0) + reverse + (%closure + (lambda (self$1387 r$775) + ((%closure-ref parse-atom 0) + parse-atom + (%closure-ref self$1387 1) + r$775)) + k$774) + lst$246))) + (define dotted? + (lambda (k$766 lst$245) + ((%closure + (lambda (self$1382 r$771) + ((%closure + (lambda (self$1383 r$767) + (if r$767 + ((%closure-ref reverse 0) + reverse + (%closure + (lambda (self$1384 r$770) + ((%closure + (lambda (self$1385 r$768) + ((%closure + (lambda (self$1386 r$769) + ((%closure-ref (%closure-ref self$1386 1) 0) + (%closure-ref self$1386 1) + (equal? (%closure-ref self$1386 2) r$769))) + (%closure-ref self$1385 1) + r$768) + (string->symbol "."))) + (%closure-ref self$1384 1)) + (cadr r$770))) + (%closure-ref self$1383 1)) + (%closure-ref self$1383 2)) + ((%closure-ref (%closure-ref self$1383 1) 0) + (%closure-ref self$1383 1) + #f))) + (%closure-ref self$1382 1) + (%closure-ref self$1382 2)) + (> r$771 2))) + k$766 + lst$245) + (length lst$245)))) + (define ->dotted-list + (lambda (k$756 lst$244) + ((%closure + (lambda (self$1372 r$757) + (if r$757 + ((%closure + (lambda (self$1381) + ((%closure-ref (%closure-ref self$1381 1) 0) + (%closure-ref self$1381 1) + '())) + (%closure-ref self$1372 1))) + ((%closure + (lambda (self$1373 r$762) + ((%closure + (lambda (self$1374 r$763) + ((%closure + (lambda (self$1375 r$758) + (if r$758 + ((%closure + (lambda (self$1380) + ((%closure-ref (%closure-ref self$1380 1) 0) + (%closure-ref self$1380 1) + (cadr (%closure-ref self$1380 2)))) + (%closure-ref self$1375 1) + (%closure-ref self$1375 2))) + ((%closure + (lambda (self$1376) + ((%closure + (lambda (self$1377 r$759) + ((%closure + (lambda (self$1378 r$761) + ((%closure-ref ->dotted-list 0) + ->dotted-list + (%closure + (lambda (self$1379 r$760) + ((%closure-ref + (%closure-ref self$1379 1) + 0) + (%closure-ref self$1379 1) + (cons (%closure-ref + self$1379 + 2) + r$760))) + (%closure-ref self$1378 1) + (%closure-ref self$1378 2)) + r$761)) + (%closure-ref self$1377 1) + r$759) + (cdr (%closure-ref self$1377 2)))) + (%closure-ref self$1376 1) + (%closure-ref self$1376 2)) + (car (%closure-ref self$1376 2)))) + (%closure-ref self$1375 1) + (%closure-ref self$1375 2))))) + (%closure-ref self$1374 1) + (%closure-ref self$1374 2)) + (equal? (%closure-ref self$1374 3) r$763))) + (%closure-ref self$1373 1) + (%closure-ref self$1373 2) + r$762) + (string->symbol "."))) + (%closure-ref self$1372 1) + (%closure-ref self$1372 2)) + (car (%closure-ref self$1372 2))))) + k$756 + lst$244) + (null? lst$244)))) + (define parse-error + (lambda (k$750 msg$243 lnum$242 cnum$241) + ((%closure + (lambda (self$1369 r$752) + ((%closure + (lambda (self$1370 r$753) + ((%closure + (lambda (self$1371 r$751) + ((%closure-ref error 0) + error + (%closure-ref self$1371 1) + r$751)) + (%closure-ref self$1370 1)) + (string-append + "Error (line " + (%closure-ref self$1370 3) + ", char " + r$753 + "): " + (%closure-ref self$1370 2)))) + (%closure-ref self$1369 2) + (%closure-ref self$1369 3) + r$752) + (number->string (%closure-ref self$1369 1)))) + cnum$241 + k$750 + msg$243) + (number->string lnum$242)))) + (define parse/tok + (lambda (k$739 + fp$240 + tok$239 + toks$238 + all?$237 + comment?$236 + parens$235 + ptbl$234 + curr-char$233) + ((%closure + (lambda (self$1358 r$740) + (if r$740 + ((%closure + (lambda (self$1367) + ((%closure + (lambda (self$1368 r$741) + ((%closure-ref parse 0) + parse + (%closure-ref self$1368 4) + (%closure-ref self$1368 3) + r$741 + (%closure-ref self$1368 7) + (%closure-ref self$1368 1) + (%closure-ref self$1368 2) + (%closure-ref self$1368 5) + (%closure-ref self$1368 6))) + (%closure-ref self$1367 1) + (%closure-ref self$1367 2) + (%closure-ref self$1367 3) + (%closure-ref self$1367 4) + (%closure-ref self$1367 5) + (%closure-ref self$1367 6) + (%closure-ref self$1367 7)) + '())) + (%closure-ref self$1358 1) + (%closure-ref self$1358 2) + (%closure-ref self$1358 4) + (%closure-ref self$1358 5) + (%closure-ref self$1358 6) + (%closure-ref self$1358 7) + (%closure-ref self$1358 9))) + (if (%closure-ref self$1358 1) + ((%closure + (lambda (self$1363) + ((%closure + (lambda (self$1364 r$742) + ((%closure-ref ->tok 0) + ->tok + (%closure + (lambda (self$1365 r$744) + ((%closure-ref add-tok 0) + add-tok + (%closure + (lambda (self$1366 r$743) + ((%closure-ref parse 0) + parse + (%closure-ref self$1366 4) + (%closure-ref self$1366 3) + (%closure-ref self$1366 7) + r$743 + (%closure-ref self$1366 1) + (%closure-ref self$1366 2) + (%closure-ref self$1366 5) + (%closure-ref self$1366 6))) + (%closure-ref self$1365 1) + (%closure-ref self$1365 2) + (%closure-ref self$1365 3) + (%closure-ref self$1365 4) + (%closure-ref self$1365 5) + (%closure-ref self$1365 6) + (%closure-ref self$1365 7)) + r$744 + (%closure-ref self$1365 8))) + (%closure-ref self$1364 1) + (%closure-ref self$1364 2) + (%closure-ref self$1364 3) + (%closure-ref self$1364 4) + (%closure-ref self$1364 5) + (%closure-ref self$1364 6) + r$742 + (%closure-ref self$1364 8)) + (%closure-ref self$1364 7))) + (%closure-ref self$1363 1) + (%closure-ref self$1363 2) + (%closure-ref self$1363 3) + (%closure-ref self$1363 4) + (%closure-ref self$1363 5) + (%closure-ref self$1363 6) + (%closure-ref self$1363 7) + (%closure-ref self$1363 8)) + '())) + (%closure-ref self$1358 1) + (%closure-ref self$1358 2) + (%closure-ref self$1358 4) + (%closure-ref self$1358 5) + (%closure-ref self$1358 6) + (%closure-ref self$1358 7) + (%closure-ref self$1358 8) + (%closure-ref self$1358 9))) + ((%closure + (lambda (self$1359) + ((%closure-ref in-port:set-buf! 0) + in-port:set-buf! + (%closure + (lambda (self$1360 r$745) + ((%closure-ref ->tok 0) + ->tok + (%closure + (lambda (self$1361 r$747) + ((%closure-ref add-tok 0) + add-tok + (%closure + (lambda (self$1362 r$746) + ((%closure-ref (%closure-ref self$1362 1) 0) + (%closure-ref self$1362 1) + (car r$746))) + (%closure-ref self$1361 1)) + r$747 + (%closure-ref self$1361 2))) + (%closure-ref self$1360 1) + (%closure-ref self$1360 3)) + (%closure-ref self$1360 2))) + (%closure-ref self$1359 2) + (%closure-ref self$1359 4) + (%closure-ref self$1359 5)) + (%closure-ref self$1359 3) + (%closure-ref self$1359 1))) + (%closure-ref self$1358 3) + (%closure-ref self$1358 5) + (%closure-ref self$1358 7) + (%closure-ref self$1358 8) + (%closure-ref self$1358 9)))))) + all?$237 + comment?$236 + curr-char$233 + fp$240 + k$739 + parens$235 + ptbl$234 + tok$239 + toks$238) + (null? tok$239)))) + (define parse + (lambda (k$497 + fp$202 + tok$201 + toks$200 + all?$199 + comment?$198 + parens$197 + ptbl$196) + ((%closure + (lambda (self$1051) + ((%closure-ref in-port:get-cnum 0) + in-port:get-cnum + (%closure + (lambda (self$1052 r$736) + ((%closure + (lambda (self$1053 r$735) + ((%closure-ref in-port:set-cnum! 0) + in-port:set-cnum! + (%closure + (lambda (self$1054 r$498) + ((%closure + (lambda (self$1356 k$733) + ((%closure-ref in-port:get-buf 0) + in-port:get-buf + (%closure + (lambda (self$1357 r$734) + (if r$734 + ((%closure-ref in-port:read-buf! 0) + in-port:read-buf! + (%closure-ref self$1357 2) + (%closure-ref self$1357 3)) + ((%closure-ref + (%closure-ref self$1357 2) + 0) + (%closure-ref self$1357 2) + (read-char (%closure-ref self$1357 1))))) + (%closure-ref self$1356 1) + k$733 + (%closure-ref self$1356 2)) + (%closure-ref self$1356 2))) + (%closure-ref self$1054 3) + (%closure-ref self$1054 6)) + (%closure + (lambda (self$1055 c$204) + ((%closure + (lambda (self$1056 r$500) + (if r$500 + ((%closure + (lambda (self$1346) + ((%closure + (lambda (self$1352 k$506) + ((%closure + (lambda (self$1353 r$507) + (if r$507 + ((%closure-ref + in-port:get-lnum + 0) + in-port:get-lnum + (%closure + (lambda (self$1354 + r$508) + ((%closure-ref + in-port:get-cnum + 0) + in-port:get-cnum + (%closure + (lambda (self$1355 + r$509) + ((%closure-ref + parse-error + 0) + parse-error + (%closure-ref + self$1355 + 1) + "missing closing parenthesis" + (%closure-ref + self$1355 + 2) + r$509)) + (%closure-ref + self$1354 + 1) + r$508) + (%closure-ref + self$1354 + 2))) + (%closure-ref + self$1353 + 1) + (%closure-ref + self$1353 + 2)) + (%closure-ref + self$1353 + 2)) + ((%closure-ref + (%closure-ref + self$1353 + 1) + 0) + (%closure-ref + self$1353 + 1) + #f))) + k$506 + (%closure-ref self$1352 2)) + (> (%closure-ref self$1352 1) + 0))) + (%closure-ref self$1346 4) + (%closure-ref self$1346 5)) + (%closure + (lambda (self$1347 r$501) + (if (%closure-ref self$1347 1) + ((%closure-ref get-toks 0) + get-toks + (%closure + (lambda (self$1351 r$502) + ((%closure-ref reverse 0) + reverse + (%closure-ref + self$1351 + 1) + r$502)) + (%closure-ref self$1347 3)) + (%closure-ref self$1347 4) + (%closure-ref self$1347 5)) + ((%closure-ref get-toks 0) + get-toks + (%closure + (lambda (self$1348 last$232) + ((%closure + (lambda (self$1349 + r$505) + ((%closure + (lambda (self$1350 + r$504) + (if r$504 + ((%closure-ref + (%closure-ref + self$1350 + 2) + 0) + (%closure-ref + self$1350 + 2) + (car (%closure-ref + self$1350 + 3))) + ((%closure-ref + (%closure-ref + self$1350 + 2) + 0) + (%closure-ref + self$1350 + 2) + (%closure-ref + self$1350 + 1)))) + (%closure-ref + self$1349 + 1) + (%closure-ref + self$1349 + 2) + (%closure-ref + self$1349 + 3)) + (> r$505 0))) + (%closure-ref + self$1348 + 1) + (%closure-ref + self$1348 + 2) + last$232) + (length last$232))) + (%closure-ref self$1347 2) + (%closure-ref self$1347 3)) + (%closure-ref self$1347 4) + (%closure-ref self$1347 5)))) + (%closure-ref self$1346 1) + (%closure-ref self$1346 2) + (%closure-ref self$1346 3) + (%closure-ref self$1346 6) + (%closure-ref self$1346 7)))) + (%closure-ref self$1056 1) + (%closure-ref self$1056 2) + (%closure-ref self$1056 5) + (%closure-ref self$1056 6) + (%closure-ref self$1056 7) + (%closure-ref self$1056 8) + (%closure-ref self$1056 9))) + (if (%closure-ref self$1056 3) + ((%closure + (lambda (self$1337) + ((%closure + (lambda (self$1338 r$510) + (if r$510 + ((%closure + (lambda (self$1340) + ((%closure-ref + in-port:get-lnum + 0) + in-port:get-lnum + (%closure + (lambda (self$1341 + r$515) + ((%closure + (lambda (self$1342 + r$514) + ((%closure-ref + in-port:set-lnum! + 0) + in-port:set-lnum! + (%closure + (lambda (self$1343 + r$511) + ((%closure-ref + in-port:set-cnum! + 0) + in-port:set-cnum! + (%closure + (lambda (self$1344 + r$512) + ((%closure + (lambda (self$1345 + r$513) + ((%closure-ref + parse + 0) + parse + (%closure-ref + self$1345 + 3) + (%closure-ref + self$1345 + 2) + r$513 + (%closure-ref + self$1345 + 6) + (%closure-ref + self$1345 + 1) + #f + (%closure-ref + self$1345 + 4) + (%closure-ref + self$1345 + 5))) + (%closure-ref + self$1344 + 1) + (%closure-ref + self$1344 + 2) + (%closure-ref + self$1344 + 3) + (%closure-ref + self$1344 + 4) + (%closure-ref + self$1344 + 5) + (%closure-ref + self$1344 + 6)) + '())) + (%closure-ref + self$1343 + 1) + (%closure-ref + self$1343 + 2) + (%closure-ref + self$1343 + 3) + (%closure-ref + self$1343 + 4) + (%closure-ref + self$1343 + 5) + (%closure-ref + self$1343 + 6)) + (%closure-ref + self$1343 + 5) + 0)) + (%closure-ref + self$1342 + 1) + (%closure-ref + self$1342 + 2) + (%closure-ref + self$1342 + 3) + (%closure-ref + self$1342 + 4) + (%closure-ref + self$1342 + 5) + (%closure-ref + self$1342 + 6)) + (%closure-ref + self$1342 + 5) + r$514)) + (%closure-ref + self$1341 + 1) + (%closure-ref + self$1341 + 2) + (%closure-ref + self$1341 + 3) + (%closure-ref + self$1341 + 4) + (%closure-ref + self$1341 + 5) + (%closure-ref + self$1341 + 6)) + (+ 1 r$515))) + (%closure-ref + self$1340 + 1) + (%closure-ref + self$1340 + 2) + (%closure-ref + self$1340 + 3) + (%closure-ref + self$1340 + 4) + (%closure-ref + self$1340 + 5) + (%closure-ref + self$1340 + 6)) + (%closure-ref + self$1340 + 5))) + (%closure-ref self$1338 1) + (%closure-ref self$1338 2) + (%closure-ref self$1338 3) + (%closure-ref self$1338 4) + (%closure-ref self$1338 5) + (%closure-ref + self$1338 + 6))) + ((%closure + (lambda (self$1339 r$516) + ((%closure-ref parse 0) + parse + (%closure-ref + self$1339 + 3) + (%closure-ref + self$1339 + 2) + r$516 + (%closure-ref + self$1339 + 6) + (%closure-ref + self$1339 + 1) + #t + (%closure-ref + self$1339 + 4) + (%closure-ref + self$1339 + 5))) + (%closure-ref self$1338 1) + (%closure-ref self$1338 2) + (%closure-ref self$1338 3) + (%closure-ref self$1338 4) + (%closure-ref self$1338 5) + (%closure-ref + self$1338 + 6)) + '()))) + (%closure-ref self$1337 1) + (%closure-ref self$1337 3) + (%closure-ref self$1337 4) + (%closure-ref self$1337 5) + (%closure-ref self$1337 6) + (%closure-ref self$1337 7)) + (eq? (%closure-ref self$1337 2) + #\newline))) + (%closure-ref self$1056 1) + (%closure-ref self$1056 2) + (%closure-ref self$1056 4) + (%closure-ref self$1056 5) + (%closure-ref self$1056 6) + (%closure-ref self$1056 7) + (%closure-ref self$1056 9))) + ((%closure-ref char-whitespace? 0) + char-whitespace? + (%closure + (lambda (self$1057 r$517) + (if r$517 + ((%closure + (lambda (self$1328) + ((%closure + (lambda (self$1333 k$522) + ((%closure + (lambda (self$1334 + r$523) + (if r$523 + ((%closure-ref + in-port:get-lnum + 0) + in-port:get-lnum + (%closure + (lambda (self$1335 + r$525) + ((%closure + (lambda (self$1336 + r$524) + ((%closure-ref + in-port:set-lnum! + 0) + in-port:set-lnum! + (%closure-ref + self$1336 + 1) + (%closure-ref + self$1336 + 2) + r$524)) + (%closure-ref + self$1335 + 1) + (%closure-ref + self$1335 + 2)) + (+ 1 + r$525))) + (%closure-ref + self$1334 + 1) + (%closure-ref + self$1334 + 2)) + (%closure-ref + self$1334 + 2)) + ((%closure-ref + (%closure-ref + self$1334 + 1) + 0) + (%closure-ref + self$1334 + 1) + #f))) + k$522 + (%closure-ref + self$1333 + 2)) + (equal? + (%closure-ref + self$1333 + 1) + #\newline))) + (%closure-ref self$1328 2) + (%closure-ref + self$1328 + 6)) + (%closure + (lambda (self$1329 r$518) + ((%closure + (lambda (self$1331 + k$520) + ((%closure + (lambda (self$1332 + r$521) + (if r$521 + ((%closure-ref + in-port:set-cnum! + 0) + in-port:set-cnum! + (%closure-ref + self$1332 + 1) + (%closure-ref + self$1332 + 2) + 0) + ((%closure-ref + (%closure-ref + self$1332 + 1) + 0) + (%closure-ref + self$1332 + 1) + #f))) + k$520 + (%closure-ref + self$1331 + 2)) + (equal? + (%closure-ref + self$1331 + 1) + #\newline))) + (%closure-ref + self$1329 + 2) + (%closure-ref + self$1329 + 6)) + (%closure + (lambda (self$1330 + r$519) + ((%closure-ref + parse/tok + 0) + parse/tok + (%closure-ref + self$1330 + 4) + (%closure-ref + self$1330 + 3) + (%closure-ref + self$1330 + 7) + (%closure-ref + self$1330 + 8) + (%closure-ref + self$1330 + 1) + #f + (%closure-ref + self$1330 + 5) + (%closure-ref + self$1330 + 6) + (%closure-ref + self$1330 + 2))) + (%closure-ref + self$1329 + 1) + (%closure-ref + self$1329 + 2) + (%closure-ref + self$1329 + 3) + (%closure-ref + self$1329 + 4) + (%closure-ref + self$1329 + 5) + (%closure-ref + self$1329 + 6) + (%closure-ref + self$1329 + 7) + (%closure-ref + self$1329 + 8)))) + (%closure-ref self$1328 1) + (%closure-ref self$1328 2) + (%closure-ref self$1328 3) + (%closure-ref self$1328 4) + (%closure-ref self$1328 5) + (%closure-ref self$1328 6) + (%closure-ref self$1328 7) + (%closure-ref + self$1328 + 8)))) + (%closure-ref self$1057 1) + (%closure-ref self$1057 2) + (%closure-ref self$1057 3) + (%closure-ref self$1057 4) + (%closure-ref self$1057 5) + (%closure-ref self$1057 6) + (%closure-ref self$1057 7) + (%closure-ref self$1057 8))) + ((%closure + (lambda (self$1058 r$526) + (if r$526 + ((%closure + (lambda (self$1327) + ((%closure-ref + parse/tok + 0) + parse/tok + (%closure-ref + self$1327 + 4) + (%closure-ref + self$1327 + 3) + (%closure-ref + self$1327 + 7) + (%closure-ref + self$1327 + 8) + (%closure-ref + self$1327 + 1) + #t + (%closure-ref + self$1327 + 5) + (%closure-ref + self$1327 + 6) + (%closure-ref + self$1327 + 2))) + (%closure-ref + self$1058 + 1) + (%closure-ref + self$1058 + 2) + (%closure-ref + self$1058 + 3) + (%closure-ref + self$1058 + 4) + (%closure-ref + self$1058 + 5) + (%closure-ref + self$1058 + 6) + (%closure-ref + self$1058 + 7) + (%closure-ref + self$1058 + 8))) + ((%closure + (lambda (self$1059 + r$527) + (if r$527 + ((%closure + (lambda (self$1307) + ((%closure + (lambda (self$1325 + k$541) + (if (%closure-ref + self$1325 + 1) + ((%closure-ref + k$541 + 0) + k$541 + #f) + ((%closure + (lambda (self$1326 + r$542) + ((%closure-ref + not + 0) + not + (%closure-ref + self$1326 + 1) + r$542)) + k$541) + (null? (%closure-ref + self$1325 + 2))))) + (%closure-ref + self$1307 + 1) + (%closure-ref + self$1307 + 7)) + (%closure + (lambda (self$1308 + r$528) + (if r$528 + ((%closure + (lambda (self$1321) + ((%closure-ref + in-port:set-buf! + 0) + in-port:set-buf! + (%closure + (lambda (self$1322 + r$529) + ((%closure-ref + ->tok + 0) + ->tok + (%closure + (lambda (self$1323 + r$531) + ((%closure-ref + add-tok + 0) + add-tok + (%closure + (lambda (self$1324 + r$530) + ((%closure-ref + (%closure-ref + self$1324 + 1) + 0) + (%closure-ref + self$1324 + 1) + (car r$530))) + (%closure-ref + self$1323 + 1)) + r$531 + (%closure-ref + self$1323 + 2))) + (%closure-ref + self$1322 + 1) + (%closure-ref + self$1322 + 3)) + (%closure-ref + self$1322 + 2))) + (%closure-ref + self$1321 + 2) + (%closure-ref + self$1321 + 4) + (%closure-ref + self$1321 + 5)) + (%closure-ref + self$1321 + 3) + (%closure-ref + self$1321 + 1))) + (%closure-ref + self$1308 + 2) + (%closure-ref + self$1308 + 4) + (%closure-ref + self$1308 + 6) + (%closure-ref + self$1308 + 7) + (%closure-ref + self$1308 + 8))) + ((%closure + (lambda (self$1309) + ((%closure + (lambda (self$1310 + r$539) + ((%closure + (lambda (self$1311 + r$540) + ((%closure-ref + parse + 0) + parse + (%closure + (lambda (self$1312 + sub$230) + ((%closure + (lambda (self$1313 + new-toks$231) + ((%closure + (lambda (self$1314 + new-toks$231) + ((%closure + (lambda (self$1315 + r$538) + ((%closure-ref + list + 0) + list + (%closure + (lambda (self$1316 + r$536) + ((%closure-ref + get-toks + 0) + get-toks + (%closure + (lambda (self$1317 + r$537) + ((%closure-ref + add-tok + 0) + add-tok + (%closure + (lambda (self$1318 + r$535) + ((%closure + (lambda (self$1319 + r$533) + (if (%closure-ref + self$1319 + 1) + ((%closure + (lambda (self$1320 + r$534) + ((%closure-ref + parse + 0) + parse + (%closure-ref + self$1320 + 3) + (%closure-ref + self$1320 + 2) + r$534 + (cell-get + (%closure-ref + self$1320 + 4)) + (%closure-ref + self$1320 + 1) + #f + (%closure-ref + self$1320 + 5) + (%closure-ref + self$1320 + 6))) + (%closure-ref + self$1319 + 1) + (%closure-ref + self$1319 + 2) + (%closure-ref + self$1319 + 3) + (%closure-ref + self$1319 + 4) + (%closure-ref + self$1319 + 5) + (%closure-ref + self$1319 + 6)) + '()) + ((%closure-ref + (%closure-ref + self$1319 + 3) + 0) + (%closure-ref + self$1319 + 3) + (car (cell-get + (%closure-ref + self$1319 + 4)))))) + (%closure-ref + self$1318 + 1) + (%closure-ref + self$1318 + 2) + (%closure-ref + self$1318 + 3) + (%closure-ref + self$1318 + 4) + (%closure-ref + self$1318 + 5) + (%closure-ref + self$1318 + 6)) + (set-cell! + (%closure-ref + self$1318 + 4) + r$535))) + (%closure-ref + self$1317 + 1) + (%closure-ref + self$1317 + 2) + (%closure-ref + self$1317 + 3) + (%closure-ref + self$1317 + 4) + (%closure-ref + self$1317 + 5) + (%closure-ref + self$1317 + 6)) + (%closure-ref + self$1317 + 7) + r$537)) + (%closure-ref + self$1316 + 1) + (%closure-ref + self$1316 + 2) + (%closure-ref + self$1316 + 3) + (%closure-ref + self$1316 + 4) + (%closure-ref + self$1316 + 5) + (%closure-ref + self$1316 + 6) + r$536) + (%closure-ref + self$1316 + 7) + (%closure-ref + self$1316 + 8))) + (%closure-ref + self$1315 + 1) + (%closure-ref + self$1315 + 2) + (%closure-ref + self$1315 + 3) + (%closure-ref + self$1315 + 4) + (%closure-ref + self$1315 + 5) + (%closure-ref + self$1315 + 6) + (%closure-ref + self$1315 + 8) + (%closure-ref + self$1315 + 9)) + r$538 + (%closure-ref + self$1315 + 7))) + (%closure-ref + self$1314 + 1) + (%closure-ref + self$1314 + 2) + (%closure-ref + self$1314 + 3) + new-toks$231 + (%closure-ref + self$1314 + 4) + (%closure-ref + self$1314 + 5) + (%closure-ref + self$1314 + 6) + (%closure-ref + self$1314 + 7) + (%closure-ref + self$1314 + 8)) + 'quote)) + (%closure-ref + self$1313 + 1) + (%closure-ref + self$1313 + 2) + (%closure-ref + self$1313 + 3) + (%closure-ref + self$1313 + 4) + (%closure-ref + self$1313 + 5) + (%closure-ref + self$1313 + 6) + (%closure-ref + self$1313 + 7) + (%closure-ref + self$1313 + 8)) + (cell new-toks$231))) + (%closure-ref + self$1312 + 1) + (%closure-ref + self$1312 + 2) + (%closure-ref + self$1312 + 3) + (%closure-ref + self$1312 + 4) + (%closure-ref + self$1312 + 5) + sub$230 + (%closure-ref + self$1312 + 6) + (%closure-ref + self$1312 + 7)) + #f)) + (%closure-ref + self$1311 + 1) + (%closure-ref + self$1311 + 2) + (%closure-ref + self$1311 + 3) + (%closure-ref + self$1311 + 4) + (%closure-ref + self$1311 + 5) + (%closure-ref + self$1311 + 7) + (%closure-ref + self$1311 + 8)) + (%closure-ref + self$1311 + 2) + (%closure-ref + self$1311 + 6) + r$540 + #f + #f + 0 + (%closure-ref + self$1311 + 5))) + (%closure-ref + self$1310 + 1) + (%closure-ref + self$1310 + 2) + (%closure-ref + self$1310 + 3) + (%closure-ref + self$1310 + 4) + (%closure-ref + self$1310 + 5) + r$539 + (%closure-ref + self$1310 + 6) + (%closure-ref + self$1310 + 7)) + '())) + (%closure-ref + self$1309 + 1) + (%closure-ref + self$1309 + 2) + (%closure-ref + self$1309 + 3) + (%closure-ref + self$1309 + 4) + (%closure-ref + self$1309 + 5) + (%closure-ref + self$1309 + 6) + (%closure-ref + self$1309 + 7)) + '())) + (%closure-ref + self$1308 + 1) + (%closure-ref + self$1308 + 3) + (%closure-ref + self$1308 + 4) + (%closure-ref + self$1308 + 5) + (%closure-ref + self$1308 + 6) + (%closure-ref + self$1308 + 7) + (%closure-ref + self$1308 + 8))))) + (%closure-ref + self$1307 + 1) + (%closure-ref + self$1307 + 2) + (%closure-ref + self$1307 + 3) + (%closure-ref + self$1307 + 4) + (%closure-ref + self$1307 + 5) + (%closure-ref + self$1307 + 6) + (%closure-ref + self$1307 + 7) + (%closure-ref + self$1307 + 8)))) + (%closure-ref + self$1059 + 1) + (%closure-ref + self$1059 + 2) + (%closure-ref + self$1059 + 3) + (%closure-ref + self$1059 + 4) + (%closure-ref + self$1059 + 5) + (%closure-ref + self$1059 + 6) + (%closure-ref + self$1059 + 7) + (%closure-ref + self$1059 + 8))) + ((%closure + (lambda (self$1060 + r$543) + (if r$543 + ((%closure + (lambda (self$1287) + ((%closure + (lambda (self$1305 + k$557) + (if (%closure-ref + self$1305 + 1) + ((%closure-ref + k$557 + 0) + k$557 + #f) + ((%closure + (lambda (self$1306 + r$558) + ((%closure-ref + not + 0) + not + (%closure-ref + self$1306 + 1) + r$558)) + k$557) + (null? (%closure-ref + self$1305 + 2))))) + (%closure-ref + self$1287 + 1) + (%closure-ref + self$1287 + 7)) + (%closure + (lambda (self$1288 + r$544) + (if r$544 + ((%closure + (lambda (self$1301) + ((%closure-ref + in-port:set-buf! + 0) + in-port:set-buf! + (%closure + (lambda (self$1302 + r$545) + ((%closure-ref + ->tok + 0) + ->tok + (%closure + (lambda (self$1303 + r$547) + ((%closure-ref + add-tok + 0) + add-tok + (%closure + (lambda (self$1304 + r$546) + ((%closure-ref + (%closure-ref + self$1304 + 1) + 0) + (%closure-ref + self$1304 + 1) + (car r$546))) + (%closure-ref + self$1303 + 1)) + r$547 + (%closure-ref + self$1303 + 2))) + (%closure-ref + self$1302 + 1) + (%closure-ref + self$1302 + 3)) + (%closure-ref + self$1302 + 2))) + (%closure-ref + self$1301 + 2) + (%closure-ref + self$1301 + 4) + (%closure-ref + self$1301 + 5)) + (%closure-ref + self$1301 + 3) + (%closure-ref + self$1301 + 1))) + (%closure-ref + self$1288 + 2) + (%closure-ref + self$1288 + 4) + (%closure-ref + self$1288 + 6) + (%closure-ref + self$1288 + 7) + (%closure-ref + self$1288 + 8))) + ((%closure + (lambda (self$1289) + ((%closure + (lambda (self$1290 + r$555) + ((%closure + (lambda (self$1291 + r$556) + ((%closure-ref + parse + 0) + parse + (%closure + (lambda (self$1292 + sub$228) + ((%closure + (lambda (self$1293 + new-toks$229) + ((%closure + (lambda (self$1294 + new-toks$229) + ((%closure + (lambda (self$1295 + r$554) + ((%closure-ref + list + 0) + list + (%closure + (lambda (self$1296 + r$552) + ((%closure-ref + get-toks + 0) + get-toks + (%closure + (lambda (self$1297 + r$553) + ((%closure-ref + add-tok + 0) + add-tok + (%closure + (lambda (self$1298 + r$551) + ((%closure + (lambda (self$1299 + r$549) + (if (%closure-ref + self$1299 + 1) + ((%closure + (lambda (self$1300 + r$550) + ((%closure-ref + parse + 0) + parse + (%closure-ref + self$1300 + 3) + (%closure-ref + self$1300 + 2) + r$550 + (cell-get + (%closure-ref + self$1300 + 4)) + (%closure-ref + self$1300 + 1) + #f + (%closure-ref + self$1300 + 5) + (%closure-ref + self$1300 + 6))) + (%closure-ref + self$1299 + 1) + (%closure-ref + self$1299 + 2) + (%closure-ref + self$1299 + 3) + (%closure-ref + self$1299 + 4) + (%closure-ref + self$1299 + 5) + (%closure-ref + self$1299 + 6)) + '()) + ((%closure-ref + (%closure-ref + self$1299 + 3) + 0) + (%closure-ref + self$1299 + 3) + (car (cell-get + (%closure-ref + self$1299 + 4)))))) + (%closure-ref + self$1298 + 1) + (%closure-ref + self$1298 + 2) + (%closure-ref + self$1298 + 3) + (%closure-ref + self$1298 + 4) + (%closure-ref + self$1298 + 5) + (%closure-ref + self$1298 + 6)) + (set-cell! + (%closure-ref + self$1298 + 4) + r$551))) + (%closure-ref + self$1297 + 1) + (%closure-ref + self$1297 + 2) + (%closure-ref + self$1297 + 3) + (%closure-ref + self$1297 + 4) + (%closure-ref + self$1297 + 5) + (%closure-ref + self$1297 + 6)) + (%closure-ref + self$1297 + 7) + r$553)) + (%closure-ref + self$1296 + 1) + (%closure-ref + self$1296 + 2) + (%closure-ref + self$1296 + 3) + (%closure-ref + self$1296 + 4) + (%closure-ref + self$1296 + 5) + (%closure-ref + self$1296 + 6) + r$552) + (%closure-ref + self$1296 + 7) + (%closure-ref + self$1296 + 8))) + (%closure-ref + self$1295 + 1) + (%closure-ref + self$1295 + 2) + (%closure-ref + self$1295 + 3) + (%closure-ref + self$1295 + 4) + (%closure-ref + self$1295 + 5) + (%closure-ref + self$1295 + 6) + (%closure-ref + self$1295 + 8) + (%closure-ref + self$1295 + 9)) + r$554 + (%closure-ref + self$1295 + 7))) + (%closure-ref + self$1294 + 1) + (%closure-ref + self$1294 + 2) + (%closure-ref + self$1294 + 3) + new-toks$229 + (%closure-ref + self$1294 + 4) + (%closure-ref + self$1294 + 5) + (%closure-ref + self$1294 + 6) + (%closure-ref + self$1294 + 7) + (%closure-ref + self$1294 + 8)) + 'quasiquote)) + (%closure-ref + self$1293 + 1) + (%closure-ref + self$1293 + 2) + (%closure-ref + self$1293 + 3) + (%closure-ref + self$1293 + 4) + (%closure-ref + self$1293 + 5) + (%closure-ref + self$1293 + 6) + (%closure-ref + self$1293 + 7) + (%closure-ref + self$1293 + 8)) + (cell new-toks$229))) + (%closure-ref + self$1292 + 1) + (%closure-ref + self$1292 + 2) + (%closure-ref + self$1292 + 3) + (%closure-ref + self$1292 + 4) + (%closure-ref + self$1292 + 5) + sub$228 + (%closure-ref + self$1292 + 6) + (%closure-ref + self$1292 + 7)) + #f)) + (%closure-ref + self$1291 + 1) + (%closure-ref + self$1291 + 2) + (%closure-ref + self$1291 + 3) + (%closure-ref + self$1291 + 4) + (%closure-ref + self$1291 + 5) + (%closure-ref + self$1291 + 7) + (%closure-ref + self$1291 + 8)) + (%closure-ref + self$1291 + 2) + (%closure-ref + self$1291 + 6) + r$556 + #f + #f + 0 + (%closure-ref + self$1291 + 5))) + (%closure-ref + self$1290 + 1) + (%closure-ref + self$1290 + 2) + (%closure-ref + self$1290 + 3) + (%closure-ref + self$1290 + 4) + (%closure-ref + self$1290 + 5) + r$555 + (%closure-ref + self$1290 + 6) + (%closure-ref + self$1290 + 7)) + '())) + (%closure-ref + self$1289 + 1) + (%closure-ref + self$1289 + 2) + (%closure-ref + self$1289 + 3) + (%closure-ref + self$1289 + 4) + (%closure-ref + self$1289 + 5) + (%closure-ref + self$1289 + 6) + (%closure-ref + self$1289 + 7)) + '())) + (%closure-ref + self$1288 + 1) + (%closure-ref + self$1288 + 3) + (%closure-ref + self$1288 + 4) + (%closure-ref + self$1288 + 5) + (%closure-ref + self$1288 + 6) + (%closure-ref + self$1288 + 7) + (%closure-ref + self$1288 + 8))))) + (%closure-ref + self$1287 + 1) + (%closure-ref + self$1287 + 2) + (%closure-ref + self$1287 + 3) + (%closure-ref + self$1287 + 4) + (%closure-ref + self$1287 + 5) + (%closure-ref + self$1287 + 6) + (%closure-ref + self$1287 + 7) + (%closure-ref + self$1287 + 8)))) + (%closure-ref + self$1060 + 1) + (%closure-ref + self$1060 + 2) + (%closure-ref + self$1060 + 3) + (%closure-ref + self$1060 + 4) + (%closure-ref + self$1060 + 5) + (%closure-ref + self$1060 + 6) + (%closure-ref + self$1060 + 7) + (%closure-ref + self$1060 + 8))) + ((%closure + (lambda (self$1061 + r$559) + (if r$559 + ((%closure + (lambda (self$1247) + ((%closure + (lambda (self$1285 + k$587) + (if (%closure-ref + self$1285 + 1) + ((%closure-ref + k$587 + 0) + k$587 + #f) + ((%closure + (lambda (self$1286 + r$588) + ((%closure-ref + not + 0) + not + (%closure-ref + self$1286 + 1) + r$588)) + k$587) + (null? (%closure-ref + self$1285 + 2))))) + (%closure-ref + self$1247 + 1) + (%closure-ref + self$1247 + 7)) + (%closure + (lambda (self$1248 + r$560) + (if r$560 + ((%closure + (lambda (self$1281) + ((%closure-ref + in-port:set-buf! + 0) + in-port:set-buf! + (%closure + (lambda (self$1282 + r$561) + ((%closure-ref + ->tok + 0) + ->tok + (%closure + (lambda (self$1283 + r$563) + ((%closure-ref + add-tok + 0) + add-tok + (%closure + (lambda (self$1284 + r$562) + ((%closure-ref + (%closure-ref + self$1284 + 1) + 0) + (%closure-ref + self$1284 + 1) + (car r$562))) + (%closure-ref + self$1283 + 1)) + r$563 + (%closure-ref + self$1283 + 2))) + (%closure-ref + self$1282 + 1) + (%closure-ref + self$1282 + 3)) + (%closure-ref + self$1282 + 2))) + (%closure-ref + self$1281 + 2) + (%closure-ref + self$1281 + 4) + (%closure-ref + self$1281 + 5)) + (%closure-ref + self$1281 + 3) + (%closure-ref + self$1281 + 1))) + (%closure-ref + self$1248 + 2) + (%closure-ref + self$1248 + 4) + (%closure-ref + self$1248 + 6) + (%closure-ref + self$1248 + 7) + (%closure-ref + self$1248 + 8))) + ((%closure + (lambda (self$1249) + ((%closure + (lambda (self$1250 + sub$227 + next-c$226 + unquote-sym$225 + new-toks$224) + ((%closure + (lambda (self$1251 + sub$227) + ((%closure + (lambda (self$1252 + next-c$226) + ((%closure + (lambda (self$1253 + unquote-sym$225) + ((%closure + (lambda (self$1254 + new-toks$224) + ((%closure + (lambda (self$1255 + r$564) + ((%closure + (lambda (self$1256 + r$586) + ((%closure + (lambda (self$1257 + r$565) + ((%closure + (lambda (self$1279 + k$584) + ((%closure + (lambda (self$1280 + r$585) + (if r$585 + ((%closure-ref + (%closure-ref + self$1280 + 1) + 0) + (%closure-ref + self$1280 + 1) + 'unquote-splicing) + ((%closure-ref + (%closure-ref + self$1280 + 1) + 0) + (%closure-ref + self$1280 + 1) + 'unquote))) + k$584) + (equal? + (cell-get + (%closure-ref + self$1279 + 1)) + #\@))) + (%closure-ref + self$1257 + 5)) + (%closure + (lambda (self$1258 + r$583) + ((%closure + (lambda (self$1259 + r$566) + ((%closure + (lambda (self$1260 + r$567) + ((%closure + (lambda (self$1271 + k$578) + ((%closure + (lambda (self$1272 + r$579) + (if r$579 + ((%closure + (lambda (self$1276) + ((%closure-ref + in-port:get-lnum + 0) + in-port:get-lnum + (%closure + (lambda (self$1277 + r$580) + ((%closure-ref + in-port:get-cnum + 0) + in-port:get-cnum + (%closure + (lambda (self$1278 + r$581) + ((%closure-ref + parse-error + 0) + parse-error + (%closure-ref + self$1278 + 1) + "unexpected end of file" + (%closure-ref + self$1278 + 2) + r$581)) + (%closure-ref + self$1277 + 1) + r$580) + (%closure-ref + self$1277 + 2))) + (%closure-ref + self$1276 + 1) + (%closure-ref + self$1276 + 2)) + (%closure-ref + self$1276 + 2))) + (%closure-ref + self$1272 + 1) + (%closure-ref + self$1272 + 3))) + ((%closure + (lambda (self$1273 + r$582) + (if r$582 + ((%closure + (lambda (self$1275) + ((%closure-ref + (%closure-ref + self$1275 + 1) + 0) + (%closure-ref + self$1275 + 1) + #f)) + (%closure-ref + self$1273 + 1))) + ((%closure + (lambda (self$1274) + ((%closure-ref + in-port:set-buf! + 0) + in-port:set-buf! + (%closure-ref + self$1274 + 1) + (%closure-ref + self$1274 + 3) + (cell-get + (%closure-ref + self$1274 + 2)))) + (%closure-ref + self$1273 + 1) + (%closure-ref + self$1273 + 2) + (%closure-ref + self$1273 + 3))))) + (%closure-ref + self$1272 + 1) + (%closure-ref + self$1272 + 2) + (%closure-ref + self$1272 + 3)) + (equal? + (cell-get + (%closure-ref + self$1272 + 2)) + #\@)))) + k$578 + (%closure-ref + self$1271 + 1) + (%closure-ref + self$1271 + 2)) + (eof-object? + (cell-get + (%closure-ref + self$1271 + 1))))) + (%closure-ref + self$1260 + 5) + (%closure-ref + self$1260 + 7)) + (%closure + (lambda (self$1261 + r$568) + ((%closure + (lambda (self$1262 + r$576) + ((%closure + (lambda (self$1263 + r$577) + ((%closure-ref + parse + 0) + parse + (%closure + (lambda (self$1264 + r$575) + ((%closure + (lambda (self$1265 + r$569) + ((%closure-ref + list + 0) + list + (%closure + (lambda (self$1266 + r$573) + ((%closure-ref + get-toks + 0) + get-toks + (%closure + (lambda (self$1267 + r$574) + ((%closure-ref + add-tok + 0) + add-tok + (%closure + (lambda (self$1268 + r$572) + ((%closure + (lambda (self$1269 + r$570) + (if (%closure-ref + self$1269 + 1) + ((%closure + (lambda (self$1270 + r$571) + ((%closure-ref + parse + 0) + parse + (%closure-ref + self$1270 + 3) + (%closure-ref + self$1270 + 2) + r$571 + (cell-get + (%closure-ref + self$1270 + 4)) + (%closure-ref + self$1270 + 1) + #f + (%closure-ref + self$1270 + 5) + (%closure-ref + self$1270 + 6))) + (%closure-ref + self$1269 + 1) + (%closure-ref + self$1269 + 2) + (%closure-ref + self$1269 + 3) + (%closure-ref + self$1269 + 4) + (%closure-ref + self$1269 + 5) + (%closure-ref + self$1269 + 6)) + '()) + ((%closure-ref + (%closure-ref + self$1269 + 3) + 0) + (%closure-ref + self$1269 + 3) + (car (cell-get + (%closure-ref + self$1269 + 4)))))) + (%closure-ref + self$1268 + 1) + (%closure-ref + self$1268 + 2) + (%closure-ref + self$1268 + 3) + (%closure-ref + self$1268 + 4) + (%closure-ref + self$1268 + 5) + (%closure-ref + self$1268 + 6)) + (set-cell! + (%closure-ref + self$1268 + 4) + r$572))) + (%closure-ref + self$1267 + 1) + (%closure-ref + self$1267 + 2) + (%closure-ref + self$1267 + 3) + (%closure-ref + self$1267 + 4) + (%closure-ref + self$1267 + 5) + (%closure-ref + self$1267 + 6)) + (%closure-ref + self$1267 + 7) + r$574)) + (%closure-ref + self$1266 + 1) + (%closure-ref + self$1266 + 2) + (%closure-ref + self$1266 + 3) + (%closure-ref + self$1266 + 4) + (%closure-ref + self$1266 + 5) + (%closure-ref + self$1266 + 6) + r$573) + (%closure-ref + self$1266 + 7) + (%closure-ref + self$1266 + 8))) + (%closure-ref + self$1265 + 1) + (%closure-ref + self$1265 + 2) + (%closure-ref + self$1265 + 3) + (%closure-ref + self$1265 + 4) + (%closure-ref + self$1265 + 5) + (%closure-ref + self$1265 + 6) + (%closure-ref + self$1265 + 8) + (%closure-ref + self$1265 + 9)) + (cell-get + (%closure-ref + self$1265 + 10)) + (cell-get + (%closure-ref + self$1265 + 7)))) + (%closure-ref + self$1264 + 1) + (%closure-ref + self$1264 + 2) + (%closure-ref + self$1264 + 3) + (%closure-ref + self$1264 + 4) + (%closure-ref + self$1264 + 5) + (%closure-ref + self$1264 + 6) + (%closure-ref + self$1264 + 7) + (%closure-ref + self$1264 + 8) + (%closure-ref + self$1264 + 9) + (%closure-ref + self$1264 + 10)) + (set-cell! + (%closure-ref + self$1264 + 7) + r$575))) + (%closure-ref + self$1263 + 1) + (%closure-ref + self$1263 + 2) + (%closure-ref + self$1263 + 3) + (%closure-ref + self$1263 + 4) + (%closure-ref + self$1263 + 5) + (%closure-ref + self$1263 + 6) + (%closure-ref + self$1263 + 8) + (%closure-ref + self$1263 + 9) + (%closure-ref + self$1263 + 10) + (%closure-ref + self$1263 + 11)) + (%closure-ref + self$1263 + 2) + (%closure-ref + self$1263 + 7) + r$577 + #f + #f + 0 + (%closure-ref + self$1263 + 6))) + (%closure-ref + self$1262 + 1) + (%closure-ref + self$1262 + 2) + (%closure-ref + self$1262 + 3) + (%closure-ref + self$1262 + 4) + (%closure-ref + self$1262 + 5) + (%closure-ref + self$1262 + 6) + r$576 + (%closure-ref + self$1262 + 7) + (%closure-ref + self$1262 + 8) + (%closure-ref + self$1262 + 9) + (%closure-ref + self$1262 + 10)) + '())) + (%closure-ref + self$1261 + 1) + (%closure-ref + self$1261 + 2) + (%closure-ref + self$1261 + 3) + (%closure-ref + self$1261 + 4) + (%closure-ref + self$1261 + 5) + (%closure-ref + self$1261 + 6) + (%closure-ref + self$1261 + 7) + (%closure-ref + self$1261 + 8) + (%closure-ref + self$1261 + 9) + (%closure-ref + self$1261 + 10)) + '())) + (%closure-ref + self$1260 + 1) + (%closure-ref + self$1260 + 2) + (%closure-ref + self$1260 + 3) + (%closure-ref + self$1260 + 4) + (%closure-ref + self$1260 + 6) + (%closure-ref + self$1260 + 7) + (%closure-ref + self$1260 + 8) + (%closure-ref + self$1260 + 9) + (%closure-ref + self$1260 + 10) + (%closure-ref + self$1260 + 11)))) + (%closure-ref + self$1259 + 1) + (%closure-ref + self$1259 + 2) + (%closure-ref + self$1259 + 3) + (%closure-ref + self$1259 + 4) + (%closure-ref + self$1259 + 5) + (%closure-ref + self$1259 + 6) + (%closure-ref + self$1259 + 7) + (%closure-ref + self$1259 + 8) + (%closure-ref + self$1259 + 9) + (%closure-ref + self$1259 + 10) + (%closure-ref + self$1259 + 11)) + (set-cell! + (%closure-ref + self$1259 + 4) + #f))) + (%closure-ref + self$1258 + 1) + (%closure-ref + self$1258 + 2) + (%closure-ref + self$1258 + 3) + (%closure-ref + self$1258 + 4) + (%closure-ref + self$1258 + 5) + (%closure-ref + self$1258 + 6) + (%closure-ref + self$1258 + 7) + (%closure-ref + self$1258 + 8) + (%closure-ref + self$1258 + 9) + (%closure-ref + self$1258 + 10) + (%closure-ref + self$1258 + 11)) + (set-cell! + (%closure-ref + self$1258 + 11) + r$583))) + (%closure-ref + self$1257 + 1) + (%closure-ref + self$1257 + 2) + (%closure-ref + self$1257 + 3) + (%closure-ref + self$1257 + 4) + (%closure-ref + self$1257 + 5) + (%closure-ref + self$1257 + 6) + (%closure-ref + self$1257 + 7) + (%closure-ref + self$1257 + 8) + (%closure-ref + self$1257 + 9) + (%closure-ref + self$1257 + 10) + (%closure-ref + self$1257 + 11)))) + (%closure-ref + self$1256 + 1) + (%closure-ref + self$1256 + 2) + (%closure-ref + self$1256 + 3) + (%closure-ref + self$1256 + 4) + (%closure-ref + self$1256 + 5) + (%closure-ref + self$1256 + 6) + (%closure-ref + self$1256 + 7) + (%closure-ref + self$1256 + 8) + (%closure-ref + self$1256 + 9) + (%closure-ref + self$1256 + 10) + (%closure-ref + self$1256 + 11)) + (set-cell! + (%closure-ref + self$1256 + 5) + r$586))) + (%closure-ref + self$1255 + 1) + (%closure-ref + self$1255 + 2) + (%closure-ref + self$1255 + 3) + (%closure-ref + self$1255 + 4) + (%closure-ref + self$1255 + 5) + (%closure-ref + self$1255 + 6) + (%closure-ref + self$1255 + 7) + (%closure-ref + self$1255 + 8) + (%closure-ref + self$1255 + 9) + (%closure-ref + self$1255 + 10) + (%closure-ref + self$1255 + 11)) + (read-char + (%closure-ref + self$1255 + 2)))) + (%closure-ref + self$1254 + 1) + (%closure-ref + self$1254 + 2) + (%closure-ref + self$1254 + 3) + new-toks$224 + (%closure-ref + self$1254 + 4) + (%closure-ref + self$1254 + 5) + (%closure-ref + self$1254 + 6) + (%closure-ref + self$1254 + 7) + (%closure-ref + self$1254 + 8) + (%closure-ref + self$1254 + 9) + (%closure-ref + self$1254 + 10)) + (set-cell! + (%closure-ref + self$1254 + 7) + #f))) + (%closure-ref + self$1253 + 1) + (%closure-ref + self$1253 + 2) + (%closure-ref + self$1253 + 3) + (%closure-ref + self$1253 + 5) + (%closure-ref + self$1253 + 6) + (%closure-ref + self$1253 + 7) + (%closure-ref + self$1253 + 8) + (%closure-ref + self$1253 + 9) + (%closure-ref + self$1253 + 10) + unquote-sym$225) + (cell (%closure-ref + self$1253 + 4)))) + (%closure-ref + self$1252 + 1) + (%closure-ref + self$1252 + 2) + (%closure-ref + self$1252 + 3) + (%closure-ref + self$1252 + 4) + next-c$226 + (%closure-ref + self$1252 + 5) + (%closure-ref + self$1252 + 6) + (%closure-ref + self$1252 + 7) + (%closure-ref + self$1252 + 8) + (%closure-ref + self$1252 + 9)) + (cell (%closure-ref + self$1252 + 10)))) + (%closure-ref + self$1251 + 1) + (%closure-ref + self$1251 + 2) + (%closure-ref + self$1251 + 3) + (%closure-ref + self$1251 + 4) + (%closure-ref + self$1251 + 6) + (%closure-ref + self$1251 + 7) + sub$227 + (%closure-ref + self$1251 + 8) + (%closure-ref + self$1251 + 9) + (%closure-ref + self$1251 + 10)) + (cell (%closure-ref + self$1251 + 5)))) + (%closure-ref + self$1250 + 1) + (%closure-ref + self$1250 + 2) + (%closure-ref + self$1250 + 3) + new-toks$224 + next-c$226 + (%closure-ref + self$1250 + 4) + (%closure-ref + self$1250 + 5) + (%closure-ref + self$1250 + 6) + (%closure-ref + self$1250 + 7) + unquote-sym$225) + (cell sub$227))) + (%closure-ref + self$1249 + 1) + (%closure-ref + self$1249 + 2) + (%closure-ref + self$1249 + 3) + (%closure-ref + self$1249 + 4) + (%closure-ref + self$1249 + 5) + (%closure-ref + self$1249 + 6) + (%closure-ref + self$1249 + 7)) + #f + #f + #f + #f)) + (%closure-ref + self$1248 + 1) + (%closure-ref + self$1248 + 3) + (%closure-ref + self$1248 + 4) + (%closure-ref + self$1248 + 5) + (%closure-ref + self$1248 + 6) + (%closure-ref + self$1248 + 7) + (%closure-ref + self$1248 + 8))))) + (%closure-ref + self$1247 + 1) + (%closure-ref + self$1247 + 2) + (%closure-ref + self$1247 + 3) + (%closure-ref + self$1247 + 4) + (%closure-ref + self$1247 + 5) + (%closure-ref + self$1247 + 6) + (%closure-ref + self$1247 + 7) + (%closure-ref + self$1247 + 8)))) + (%closure-ref + self$1061 + 1) + (%closure-ref + self$1061 + 2) + (%closure-ref + self$1061 + 3) + (%closure-ref + self$1061 + 4) + (%closure-ref + self$1061 + 5) + (%closure-ref + self$1061 + 6) + (%closure-ref + self$1061 + 7) + (%closure-ref + self$1061 + 8))) + ((%closure + (lambda (self$1062 + r$589) + (if r$589 + ((%closure + (lambda (self$1222) + ((%closure + (lambda (self$1245 + k$607) + (if (%closure-ref + self$1245 + 1) + ((%closure-ref + k$607 + 0) + k$607 + #f) + ((%closure + (lambda (self$1246 + r$608) + ((%closure-ref + not + 0) + not + (%closure-ref + self$1246 + 1) + r$608)) + k$607) + (null? (%closure-ref + self$1245 + 2))))) + (%closure-ref + self$1222 + 1) + (%closure-ref + self$1222 + 7)) + (%closure + (lambda (self$1223 + r$590) + (if r$590 + ((%closure + (lambda (self$1241) + ((%closure-ref + in-port:set-buf! + 0) + in-port:set-buf! + (%closure + (lambda (self$1242 + r$591) + ((%closure-ref + ->tok + 0) + ->tok + (%closure + (lambda (self$1243 + r$593) + ((%closure-ref + add-tok + 0) + add-tok + (%closure + (lambda (self$1244 + r$592) + ((%closure-ref + (%closure-ref + self$1244 + 1) + 0) + (%closure-ref + self$1244 + 1) + (car r$592))) + (%closure-ref + self$1243 + 1)) + r$593 + (%closure-ref + self$1243 + 2))) + (%closure-ref + self$1242 + 1) + (%closure-ref + self$1242 + 3)) + (%closure-ref + self$1242 + 2))) + (%closure-ref + self$1241 + 2) + (%closure-ref + self$1241 + 4) + (%closure-ref + self$1241 + 5)) + (%closure-ref + self$1241 + 3) + (%closure-ref + self$1241 + 1))) + (%closure-ref + self$1223 + 2) + (%closure-ref + self$1223 + 4) + (%closure-ref + self$1223 + 6) + (%closure-ref + self$1223 + 7) + (%closure-ref + self$1223 + 8))) + ((%closure + (lambda (self$1224) + ((%closure + (lambda (self$1225 + r$604) + ((%closure + (lambda (self$1226 + r$605) + ((%closure + (lambda (self$1227 + r$606) + ((%closure-ref + parse + 0) + parse + (%closure + (lambda (self$1228 + r$594) + ((%closure-ref + get-toks + 0) + get-toks + (%closure + (lambda (self$1229 + r$595) + ((%closure + (lambda (self$1230 + sub$222 + toks*$221) + ((%closure + (lambda (self$1231 + new-toks$223) + ((%closure + (lambda (self$1232 + new-toks$223) + ((%closure + (lambda (self$1237 + k$600) + ((%closure + (lambda (self$1239 + k$602) + ((%closure + (lambda (self$1240 + r$603) + (if r$603 + ((%closure-ref + dotted? + 0) + dotted? + (%closure-ref + self$1240 + 1) + (%closure-ref + self$1240 + 2)) + ((%closure-ref + (%closure-ref + self$1240 + 1) + 0) + (%closure-ref + self$1240 + 1) + #f))) + k$602 + (%closure-ref + self$1239 + 1)) + (pair? (%closure-ref + self$1239 + 1)))) + (%closure-ref + self$1237 + 1)) + (%closure + (lambda (self$1238 + r$601) + (if r$601 + ((%closure-ref + ->dotted-list + 0) + ->dotted-list + (%closure-ref + self$1238 + 1) + (%closure-ref + self$1238 + 2)) + ((%closure-ref + (%closure-ref + self$1238 + 1) + 0) + (%closure-ref + self$1238 + 1) + (%closure-ref + self$1238 + 2)))) + k$600 + (%closure-ref + self$1237 + 1)))) + (%closure-ref + self$1232 + 6)) + (%closure + (lambda (self$1233 + r$599) + ((%closure-ref + add-tok + 0) + add-tok + (%closure + (lambda (self$1234 + r$598) + ((%closure + (lambda (self$1235 + r$596) + (if (%closure-ref + self$1235 + 1) + ((%closure + (lambda (self$1236 + r$597) + ((%closure-ref + parse + 0) + parse + (%closure-ref + self$1236 + 3) + (%closure-ref + self$1236 + 2) + r$597 + (cell-get + (%closure-ref + self$1236 + 4)) + (%closure-ref + self$1236 + 1) + #f + (%closure-ref + self$1236 + 5) + (%closure-ref + self$1236 + 6))) + (%closure-ref + self$1235 + 1) + (%closure-ref + self$1235 + 2) + (%closure-ref + self$1235 + 3) + (%closure-ref + self$1235 + 4) + (%closure-ref + self$1235 + 5) + (%closure-ref + self$1235 + 6)) + '()) + ((%closure-ref + (%closure-ref + self$1235 + 3) + 0) + (%closure-ref + self$1235 + 3) + (car (cell-get + (%closure-ref + self$1235 + 4)))))) + (%closure-ref + self$1234 + 1) + (%closure-ref + self$1234 + 2) + (%closure-ref + self$1234 + 3) + (%closure-ref + self$1234 + 4) + (%closure-ref + self$1234 + 5) + (%closure-ref + self$1234 + 6)) + (set-cell! + (%closure-ref + self$1234 + 4) + r$598))) + (%closure-ref + self$1233 + 1) + (%closure-ref + self$1233 + 2) + (%closure-ref + self$1233 + 3) + (%closure-ref + self$1233 + 4) + (%closure-ref + self$1233 + 5) + (%closure-ref + self$1233 + 6)) + r$599 + (%closure-ref + self$1233 + 7))) + (%closure-ref + self$1232 + 1) + (%closure-ref + self$1232 + 2) + (%closure-ref + self$1232 + 3) + new-toks$223 + (%closure-ref + self$1232 + 4) + (%closure-ref + self$1232 + 5) + (%closure-ref + self$1232 + 7)))) + (%closure-ref + self$1231 + 1) + (%closure-ref + self$1231 + 2) + (%closure-ref + self$1231 + 3) + (%closure-ref + self$1231 + 4) + (%closure-ref + self$1231 + 5) + (%closure-ref + self$1231 + 6) + (%closure-ref + self$1231 + 7)) + (cell new-toks$223))) + (%closure-ref + self$1230 + 1) + (%closure-ref + self$1230 + 2) + (%closure-ref + self$1230 + 3) + (%closure-ref + self$1230 + 4) + (%closure-ref + self$1230 + 5) + sub$222 + toks*$221) + #f)) + (%closure-ref + self$1229 + 1) + (%closure-ref + self$1229 + 2) + (%closure-ref + self$1229 + 3) + (%closure-ref + self$1229 + 4) + (%closure-ref + self$1229 + 5)) + (%closure-ref + self$1229 + 6) + r$595)) + (%closure-ref + self$1228 + 1) + (%closure-ref + self$1228 + 2) + (%closure-ref + self$1228 + 3) + (%closure-ref + self$1228 + 4) + (%closure-ref + self$1228 + 5) + r$594) + (%closure-ref + self$1228 + 6) + (%closure-ref + self$1228 + 7))) + (%closure-ref + self$1227 + 1) + (%closure-ref + self$1227 + 2) + (%closure-ref + self$1227 + 3) + (%closure-ref + self$1227 + 4) + (%closure-ref + self$1227 + 5) + (%closure-ref + self$1227 + 8) + (%closure-ref + self$1227 + 9)) + (%closure-ref + self$1227 + 2) + (%closure-ref + self$1227 + 6) + (%closure-ref + self$1227 + 7) + #t + #f + r$606 + (%closure-ref + self$1227 + 5))) + (%closure-ref + self$1226 + 1) + (%closure-ref + self$1226 + 2) + (%closure-ref + self$1226 + 3) + (%closure-ref + self$1226 + 4) + (%closure-ref + self$1226 + 5) + (%closure-ref + self$1226 + 6) + r$605 + (%closure-ref + self$1226 + 7) + (%closure-ref + self$1226 + 8)) + (+ (%closure-ref + self$1226 + 4) + 1))) + (%closure-ref + self$1225 + 1) + (%closure-ref + self$1225 + 2) + (%closure-ref + self$1225 + 3) + (%closure-ref + self$1225 + 4) + (%closure-ref + self$1225 + 5) + r$604 + (%closure-ref + self$1225 + 6) + (%closure-ref + self$1225 + 7)) + '())) + (%closure-ref + self$1224 + 1) + (%closure-ref + self$1224 + 2) + (%closure-ref + self$1224 + 3) + (%closure-ref + self$1224 + 4) + (%closure-ref + self$1224 + 5) + (%closure-ref + self$1224 + 6) + (%closure-ref + self$1224 + 7)) + '())) + (%closure-ref + self$1223 + 1) + (%closure-ref + self$1223 + 3) + (%closure-ref + self$1223 + 4) + (%closure-ref + self$1223 + 5) + (%closure-ref + self$1223 + 6) + (%closure-ref + self$1223 + 7) + (%closure-ref + self$1223 + 8))))) + (%closure-ref + self$1222 + 1) + (%closure-ref + self$1222 + 2) + (%closure-ref + self$1222 + 3) + (%closure-ref + self$1222 + 4) + (%closure-ref + self$1222 + 5) + (%closure-ref + self$1222 + 6) + (%closure-ref + self$1222 + 7) + (%closure-ref + self$1222 + 8)))) + (%closure-ref + self$1062 + 1) + (%closure-ref + self$1062 + 2) + (%closure-ref + self$1062 + 3) + (%closure-ref + self$1062 + 4) + (%closure-ref + self$1062 + 5) + (%closure-ref + self$1062 + 6) + (%closure-ref + self$1062 + 7) + (%closure-ref + self$1062 + 8))) + ((%closure + (lambda (self$1063 + r$609) + (if r$609 + ((%closure + (lambda (self$1208) + ((%closure + (lambda (self$1220 + k$618) + (if (%closure-ref + self$1220 + 1) + ((%closure-ref + k$618 + 0) + k$618 + #f) + ((%closure + (lambda (self$1221 + r$619) + ((%closure-ref + not + 0) + not + (%closure-ref + self$1221 + 1) + r$619)) + k$618) + (null? (%closure-ref + self$1220 + 2))))) + (%closure-ref + self$1208 + 1) + (%closure-ref + self$1208 + 6)) + (%closure + (lambda (self$1209 + r$610) + (if r$610 + ((%closure + (lambda (self$1216) + ((%closure-ref + in-port:set-buf! + 0) + in-port:set-buf! + (%closure + (lambda (self$1217 + r$611) + ((%closure-ref + ->tok + 0) + ->tok + (%closure + (lambda (self$1218 + r$613) + ((%closure-ref + add-tok + 0) + add-tok + (%closure + (lambda (self$1219 + r$612) + ((%closure-ref + (%closure-ref + self$1219 + 1) + 0) + (%closure-ref + self$1219 + 1) + (car r$612))) + (%closure-ref + self$1218 + 1)) + r$613 + (%closure-ref + self$1218 + 2))) + (%closure-ref + self$1217 + 1) + (%closure-ref + self$1217 + 3)) + (%closure-ref + self$1217 + 2))) + (%closure-ref + self$1216 + 2) + (%closure-ref + self$1216 + 4) + (%closure-ref + self$1216 + 5)) + (%closure-ref + self$1216 + 3) + (%closure-ref + self$1216 + 1))) + (%closure-ref + self$1209 + 1) + (%closure-ref + self$1209 + 2) + (%closure-ref + self$1209 + 4) + (%closure-ref + self$1209 + 5) + (%closure-ref + self$1209 + 6))) + ((%closure + (lambda (self$1210 + r$614) + (if r$614 + ((%closure + (lambda (self$1213) + ((%closure-ref + in-port:get-lnum + 0) + in-port:get-lnum + (%closure + (lambda (self$1214 + r$615) + ((%closure-ref + in-port:get-cnum + 0) + in-port:get-cnum + (%closure + (lambda (self$1215 + r$616) + ((%closure-ref + parse-error + 0) + parse-error + (%closure-ref + self$1215 + 1) + "unexpected closing parenthesis" + (%closure-ref + self$1215 + 2) + r$616)) + (%closure-ref + self$1214 + 1) + r$615) + (%closure-ref + self$1214 + 2))) + (%closure-ref + self$1213 + 1) + (%closure-ref + self$1213 + 2)) + (%closure-ref + self$1213 + 2))) + (%closure-ref + self$1210 + 1) + (%closure-ref + self$1210 + 2))) + ((%closure + (lambda (self$1211) + ((%closure-ref + get-toks + 0) + get-toks + (%closure + (lambda (self$1212 + r$617) + ((%closure-ref + reverse + 0) + reverse + (%closure-ref + self$1212 + 1) + r$617)) + (%closure-ref + self$1211 + 1)) + (%closure-ref + self$1211 + 2) + (%closure-ref + self$1211 + 3))) + (%closure-ref + self$1210 + 1) + (%closure-ref + self$1210 + 3) + (%closure-ref + self$1210 + 4))))) + (%closure-ref + self$1209 + 2) + (%closure-ref + self$1209 + 4) + (%closure-ref + self$1209 + 5) + (%closure-ref + self$1209 + 6)) + (= (%closure-ref + self$1209 + 3) + 0)))) + (%closure-ref + self$1208 + 2) + (%closure-ref + self$1208 + 3) + (%closure-ref + self$1208 + 4) + (%closure-ref + self$1208 + 5) + (%closure-ref + self$1208 + 6) + (%closure-ref + self$1208 + 7)))) + (%closure-ref + self$1063 + 1) + (%closure-ref + self$1063 + 2) + (%closure-ref + self$1063 + 4) + (%closure-ref + self$1063 + 5) + (%closure-ref + self$1063 + 6) + (%closure-ref + self$1063 + 7) + (%closure-ref + self$1063 + 8))) + ((%closure + (lambda (self$1064 + r$620) + (if r$620 + ((%closure + (lambda (self$1190) + ((%closure + (lambda (self$1206 + k$631) + (if (%closure-ref + self$1206 + 1) + ((%closure-ref + k$631 + 0) + k$631 + #f) + ((%closure + (lambda (self$1207 + r$632) + ((%closure-ref + not + 0) + not + (%closure-ref + self$1207 + 1) + r$632)) + k$631) + (null? (%closure-ref + self$1206 + 2))))) + (%closure-ref + self$1190 + 1) + (%closure-ref + self$1190 + 7)) + (%closure + (lambda (self$1191 + r$621) + (if r$621 + ((%closure + (lambda (self$1202) + ((%closure-ref + in-port:set-buf! + 0) + in-port:set-buf! + (%closure + (lambda (self$1203 + r$622) + ((%closure-ref + ->tok + 0) + ->tok + (%closure + (lambda (self$1204 + r$624) + ((%closure-ref + add-tok + 0) + add-tok + (%closure + (lambda (self$1205 + r$623) + ((%closure-ref + (%closure-ref + self$1205 + 1) + 0) + (%closure-ref + self$1205 + 1) + (car r$623))) + (%closure-ref + self$1204 + 1)) + r$624 + (%closure-ref + self$1204 + 2))) + (%closure-ref + self$1203 + 1) + (%closure-ref + self$1203 + 3)) + (%closure-ref + self$1203 + 2))) + (%closure-ref + self$1202 + 2) + (%closure-ref + self$1202 + 4) + (%closure-ref + self$1202 + 5)) + (%closure-ref + self$1202 + 3) + (%closure-ref + self$1202 + 1))) + (%closure-ref + self$1191 + 2) + (%closure-ref + self$1191 + 4) + (%closure-ref + self$1191 + 6) + (%closure-ref + self$1191 + 7) + (%closure-ref + self$1191 + 8))) + ((%closure + (lambda (self$1192) + ((%closure + (lambda (self$1193 + r$630) + ((%closure-ref + read-str + 0) + read-str + (%closure + (lambda (self$1194 + r$625) + ((%closure-ref + get-toks + 0) + get-toks + (%closure + (lambda (self$1195 + r$626) + ((%closure + (lambda (self$1196 + str$219 + toks*$218) + ((%closure + (lambda (self$1197 + new-toks$220) + ((%closure + (lambda (self$1198 + new-toks$220) + ((%closure-ref + add-tok + 0) + add-tok + (%closure + (lambda (self$1199 + r$629) + ((%closure + (lambda (self$1200 + r$627) + (if (%closure-ref + self$1200 + 1) + ((%closure + (lambda (self$1201 + r$628) + ((%closure-ref + parse + 0) + parse + (%closure-ref + self$1201 + 3) + (%closure-ref + self$1201 + 2) + r$628 + (cell-get + (%closure-ref + self$1201 + 4)) + (%closure-ref + self$1201 + 1) + #f + (%closure-ref + self$1201 + 5) + (%closure-ref + self$1201 + 6))) + (%closure-ref + self$1200 + 1) + (%closure-ref + self$1200 + 2) + (%closure-ref + self$1200 + 3) + (%closure-ref + self$1200 + 4) + (%closure-ref + self$1200 + 5) + (%closure-ref + self$1200 + 6)) + '()) + ((%closure-ref + (%closure-ref + self$1200 + 3) + 0) + (%closure-ref + self$1200 + 3) + (car (cell-get + (%closure-ref + self$1200 + 4)))))) + (%closure-ref + self$1199 + 1) + (%closure-ref + self$1199 + 2) + (%closure-ref + self$1199 + 3) + (%closure-ref + self$1199 + 4) + (%closure-ref + self$1199 + 5) + (%closure-ref + self$1199 + 6)) + (set-cell! + (%closure-ref + self$1199 + 4) + r$629))) + (%closure-ref + self$1198 + 1) + (%closure-ref + self$1198 + 2) + (%closure-ref + self$1198 + 3) + new-toks$220 + (%closure-ref + self$1198 + 4) + (%closure-ref + self$1198 + 5)) + (%closure-ref + self$1198 + 6) + (%closure-ref + self$1198 + 7))) + (%closure-ref + self$1197 + 1) + (%closure-ref + self$1197 + 2) + (%closure-ref + self$1197 + 3) + (%closure-ref + self$1197 + 4) + (%closure-ref + self$1197 + 5) + (%closure-ref + self$1197 + 6) + (%closure-ref + self$1197 + 7)) + (cell new-toks$220))) + (%closure-ref + self$1196 + 1) + (%closure-ref + self$1196 + 2) + (%closure-ref + self$1196 + 3) + (%closure-ref + self$1196 + 4) + (%closure-ref + self$1196 + 5) + str$219 + toks*$218) + #f)) + (%closure-ref + self$1195 + 1) + (%closure-ref + self$1195 + 2) + (%closure-ref + self$1195 + 3) + (%closure-ref + self$1195 + 4) + (%closure-ref + self$1195 + 5)) + (%closure-ref + self$1195 + 6) + r$626)) + (%closure-ref + self$1194 + 1) + (%closure-ref + self$1194 + 2) + (%closure-ref + self$1194 + 3) + (%closure-ref + self$1194 + 4) + (%closure-ref + self$1194 + 5) + r$625) + (%closure-ref + self$1194 + 6) + (%closure-ref + self$1194 + 7))) + (%closure-ref + self$1193 + 1) + (%closure-ref + self$1193 + 2) + (%closure-ref + self$1193 + 3) + (%closure-ref + self$1193 + 4) + (%closure-ref + self$1193 + 5) + (%closure-ref + self$1193 + 6) + (%closure-ref + self$1193 + 7)) + (%closure-ref + self$1193 + 2) + r$630 + (%closure-ref + self$1193 + 5))) + (%closure-ref + self$1192 + 1) + (%closure-ref + self$1192 + 2) + (%closure-ref + self$1192 + 3) + (%closure-ref + self$1192 + 4) + (%closure-ref + self$1192 + 5) + (%closure-ref + self$1192 + 6) + (%closure-ref + self$1192 + 7)) + '())) + (%closure-ref + self$1191 + 1) + (%closure-ref + self$1191 + 3) + (%closure-ref + self$1191 + 4) + (%closure-ref + self$1191 + 5) + (%closure-ref + self$1191 + 6) + (%closure-ref + self$1191 + 7) + (%closure-ref + self$1191 + 8))))) + (%closure-ref + self$1190 + 1) + (%closure-ref + self$1190 + 2) + (%closure-ref + self$1190 + 3) + (%closure-ref + self$1190 + 4) + (%closure-ref + self$1190 + 5) + (%closure-ref + self$1190 + 6) + (%closure-ref + self$1190 + 7) + (%closure-ref + self$1190 + 8)))) + (%closure-ref + self$1064 + 1) + (%closure-ref + self$1064 + 2) + (%closure-ref + self$1064 + 3) + (%closure-ref + self$1064 + 4) + (%closure-ref + self$1064 + 5) + (%closure-ref + self$1064 + 6) + (%closure-ref + self$1064 + 7) + (%closure-ref + self$1064 + 8))) + ((%closure + (lambda (self$1065 + r$633) + (if r$633 + ((%closure + (lambda (self$1070) + ((%closure + (lambda (self$1071 + r$634) + (if r$634 + ((%closure + (lambda (self$1073 + next-c$205) + ((%closure + (lambda (self$1074 + next-c$205) + ((%closure-ref + in-port:get-cnum + 0) + in-port:get-cnum + (%closure + (lambda (self$1075 + r$729) + ((%closure + (lambda (self$1076 + r$728) + ((%closure-ref + in-port:set-cnum! + 0) + in-port:set-cnum! + (%closure + (lambda (self$1077 + r$636) + ((%closure + (lambda (self$1078 + r$637) + (if r$637 + ((%closure + (lambda (self$1187) + ((%closure-ref + read-block-comment + 0) + read-block-comment + (%closure + (lambda (self$1188 + r$638) + ((%closure + (lambda (self$1189 + r$639) + ((%closure-ref + parse + 0) + parse + (%closure-ref + self$1189 + 3) + (%closure-ref + self$1189 + 2) + r$639 + (%closure-ref + self$1189 + 6) + (%closure-ref + self$1189 + 1) + #f + (%closure-ref + self$1189 + 4) + (%closure-ref + self$1189 + 5))) + (%closure-ref + self$1188 + 1) + (%closure-ref + self$1188 + 2) + (%closure-ref + self$1188 + 3) + (%closure-ref + self$1188 + 4) + (%closure-ref + self$1188 + 5) + (%closure-ref + self$1188 + 6)) + '())) + (%closure-ref + self$1187 + 1) + (%closure-ref + self$1187 + 2) + (%closure-ref + self$1187 + 3) + (%closure-ref + self$1187 + 4) + (%closure-ref + self$1187 + 5) + (%closure-ref + self$1187 + 6)) + (%closure-ref + self$1187 + 2) + (%closure-ref + self$1187 + 5))) + (%closure-ref + self$1078 + 1) + (%closure-ref + self$1078 + 3) + (%closure-ref + self$1078 + 4) + (%closure-ref + self$1078 + 6) + (%closure-ref + self$1078 + 7) + (%closure-ref + self$1078 + 9))) + ((%closure + (lambda (self$1079 + r$640) + (if r$640 + ((%closure + (lambda (self$1184) + (if (%closure-ref + self$1184 + 1) + ((%closure + (lambda (self$1185 + r$641) + ((%closure + (lambda (self$1186 + r$642) + ((%closure-ref + parse + 0) + parse + (%closure-ref + self$1186 + 3) + (%closure-ref + self$1186 + 2) + (%closure-ref + self$1186 + 6) + r$642 + (%closure-ref + self$1186 + 1) + #f + (%closure-ref + self$1186 + 4) + (%closure-ref + self$1186 + 5))) + (%closure-ref + self$1185 + 1) + (%closure-ref + self$1185 + 2) + (%closure-ref + self$1185 + 3) + (%closure-ref + self$1185 + 4) + (%closure-ref + self$1185 + 5) + r$641) + (cons #t + (%closure-ref + self$1185 + 6)))) + (%closure-ref + self$1184 + 1) + (%closure-ref + self$1184 + 2) + (%closure-ref + self$1184 + 3) + (%closure-ref + self$1184 + 4) + (%closure-ref + self$1184 + 5) + (%closure-ref + self$1184 + 6)) + '()) + ((%closure-ref + (%closure-ref + self$1184 + 3) + 0) + (%closure-ref + self$1184 + 3) + #t))) + (%closure-ref + self$1079 + 1) + (%closure-ref + self$1079 + 3) + (%closure-ref + self$1079 + 4) + (%closure-ref + self$1079 + 6) + (%closure-ref + self$1079 + 7) + (%closure-ref + self$1079 + 9))) + ((%closure + (lambda (self$1080 + r$643) + (if r$643 + ((%closure + (lambda (self$1181) + (if (%closure-ref + self$1181 + 1) + ((%closure + (lambda (self$1182 + r$644) + ((%closure + (lambda (self$1183 + r$645) + ((%closure-ref + parse + 0) + parse + (%closure-ref + self$1183 + 3) + (%closure-ref + self$1183 + 2) + (%closure-ref + self$1183 + 6) + r$645 + (%closure-ref + self$1183 + 1) + #f + (%closure-ref + self$1183 + 4) + (%closure-ref + self$1183 + 5))) + (%closure-ref + self$1182 + 1) + (%closure-ref + self$1182 + 2) + (%closure-ref + self$1182 + 3) + (%closure-ref + self$1182 + 4) + (%closure-ref + self$1182 + 5) + r$644) + (cons #f + (%closure-ref + self$1182 + 6)))) + (%closure-ref + self$1181 + 1) + (%closure-ref + self$1181 + 2) + (%closure-ref + self$1181 + 3) + (%closure-ref + self$1181 + 4) + (%closure-ref + self$1181 + 5) + (%closure-ref + self$1181 + 6)) + '()) + ((%closure-ref + (%closure-ref + self$1181 + 3) + 0) + (%closure-ref + self$1181 + 3) + #f))) + (%closure-ref + self$1080 + 1) + (%closure-ref + self$1080 + 3) + (%closure-ref + self$1080 + 4) + (%closure-ref + self$1080 + 6) + (%closure-ref + self$1080 + 7) + (%closure-ref + self$1080 + 9))) + ((%closure + (lambda (self$1081 + r$646) + (if r$646 + ((%closure + (lambda (self$1177) + ((%closure + (lambda (self$1180 + r$647) + ((%closure-ref + parse-number + 0) + parse-number + (%closure-ref + self$1180 + 3) + (%closure-ref + self$1180 + 2) + (%closure-ref + self$1180 + 6) + (%closure-ref + self$1180 + 1) + (%closure-ref + self$1180 + 4) + (%closure-ref + self$1180 + 5) + 10 + r$647)) + (%closure-ref + self$1177 + 1) + (%closure-ref + self$1177 + 2) + (%closure-ref + self$1177 + 3) + (%closure-ref + self$1177 + 4) + (%closure-ref + self$1177 + 5) + (%closure-ref + self$1177 + 6)) + (%closure + (lambda (self$1178 + k$648 + num$217) + ((%closure-ref + parse-atom + 0) + parse-atom + (%closure + (lambda (self$1179 + r$649) + ((%closure-ref + exact + 0) + exact + (%closure-ref + self$1179 + 1) + r$649)) + k$648) + num$217))))) + (%closure-ref + self$1081 + 1) + (%closure-ref + self$1081 + 3) + (%closure-ref + self$1081 + 4) + (%closure-ref + self$1081 + 6) + (%closure-ref + self$1081 + 7) + (%closure-ref + self$1081 + 9))) + ((%closure + (lambda (self$1082 + r$650) + (if r$650 + ((%closure + (lambda (self$1173) + ((%closure + (lambda (self$1176 + r$651) + ((%closure-ref + parse-number + 0) + parse-number + (%closure-ref + self$1176 + 3) + (%closure-ref + self$1176 + 2) + (%closure-ref + self$1176 + 6) + (%closure-ref + self$1176 + 1) + (%closure-ref + self$1176 + 4) + (%closure-ref + self$1176 + 5) + 10 + r$651)) + (%closure-ref + self$1173 + 1) + (%closure-ref + self$1173 + 2) + (%closure-ref + self$1173 + 3) + (%closure-ref + self$1173 + 4) + (%closure-ref + self$1173 + 5) + (%closure-ref + self$1173 + 6)) + (%closure + (lambda (self$1174 + k$652 + num$216) + ((%closure-ref + parse-atom + 0) + parse-atom + (%closure + (lambda (self$1175 + r$653) + ((%closure-ref + inexact + 0) + inexact + (%closure-ref + self$1175 + 1) + r$653)) + k$652) + num$216))))) + (%closure-ref + self$1082 + 1) + (%closure-ref + self$1082 + 3) + (%closure-ref + self$1082 + 4) + (%closure-ref + self$1082 + 6) + (%closure-ref + self$1082 + 7) + (%closure-ref + self$1082 + 9))) + ((%closure + (lambda (self$1083 + r$654) + (if r$654 + ((%closure + (lambda (self$1169) + ((%closure + (lambda (self$1172 + r$655) + ((%closure-ref + parse-number + 0) + parse-number + (%closure-ref + self$1172 + 3) + (%closure-ref + self$1172 + 2) + (%closure-ref + self$1172 + 6) + (%closure-ref + self$1172 + 1) + (%closure-ref + self$1172 + 4) + (%closure-ref + self$1172 + 5) + 2 + r$655)) + (%closure-ref + self$1169 + 1) + (%closure-ref + self$1169 + 2) + (%closure-ref + self$1169 + 3) + (%closure-ref + self$1169 + 4) + (%closure-ref + self$1169 + 5) + (%closure-ref + self$1169 + 6)) + (%closure + (lambda (self$1170 + k$656 + num$215) + ((%closure + (lambda (self$1171 + r$657) + ((%closure-ref + (%closure-ref + self$1171 + 1) + 0) + (%closure-ref + self$1171 + 1) + (string->number + r$657 + 2))) + k$656) + (list->string + num$215)))))) + (%closure-ref + self$1083 + 1) + (%closure-ref + self$1083 + 3) + (%closure-ref + self$1083 + 4) + (%closure-ref + self$1083 + 6) + (%closure-ref + self$1083 + 7) + (%closure-ref + self$1083 + 9))) + ((%closure + (lambda (self$1084 + r$658) + (if r$658 + ((%closure + (lambda (self$1165) + ((%closure + (lambda (self$1168 + r$659) + ((%closure-ref + parse-number + 0) + parse-number + (%closure-ref + self$1168 + 3) + (%closure-ref + self$1168 + 2) + (%closure-ref + self$1168 + 6) + (%closure-ref + self$1168 + 1) + (%closure-ref + self$1168 + 4) + (%closure-ref + self$1168 + 5) + 8 + r$659)) + (%closure-ref + self$1165 + 1) + (%closure-ref + self$1165 + 2) + (%closure-ref + self$1165 + 3) + (%closure-ref + self$1165 + 4) + (%closure-ref + self$1165 + 5) + (%closure-ref + self$1165 + 6)) + (%closure + (lambda (self$1166 + k$660 + num$214) + ((%closure + (lambda (self$1167 + r$661) + ((%closure-ref + (%closure-ref + self$1167 + 1) + 0) + (%closure-ref + self$1167 + 1) + (string->number + r$661 + 8))) + k$660) + (list->string + num$214)))))) + (%closure-ref + self$1084 + 1) + (%closure-ref + self$1084 + 3) + (%closure-ref + self$1084 + 4) + (%closure-ref + self$1084 + 6) + (%closure-ref + self$1084 + 7) + (%closure-ref + self$1084 + 9))) + ((%closure + (lambda (self$1085 + r$662) + (if r$662 + ((%closure + (lambda (self$1161) + ((%closure + (lambda (self$1164 + r$663) + ((%closure-ref + parse-number + 0) + parse-number + (%closure-ref + self$1164 + 3) + (%closure-ref + self$1164 + 2) + (%closure-ref + self$1164 + 6) + (%closure-ref + self$1164 + 1) + (%closure-ref + self$1164 + 4) + (%closure-ref + self$1164 + 5) + 16 + r$663)) + (%closure-ref + self$1161 + 1) + (%closure-ref + self$1161 + 2) + (%closure-ref + self$1161 + 3) + (%closure-ref + self$1161 + 4) + (%closure-ref + self$1161 + 5) + (%closure-ref + self$1161 + 6)) + (%closure + (lambda (self$1162 + k$664 + num$213) + ((%closure + (lambda (self$1163 + r$665) + ((%closure-ref + (%closure-ref + self$1163 + 1) + 0) + (%closure-ref + self$1163 + 1) + (string->number + r$665 + 16))) + k$664) + (list->string + num$213)))))) + (%closure-ref + self$1085 + 1) + (%closure-ref + self$1085 + 3) + (%closure-ref + self$1085 + 4) + (%closure-ref + self$1085 + 6) + (%closure-ref + self$1085 + 7) + (%closure-ref + self$1085 + 9))) + ((%closure + (lambda (self$1086 + r$666) + (if r$666 + ((%closure + (lambda (self$1128) + ((%closure + (lambda (self$1129 + r$695) + ((%closure + (lambda (self$1130 + r$667) + ((%closure + (lambda (self$1157 + k$691) + ((%closure + (lambda (self$1158 + r$692) + (if r$692 + ((%closure-ref + (%closure-ref + self$1158 + 1) + 0) + (%closure-ref + self$1158 + 1) + #f) + ((%closure-ref + in-port:get-lnum + 0) + in-port:get-lnum + (%closure + (lambda (self$1159 + r$693) + ((%closure-ref + in-port:get-cnum + 0) + in-port:get-cnum + (%closure + (lambda (self$1160 + r$694) + ((%closure-ref + parse-error + 0) + parse-error + (%closure-ref + self$1160 + 1) + "Unhandled input sequence" + (%closure-ref + self$1160 + 2) + r$694)) + (%closure-ref + self$1159 + 1) + r$693) + (%closure-ref + self$1159 + 2))) + (%closure-ref + self$1158 + 1) + (%closure-ref + self$1158 + 2)) + (%closure-ref + self$1158 + 2)))) + k$691 + (%closure-ref + self$1157 + 2)) + (eq? #\8 + (cell-get + (%closure-ref + self$1157 + 1))))) + (%closure-ref + self$1130 + 4) + (%closure-ref + self$1130 + 6)) + (%closure + (lambda (self$1131 + r$668) + ((%closure + (lambda (self$1132 + r$690) + ((%closure + (lambda (self$1133 + r$669) + ((%closure + (lambda (self$1153 + k$686) + ((%closure + (lambda (self$1154 + r$687) + (if r$687 + ((%closure-ref + (%closure-ref + self$1154 + 1) + 0) + (%closure-ref + self$1154 + 1) + #f) + ((%closure-ref + in-port:get-lnum + 0) + in-port:get-lnum + (%closure + (lambda (self$1155 + r$688) + ((%closure-ref + in-port:get-cnum + 0) + in-port:get-cnum + (%closure + (lambda (self$1156 + r$689) + ((%closure-ref + parse-error + 0) + parse-error + (%closure-ref + self$1156 + 1) + "Unhandled input sequence" + (%closure-ref + self$1156 + 2) + r$689)) + (%closure-ref + self$1155 + 1) + r$688) + (%closure-ref + self$1155 + 2))) + (%closure-ref + self$1154 + 1) + (%closure-ref + self$1154 + 2)) + (%closure-ref + self$1154 + 2)))) + k$686 + (%closure-ref + self$1153 + 2)) + (eq? #\( + (cell-get + (%closure-ref + self$1153 + 1))))) + (%closure-ref + self$1133 + 4) + (%closure-ref + self$1133 + 6)) + (%closure + (lambda (self$1134 + r$670) + ((%closure + (lambda (self$1135 + r$683) + ((%closure + (lambda (self$1136 + r$684) + ((%closure + (lambda (self$1137 + r$685) + ((%closure-ref + parse + 0) + parse + (%closure + (lambda (self$1138 + r$671) + ((%closure-ref + get-toks + 0) + get-toks + (%closure + (lambda (self$1139 + r$672) + ((%closure + (lambda (self$1140 + sub$211 + toks*$210) + ((%closure + (lambda (self$1141 + new-toks$212) + ((%closure + (lambda (self$1142 + new-toks$212) + ((%closure + (lambda (self$1147 + k$677) + ((%closure + (lambda (self$1151 + k$681) + ((%closure + (lambda (self$1152 + r$682) + (if r$682 + ((%closure-ref + dotted? + 0) + dotted? + (%closure-ref + self$1152 + 1) + (%closure-ref + self$1152 + 2)) + ((%closure-ref + (%closure-ref + self$1152 + 1) + 0) + (%closure-ref + self$1152 + 1) + #f))) + k$681 + (%closure-ref + self$1151 + 1)) + (pair? (%closure-ref + self$1151 + 1)))) + (%closure-ref + self$1147 + 2)) + (%closure + (lambda (self$1148 + r$678) + (if r$678 + ((%closure-ref + in-port:get-lnum + 0) + in-port:get-lnum + (%closure + (lambda (self$1149 + r$679) + ((%closure-ref + in-port:get-cnum + 0) + in-port:get-cnum + (%closure + (lambda (self$1150 + r$680) + ((%closure-ref + parse-error + 0) + parse-error + (%closure-ref + self$1150 + 1) + "Invalid vector syntax" + (%closure-ref + self$1150 + 2) + r$680)) + (%closure-ref + self$1149 + 1) + r$679) + (%closure-ref + self$1149 + 2))) + (%closure-ref + self$1148 + 1) + (%closure-ref + self$1148 + 2)) + (%closure-ref + self$1148 + 2)) + ((%closure-ref + (%closure-ref + self$1148 + 1) + 0) + (%closure-ref + self$1148 + 1) + (apply bytevector + (%closure-ref + self$1148 + 3))))) + k$677 + (%closure-ref + self$1147 + 1) + (%closure-ref + self$1147 + 2)))) + (%closure-ref + self$1142 + 5) + (%closure-ref + self$1142 + 6)) + (%closure + (lambda (self$1143 + r$676) + ((%closure-ref + add-tok + 0) + add-tok + (%closure + (lambda (self$1144 + r$675) + ((%closure + (lambda (self$1145 + r$673) + (if (%closure-ref + self$1145 + 1) + ((%closure + (lambda (self$1146 + r$674) + ((%closure-ref + parse + 0) + parse + (%closure-ref + self$1146 + 3) + (%closure-ref + self$1146 + 2) + r$674 + (cell-get + (%closure-ref + self$1146 + 4)) + (%closure-ref + self$1146 + 1) + #f + (%closure-ref + self$1146 + 5) + (%closure-ref + self$1146 + 6))) + (%closure-ref + self$1145 + 1) + (%closure-ref + self$1145 + 2) + (%closure-ref + self$1145 + 3) + (%closure-ref + self$1145 + 4) + (%closure-ref + self$1145 + 5) + (%closure-ref + self$1145 + 6)) + '()) + ((%closure-ref + (%closure-ref + self$1145 + 3) + 0) + (%closure-ref + self$1145 + 3) + (car (cell-get + (%closure-ref + self$1145 + 4)))))) + (%closure-ref + self$1144 + 1) + (%closure-ref + self$1144 + 2) + (%closure-ref + self$1144 + 3) + (%closure-ref + self$1144 + 4) + (%closure-ref + self$1144 + 5) + (%closure-ref + self$1144 + 6)) + (set-cell! + (%closure-ref + self$1144 + 4) + r$675))) + (%closure-ref + self$1143 + 1) + (%closure-ref + self$1143 + 2) + (%closure-ref + self$1143 + 3) + (%closure-ref + self$1143 + 4) + (%closure-ref + self$1143 + 5) + (%closure-ref + self$1143 + 6)) + r$676 + (%closure-ref + self$1143 + 7))) + (%closure-ref + self$1142 + 1) + (%closure-ref + self$1142 + 2) + (%closure-ref + self$1142 + 3) + new-toks$212 + (%closure-ref + self$1142 + 4) + (%closure-ref + self$1142 + 5) + (%closure-ref + self$1142 + 7)))) + (%closure-ref + self$1141 + 1) + (%closure-ref + self$1141 + 2) + (%closure-ref + self$1141 + 3) + (%closure-ref + self$1141 + 4) + (%closure-ref + self$1141 + 5) + (%closure-ref + self$1141 + 6) + (%closure-ref + self$1141 + 7)) + (cell new-toks$212))) + (%closure-ref + self$1140 + 1) + (%closure-ref + self$1140 + 2) + (%closure-ref + self$1140 + 3) + (%closure-ref + self$1140 + 4) + (%closure-ref + self$1140 + 5) + sub$211 + toks*$210) + #f)) + (%closure-ref + self$1139 + 1) + (%closure-ref + self$1139 + 2) + (%closure-ref + self$1139 + 3) + (%closure-ref + self$1139 + 4) + (%closure-ref + self$1139 + 5)) + (%closure-ref + self$1139 + 6) + r$672)) + (%closure-ref + self$1138 + 1) + (%closure-ref + self$1138 + 2) + (%closure-ref + self$1138 + 3) + (%closure-ref + self$1138 + 4) + (%closure-ref + self$1138 + 5) + r$671) + (%closure-ref + self$1138 + 6) + (%closure-ref + self$1138 + 7))) + (%closure-ref + self$1137 + 1) + (%closure-ref + self$1137 + 2) + (%closure-ref + self$1137 + 3) + (%closure-ref + self$1137 + 4) + (%closure-ref + self$1137 + 5) + (%closure-ref + self$1137 + 8) + (%closure-ref + self$1137 + 9)) + (%closure-ref + self$1137 + 2) + (%closure-ref + self$1137 + 6) + (%closure-ref + self$1137 + 7) + #t + #f + r$685 + (%closure-ref + self$1137 + 5))) + (%closure-ref + self$1136 + 1) + (%closure-ref + self$1136 + 2) + (%closure-ref + self$1136 + 3) + (%closure-ref + self$1136 + 4) + (%closure-ref + self$1136 + 5) + (%closure-ref + self$1136 + 6) + r$684 + (%closure-ref + self$1136 + 7) + (%closure-ref + self$1136 + 8)) + (+ (%closure-ref + self$1136 + 4) + 1))) + (%closure-ref + self$1135 + 1) + (%closure-ref + self$1135 + 2) + (%closure-ref + self$1135 + 3) + (%closure-ref + self$1135 + 4) + (%closure-ref + self$1135 + 5) + r$683 + (%closure-ref + self$1135 + 6) + (%closure-ref + self$1135 + 7)) + '())) + (%closure-ref + self$1134 + 1) + (%closure-ref + self$1134 + 2) + (%closure-ref + self$1134 + 3) + (%closure-ref + self$1134 + 4) + (%closure-ref + self$1134 + 5) + (%closure-ref + self$1134 + 6) + (%closure-ref + self$1134 + 7)) + '())) + (%closure-ref + self$1133 + 1) + (%closure-ref + self$1133 + 2) + (%closure-ref + self$1133 + 3) + (%closure-ref + self$1133 + 5) + (%closure-ref + self$1133 + 6) + (%closure-ref + self$1133 + 7) + (%closure-ref + self$1133 + 8)))) + (%closure-ref + self$1132 + 1) + (%closure-ref + self$1132 + 2) + (%closure-ref + self$1132 + 3) + (%closure-ref + self$1132 + 4) + (%closure-ref + self$1132 + 5) + (%closure-ref + self$1132 + 6) + (%closure-ref + self$1132 + 7) + (%closure-ref + self$1132 + 8)) + (set-cell! + (%closure-ref + self$1132 + 4) + r$690))) + (%closure-ref + self$1131 + 1) + (%closure-ref + self$1131 + 2) + (%closure-ref + self$1131 + 3) + (%closure-ref + self$1131 + 4) + (%closure-ref + self$1131 + 5) + (%closure-ref + self$1131 + 6) + (%closure-ref + self$1131 + 7) + (%closure-ref + self$1131 + 8)) + (read-char + (%closure-ref + self$1131 + 2)))) + (%closure-ref + self$1130 + 1) + (%closure-ref + self$1130 + 2) + (%closure-ref + self$1130 + 3) + (%closure-ref + self$1130 + 4) + (%closure-ref + self$1130 + 5) + (%closure-ref + self$1130 + 6) + (%closure-ref + self$1130 + 7) + (%closure-ref + self$1130 + 8)))) + (%closure-ref + self$1129 + 1) + (%closure-ref + self$1129 + 2) + (%closure-ref + self$1129 + 3) + (%closure-ref + self$1129 + 4) + (%closure-ref + self$1129 + 5) + (%closure-ref + self$1129 + 6) + (%closure-ref + self$1129 + 7) + (%closure-ref + self$1129 + 8)) + (set-cell! + (%closure-ref + self$1129 + 4) + r$695))) + (%closure-ref + self$1128 + 1) + (%closure-ref + self$1128 + 2) + (%closure-ref + self$1128 + 3) + (%closure-ref + self$1128 + 4) + (%closure-ref + self$1128 + 5) + (%closure-ref + self$1128 + 6) + (%closure-ref + self$1128 + 7) + (%closure-ref + self$1128 + 8)) + (read-char + (%closure-ref + self$1128 + 2)))) + (%closure-ref + self$1086 + 1) + (%closure-ref + self$1086 + 3) + (%closure-ref + self$1086 + 4) + (%closure-ref + self$1086 + 5) + (%closure-ref + self$1086 + 6) + (%closure-ref + self$1086 + 7) + (%closure-ref + self$1086 + 8) + (%closure-ref + self$1086 + 9))) + ((%closure + (lambda (self$1087 + r$696) + (if r$696 + ((%closure + (lambda (self$1109) + ((%closure + (lambda (self$1110 + r$709) + ((%closure + (lambda (self$1111 + r$710) + ((%closure + (lambda (self$1112 + r$711) + ((%closure-ref + parse + 0) + parse + (%closure + (lambda (self$1113 + r$697) + ((%closure-ref + get-toks + 0) + get-toks + (%closure + (lambda (self$1114 + r$698) + ((%closure + (lambda (self$1115 + sub$208 + toks*$207) + ((%closure + (lambda (self$1116 + new-toks$209) + ((%closure + (lambda (self$1117 + new-toks$209) + ((%closure + (lambda (self$1122 + k$703) + ((%closure + (lambda (self$1126 + k$707) + ((%closure + (lambda (self$1127 + r$708) + (if r$708 + ((%closure-ref + dotted? + 0) + dotted? + (%closure-ref + self$1127 + 1) + (%closure-ref + self$1127 + 2)) + ((%closure-ref + (%closure-ref + self$1127 + 1) + 0) + (%closure-ref + self$1127 + 1) + #f))) + k$707 + (%closure-ref + self$1126 + 1)) + (pair? (%closure-ref + self$1126 + 1)))) + (%closure-ref + self$1122 + 2)) + (%closure + (lambda (self$1123 + r$704) + (if r$704 + ((%closure-ref + in-port:get-lnum + 0) + in-port:get-lnum + (%closure + (lambda (self$1124 + r$705) + ((%closure-ref + in-port:get-cnum + 0) + in-port:get-cnum + (%closure + (lambda (self$1125 + r$706) + ((%closure-ref + parse-error + 0) + parse-error + (%closure-ref + self$1125 + 1) + "Invalid vector syntax" + (%closure-ref + self$1125 + 2) + r$706)) + (%closure-ref + self$1124 + 1) + r$705) + (%closure-ref + self$1124 + 2))) + (%closure-ref + self$1123 + 1) + (%closure-ref + self$1123 + 2)) + (%closure-ref + self$1123 + 2)) + ((%closure-ref + (%closure-ref + self$1123 + 1) + 0) + (%closure-ref + self$1123 + 1) + (list->vector + (%closure-ref + self$1123 + 3))))) + k$703 + (%closure-ref + self$1122 + 1) + (%closure-ref + self$1122 + 2)))) + (%closure-ref + self$1117 + 5) + (%closure-ref + self$1117 + 6)) + (%closure + (lambda (self$1118 + r$702) + ((%closure-ref + add-tok + 0) + add-tok + (%closure + (lambda (self$1119 + r$701) + ((%closure + (lambda (self$1120 + r$699) + (if (%closure-ref + self$1120 + 1) + ((%closure + (lambda (self$1121 + r$700) + ((%closure-ref + parse + 0) + parse + (%closure-ref + self$1121 + 3) + (%closure-ref + self$1121 + 2) + r$700 + (cell-get + (%closure-ref + self$1121 + 4)) + (%closure-ref + self$1121 + 1) + #f + (%closure-ref + self$1121 + 5) + (%closure-ref + self$1121 + 6))) + (%closure-ref + self$1120 + 1) + (%closure-ref + self$1120 + 2) + (%closure-ref + self$1120 + 3) + (%closure-ref + self$1120 + 4) + (%closure-ref + self$1120 + 5) + (%closure-ref + self$1120 + 6)) + '()) + ((%closure-ref + (%closure-ref + self$1120 + 3) + 0) + (%closure-ref + self$1120 + 3) + (car (cell-get + (%closure-ref + self$1120 + 4)))))) + (%closure-ref + self$1119 + 1) + (%closure-ref + self$1119 + 2) + (%closure-ref + self$1119 + 3) + (%closure-ref + self$1119 + 4) + (%closure-ref + self$1119 + 5) + (%closure-ref + self$1119 + 6)) + (set-cell! + (%closure-ref + self$1119 + 4) + r$701))) + (%closure-ref + self$1118 + 1) + (%closure-ref + self$1118 + 2) + (%closure-ref + self$1118 + 3) + (%closure-ref + self$1118 + 4) + (%closure-ref + self$1118 + 5) + (%closure-ref + self$1118 + 6)) + r$702 + (%closure-ref + self$1118 + 7))) + (%closure-ref + self$1117 + 1) + (%closure-ref + self$1117 + 2) + (%closure-ref + self$1117 + 3) + new-toks$209 + (%closure-ref + self$1117 + 4) + (%closure-ref + self$1117 + 5) + (%closure-ref + self$1117 + 7)))) + (%closure-ref + self$1116 + 1) + (%closure-ref + self$1116 + 2) + (%closure-ref + self$1116 + 3) + (%closure-ref + self$1116 + 4) + (%closure-ref + self$1116 + 5) + (%closure-ref + self$1116 + 6) + (%closure-ref + self$1116 + 7)) + (cell new-toks$209))) + (%closure-ref + self$1115 + 1) + (%closure-ref + self$1115 + 2) + (%closure-ref + self$1115 + 3) + (%closure-ref + self$1115 + 4) + (%closure-ref + self$1115 + 5) + sub$208 + toks*$207) + #f)) + (%closure-ref + self$1114 + 1) + (%closure-ref + self$1114 + 2) + (%closure-ref + self$1114 + 3) + (%closure-ref + self$1114 + 4) + (%closure-ref + self$1114 + 5)) + (%closure-ref + self$1114 + 6) + r$698)) + (%closure-ref + self$1113 + 1) + (%closure-ref + self$1113 + 2) + (%closure-ref + self$1113 + 3) + (%closure-ref + self$1113 + 4) + (%closure-ref + self$1113 + 5) + r$697) + (%closure-ref + self$1113 + 6) + (%closure-ref + self$1113 + 7))) + (%closure-ref + self$1112 + 1) + (%closure-ref + self$1112 + 2) + (%closure-ref + self$1112 + 3) + (%closure-ref + self$1112 + 4) + (%closure-ref + self$1112 + 5) + (%closure-ref + self$1112 + 8) + (%closure-ref + self$1112 + 9)) + (%closure-ref + self$1112 + 2) + (%closure-ref + self$1112 + 6) + (%closure-ref + self$1112 + 7) + #t + #f + r$711 + (%closure-ref + self$1112 + 5))) + (%closure-ref + self$1111 + 1) + (%closure-ref + self$1111 + 2) + (%closure-ref + self$1111 + 3) + (%closure-ref + self$1111 + 4) + (%closure-ref + self$1111 + 5) + (%closure-ref + self$1111 + 6) + r$710 + (%closure-ref + self$1111 + 7) + (%closure-ref + self$1111 + 8)) + (+ (%closure-ref + self$1111 + 4) + 1))) + (%closure-ref + self$1110 + 1) + (%closure-ref + self$1110 + 2) + (%closure-ref + self$1110 + 3) + (%closure-ref + self$1110 + 4) + (%closure-ref + self$1110 + 5) + r$709 + (%closure-ref + self$1110 + 6) + (%closure-ref + self$1110 + 7)) + '())) + (%closure-ref + self$1109 + 1) + (%closure-ref + self$1109 + 2) + (%closure-ref + self$1109 + 3) + (%closure-ref + self$1109 + 4) + (%closure-ref + self$1109 + 5) + (%closure-ref + self$1109 + 6) + (%closure-ref + self$1109 + 7)) + '())) + (%closure-ref + self$1087 + 1) + (%closure-ref + self$1087 + 3) + (%closure-ref + self$1087 + 4) + (%closure-ref + self$1087 + 6) + (%closure-ref + self$1087 + 7) + (%closure-ref + self$1087 + 8) + (%closure-ref + self$1087 + 9))) + ((%closure + (lambda (self$1088 + r$712) + (if r$712 + ((%closure + (lambda (self$1105) + ((%closure-ref + read-pound + 0) + read-pound + (%closure + (lambda (self$1106 + r$715) + ((%closure + (lambda (self$1107 + new-toks$206) + (if (%closure-ref + self$1107 + 1) + ((%closure + (lambda (self$1108 + r$714) + ((%closure-ref + parse + 0) + parse + (%closure-ref + self$1108 + 3) + (%closure-ref + self$1108 + 2) + r$714 + (%closure-ref + self$1108 + 4) + (%closure-ref + self$1108 + 1) + #f + (%closure-ref + self$1108 + 5) + (%closure-ref + self$1108 + 6))) + (%closure-ref + self$1107 + 1) + (%closure-ref + self$1107 + 2) + (%closure-ref + self$1107 + 3) + new-toks$206 + (%closure-ref + self$1107 + 4) + (%closure-ref + self$1107 + 5)) + '()) + ((%closure-ref + (%closure-ref + self$1107 + 3) + 0) + (%closure-ref + self$1107 + 3) + (car new-toks$206)))) + (%closure-ref + self$1106 + 1) + (%closure-ref + self$1106 + 2) + (%closure-ref + self$1106 + 3) + (%closure-ref + self$1106 + 4) + (%closure-ref + self$1106 + 5)) + (cons r$715 + (%closure-ref + self$1106 + 6)))) + (%closure-ref + self$1105 + 1) + (%closure-ref + self$1105 + 2) + (%closure-ref + self$1105 + 3) + (%closure-ref + self$1105 + 4) + (%closure-ref + self$1105 + 5) + (%closure-ref + self$1105 + 6)) + (%closure-ref + self$1105 + 2) + (%closure-ref + self$1105 + 5))) + (%closure-ref + self$1088 + 1) + (%closure-ref + self$1088 + 3) + (%closure-ref + self$1088 + 4) + (%closure-ref + self$1088 + 6) + (%closure-ref + self$1088 + 7) + (%closure-ref + self$1088 + 9))) + ((%closure + (lambda (self$1089 + r$716) + (if r$716 + ((%closure + (lambda (self$1093) + ((%closure + (lambda (self$1094 + r$724) + ((%closure + (lambda (self$1095 + r$725) + ((%closure-ref + parse + 0) + parse + (%closure + (lambda (self$1096 + r$717) + ((%closure + (lambda (self$1103 + k$722) + (if (%closure-ref + self$1103 + 1) + ((%closure-ref + k$722 + 0) + k$722 + #f) + ((%closure + (lambda (self$1104 + r$723) + ((%closure-ref + not + 0) + not + (%closure-ref + self$1104 + 1) + r$723)) + k$722) + (null? (%closure-ref + self$1103 + 2))))) + (%closure-ref + self$1096 + 1) + (%closure-ref + self$1096 + 7)) + (%closure + (lambda (self$1097 + r$718) + (if r$718 + ((%closure + (lambda (self$1099) + ((%closure-ref + in-port:set-buf! + 0) + in-port:set-buf! + (%closure + (lambda (self$1100 + r$719) + ((%closure-ref + ->tok + 0) + ->tok + (%closure + (lambda (self$1101 + r$721) + ((%closure-ref + add-tok + 0) + add-tok + (%closure + (lambda (self$1102 + r$720) + ((%closure-ref + (%closure-ref + self$1102 + 1) + 0) + (%closure-ref + self$1102 + 1) + (car r$720))) + (%closure-ref + self$1101 + 1)) + r$721 + (%closure-ref + self$1101 + 2))) + (%closure-ref + self$1100 + 1) + (%closure-ref + self$1100 + 3)) + (%closure-ref + self$1100 + 2))) + (%closure-ref + self$1099 + 2) + (%closure-ref + self$1099 + 4) + (%closure-ref + self$1099 + 5)) + (%closure-ref + self$1099 + 3) + (%closure-ref + self$1099 + 1))) + (%closure-ref + self$1097 + 2) + (%closure-ref + self$1097 + 4) + (%closure-ref + self$1097 + 6) + (%closure-ref + self$1097 + 7) + (%closure-ref + self$1097 + 8))) + ((%closure + (lambda (self$1098) + ((%closure-ref + parse + 0) + parse + (%closure-ref + self$1098 + 3) + (%closure-ref + self$1098 + 2) + (%closure-ref + self$1098 + 6) + (%closure-ref + self$1098 + 7) + (%closure-ref + self$1098 + 1) + #f + (%closure-ref + self$1098 + 4) + (%closure-ref + self$1098 + 5))) + (%closure-ref + self$1097 + 1) + (%closure-ref + self$1097 + 3) + (%closure-ref + self$1097 + 4) + (%closure-ref + self$1097 + 5) + (%closure-ref + self$1097 + 6) + (%closure-ref + self$1097 + 7) + (%closure-ref + self$1097 + 8))))) + (%closure-ref + self$1096 + 1) + (%closure-ref + self$1096 + 2) + (%closure-ref + self$1096 + 3) + (%closure-ref + self$1096 + 4) + (%closure-ref + self$1096 + 5) + (%closure-ref + self$1096 + 6) + (%closure-ref + self$1096 + 7) + (%closure-ref + self$1096 + 8)))) + (%closure-ref + self$1095 + 1) + (%closure-ref + self$1095 + 2) + (%closure-ref + self$1095 + 3) + (%closure-ref + self$1095 + 4) + (%closure-ref + self$1095 + 5) + (%closure-ref + self$1095 + 6) + (%closure-ref + self$1095 + 8) + (%closure-ref + self$1095 + 9)) + (%closure-ref + self$1095 + 3) + (%closure-ref + self$1095 + 7) + r$725 + #f + #f + 0 + (%closure-ref + self$1095 + 6))) + (%closure-ref + self$1094 + 1) + (%closure-ref + self$1094 + 2) + (%closure-ref + self$1094 + 3) + (%closure-ref + self$1094 + 4) + (%closure-ref + self$1094 + 5) + (%closure-ref + self$1094 + 6) + r$724 + (%closure-ref + self$1094 + 7) + (%closure-ref + self$1094 + 8)) + '())) + (%closure-ref + self$1093 + 1) + (%closure-ref + self$1093 + 2) + (%closure-ref + self$1093 + 3) + (%closure-ref + self$1093 + 4) + (%closure-ref + self$1093 + 5) + (%closure-ref + self$1093 + 6) + (%closure-ref + self$1093 + 7) + (%closure-ref + self$1093 + 8)) + '())) + (%closure-ref + self$1089 + 1) + (%closure-ref + self$1089 + 2) + (%closure-ref + self$1089 + 3) + (%closure-ref + self$1089 + 4) + (%closure-ref + self$1089 + 5) + (%closure-ref + self$1089 + 6) + (%closure-ref + self$1089 + 7) + (%closure-ref + self$1089 + 8))) + ((%closure + (lambda (self$1090) + ((%closure-ref + in-port:get-lnum + 0) + in-port:get-lnum + (%closure + (lambda (self$1091 + r$726) + ((%closure-ref + in-port:get-cnum + 0) + in-port:get-cnum + (%closure + (lambda (self$1092 + r$727) + ((%closure-ref + parse-error + 0) + parse-error + (%closure-ref + self$1092 + 1) + "Unhandled input sequence" + (%closure-ref + self$1092 + 2) + r$727)) + (%closure-ref + self$1091 + 1) + r$726) + (%closure-ref + self$1091 + 2))) + (%closure-ref + self$1090 + 1) + (%closure-ref + self$1090 + 2)) + (%closure-ref + self$1090 + 2))) + (%closure-ref + self$1089 + 4) + (%closure-ref + self$1089 + 6))))) + (%closure-ref + self$1088 + 1) + (%closure-ref + self$1088 + 2) + (%closure-ref + self$1088 + 3) + (%closure-ref + self$1088 + 4) + (%closure-ref + self$1088 + 6) + (%closure-ref + self$1088 + 7) + (%closure-ref + self$1088 + 8) + (%closure-ref + self$1088 + 9)) + (eq? #\; + (cell-get + (%closure-ref + self$1088 + 5)))))) + (%closure-ref + self$1087 + 1) + (%closure-ref + self$1087 + 2) + (%closure-ref + self$1087 + 3) + (%closure-ref + self$1087 + 4) + (%closure-ref + self$1087 + 5) + (%closure-ref + self$1087 + 6) + (%closure-ref + self$1087 + 7) + (%closure-ref + self$1087 + 8) + (%closure-ref + self$1087 + 9)) + (eq? #\\ + (cell-get + (%closure-ref + self$1087 + 5)))))) + (%closure-ref + self$1086 + 1) + (%closure-ref + self$1086 + 2) + (%closure-ref + self$1086 + 3) + (%closure-ref + self$1086 + 4) + (%closure-ref + self$1086 + 5) + (%closure-ref + self$1086 + 6) + (%closure-ref + self$1086 + 7) + (%closure-ref + self$1086 + 8) + (%closure-ref + self$1086 + 9)) + (eq? #\( + (cell-get + (%closure-ref + self$1086 + 5)))))) + (%closure-ref + self$1085 + 1) + (%closure-ref + self$1085 + 2) + (%closure-ref + self$1085 + 3) + (%closure-ref + self$1085 + 4) + (%closure-ref + self$1085 + 5) + (%closure-ref + self$1085 + 6) + (%closure-ref + self$1085 + 7) + (%closure-ref + self$1085 + 8) + (%closure-ref + self$1085 + 9)) + (eq? #\u + (cell-get + (%closure-ref + self$1085 + 5)))))) + (%closure-ref + self$1084 + 1) + (%closure-ref + self$1084 + 2) + (%closure-ref + self$1084 + 3) + (%closure-ref + self$1084 + 4) + (%closure-ref + self$1084 + 5) + (%closure-ref + self$1084 + 6) + (%closure-ref + self$1084 + 7) + (%closure-ref + self$1084 + 8) + (%closure-ref + self$1084 + 9)) + (eq? #\x + (cell-get + (%closure-ref + self$1084 + 5)))))) + (%closure-ref + self$1083 + 1) + (%closure-ref + self$1083 + 2) + (%closure-ref + self$1083 + 3) + (%closure-ref + self$1083 + 4) + (%closure-ref + self$1083 + 5) + (%closure-ref + self$1083 + 6) + (%closure-ref + self$1083 + 7) + (%closure-ref + self$1083 + 8) + (%closure-ref + self$1083 + 9)) + (eq? #\o + (cell-get + (%closure-ref + self$1083 + 5)))))) + (%closure-ref + self$1082 + 1) + (%closure-ref + self$1082 + 2) + (%closure-ref + self$1082 + 3) + (%closure-ref + self$1082 + 4) + (%closure-ref + self$1082 + 5) + (%closure-ref + self$1082 + 6) + (%closure-ref + self$1082 + 7) + (%closure-ref + self$1082 + 8) + (%closure-ref + self$1082 + 9)) + (eq? #\b + (cell-get + (%closure-ref + self$1082 + 5)))))) + (%closure-ref + self$1081 + 1) + (%closure-ref + self$1081 + 2) + (%closure-ref + self$1081 + 3) + (%closure-ref + self$1081 + 4) + (%closure-ref + self$1081 + 5) + (%closure-ref + self$1081 + 6) + (%closure-ref + self$1081 + 7) + (%closure-ref + self$1081 + 8) + (%closure-ref + self$1081 + 9)) + (eq? #\i + (cell-get + (%closure-ref + self$1081 + 5)))))) + (%closure-ref + self$1080 + 1) + (%closure-ref + self$1080 + 2) + (%closure-ref + self$1080 + 3) + (%closure-ref + self$1080 + 4) + (%closure-ref + self$1080 + 5) + (%closure-ref + self$1080 + 6) + (%closure-ref + self$1080 + 7) + (%closure-ref + self$1080 + 8) + (%closure-ref + self$1080 + 9)) + (eq? #\e + (cell-get + (%closure-ref + self$1080 + 5)))))) + (%closure-ref + self$1079 + 1) + (%closure-ref + self$1079 + 2) + (%closure-ref + self$1079 + 3) + (%closure-ref + self$1079 + 4) + (%closure-ref + self$1079 + 5) + (%closure-ref + self$1079 + 6) + (%closure-ref + self$1079 + 7) + (%closure-ref + self$1079 + 8) + (%closure-ref + self$1079 + 9)) + (eq? #\f + (cell-get + (%closure-ref + self$1079 + 5)))))) + (%closure-ref + self$1078 + 1) + (%closure-ref + self$1078 + 2) + (%closure-ref + self$1078 + 3) + (%closure-ref + self$1078 + 4) + (%closure-ref + self$1078 + 5) + (%closure-ref + self$1078 + 6) + (%closure-ref + self$1078 + 7) + (%closure-ref + self$1078 + 8) + (%closure-ref + self$1078 + 9)) + (eq? #\t + (cell-get + (%closure-ref + self$1078 + 5)))))) + (%closure-ref + self$1077 + 1) + (%closure-ref + self$1077 + 2) + (%closure-ref + self$1077 + 3) + (%closure-ref + self$1077 + 4) + (%closure-ref + self$1077 + 5) + (%closure-ref + self$1077 + 6) + (%closure-ref + self$1077 + 7) + (%closure-ref + self$1077 + 8) + (%closure-ref + self$1077 + 9)) + (eq? #\| + (cell-get + (%closure-ref + self$1077 + 5))))) + (%closure-ref + self$1076 + 1) + (%closure-ref + self$1076 + 2) + (%closure-ref + self$1076 + 3) + (%closure-ref + self$1076 + 4) + (%closure-ref + self$1076 + 5) + (%closure-ref + self$1076 + 6) + (%closure-ref + self$1076 + 7) + (%closure-ref + self$1076 + 8) + (%closure-ref + self$1076 + 9)) + (%closure-ref + self$1076 + 7) + r$728)) + (%closure-ref + self$1075 + 1) + (%closure-ref + self$1075 + 2) + (%closure-ref + self$1075 + 3) + (%closure-ref + self$1075 + 4) + (%closure-ref + self$1075 + 5) + (%closure-ref + self$1075 + 6) + (%closure-ref + self$1075 + 7) + (%closure-ref + self$1075 + 8) + (%closure-ref + self$1075 + 9)) + (+ 1 + r$729))) + (%closure-ref + self$1074 + 1) + (%closure-ref + self$1074 + 2) + (%closure-ref + self$1074 + 3) + (%closure-ref + self$1074 + 4) + next-c$205 + (%closure-ref + self$1074 + 5) + (%closure-ref + self$1074 + 6) + (%closure-ref + self$1074 + 7) + (%closure-ref + self$1074 + 8)) + (%closure-ref + self$1074 + 6))) + (%closure-ref + self$1073 + 1) + (%closure-ref + self$1073 + 2) + (%closure-ref + self$1073 + 3) + (%closure-ref + self$1073 + 4) + (%closure-ref + self$1073 + 5) + (%closure-ref + self$1073 + 6) + (%closure-ref + self$1073 + 7) + (%closure-ref + self$1073 + 8)) + (cell next-c$205))) + (%closure-ref + self$1071 + 1) + (%closure-ref + self$1071 + 2) + (%closure-ref + self$1071 + 3) + (%closure-ref + self$1071 + 4) + (%closure-ref + self$1071 + 5) + (%closure-ref + self$1071 + 6) + (%closure-ref + self$1071 + 7) + (%closure-ref + self$1071 + 8)) + (read-char + (%closure-ref + self$1071 + 3))) + ((%closure + (lambda (self$1072 + r$730) + ((%closure-ref + parse + 0) + parse + (%closure-ref + self$1072 + 3) + (%closure-ref + self$1072 + 2) + r$730 + (%closure-ref + self$1072 + 6) + (%closure-ref + self$1072 + 1) + #f + (%closure-ref + self$1072 + 4) + (%closure-ref + self$1072 + 5))) + (%closure-ref + self$1071 + 1) + (%closure-ref + self$1071 + 3) + (%closure-ref + self$1071 + 4) + (%closure-ref + self$1071 + 5) + (%closure-ref + self$1071 + 6) + (%closure-ref + self$1071 + 8)) + (cons (%closure-ref + self$1071 + 2) + (%closure-ref + self$1071 + 7))))) + (%closure-ref + self$1070 + 1) + (%closure-ref + self$1070 + 2) + (%closure-ref + self$1070 + 3) + (%closure-ref + self$1070 + 4) + (%closure-ref + self$1070 + 5) + (%closure-ref + self$1070 + 6) + (%closure-ref + self$1070 + 7) + (%closure-ref + self$1070 + 8)) + (null? (%closure-ref + self$1070 + 7)))) + (%closure-ref + self$1065 + 1) + (%closure-ref + self$1065 + 2) + (%closure-ref + self$1065 + 3) + (%closure-ref + self$1065 + 4) + (%closure-ref + self$1065 + 5) + (%closure-ref + self$1065 + 6) + (%closure-ref + self$1065 + 7) + (%closure-ref + self$1065 + 8))) + ((%closure + (lambda (self$1066 + r$731) + (if r$731 + ((%closure + (lambda (self$1069) + ((%closure-ref + parse-literal-identifier + 0) + parse-literal-identifier + (%closure-ref + self$1069 + 3) + (%closure-ref + self$1069 + 2) + (%closure-ref + self$1069 + 6) + (%closure-ref + self$1069 + 1) + (%closure-ref + self$1069 + 4) + (%closure-ref + self$1069 + 5))) + (%closure-ref + self$1066 + 1) + (%closure-ref + self$1066 + 3) + (%closure-ref + self$1066 + 4) + (%closure-ref + self$1066 + 5) + (%closure-ref + self$1066 + 6) + (%closure-ref + self$1066 + 8))) + ((%closure + (lambda (self$1067) + ((%closure + (lambda (self$1068 + r$732) + ((%closure-ref + parse + 0) + parse + (%closure-ref + self$1068 + 3) + (%closure-ref + self$1068 + 2) + r$732 + (%closure-ref + self$1068 + 6) + (%closure-ref + self$1068 + 1) + #f + (%closure-ref + self$1068 + 4) + (%closure-ref + self$1068 + 5))) + (%closure-ref + self$1067 + 1) + (%closure-ref + self$1067 + 3) + (%closure-ref + self$1067 + 4) + (%closure-ref + self$1067 + 5) + (%closure-ref + self$1067 + 6) + (%closure-ref + self$1067 + 8)) + (cons (%closure-ref + self$1067 + 2) + (%closure-ref + self$1067 + 7)))) + (%closure-ref + self$1066 + 1) + (%closure-ref + self$1066 + 2) + (%closure-ref + self$1066 + 3) + (%closure-ref + self$1066 + 4) + (%closure-ref + self$1066 + 5) + (%closure-ref + self$1066 + 6) + (%closure-ref + self$1066 + 7) + (%closure-ref + self$1066 + 8))))) + (%closure-ref + self$1065 + 1) + (%closure-ref + self$1065 + 2) + (%closure-ref + self$1065 + 3) + (%closure-ref + self$1065 + 4) + (%closure-ref + self$1065 + 5) + (%closure-ref + self$1065 + 6) + (%closure-ref + self$1065 + 7) + (%closure-ref + self$1065 + 8)) + (eq? (%closure-ref + self$1065 + 2) + #\|)))) + (%closure-ref + self$1064 + 1) + (%closure-ref + self$1064 + 2) + (%closure-ref + self$1064 + 3) + (%closure-ref + self$1064 + 4) + (%closure-ref + self$1064 + 5) + (%closure-ref + self$1064 + 6) + (%closure-ref + self$1064 + 7) + (%closure-ref + self$1064 + 8)) + (eq? (%closure-ref + self$1064 + 2) + #\#)))) + (%closure-ref + self$1063 + 1) + (%closure-ref + self$1063 + 2) + (%closure-ref + self$1063 + 3) + (%closure-ref + self$1063 + 4) + (%closure-ref + self$1063 + 5) + (%closure-ref + self$1063 + 6) + (%closure-ref + self$1063 + 7) + (%closure-ref + self$1063 + 8)) + (eq? (%closure-ref + self$1063 + 2) + #\")))) + (%closure-ref + self$1062 + 1) + (%closure-ref + self$1062 + 2) + (%closure-ref + self$1062 + 3) + (%closure-ref + self$1062 + 4) + (%closure-ref + self$1062 + 5) + (%closure-ref + self$1062 + 6) + (%closure-ref + self$1062 + 7) + (%closure-ref + self$1062 + 8)) + (eq? (%closure-ref + self$1062 + 2) + #\))))) + (%closure-ref + self$1061 + 1) + (%closure-ref + self$1061 + 2) + (%closure-ref + self$1061 + 3) + (%closure-ref + self$1061 + 4) + (%closure-ref + self$1061 + 5) + (%closure-ref + self$1061 + 6) + (%closure-ref + self$1061 + 7) + (%closure-ref + self$1061 + 8)) + (eq? (%closure-ref + self$1061 + 2) + #\()))) + (%closure-ref + self$1060 + 1) + (%closure-ref + self$1060 + 2) + (%closure-ref + self$1060 + 3) + (%closure-ref + self$1060 + 4) + (%closure-ref + self$1060 + 5) + (%closure-ref + self$1060 + 6) + (%closure-ref + self$1060 + 7) + (%closure-ref + self$1060 + 8)) + (eq? (%closure-ref + self$1060 + 2) + #\,)))) + (%closure-ref + self$1059 + 1) + (%closure-ref + self$1059 + 2) + (%closure-ref + self$1059 + 3) + (%closure-ref + self$1059 + 4) + (%closure-ref + self$1059 + 5) + (%closure-ref + self$1059 + 6) + (%closure-ref + self$1059 + 7) + (%closure-ref + self$1059 + 8)) + (eq? (%closure-ref + self$1059 + 2) + #\`)))) + (%closure-ref + self$1058 + 1) + (%closure-ref + self$1058 + 2) + (%closure-ref + self$1058 + 3) + (%closure-ref + self$1058 + 4) + (%closure-ref + self$1058 + 5) + (%closure-ref + self$1058 + 6) + (%closure-ref + self$1058 + 7) + (%closure-ref + self$1058 + 8)) + (eq? (%closure-ref + self$1058 + 2) + #\')))) + (%closure-ref self$1057 1) + (%closure-ref self$1057 2) + (%closure-ref self$1057 3) + (%closure-ref self$1057 4) + (%closure-ref self$1057 5) + (%closure-ref self$1057 6) + (%closure-ref self$1057 7) + (%closure-ref self$1057 8)) + (eq? (%closure-ref self$1057 2) + #\;)))) + (%closure-ref self$1056 1) + (%closure-ref self$1056 2) + (%closure-ref self$1056 4) + (%closure-ref self$1056 5) + (%closure-ref self$1056 6) + (%closure-ref self$1056 7) + (%closure-ref self$1056 8) + (%closure-ref self$1056 9)) + (%closure-ref self$1056 2))))) + (%closure-ref self$1055 1) + c$204 + (%closure-ref self$1055 2) + (%closure-ref self$1055 3) + (%closure-ref self$1055 4) + (%closure-ref self$1055 5) + (%closure-ref self$1055 6) + (%closure-ref self$1055 7) + (%closure-ref self$1055 8)) + (eof-object? c$204))) + (%closure-ref self$1054 1) + (%closure-ref self$1054 2) + (%closure-ref self$1054 3) + (%closure-ref self$1054 4) + (%closure-ref self$1054 5) + (%closure-ref self$1054 6) + (%closure-ref self$1054 7) + (%closure-ref self$1054 8)))) + (%closure-ref self$1053 1) + (%closure-ref self$1053 2) + (%closure-ref self$1053 3) + (%closure-ref self$1053 4) + (%closure-ref self$1053 5) + (%closure-ref self$1053 6) + (%closure-ref self$1053 7) + (%closure-ref self$1053 8)) + (%closure-ref self$1053 6) + r$735)) + (%closure-ref self$1052 1) + (%closure-ref self$1052 2) + (%closure-ref self$1052 3) + (%closure-ref self$1052 4) + (%closure-ref self$1052 5) + (%closure-ref self$1052 6) + (%closure-ref self$1052 7) + (%closure-ref self$1052 8)) + (+ 1 r$736))) + (%closure-ref self$1051 1) + (%closure-ref self$1051 2) + (%closure-ref self$1051 3) + (%closure-ref self$1051 4) + (%closure-ref self$1051 5) + (%closure-ref self$1051 6) + (%closure-ref self$1051 7) + (%closure-ref self$1051 8)) + (%closure-ref self$1051 6))) + all?$199 + comment?$198 + fp$202 + k$497 + parens$197 + ptbl$196 + tok$201 + toks$200)))) + (define read-pound + (lambda (k$438 fp$183 ptbl$182) + ((%closure + (lambda (self$976 done$187 loop$186) + ((%closure + (lambda (self$977 done$187) + ((%closure + (lambda (self$978 loop$186) + ((%closure + (lambda (self$979) + ((%closure + (lambda (self$1031 r$456) + ((%closure + (lambda (self$1032 r$439) + ((%closure + (lambda (self$1048 r$442) + ((%closure + (lambda (self$1049 r$440) + ((%closure + (lambda (self$1050 r$441) + ((%closure-ref + (cell-get + (%closure-ref + self$1050 + 2)) + 0) + (cell-get + (%closure-ref self$1050 2)) + (%closure-ref self$1050 1) + r$441)) + (%closure-ref self$1049 1) + (%closure-ref self$1049 2)) + '())) + (%closure-ref self$1048 1) + (%closure-ref self$1048 2)) + (set-cell! + (%closure-ref self$1048 2) + r$442))) + (%closure-ref self$1032 3) + (%closure-ref self$1032 4)) + (%closure + (lambda (self$1033 k$443 buf$190) + ((%closure + (lambda (self$1034 c$191) + ((%closure + (lambda (self$1035 tmp$192) + ((%closure + (lambda (self$1041 k$449) + (if (%closure-ref + self$1041 + 3) + ((%closure-ref k$449 0) + k$449 + (%closure-ref + self$1041 + 3)) + ((%closure + (lambda (self$1045 + k$453) + ((%closure-ref + char-whitespace? + 0) + char-whitespace? + (%closure + (lambda (self$1046 + r$454) + (if r$454 + ((%closure + (lambda (self$1047 + r$455) + ((%closure-ref + (%closure-ref + self$1047 + 1) + 0) + (%closure-ref + self$1047 + 1) + (> r$455 + 0))) + (%closure-ref + self$1046 + 2)) + (length + (%closure-ref + self$1046 + 1))) + ((%closure-ref + (%closure-ref + self$1046 + 2) + 0) + (%closure-ref + self$1046 + 2) + #f))) + (%closure-ref + self$1045 + 1) + k$453) + (%closure-ref + self$1045 + 2))) + (%closure-ref + self$1041 + 1) + (%closure-ref + self$1041 + 2)) + (%closure + (lambda (self$1042 + tmp$193) + (if tmp$193 + ((%closure-ref + (%closure-ref + self$1042 + 3) + 0) + (%closure-ref + self$1042 + 3) + tmp$193) + ((%closure + (lambda (self$1043 + r$452) + ((%closure + (lambda (self$1044 + r$451) + (if r$451 + ((%closure-ref + (%closure-ref + self$1044 + 2) + 0) + (%closure-ref + self$1044 + 2) + (equal? + (%closure-ref + self$1044 + 1) + #\))) + ((%closure-ref + (%closure-ref + self$1044 + 2) + 0) + (%closure-ref + self$1044 + 2) + #f))) + (%closure-ref + self$1043 + 1) + (%closure-ref + self$1043 + 2)) + (> r$452 + 0))) + (%closure-ref + self$1042 + 2) + (%closure-ref + self$1042 + 3)) + (length + (%closure-ref + self$1042 + 1))))) + (%closure-ref + self$1041 + 1) + (%closure-ref + self$1041 + 2) + k$449)))) + (%closure-ref self$1035 1) + (%closure-ref self$1035 2) + tmp$192) + (%closure + (lambda (self$1036 r$445) + (if r$445 + ((%closure + (lambda (self$1040) + ((%closure-ref + (cell-get + (%closure-ref + self$1040 + 2)) + 0) + (cell-get + (%closure-ref + self$1040 + 2)) + (%closure-ref + self$1040 + 3) + (%closure-ref + self$1040 + 1))) + (%closure-ref + self$1036 + 1) + (%closure-ref + self$1036 + 2) + (%closure-ref + self$1036 + 4))) + ((%closure + (lambda (self$1037) + ((%closure + (lambda (self$1038 + r$447) + ((%closure + (lambda (self$1039 + r$446) + ((%closure-ref + (cell-get + (%closure-ref + self$1039 + 2)) + 0) + (cell-get + (%closure-ref + self$1039 + 2)) + (%closure-ref + self$1039 + 1) + r$446)) + (%closure-ref + self$1038 + 2) + (%closure-ref + self$1038 + 3)) + (cons r$447 + (%closure-ref + self$1038 + 1)))) + (%closure-ref + self$1037 + 1) + (%closure-ref + self$1037 + 3) + (%closure-ref + self$1037 + 4)) + (read-char + (%closure-ref + self$1037 + 2)))) + (%closure-ref + self$1036 + 1) + (%closure-ref + self$1036 + 3) + (%closure-ref + self$1036 + 4) + (%closure-ref + self$1036 + 5))))) + (%closure-ref self$1035 1) + (%closure-ref self$1035 3) + (%closure-ref self$1035 4) + (%closure-ref self$1035 5) + (%closure-ref + self$1035 + 6)))) + (%closure-ref self$1034 1) + c$191 + (%closure-ref self$1034 2) + (%closure-ref self$1034 3) + (%closure-ref self$1034 4) + (%closure-ref self$1034 5)) + (eof-object? c$191))) + buf$190 + (%closure-ref self$1033 1) + (%closure-ref self$1033 2) + k$443 + (%closure-ref self$1033 3)) + (peek-char + (%closure-ref self$1033 2)))) + (%closure-ref self$1032 1) + (%closure-ref self$1032 2) + (%closure-ref self$1032 4)))) + (%closure-ref self$1031 1) + (%closure-ref self$1031 2) + (%closure-ref self$1031 3) + (%closure-ref self$1031 4)) + (set-cell! (%closure-ref self$1031 1) r$456))) + (%closure-ref self$979 1) + (%closure-ref self$979 2) + (%closure-ref self$979 3) + (%closure-ref self$979 4)) + (%closure + (lambda (self$980 k$457 raw-buf$194) + ((%closure-ref reverse 0) + reverse + (%closure + (lambda (self$981 buf$195) + ((%closure + (lambda (self$982 r$494) + ((%closure + (lambda (self$983 r$459) + (if r$459 + ((%closure + (lambda (self$1028) + ((%closure-ref + in-port:get-lnum + 0) + in-port:get-lnum + (%closure + (lambda (self$1029 r$460) + ((%closure-ref + in-port:get-cnum + 0) + in-port:get-cnum + (%closure + (lambda (self$1030 + r$461) + ((%closure-ref + parse-error + 0) + parse-error + (%closure-ref + self$1030 + 1) + "missing character" + (%closure-ref + self$1030 + 2) + r$461)) + (%closure-ref + self$1029 + 1) + r$460) + (%closure-ref + self$1029 + 2))) + (%closure-ref + self$1028 + 1) + (%closure-ref + self$1028 + 2)) + (%closure-ref + self$1028 + 2))) + (%closure-ref self$983 2) + (%closure-ref self$983 3))) + ((%closure + (lambda (self$984 r$493) + ((%closure + (lambda (self$985 r$462) + (if r$462 + ((%closure + (lambda (self$1027) + ((%closure-ref + (%closure-ref + self$1027 + 2) + 0) + (%closure-ref + self$1027 + 2) + (car (%closure-ref + self$1027 + 1)))) + (%closure-ref + self$985 + 1) + (%closure-ref + self$985 + 2))) + ((%closure + (lambda (self$986 + r$492) + ((%closure + (lambda (self$987 + r$463) + (if r$463 + ((%closure + (lambda (self$1026) + ((%closure-ref + (%closure-ref + self$1026 + 1) + 0) + (%closure-ref + self$1026 + 1) + #\)) + (%closure-ref + self$987 + 2))) + ((%closure + (lambda (self$988 + r$491) + ((%closure + (lambda (self$989 + r$464) + (if r$464 + ((%closure + (lambda (self$1025) + ((%closure-ref + (%closure-ref + self$1025 + 1) + 0) + (%closure-ref + self$1025 + 1) + #\)) + (%closure-ref + self$989 + 2))) + ((%closure + (lambda (self$990 + r$490) + ((%closure + (lambda (self$991 + r$465) + (if r$465 + ((%closure + (lambda (self$1024) + ((%closure-ref + (%closure-ref + self$1024 + 1) + 0) + (%closure-ref + self$1024 + 1) + #\)) + (%closure-ref + self$991 + 2))) + ((%closure + (lambda (self$992 + r$489) + ((%closure + (lambda (self$993 + r$466) + (if r$466 + ((%closure + (lambda (self$1023) + ((%closure-ref + (%closure-ref + self$1023 + 1) + 0) + (%closure-ref + self$1023 + 1) + #\)) + (%closure-ref + self$993 + 2))) + ((%closure + (lambda (self$994 + r$488) + ((%closure + (lambda (self$995 + r$467) + (if r$467 + ((%closure + (lambda (self$1022) + ((%closure-ref + (%closure-ref + self$1022 + 1) + 0) + (%closure-ref + self$1022 + 1) + #\newline)) + (%closure-ref + self$995 + 2))) + ((%closure + (lambda (self$996 + r$487) + ((%closure + (lambda (self$997 + r$468) + (if r$468 + ((%closure + (lambda (self$1021) + ((%closure-ref + (%closure-ref + self$1021 + 1) + 0) + (%closure-ref + self$1021 + 1) + #\)) + (%closure-ref + self$997 + 2))) + ((%closure + (lambda (self$998 + r$486) + ((%closure + (lambda (self$999 + r$469) + (if r$469 + ((%closure + (lambda (self$1020) + ((%closure-ref + (%closure-ref + self$1020 + 1) + 0) + (%closure-ref + self$1020 + 1) + #\ )) + (%closure-ref + self$999 + 2))) + ((%closure + (lambda (self$1000 + r$485) + ((%closure + (lambda (self$1001 + r$470) + (if r$470 + ((%closure + (lambda (self$1019) + ((%closure-ref + (%closure-ref + self$1019 + 1) + 0) + (%closure-ref + self$1019 + 1) + #\space)) + (%closure-ref + self$1001 + 2))) + ((%closure + (lambda (self$1002 + r$484) + ((%closure + (lambda (self$1003 + r$471) + (if r$471 + ((%closure + (lambda (self$1018) + ((%closure-ref + (%closure-ref + self$1018 + 1) + 0) + (%closure-ref + self$1018 + 1) + #\ )) + (%closure-ref + self$1003 + 2))) + ((%closure + (lambda (self$1014 + k$480) + ((%closure + (lambda (self$1015 + r$483) + ((%closure + (lambda (self$1016 + r$481) + (if r$481 + ((%closure + (lambda (self$1017 + r$482) + ((%closure-ref + (%closure-ref + self$1017 + 1) + 0) + (%closure-ref + self$1017 + 1) + (equal? + r$482 + #\x))) + (%closure-ref + self$1016 + 2)) + (car (%closure-ref + self$1016 + 1))) + ((%closure-ref + (%closure-ref + self$1016 + 2) + 0) + (%closure-ref + self$1016 + 2) + #f))) + (%closure-ref + self$1015 + 1) + (%closure-ref + self$1015 + 2)) + (> r$483 + 1))) + (%closure-ref + self$1014 + 1) + k$480) + (length + (%closure-ref + self$1014 + 1)))) + (%closure-ref + self$1003 + 1)) + (%closure + (lambda (self$1004 + r$472) + (if r$472 + ((%closure + (lambda (self$1010) + ((%closure + (lambda (self$1011 + r$475) + ((%closure + (lambda (self$1012 + r$474) + ((%closure + (lambda (self$1013 + r$473) + ((%closure-ref + (%closure-ref + self$1013 + 1) + 0) + (%closure-ref + self$1013 + 1) + (integer->char + r$473))) + (%closure-ref + self$1012 + 1)) + (string->number + r$474 + 16))) + (%closure-ref + self$1011 + 1)) + (list->string + r$475))) + (%closure-ref + self$1010 + 2)) + (cdr (%closure-ref + self$1010 + 1)))) + (%closure-ref + self$1004 + 1) + (%closure-ref + self$1004 + 2))) + ((%closure + (lambda (self$1005) + ((%closure + (lambda (self$1006 + r$479) + ((%closure + (lambda (self$1007 + r$476) + ((%closure-ref + in-port:get-lnum + 0) + in-port:get-lnum + (%closure + (lambda (self$1008 + r$477) + ((%closure-ref + in-port:get-cnum + 0) + in-port:get-cnum + (%closure + (lambda (self$1009 + r$478) + ((%closure-ref + parse-error + 0) + parse-error + (%closure-ref + self$1009 + 1) + (%closure-ref + self$1009 + 2) + (%closure-ref + self$1009 + 3) + r$478)) + (%closure-ref + self$1008 + 1) + (%closure-ref + self$1008 + 3) + r$477) + (%closure-ref + self$1008 + 2))) + (%closure-ref + self$1007 + 1) + (%closure-ref + self$1007 + 2) + r$476) + (%closure-ref + self$1007 + 2))) + (%closure-ref + self$1006 + 1) + (%closure-ref + self$1006 + 2)) + (string-append + "unable to parse character: " + r$479))) + (%closure-ref + self$1005 + 2) + (%closure-ref + self$1005 + 3)) + (list->string + (%closure-ref + self$1005 + 1)))) + (%closure-ref + self$1004 + 1) + (%closure-ref + self$1004 + 2) + (%closure-ref + self$1004 + 3))))) + (%closure-ref + self$1003 + 1) + (%closure-ref + self$1003 + 2) + (%closure-ref + self$1003 + 3))))) + (%closure-ref + self$1002 + 1) + (%closure-ref + self$1002 + 2) + (%closure-ref + self$1002 + 3)) + (equal? + (%closure-ref + self$1002 + 1) + r$484))) + (%closure-ref + self$1001 + 1) + (%closure-ref + self$1001 + 2) + (%closure-ref + self$1001 + 3)) + '(#\t + #\a + #\b)))) + (%closure-ref + self$1000 + 1) + (%closure-ref + self$1000 + 2) + (%closure-ref + self$1000 + 3)) + (equal? + (%closure-ref + self$1000 + 1) + r$485))) + (%closure-ref + self$999 + 1) + (%closure-ref + self$999 + 2) + (%closure-ref + self$999 + 3)) + '(#\s + #\p + #\a + #\c + #\e)))) + (%closure-ref + self$998 + 1) + (%closure-ref + self$998 + 2) + (%closure-ref + self$998 + 3)) + (equal? + (%closure-ref + self$998 + 1) + r$486))) + (%closure-ref + self$997 + 1) + (%closure-ref + self$997 + 2) + (%closure-ref + self$997 + 3)) + '(#\r + #\e + #\t + #\u + #\r + #\n)))) + (%closure-ref + self$996 + 1) + (%closure-ref + self$996 + 2) + (%closure-ref + self$996 + 3)) + (equal? + (%closure-ref + self$996 + 1) + r$487))) + (%closure-ref + self$995 + 1) + (%closure-ref + self$995 + 2) + (%closure-ref + self$995 + 3)) + '(#\n + #\u + #\l + #\l)))) + (%closure-ref + self$994 + 1) + (%closure-ref + self$994 + 2) + (%closure-ref + self$994 + 3)) + (equal? + (%closure-ref + self$994 + 1) + r$488))) + (%closure-ref + self$993 + 1) + (%closure-ref + self$993 + 2) + (%closure-ref + self$993 + 3)) + '(#\n + #\e + #\w + #\l + #\i + #\n + #\e)))) + (%closure-ref + self$992 + 1) + (%closure-ref + self$992 + 2) + (%closure-ref + self$992 + 3)) + (equal? + (%closure-ref + self$992 + 1) + r$489))) + (%closure-ref + self$991 + 1) + (%closure-ref + self$991 + 2) + (%closure-ref + self$991 + 3)) + '(#\e + #\s + #\c + #\a + #\p + #\e)))) + (%closure-ref + self$990 + 1) + (%closure-ref + self$990 + 2) + (%closure-ref + self$990 + 3)) + (equal? + (%closure-ref + self$990 + 1) + r$490))) + (%closure-ref + self$989 + 1) + (%closure-ref + self$989 + 2) + (%closure-ref + self$989 + 3)) + '(#\d + #\e + #\l + #\e + #\t + #\e)))) + (%closure-ref + self$988 + 1) + (%closure-ref + self$988 + 2) + (%closure-ref + self$988 + 3)) + (equal? + (%closure-ref + self$988 + 1) + r$491))) + (%closure-ref + self$987 + 1) + (%closure-ref + self$987 + 2) + (%closure-ref + self$987 + 3)) + '(#\b + #\a + #\c + #\k + #\s + #\p + #\a + #\c + #\e)))) + (%closure-ref + self$986 + 1) + (%closure-ref + self$986 + 2) + (%closure-ref + self$986 + 3)) + (equal? + (%closure-ref + self$986 + 1) + r$492))) + (%closure-ref + self$985 + 1) + (%closure-ref + self$985 + 2) + (%closure-ref + self$985 + 3)) + '(#\a + #\l + #\a + #\r + #\m)))) + (%closure-ref self$984 1) + (%closure-ref self$984 2) + (%closure-ref + self$984 + 3)) + (= 1 r$493))) + (%closure-ref self$983 1) + (%closure-ref self$983 2) + (%closure-ref self$983 3)) + (length + (%closure-ref self$983 1))))) + (%closure-ref self$982 1) + (%closure-ref self$982 2) + (%closure-ref self$982 3)) + (= 0 r$494))) + buf$195 + (%closure-ref self$981 1) + (%closure-ref self$981 2)) + (length buf$195))) + k$457 + (%closure-ref self$980 1)) + raw-buf$194)) + (%closure-ref self$979 5)))) + (%closure-ref self$978 1) + (%closure-ref self$978 2) + (%closure-ref self$978 3) + loop$186 + (%closure-ref self$978 4)))) + done$187 + (%closure-ref self$977 1) + (%closure-ref self$977 2) + (%closure-ref self$977 4)) + (cell (%closure-ref self$977 3)))) + (%closure-ref self$976 1) + (%closure-ref self$976 2) + loop$186 + (%closure-ref self$976 3)) + (cell done$187))) + fp$183 + k$438 + ptbl$182) + #f + #f))) + (define read-str + (lambda (k$426 fp$180 buf$179 ptbl$178) + ((%closure + (lambda (self$963 c$181) + ((%closure + (lambda (self$964 r$428) + (if r$428 + ((%closure + (lambda (self$973) + ((%closure-ref in-port:get-lnum 0) + in-port:get-lnum + (%closure + (lambda (self$974 r$429) + ((%closure-ref in-port:get-cnum 0) + in-port:get-cnum + (%closure + (lambda (self$975 r$430) + ((%closure-ref parse-error 0) + parse-error + (%closure-ref self$975 1) + "missing closing double-quote" + (%closure-ref self$975 2) + r$430)) + (%closure-ref self$974 1) + r$429) + (%closure-ref self$974 2))) + (%closure-ref self$973 1) + (%closure-ref self$973 2)) + (%closure-ref self$973 2))) + (%closure-ref self$964 4) + (%closure-ref self$964 5))) + ((%closure + (lambda (self$965 r$431) + (if r$431 + ((%closure + (lambda (self$971) + ((%closure-ref read-str-esc 0) + read-str-esc + (%closure + (lambda (self$972 r$432) + ((%closure-ref read-str 0) + read-str + (%closure-ref self$972 2) + (%closure-ref self$972 1) + r$432 + (%closure-ref self$972 3))) + (%closure-ref self$971 2) + (%closure-ref self$971 3) + (%closure-ref self$971 4)) + (%closure-ref self$971 2) + (%closure-ref self$971 1) + (%closure-ref self$971 4))) + (%closure-ref self$965 1) + (%closure-ref self$965 3) + (%closure-ref self$965 4) + (%closure-ref self$965 5))) + ((%closure + (lambda (self$966 r$433) + (if r$433 + ((%closure + (lambda (self$969) + ((%closure-ref reverse 0) + reverse + (%closure + (lambda (self$970 r$434) + ((%closure-ref + (%closure-ref self$970 1) + 0) + (%closure-ref self$970 1) + (list->string r$434))) + (%closure-ref self$969 2)) + (%closure-ref self$969 1))) + (%closure-ref self$966 1) + (%closure-ref self$966 4))) + ((%closure + (lambda (self$967) + ((%closure + (lambda (self$968 r$435) + ((%closure-ref read-str 0) + read-str + (%closure-ref self$968 2) + (%closure-ref self$968 1) + r$435 + (%closure-ref self$968 3))) + (%closure-ref self$967 3) + (%closure-ref self$967 4) + (%closure-ref self$967 5)) + (cons (%closure-ref self$967 2) + (%closure-ref self$967 1)))) + (%closure-ref self$966 1) + (%closure-ref self$966 2) + (%closure-ref self$966 3) + (%closure-ref self$966 4) + (%closure-ref self$966 5))))) + (%closure-ref self$965 1) + (%closure-ref self$965 2) + (%closure-ref self$965 3) + (%closure-ref self$965 4) + (%closure-ref self$965 5)) + (equal? #\" (%closure-ref self$965 2))))) + (%closure-ref self$964 1) + (%closure-ref self$964 2) + (%closure-ref self$964 3) + (%closure-ref self$964 4) + (%closure-ref self$964 5)) + (equal? #\\ (%closure-ref self$964 2))))) + (%closure-ref self$963 1) + c$181 + (%closure-ref self$963 2) + (%closure-ref self$963 3) + (%closure-ref self$963 4)) + (eof-object? c$181))) + buf$179 + fp$180 + k$426 + ptbl$178) + (read-char fp$180)))) + (define read-str-esc + (lambda (k$410 fp$175 buf$174 ptbl$173) + ((%closure + (lambda (self$946 c$176) + ((%closure + (lambda (self$947 r$412) + (if r$412 + ((%closure + (lambda (self$960) + ((%closure-ref in-port:get-lnum 0) + in-port:get-lnum + (%closure + (lambda (self$961 r$413) + ((%closure-ref in-port:get-cnum 0) + in-port:get-cnum + (%closure + (lambda (self$962 r$414) + ((%closure-ref parse-error 0) + parse-error + (%closure-ref self$962 1) + "missing escaped character within string" + (%closure-ref self$962 2) + r$414)) + (%closure-ref self$961 1) + r$413) + (%closure-ref self$961 2))) + (%closure-ref self$960 1) + (%closure-ref self$960 2)) + (%closure-ref self$960 2))) + (%closure-ref self$947 3) + (%closure-ref self$947 4))) + ((%closure + (lambda (self$948 tmp$177) + ((%closure + (lambda (self$959 k$423) + (if (%closure-ref self$959 2) + ((%closure-ref k$423 0) + k$423 + (%closure-ref self$959 2)) + ((%closure-ref k$423 0) + k$423 + (equal? #\\ (%closure-ref self$959 1))))) + (%closure-ref self$948 2) + tmp$177) + (%closure + (lambda (self$949 r$415) + (if r$415 + ((%closure + (lambda (self$958) + ((%closure-ref (%closure-ref self$958 3) 0) + (%closure-ref self$958 3) + (cons (%closure-ref self$958 2) + (%closure-ref self$958 1)))) + (%closure-ref self$949 1) + (%closure-ref self$949 2) + (%closure-ref self$949 3))) + ((%closure + (lambda (self$950 r$416) + (if r$416 + ((%closure + (lambda (self$957) + ((%closure-ref + (%closure-ref self$957 2) + 0) + (%closure-ref self$957 2) + (cons #\newline + (%closure-ref self$957 1)))) + (%closure-ref self$950 1) + (%closure-ref self$950 3))) + ((%closure + (lambda (self$951) + ((%closure-ref list 0) + list + (%closure + (lambda (self$952 r$421) + ((%closure + (lambda (self$953 r$420) + ((%closure + (lambda (self$954 r$417) + ((%closure-ref + in-port:get-lnum + 0) + in-port:get-lnum + (%closure + (lambda (self$955 + r$418) + ((%closure-ref + in-port:get-cnum + 0) + in-port:get-cnum + (%closure + (lambda (self$956 + r$419) + ((%closure-ref + parse-error + 0) + parse-error + (%closure-ref + self$956 + 1) + (%closure-ref + self$956 + 2) + (%closure-ref + self$956 + 3) + r$419)) + (%closure-ref + self$955 + 1) + (%closure-ref + self$955 + 3) + r$418) + (%closure-ref + self$955 + 2))) + (%closure-ref + self$954 + 1) + (%closure-ref + self$954 + 2) + r$417) + (%closure-ref + self$954 + 2))) + (%closure-ref self$953 1) + (%closure-ref self$953 2)) + (string-append + "invalid escape character [" + r$420 + "] in string"))) + (%closure-ref self$952 1) + (%closure-ref self$952 2)) + (list->string r$421))) + (%closure-ref self$951 2) + (%closure-ref self$951 3)) + (%closure-ref self$951 1))) + (%closure-ref self$950 2) + (%closure-ref self$950 3) + (%closure-ref self$950 4))))) + (%closure-ref self$949 1) + (%closure-ref self$949 2) + (%closure-ref self$949 3) + (%closure-ref self$949 4)) + (equal? #\n (%closure-ref self$949 2))))) + (%closure-ref self$948 1) + (%closure-ref self$948 2) + (%closure-ref self$948 3) + (%closure-ref self$948 4)))) + (%closure-ref self$947 1) + (%closure-ref self$947 2) + (%closure-ref self$947 3) + (%closure-ref self$947 4)) + (equal? #\" (%closure-ref self$947 2))))) + (%closure-ref self$946 1) + c$176 + (%closure-ref self$946 2) + (%closure-ref self$946 3)) + (eof-object? c$176))) + buf$174 + k$410 + ptbl$173) + (read-char fp$175)))) + (define sign? + (lambda (k$406 c$171) + ((%closure + (lambda (self$945 tmp$172) + (if tmp$172 + ((%closure-ref (%closure-ref self$945 2) 0) + (%closure-ref self$945 2) + tmp$172) + ((%closure-ref (%closure-ref self$945 2) 0) + (%closure-ref self$945 2) + (equal? (%closure-ref self$945 1) #\-)))) + c$171 + k$406) + (equal? c$171 #\+)))) + (define token-numeric? + (lambda (k$386 a$167) + ((%closure + (lambda (self$928 r$403) + ((%closure-ref char-numeric? 0) + char-numeric? + (%closure + (lambda (self$929 tmp$168) + (if tmp$168 + ((%closure-ref (%closure-ref self$929 2) 0) + (%closure-ref self$929 2) + tmp$168) + ((%closure + (lambda (self$939 k$397) + ((%closure + (lambda (self$940 r$402) + ((%closure + (lambda (self$941 r$398) + (if r$398 + ((%closure + (lambda (self$942 r$401) + ((%closure + (lambda (self$943 r$399) + (if r$399 + ((%closure + (lambda (self$944 r$400) + ((%closure-ref + char-numeric? + 0) + char-numeric? + (%closure-ref self$944 1) + r$400)) + (%closure-ref self$943 2)) + (cadr (%closure-ref self$943 1))) + ((%closure-ref + (%closure-ref self$943 2) + 0) + (%closure-ref self$943 2) + #f))) + (%closure-ref self$942 1) + (%closure-ref self$942 2)) + (eq? #\. r$401))) + (%closure-ref self$941 1) + (%closure-ref self$941 2)) + (car (%closure-ref self$941 1))) + ((%closure-ref (%closure-ref self$941 2) 0) + (%closure-ref self$941 2) + #f))) + (%closure-ref self$940 1) + (%closure-ref self$940 2)) + (> r$402 1))) + (%closure-ref self$939 1) + k$397) + (length (%closure-ref self$939 1)))) + (%closure-ref self$929 1)) + (%closure + (lambda (self$930 tmp$169) + (if tmp$169 + ((%closure-ref (%closure-ref self$930 2) 0) + (%closure-ref self$930 2) + tmp$169) + ((%closure + (lambda (self$931 r$396) + ((%closure + (lambda (self$932 r$389) + (if r$389 + ((%closure + (lambda (self$933 r$395) + ((%closure-ref char-numeric? 0) + char-numeric? + (%closure + (lambda (self$934 tmp$170) + ((%closure + (lambda (self$937 k$393) + (if (%closure-ref self$937 2) + ((%closure-ref k$393 0) + k$393 + (%closure-ref self$937 2)) + ((%closure + (lambda (self$938 r$394) + ((%closure-ref + (%closure-ref + self$938 + 1) + 0) + (%closure-ref + self$938 + 1) + (eq? #\. r$394))) + k$393) + (cadr (%closure-ref + self$937 + 1))))) + (%closure-ref self$934 1) + tmp$170) + (%closure + (lambda (self$935 r$390) + (if r$390 + ((%closure + (lambda (self$936 r$391) + ((%closure-ref + sign? + 0) + sign? + (%closure-ref + self$936 + 1) + r$391)) + (%closure-ref + self$935 + 2)) + (car (%closure-ref + self$935 + 1))) + ((%closure-ref + (%closure-ref + self$935 + 2) + 0) + (%closure-ref self$935 2) + #f))) + (%closure-ref self$934 1) + (%closure-ref self$934 2)))) + (%closure-ref self$933 1) + (%closure-ref self$933 2)) + r$395)) + (%closure-ref self$932 1) + (%closure-ref self$932 2)) + (cadr (%closure-ref self$932 1))) + ((%closure-ref (%closure-ref self$932 2) 0) + (%closure-ref self$932 2) + #f))) + (%closure-ref self$931 1) + (%closure-ref self$931 2)) + (> r$396 1))) + (%closure-ref self$930 1) + (%closure-ref self$930 2)) + (length (%closure-ref self$930 1))))) + (%closure-ref self$929 1) + (%closure-ref self$929 2))))) + (%closure-ref self$928 1) + (%closure-ref self$928 2)) + r$403)) + a$167 + k$386) + (car a$167)))) + (define parse-atom + (lambda (k$380 a$166) + ((%closure-ref token-numeric? 0) + token-numeric? + (%closure + (lambda (self$923 r$381) + (if r$381 + ((%closure + (lambda (self$926) + ((%closure + (lambda (self$927 r$382) + ((%closure-ref (%closure-ref self$927 1) 0) + (%closure-ref self$927 1) + (string->number r$382))) + (%closure-ref self$926 2)) + (list->string (%closure-ref self$926 1)))) + (%closure-ref self$923 1) + (%closure-ref self$923 2))) + ((%closure + (lambda (self$924) + ((%closure + (lambda (self$925 r$383) + ((%closure-ref (%closure-ref self$925 1) 0) + (%closure-ref self$925 1) + (string->symbol r$383))) + (%closure-ref self$924 2)) + (list->string (%closure-ref self$924 1)))) + (%closure-ref self$923 1) + (%closure-ref self$923 2))))) + a$166 + k$380) + a$166))) + (define get-next-char + (lambda (k$376 fp$165 ptbl$164) + ((%closure-ref in-port:get-buf 0) + in-port:get-buf + (%closure + (lambda (self$922 r$377) + (if r$377 + ((%closure-ref in-port:read-buf! 0) + in-port:read-buf! + (%closure-ref self$922 2) + (%closure-ref self$922 3)) + ((%closure-ref (%closure-ref self$922 2) 0) + (%closure-ref self$922 2) + (read-char (%closure-ref self$922 1))))) + fp$165 + k$376 + ptbl$164) + ptbl$164))) + (define read-block-comment + (lambda (k$371 fp$162 ptbl$161) + ((%closure-ref get-next-char 0) + get-next-char + (%closure + (lambda (self$918 c$163) + ((%closure + (lambda (self$919 r$373) + (if r$373 + ((%closure + (lambda (self$921) + ((%closure-ref read-block-terminator 0) + read-block-terminator + (%closure-ref self$921 2) + (%closure-ref self$921 1) + (%closure-ref self$921 3))) + (%closure-ref self$919 1) + (%closure-ref self$919 2) + (%closure-ref self$919 3))) + ((%closure + (lambda (self$920) + ((%closure-ref read-block-comment 0) + read-block-comment + (%closure-ref self$920 2) + (%closure-ref self$920 1) + (%closure-ref self$920 3))) + (%closure-ref self$919 1) + (%closure-ref self$919 2) + (%closure-ref self$919 3))))) + (%closure-ref self$918 1) + (%closure-ref self$918 2) + (%closure-ref self$918 3)) + (eq? #\| c$163))) + fp$162 + k$371 + ptbl$161) + fp$162 + ptbl$161))) + (define read-block-terminator + (lambda (k$365 fp$159 ptbl$158) + ((%closure-ref get-next-char 0) + get-next-char + (%closure + (lambda (self$912 c$160) + ((%closure + (lambda (self$913 r$367) + (if r$367 + ((%closure + (lambda (self$917) + ((%closure-ref (%closure-ref self$917 1) 0) + (%closure-ref self$917 1) + #t)) + (%closure-ref self$913 3))) + ((%closure + (lambda (self$914 r$368) + (if r$368 + ((%closure + (lambda (self$916) + ((%closure-ref read-block-terminator 0) + read-block-terminator + (%closure-ref self$916 2) + (%closure-ref self$916 1) + (%closure-ref self$916 3))) + (%closure-ref self$914 1) + (%closure-ref self$914 2) + (%closure-ref self$914 3))) + ((%closure + (lambda (self$915) + ((%closure-ref read-block-comment 0) + read-block-comment + (%closure-ref self$915 2) + (%closure-ref self$915 1) + (%closure-ref self$915 3))) + (%closure-ref self$914 1) + (%closure-ref self$914 2) + (%closure-ref self$914 3))))) + (%closure-ref self$913 2) + (%closure-ref self$913 3) + (%closure-ref self$913 4)) + (eq? #\| (%closure-ref self$913 1))))) + c$160 + (%closure-ref self$912 1) + (%closure-ref self$912 2) + (%closure-ref self$912 3)) + (eq? #\# c$160))) + fp$159 + k$365 + ptbl$158) + fp$159 + ptbl$158))) + (define parse-literal-identifier + (lambda (k$358 + fp$156 + toks$155 + all?$154 + parens$153 + ptbl$152) + ((%closure + (lambda (self$908 r$362) + ((%closure-ref parse-li-rec 0) + parse-li-rec + (%closure + (lambda (self$909 sym$157) + (if (%closure-ref self$909 1) + ((%closure + (lambda (self$910 r$360) + ((%closure + (lambda (self$911 r$361) + ((%closure-ref parse 0) + parse + (%closure-ref self$911 3) + (%closure-ref self$911 2) + (%closure-ref self$911 6) + r$361 + (%closure-ref self$911 1) + #f + (%closure-ref self$911 4) + (%closure-ref self$911 5))) + (%closure-ref self$910 1) + (%closure-ref self$910 2) + (%closure-ref self$910 3) + (%closure-ref self$910 4) + (%closure-ref self$910 5) + r$360) + (cons (%closure-ref self$910 6) + (%closure-ref self$910 7)))) + (%closure-ref self$909 1) + (%closure-ref self$909 2) + (%closure-ref self$909 3) + (%closure-ref self$909 4) + (%closure-ref self$909 5) + sym$157 + (%closure-ref self$909 6)) + '()) + ((%closure-ref (%closure-ref self$909 3) 0) + (%closure-ref self$909 3) + sym$157))) + (%closure-ref self$908 1) + (%closure-ref self$908 2) + (%closure-ref self$908 3) + (%closure-ref self$908 4) + (%closure-ref self$908 5) + (%closure-ref self$908 6)) + (%closure-ref self$908 2) + r$362 + (%closure-ref self$908 5))) + all?$154 + fp$156 + k$358 + parens$153 + ptbl$152 + toks$155) + '()))) + (define parse-li-rec + (lambda (k$343 fp$147 tok$146 ptbl$145) + ((%closure-ref get-next-char 0) + get-next-char + (%closure + (lambda (self$892 r$344) + ((%closure + (lambda (self$895 r$345) + ((%closure + (lambda (self$896 c$150 next$149) + ((%closure + (lambda (self$897 r$346) + (if r$346 + ((%closure + (lambda (self$903) + ((%closure + (lambda (self$905 k$348) + ((%closure + (lambda (self$906 r$349) + (if r$349 + ((%closure-ref + (%closure-ref self$906 1) + 0) + (%closure-ref self$906 1) + "||") + ((%closure-ref reverse 0) + reverse + (%closure + (lambda (self$907 r$350) + ((%closure-ref + (%closure-ref self$907 1) + 0) + (%closure-ref self$907 1) + (list->string r$350))) + (%closure-ref self$906 1)) + (%closure-ref self$906 2)))) + k$348 + (%closure-ref self$905 1)) + (null? (%closure-ref self$905 1)))) + (%closure-ref self$903 2)) + (%closure + (lambda (self$904 str$151) + ((%closure-ref (%closure-ref self$904 1) 0) + (%closure-ref self$904 1) + (string->symbol str$151))) + (%closure-ref self$903 1)))) + (%closure-ref self$897 2) + (%closure-ref self$897 5))) + ((%closure + (lambda (self$898 r$351) + (if r$351 + ((%closure + (lambda (self$900) + ((%closure-ref in-port:get-lnum 0) + in-port:get-lnum + (%closure + (lambda (self$901 r$352) + ((%closure-ref in-port:get-cnum 0) + in-port:get-cnum + (%closure + (lambda (self$902 r$353) + ((%closure-ref parse-error 0) + parse-error + (%closure-ref self$902 1) + "EOF encountered parsing literal identifier" + (%closure-ref self$902 2) + r$353)) + (%closure-ref self$901 1) + r$352) + (%closure-ref self$901 2))) + (%closure-ref self$900 1) + (%closure-ref self$900 2)) + (%closure-ref self$900 2))) + (%closure-ref self$898 2) + (%closure-ref self$898 4))) + ((%closure + (lambda (self$899) + ((%closure-ref + (%closure-ref self$899 3) + 0) + (%closure-ref self$899 3) + (%closure-ref self$899 2) + (%closure-ref self$899 1))) + (%closure-ref self$898 1) + (%closure-ref self$898 2) + (%closure-ref self$898 3))))) + (%closure-ref self$897 1) + (%closure-ref self$897 2) + (%closure-ref self$897 3) + (%closure-ref self$897 4)) + (eof-object? (%closure-ref self$897 1))))) + c$150 + (%closure-ref self$896 1) + next$149 + (%closure-ref self$896 2) + (%closure-ref self$896 3)) + (eq? #\| c$150))) + (%closure-ref self$895 1) + (%closure-ref self$895 2) + (%closure-ref self$895 4)) + (%closure-ref self$895 3) + r$345)) + (%closure-ref self$892 2) + (%closure-ref self$892 3) + r$344 + (%closure-ref self$892 4)) + (%closure + (lambda (self$893 k$354 c$148) + ((%closure + (lambda (self$894 r$355) + ((%closure-ref parse-li-rec 0) + parse-li-rec + (%closure-ref self$894 2) + (%closure-ref self$894 1) + r$355 + (%closure-ref self$894 3))) + (%closure-ref self$893 1) + k$354 + (%closure-ref self$893 2)) + (cons c$148 (%closure-ref self$893 3)))) + (%closure-ref self$892 1) + (%closure-ref self$892 3) + (%closure-ref self$892 4)))) + fp$147 + k$343 + ptbl$145 + tok$146) + fp$147 + ptbl$145))) + (define parse-number + (lambda (k$325 + fp$141 + toks$140 + all?$139 + parens$138 + ptbl$137 + base$136 + tok->num$135) + ((%closure + (lambda (self$875 r$340) + ((%closure-ref parse-number-rec 0) + parse-number-rec + (%closure + (lambda (self$876 num$142) + ((%closure + (lambda (self$885 k$333) + ((%closure + (lambda (self$886 r$334) + (if r$334 + ((%closure-ref (%closure-ref self$886 2) 0) + (%closure-ref self$886 2) + #f) + ((%closure-ref token-numeric? 0) + token-numeric? + (%closure + (lambda (self$887 tmp$144) + (if tmp$144 + ((%closure-ref (%closure-ref self$887 2) 0) + (%closure-ref self$887 2) + tmp$144) + ((%closure + (lambda (self$888 r$339) + ((%closure + (lambda (self$889 r$336) + (if r$336 + ((%closure + (lambda (self$890 r$337) + (if r$337 + ((%closure + (lambda (self$891 r$338) + ((%closure-ref + hex-digit? + 0) + hex-digit? + (%closure-ref + self$891 + 1) + r$338)) + (%closure-ref + self$890 + 1)) + (car (%closure-ref + self$890 + 2))) + ((%closure-ref + (%closure-ref + self$890 + 1) + 0) + (%closure-ref self$890 1) + #f))) + (%closure-ref self$889 2) + (%closure-ref self$889 3)) + (= (%closure-ref self$889 1) 16)) + ((%closure-ref + (%closure-ref self$889 2) + 0) + (%closure-ref self$889 2) + #f))) + (%closure-ref self$888 1) + (%closure-ref self$888 2) + (%closure-ref self$888 3)) + (> r$339 0))) + (%closure-ref self$887 1) + (%closure-ref self$887 2) + (%closure-ref self$887 3)) + (length (%closure-ref self$887 3))))) + (%closure-ref self$886 1) + (%closure-ref self$886 2) + (%closure-ref self$886 3)) + (%closure-ref self$886 3)))) + (%closure-ref self$885 1) + k$333 + (%closure-ref self$885 2)) + (null? (%closure-ref self$885 2)))) + (%closure-ref self$876 2) + num$142) + (%closure + (lambda (self$877 r$327) + (if r$327 + ((%closure + (lambda (self$881) + ((%closure-ref (%closure-ref self$881 7) 0) + (%closure-ref self$881 7) + (%closure + (lambda (self$882 result$143) + (if (%closure-ref self$882 1) + ((%closure + (lambda (self$883 r$329) + ((%closure + (lambda (self$884 r$330) + ((%closure-ref parse 0) + parse + (%closure-ref self$884 3) + (%closure-ref self$884 2) + (%closure-ref self$884 6) + r$330 + (%closure-ref self$884 1) + #f + (%closure-ref self$884 4) + (%closure-ref self$884 5))) + (%closure-ref self$883 1) + (%closure-ref self$883 2) + (%closure-ref self$883 3) + (%closure-ref self$883 4) + (%closure-ref self$883 5) + r$329) + (cons (%closure-ref self$883 6) + (%closure-ref self$883 7)))) + (%closure-ref self$882 1) + (%closure-ref self$882 2) + (%closure-ref self$882 3) + (%closure-ref self$882 4) + (%closure-ref self$882 5) + result$143 + (%closure-ref self$882 6)) + '()) + ((%closure-ref (%closure-ref self$882 3) 0) + (%closure-ref self$882 3) + result$143))) + (%closure-ref self$881 1) + (%closure-ref self$881 2) + (%closure-ref self$881 3) + (%closure-ref self$881 5) + (%closure-ref self$881 6) + (%closure-ref self$881 8)) + (%closure-ref self$881 4))) + (%closure-ref self$877 1) + (%closure-ref self$877 2) + (%closure-ref self$877 3) + (%closure-ref self$877 4) + (%closure-ref self$877 5) + (%closure-ref self$877 6) + (%closure-ref self$877 7) + (%closure-ref self$877 8))) + ((%closure + (lambda (self$878) + ((%closure-ref in-port:get-lnum 0) + in-port:get-lnum + (%closure + (lambda (self$879 r$331) + ((%closure-ref in-port:get-cnum 0) + in-port:get-cnum + (%closure + (lambda (self$880 r$332) + ((%closure-ref parse-error 0) + parse-error + (%closure-ref self$880 1) + "Illegal number syntax" + (%closure-ref self$880 2) + r$332)) + (%closure-ref self$879 1) + r$331) + (%closure-ref self$879 2))) + (%closure-ref self$878 1) + (%closure-ref self$878 2)) + (%closure-ref self$878 2))) + (%closure-ref self$877 3) + (%closure-ref self$877 6))))) + (%closure-ref self$876 1) + (%closure-ref self$876 3) + (%closure-ref self$876 4) + num$142 + (%closure-ref self$876 5) + (%closure-ref self$876 6) + (%closure-ref self$876 7) + (%closure-ref self$876 8)))) + (%closure-ref self$875 1) + (%closure-ref self$875 2) + (%closure-ref self$875 3) + (%closure-ref self$875 4) + (%closure-ref self$875 5) + (%closure-ref self$875 6) + (%closure-ref self$875 7) + (%closure-ref self$875 8)) + (%closure-ref self$875 2) + (%closure-ref self$875 3) + r$340 + (%closure-ref self$875 6))) + all?$139 + base$136 + fp$141 + k$325 + parens$138 + ptbl$137 + tok->num$135 + toks$140) + '()))) + (define parse-number-rec + (lambda (k$301 base$130 fp$129 tok$128 ptbl$127) + ((%closure-ref get-next-char 0) + get-next-char + (%closure + (lambda (self$848 r$302) + ((%closure + (lambda (self$851 r$303) + ((%closure + (lambda (self$852 c$133 next$132) + ((%closure-ref sign? 0) + sign? + (%closure + (lambda (self$853 r$304) + (if r$304 + ((%closure + (lambda (self$874) + ((%closure-ref (%closure-ref self$874 3) 0) + (%closure-ref self$874 3) + (%closure-ref self$874 2) + (%closure-ref self$874 1))) + (%closure-ref self$853 2) + (%closure-ref self$853 3) + (%closure-ref self$853 4))) + ((%closure + (lambda (self$854 r$305) + (if r$305 + ((%closure + (lambda (self$873) + ((%closure-ref + (%closure-ref self$873 3) + 0) + (%closure-ref self$873 3) + (%closure-ref self$873 2) + (%closure-ref self$873 1))) + (%closure-ref self$854 2) + (%closure-ref self$854 3) + (%closure-ref self$854 4))) + ((%closure-ref char-numeric? 0) + char-numeric? + (%closure + (lambda (self$855 r$306) + (if r$306 + ((%closure + (lambda (self$862) + ((%closure + (lambda (self$864 k$308) + ((%closure + (lambda (self$871 k$315) + ((%closure + (lambda (self$872 + r$316) + (if r$316 + ((%closure-ref + char>? + 0) + char>? + (%closure-ref + self$872 + 2) + (%closure-ref + self$872 + 1) + #\1) + ((%closure-ref + (%closure-ref + self$872 + 2) + 0) + (%closure-ref + self$872 + 2) + #f))) + (%closure-ref + self$871 + 2) + k$315) + (= (%closure-ref + self$871 + 1) + 2))) + (%closure-ref self$864 1) + (%closure-ref self$864 2)) + (%closure + (lambda (self$865 tmp$134) + ((%closure + (lambda (self$869 + k$313) + (if (%closure-ref + self$869 + 3) + ((%closure-ref + k$313 + 0) + k$313 + (%closure-ref + self$869 + 3)) + ((%closure + (lambda (self$870 + r$314) + (if r$314 + ((%closure-ref + char>? + 0) + char>? + (%closure-ref + self$870 + 2) + (%closure-ref + self$870 + 1) + #\7) + ((%closure-ref + (%closure-ref + self$870 + 2) + 0) + (%closure-ref + self$870 + 2) + #f))) + (%closure-ref + self$869 + 2) + k$313) + (= (%closure-ref + self$869 + 1) + 8)))) + (%closure-ref + self$865 + 1) + (%closure-ref + self$865 + 2) + tmp$134) + (%closure + (lambda (self$866 + r$309) + (if r$309 + ((%closure-ref + in-port:get-lnum + 0) + in-port:get-lnum + (%closure + (lambda (self$867 + r$310) + ((%closure-ref + in-port:get-cnum + 0) + in-port:get-cnum + (%closure + (lambda (self$868 + r$311) + ((%closure-ref + parse-error + 0) + parse-error + (%closure-ref + self$868 + 1) + "Illegal digit" + (%closure-ref + self$868 + 2) + r$311)) + (%closure-ref + self$867 + 1) + r$310) + (%closure-ref + self$867 + 2))) + (%closure-ref + self$866 + 1) + (%closure-ref + self$866 + 2)) + (%closure-ref + self$866 + 2)) + ((%closure-ref + (%closure-ref + self$866 + 1) + 0) + (%closure-ref + self$866 + 1) + #f))) + (%closure-ref + self$865 + 3) + (%closure-ref + self$865 + 4)))) + (%closure-ref self$864 1) + (%closure-ref self$864 2) + k$308 + (%closure-ref + self$864 + 3)))) + (%closure-ref self$862 1) + (%closure-ref self$862 2) + (%closure-ref self$862 5)) + (%closure + (lambda (self$863 r$307) + ((%closure-ref + (%closure-ref self$863 3) + 0) + (%closure-ref self$863 3) + (%closure-ref self$863 2) + (%closure-ref self$863 1))) + (%closure-ref self$862 2) + (%closure-ref self$862 3) + (%closure-ref self$862 4)))) + (%closure-ref self$855 1) + (%closure-ref self$855 2) + (%closure-ref self$855 3) + (%closure-ref self$855 4) + (%closure-ref self$855 5))) + ((%closure + (lambda (self$860 k$319) + ((%closure + (lambda (self$861 r$320) + (if r$320 + ((%closure-ref + hex-digit? + 0) + hex-digit? + (%closure-ref self$861 2) + (%closure-ref self$861 1)) + ((%closure-ref + (%closure-ref + self$861 + 2) + 0) + (%closure-ref self$861 2) + #f))) + (%closure-ref self$860 2) + k$319) + (= (%closure-ref self$860 1) + 16))) + (%closure-ref self$855 1) + (%closure-ref self$855 2)) + (%closure + (lambda (self$856 r$317) + (if r$317 + ((%closure + (lambda (self$859) + ((%closure-ref + (%closure-ref + self$859 + 3) + 0) + (%closure-ref self$859 3) + (%closure-ref self$859 2) + (%closure-ref + self$859 + 1))) + (%closure-ref self$856 1) + (%closure-ref self$856 2) + (%closure-ref self$856 3))) + ((%closure + (lambda (self$857) + ((%closure-ref + in-port:set-buf! + 0) + in-port:set-buf! + (%closure + (lambda (self$858 r$318) + ((%closure-ref + reverse + 0) + reverse + (%closure-ref + self$858 + 1) + (%closure-ref + self$858 + 2))) + (%closure-ref + self$857 + 2) + (%closure-ref + self$857 + 4)) + (%closure-ref self$857 3) + (%closure-ref + self$857 + 1))) + (%closure-ref self$856 1) + (%closure-ref self$856 2) + (%closure-ref self$856 4) + (%closure-ref self$856 5))))) + (%closure-ref self$855 2) + (%closure-ref self$855 3) + (%closure-ref self$855 4) + (%closure-ref self$855 5) + (%closure-ref self$855 6))))) + (%closure-ref self$854 1) + (%closure-ref self$854 2) + (%closure-ref self$854 3) + (%closure-ref self$854 4) + (%closure-ref self$854 5) + (%closure-ref self$854 6)) + (%closure-ref self$854 2)))) + (%closure-ref self$853 1) + (%closure-ref self$853 2) + (%closure-ref self$853 3) + (%closure-ref self$853 4) + (%closure-ref self$853 5) + (%closure-ref self$853 6)) + (eq? #\. (%closure-ref self$853 2))))) + (%closure-ref self$852 1) + c$133 + (%closure-ref self$852 2) + next$132 + (%closure-ref self$852 3) + (%closure-ref self$852 4)) + c$133)) + (%closure-ref self$851 1) + (%closure-ref self$851 2) + (%closure-ref self$851 3) + (%closure-ref self$851 5)) + (%closure-ref self$851 4) + r$303)) + (%closure-ref self$848 1) + (%closure-ref self$848 3) + (%closure-ref self$848 4) + r$302 + (%closure-ref self$848 5)) + (%closure + (lambda (self$849 k$321 c$131) + ((%closure + (lambda (self$850 r$322) + ((%closure-ref parse-number-rec 0) + parse-number-rec + (%closure-ref self$850 3) + (%closure-ref self$850 1) + (%closure-ref self$850 2) + r$322 + (%closure-ref self$850 4))) + (%closure-ref self$849 1) + (%closure-ref self$849 2) + k$321 + (%closure-ref self$849 3)) + (cons c$131 (%closure-ref self$849 4)))) + (%closure-ref self$848 1) + (%closure-ref self$848 2) + (%closure-ref self$848 4) + (%closure-ref self$848 5)))) + base$130 + fp$129 + k$301 + ptbl$127 + tok$128) + fp$129 + ptbl$127))) + (define hex-digit? + (lambda (k$294 c$125) + ((%closure + (lambda (self$846 k$297) + ((%closure-ref char>=? 0) + char>=? + (%closure + (lambda (self$847 r$298) + (if r$298 + ((%closure-ref char<=? 0) + char<=? + (%closure-ref self$847 2) + (%closure-ref self$847 1) + #\f) + ((%closure-ref (%closure-ref self$847 2) 0) + (%closure-ref self$847 2) + #f))) + (%closure-ref self$846 1) + k$297) + (%closure-ref self$846 1) + #\a)) + c$125) + (%closure + (lambda (self$844 tmp$126) + (if tmp$126 + ((%closure-ref (%closure-ref self$844 2) 0) + (%closure-ref self$844 2) + tmp$126) + ((%closure-ref char>=? 0) + char>=? + (%closure + (lambda (self$845 r$296) + (if r$296 + ((%closure-ref char<=? 0) + char<=? + (%closure-ref self$845 2) + (%closure-ref self$845 1) + #\F) + ((%closure-ref (%closure-ref self$845 2) 0) + (%closure-ref self$845 2) + #f))) + (%closure-ref self$844 1) + (%closure-ref self$844 2)) + (%closure-ref self$844 1) + #\A))) + c$125 + k$294)))) + (define cyc-read + (lambda (k$285 . args$123) + ((%closure + (lambda (self$842 k$290) + ((%closure + (lambda (self$843 r$291) + (if r$291 + ((%closure-ref current-input-port 0) + current-input-port + (%closure-ref self$843 2)) + ((%closure-ref (%closure-ref self$843 2) 0) + (%closure-ref self$843 2) + (car (%closure-ref self$843 1))))) + (%closure-ref self$842 1) + k$290) + (null? (%closure-ref self$842 1)))) + args$123) + (%closure + (lambda (self$838 fp$124) + ((%closure + (lambda (self$839 r$287) + ((%closure + (lambda (self$840 r$288) + ((%closure-ref reg-port 0) + reg-port + (%closure + (lambda (self$841 r$289) + ((%closure-ref parse 0) + parse + (%closure-ref self$841 2) + (%closure-ref self$841 1) + (%closure-ref self$841 3) + (%closure-ref self$841 4) + #f + #f + 0 + r$289)) + (%closure-ref self$840 1) + (%closure-ref self$840 2) + (%closure-ref self$840 3) + r$288) + (%closure-ref self$840 1))) + (%closure-ref self$839 1) + (%closure-ref self$839 2) + r$287) + '())) + fp$124 + (%closure-ref self$838 1)) + '())) + k$285)))) + (define read-all + (lambda (k$272 . args$116) + ((%closure + (lambda (self$825) + ((%closure + (lambda (self$836 k$281) + ((%closure + (lambda (self$837 r$282) + (if r$282 + ((%closure-ref current-input-port 0) + current-input-port + (%closure-ref self$837 2)) + ((%closure-ref (%closure-ref self$837 2) 0) + (%closure-ref self$837 2) + (car (%closure-ref self$837 1))))) + (%closure-ref self$836 1) + k$281) + (null? (%closure-ref self$836 1)))) + (%closure-ref self$825 1)) + (%closure + (lambda (self$826 fp$118) + ((%closure + (lambda (self$827 loop$119) + ((%closure + (lambda (self$828 loop$119) + ((%closure + (lambda (self$833 r$276) + ((%closure + (lambda (self$834 r$274) + ((%closure + (lambda (self$835 r$275) + ((%closure-ref + (cell-get (%closure-ref self$835 3)) + 0) + (cell-get (%closure-ref self$835 3)) + (%closure-ref self$835 2) + (%closure-ref self$835 1) + r$275)) + (%closure-ref self$834 1) + (%closure-ref self$834 2) + (%closure-ref self$834 3)) + '())) + (%closure-ref self$833 1) + (%closure-ref self$833 2) + (%closure-ref self$833 3)) + (set-cell! (%closure-ref self$833 3) r$276))) + (%closure-ref self$828 1) + (%closure-ref self$828 2) + loop$119) + (%closure + (lambda (self$829 k$277 fp$121 result$120) + ((%closure-ref cyc-read 0) + cyc-read + (%closure + (lambda (self$830 obj$122) + ((%closure + (lambda (self$831 r$279) + (if r$279 + ((%closure-ref reverse 0) + reverse + (%closure-ref self$831 2) + (%closure-ref self$831 5)) + ((%closure + (lambda (self$832 r$280) + ((%closure-ref + (cell-get + (%closure-ref self$832 3)) + 0) + (cell-get + (%closure-ref self$832 3)) + (%closure-ref self$832 2) + (%closure-ref self$832 1) + r$280)) + (%closure-ref self$831 1) + (%closure-ref self$831 2) + (%closure-ref self$831 3)) + (cons (%closure-ref self$831 4) + (%closure-ref self$831 5))))) + (%closure-ref self$830 1) + (%closure-ref self$830 2) + (%closure-ref self$830 3) + obj$122 + (%closure-ref self$830 4)) + (eof-object? obj$122))) + fp$121 + k$277 + (%closure-ref self$829 1) + result$120) + fp$121)) + loop$119))) + (%closure-ref self$827 1) + (%closure-ref self$827 2)) + (cell loop$119))) + fp$118 + (%closure-ref self$826 1)) + #f)) + (%closure-ref self$825 2)))) + args$116 + k$272)))) + (define lib-init:schemeread + (lambda (k$266) + ((%closure + (lambda (self$822) + ((%closure + (lambda (self$823 r$268) + ((%closure + (lambda (self$824 r$269) + ((%closure-ref (%closure-ref self$824 1) 0) + (%closure-ref self$824 1) + (set-global! *in-port-table* r$269))) + (%closure-ref self$823 1)) + '())) + (%closure-ref self$822 1)) + (set-global! read cyc-read))) + k$266))))) + */ +/* +"---------------- C headers: " + */ +/* +() + */ +/* +"---------------- C code:" + */ +#define closcall0(td, clo) \ + ((clo)->fn)(td, 0, clo) +#define return_closcall0(td, clo) { \ + char top; \ + if (stack_overflow(&top, (((gc_thread_data *)data)->stack_limit))) { \ + object buf[0]; \ + GC(td, clo, buf, 0); \ + return; \ + } else {\ + closcall0(td, (closure) (clo)); \ + return;\ + } \ +} + +#define return_direct0(td, _fn) { \ + char top; \ + if (stack_overflow(&top, (((gc_thread_data *)data)->stack_limit))) { \ + object buf[0]; \ + mclosure0(c1, _fn); \ + GC(td, &c1, buf, 0); \ + return; \ + } else { \ + (_fn)(td, 0, (closure)_fn); \ + }} + +#define closcall1(td, clo,a1) \ +if (type_of(clo) == pair_tag || prim(clo)) { \ + Cyc_apply(td, 0, (closure)(a1), clo); \ +} else { \ + ((clo)->fn)(td, 1, clo,a1);\ +} +#define return_closcall1(td, clo,a1) { \ + char top; \ + if (stack_overflow(&top, (((gc_thread_data *)data)->stack_limit))) { \ + object buf[1]; buf[0] = a1;\ + GC(td, clo, buf, 1); \ + return; \ + } else {\ + closcall1(td, (closure) (clo),a1); \ + return;\ + } \ +} + +#define return_direct1(td, _fn,a1) { \ + char top; \ + if (stack_overflow(&top, (((gc_thread_data *)data)->stack_limit))) { \ + object buf[1]; buf[0] = a1; \ + mclosure0(c1, _fn); \ + GC(td, &c1, buf, 1); \ + return; \ + } else { \ + (_fn)(td, 1, (closure)_fn,a1); \ + }} + +#define closcall2(td, clo,a1,a2) \ +if (type_of(clo) == pair_tag || prim(clo)) { \ + Cyc_apply(td, 1, (closure)(a1), clo,a2); \ +} else { \ + ((clo)->fn)(td, 2, clo,a1,a2);\ +} +#define return_closcall2(td, clo,a1,a2) { \ + char top; \ + if (stack_overflow(&top, (((gc_thread_data *)data)->stack_limit))) { \ + object buf[2]; buf[0] = a1;buf[1] = a2;\ + GC(td, clo, buf, 2); \ + return; \ + } else {\ + closcall2(td, (closure) (clo),a1,a2); \ + return;\ + } \ +} + +#define return_direct2(td, _fn,a1,a2) { \ + char top; \ + if (stack_overflow(&top, (((gc_thread_data *)data)->stack_limit))) { \ + object buf[2]; buf[0] = a1;buf[1] = a2; \ + mclosure0(c1, _fn); \ + GC(td, &c1, buf, 2); \ + return; \ + } else { \ + (_fn)(td, 2, (closure)_fn,a1,a2); \ + }} + +#define closcall3(td, clo,a1,a2,a3) \ +if (type_of(clo) == pair_tag || prim(clo)) { \ + Cyc_apply(td, 2, (closure)(a1), clo,a2,a3); \ +} else { \ + ((clo)->fn)(td, 3, clo,a1,a2,a3);\ +} +#define return_closcall3(td, clo,a1,a2,a3) { \ + char top; \ + if (stack_overflow(&top, (((gc_thread_data *)data)->stack_limit))) { \ + object buf[3]; buf[0] = a1;buf[1] = a2;buf[2] = a3;\ + GC(td, clo, buf, 3); \ + return; \ + } else {\ + closcall3(td, (closure) (clo),a1,a2,a3); \ + return;\ + } \ +} + +#define return_direct3(td, _fn,a1,a2,a3) { \ + char top; \ + if (stack_overflow(&top, (((gc_thread_data *)data)->stack_limit))) { \ + object buf[3]; buf[0] = a1;buf[1] = a2;buf[2] = a3; \ + mclosure0(c1, _fn); \ + GC(td, &c1, buf, 3); \ + return; \ + } else { \ + (_fn)(td, 3, (closure)_fn,a1,a2,a3); \ + }} + +#define closcall4(td, clo,a1,a2,a3,a4) \ +if (type_of(clo) == pair_tag || prim(clo)) { \ + Cyc_apply(td, 3, (closure)(a1), clo,a2,a3,a4); \ +} else { \ + ((clo)->fn)(td, 4, clo,a1,a2,a3,a4);\ +} +#define return_closcall4(td, clo,a1,a2,a3,a4) { \ + char top; \ + if (stack_overflow(&top, (((gc_thread_data *)data)->stack_limit))) { \ + object buf[4]; buf[0] = a1;buf[1] = a2;buf[2] = a3;buf[3] = a4;\ + GC(td, clo, buf, 4); \ + return; \ + } else {\ + closcall4(td, (closure) (clo),a1,a2,a3,a4); \ + return;\ + } \ +} + +#define return_direct4(td, _fn,a1,a2,a3,a4) { \ + char top; \ + if (stack_overflow(&top, (((gc_thread_data *)data)->stack_limit))) { \ + object buf[4]; buf[0] = a1;buf[1] = a2;buf[2] = a3;buf[3] = a4; \ + mclosure0(c1, _fn); \ + GC(td, &c1, buf, 4); \ + return; \ + } else { \ + (_fn)(td, 4, (closure)_fn,a1,a2,a3,a4); \ + }} + +#define closcall5(td, clo,a1,a2,a3,a4,a5) \ +if (type_of(clo) == pair_tag || prim(clo)) { \ + Cyc_apply(td, 4, (closure)(a1), clo,a2,a3,a4,a5); \ +} else { \ + ((clo)->fn)(td, 5, clo,a1,a2,a3,a4,a5);\ +} +#define return_closcall5(td, clo,a1,a2,a3,a4,a5) { \ + char top; \ + if (stack_overflow(&top, (((gc_thread_data *)data)->stack_limit))) { \ + object buf[5]; buf[0] = a1;buf[1] = a2;buf[2] = a3;buf[3] = a4;buf[4] = a5;\ + GC(td, clo, buf, 5); \ + return; \ + } else {\ + closcall5(td, (closure) (clo),a1,a2,a3,a4,a5); \ + return;\ + } \ +} + +#define return_direct5(td, _fn,a1,a2,a3,a4,a5) { \ + char top; \ + if (stack_overflow(&top, (((gc_thread_data *)data)->stack_limit))) { \ + object buf[5]; buf[0] = a1;buf[1] = a2;buf[2] = a3;buf[3] = a4;buf[4] = a5; \ + mclosure0(c1, _fn); \ + GC(td, &c1, buf, 5); \ + return; \ + } else { \ + (_fn)(td, 5, (closure)_fn,a1,a2,a3,a4,a5); \ + }} + +#define closcall6(td, clo,a1,a2,a3,a4,a5,a6) \ +if (type_of(clo) == pair_tag || prim(clo)) { \ + Cyc_apply(td, 5, (closure)(a1), clo,a2,a3,a4,a5,a6); \ +} else { \ + ((clo)->fn)(td, 6, clo,a1,a2,a3,a4,a5,a6);\ +} +#define return_closcall6(td, clo,a1,a2,a3,a4,a5,a6) { \ + char top; \ + if (stack_overflow(&top, (((gc_thread_data *)data)->stack_limit))) { \ + object buf[6]; buf[0] = a1;buf[1] = a2;buf[2] = a3;buf[3] = a4;buf[4] = a5;buf[5] = a6;\ + GC(td, clo, buf, 6); \ + return; \ + } else {\ + closcall6(td, (closure) (clo),a1,a2,a3,a4,a5,a6); \ + return;\ + } \ +} + +#define return_direct6(td, _fn,a1,a2,a3,a4,a5,a6) { \ + char top; \ + if (stack_overflow(&top, (((gc_thread_data *)data)->stack_limit))) { \ + object buf[6]; buf[0] = a1;buf[1] = a2;buf[2] = a3;buf[3] = a4;buf[4] = a5;buf[5] = a6; \ + mclosure0(c1, _fn); \ + GC(td, &c1, buf, 6); \ + return; \ + } else { \ + (_fn)(td, 6, (closure)_fn,a1,a2,a3,a4,a5,a6); \ + }} + +#define closcall8(td, clo,a1,a2,a3,a4,a5,a6,a7,a8) \ +if (type_of(clo) == pair_tag || prim(clo)) { \ + Cyc_apply(td, 7, (closure)(a1), clo,a2,a3,a4,a5,a6,a7,a8); \ +} else { \ + ((clo)->fn)(td, 8, clo,a1,a2,a3,a4,a5,a6,a7,a8);\ +} +#define return_closcall8(td, clo,a1,a2,a3,a4,a5,a6,a7,a8) { \ + char top; \ + if (stack_overflow(&top, (((gc_thread_data *)data)->stack_limit))) { \ + object buf[8]; buf[0] = a1;buf[1] = a2;buf[2] = a3;buf[3] = a4;buf[4] = a5;buf[5] = a6;buf[6] = a7;buf[7] = a8;\ + GC(td, clo, buf, 8); \ + return; \ + } else {\ + closcall8(td, (closure) (clo),a1,a2,a3,a4,a5,a6,a7,a8); \ + return;\ + } \ +} + +#define return_direct8(td, _fn,a1,a2,a3,a4,a5,a6,a7,a8) { \ + char top; \ + if (stack_overflow(&top, (((gc_thread_data *)data)->stack_limit))) { \ + object buf[8]; buf[0] = a1;buf[1] = a2;buf[2] = a3;buf[3] = a4;buf[4] = a5;buf[5] = a6;buf[6] = a7;buf[7] = a8; \ + mclosure0(c1, _fn); \ + GC(td, &c1, buf, 8); \ + return; \ + } else { \ + (_fn)(td, 8, (closure)_fn,a1,a2,a3,a4,a5,a6,a7,a8); \ + }} + +#define closcall9(td, clo,a1,a2,a3,a4,a5,a6,a7,a8,a9) \ +if (type_of(clo) == pair_tag || prim(clo)) { \ + Cyc_apply(td, 8, (closure)(a1), clo,a2,a3,a4,a5,a6,a7,a8,a9); \ +} else { \ + ((clo)->fn)(td, 9, clo,a1,a2,a3,a4,a5,a6,a7,a8,a9);\ +} +#define return_closcall9(td, clo,a1,a2,a3,a4,a5,a6,a7,a8,a9) { \ + char top; \ + if (stack_overflow(&top, (((gc_thread_data *)data)->stack_limit))) { \ + object buf[9]; buf[0] = a1;buf[1] = a2;buf[2] = a3;buf[3] = a4;buf[4] = a5;buf[5] = a6;buf[6] = a7;buf[7] = a8;buf[8] = a9;\ + GC(td, clo, buf, 9); \ + return; \ + } else {\ + closcall9(td, (closure) (clo),a1,a2,a3,a4,a5,a6,a7,a8,a9); \ + return;\ + } \ +} + +#define return_direct9(td, _fn,a1,a2,a3,a4,a5,a6,a7,a8,a9) { \ + char top; \ + if (stack_overflow(&top, (((gc_thread_data *)data)->stack_limit))) { \ + object buf[9]; buf[0] = a1;buf[1] = a2;buf[2] = a3;buf[3] = a4;buf[4] = a5;buf[5] = a6;buf[6] = a7;buf[7] = a8;buf[8] = a9; \ + mclosure0(c1, _fn); \ + GC(td, &c1, buf, 9); \ + return; \ + } else { \ + (_fn)(td, 9, (closure)_fn,a1,a2,a3,a4,a5,a6,a7,a8,a9); \ + }} + +#include "cyclone/types.h" +object __glo_lib_91init_117schemeread_scheme_read = NULL; +object __glo_read_91all_scheme_read = NULL; +object __glo_cyc_91read_scheme_read = NULL; +object __glo_hex_91digit_127_scheme_read = NULL; +object __glo_parse_91number_91rec_scheme_read = NULL; +object __glo_parse_91number_scheme_read = NULL; +object __glo_parse_91li_91rec_scheme_read = NULL; +object __glo_parse_91literal_91identifier_scheme_read = NULL; +object __glo_read_91block_91terminator_scheme_read = NULL; +object __glo_read_91block_91comment_scheme_read = NULL; +object __glo_get_91next_91char_scheme_read = NULL; +object __glo_parse_91atom_scheme_read = NULL; +object __glo_token_91numeric_127_scheme_read = NULL; +object __glo_sign_127_scheme_read = NULL; +object __glo_read_91str_91esc_scheme_read = NULL; +object __glo_read_91str_scheme_read = NULL; +object __glo_read_91pound_scheme_read = NULL; +object __glo_parse_scheme_read = NULL; +object __glo_parse_95tok_scheme_read = NULL; +object __glo_parse_91error_scheme_read = NULL; +object __glo__91_125dotted_91list_scheme_read = NULL; +object __glo_dotted_127_scheme_read = NULL; +object __glo__91_125tok_scheme_read = NULL; +object __glo_get_91toks_scheme_read = NULL; +object __glo_add_91tok_scheme_read = NULL; +object __glo_in_91port_117set_91cnum_67_scheme_read = NULL; +object __glo_in_91port_117get_91cnum_scheme_read = NULL; +object __glo_in_91port_117set_91lnum_67_scheme_read = NULL; +object __glo_in_91port_117get_91lnum_scheme_read = NULL; +object __glo_in_91port_117set_91buf_67_scheme_read = NULL; +object __glo_in_91port_117get_91buf_scheme_read = NULL; +object __glo_in_91port_117read_91buf_67_scheme_read = NULL; +object __glo_reg_91port_scheme_read = NULL; +object __glo__85in_91port_91table_85_scheme_read = NULL; +object __glo_read_scheme_read = NULL; +extern object __glo_cons_91source_scheme_base; +extern object __glo_syntax_91rules_scheme_base; +extern object __glo_letrec_85_scheme_base; +extern object __glo_guard_scheme_base; +extern object __glo_guard_91aux_scheme_base; +extern object __glo_define_91record_91type_scheme_base; +extern object __glo_record_127_scheme_base; +extern object __glo_register_91simple_91type_scheme_base; +extern object __glo_make_91type_91predicate_scheme_base; +extern object __glo_make_91constructor_scheme_base; +extern object __glo_make_91getter_scheme_base; +extern object __glo_make_91setter_scheme_base; +extern object __glo_slot_91set_67_scheme_base; +extern object __glo_type_91slot_91offset_scheme_base; +extern object __glo_receive_scheme_base; +extern object __glo_abs_scheme_base; +extern object __glo_max_scheme_base; +extern object __glo_min_scheme_base; +extern object __glo_modulo_scheme_base; +extern object __glo_floor_91remainder_scheme_base; +extern object __glo_even_127_scheme_base; +extern object __glo_exact_91integer_127_scheme_base; +extern object __glo_exact_127_scheme_base; +extern object __glo_inexact_127_scheme_base; +extern object __glo_odd_127_scheme_base; +extern object __glo_complex_127_scheme_base; +extern object __glo_rational_127_scheme_base; +extern object __glo_gcd_scheme_base; +extern object __glo_lcm_scheme_base; +extern object __glo_quotient_scheme_base; +extern object __glo_remainder_scheme_base; +extern object __glo_truncate_91quotient_scheme_base; +extern object __glo_truncate_91remainder_scheme_base; +extern object __glo_truncate_95_scheme_base; +extern object __glo_floor_91quotient_scheme_base; +extern object __glo_floor_91remainder_scheme_base; +extern object __glo_floor_95_scheme_base; +extern object __glo_square_scheme_base; +extern object __glo_expt_scheme_base; +extern object __glo_call_91with_91current_91continuation_scheme_base; +extern object __glo_call_95cc_scheme_base; +extern object __glo_call_91with_91values_scheme_base; +extern object __glo_dynamic_91wind_scheme_base; +extern object __glo_values_scheme_base; +extern object __glo_char_123_127_scheme_base; +extern object __glo_char_121_127_scheme_base; +extern object __glo_char_125_127_scheme_base; +extern object __glo_char_121_123_127_scheme_base; +extern object __glo_char_125_123_127_scheme_base; +extern object __glo_string_123_127_scheme_base; +extern object __glo_string_121_127_scheme_base; +extern object __glo_string_121_123_127_scheme_base; +extern object __glo_string_125_127_scheme_base; +extern object __glo_string_125_123_127_scheme_base; +extern object __glo_foldl_scheme_base; +extern object __glo_foldr_scheme_base; +extern object __glo_not_scheme_base; +extern object __glo_list_127_scheme_base; +extern object __glo_zero_127_scheme_base; +extern object __glo_positive_127_scheme_base; +extern object __glo_negative_127_scheme_base; +extern object __glo_append_scheme_base; +extern object __glo__list_scheme_base; +extern object __glo_make_91list_scheme_base; +extern object __glo_list_91copy_scheme_base; +extern object __glo_map_scheme_base; +extern object __glo_for_91each_scheme_base; +extern object __glo_list_91tail_scheme_base; +extern object __glo_list_91ref_scheme_base; +extern object __glo_list_91set_67_scheme_base; +extern object __glo_reverse_scheme_base; +extern object __glo_boolean_123_127_scheme_base; +extern object __glo_symbol_123_127_scheme_base; +extern object __glo_Cyc_91obj_123_127_scheme_base; +extern object __glo_vector_scheme_base; +extern object __glo_vector_91append_scheme_base; +extern object __glo_vector_91copy_scheme_base; +extern object __glo_vector_91copy_67_scheme_base; +extern object __glo_vector_91fill_67_scheme_base; +extern object __glo_vector_91_125list_scheme_base; +extern object __glo_vector_91_125string_scheme_base; +extern object __glo_vector_91map_scheme_base; +extern object __glo_vector_91for_91each_scheme_base; +extern object __glo_make_91string_scheme_base; +extern object __glo_string_scheme_base; +extern object __glo_string_91copy_scheme_base; +extern object __glo_string_91copy_67_scheme_base; +extern object __glo_string_91fill_67_scheme_base; +extern object __glo_string_91_125list_scheme_base; +extern object __glo_string_91_125vector_scheme_base; +extern object __glo_string_91map_scheme_base; +extern object __glo_string_91for_91each_scheme_base; +extern object __glo_make_91parameter_scheme_base; +extern object __glo_current_91output_91port_scheme_base; +extern object __glo_current_91input_91port_scheme_base; +extern object __glo_current_91error_91port_scheme_base; +extern object __glo_call_91with_91port_scheme_base; +extern object __glo_error_scheme_base; +extern object __glo_raise_scheme_base; +extern object __glo_raise_91continuable_scheme_base; +extern object __glo_with_91exception_91handler_scheme_base; +extern object __glo_Cyc_91add_91exception_91handler_scheme_base; +extern object __glo_Cyc_91remove_91exception_91handler_scheme_base; +extern object __glo_newline_scheme_base; +extern object __glo_write_91char_scheme_base; +extern object __glo_write_91string_scheme_base; +extern object __glo_flush_91output_91port_scheme_base; +extern object __glo_read_91line_scheme_base; +extern object __glo_read_91string_scheme_base; +extern object __glo_input_91port_127_scheme_base; +extern object __glo_output_91port_127_scheme_base; +extern object __glo_input_91port_91open_127_scheme_base; +extern object __glo_output_91port_91open_127_scheme_base; +extern object __glo_features_scheme_base; +extern object __glo_any_scheme_base; +extern object __glo_every_scheme_base; +extern object __glo_and_scheme_base; +extern object __glo_or_scheme_base; +extern object __glo_let_scheme_base; +extern object __glo_let_85_scheme_base; +extern object __glo_letrec_scheme_base; +extern object __glo_begin_scheme_base; +extern object __glo__case_scheme_base; +extern object __glo_cond_scheme_base; +extern object __glo_cond_91expand_scheme_base; +extern object __glo__do_scheme_base; +extern object __glo_when_scheme_base; +extern object __glo_unless_scheme_base; +extern object __glo_quasiquote_scheme_base; +extern object __glo_floor_scheme_base; +extern object __glo_ceiling_scheme_base; +extern object __glo_truncate_scheme_base; +extern object __glo_round_scheme_base; +extern object __glo_exact_scheme_base; +extern object __glo_inexact_scheme_base; +extern object __glo_eof_91object_scheme_base; +extern object __glo_syntax_91error_scheme_base; +extern object __glo_bytevector_91copy_scheme_base; +extern object __glo_utf8_91_125string_scheme_base; +extern object __glo_string_91_125utf8_scheme_base; +extern object __glo_denominator_scheme_base; +extern object __glo_numerator_scheme_base; +extern object __glo_char_91alphabetic_127_scheme__char; +extern object __glo_char_91downcase_scheme__char; +extern object __glo_char_91foldcase_scheme__char; +extern object __glo_char_91lower_91case_127_scheme__char; +extern object __glo_char_91numeric_127_scheme__char; +extern object __glo_char_91upcase_scheme__char; +extern object __glo_char_91upper_91case_127_scheme__char; +extern object __glo_char_91whitespace_127_scheme__char; +extern object __glo_char_91ci_121_123_127_scheme__char; +extern object __glo_char_91ci_121_127_scheme__char; +extern object __glo_char_91ci_123_127_scheme__char; +extern object __glo_char_91ci_125_123_127_scheme__char; +extern object __glo_char_91ci_125_127_scheme__char; +extern object __glo_digit_91value_scheme__char; +extern object __glo_string_91upcase_scheme__char; +extern object __glo_string_91downcase_scheme__char; +extern object __glo_string_91foldcase_scheme__char; +extern object __glo_string_91ci_121_123_127_scheme__char; +extern object __glo_string_91ci_121_127_scheme__char; +extern object __glo_string_91ci_123_127_scheme__char; +extern object __glo_string_91ci_125_123_127_scheme__char; +extern object __glo_string_91ci_125_127_scheme__char; +#include "cyclone/runtime.h" +defsymbol(unquote); +defsymbol(unquote_91splicing); +defsymbol(quasiquote); +defsymbol(quote); +static void __lambda_613(void *data, int argc, closure _,object k_73266) ; +static void __lambda_612(void *data, int argc, object self_73822) ; +static void __lambda_611(void *data, int argc, object self_73823, object r_73268) ; +static void __lambda_610(void *data, int argc, object self_73824, object r_73269) ; +static void __lambda_609(void *data, int argc, closure _,object k_73272, object args_73116_raw, ...) ; +static void __lambda_608(void *data, int argc, object self_73825) ; +static void __lambda_607(void *data, int argc, object self_73826, object fp_73118) ; +static void __lambda_606(void *data, int argc, object self_73827, object loop_73119) ; +static void __lambda_605(void *data, int argc, object self_73828, object loop_73119) ; +static void __lambda_604(void *data, int argc, object self_73829, object k_73277, object fp_73121, object result_73120) ; +static void __lambda_603(void *data, int argc, object self_73830, object obj_73122) ; +static void __lambda_602(void *data, int argc, object self_73831, object r_73279) ; +static void __lambda_601(void *data, int argc, object self_73832, object r_73280) ; +static void __lambda_600(void *data, int argc, object self_73833, object r_73276) ; +static void __lambda_599(void *data, int argc, object self_73834, object r_73274) ; +static void __lambda_598(void *data, int argc, object self_73835, object r_73275) ; +static void __lambda_597(void *data, int argc, object self_73836, object k_73281) ; +static void __lambda_596(void *data, int argc, object self_73837, object r_73282) ; +static void __lambda_595(void *data, int argc, closure _,object k_73285, object args_73123_raw, ...) ; +static void __lambda_594(void *data, int argc, object self_73838, object fp_73124) ; +static void __lambda_593(void *data, int argc, object self_73839, object r_73287) ; +static void __lambda_592(void *data, int argc, object self_73840, object r_73288) ; +static void __lambda_591(void *data, int argc, object self_73841, object r_73289) ; +static void __lambda_590(void *data, int argc, object self_73842, object k_73290) ; +static void __lambda_589(void *data, int argc, object self_73843, object r_73291) ; +static void __lambda_588(void *data, int argc, closure _,object k_73294, object c_73125) ; +static void __lambda_587(void *data, int argc, object self_73844, object tmp_73126) ; +static void __lambda_586(void *data, int argc, object self_73845, object r_73296) ; +static void __lambda_585(void *data, int argc, object self_73846, object k_73297) ; +static void __lambda_584(void *data, int argc, object self_73847, object r_73298) ; +static void __lambda_583(void *data, int argc, closure _,object k_73301, object base_73130, object fp_73129, object tok_73128, object ptbl_73127) ; +static void __lambda_582(void *data, int argc, object self_73848, object r_73302) ; +static void __lambda_581(void *data, int argc, object self_73849, object k_73321, object c_73131) ; +static void __lambda_580(void *data, int argc, object self_73850, object r_73322) ; +static void __lambda_579(void *data, int argc, object self_73851, object r_73303) ; +static void __lambda_578(void *data, int argc, object self_73852, object c_73133, object next_73132) ; +static void __lambda_577(void *data, int argc, object self_73853, object r_73304) ; +static void __lambda_576(void *data, int argc, object self_73854, object r_73305) ; +static void __lambda_575(void *data, int argc, object self_73855, object r_73306) ; +static void __lambda_574(void *data, int argc, object self_73856, object r_73317) ; +static void __lambda_573(void *data, int argc, object self_73857) ; +static void __lambda_572(void *data, int argc, object self_73858, object r_73318) ; +static void __lambda_571(void *data, int argc, object self_73859) ; +static void __lambda_570(void *data, int argc, object self_73860, object k_73319) ; +static void __lambda_569(void *data, int argc, object self_73861, object r_73320) ; +static void __lambda_568(void *data, int argc, object self_73862) ; +static void __lambda_567(void *data, int argc, object self_73863, object r_73307) ; +static void __lambda_566(void *data, int argc, object self_73864, object k_73308) ; +static void __lambda_565(void *data, int argc, object self_73865, object tmp_73134) ; +static void __lambda_564(void *data, int argc, object self_73866, object r_73309) ; +static void __lambda_563(void *data, int argc, object self_73867, object r_73310) ; +static void __lambda_562(void *data, int argc, object self_73868, object r_73311) ; +static void __lambda_561(void *data, int argc, object self_73869, object k_73313) ; +static void __lambda_560(void *data, int argc, object self_73870, object r_73314) ; +static void __lambda_559(void *data, int argc, object self_73871, object k_73315) ; +static void __lambda_558(void *data, int argc, object self_73872, object r_73316) ; +static void __lambda_557(void *data, int argc, object self_73873) ; +static void __lambda_556(void *data, int argc, object self_73874) ; +static void __lambda_555(void *data, int argc, closure _,object k_73325, object fp_73141, object toks_73140, object all_127_73139, object parens_73138, object ptbl_73137, object base_73136, object tok_91_125num_73135) ; +static void __lambda_554(void *data, int argc, object self_73875, object r_73340) ; +static void __lambda_553(void *data, int argc, object self_73876, object num_73142) ; +static void __lambda_552(void *data, int argc, object self_73877, object r_73327) ; +static void __lambda_551(void *data, int argc, object self_73878) ; +static void __lambda_550(void *data, int argc, object self_73879, object r_73331) ; +static void __lambda_549(void *data, int argc, object self_73880, object r_73332) ; +static void __lambda_548(void *data, int argc, object self_73881) ; +static void __lambda_547(void *data, int argc, object self_73882, object result_73143) ; +static void __lambda_546(void *data, int argc, object self_73883, object r_73329) ; +static void __lambda_545(void *data, int argc, object self_73884, object r_73330) ; +static void __lambda_544(void *data, int argc, object self_73885, object k_73333) ; +static void __lambda_543(void *data, int argc, object self_73886, object r_73334) ; +static void __lambda_542(void *data, int argc, object self_73887, object tmp_73144) ; +static void __lambda_541(void *data, int argc, object self_73888, object r_73339) ; +static void __lambda_540(void *data, int argc, object self_73889, object r_73336) ; +static void __lambda_539(void *data, int argc, object self_73890, object r_73337) ; +static void __lambda_538(void *data, int argc, object self_73891, object r_73338) ; +static void __lambda_537(void *data, int argc, closure _,object k_73343, object fp_73147, object tok_73146, object ptbl_73145) ; +static void __lambda_536(void *data, int argc, object self_73892, object r_73344) ; +static void __lambda_535(void *data, int argc, object self_73893, object k_73354, object c_73148) ; +static void __lambda_534(void *data, int argc, object self_73894, object r_73355) ; +static void __lambda_533(void *data, int argc, object self_73895, object r_73345) ; +static void __lambda_532(void *data, int argc, object self_73896, object c_73150, object next_73149) ; +static void __lambda_531(void *data, int argc, object self_73897, object r_73346) ; +static void __lambda_530(void *data, int argc, object self_73898, object r_73351) ; +static void __lambda_529(void *data, int argc, object self_73899) ; +static void __lambda_528(void *data, int argc, object self_73900) ; +static void __lambda_527(void *data, int argc, object self_73901, object r_73352) ; +static void __lambda_526(void *data, int argc, object self_73902, object r_73353) ; +static void __lambda_525(void *data, int argc, object self_73903) ; +static void __lambda_524(void *data, int argc, object self_73904, object str_73151) ; +static void __lambda_523(void *data, int argc, object self_73905, object k_73348) ; +static void __lambda_522(void *data, int argc, object self_73906, object r_73349) ; +static void __lambda_521(void *data, int argc, object self_73907, object r_73350) ; +static void __lambda_520(void *data, int argc, closure _,object k_73358, object fp_73156, object toks_73155, object all_127_73154, object parens_73153, object ptbl_73152) ; +static void __lambda_519(void *data, int argc, object self_73908, object r_73362) ; +static void __lambda_518(void *data, int argc, object self_73909, object sym_73157) ; +static void __lambda_517(void *data, int argc, object self_73910, object r_73360) ; +static void __lambda_516(void *data, int argc, object self_73911, object r_73361) ; +static void __lambda_515(void *data, int argc, closure _,object k_73365, object fp_73159, object ptbl_73158) ; +static void __lambda_514(void *data, int argc, object self_73912, object c_73160) ; +static void __lambda_513(void *data, int argc, object self_73913, object r_73367) ; +static void __lambda_512(void *data, int argc, object self_73914, object r_73368) ; +static void __lambda_511(void *data, int argc, object self_73915) ; +static void __lambda_510(void *data, int argc, object self_73916) ; +static void __lambda_509(void *data, int argc, object self_73917) ; +static void __lambda_508(void *data, int argc, closure _,object k_73371, object fp_73162, object ptbl_73161) ; +static void __lambda_507(void *data, int argc, object self_73918, object c_73163) ; +static void __lambda_506(void *data, int argc, object self_73919, object r_73373) ; +static void __lambda_505(void *data, int argc, object self_73920) ; +static void __lambda_504(void *data, int argc, object self_73921) ; +static void __lambda_503(void *data, int argc, closure _,object k_73376, object fp_73165, object ptbl_73164) ; +static void __lambda_502(void *data, int argc, object self_73922, object r_73377) ; +static void __lambda_501(void *data, int argc, closure _,object k_73380, object a_73166) ; +static void __lambda_500(void *data, int argc, object self_73923, object r_73381) ; +static void __lambda_499(void *data, int argc, object self_73924) ; +static void __lambda_498(void *data, int argc, object self_73925, object r_73383) ; +static void __lambda_497(void *data, int argc, object self_73926) ; +static void __lambda_496(void *data, int argc, object self_73927, object r_73382) ; +static void __lambda_495(void *data, int argc, closure _,object k_73386, object a_73167) ; +static void __lambda_494(void *data, int argc, object self_73928, object r_73403) ; +static void __lambda_493(void *data, int argc, object self_73929, object tmp_73168) ; +static void __lambda_492(void *data, int argc, object self_73930, object tmp_73169) ; +static void __lambda_491(void *data, int argc, object self_73931, object r_73396) ; +static void __lambda_490(void *data, int argc, object self_73932, object r_73389) ; +static void __lambda_489(void *data, int argc, object self_73933, object r_73395) ; +static void __lambda_488(void *data, int argc, object self_73934, object tmp_73170) ; +static void __lambda_487(void *data, int argc, object self_73935, object r_73390) ; +static void __lambda_486(void *data, int argc, object self_73936, object r_73391) ; +static void __lambda_485(void *data, int argc, object self_73937, object k_73393) ; +static void __lambda_484(void *data, int argc, object self_73938, object r_73394) ; +static void __lambda_483(void *data, int argc, object self_73939, object k_73397) ; +static void __lambda_482(void *data, int argc, object self_73940, object r_73402) ; +static void __lambda_481(void *data, int argc, object self_73941, object r_73398) ; +static void __lambda_480(void *data, int argc, object self_73942, object r_73401) ; +static void __lambda_479(void *data, int argc, object self_73943, object r_73399) ; +static void __lambda_478(void *data, int argc, object self_73944, object r_73400) ; +static void __lambda_477(void *data, int argc, closure _,object k_73406, object c_73171) ; +static void __lambda_476(void *data, int argc, object self_73945, object tmp_73172) ; +static void __lambda_475(void *data, int argc, closure _,object k_73410, object fp_73175, object buf_73174, object ptbl_73173) ; +static void __lambda_474(void *data, int argc, object self_73946, object c_73176) ; +static void __lambda_473(void *data, int argc, object self_73947, object r_73412) ; +static void __lambda_472(void *data, int argc, object self_73948, object tmp_73177) ; +static void __lambda_471(void *data, int argc, object self_73949, object r_73415) ; +static void __lambda_470(void *data, int argc, object self_73950, object r_73416) ; +static void __lambda_469(void *data, int argc, object self_73951) ; +static void __lambda_468(void *data, int argc, object self_73952, object r_73421) ; +static void __lambda_467(void *data, int argc, object self_73953, object r_73420) ; +static void __lambda_466(void *data, int argc, object self_73954, object r_73417) ; +static void __lambda_465(void *data, int argc, object self_73955, object r_73418) ; +static void __lambda_464(void *data, int argc, object self_73956, object r_73419) ; +static void __lambda_463(void *data, int argc, object self_73957) ; +static void __lambda_462(void *data, int argc, object self_73958) ; +static void __lambda_461(void *data, int argc, object self_73959, object k_73423) ; +static void __lambda_460(void *data, int argc, object self_73960) ; +static void __lambda_459(void *data, int argc, object self_73961, object r_73413) ; +static void __lambda_458(void *data, int argc, object self_73962, object r_73414) ; +static void __lambda_457(void *data, int argc, closure _,object k_73426, object fp_73180, object buf_73179, object ptbl_73178) ; +static void __lambda_456(void *data, int argc, object self_73963, object c_73181) ; +static void __lambda_455(void *data, int argc, object self_73964, object r_73428) ; +static void __lambda_454(void *data, int argc, object self_73965, object r_73431) ; +static void __lambda_453(void *data, int argc, object self_73966, object r_73433) ; +static void __lambda_452(void *data, int argc, object self_73967) ; +static void __lambda_451(void *data, int argc, object self_73968, object r_73435) ; +static void __lambda_450(void *data, int argc, object self_73969) ; +static void __lambda_449(void *data, int argc, object self_73970, object r_73434) ; +static void __lambda_448(void *data, int argc, object self_73971) ; +static void __lambda_447(void *data, int argc, object self_73972, object r_73432) ; +static void __lambda_446(void *data, int argc, object self_73973) ; +static void __lambda_445(void *data, int argc, object self_73974, object r_73429) ; +static void __lambda_444(void *data, int argc, object self_73975, object r_73430) ; +static void __lambda_443(void *data, int argc, closure _,object k_73438, object fp_73183, object ptbl_73182) ; +static void __lambda_442(void *data, int argc, object self_73976, object done_73187, object loop_73186) ; +static void __lambda_441(void *data, int argc, object self_73977, object done_73187) ; +static void __lambda_440(void *data, int argc, object self_73978, object loop_73186) ; +static void __lambda_439(void *data, int argc, object self_73979) ; +static void __lambda_438(void *data, int argc, object self_73980, object k_73457, object raw_91buf_73194) ; +static void __lambda_437(void *data, int argc, object self_73981, object buf_73195) ; +static void __lambda_436(void *data, int argc, object self_73982, object r_73494) ; +static void __lambda_435(void *data, int argc, object self_73983, object r_73459) ; +static void __lambda_434(void *data, int argc, object self_73984, object r_73493) ; +static void __lambda_433(void *data, int argc, object self_73985, object r_73462) ; +static void __lambda_432(void *data, int argc, object self_73986, object r_73492) ; +static void __lambda_431(void *data, int argc, object self_73987, object r_73463) ; +static void __lambda_430(void *data, int argc, object self_73988, object r_73491) ; +static void __lambda_429(void *data, int argc, object self_73989, object r_73464) ; +static void __lambda_428(void *data, int argc, object self_73990, object r_73490) ; +static void __lambda_427(void *data, int argc, object self_73991, object r_73465) ; +static void __lambda_426(void *data, int argc, object self_73992, object r_73489) ; +static void __lambda_425(void *data, int argc, object self_73993, object r_73466) ; +static void __lambda_424(void *data, int argc, object self_73994, object r_73488) ; +static void __lambda_423(void *data, int argc, object self_73995, object r_73467) ; +static void __lambda_422(void *data, int argc, object self_73996, object r_73487) ; +static void __lambda_421(void *data, int argc, object self_73997, object r_73468) ; +static void __lambda_420(void *data, int argc, object self_73998, object r_73486) ; +static void __lambda_419(void *data, int argc, object self_73999, object r_73469) ; +static void __lambda_418(void *data, int argc, object self_731000, object r_73485) ; +static void __lambda_417(void *data, int argc, object self_731001, object r_73470) ; +static void __lambda_416(void *data, int argc, object self_731002, object r_73484) ; +static void __lambda_415(void *data, int argc, object self_731003, object r_73471) ; +static void __lambda_414(void *data, int argc, object self_731004, object r_73472) ; +static void __lambda_413(void *data, int argc, object self_731005) ; +static void __lambda_412(void *data, int argc, object self_731006, object r_73479) ; +static void __lambda_411(void *data, int argc, object self_731007, object r_73476) ; +static void __lambda_410(void *data, int argc, object self_731008, object r_73477) ; +static void __lambda_409(void *data, int argc, object self_731009, object r_73478) ; +static void __lambda_408(void *data, int argc, object self_731010) ; +static void __lambda_407(void *data, int argc, object self_731011, object r_73475) ; +static void __lambda_406(void *data, int argc, object self_731012, object r_73474) ; +static void __lambda_405(void *data, int argc, object self_731013, object r_73473) ; +static void __lambda_404(void *data, int argc, object self_731014, object k_73480) ; +static void __lambda_403(void *data, int argc, object self_731015, object r_73483) ; +static void __lambda_402(void *data, int argc, object self_731016, object r_73481) ; +static void __lambda_401(void *data, int argc, object self_731017, object r_73482) ; +static void __lambda_400(void *data, int argc, object self_731018) ; +static void __lambda_399(void *data, int argc, object self_731019) ; +static void __lambda_398(void *data, int argc, object self_731020) ; +static void __lambda_397(void *data, int argc, object self_731021) ; +static void __lambda_396(void *data, int argc, object self_731022) ; +static void __lambda_395(void *data, int argc, object self_731023) ; +static void __lambda_394(void *data, int argc, object self_731024) ; +static void __lambda_393(void *data, int argc, object self_731025) ; +static void __lambda_392(void *data, int argc, object self_731026) ; +static void __lambda_391(void *data, int argc, object self_731027) ; +static void __lambda_390(void *data, int argc, object self_731028) ; +static void __lambda_389(void *data, int argc, object self_731029, object r_73460) ; +static void __lambda_388(void *data, int argc, object self_731030, object r_73461) ; +static void __lambda_387(void *data, int argc, object self_731031, object r_73456) ; +static void __lambda_386(void *data, int argc, object self_731032, object r_73439) ; +static void __lambda_385(void *data, int argc, object self_731033, object k_73443, object buf_73190) ; +static void __lambda_384(void *data, int argc, object self_731034, object c_73191) ; +static void __lambda_383(void *data, int argc, object self_731035, object tmp_73192) ; +static void __lambda_382(void *data, int argc, object self_731036, object r_73445) ; +static void __lambda_381(void *data, int argc, object self_731037) ; +static void __lambda_380(void *data, int argc, object self_731038, object r_73447) ; +static void __lambda_379(void *data, int argc, object self_731039, object r_73446) ; +static void __lambda_378(void *data, int argc, object self_731040) ; +static void __lambda_377(void *data, int argc, object self_731041, object k_73449) ; +static void __lambda_376(void *data, int argc, object self_731042, object tmp_73193) ; +static void __lambda_375(void *data, int argc, object self_731043, object r_73452) ; +static void __lambda_374(void *data, int argc, object self_731044, object r_73451) ; +static void __lambda_373(void *data, int argc, object self_731045, object k_73453) ; +static void __lambda_372(void *data, int argc, object self_731046, object r_73454) ; +static void __lambda_371(void *data, int argc, object self_731047, object r_73455) ; +static void __lambda_370(void *data, int argc, object self_731048, object r_73442) ; +static void __lambda_369(void *data, int argc, object self_731049, object r_73440) ; +static void __lambda_368(void *data, int argc, object self_731050, object r_73441) ; +static void __lambda_367(void *data, int argc, closure _,object k_73497, object fp_73202, object tok_73201, object toks_73200, object all_127_73199, object comment_127_73198, object parens_73197, object ptbl_73196) ; +static void __lambda_366(void *data, int argc, object self_731051) ; +static void __lambda_365(void *data, int argc, object self_731052, object r_73736) ; +static void __lambda_364(void *data, int argc, object self_731053, object r_73735) ; +static void __lambda_363(void *data, int argc, object self_731054, object r_73498) ; +static void __lambda_362(void *data, int argc, object self_731055, object c_73204) ; +static void __lambda_361(void *data, int argc, object self_731056, object r_73500) ; +static void __lambda_360(void *data, int argc, object self_731057, object r_73517) ; +static void __lambda_359(void *data, int argc, object self_731058, object r_73526) ; +static void __lambda_358(void *data, int argc, object self_731059, object r_73527) ; +static void __lambda_357(void *data, int argc, object self_731060, object r_73543) ; +static void __lambda_356(void *data, int argc, object self_731061, object r_73559) ; +static void __lambda_355(void *data, int argc, object self_731062, object r_73589) ; +static void __lambda_354(void *data, int argc, object self_731063, object r_73609) ; +static void __lambda_353(void *data, int argc, object self_731064, object r_73620) ; +static void __lambda_352(void *data, int argc, object self_731065, object r_73633) ; +static void __lambda_351(void *data, int argc, object self_731066, object r_73731) ; +static void __lambda_350(void *data, int argc, object self_731067) ; +static void __lambda_349(void *data, int argc, object self_731068, object r_73732) ; +static void __lambda_348(void *data, int argc, object self_731069) ; +static void __lambda_347(void *data, int argc, object self_731070) ; +static void __lambda_346(void *data, int argc, object self_731071, object r_73634) ; +static void __lambda_345(void *data, int argc, object self_731072, object r_73730) ; +static void __lambda_344(void *data, int argc, object self_731073, object next_91c_73205) ; +static void __lambda_343(void *data, int argc, object self_731074, object next_91c_73205) ; +static void __lambda_342(void *data, int argc, object self_731075, object r_73729) ; +static void __lambda_341(void *data, int argc, object self_731076, object r_73728) ; +static void __lambda_340(void *data, int argc, object self_731077, object r_73636) ; +static void __lambda_339(void *data, int argc, object self_731078, object r_73637) ; +static void __lambda_338(void *data, int argc, object self_731079, object r_73640) ; +static void __lambda_337(void *data, int argc, object self_731080, object r_73643) ; +static void __lambda_336(void *data, int argc, object self_731081, object r_73646) ; +static void __lambda_335(void *data, int argc, object self_731082, object r_73650) ; +static void __lambda_334(void *data, int argc, object self_731083, object r_73654) ; +static void __lambda_333(void *data, int argc, object self_731084, object r_73658) ; +static void __lambda_332(void *data, int argc, object self_731085, object r_73662) ; +static void __lambda_331(void *data, int argc, object self_731086, object r_73666) ; +static void __lambda_330(void *data, int argc, object self_731087, object r_73696) ; +static void __lambda_329(void *data, int argc, object self_731088, object r_73712) ; +static void __lambda_328(void *data, int argc, object self_731089, object r_73716) ; +static void __lambda_327(void *data, int argc, object self_731090) ; +static void __lambda_326(void *data, int argc, object self_731091, object r_73726) ; +static void __lambda_325(void *data, int argc, object self_731092, object r_73727) ; +static void __lambda_324(void *data, int argc, object self_731093) ; +static void __lambda_323(void *data, int argc, object self_731094, object r_73724) ; +static void __lambda_322(void *data, int argc, object self_731095, object r_73725) ; +static void __lambda_321(void *data, int argc, object self_731096, object r_73717) ; +static void __lambda_320(void *data, int argc, object self_731097, object r_73718) ; +static void __lambda_319(void *data, int argc, object self_731098) ; +static void __lambda_318(void *data, int argc, object self_731099) ; +static void __lambda_317(void *data, int argc, object self_731100, object r_73719) ; +static void __lambda_316(void *data, int argc, object self_731101, object r_73721) ; +static void __lambda_315(void *data, int argc, object self_731102, object r_73720) ; +static void __lambda_314(void *data, int argc, object self_731103, object k_73722) ; +static void __lambda_313(void *data, int argc, object self_731104, object r_73723) ; +static void __lambda_312(void *data, int argc, object self_731105) ; +static void __lambda_311(void *data, int argc, object self_731106, object r_73715) ; +static void __lambda_310(void *data, int argc, object self_731107, object new_91toks_73206) ; +static void __lambda_309(void *data, int argc, object self_731108, object r_73714) ; +static void __lambda_308(void *data, int argc, object self_731109) ; +static void __lambda_307(void *data, int argc, object self_731110, object r_73709) ; +static void __lambda_306(void *data, int argc, object self_731111, object r_73710) ; +static void __lambda_305(void *data, int argc, object self_731112, object r_73711) ; +static void __lambda_304(void *data, int argc, object self_731113, object r_73697) ; +static void __lambda_303(void *data, int argc, object self_731114, object r_73698) ; +static void __lambda_302(void *data, int argc, object self_731115, object sub_73208, object toks_85_73207) ; +static void __lambda_301(void *data, int argc, object self_731116, object new_91toks_73209) ; +static void __lambda_300(void *data, int argc, object self_731117, object new_91toks_73209) ; +static void __lambda_299(void *data, int argc, object self_731118, object r_73702) ; +static void __lambda_298(void *data, int argc, object self_731119, object r_73701) ; +static void __lambda_297(void *data, int argc, object self_731120, object r_73699) ; +static void __lambda_296(void *data, int argc, object self_731121, object r_73700) ; +static void __lambda_295(void *data, int argc, object self_731122, object k_73703) ; +static void __lambda_294(void *data, int argc, object self_731123, object r_73704) ; +static void __lambda_293(void *data, int argc, object self_731124, object r_73705) ; +static void __lambda_292(void *data, int argc, object self_731125, object r_73706) ; +static void __lambda_291(void *data, int argc, object self_731126, object k_73707) ; +static void __lambda_290(void *data, int argc, object self_731127, object r_73708) ; +static void __lambda_289(void *data, int argc, object self_731128) ; +static void __lambda_288(void *data, int argc, object self_731129, object r_73695) ; +static void __lambda_287(void *data, int argc, object self_731130, object r_73667) ; +static void __lambda_286(void *data, int argc, object self_731131, object r_73668) ; +static void __lambda_285(void *data, int argc, object self_731132, object r_73690) ; +static void __lambda_284(void *data, int argc, object self_731133, object r_73669) ; +static void __lambda_283(void *data, int argc, object self_731134, object r_73670) ; +static void __lambda_282(void *data, int argc, object self_731135, object r_73683) ; +static void __lambda_281(void *data, int argc, object self_731136, object r_73684) ; +static void __lambda_280(void *data, int argc, object self_731137, object r_73685) ; +static void __lambda_279(void *data, int argc, object self_731138, object r_73671) ; +static void __lambda_278(void *data, int argc, object self_731139, object r_73672) ; +static void __lambda_277(void *data, int argc, object self_731140, object sub_73211, object toks_85_73210) ; +static void __lambda_276(void *data, int argc, object self_731141, object new_91toks_73212) ; +static void __lambda_275(void *data, int argc, object self_731142, object new_91toks_73212) ; +static void __lambda_274(void *data, int argc, object self_731143, object r_73676) ; +static void __lambda_273(void *data, int argc, object self_731144, object r_73675) ; +static void __lambda_272(void *data, int argc, object self_731145, object r_73673) ; +static void __lambda_271(void *data, int argc, object self_731146, object r_73674) ; +static void __lambda_270(void *data, int argc, object self_731147, object k_73677) ; +static void __lambda_269(void *data, int argc, object self_731148, object r_73678) ; +static void __lambda_268(void *data, int argc, object self_731149, object r_73679) ; +static void __lambda_267(void *data, int argc, object self_731150, object r_73680) ; +static void __lambda_266(void *data, int argc, object self_731151, object k_73681) ; +static void __lambda_265(void *data, int argc, object self_731152, object r_73682) ; +static void __lambda_264(void *data, int argc, object self_731153, object k_73686) ; +static void __lambda_263(void *data, int argc, object self_731154, object r_73687) ; +static void __lambda_262(void *data, int argc, object self_731155, object r_73688) ; +static void __lambda_261(void *data, int argc, object self_731156, object r_73689) ; +static void __lambda_260(void *data, int argc, object self_731157, object k_73691) ; +static void __lambda_259(void *data, int argc, object self_731158, object r_73692) ; +static void __lambda_258(void *data, int argc, object self_731159, object r_73693) ; +static void __lambda_257(void *data, int argc, object self_731160, object r_73694) ; +static void __lambda_256(void *data, int argc, object self_731161) ; +static void __lambda_255(void *data, int argc, object self_731162, object k_73664, object num_73213) ; +static void __lambda_254(void *data, int argc, object self_731163, object r_73665) ; +static void __lambda_253(void *data, int argc, object self_731164, object r_73663) ; +static void __lambda_252(void *data, int argc, object self_731165) ; +static void __lambda_251(void *data, int argc, object self_731166, object k_73660, object num_73214) ; +static void __lambda_250(void *data, int argc, object self_731167, object r_73661) ; +static void __lambda_249(void *data, int argc, object self_731168, object r_73659) ; +static void __lambda_248(void *data, int argc, object self_731169) ; +static void __lambda_247(void *data, int argc, object self_731170, object k_73656, object num_73215) ; +static void __lambda_246(void *data, int argc, object self_731171, object r_73657) ; +static void __lambda_245(void *data, int argc, object self_731172, object r_73655) ; +static void __lambda_244(void *data, int argc, object self_731173) ; +static void __lambda_243(void *data, int argc, object self_731174, object k_73652, object num_73216) ; +static void __lambda_242(void *data, int argc, object self_731175, object r_73653) ; +static void __lambda_241(void *data, int argc, object self_731176, object r_73651) ; +static void __lambda_240(void *data, int argc, object self_731177) ; +static void __lambda_239(void *data, int argc, object self_731178, object k_73648, object num_73217) ; +static void __lambda_238(void *data, int argc, object self_731179, object r_73649) ; +static void __lambda_237(void *data, int argc, object self_731180, object r_73647) ; +static void __lambda_236(void *data, int argc, object self_731181) ; +static void __lambda_235(void *data, int argc, object self_731182, object r_73644) ; +static void __lambda_234(void *data, int argc, object self_731183, object r_73645) ; +static void __lambda_233(void *data, int argc, object self_731184) ; +static void __lambda_232(void *data, int argc, object self_731185, object r_73641) ; +static void __lambda_231(void *data, int argc, object self_731186, object r_73642) ; +static void __lambda_230(void *data, int argc, object self_731187) ; +static void __lambda_229(void *data, int argc, object self_731188, object r_73638) ; +static void __lambda_228(void *data, int argc, object self_731189, object r_73639) ; +static void __lambda_227(void *data, int argc, object self_731190) ; +static void __lambda_226(void *data, int argc, object self_731191, object r_73621) ; +static void __lambda_225(void *data, int argc, object self_731192) ; +static void __lambda_224(void *data, int argc, object self_731193, object r_73630) ; +static void __lambda_223(void *data, int argc, object self_731194, object r_73625) ; +static void __lambda_222(void *data, int argc, object self_731195, object r_73626) ; +static void __lambda_221(void *data, int argc, object self_731196, object str_73219, object toks_85_73218) ; +static void __lambda_220(void *data, int argc, object self_731197, object new_91toks_73220) ; +static void __lambda_219(void *data, int argc, object self_731198, object new_91toks_73220) ; +static void __lambda_218(void *data, int argc, object self_731199, object r_73629) ; +static void __lambda_217(void *data, int argc, object self_731200, object r_73627) ; +static void __lambda_216(void *data, int argc, object self_731201, object r_73628) ; +static void __lambda_215(void *data, int argc, object self_731202) ; +static void __lambda_214(void *data, int argc, object self_731203, object r_73622) ; +static void __lambda_213(void *data, int argc, object self_731204, object r_73624) ; +static void __lambda_212(void *data, int argc, object self_731205, object r_73623) ; +static void __lambda_211(void *data, int argc, object self_731206, object k_73631) ; +static void __lambda_210(void *data, int argc, object self_731207, object r_73632) ; +static void __lambda_209(void *data, int argc, object self_731208) ; +static void __lambda_208(void *data, int argc, object self_731209, object r_73610) ; +static void __lambda_207(void *data, int argc, object self_731210, object r_73614) ; +static void __lambda_206(void *data, int argc, object self_731211) ; +static void __lambda_205(void *data, int argc, object self_731212, object r_73617) ; +static void __lambda_204(void *data, int argc, object self_731213) ; +static void __lambda_203(void *data, int argc, object self_731214, object r_73615) ; +static void __lambda_202(void *data, int argc, object self_731215, object r_73616) ; +static void __lambda_201(void *data, int argc, object self_731216) ; +static void __lambda_200(void *data, int argc, object self_731217, object r_73611) ; +static void __lambda_199(void *data, int argc, object self_731218, object r_73613) ; +static void __lambda_198(void *data, int argc, object self_731219, object r_73612) ; +static void __lambda_197(void *data, int argc, object self_731220, object k_73618) ; +static void __lambda_196(void *data, int argc, object self_731221, object r_73619) ; +static void __lambda_195(void *data, int argc, object self_731222) ; +static void __lambda_194(void *data, int argc, object self_731223, object r_73590) ; +static void __lambda_193(void *data, int argc, object self_731224) ; +static void __lambda_192(void *data, int argc, object self_731225, object r_73604) ; +static void __lambda_191(void *data, int argc, object self_731226, object r_73605) ; +static void __lambda_190(void *data, int argc, object self_731227, object r_73606) ; +static void __lambda_189(void *data, int argc, object self_731228, object r_73594) ; +static void __lambda_188(void *data, int argc, object self_731229, object r_73595) ; +static void __lambda_187(void *data, int argc, object self_731230, object sub_73222, object toks_85_73221) ; +static void __lambda_186(void *data, int argc, object self_731231, object new_91toks_73223) ; +static void __lambda_185(void *data, int argc, object self_731232, object new_91toks_73223) ; +static void __lambda_184(void *data, int argc, object self_731233, object r_73599) ; +static void __lambda_183(void *data, int argc, object self_731234, object r_73598) ; +static void __lambda_182(void *data, int argc, object self_731235, object r_73596) ; +static void __lambda_181(void *data, int argc, object self_731236, object r_73597) ; +static void __lambda_180(void *data, int argc, object self_731237, object k_73600) ; +static void __lambda_179(void *data, int argc, object self_731238, object r_73601) ; +static void __lambda_178(void *data, int argc, object self_731239, object k_73602) ; +static void __lambda_177(void *data, int argc, object self_731240, object r_73603) ; +static void __lambda_176(void *data, int argc, object self_731241) ; +static void __lambda_175(void *data, int argc, object self_731242, object r_73591) ; +static void __lambda_174(void *data, int argc, object self_731243, object r_73593) ; +static void __lambda_173(void *data, int argc, object self_731244, object r_73592) ; +static void __lambda_172(void *data, int argc, object self_731245, object k_73607) ; +static void __lambda_171(void *data, int argc, object self_731246, object r_73608) ; +static void __lambda_170(void *data, int argc, object self_731247) ; +static void __lambda_169(void *data, int argc, object self_731248, object r_73560) ; +static void __lambda_168(void *data, int argc, object self_731249) ; +static void __lambda_167(void *data, int argc, object self_731250, object sub_73227, object next_91c_73226, object unquote_91sym_73225, object new_91toks_73224) ; +static void __lambda_166(void *data, int argc, object self_731251, object sub_73227) ; +static void __lambda_165(void *data, int argc, object self_731252, object next_91c_73226) ; +static void __lambda_164(void *data, int argc, object self_731253, object unquote_91sym_73225) ; +static void __lambda_163(void *data, int argc, object self_731254, object new_91toks_73224) ; +static void __lambda_162(void *data, int argc, object self_731255, object r_73564) ; +static void __lambda_161(void *data, int argc, object self_731256, object r_73586) ; +static void __lambda_160(void *data, int argc, object self_731257, object r_73565) ; +static void __lambda_159(void *data, int argc, object self_731258, object r_73583) ; +static void __lambda_158(void *data, int argc, object self_731259, object r_73566) ; +static void __lambda_157(void *data, int argc, object self_731260, object r_73567) ; +static void __lambda_156(void *data, int argc, object self_731261, object r_73568) ; +static void __lambda_155(void *data, int argc, object self_731262, object r_73576) ; +static void __lambda_154(void *data, int argc, object self_731263, object r_73577) ; +static void __lambda_153(void *data, int argc, object self_731264, object r_73575) ; +static void __lambda_152(void *data, int argc, object self_731265, object r_73569) ; +static void __lambda_151(void *data, int argc, object self_731266, object r_73573) ; +static void __lambda_150(void *data, int argc, object self_731267, object r_73574) ; +static void __lambda_149(void *data, int argc, object self_731268, object r_73572) ; +static void __lambda_148(void *data, int argc, object self_731269, object r_73570) ; +static void __lambda_147(void *data, int argc, object self_731270, object r_73571) ; +static void __lambda_146(void *data, int argc, object self_731271, object k_73578) ; +static void __lambda_145(void *data, int argc, object self_731272, object r_73579) ; +static void __lambda_144(void *data, int argc, object self_731273, object r_73582) ; +static void __lambda_143(void *data, int argc, object self_731274) ; +static void __lambda_142(void *data, int argc, object self_731275) ; +static void __lambda_141(void *data, int argc, object self_731276) ; +static void __lambda_140(void *data, int argc, object self_731277, object r_73580) ; +static void __lambda_139(void *data, int argc, object self_731278, object r_73581) ; +static void __lambda_138(void *data, int argc, object self_731279, object k_73584) ; +static void __lambda_137(void *data, int argc, object self_731280, object r_73585) ; +static void __lambda_136(void *data, int argc, object self_731281) ; +static void __lambda_135(void *data, int argc, object self_731282, object r_73561) ; +static void __lambda_134(void *data, int argc, object self_731283, object r_73563) ; +static void __lambda_133(void *data, int argc, object self_731284, object r_73562) ; +static void __lambda_132(void *data, int argc, object self_731285, object k_73587) ; +static void __lambda_131(void *data, int argc, object self_731286, object r_73588) ; +static void __lambda_130(void *data, int argc, object self_731287) ; +static void __lambda_129(void *data, int argc, object self_731288, object r_73544) ; +static void __lambda_128(void *data, int argc, object self_731289) ; +static void __lambda_127(void *data, int argc, object self_731290, object r_73555) ; +static void __lambda_126(void *data, int argc, object self_731291, object r_73556) ; +static void __lambda_125(void *data, int argc, object self_731292, object sub_73228) ; +static void __lambda_124(void *data, int argc, object self_731293, object new_91toks_73229) ; +static void __lambda_123(void *data, int argc, object self_731294, object new_91toks_73229) ; +static void __lambda_122(void *data, int argc, object self_731295, object r_73554) ; +static void __lambda_121(void *data, int argc, object self_731296, object r_73552) ; +static void __lambda_120(void *data, int argc, object self_731297, object r_73553) ; +static void __lambda_119(void *data, int argc, object self_731298, object r_73551) ; +static void __lambda_118(void *data, int argc, object self_731299, object r_73549) ; +static void __lambda_117(void *data, int argc, object self_731300, object r_73550) ; +static void __lambda_116(void *data, int argc, object self_731301) ; +static void __lambda_115(void *data, int argc, object self_731302, object r_73545) ; +static void __lambda_114(void *data, int argc, object self_731303, object r_73547) ; +static void __lambda_113(void *data, int argc, object self_731304, object r_73546) ; +static void __lambda_112(void *data, int argc, object self_731305, object k_73557) ; +static void __lambda_111(void *data, int argc, object self_731306, object r_73558) ; +static void __lambda_110(void *data, int argc, object self_731307) ; +static void __lambda_109(void *data, int argc, object self_731308, object r_73528) ; +static void __lambda_108(void *data, int argc, object self_731309) ; +static void __lambda_107(void *data, int argc, object self_731310, object r_73539) ; +static void __lambda_106(void *data, int argc, object self_731311, object r_73540) ; +static void __lambda_105(void *data, int argc, object self_731312, object sub_73230) ; +static void __lambda_104(void *data, int argc, object self_731313, object new_91toks_73231) ; +static void __lambda_103(void *data, int argc, object self_731314, object new_91toks_73231) ; +static void __lambda_102(void *data, int argc, object self_731315, object r_73538) ; +static void __lambda_101(void *data, int argc, object self_731316, object r_73536) ; +static void __lambda_100(void *data, int argc, object self_731317, object r_73537) ; +static void __lambda_99(void *data, int argc, object self_731318, object r_73535) ; +static void __lambda_98(void *data, int argc, object self_731319, object r_73533) ; +static void __lambda_97(void *data, int argc, object self_731320, object r_73534) ; +static void __lambda_96(void *data, int argc, object self_731321) ; +static void __lambda_95(void *data, int argc, object self_731322, object r_73529) ; +static void __lambda_94(void *data, int argc, object self_731323, object r_73531) ; +static void __lambda_93(void *data, int argc, object self_731324, object r_73530) ; +static void __lambda_92(void *data, int argc, object self_731325, object k_73541) ; +static void __lambda_91(void *data, int argc, object self_731326, object r_73542) ; +static void __lambda_90(void *data, int argc, object self_731327) ; +static void __lambda_89(void *data, int argc, object self_731328) ; +static void __lambda_88(void *data, int argc, object self_731329, object r_73518) ; +static void __lambda_87(void *data, int argc, object self_731330, object r_73519) ; +static void __lambda_86(void *data, int argc, object self_731331, object k_73520) ; +static void __lambda_85(void *data, int argc, object self_731332, object r_73521) ; +static void __lambda_84(void *data, int argc, object self_731333, object k_73522) ; +static void __lambda_83(void *data, int argc, object self_731334, object r_73523) ; +static void __lambda_82(void *data, int argc, object self_731335, object r_73525) ; +static void __lambda_81(void *data, int argc, object self_731336, object r_73524) ; +static void __lambda_80(void *data, int argc, object self_731337) ; +static void __lambda_79(void *data, int argc, object self_731338, object r_73510) ; +static void __lambda_78(void *data, int argc, object self_731339, object r_73516) ; +static void __lambda_77(void *data, int argc, object self_731340) ; +static void __lambda_76(void *data, int argc, object self_731341, object r_73515) ; +static void __lambda_75(void *data, int argc, object self_731342, object r_73514) ; +static void __lambda_74(void *data, int argc, object self_731343, object r_73511) ; +static void __lambda_73(void *data, int argc, object self_731344, object r_73512) ; +static void __lambda_72(void *data, int argc, object self_731345, object r_73513) ; +static void __lambda_71(void *data, int argc, object self_731346) ; +static void __lambda_70(void *data, int argc, object self_731347, object r_73501) ; +static void __lambda_69(void *data, int argc, object self_731348, object last_73232) ; +static void __lambda_68(void *data, int argc, object self_731349, object r_73505) ; +static void __lambda_67(void *data, int argc, object self_731350, object r_73504) ; +static void __lambda_66(void *data, int argc, object self_731351, object r_73502) ; +static void __lambda_65(void *data, int argc, object self_731352, object k_73506) ; +static void __lambda_64(void *data, int argc, object self_731353, object r_73507) ; +static void __lambda_63(void *data, int argc, object self_731354, object r_73508) ; +static void __lambda_62(void *data, int argc, object self_731355, object r_73509) ; +static void __lambda_61(void *data, int argc, object self_731356, object k_73733) ; +static void __lambda_60(void *data, int argc, object self_731357, object r_73734) ; +static void __lambda_59(void *data, int argc, closure _,object k_73739, object fp_73240, object tok_73239, object toks_73238, object all_127_73237, object comment_127_73236, object parens_73235, object ptbl_73234, object curr_91char_73233) ; +static void __lambda_58(void *data, int argc, object self_731358, object r_73740) ; +static void __lambda_57(void *data, int argc, object self_731359) ; +static void __lambda_56(void *data, int argc, object self_731360, object r_73745) ; +static void __lambda_55(void *data, int argc, object self_731361, object r_73747) ; +static void __lambda_54(void *data, int argc, object self_731362, object r_73746) ; +static void __lambda_53(void *data, int argc, object self_731363) ; +static void __lambda_52(void *data, int argc, object self_731364, object r_73742) ; +static void __lambda_51(void *data, int argc, object self_731365, object r_73744) ; +static void __lambda_50(void *data, int argc, object self_731366, object r_73743) ; +static void __lambda_49(void *data, int argc, object self_731367) ; +static void __lambda_48(void *data, int argc, object self_731368, object r_73741) ; +static void __lambda_47(void *data, int argc, closure _,object k_73750, object msg_73243, object lnum_73242, object cnum_73241) ; +static void __lambda_46(void *data, int argc, object self_731369, object r_73752) ; +static void __lambda_45(void *data, int argc, object self_731370, object r_73753) ; +static void __lambda_44(void *data, int argc, object self_731371, object r_73751) ; +static void __lambda_43(void *data, int argc, closure _,object k_73756, object lst_73244) ; +static void __lambda_42(void *data, int argc, object self_731372, object r_73757) ; +static void __lambda_41(void *data, int argc, object self_731373, object r_73762) ; +static void __lambda_40(void *data, int argc, object self_731374, object r_73763) ; +static void __lambda_39(void *data, int argc, object self_731375, object r_73758) ; +static void __lambda_38(void *data, int argc, object self_731376) ; +static void __lambda_37(void *data, int argc, object self_731377, object r_73759) ; +static void __lambda_36(void *data, int argc, object self_731378, object r_73761) ; +static void __lambda_35(void *data, int argc, object self_731379, object r_73760) ; +static void __lambda_34(void *data, int argc, object self_731380) ; +static void __lambda_33(void *data, int argc, object self_731381) ; +static void __lambda_32(void *data, int argc, closure _,object k_73766, object lst_73245) ; +static void __lambda_31(void *data, int argc, object self_731382, object r_73771) ; +static void __lambda_30(void *data, int argc, object self_731383, object r_73767) ; +static void __lambda_29(void *data, int argc, object self_731384, object r_73770) ; +static void __lambda_28(void *data, int argc, object self_731385, object r_73768) ; +static void __lambda_27(void *data, int argc, object self_731386, object r_73769) ; +static void __lambda_26(void *data, int argc, closure _,object k_73774, object lst_73246) ; +static void __lambda_25(void *data, int argc, object self_731387, object r_73775) ; +static void __lambda_24(void *data, int argc, closure _,object k_73778, object tok_73248, object toks_73247) ; +static void __lambda_23(void *data, int argc, object self_731388, object r_73779) ; +static void __lambda_22(void *data, int argc, object self_731389, object r_73780) ; +static void __lambda_21(void *data, int argc, closure _,object k_73783, object tok_73250, object toks_73249) ; +static void __lambda_20(void *data, int argc, closure _,object k_73786, object ptbl_73252, object cnum_73251) ; +static void __lambda_19(void *data, int argc, object self_731390, object r_73787) ; +static void __lambda_18(void *data, int argc, closure _,object k_73790, object ptbl_73253) ; +static void __lambda_17(void *data, int argc, closure _,object k_73793, object ptbl_73255, object lnum_73254) ; +static void __lambda_16(void *data, int argc, object self_731391, object r_73794) ; +static void __lambda_15(void *data, int argc, closure _,object k_73797, object ptbl_73256) ; +static void __lambda_14(void *data, int argc, closure _,object k_73800, object ptbl_73258, object buf_73257) ; +static void __lambda_13(void *data, int argc, object self_731392, object r_73801) ; +static void __lambda_12(void *data, int argc, closure _,object k_73804, object ptbl_73259) ; +static void __lambda_11(void *data, int argc, closure _,object k_73807, object ptbl_73260) ; +static void __lambda_10(void *data, int argc, object self_731393, object result_73261) ; +static void __lambda_9(void *data, int argc, object self_731394, object r_73809) ; +static void __lambda_8(void *data, int argc, closure _,object k_73812, object fp_73262) ; +static void __lambda_7(void *data, int argc, object self_731395, object r_73263) ; +static void __lambda_6(void *data, int argc, object self_731396, object r_73263) ; +static void __lambda_5(void *data, int argc, object self_731397) ; +static void __lambda_4(void *data, int argc, object self_731398, object r_73817) ; +static void __lambda_3(void *data, int argc, object self_731399, object r_73814) ; +static void __lambda_2(void *data, int argc, object self_731400, object r_73816) ; +static void __lambda_1(void *data, int argc, object self_731401, object r_73815) ; +static void __lambda_0(void *data, int argc, object self_731402) ; + +static void __lambda_613(void *data, int argc, closure _,object k_73266) { + Cyc_st_add(data, "scheme/read.sld:lib-init:schemeread"); + +closureN_type c_734296; +c_734296.hdr.mark = gc_color_red; + c_734296.hdr.grayed = 0; +c_734296.tag = closureN_tag; + c_734296.fn = (function_type)__lambda_612; +c_734296.num_args = 0; +c_734296.num_elements = 1; +c_734296.elements = (object *)alloca(sizeof(object) * 1); +c_734296.elements[0] = k_73266; + +return_closcall0(data,(closure)&c_734296);; +} + +static void __lambda_612(void *data, int argc, object self_73822) { + +closureN_type c_734298; +c_734298.hdr.mark = gc_color_red; + c_734298.hdr.grayed = 0; +c_734298.tag = closureN_tag; + c_734298.fn = (function_type)__lambda_611; +c_734298.num_args = 1; +c_734298.num_elements = 1; +c_734298.elements = (object *)alloca(sizeof(object) * 1); +c_734298.elements[0] = ((closureN)self_73822)->elements[0]; + +return_closcall1(data,(closure)&c_734298, global_set(__glo_read_scheme_read, __glo_cyc_91read_scheme_read));; +} + +static void __lambda_611(void *data, int argc, object self_73823, object r_73268) { + +closureN_type c_734300; +c_734300.hdr.mark = gc_color_red; + c_734300.hdr.grayed = 0; +c_734300.tag = closureN_tag; + c_734300.fn = (function_type)__lambda_610; +c_734300.num_args = 1; +c_734300.num_elements = 1; +c_734300.elements = (object *)alloca(sizeof(object) * 1); +c_734300.elements[0] = ((closureN)self_73823)->elements[0]; + +return_closcall1(data,(closure)&c_734300, NULL);; +} + +static void __lambda_610(void *data, int argc, object self_73824, object r_73269) { + return_closcall1(data, ((closureN)self_73824)->elements[0], global_set(__glo__85in_91port_91table_85_scheme_read, r_73269));; +} + +static void __lambda_609(void *data, int argc, closure _,object k_73272, object args_73116_raw, ...) { +load_varargs(args_73116, args_73116_raw, argc - 1); + Cyc_st_add(data, "scheme/read.sld:read-all"); + +closureN_type c_734233; +c_734233.hdr.mark = gc_color_red; + c_734233.hdr.grayed = 0; +c_734233.tag = closureN_tag; + c_734233.fn = (function_type)__lambda_608; +c_734233.num_args = 0; +c_734233.num_elements = 2; +c_734233.elements = (object *)alloca(sizeof(object) * 2); +c_734233.elements[0] = args_73116; +c_734233.elements[1] = k_73272; + +return_closcall0(data,(closure)&c_734233);; +} + +static void __lambda_608(void *data, int argc, object self_73825) { + +closureN_type c_734235; +c_734235.hdr.mark = gc_color_red; + c_734235.hdr.grayed = 0; +c_734235.tag = closureN_tag; + c_734235.fn = (function_type)__lambda_597; +c_734235.num_args = 0; +c_734235.num_elements = 1; +c_734235.elements = (object *)alloca(sizeof(object) * 1); +c_734235.elements[0] = ((closureN)self_73825)->elements[0]; + + +closureN_type c_734248; +c_734248.hdr.mark = gc_color_red; + c_734248.hdr.grayed = 0; +c_734248.tag = closureN_tag; + c_734248.fn = (function_type)__lambda_607; +c_734248.num_args = 1; +c_734248.num_elements = 1; +c_734248.elements = (object *)alloca(sizeof(object) * 1); +c_734248.elements[0] = ((closureN)self_73825)->elements[1]; + +return_closcall1(data,(closure)&c_734235, &c_734248);; +} + +static void __lambda_607(void *data, int argc, object self_73826, object fp_73118) { + +closureN_type c_734250; +c_734250.hdr.mark = gc_color_red; + c_734250.hdr.grayed = 0; +c_734250.tag = closureN_tag; + c_734250.fn = (function_type)__lambda_606; +c_734250.num_args = 1; +c_734250.num_elements = 2; +c_734250.elements = (object *)alloca(sizeof(object) * 2); +c_734250.elements[0] = fp_73118; +c_734250.elements[1] = ((closureN)self_73826)->elements[0]; + +return_closcall1(data,(closure)&c_734250, boolean_f);; +} + +static void __lambda_606(void *data, int argc, object self_73827, object loop_73119) { + +closureN_type c_734252; +c_734252.hdr.mark = gc_color_red; + c_734252.hdr.grayed = 0; +c_734252.tag = closureN_tag; + c_734252.fn = (function_type)__lambda_605; +c_734252.num_args = 1; +c_734252.num_elements = 2; +c_734252.elements = (object *)alloca(sizeof(object) * 2); +c_734252.elements[0] = ((closureN)self_73827)->elements[0]; +c_734252.elements[1] = ((closureN)self_73827)->elements[1]; + + +make_cell(c_734293,loop_73119); +return_closcall1(data,(closure)&c_734252, &c_734293);; +} + +static void __lambda_605(void *data, int argc, object self_73828, object loop_73119) { + +closureN_type c_734254; +c_734254.hdr.mark = gc_color_red; + c_734254.hdr.grayed = 0; +c_734254.tag = closureN_tag; + c_734254.fn = (function_type)__lambda_600; +c_734254.num_args = 1; +c_734254.num_elements = 3; +c_734254.elements = (object *)alloca(sizeof(object) * 3); +c_734254.elements[0] = ((closureN)self_73828)->elements[0]; +c_734254.elements[1] = ((closureN)self_73828)->elements[1]; +c_734254.elements[2] = loop_73119; + + +closureN_type c_734268; +c_734268.hdr.mark = gc_color_red; + c_734268.hdr.grayed = 0; +c_734268.tag = closureN_tag; + c_734268.fn = (function_type)__lambda_604; +c_734268.num_args = 2; +c_734268.num_elements = 1; +c_734268.elements = (object *)alloca(sizeof(object) * 1); +c_734268.elements[0] = loop_73119; + +return_closcall1(data,(closure)&c_734254, &c_734268);; +} + +static void __lambda_604(void *data, int argc, object self_73829, object k_73277, object fp_73121, object result_73120) { + +closureN_type c_734270; +c_734270.hdr.mark = gc_color_red; + c_734270.hdr.grayed = 0; +c_734270.tag = closureN_tag; + c_734270.fn = (function_type)__lambda_603; +c_734270.num_args = 1; +c_734270.num_elements = 4; +c_734270.elements = (object *)alloca(sizeof(object) * 4); +c_734270.elements[0] = fp_73121; +c_734270.elements[1] = k_73277; +c_734270.elements[2] = ((closureN)self_73829)->elements[0]; +c_734270.elements[3] = result_73120; + +return_closcall2(data, __glo_cyc_91read_scheme_read, &c_734270, fp_73121);; +} + +static void __lambda_603(void *data, int argc, object self_73830, object obj_73122) { + +closureN_type c_734272; +c_734272.hdr.mark = gc_color_red; + c_734272.hdr.grayed = 0; +c_734272.tag = closureN_tag; + c_734272.fn = (function_type)__lambda_602; +c_734272.num_args = 1; +c_734272.num_elements = 5; +c_734272.elements = (object *)alloca(sizeof(object) * 5); +c_734272.elements[0] = ((closureN)self_73830)->elements[0]; +c_734272.elements[1] = ((closureN)self_73830)->elements[1]; +c_734272.elements[2] = ((closureN)self_73830)->elements[2]; +c_734272.elements[3] = obj_73122; +c_734272.elements[4] = ((closureN)self_73830)->elements[3]; + +return_closcall1(data,(closure)&c_734272, Cyc_is_eof_object(obj_73122));; +} + +static void __lambda_602(void *data, int argc, object self_73831, object r_73279) { + if( (boolean_f != r_73279) ){ + return_closcall2(data, __glo_reverse_scheme_base, ((closureN)self_73831)->elements[1], ((closureN)self_73831)->elements[4]); +} else { + +closureN_type c_734277; +c_734277.hdr.mark = gc_color_red; + c_734277.hdr.grayed = 0; +c_734277.tag = closureN_tag; + c_734277.fn = (function_type)__lambda_601; +c_734277.num_args = 1; +c_734277.num_elements = 3; +c_734277.elements = (object *)alloca(sizeof(object) * 3); +c_734277.elements[0] = ((closureN)self_73831)->elements[0]; +c_734277.elements[1] = ((closureN)self_73831)->elements[1]; +c_734277.elements[2] = ((closureN)self_73831)->elements[2]; + + +make_pair(c_734286,((closureN)self_73831)->elements[3], ((closureN)self_73831)->elements[4]); +return_closcall1(data,(closure)&c_734277, &c_734286);} +; +} + +static void __lambda_601(void *data, int argc, object self_73832, object r_73280) { + return_closcall3(data, cell_get(((closureN)self_73832)->elements[2]), ((closureN)self_73832)->elements[1], ((closureN)self_73832)->elements[0], r_73280);; +} + +static void __lambda_600(void *data, int argc, object self_73833, object r_73276) { + +closureN_type c_734256; +c_734256.hdr.mark = gc_color_red; + c_734256.hdr.grayed = 0; +c_734256.tag = closureN_tag; + c_734256.fn = (function_type)__lambda_599; +c_734256.num_args = 1; +c_734256.num_elements = 3; +c_734256.elements = (object *)alloca(sizeof(object) * 3); +c_734256.elements[0] = ((closureN)self_73833)->elements[0]; +c_734256.elements[1] = ((closureN)self_73833)->elements[1]; +c_734256.elements[2] = ((closureN)self_73833)->elements[2]; + +return_closcall1(data,(closure)&c_734256, Cyc_set_car(data, ((closureN)self_73833)->elements[2], r_73276));; +} + +static void __lambda_599(void *data, int argc, object self_73834, object r_73274) { + +closureN_type c_734258; +c_734258.hdr.mark = gc_color_red; + c_734258.hdr.grayed = 0; +c_734258.tag = closureN_tag; + c_734258.fn = (function_type)__lambda_598; +c_734258.num_args = 1; +c_734258.num_elements = 3; +c_734258.elements = (object *)alloca(sizeof(object) * 3); +c_734258.elements[0] = ((closureN)self_73834)->elements[0]; +c_734258.elements[1] = ((closureN)self_73834)->elements[1]; +c_734258.elements[2] = ((closureN)self_73834)->elements[2]; + +return_closcall1(data,(closure)&c_734258, NULL);; +} + +static void __lambda_598(void *data, int argc, object self_73835, object r_73275) { + return_closcall3(data, cell_get(((closureN)self_73835)->elements[2]), ((closureN)self_73835)->elements[1], ((closureN)self_73835)->elements[0], r_73275);; +} + +static void __lambda_597(void *data, int argc, object self_73836, object k_73281) { + +closureN_type c_734237; +c_734237.hdr.mark = gc_color_red; + c_734237.hdr.grayed = 0; +c_734237.tag = closureN_tag; + c_734237.fn = (function_type)__lambda_596; +c_734237.num_args = 1; +c_734237.num_elements = 2; +c_734237.elements = (object *)alloca(sizeof(object) * 2); +c_734237.elements[0] = ((closureN)self_73836)->elements[0]; +c_734237.elements[1] = k_73281; + +return_closcall1(data,(closure)&c_734237, Cyc_is_null(((closureN)self_73836)->elements[0]));; +} + +static void __lambda_596(void *data, int argc, object self_73837, object r_73282) { + if( (boolean_f != r_73282) ){ + return_closcall1(data, __glo_current_91input_91port_scheme_base, ((closureN)self_73837)->elements[1]); +} else { + return_closcall1(data, ((closureN)self_73837)->elements[1], car(((closureN)self_73837)->elements[0]));} +; +} + +static void __lambda_595(void *data, int argc, closure _,object k_73285, object args_73123_raw, ...) { +load_varargs(args_73123, args_73123_raw, argc - 1); + Cyc_st_add(data, "scheme/read.sld:cyc-read"); + +closureN_type c_734205; +c_734205.hdr.mark = gc_color_red; + c_734205.hdr.grayed = 0; +c_734205.tag = closureN_tag; + c_734205.fn = (function_type)__lambda_590; +c_734205.num_args = 0; +c_734205.num_elements = 1; +c_734205.elements = (object *)alloca(sizeof(object) * 1); +c_734205.elements[0] = args_73123; + + +closureN_type c_734218; +c_734218.hdr.mark = gc_color_red; + c_734218.hdr.grayed = 0; +c_734218.tag = closureN_tag; + c_734218.fn = (function_type)__lambda_594; +c_734218.num_args = 1; +c_734218.num_elements = 1; +c_734218.elements = (object *)alloca(sizeof(object) * 1); +c_734218.elements[0] = k_73285; + +return_closcall1(data,(closure)&c_734205, &c_734218);; +} + +static void __lambda_594(void *data, int argc, object self_73838, object fp_73124) { + +closureN_type c_734220; +c_734220.hdr.mark = gc_color_red; + c_734220.hdr.grayed = 0; +c_734220.tag = closureN_tag; + c_734220.fn = (function_type)__lambda_593; +c_734220.num_args = 1; +c_734220.num_elements = 2; +c_734220.elements = (object *)alloca(sizeof(object) * 2); +c_734220.elements[0] = fp_73124; +c_734220.elements[1] = ((closureN)self_73838)->elements[0]; + +return_closcall1(data,(closure)&c_734220, NULL);; +} + +static void __lambda_593(void *data, int argc, object self_73839, object r_73287) { + +closureN_type c_734222; +c_734222.hdr.mark = gc_color_red; + c_734222.hdr.grayed = 0; +c_734222.tag = closureN_tag; + c_734222.fn = (function_type)__lambda_592; +c_734222.num_args = 1; +c_734222.num_elements = 3; +c_734222.elements = (object *)alloca(sizeof(object) * 3); +c_734222.elements[0] = ((closureN)self_73839)->elements[0]; +c_734222.elements[1] = ((closureN)self_73839)->elements[1]; +c_734222.elements[2] = r_73287; + +return_closcall1(data,(closure)&c_734222, NULL);; +} + +static void __lambda_592(void *data, int argc, object self_73840, object r_73288) { + +closureN_type c_734224; +c_734224.hdr.mark = gc_color_red; + c_734224.hdr.grayed = 0; +c_734224.tag = closureN_tag; + c_734224.fn = (function_type)__lambda_591; +c_734224.num_args = 1; +c_734224.num_elements = 4; +c_734224.elements = (object *)alloca(sizeof(object) * 4); +c_734224.elements[0] = ((closureN)self_73840)->elements[0]; +c_734224.elements[1] = ((closureN)self_73840)->elements[1]; +c_734224.elements[2] = ((closureN)self_73840)->elements[2]; +c_734224.elements[3] = r_73288; + +return_closcall2(data, __glo_reg_91port_scheme_read, &c_734224, ((closureN)self_73840)->elements[0]);; +} + +static void __lambda_591(void *data, int argc, object self_73841, object r_73289) { + return_closcall8(data, __glo_parse_scheme_read, ((closureN)self_73841)->elements[1], ((closureN)self_73841)->elements[0], ((closureN)self_73841)->elements[2], ((closureN)self_73841)->elements[3], boolean_f, boolean_f, obj_int2obj(0), r_73289);; +} + +static void __lambda_590(void *data, int argc, object self_73842, object k_73290) { + +closureN_type c_734207; +c_734207.hdr.mark = gc_color_red; + c_734207.hdr.grayed = 0; +c_734207.tag = closureN_tag; + c_734207.fn = (function_type)__lambda_589; +c_734207.num_args = 1; +c_734207.num_elements = 2; +c_734207.elements = (object *)alloca(sizeof(object) * 2); +c_734207.elements[0] = ((closureN)self_73842)->elements[0]; +c_734207.elements[1] = k_73290; + +return_closcall1(data,(closure)&c_734207, Cyc_is_null(((closureN)self_73842)->elements[0]));; +} + +static void __lambda_589(void *data, int argc, object self_73843, object r_73291) { + if( (boolean_f != r_73291) ){ + return_closcall1(data, __glo_current_91input_91port_scheme_base, ((closureN)self_73843)->elements[1]); +} else { + return_closcall1(data, ((closureN)self_73843)->elements[1], car(((closureN)self_73843)->elements[0]));} +; +} + +static void __lambda_588(void *data, int argc, closure _,object k_73294, object c_73125) { + Cyc_st_add(data, "scheme/read.sld:hex-digit?"); + +closureN_type c_734183; +c_734183.hdr.mark = gc_color_red; + c_734183.hdr.grayed = 0; +c_734183.tag = closureN_tag; + c_734183.fn = (function_type)__lambda_585; +c_734183.num_args = 0; +c_734183.num_elements = 1; +c_734183.elements = (object *)alloca(sizeof(object) * 1); +c_734183.elements[0] = c_73125; + + +closureN_type c_734192; +c_734192.hdr.mark = gc_color_red; + c_734192.hdr.grayed = 0; +c_734192.tag = closureN_tag; + c_734192.fn = (function_type)__lambda_587; +c_734192.num_args = 1; +c_734192.num_elements = 2; +c_734192.elements = (object *)alloca(sizeof(object) * 2); +c_734192.elements[0] = c_73125; +c_734192.elements[1] = k_73294; + +return_closcall1(data,(closure)&c_734183, &c_734192);; +} + +static void __lambda_587(void *data, int argc, object self_73844, object tmp_73126) { + if( (boolean_f != tmp_73126) ){ + return_closcall1(data, ((closureN)self_73844)->elements[1], tmp_73126); +} else { + +closureN_type c_734196; +c_734196.hdr.mark = gc_color_red; + c_734196.hdr.grayed = 0; +c_734196.tag = closureN_tag; + c_734196.fn = (function_type)__lambda_586; +c_734196.num_args = 1; +c_734196.num_elements = 2; +c_734196.elements = (object *)alloca(sizeof(object) * 2); +c_734196.elements[0] = ((closureN)self_73844)->elements[0]; +c_734196.elements[1] = ((closureN)self_73844)->elements[1]; + +return_closcall3(data, __glo_char_125_123_127_scheme_base, &c_734196, ((closureN)self_73844)->elements[0], obj_char2obj(65));} +; +} + +static void __lambda_586(void *data, int argc, object self_73845, object r_73296) { + if( (boolean_f != r_73296) ){ + return_closcall3(data, __glo_char_121_123_127_scheme_base, ((closureN)self_73845)->elements[1], ((closureN)self_73845)->elements[0], obj_char2obj(70)); +} else { + return_closcall1(data, ((closureN)self_73845)->elements[1], boolean_f);} +; +} + +static void __lambda_585(void *data, int argc, object self_73846, object k_73297) { + +closureN_type c_734185; +c_734185.hdr.mark = gc_color_red; + c_734185.hdr.grayed = 0; +c_734185.tag = closureN_tag; + c_734185.fn = (function_type)__lambda_584; +c_734185.num_args = 1; +c_734185.num_elements = 2; +c_734185.elements = (object *)alloca(sizeof(object) * 2); +c_734185.elements[0] = ((closureN)self_73846)->elements[0]; +c_734185.elements[1] = k_73297; + +return_closcall3(data, __glo_char_125_123_127_scheme_base, &c_734185, ((closureN)self_73846)->elements[0], obj_char2obj(97));; +} + +static void __lambda_584(void *data, int argc, object self_73847, object r_73298) { + if( (boolean_f != r_73298) ){ + return_closcall3(data, __glo_char_121_123_127_scheme_base, ((closureN)self_73847)->elements[1], ((closureN)self_73847)->elements[0], obj_char2obj(102)); +} else { + return_closcall1(data, ((closureN)self_73847)->elements[1], boolean_f);} +; +} + +static void __lambda_583(void *data, int argc, closure _,object k_73301, object base_73130, object fp_73129, object tok_73128, object ptbl_73127) { + Cyc_st_add(data, "scheme/read.sld:parse-number-rec"); + +closureN_type c_734060; +c_734060.hdr.mark = gc_color_red; + c_734060.hdr.grayed = 0; +c_734060.tag = closureN_tag; + c_734060.fn = (function_type)__lambda_582; +c_734060.num_args = 1; +c_734060.num_elements = 5; +c_734060.elements = (object *)alloca(sizeof(object) * 5); +c_734060.elements[0] = base_73130; +c_734060.elements[1] = fp_73129; +c_734060.elements[2] = k_73301; +c_734060.elements[3] = ptbl_73127; +c_734060.elements[4] = tok_73128; + +return_closcall3(data, __glo_get_91next_91char_scheme_read, &c_734060, fp_73129, ptbl_73127);; +} + +static void __lambda_582(void *data, int argc, object self_73848, object r_73302) { + +closureN_type c_734062; +c_734062.hdr.mark = gc_color_red; + c_734062.hdr.grayed = 0; +c_734062.tag = closureN_tag; + c_734062.fn = (function_type)__lambda_579; +c_734062.num_args = 1; +c_734062.num_elements = 5; +c_734062.elements = (object *)alloca(sizeof(object) * 5); +c_734062.elements[0] = ((closureN)self_73848)->elements[0]; +c_734062.elements[1] = ((closureN)self_73848)->elements[2]; +c_734062.elements[2] = ((closureN)self_73848)->elements[3]; +c_734062.elements[3] = r_73302; +c_734062.elements[4] = ((closureN)self_73848)->elements[4]; + + +closureN_type c_734169; +c_734169.hdr.mark = gc_color_red; + c_734169.hdr.grayed = 0; +c_734169.tag = closureN_tag; + c_734169.fn = (function_type)__lambda_581; +c_734169.num_args = 1; +c_734169.num_elements = 4; +c_734169.elements = (object *)alloca(sizeof(object) * 4); +c_734169.elements[0] = ((closureN)self_73848)->elements[0]; +c_734169.elements[1] = ((closureN)self_73848)->elements[1]; +c_734169.elements[2] = ((closureN)self_73848)->elements[3]; +c_734169.elements[3] = ((closureN)self_73848)->elements[4]; + +return_closcall1(data,(closure)&c_734062, &c_734169);; +} + +static void __lambda_581(void *data, int argc, object self_73849, object k_73321, object c_73131) { + +closureN_type c_734171; +c_734171.hdr.mark = gc_color_red; + c_734171.hdr.grayed = 0; +c_734171.tag = closureN_tag; + c_734171.fn = (function_type)__lambda_580; +c_734171.num_args = 1; +c_734171.num_elements = 4; +c_734171.elements = (object *)alloca(sizeof(object) * 4); +c_734171.elements[0] = ((closureN)self_73849)->elements[0]; +c_734171.elements[1] = ((closureN)self_73849)->elements[1]; +c_734171.elements[2] = k_73321; +c_734171.elements[3] = ((closureN)self_73849)->elements[2]; + + +make_pair(c_734179,c_73131, ((closureN)self_73849)->elements[3]); +return_closcall1(data,(closure)&c_734171, &c_734179);; +} + +static void __lambda_580(void *data, int argc, object self_73850, object r_73322) { + return_closcall5(data, __glo_parse_91number_91rec_scheme_read, ((closureN)self_73850)->elements[2], ((closureN)self_73850)->elements[0], ((closureN)self_73850)->elements[1], r_73322, ((closureN)self_73850)->elements[3]);; +} + +static void __lambda_579(void *data, int argc, object self_73851, object r_73303) { + +closureN_type c_734064; +c_734064.hdr.mark = gc_color_red; + c_734064.hdr.grayed = 0; +c_734064.tag = closureN_tag; + c_734064.fn = (function_type)__lambda_578; +c_734064.num_args = 2; +c_734064.num_elements = 4; +c_734064.elements = (object *)alloca(sizeof(object) * 4); +c_734064.elements[0] = ((closureN)self_73851)->elements[0]; +c_734064.elements[1] = ((closureN)self_73851)->elements[1]; +c_734064.elements[2] = ((closureN)self_73851)->elements[2]; +c_734064.elements[3] = ((closureN)self_73851)->elements[4]; + +return_closcall2(data,(closure)&c_734064, ((closureN)self_73851)->elements[3], r_73303);; +} + +static void __lambda_578(void *data, int argc, object self_73852, object c_73133, object next_73132) { + +closureN_type c_734066; +c_734066.hdr.mark = gc_color_red; + c_734066.hdr.grayed = 0; +c_734066.tag = closureN_tag; + c_734066.fn = (function_type)__lambda_577; +c_734066.num_args = 1; +c_734066.num_elements = 6; +c_734066.elements = (object *)alloca(sizeof(object) * 6); +c_734066.elements[0] = ((closureN)self_73852)->elements[0]; +c_734066.elements[1] = c_73133; +c_734066.elements[2] = ((closureN)self_73852)->elements[1]; +c_734066.elements[3] = next_73132; +c_734066.elements[4] = ((closureN)self_73852)->elements[2]; +c_734066.elements[5] = ((closureN)self_73852)->elements[3]; + +return_closcall2(data, __glo_sign_127_scheme_read, &c_734066, c_73133);; +} + +static void __lambda_577(void *data, int argc, object self_73853, object r_73304) { + if( (boolean_f != r_73304) ){ + +closureN_type c_734068; +c_734068.hdr.mark = gc_color_red; + c_734068.hdr.grayed = 0; +c_734068.tag = closureN_tag; + c_734068.fn = (function_type)__lambda_556; +c_734068.num_args = 0; +c_734068.num_elements = 3; +c_734068.elements = (object *)alloca(sizeof(object) * 3); +c_734068.elements[0] = ((closureN)self_73853)->elements[1]; +c_734068.elements[1] = ((closureN)self_73853)->elements[2]; +c_734068.elements[2] = ((closureN)self_73853)->elements[3]; + +return_closcall0(data,(closure)&c_734068); +} else { + +closureN_type c_734074; +c_734074.hdr.mark = gc_color_red; + c_734074.hdr.grayed = 0; +c_734074.tag = closureN_tag; + c_734074.fn = (function_type)__lambda_576; +c_734074.num_args = 1; +c_734074.num_elements = 6; +c_734074.elements = (object *)alloca(sizeof(object) * 6); +c_734074.elements[0] = ((closureN)self_73853)->elements[0]; +c_734074.elements[1] = ((closureN)self_73853)->elements[1]; +c_734074.elements[2] = ((closureN)self_73853)->elements[2]; +c_734074.elements[3] = ((closureN)self_73853)->elements[3]; +c_734074.elements[4] = ((closureN)self_73853)->elements[4]; +c_734074.elements[5] = ((closureN)self_73853)->elements[5]; + +return_closcall1(data,(closure)&c_734074, Cyc_eq(obj_char2obj(46), ((closureN)self_73853)->elements[1]));} +; +} + +static void __lambda_576(void *data, int argc, object self_73854, object r_73305) { + if( (boolean_f != r_73305) ){ + +closureN_type c_734076; +c_734076.hdr.mark = gc_color_red; + c_734076.hdr.grayed = 0; +c_734076.tag = closureN_tag; + c_734076.fn = (function_type)__lambda_557; +c_734076.num_args = 0; +c_734076.num_elements = 3; +c_734076.elements = (object *)alloca(sizeof(object) * 3); +c_734076.elements[0] = ((closureN)self_73854)->elements[1]; +c_734076.elements[1] = ((closureN)self_73854)->elements[2]; +c_734076.elements[2] = ((closureN)self_73854)->elements[3]; + +return_closcall0(data,(closure)&c_734076); +} else { + +closureN_type c_734082; +c_734082.hdr.mark = gc_color_red; + c_734082.hdr.grayed = 0; +c_734082.tag = closureN_tag; + c_734082.fn = (function_type)__lambda_575; +c_734082.num_args = 1; +c_734082.num_elements = 6; +c_734082.elements = (object *)alloca(sizeof(object) * 6); +c_734082.elements[0] = ((closureN)self_73854)->elements[0]; +c_734082.elements[1] = ((closureN)self_73854)->elements[1]; +c_734082.elements[2] = ((closureN)self_73854)->elements[2]; +c_734082.elements[3] = ((closureN)self_73854)->elements[3]; +c_734082.elements[4] = ((closureN)self_73854)->elements[4]; +c_734082.elements[5] = ((closureN)self_73854)->elements[5]; + +return_closcall2(data, __glo_char_91numeric_127_scheme__char, &c_734082, ((closureN)self_73854)->elements[1]);} +; +} + +static void __lambda_575(void *data, int argc, object self_73855, object r_73306) { + if( (boolean_f != r_73306) ){ + +closureN_type c_734084; +c_734084.hdr.mark = gc_color_red; + c_734084.hdr.grayed = 0; +c_734084.tag = closureN_tag; + c_734084.fn = (function_type)__lambda_568; +c_734084.num_args = 0; +c_734084.num_elements = 5; +c_734084.elements = (object *)alloca(sizeof(object) * 5); +c_734084.elements[0] = ((closureN)self_73855)->elements[0]; +c_734084.elements[1] = ((closureN)self_73855)->elements[1]; +c_734084.elements[2] = ((closureN)self_73855)->elements[2]; +c_734084.elements[3] = ((closureN)self_73855)->elements[3]; +c_734084.elements[4] = ((closureN)self_73855)->elements[4]; + +return_closcall0(data,(closure)&c_734084); +} else { + +closureN_type c_734136; +c_734136.hdr.mark = gc_color_red; + c_734136.hdr.grayed = 0; +c_734136.tag = closureN_tag; + c_734136.fn = (function_type)__lambda_570; +c_734136.num_args = 0; +c_734136.num_elements = 2; +c_734136.elements = (object *)alloca(sizeof(object) * 2); +c_734136.elements[0] = ((closureN)self_73855)->elements[0]; +c_734136.elements[1] = ((closureN)self_73855)->elements[1]; + + +closureN_type c_734148; +c_734148.hdr.mark = gc_color_red; + c_734148.hdr.grayed = 0; +c_734148.tag = closureN_tag; + c_734148.fn = (function_type)__lambda_574; +c_734148.num_args = 1; +c_734148.num_elements = 5; +c_734148.elements = (object *)alloca(sizeof(object) * 5); +c_734148.elements[0] = ((closureN)self_73855)->elements[1]; +c_734148.elements[1] = ((closureN)self_73855)->elements[2]; +c_734148.elements[2] = ((closureN)self_73855)->elements[3]; +c_734148.elements[3] = ((closureN)self_73855)->elements[4]; +c_734148.elements[4] = ((closureN)self_73855)->elements[5]; + +return_closcall1(data,(closure)&c_734136, &c_734148);} +; +} + +static void __lambda_574(void *data, int argc, object self_73856, object r_73317) { + if( (boolean_f != r_73317) ){ + +closureN_type c_734150; +c_734150.hdr.mark = gc_color_red; + c_734150.hdr.grayed = 0; +c_734150.tag = closureN_tag; + c_734150.fn = (function_type)__lambda_571; +c_734150.num_args = 0; +c_734150.num_elements = 3; +c_734150.elements = (object *)alloca(sizeof(object) * 3); +c_734150.elements[0] = ((closureN)self_73856)->elements[0]; +c_734150.elements[1] = ((closureN)self_73856)->elements[1]; +c_734150.elements[2] = ((closureN)self_73856)->elements[2]; + +return_closcall0(data,(closure)&c_734150); +} else { + +closureN_type c_734156; +c_734156.hdr.mark = gc_color_red; + c_734156.hdr.grayed = 0; +c_734156.tag = closureN_tag; + c_734156.fn = (function_type)__lambda_573; +c_734156.num_args = 0; +c_734156.num_elements = 4; +c_734156.elements = (object *)alloca(sizeof(object) * 4); +c_734156.elements[0] = ((closureN)self_73856)->elements[0]; +c_734156.elements[1] = ((closureN)self_73856)->elements[1]; +c_734156.elements[2] = ((closureN)self_73856)->elements[3]; +c_734156.elements[3] = ((closureN)self_73856)->elements[4]; + +return_closcall0(data,(closure)&c_734156);} +; +} + +static void __lambda_573(void *data, int argc, object self_73857) { + +closureN_type c_734158; +c_734158.hdr.mark = gc_color_red; + c_734158.hdr.grayed = 0; +c_734158.tag = closureN_tag; + c_734158.fn = (function_type)__lambda_572; +c_734158.num_args = 1; +c_734158.num_elements = 2; +c_734158.elements = (object *)alloca(sizeof(object) * 2); +c_734158.elements[0] = ((closureN)self_73857)->elements[1]; +c_734158.elements[1] = ((closureN)self_73857)->elements[3]; + +return_closcall3(data, __glo_in_91port_117set_91buf_67_scheme_read, &c_734158, ((closureN)self_73857)->elements[2], ((closureN)self_73857)->elements[0]);; +} + +static void __lambda_572(void *data, int argc, object self_73858, object r_73318) { + return_closcall2(data, __glo_reverse_scheme_base, ((closureN)self_73858)->elements[0], ((closureN)self_73858)->elements[1]);; +} + +static void __lambda_571(void *data, int argc, object self_73859) { + return_closcall2(data, ((closureN)self_73859)->elements[2], ((closureN)self_73859)->elements[1], ((closureN)self_73859)->elements[0]);; +} + +static void __lambda_570(void *data, int argc, object self_73860, object k_73319) { + +closureN_type c_734138; +c_734138.hdr.mark = gc_color_red; + c_734138.hdr.grayed = 0; +c_734138.tag = closureN_tag; + c_734138.fn = (function_type)__lambda_569; +c_734138.num_args = 1; +c_734138.num_elements = 2; +c_734138.elements = (object *)alloca(sizeof(object) * 2); +c_734138.elements[0] = ((closureN)self_73860)->elements[1]; +c_734138.elements[1] = k_73319; + + +object c_734146 = Cyc_num_eq(data,(closure)&c_734138,2,((closureN)self_73860)->elements[0], obj_int2obj(16)); +return_closcall1(data,(closure)&c_734138, c_734146);; +} + +static void __lambda_569(void *data, int argc, object self_73861, object r_73320) { + if( (boolean_f != r_73320) ){ + return_closcall2(data, __glo_hex_91digit_127_scheme_read, ((closureN)self_73861)->elements[1], ((closureN)self_73861)->elements[0]); +} else { + return_closcall1(data, ((closureN)self_73861)->elements[1], boolean_f);} +; +} + +static void __lambda_568(void *data, int argc, object self_73862) { + +closureN_type c_734086; +c_734086.hdr.mark = gc_color_red; + c_734086.hdr.grayed = 0; +c_734086.tag = closureN_tag; + c_734086.fn = (function_type)__lambda_566; +c_734086.num_args = 0; +c_734086.num_elements = 3; +c_734086.elements = (object *)alloca(sizeof(object) * 3); +c_734086.elements[0] = ((closureN)self_73862)->elements[0]; +c_734086.elements[1] = ((closureN)self_73862)->elements[1]; +c_734086.elements[2] = ((closureN)self_73862)->elements[4]; + + +closureN_type c_734130; +c_734130.hdr.mark = gc_color_red; + c_734130.hdr.grayed = 0; +c_734130.tag = closureN_tag; + c_734130.fn = (function_type)__lambda_567; +c_734130.num_args = 1; +c_734130.num_elements = 3; +c_734130.elements = (object *)alloca(sizeof(object) * 3); +c_734130.elements[0] = ((closureN)self_73862)->elements[1]; +c_734130.elements[1] = ((closureN)self_73862)->elements[2]; +c_734130.elements[2] = ((closureN)self_73862)->elements[3]; + +return_closcall1(data,(closure)&c_734086, &c_734130);; +} + +static void __lambda_567(void *data, int argc, object self_73863, object r_73307) { + return_closcall2(data, ((closureN)self_73863)->elements[2], ((closureN)self_73863)->elements[1], ((closureN)self_73863)->elements[0]);; +} + +static void __lambda_566(void *data, int argc, object self_73864, object k_73308) { + +closureN_type c_734088; +c_734088.hdr.mark = gc_color_red; + c_734088.hdr.grayed = 0; +c_734088.tag = closureN_tag; + c_734088.fn = (function_type)__lambda_559; +c_734088.num_args = 0; +c_734088.num_elements = 2; +c_734088.elements = (object *)alloca(sizeof(object) * 2); +c_734088.elements[0] = ((closureN)self_73864)->elements[0]; +c_734088.elements[1] = ((closureN)self_73864)->elements[1]; + + +closureN_type c_734100; +c_734100.hdr.mark = gc_color_red; + c_734100.hdr.grayed = 0; +c_734100.tag = closureN_tag; + c_734100.fn = (function_type)__lambda_565; +c_734100.num_args = 1; +c_734100.num_elements = 4; +c_734100.elements = (object *)alloca(sizeof(object) * 4); +c_734100.elements[0] = ((closureN)self_73864)->elements[0]; +c_734100.elements[1] = ((closureN)self_73864)->elements[1]; +c_734100.elements[2] = k_73308; +c_734100.elements[3] = ((closureN)self_73864)->elements[2]; + +return_closcall1(data,(closure)&c_734088, &c_734100);; +} + +static void __lambda_565(void *data, int argc, object self_73865, object tmp_73134) { + +closureN_type c_734102; +c_734102.hdr.mark = gc_color_red; + c_734102.hdr.grayed = 0; +c_734102.tag = closureN_tag; + c_734102.fn = (function_type)__lambda_561; +c_734102.num_args = 0; +c_734102.num_elements = 3; +c_734102.elements = (object *)alloca(sizeof(object) * 3); +c_734102.elements[0] = ((closureN)self_73865)->elements[0]; +c_734102.elements[1] = ((closureN)self_73865)->elements[1]; +c_734102.elements[2] = tmp_73134; + + +closureN_type c_734117; +c_734117.hdr.mark = gc_color_red; + c_734117.hdr.grayed = 0; +c_734117.tag = closureN_tag; + c_734117.fn = (function_type)__lambda_564; +c_734117.num_args = 1; +c_734117.num_elements = 2; +c_734117.elements = (object *)alloca(sizeof(object) * 2); +c_734117.elements[0] = ((closureN)self_73865)->elements[2]; +c_734117.elements[1] = ((closureN)self_73865)->elements[3]; + +return_closcall1(data,(closure)&c_734102, &c_734117);; +} + +static void __lambda_564(void *data, int argc, object self_73866, object r_73309) { + if( (boolean_f != r_73309) ){ + +closureN_type c_734119; +c_734119.hdr.mark = gc_color_red; + c_734119.hdr.grayed = 0; +c_734119.tag = closureN_tag; + c_734119.fn = (function_type)__lambda_563; +c_734119.num_args = 1; +c_734119.num_elements = 2; +c_734119.elements = (object *)alloca(sizeof(object) * 2); +c_734119.elements[0] = ((closureN)self_73866)->elements[0]; +c_734119.elements[1] = ((closureN)self_73866)->elements[1]; + +return_closcall2(data, __glo_in_91port_117get_91lnum_scheme_read, &c_734119, ((closureN)self_73866)->elements[1]); +} else { + return_closcall1(data, ((closureN)self_73866)->elements[0], boolean_f);} +; +} + +static void __lambda_563(void *data, int argc, object self_73867, object r_73310) { + +closureN_type c_734121; +c_734121.hdr.mark = gc_color_red; + c_734121.hdr.grayed = 0; +c_734121.tag = closureN_tag; + c_734121.fn = (function_type)__lambda_562; +c_734121.num_args = 1; +c_734121.num_elements = 2; +c_734121.elements = (object *)alloca(sizeof(object) * 2); +c_734121.elements[0] = ((closureN)self_73867)->elements[0]; +c_734121.elements[1] = r_73310; + +return_closcall2(data, __glo_in_91port_117get_91cnum_scheme_read, &c_734121, ((closureN)self_73867)->elements[1]);; +} + +static void __lambda_562(void *data, int argc, object self_73868, object r_73311) { + +make_string(c_734124, "Illegal digit"); +return_closcall4(data, __glo_parse_91error_scheme_read, ((closureN)self_73868)->elements[0], &c_734124, ((closureN)self_73868)->elements[1], r_73311);; +} + +static void __lambda_561(void *data, int argc, object self_73869, object k_73313) { + if( (boolean_f != ((closureN)self_73869)->elements[2]) ){ + return_closcall1(data, k_73313, ((closureN)self_73869)->elements[2]); +} else { + +closureN_type c_734107; +c_734107.hdr.mark = gc_color_red; + c_734107.hdr.grayed = 0; +c_734107.tag = closureN_tag; + c_734107.fn = (function_type)__lambda_560; +c_734107.num_args = 1; +c_734107.num_elements = 2; +c_734107.elements = (object *)alloca(sizeof(object) * 2); +c_734107.elements[0] = ((closureN)self_73869)->elements[1]; +c_734107.elements[1] = k_73313; + + +object c_734115 = Cyc_num_eq(data,(closure)&c_734107,2,((closureN)self_73869)->elements[0], obj_int2obj(8)); +return_closcall1(data,(closure)&c_734107, c_734115);} +; +} + +static void __lambda_560(void *data, int argc, object self_73870, object r_73314) { + if( (boolean_f != r_73314) ){ + return_closcall3(data, __glo_char_125_127_scheme_base, ((closureN)self_73870)->elements[1], ((closureN)self_73870)->elements[0], obj_char2obj(55)); +} else { + return_closcall1(data, ((closureN)self_73870)->elements[1], boolean_f);} +; +} + +static void __lambda_559(void *data, int argc, object self_73871, object k_73315) { + +closureN_type c_734090; +c_734090.hdr.mark = gc_color_red; + c_734090.hdr.grayed = 0; +c_734090.tag = closureN_tag; + c_734090.fn = (function_type)__lambda_558; +c_734090.num_args = 1; +c_734090.num_elements = 2; +c_734090.elements = (object *)alloca(sizeof(object) * 2); +c_734090.elements[0] = ((closureN)self_73871)->elements[1]; +c_734090.elements[1] = k_73315; + + +object c_734098 = Cyc_num_eq(data,(closure)&c_734090,2,((closureN)self_73871)->elements[0], obj_int2obj(2)); +return_closcall1(data,(closure)&c_734090, c_734098);; +} + +static void __lambda_558(void *data, int argc, object self_73872, object r_73316) { + if( (boolean_f != r_73316) ){ + return_closcall3(data, __glo_char_125_127_scheme_base, ((closureN)self_73872)->elements[1], ((closureN)self_73872)->elements[0], obj_char2obj(49)); +} else { + return_closcall1(data, ((closureN)self_73872)->elements[1], boolean_f);} +; +} + +static void __lambda_557(void *data, int argc, object self_73873) { + return_closcall2(data, ((closureN)self_73873)->elements[2], ((closureN)self_73873)->elements[1], ((closureN)self_73873)->elements[0]);; +} + +static void __lambda_556(void *data, int argc, object self_73874) { + return_closcall2(data, ((closureN)self_73874)->elements[2], ((closureN)self_73874)->elements[1], ((closureN)self_73874)->elements[0]);; +} + +static void __lambda_555(void *data, int argc, closure _,object k_73325, object fp_73141, object toks_73140, object all_127_73139, object parens_73138, object ptbl_73137, object base_73136, object tok_91_125num_73135) { + Cyc_st_add(data, "scheme/read.sld:parse-number"); + +closureN_type c_733973; +c_733973.hdr.mark = gc_color_red; + c_733973.hdr.grayed = 0; +c_733973.tag = closureN_tag; + c_733973.fn = (function_type)__lambda_554; +c_733973.num_args = 1; +c_733973.num_elements = 8; +c_733973.elements = (object *)alloca(sizeof(object) * 8); +c_733973.elements[0] = all_127_73139; +c_733973.elements[1] = base_73136; +c_733973.elements[2] = fp_73141; +c_733973.elements[3] = k_73325; +c_733973.elements[4] = parens_73138; +c_733973.elements[5] = ptbl_73137; +c_733973.elements[6] = tok_91_125num_73135; +c_733973.elements[7] = toks_73140; + +return_closcall1(data,(closure)&c_733973, NULL);; +} + +static void __lambda_554(void *data, int argc, object self_73875, object r_73340) { + +closureN_type c_733975; +c_733975.hdr.mark = gc_color_red; + c_733975.hdr.grayed = 0; +c_733975.tag = closureN_tag; + c_733975.fn = (function_type)__lambda_553; +c_733975.num_args = 1; +c_733975.num_elements = 8; +c_733975.elements = (object *)alloca(sizeof(object) * 8); +c_733975.elements[0] = ((closureN)self_73875)->elements[0]; +c_733975.elements[1] = ((closureN)self_73875)->elements[1]; +c_733975.elements[2] = ((closureN)self_73875)->elements[2]; +c_733975.elements[3] = ((closureN)self_73875)->elements[3]; +c_733975.elements[4] = ((closureN)self_73875)->elements[4]; +c_733975.elements[5] = ((closureN)self_73875)->elements[5]; +c_733975.elements[6] = ((closureN)self_73875)->elements[6]; +c_733975.elements[7] = ((closureN)self_73875)->elements[7]; + +return_closcall5(data, __glo_parse_91number_91rec_scheme_read, &c_733975, ((closureN)self_73875)->elements[1], ((closureN)self_73875)->elements[2], r_73340, ((closureN)self_73875)->elements[5]);; +} + +static void __lambda_553(void *data, int argc, object self_73876, object num_73142) { + +closureN_type c_733977; +c_733977.hdr.mark = gc_color_red; + c_733977.hdr.grayed = 0; +c_733977.tag = closureN_tag; + c_733977.fn = (function_type)__lambda_544; +c_733977.num_args = 0; +c_733977.num_elements = 2; +c_733977.elements = (object *)alloca(sizeof(object) * 2); +c_733977.elements[0] = ((closureN)self_73876)->elements[1]; +c_733977.elements[1] = num_73142; + + +closureN_type c_734017; +c_734017.hdr.mark = gc_color_red; + c_734017.hdr.grayed = 0; +c_734017.tag = closureN_tag; + c_734017.fn = (function_type)__lambda_552; +c_734017.num_args = 1; +c_734017.num_elements = 8; +c_734017.elements = (object *)alloca(sizeof(object) * 8); +c_734017.elements[0] = ((closureN)self_73876)->elements[0]; +c_734017.elements[1] = ((closureN)self_73876)->elements[2]; +c_734017.elements[2] = ((closureN)self_73876)->elements[3]; +c_734017.elements[3] = num_73142; +c_734017.elements[4] = ((closureN)self_73876)->elements[4]; +c_734017.elements[5] = ((closureN)self_73876)->elements[5]; +c_734017.elements[6] = ((closureN)self_73876)->elements[6]; +c_734017.elements[7] = ((closureN)self_73876)->elements[7]; + +return_closcall1(data,(closure)&c_733977, &c_734017);; +} + +static void __lambda_552(void *data, int argc, object self_73877, object r_73327) { + if( (boolean_f != r_73327) ){ + +closureN_type c_734019; +c_734019.hdr.mark = gc_color_red; + c_734019.hdr.grayed = 0; +c_734019.tag = closureN_tag; + c_734019.fn = (function_type)__lambda_548; +c_734019.num_args = 0; +c_734019.num_elements = 8; +c_734019.elements = (object *)alloca(sizeof(object) * 8); +c_734019.elements[0] = ((closureN)self_73877)->elements[0]; +c_734019.elements[1] = ((closureN)self_73877)->elements[1]; +c_734019.elements[2] = ((closureN)self_73877)->elements[2]; +c_734019.elements[3] = ((closureN)self_73877)->elements[3]; +c_734019.elements[4] = ((closureN)self_73877)->elements[4]; +c_734019.elements[5] = ((closureN)self_73877)->elements[5]; +c_734019.elements[6] = ((closureN)self_73877)->elements[6]; +c_734019.elements[7] = ((closureN)self_73877)->elements[7]; + +return_closcall0(data,(closure)&c_734019); +} else { + +closureN_type c_734044; +c_734044.hdr.mark = gc_color_red; + c_734044.hdr.grayed = 0; +c_734044.tag = closureN_tag; + c_734044.fn = (function_type)__lambda_551; +c_734044.num_args = 0; +c_734044.num_elements = 2; +c_734044.elements = (object *)alloca(sizeof(object) * 2); +c_734044.elements[0] = ((closureN)self_73877)->elements[2]; +c_734044.elements[1] = ((closureN)self_73877)->elements[5]; + +return_closcall0(data,(closure)&c_734044);} +; +} + +static void __lambda_551(void *data, int argc, object self_73878) { + +closureN_type c_734046; +c_734046.hdr.mark = gc_color_red; + c_734046.hdr.grayed = 0; +c_734046.tag = closureN_tag; + c_734046.fn = (function_type)__lambda_550; +c_734046.num_args = 1; +c_734046.num_elements = 2; +c_734046.elements = (object *)alloca(sizeof(object) * 2); +c_734046.elements[0] = ((closureN)self_73878)->elements[0]; +c_734046.elements[1] = ((closureN)self_73878)->elements[1]; + +return_closcall2(data, __glo_in_91port_117get_91lnum_scheme_read, &c_734046, ((closureN)self_73878)->elements[1]);; +} + +static void __lambda_550(void *data, int argc, object self_73879, object r_73331) { + +closureN_type c_734048; +c_734048.hdr.mark = gc_color_red; + c_734048.hdr.grayed = 0; +c_734048.tag = closureN_tag; + c_734048.fn = (function_type)__lambda_549; +c_734048.num_args = 1; +c_734048.num_elements = 2; +c_734048.elements = (object *)alloca(sizeof(object) * 2); +c_734048.elements[0] = ((closureN)self_73879)->elements[0]; +c_734048.elements[1] = r_73331; + +return_closcall2(data, __glo_in_91port_117get_91cnum_scheme_read, &c_734048, ((closureN)self_73879)->elements[1]);; +} + +static void __lambda_549(void *data, int argc, object self_73880, object r_73332) { + +make_string(c_734051, "Illegal number syntax"); +return_closcall4(data, __glo_parse_91error_scheme_read, ((closureN)self_73880)->elements[0], &c_734051, ((closureN)self_73880)->elements[1], r_73332);; +} + +static void __lambda_548(void *data, int argc, object self_73881) { + +closureN_type c_734022; +c_734022.hdr.mark = gc_color_red; + c_734022.hdr.grayed = 0; +c_734022.tag = closureN_tag; + c_734022.fn = (function_type)__lambda_547; +c_734022.num_args = 1; +c_734022.num_elements = 6; +c_734022.elements = (object *)alloca(sizeof(object) * 6); +c_734022.elements[0] = ((closureN)self_73881)->elements[0]; +c_734022.elements[1] = ((closureN)self_73881)->elements[1]; +c_734022.elements[2] = ((closureN)self_73881)->elements[2]; +c_734022.elements[3] = ((closureN)self_73881)->elements[4]; +c_734022.elements[4] = ((closureN)self_73881)->elements[5]; +c_734022.elements[5] = ((closureN)self_73881)->elements[7]; + +return_closcall2(data, ((closureN)self_73881)->elements[6], &c_734022, ((closureN)self_73881)->elements[3]);; +} + +static void __lambda_547(void *data, int argc, object self_73882, object result_73143) { + if( (boolean_f != ((closureN)self_73882)->elements[0]) ){ + +closureN_type c_734025; +c_734025.hdr.mark = gc_color_red; + c_734025.hdr.grayed = 0; +c_734025.tag = closureN_tag; + c_734025.fn = (function_type)__lambda_546; +c_734025.num_args = 1; +c_734025.num_elements = 7; +c_734025.elements = (object *)alloca(sizeof(object) * 7); +c_734025.elements[0] = ((closureN)self_73882)->elements[0]; +c_734025.elements[1] = ((closureN)self_73882)->elements[1]; +c_734025.elements[2] = ((closureN)self_73882)->elements[2]; +c_734025.elements[3] = ((closureN)self_73882)->elements[3]; +c_734025.elements[4] = ((closureN)self_73882)->elements[4]; +c_734025.elements[5] = result_73143; +c_734025.elements[6] = ((closureN)self_73882)->elements[5]; + +return_closcall1(data,(closure)&c_734025, NULL); +} else { + return_closcall1(data, ((closureN)self_73882)->elements[2], result_73143);} +; +} + +static void __lambda_546(void *data, int argc, object self_73883, object r_73329) { + +closureN_type c_734027; +c_734027.hdr.mark = gc_color_red; + c_734027.hdr.grayed = 0; +c_734027.tag = closureN_tag; + c_734027.fn = (function_type)__lambda_545; +c_734027.num_args = 1; +c_734027.num_elements = 6; +c_734027.elements = (object *)alloca(sizeof(object) * 6); +c_734027.elements[0] = ((closureN)self_73883)->elements[0]; +c_734027.elements[1] = ((closureN)self_73883)->elements[1]; +c_734027.elements[2] = ((closureN)self_73883)->elements[2]; +c_734027.elements[3] = ((closureN)self_73883)->elements[3]; +c_734027.elements[4] = ((closureN)self_73883)->elements[4]; +c_734027.elements[5] = r_73329; + + +make_pair(c_734037,((closureN)self_73883)->elements[5], ((closureN)self_73883)->elements[6]); +return_closcall1(data,(closure)&c_734027, &c_734037);; +} + +static void __lambda_545(void *data, int argc, object self_73884, object r_73330) { + return_closcall8(data, __glo_parse_scheme_read, ((closureN)self_73884)->elements[2], ((closureN)self_73884)->elements[1], ((closureN)self_73884)->elements[5], r_73330, ((closureN)self_73884)->elements[0], boolean_f, ((closureN)self_73884)->elements[3], ((closureN)self_73884)->elements[4]);; +} + +static void __lambda_544(void *data, int argc, object self_73885, object k_73333) { + +closureN_type c_733979; +c_733979.hdr.mark = gc_color_red; + c_733979.hdr.grayed = 0; +c_733979.tag = closureN_tag; + c_733979.fn = (function_type)__lambda_543; +c_733979.num_args = 1; +c_733979.num_elements = 3; +c_733979.elements = (object *)alloca(sizeof(object) * 3); +c_733979.elements[0] = ((closureN)self_73885)->elements[0]; +c_733979.elements[1] = k_73333; +c_733979.elements[2] = ((closureN)self_73885)->elements[1]; + +return_closcall1(data,(closure)&c_733979, Cyc_is_null(((closureN)self_73885)->elements[1]));; +} + +static void __lambda_543(void *data, int argc, object self_73886, object r_73334) { + if( (boolean_f != r_73334) ){ + return_closcall1(data, ((closureN)self_73886)->elements[1], boolean_f); +} else { + +closureN_type c_733983; +c_733983.hdr.mark = gc_color_red; + c_733983.hdr.grayed = 0; +c_733983.tag = closureN_tag; + c_733983.fn = (function_type)__lambda_542; +c_733983.num_args = 1; +c_733983.num_elements = 3; +c_733983.elements = (object *)alloca(sizeof(object) * 3); +c_733983.elements[0] = ((closureN)self_73886)->elements[0]; +c_733983.elements[1] = ((closureN)self_73886)->elements[1]; +c_733983.elements[2] = ((closureN)self_73886)->elements[2]; + +return_closcall2(data, __glo_token_91numeric_127_scheme_read, &c_733983, ((closureN)self_73886)->elements[2]);} +; +} + +static void __lambda_542(void *data, int argc, object self_73887, object tmp_73144) { + if( (boolean_f != tmp_73144) ){ + return_closcall1(data, ((closureN)self_73887)->elements[1], tmp_73144); +} else { + +closureN_type c_733987; +c_733987.hdr.mark = gc_color_red; + c_733987.hdr.grayed = 0; +c_733987.tag = closureN_tag; + c_733987.fn = (function_type)__lambda_541; +c_733987.num_args = 1; +c_733987.num_elements = 3; +c_733987.elements = (object *)alloca(sizeof(object) * 3); +c_733987.elements[0] = ((closureN)self_73887)->elements[0]; +c_733987.elements[1] = ((closureN)self_73887)->elements[1]; +c_733987.elements[2] = ((closureN)self_73887)->elements[2]; + +return_closcall1(data,(closure)&c_733987, Cyc_length(data, ((closureN)self_73887)->elements[2]));} +; +} + +static void __lambda_541(void *data, int argc, object self_73888, object r_73339) { + +closureN_type c_733989; +c_733989.hdr.mark = gc_color_red; + c_733989.hdr.grayed = 0; +c_733989.tag = closureN_tag; + c_733989.fn = (function_type)__lambda_540; +c_733989.num_args = 1; +c_733989.num_elements = 3; +c_733989.elements = (object *)alloca(sizeof(object) * 3); +c_733989.elements[0] = ((closureN)self_73888)->elements[0]; +c_733989.elements[1] = ((closureN)self_73888)->elements[1]; +c_733989.elements[2] = ((closureN)self_73888)->elements[2]; + + +object c_734009 = Cyc_num_gt(data,(closure)&c_733989,2,r_73339, obj_int2obj(0)); +return_closcall1(data,(closure)&c_733989, c_734009);; +} + +static void __lambda_540(void *data, int argc, object self_73889, object r_73336) { + if( (boolean_f != r_73336) ){ + +closureN_type c_733991; +c_733991.hdr.mark = gc_color_red; + c_733991.hdr.grayed = 0; +c_733991.tag = closureN_tag; + c_733991.fn = (function_type)__lambda_539; +c_733991.num_args = 1; +c_733991.num_elements = 2; +c_733991.elements = (object *)alloca(sizeof(object) * 2); +c_733991.elements[0] = ((closureN)self_73889)->elements[1]; +c_733991.elements[1] = ((closureN)self_73889)->elements[2]; + + +object c_734003 = Cyc_num_eq(data,(closure)&c_733991,2,((closureN)self_73889)->elements[0], obj_int2obj(16)); +return_closcall1(data,(closure)&c_733991, c_734003); +} else { + return_closcall1(data, ((closureN)self_73889)->elements[1], boolean_f);} +; +} + +static void __lambda_539(void *data, int argc, object self_73890, object r_73337) { + if( (boolean_f != r_73337) ){ + +closureN_type c_733993; +c_733993.hdr.mark = gc_color_red; + c_733993.hdr.grayed = 0; +c_733993.tag = closureN_tag; + c_733993.fn = (function_type)__lambda_538; +c_733993.num_args = 1; +c_733993.num_elements = 1; +c_733993.elements = (object *)alloca(sizeof(object) * 1); +c_733993.elements[0] = ((closureN)self_73890)->elements[0]; + +return_closcall1(data,(closure)&c_733993, car(((closureN)self_73890)->elements[1])); +} else { + return_closcall1(data, ((closureN)self_73890)->elements[0], boolean_f);} +; +} + +static void __lambda_538(void *data, int argc, object self_73891, object r_73338) { + return_closcall2(data, __glo_hex_91digit_127_scheme_read, ((closureN)self_73891)->elements[0], r_73338);; +} + +static void __lambda_537(void *data, int argc, closure _,object k_73343, object fp_73147, object tok_73146, object ptbl_73145) { + Cyc_st_add(data, "scheme/read.sld:parse-li-rec"); + +closureN_type c_733902; +c_733902.hdr.mark = gc_color_red; + c_733902.hdr.grayed = 0; +c_733902.tag = closureN_tag; + c_733902.fn = (function_type)__lambda_536; +c_733902.num_args = 1; +c_733902.num_elements = 4; +c_733902.elements = (object *)alloca(sizeof(object) * 4); +c_733902.elements[0] = fp_73147; +c_733902.elements[1] = k_73343; +c_733902.elements[2] = ptbl_73145; +c_733902.elements[3] = tok_73146; + +return_closcall3(data, __glo_get_91next_91char_scheme_read, &c_733902, fp_73147, ptbl_73145);; +} + +static void __lambda_536(void *data, int argc, object self_73892, object r_73344) { + +closureN_type c_733904; +c_733904.hdr.mark = gc_color_red; + c_733904.hdr.grayed = 0; +c_733904.tag = closureN_tag; + c_733904.fn = (function_type)__lambda_533; +c_733904.num_args = 1; +c_733904.num_elements = 4; +c_733904.elements = (object *)alloca(sizeof(object) * 4); +c_733904.elements[0] = ((closureN)self_73892)->elements[1]; +c_733904.elements[1] = ((closureN)self_73892)->elements[2]; +c_733904.elements[2] = r_73344; +c_733904.elements[3] = ((closureN)self_73892)->elements[3]; + + +closureN_type c_733960; +c_733960.hdr.mark = gc_color_red; + c_733960.hdr.grayed = 0; +c_733960.tag = closureN_tag; + c_733960.fn = (function_type)__lambda_535; +c_733960.num_args = 1; +c_733960.num_elements = 3; +c_733960.elements = (object *)alloca(sizeof(object) * 3); +c_733960.elements[0] = ((closureN)self_73892)->elements[0]; +c_733960.elements[1] = ((closureN)self_73892)->elements[2]; +c_733960.elements[2] = ((closureN)self_73892)->elements[3]; + +return_closcall1(data,(closure)&c_733904, &c_733960);; +} + +static void __lambda_535(void *data, int argc, object self_73893, object k_73354, object c_73148) { + +closureN_type c_733962; +c_733962.hdr.mark = gc_color_red; + c_733962.hdr.grayed = 0; +c_733962.tag = closureN_tag; + c_733962.fn = (function_type)__lambda_534; +c_733962.num_args = 1; +c_733962.num_elements = 3; +c_733962.elements = (object *)alloca(sizeof(object) * 3); +c_733962.elements[0] = ((closureN)self_73893)->elements[0]; +c_733962.elements[1] = k_73354; +c_733962.elements[2] = ((closureN)self_73893)->elements[1]; + + +make_pair(c_733969,c_73148, ((closureN)self_73893)->elements[2]); +return_closcall1(data,(closure)&c_733962, &c_733969);; +} + +static void __lambda_534(void *data, int argc, object self_73894, object r_73355) { + return_closcall4(data, __glo_parse_91li_91rec_scheme_read, ((closureN)self_73894)->elements[1], ((closureN)self_73894)->elements[0], r_73355, ((closureN)self_73894)->elements[2]);; +} + +static void __lambda_533(void *data, int argc, object self_73895, object r_73345) { + +closureN_type c_733906; +c_733906.hdr.mark = gc_color_red; + c_733906.hdr.grayed = 0; +c_733906.tag = closureN_tag; + c_733906.fn = (function_type)__lambda_532; +c_733906.num_args = 2; +c_733906.num_elements = 3; +c_733906.elements = (object *)alloca(sizeof(object) * 3); +c_733906.elements[0] = ((closureN)self_73895)->elements[0]; +c_733906.elements[1] = ((closureN)self_73895)->elements[1]; +c_733906.elements[2] = ((closureN)self_73895)->elements[3]; + +return_closcall2(data,(closure)&c_733906, ((closureN)self_73895)->elements[2], r_73345);; +} + +static void __lambda_532(void *data, int argc, object self_73896, object c_73150, object next_73149) { + +closureN_type c_733908; +c_733908.hdr.mark = gc_color_red; + c_733908.hdr.grayed = 0; +c_733908.tag = closureN_tag; + c_733908.fn = (function_type)__lambda_531; +c_733908.num_args = 1; +c_733908.num_elements = 5; +c_733908.elements = (object *)alloca(sizeof(object) * 5); +c_733908.elements[0] = c_73150; +c_733908.elements[1] = ((closureN)self_73896)->elements[0]; +c_733908.elements[2] = next_73149; +c_733908.elements[3] = ((closureN)self_73896)->elements[1]; +c_733908.elements[4] = ((closureN)self_73896)->elements[2]; + +return_closcall1(data,(closure)&c_733908, Cyc_eq(obj_char2obj(124), c_73150));; +} + +static void __lambda_531(void *data, int argc, object self_73897, object r_73346) { + if( (boolean_f != r_73346) ){ + +closureN_type c_733910; +c_733910.hdr.mark = gc_color_red; + c_733910.hdr.grayed = 0; +c_733910.tag = closureN_tag; + c_733910.fn = (function_type)__lambda_525; +c_733910.num_args = 0; +c_733910.num_elements = 2; +c_733910.elements = (object *)alloca(sizeof(object) * 2); +c_733910.elements[0] = ((closureN)self_73897)->elements[1]; +c_733910.elements[1] = ((closureN)self_73897)->elements[4]; + +return_closcall0(data,(closure)&c_733910); +} else { + +closureN_type c_733935; +c_733935.hdr.mark = gc_color_red; + c_733935.hdr.grayed = 0; +c_733935.tag = closureN_tag; + c_733935.fn = (function_type)__lambda_530; +c_733935.num_args = 1; +c_733935.num_elements = 4; +c_733935.elements = (object *)alloca(sizeof(object) * 4); +c_733935.elements[0] = ((closureN)self_73897)->elements[0]; +c_733935.elements[1] = ((closureN)self_73897)->elements[1]; +c_733935.elements[2] = ((closureN)self_73897)->elements[2]; +c_733935.elements[3] = ((closureN)self_73897)->elements[3]; + +return_closcall1(data,(closure)&c_733935, Cyc_is_eof_object(((closureN)self_73897)->elements[0]));} +; +} + +static void __lambda_530(void *data, int argc, object self_73898, object r_73351) { + if( (boolean_f != r_73351) ){ + +closureN_type c_733937; +c_733937.hdr.mark = gc_color_red; + c_733937.hdr.grayed = 0; +c_733937.tag = closureN_tag; + c_733937.fn = (function_type)__lambda_528; +c_733937.num_args = 0; +c_733937.num_elements = 2; +c_733937.elements = (object *)alloca(sizeof(object) * 2); +c_733937.elements[0] = ((closureN)self_73898)->elements[1]; +c_733937.elements[1] = ((closureN)self_73898)->elements[3]; + +return_closcall0(data,(closure)&c_733937); +} else { + +closureN_type c_733949; +c_733949.hdr.mark = gc_color_red; + c_733949.hdr.grayed = 0; +c_733949.tag = closureN_tag; + c_733949.fn = (function_type)__lambda_529; +c_733949.num_args = 0; +c_733949.num_elements = 3; +c_733949.elements = (object *)alloca(sizeof(object) * 3); +c_733949.elements[0] = ((closureN)self_73898)->elements[0]; +c_733949.elements[1] = ((closureN)self_73898)->elements[1]; +c_733949.elements[2] = ((closureN)self_73898)->elements[2]; + +return_closcall0(data,(closure)&c_733949);} +; +} + +static void __lambda_529(void *data, int argc, object self_73899) { + return_closcall2(data, ((closureN)self_73899)->elements[2], ((closureN)self_73899)->elements[1], ((closureN)self_73899)->elements[0]);; +} + +static void __lambda_528(void *data, int argc, object self_73900) { + +closureN_type c_733939; +c_733939.hdr.mark = gc_color_red; + c_733939.hdr.grayed = 0; +c_733939.tag = closureN_tag; + c_733939.fn = (function_type)__lambda_527; +c_733939.num_args = 1; +c_733939.num_elements = 2; +c_733939.elements = (object *)alloca(sizeof(object) * 2); +c_733939.elements[0] = ((closureN)self_73900)->elements[0]; +c_733939.elements[1] = ((closureN)self_73900)->elements[1]; + +return_closcall2(data, __glo_in_91port_117get_91lnum_scheme_read, &c_733939, ((closureN)self_73900)->elements[1]);; +} + +static void __lambda_527(void *data, int argc, object self_73901, object r_73352) { + +closureN_type c_733941; +c_733941.hdr.mark = gc_color_red; + c_733941.hdr.grayed = 0; +c_733941.tag = closureN_tag; + c_733941.fn = (function_type)__lambda_526; +c_733941.num_args = 1; +c_733941.num_elements = 2; +c_733941.elements = (object *)alloca(sizeof(object) * 2); +c_733941.elements[0] = ((closureN)self_73901)->elements[0]; +c_733941.elements[1] = r_73352; + +return_closcall2(data, __glo_in_91port_117get_91cnum_scheme_read, &c_733941, ((closureN)self_73901)->elements[1]);; +} + +static void __lambda_526(void *data, int argc, object self_73902, object r_73353) { + +make_string(c_733944, "EOF encountered parsing literal identifier"); +return_closcall4(data, __glo_parse_91error_scheme_read, ((closureN)self_73902)->elements[0], &c_733944, ((closureN)self_73902)->elements[1], r_73353);; +} + +static void __lambda_525(void *data, int argc, object self_73903) { + +closureN_type c_733912; +c_733912.hdr.mark = gc_color_red; + c_733912.hdr.grayed = 0; +c_733912.tag = closureN_tag; + c_733912.fn = (function_type)__lambda_523; +c_733912.num_args = 0; +c_733912.num_elements = 1; +c_733912.elements = (object *)alloca(sizeof(object) * 1); +c_733912.elements[0] = ((closureN)self_73903)->elements[1]; + + +closureN_type c_733929; +c_733929.hdr.mark = gc_color_red; + c_733929.hdr.grayed = 0; +c_733929.tag = closureN_tag; + c_733929.fn = (function_type)__lambda_524; +c_733929.num_args = 1; +c_733929.num_elements = 1; +c_733929.elements = (object *)alloca(sizeof(object) * 1); +c_733929.elements[0] = ((closureN)self_73903)->elements[0]; + +return_closcall1(data,(closure)&c_733912, &c_733929);; +} + +static void __lambda_524(void *data, int argc, object self_73904, object str_73151) { + return_closcall1(data, ((closureN)self_73904)->elements[0], Cyc_string2symbol(data, str_73151));; +} + +static void __lambda_523(void *data, int argc, object self_73905, object k_73348) { + +closureN_type c_733914; +c_733914.hdr.mark = gc_color_red; + c_733914.hdr.grayed = 0; +c_733914.tag = closureN_tag; + c_733914.fn = (function_type)__lambda_522; +c_733914.num_args = 1; +c_733914.num_elements = 2; +c_733914.elements = (object *)alloca(sizeof(object) * 2); +c_733914.elements[0] = k_73348; +c_733914.elements[1] = ((closureN)self_73905)->elements[0]; + +return_closcall1(data,(closure)&c_733914, Cyc_is_null(((closureN)self_73905)->elements[0]));; +} + +static void __lambda_522(void *data, int argc, object self_73906, object r_73349) { + if( (boolean_f != r_73349) ){ + +make_string(c_733917, "||"); +return_closcall1(data, ((closureN)self_73906)->elements[0], &c_733917); +} else { + +closureN_type c_733919; +c_733919.hdr.mark = gc_color_red; + c_733919.hdr.grayed = 0; +c_733919.tag = closureN_tag; + c_733919.fn = (function_type)__lambda_521; +c_733919.num_args = 1; +c_733919.num_elements = 1; +c_733919.elements = (object *)alloca(sizeof(object) * 1); +c_733919.elements[0] = ((closureN)self_73906)->elements[0]; + +return_closcall2(data, __glo_reverse_scheme_base, &c_733919, ((closureN)self_73906)->elements[1]);} +; +} + +static void __lambda_521(void *data, int argc, object self_73907, object r_73350) { + +object c_733924 = Cyc_list2string(data, ((closureN)self_73907)->elements[0],r_73350); +return_closcall1(data, ((closureN)self_73907)->elements[0], c_733924);; +} + +static void __lambda_520(void *data, int argc, closure _,object k_73358, object fp_73156, object toks_73155, object all_127_73154, object parens_73153, object ptbl_73152) { + Cyc_st_add(data, "scheme/read.sld:parse-literal-identifier"); + +closureN_type c_733876; +c_733876.hdr.mark = gc_color_red; + c_733876.hdr.grayed = 0; +c_733876.tag = closureN_tag; + c_733876.fn = (function_type)__lambda_519; +c_733876.num_args = 1; +c_733876.num_elements = 6; +c_733876.elements = (object *)alloca(sizeof(object) * 6); +c_733876.elements[0] = all_127_73154; +c_733876.elements[1] = fp_73156; +c_733876.elements[2] = k_73358; +c_733876.elements[3] = parens_73153; +c_733876.elements[4] = ptbl_73152; +c_733876.elements[5] = toks_73155; + +return_closcall1(data,(closure)&c_733876, NULL);; +} + +static void __lambda_519(void *data, int argc, object self_73908, object r_73362) { + +closureN_type c_733878; +c_733878.hdr.mark = gc_color_red; + c_733878.hdr.grayed = 0; +c_733878.tag = closureN_tag; + c_733878.fn = (function_type)__lambda_518; +c_733878.num_args = 1; +c_733878.num_elements = 6; +c_733878.elements = (object *)alloca(sizeof(object) * 6); +c_733878.elements[0] = ((closureN)self_73908)->elements[0]; +c_733878.elements[1] = ((closureN)self_73908)->elements[1]; +c_733878.elements[2] = ((closureN)self_73908)->elements[2]; +c_733878.elements[3] = ((closureN)self_73908)->elements[3]; +c_733878.elements[4] = ((closureN)self_73908)->elements[4]; +c_733878.elements[5] = ((closureN)self_73908)->elements[5]; + +return_closcall4(data, __glo_parse_91li_91rec_scheme_read, &c_733878, ((closureN)self_73908)->elements[1], r_73362, ((closureN)self_73908)->elements[4]);; +} + +static void __lambda_518(void *data, int argc, object self_73909, object sym_73157) { + if( (boolean_f != ((closureN)self_73909)->elements[0]) ){ + +closureN_type c_733881; +c_733881.hdr.mark = gc_color_red; + c_733881.hdr.grayed = 0; +c_733881.tag = closureN_tag; + c_733881.fn = (function_type)__lambda_517; +c_733881.num_args = 1; +c_733881.num_elements = 7; +c_733881.elements = (object *)alloca(sizeof(object) * 7); +c_733881.elements[0] = ((closureN)self_73909)->elements[0]; +c_733881.elements[1] = ((closureN)self_73909)->elements[1]; +c_733881.elements[2] = ((closureN)self_73909)->elements[2]; +c_733881.elements[3] = ((closureN)self_73909)->elements[3]; +c_733881.elements[4] = ((closureN)self_73909)->elements[4]; +c_733881.elements[5] = sym_73157; +c_733881.elements[6] = ((closureN)self_73909)->elements[5]; + +return_closcall1(data,(closure)&c_733881, NULL); +} else { + return_closcall1(data, ((closureN)self_73909)->elements[2], sym_73157);} +; +} + +static void __lambda_517(void *data, int argc, object self_73910, object r_73360) { + +closureN_type c_733883; +c_733883.hdr.mark = gc_color_red; + c_733883.hdr.grayed = 0; +c_733883.tag = closureN_tag; + c_733883.fn = (function_type)__lambda_516; +c_733883.num_args = 1; +c_733883.num_elements = 6; +c_733883.elements = (object *)alloca(sizeof(object) * 6); +c_733883.elements[0] = ((closureN)self_73910)->elements[0]; +c_733883.elements[1] = ((closureN)self_73910)->elements[1]; +c_733883.elements[2] = ((closureN)self_73910)->elements[2]; +c_733883.elements[3] = ((closureN)self_73910)->elements[3]; +c_733883.elements[4] = ((closureN)self_73910)->elements[4]; +c_733883.elements[5] = r_73360; + + +make_pair(c_733893,((closureN)self_73910)->elements[5], ((closureN)self_73910)->elements[6]); +return_closcall1(data,(closure)&c_733883, &c_733893);; +} + +static void __lambda_516(void *data, int argc, object self_73911, object r_73361) { + return_closcall8(data, __glo_parse_scheme_read, ((closureN)self_73911)->elements[2], ((closureN)self_73911)->elements[1], ((closureN)self_73911)->elements[5], r_73361, ((closureN)self_73911)->elements[0], boolean_f, ((closureN)self_73911)->elements[3], ((closureN)self_73911)->elements[4]);; +} + +static void __lambda_515(void *data, int argc, closure _,object k_73365, object fp_73159, object ptbl_73158) { + Cyc_st_add(data, "scheme/read.sld:read-block-terminator"); + +closureN_type c_733848; +c_733848.hdr.mark = gc_color_red; + c_733848.hdr.grayed = 0; +c_733848.tag = closureN_tag; + c_733848.fn = (function_type)__lambda_514; +c_733848.num_args = 1; +c_733848.num_elements = 3; +c_733848.elements = (object *)alloca(sizeof(object) * 3); +c_733848.elements[0] = fp_73159; +c_733848.elements[1] = k_73365; +c_733848.elements[2] = ptbl_73158; + +return_closcall3(data, __glo_get_91next_91char_scheme_read, &c_733848, fp_73159, ptbl_73158);; +} + +static void __lambda_514(void *data, int argc, object self_73912, object c_73160) { + +closureN_type c_733850; +c_733850.hdr.mark = gc_color_red; + c_733850.hdr.grayed = 0; +c_733850.tag = closureN_tag; + c_733850.fn = (function_type)__lambda_513; +c_733850.num_args = 1; +c_733850.num_elements = 4; +c_733850.elements = (object *)alloca(sizeof(object) * 4); +c_733850.elements[0] = c_73160; +c_733850.elements[1] = ((closureN)self_73912)->elements[0]; +c_733850.elements[2] = ((closureN)self_73912)->elements[1]; +c_733850.elements[3] = ((closureN)self_73912)->elements[2]; + +return_closcall1(data,(closure)&c_733850, Cyc_eq(obj_char2obj(35), c_73160));; +} + +static void __lambda_513(void *data, int argc, object self_73913, object r_73367) { + if( (boolean_f != r_73367) ){ + +closureN_type c_733852; +c_733852.hdr.mark = gc_color_red; + c_733852.hdr.grayed = 0; +c_733852.tag = closureN_tag; + c_733852.fn = (function_type)__lambda_509; +c_733852.num_args = 0; +c_733852.num_elements = 1; +c_733852.elements = (object *)alloca(sizeof(object) * 1); +c_733852.elements[0] = ((closureN)self_73913)->elements[2]; + +return_closcall0(data,(closure)&c_733852); +} else { + +closureN_type c_733856; +c_733856.hdr.mark = gc_color_red; + c_733856.hdr.grayed = 0; +c_733856.tag = closureN_tag; + c_733856.fn = (function_type)__lambda_512; +c_733856.num_args = 1; +c_733856.num_elements = 3; +c_733856.elements = (object *)alloca(sizeof(object) * 3); +c_733856.elements[0] = ((closureN)self_73913)->elements[1]; +c_733856.elements[1] = ((closureN)self_73913)->elements[2]; +c_733856.elements[2] = ((closureN)self_73913)->elements[3]; + +return_closcall1(data,(closure)&c_733856, Cyc_eq(obj_char2obj(124), ((closureN)self_73913)->elements[0]));} +; +} + +static void __lambda_512(void *data, int argc, object self_73914, object r_73368) { + if( (boolean_f != r_73368) ){ + +closureN_type c_733858; +c_733858.hdr.mark = gc_color_red; + c_733858.hdr.grayed = 0; +c_733858.tag = closureN_tag; + c_733858.fn = (function_type)__lambda_510; +c_733858.num_args = 0; +c_733858.num_elements = 3; +c_733858.elements = (object *)alloca(sizeof(object) * 3); +c_733858.elements[0] = ((closureN)self_73914)->elements[0]; +c_733858.elements[1] = ((closureN)self_73914)->elements[1]; +c_733858.elements[2] = ((closureN)self_73914)->elements[2]; + +return_closcall0(data,(closure)&c_733858); +} else { + +closureN_type c_733864; +c_733864.hdr.mark = gc_color_red; + c_733864.hdr.grayed = 0; +c_733864.tag = closureN_tag; + c_733864.fn = (function_type)__lambda_511; +c_733864.num_args = 0; +c_733864.num_elements = 3; +c_733864.elements = (object *)alloca(sizeof(object) * 3); +c_733864.elements[0] = ((closureN)self_73914)->elements[0]; +c_733864.elements[1] = ((closureN)self_73914)->elements[1]; +c_733864.elements[2] = ((closureN)self_73914)->elements[2]; + +return_closcall0(data,(closure)&c_733864);} +; +} + +static void __lambda_511(void *data, int argc, object self_73915) { + return_closcall3(data, __glo_read_91block_91comment_scheme_read, ((closureN)self_73915)->elements[1], ((closureN)self_73915)->elements[0], ((closureN)self_73915)->elements[2]);; +} + +static void __lambda_510(void *data, int argc, object self_73916) { + return_closcall3(data, __glo_read_91block_91terminator_scheme_read, ((closureN)self_73916)->elements[1], ((closureN)self_73916)->elements[0], ((closureN)self_73916)->elements[2]);; +} + +static void __lambda_509(void *data, int argc, object self_73917) { + return_closcall1(data, ((closureN)self_73917)->elements[0], boolean_t);; +} + +static void __lambda_508(void *data, int argc, closure _,object k_73371, object fp_73162, object ptbl_73161) { + Cyc_st_add(data, "scheme/read.sld:read-block-comment"); + +closureN_type c_733829; +c_733829.hdr.mark = gc_color_red; + c_733829.hdr.grayed = 0; +c_733829.tag = closureN_tag; + c_733829.fn = (function_type)__lambda_507; +c_733829.num_args = 1; +c_733829.num_elements = 3; +c_733829.elements = (object *)alloca(sizeof(object) * 3); +c_733829.elements[0] = fp_73162; +c_733829.elements[1] = k_73371; +c_733829.elements[2] = ptbl_73161; + +return_closcall3(data, __glo_get_91next_91char_scheme_read, &c_733829, fp_73162, ptbl_73161);; +} + +static void __lambda_507(void *data, int argc, object self_73918, object c_73163) { + +closureN_type c_733831; +c_733831.hdr.mark = gc_color_red; + c_733831.hdr.grayed = 0; +c_733831.tag = closureN_tag; + c_733831.fn = (function_type)__lambda_506; +c_733831.num_args = 1; +c_733831.num_elements = 3; +c_733831.elements = (object *)alloca(sizeof(object) * 3); +c_733831.elements[0] = ((closureN)self_73918)->elements[0]; +c_733831.elements[1] = ((closureN)self_73918)->elements[1]; +c_733831.elements[2] = ((closureN)self_73918)->elements[2]; + +return_closcall1(data,(closure)&c_733831, Cyc_eq(obj_char2obj(124), c_73163));; +} + +static void __lambda_506(void *data, int argc, object self_73919, object r_73373) { + if( (boolean_f != r_73373) ){ + +closureN_type c_733833; +c_733833.hdr.mark = gc_color_red; + c_733833.hdr.grayed = 0; +c_733833.tag = closureN_tag; + c_733833.fn = (function_type)__lambda_504; +c_733833.num_args = 0; +c_733833.num_elements = 3; +c_733833.elements = (object *)alloca(sizeof(object) * 3); +c_733833.elements[0] = ((closureN)self_73919)->elements[0]; +c_733833.elements[1] = ((closureN)self_73919)->elements[1]; +c_733833.elements[2] = ((closureN)self_73919)->elements[2]; + +return_closcall0(data,(closure)&c_733833); +} else { + +closureN_type c_733839; +c_733839.hdr.mark = gc_color_red; + c_733839.hdr.grayed = 0; +c_733839.tag = closureN_tag; + c_733839.fn = (function_type)__lambda_505; +c_733839.num_args = 0; +c_733839.num_elements = 3; +c_733839.elements = (object *)alloca(sizeof(object) * 3); +c_733839.elements[0] = ((closureN)self_73919)->elements[0]; +c_733839.elements[1] = ((closureN)self_73919)->elements[1]; +c_733839.elements[2] = ((closureN)self_73919)->elements[2]; + +return_closcall0(data,(closure)&c_733839);} +; +} + +static void __lambda_505(void *data, int argc, object self_73920) { + return_closcall3(data, __glo_read_91block_91comment_scheme_read, ((closureN)self_73920)->elements[1], ((closureN)self_73920)->elements[0], ((closureN)self_73920)->elements[2]);; +} + +static void __lambda_504(void *data, int argc, object self_73921) { + return_closcall3(data, __glo_read_91block_91terminator_scheme_read, ((closureN)self_73921)->elements[1], ((closureN)self_73921)->elements[0], ((closureN)self_73921)->elements[2]);; +} + +static void __lambda_503(void *data, int argc, closure _,object k_73376, object fp_73165, object ptbl_73164) { + Cyc_st_add(data, "scheme/read.sld:get-next-char"); + +closureN_type c_733817; +c_733817.hdr.mark = gc_color_red; + c_733817.hdr.grayed = 0; +c_733817.tag = closureN_tag; + c_733817.fn = (function_type)__lambda_502; +c_733817.num_args = 1; +c_733817.num_elements = 3; +c_733817.elements = (object *)alloca(sizeof(object) * 3); +c_733817.elements[0] = fp_73165; +c_733817.elements[1] = k_73376; +c_733817.elements[2] = ptbl_73164; + +return_closcall2(data, __glo_in_91port_117get_91buf_scheme_read, &c_733817, ptbl_73164);; +} + +static void __lambda_502(void *data, int argc, object self_73922, object r_73377) { + if( (boolean_f != r_73377) ){ + return_closcall2(data, __glo_in_91port_117read_91buf_67_scheme_read, ((closureN)self_73922)->elements[1], ((closureN)self_73922)->elements[2]); +} else { + +object c_733825 = Cyc_io_read_char(data, ((closureN)self_73922)->elements[1],((closureN)self_73922)->elements[0]); +return_closcall1(data, ((closureN)self_73922)->elements[1], c_733825);} +; +} + +static void __lambda_501(void *data, int argc, closure _,object k_73380, object a_73166) { + Cyc_st_add(data, "scheme/read.sld:parse-atom"); + +closureN_type c_733789; +c_733789.hdr.mark = gc_color_red; + c_733789.hdr.grayed = 0; +c_733789.tag = closureN_tag; + c_733789.fn = (function_type)__lambda_500; +c_733789.num_args = 1; +c_733789.num_elements = 2; +c_733789.elements = (object *)alloca(sizeof(object) * 2); +c_733789.elements[0] = a_73166; +c_733789.elements[1] = k_73380; + +return_closcall2(data, __glo_token_91numeric_127_scheme_read, &c_733789, a_73166);; +} + +static void __lambda_500(void *data, int argc, object self_73923, object r_73381) { + if( (boolean_f != r_73381) ){ + +closureN_type c_733791; +c_733791.hdr.mark = gc_color_red; + c_733791.hdr.grayed = 0; +c_733791.tag = closureN_tag; + c_733791.fn = (function_type)__lambda_497; +c_733791.num_args = 0; +c_733791.num_elements = 2; +c_733791.elements = (object *)alloca(sizeof(object) * 2); +c_733791.elements[0] = ((closureN)self_73923)->elements[0]; +c_733791.elements[1] = ((closureN)self_73923)->elements[1]; + +return_closcall0(data,(closure)&c_733791); +} else { + +closureN_type c_733804; +c_733804.hdr.mark = gc_color_red; + c_733804.hdr.grayed = 0; +c_733804.tag = closureN_tag; + c_733804.fn = (function_type)__lambda_499; +c_733804.num_args = 0; +c_733804.num_elements = 2; +c_733804.elements = (object *)alloca(sizeof(object) * 2); +c_733804.elements[0] = ((closureN)self_73923)->elements[0]; +c_733804.elements[1] = ((closureN)self_73923)->elements[1]; + +return_closcall0(data,(closure)&c_733804);} +; +} + +static void __lambda_499(void *data, int argc, object self_73924) { + +closureN_type c_733806; +c_733806.hdr.mark = gc_color_red; + c_733806.hdr.grayed = 0; +c_733806.tag = closureN_tag; + c_733806.fn = (function_type)__lambda_498; +c_733806.num_args = 1; +c_733806.num_elements = 1; +c_733806.elements = (object *)alloca(sizeof(object) * 1); +c_733806.elements[0] = ((closureN)self_73924)->elements[1]; + + +object c_733813 = Cyc_list2string(data,(closure)&c_733806,((closureN)self_73924)->elements[0]); +return_closcall1(data,(closure)&c_733806, c_733813);; +} + +static void __lambda_498(void *data, int argc, object self_73925, object r_73383) { + return_closcall1(data, ((closureN)self_73925)->elements[0], Cyc_string2symbol(data, r_73383));; +} + +static void __lambda_497(void *data, int argc, object self_73926) { + +closureN_type c_733793; +c_733793.hdr.mark = gc_color_red; + c_733793.hdr.grayed = 0; +c_733793.tag = closureN_tag; + c_733793.fn = (function_type)__lambda_496; +c_733793.num_args = 1; +c_733793.num_elements = 1; +c_733793.elements = (object *)alloca(sizeof(object) * 1); +c_733793.elements[0] = ((closureN)self_73926)->elements[1]; + + +object c_733801 = Cyc_list2string(data,(closure)&c_733793,((closureN)self_73926)->elements[0]); +return_closcall1(data,(closure)&c_733793, c_733801);; +} + +static void __lambda_496(void *data, int argc, object self_73927, object r_73382) { + +object c_733798 = Cyc_string2number2_(data, ((closureN)self_73927)->elements[0],1,r_73382); +return_closcall1(data, ((closureN)self_73927)->elements[0], c_733798);; +} + +static void __lambda_495(void *data, int argc, closure _,object k_73386, object a_73167) { + Cyc_st_add(data, "scheme/read.sld:token-numeric?"); + +closureN_type c_733702; +c_733702.hdr.mark = gc_color_red; + c_733702.hdr.grayed = 0; +c_733702.tag = closureN_tag; + c_733702.fn = (function_type)__lambda_494; +c_733702.num_args = 1; +c_733702.num_elements = 2; +c_733702.elements = (object *)alloca(sizeof(object) * 2); +c_733702.elements[0] = a_73167; +c_733702.elements[1] = k_73386; + +return_closcall1(data,(closure)&c_733702, car(a_73167));; +} + +static void __lambda_494(void *data, int argc, object self_73928, object r_73403) { + +closureN_type c_733704; +c_733704.hdr.mark = gc_color_red; + c_733704.hdr.grayed = 0; +c_733704.tag = closureN_tag; + c_733704.fn = (function_type)__lambda_493; +c_733704.num_args = 1; +c_733704.num_elements = 2; +c_733704.elements = (object *)alloca(sizeof(object) * 2); +c_733704.elements[0] = ((closureN)self_73928)->elements[0]; +c_733704.elements[1] = ((closureN)self_73928)->elements[1]; + +return_closcall2(data, __glo_char_91numeric_127_scheme__char, &c_733704, r_73403);; +} + +static void __lambda_493(void *data, int argc, object self_73929, object tmp_73168) { + if( (boolean_f != tmp_73168) ){ + return_closcall1(data, ((closureN)self_73929)->elements[1], tmp_73168); +} else { + +closureN_type c_733708; +c_733708.hdr.mark = gc_color_red; + c_733708.hdr.grayed = 0; +c_733708.tag = closureN_tag; + c_733708.fn = (function_type)__lambda_483; +c_733708.num_args = 0; +c_733708.num_elements = 1; +c_733708.elements = (object *)alloca(sizeof(object) * 1); +c_733708.elements[0] = ((closureN)self_73929)->elements[0]; + + +closureN_type c_733739; +c_733739.hdr.mark = gc_color_red; + c_733739.hdr.grayed = 0; +c_733739.tag = closureN_tag; + c_733739.fn = (function_type)__lambda_492; +c_733739.num_args = 1; +c_733739.num_elements = 2; +c_733739.elements = (object *)alloca(sizeof(object) * 2); +c_733739.elements[0] = ((closureN)self_73929)->elements[0]; +c_733739.elements[1] = ((closureN)self_73929)->elements[1]; + +return_closcall1(data,(closure)&c_733708, &c_733739);} +; +} + +static void __lambda_492(void *data, int argc, object self_73930, object tmp_73169) { + if( (boolean_f != tmp_73169) ){ + return_closcall1(data, ((closureN)self_73930)->elements[1], tmp_73169); +} else { + +closureN_type c_733743; +c_733743.hdr.mark = gc_color_red; + c_733743.hdr.grayed = 0; +c_733743.tag = closureN_tag; + c_733743.fn = (function_type)__lambda_491; +c_733743.num_args = 1; +c_733743.num_elements = 2; +c_733743.elements = (object *)alloca(sizeof(object) * 2); +c_733743.elements[0] = ((closureN)self_73930)->elements[0]; +c_733743.elements[1] = ((closureN)self_73930)->elements[1]; + +return_closcall1(data,(closure)&c_733743, Cyc_length(data, ((closureN)self_73930)->elements[0]));} +; +} + +static void __lambda_491(void *data, int argc, object self_73931, object r_73396) { + +closureN_type c_733745; +c_733745.hdr.mark = gc_color_red; + c_733745.hdr.grayed = 0; +c_733745.tag = closureN_tag; + c_733745.fn = (function_type)__lambda_490; +c_733745.num_args = 1; +c_733745.num_elements = 2; +c_733745.elements = (object *)alloca(sizeof(object) * 2); +c_733745.elements[0] = ((closureN)self_73931)->elements[0]; +c_733745.elements[1] = ((closureN)self_73931)->elements[1]; + + +object c_733781 = Cyc_num_gt(data,(closure)&c_733745,2,r_73396, obj_int2obj(1)); +return_closcall1(data,(closure)&c_733745, c_733781);; +} + +static void __lambda_490(void *data, int argc, object self_73932, object r_73389) { + if( (boolean_f != r_73389) ){ + +closureN_type c_733747; +c_733747.hdr.mark = gc_color_red; + c_733747.hdr.grayed = 0; +c_733747.tag = closureN_tag; + c_733747.fn = (function_type)__lambda_489; +c_733747.num_args = 1; +c_733747.num_elements = 2; +c_733747.elements = (object *)alloca(sizeof(object) * 2); +c_733747.elements[0] = ((closureN)self_73932)->elements[0]; +c_733747.elements[1] = ((closureN)self_73932)->elements[1]; + +return_closcall1(data,(closure)&c_733747, cadr(((closureN)self_73932)->elements[0])); +} else { + return_closcall1(data, ((closureN)self_73932)->elements[1], boolean_f);} +; +} + +static void __lambda_489(void *data, int argc, object self_73933, object r_73395) { + +closureN_type c_733749; +c_733749.hdr.mark = gc_color_red; + c_733749.hdr.grayed = 0; +c_733749.tag = closureN_tag; + c_733749.fn = (function_type)__lambda_488; +c_733749.num_args = 1; +c_733749.num_elements = 2; +c_733749.elements = (object *)alloca(sizeof(object) * 2); +c_733749.elements[0] = ((closureN)self_73933)->elements[0]; +c_733749.elements[1] = ((closureN)self_73933)->elements[1]; + +return_closcall2(data, __glo_char_91numeric_127_scheme__char, &c_733749, r_73395);; +} + +static void __lambda_488(void *data, int argc, object self_73934, object tmp_73170) { + +closureN_type c_733751; +c_733751.hdr.mark = gc_color_red; + c_733751.hdr.grayed = 0; +c_733751.tag = closureN_tag; + c_733751.fn = (function_type)__lambda_485; +c_733751.num_args = 0; +c_733751.num_elements = 2; +c_733751.elements = (object *)alloca(sizeof(object) * 2); +c_733751.elements[0] = ((closureN)self_73934)->elements[0]; +c_733751.elements[1] = tmp_73170; + + +closureN_type c_733764; +c_733764.hdr.mark = gc_color_red; + c_733764.hdr.grayed = 0; +c_733764.tag = closureN_tag; + c_733764.fn = (function_type)__lambda_487; +c_733764.num_args = 1; +c_733764.num_elements = 2; +c_733764.elements = (object *)alloca(sizeof(object) * 2); +c_733764.elements[0] = ((closureN)self_73934)->elements[0]; +c_733764.elements[1] = ((closureN)self_73934)->elements[1]; + +return_closcall1(data,(closure)&c_733751, &c_733764);; +} + +static void __lambda_487(void *data, int argc, object self_73935, object r_73390) { + if( (boolean_f != r_73390) ){ + +closureN_type c_733766; +c_733766.hdr.mark = gc_color_red; + c_733766.hdr.grayed = 0; +c_733766.tag = closureN_tag; + c_733766.fn = (function_type)__lambda_486; +c_733766.num_args = 1; +c_733766.num_elements = 1; +c_733766.elements = (object *)alloca(sizeof(object) * 1); +c_733766.elements[0] = ((closureN)self_73935)->elements[1]; + +return_closcall1(data,(closure)&c_733766, car(((closureN)self_73935)->elements[0])); +} else { + return_closcall1(data, ((closureN)self_73935)->elements[1], boolean_f);} +; +} + +static void __lambda_486(void *data, int argc, object self_73936, object r_73391) { + return_closcall2(data, __glo_sign_127_scheme_read, ((closureN)self_73936)->elements[0], r_73391);; +} + +static void __lambda_485(void *data, int argc, object self_73937, object k_73393) { + if( (boolean_f != ((closureN)self_73937)->elements[1]) ){ + return_closcall1(data, k_73393, ((closureN)self_73937)->elements[1]); +} else { + +closureN_type c_733756; +c_733756.hdr.mark = gc_color_red; + c_733756.hdr.grayed = 0; +c_733756.tag = closureN_tag; + c_733756.fn = (function_type)__lambda_484; +c_733756.num_args = 1; +c_733756.num_elements = 1; +c_733756.elements = (object *)alloca(sizeof(object) * 1); +c_733756.elements[0] = k_73393; + +return_closcall1(data,(closure)&c_733756, cadr(((closureN)self_73937)->elements[0]));} +; +} + +static void __lambda_484(void *data, int argc, object self_73938, object r_73394) { + return_closcall1(data, ((closureN)self_73938)->elements[0], Cyc_eq(obj_char2obj(46), r_73394));; +} + +static void __lambda_483(void *data, int argc, object self_73939, object k_73397) { + +closureN_type c_733710; +c_733710.hdr.mark = gc_color_red; + c_733710.hdr.grayed = 0; +c_733710.tag = closureN_tag; + c_733710.fn = (function_type)__lambda_482; +c_733710.num_args = 1; +c_733710.num_elements = 2; +c_733710.elements = (object *)alloca(sizeof(object) * 2); +c_733710.elements[0] = ((closureN)self_73939)->elements[0]; +c_733710.elements[1] = k_73397; + +return_closcall1(data,(closure)&c_733710, Cyc_length(data, ((closureN)self_73939)->elements[0]));; +} + +static void __lambda_482(void *data, int argc, object self_73940, object r_73402) { + +closureN_type c_733712; +c_733712.hdr.mark = gc_color_red; + c_733712.hdr.grayed = 0; +c_733712.tag = closureN_tag; + c_733712.fn = (function_type)__lambda_481; +c_733712.num_args = 1; +c_733712.num_elements = 2; +c_733712.elements = (object *)alloca(sizeof(object) * 2); +c_733712.elements[0] = ((closureN)self_73940)->elements[0]; +c_733712.elements[1] = ((closureN)self_73940)->elements[1]; + + +object c_733735 = Cyc_num_gt(data,(closure)&c_733712,2,r_73402, obj_int2obj(1)); +return_closcall1(data,(closure)&c_733712, c_733735);; +} + +static void __lambda_481(void *data, int argc, object self_73941, object r_73398) { + if( (boolean_f != r_73398) ){ + +closureN_type c_733714; +c_733714.hdr.mark = gc_color_red; + c_733714.hdr.grayed = 0; +c_733714.tag = closureN_tag; + c_733714.fn = (function_type)__lambda_480; +c_733714.num_args = 1; +c_733714.num_elements = 2; +c_733714.elements = (object *)alloca(sizeof(object) * 2); +c_733714.elements[0] = ((closureN)self_73941)->elements[0]; +c_733714.elements[1] = ((closureN)self_73941)->elements[1]; + +return_closcall1(data,(closure)&c_733714, car(((closureN)self_73941)->elements[0])); +} else { + return_closcall1(data, ((closureN)self_73941)->elements[1], boolean_f);} +; +} + +static void __lambda_480(void *data, int argc, object self_73942, object r_73401) { + +closureN_type c_733716; +c_733716.hdr.mark = gc_color_red; + c_733716.hdr.grayed = 0; +c_733716.tag = closureN_tag; + c_733716.fn = (function_type)__lambda_479; +c_733716.num_args = 1; +c_733716.num_elements = 2; +c_733716.elements = (object *)alloca(sizeof(object) * 2); +c_733716.elements[0] = ((closureN)self_73942)->elements[0]; +c_733716.elements[1] = ((closureN)self_73942)->elements[1]; + +return_closcall1(data,(closure)&c_733716, Cyc_eq(obj_char2obj(46), r_73401));; +} + +static void __lambda_479(void *data, int argc, object self_73943, object r_73399) { + if( (boolean_f != r_73399) ){ + +closureN_type c_733718; +c_733718.hdr.mark = gc_color_red; + c_733718.hdr.grayed = 0; +c_733718.tag = closureN_tag; + c_733718.fn = (function_type)__lambda_478; +c_733718.num_args = 1; +c_733718.num_elements = 1; +c_733718.elements = (object *)alloca(sizeof(object) * 1); +c_733718.elements[0] = ((closureN)self_73943)->elements[1]; + +return_closcall1(data,(closure)&c_733718, cadr(((closureN)self_73943)->elements[0])); +} else { + return_closcall1(data, ((closureN)self_73943)->elements[1], boolean_f);} +; +} + +static void __lambda_478(void *data, int argc, object self_73944, object r_73400) { + return_closcall2(data, __glo_char_91numeric_127_scheme__char, ((closureN)self_73944)->elements[0], r_73400);; +} + +static void __lambda_477(void *data, int argc, closure _,object k_73406, object c_73171) { + Cyc_st_add(data, "scheme/read.sld:sign?"); + +closureN_type c_733690; +c_733690.hdr.mark = gc_color_red; + c_733690.hdr.grayed = 0; +c_733690.tag = closureN_tag; + c_733690.fn = (function_type)__lambda_476; +c_733690.num_args = 1; +c_733690.num_elements = 2; +c_733690.elements = (object *)alloca(sizeof(object) * 2); +c_733690.elements[0] = c_73171; +c_733690.elements[1] = k_73406; + +return_closcall1(data,(closure)&c_733690, equalp(c_73171, obj_char2obj(43)));; +} + +static void __lambda_476(void *data, int argc, object self_73945, object tmp_73172) { + if( (boolean_f != tmp_73172) ){ + return_closcall1(data, ((closureN)self_73945)->elements[1], tmp_73172); +} else { + return_closcall1(data, ((closureN)self_73945)->elements[1], equalp(((closureN)self_73945)->elements[0], obj_char2obj(45)));} +; +} + +static void __lambda_475(void *data, int argc, closure _,object k_73410, object fp_73175, object buf_73174, object ptbl_73173) { + Cyc_st_add(data, "scheme/read.sld:read-str-esc"); + +closureN_type c_733604; +c_733604.hdr.mark = gc_color_red; + c_733604.hdr.grayed = 0; +c_733604.tag = closureN_tag; + c_733604.fn = (function_type)__lambda_474; +c_733604.num_args = 1; +c_733604.num_elements = 3; +c_733604.elements = (object *)alloca(sizeof(object) * 3); +c_733604.elements[0] = buf_73174; +c_733604.elements[1] = k_73410; +c_733604.elements[2] = ptbl_73173; + + +object c_733687 = Cyc_io_read_char(data,(closure)&c_733604,fp_73175); +return_closcall1(data,(closure)&c_733604, c_733687);; +} + +static void __lambda_474(void *data, int argc, object self_73946, object c_73176) { + +closureN_type c_733606; +c_733606.hdr.mark = gc_color_red; + c_733606.hdr.grayed = 0; +c_733606.tag = closureN_tag; + c_733606.fn = (function_type)__lambda_473; +c_733606.num_args = 1; +c_733606.num_elements = 4; +c_733606.elements = (object *)alloca(sizeof(object) * 4); +c_733606.elements[0] = ((closureN)self_73946)->elements[0]; +c_733606.elements[1] = c_73176; +c_733606.elements[2] = ((closureN)self_73946)->elements[1]; +c_733606.elements[3] = ((closureN)self_73946)->elements[2]; + +return_closcall1(data,(closure)&c_733606, Cyc_is_eof_object(c_73176));; +} + +static void __lambda_473(void *data, int argc, object self_73947, object r_73412) { + if( (boolean_f != r_73412) ){ + +closureN_type c_733608; +c_733608.hdr.mark = gc_color_red; + c_733608.hdr.grayed = 0; +c_733608.tag = closureN_tag; + c_733608.fn = (function_type)__lambda_460; +c_733608.num_args = 0; +c_733608.num_elements = 2; +c_733608.elements = (object *)alloca(sizeof(object) * 2); +c_733608.elements[0] = ((closureN)self_73947)->elements[2]; +c_733608.elements[1] = ((closureN)self_73947)->elements[3]; + +return_closcall0(data,(closure)&c_733608); +} else { + +closureN_type c_733620; +c_733620.hdr.mark = gc_color_red; + c_733620.hdr.grayed = 0; +c_733620.tag = closureN_tag; + c_733620.fn = (function_type)__lambda_472; +c_733620.num_args = 1; +c_733620.num_elements = 4; +c_733620.elements = (object *)alloca(sizeof(object) * 4); +c_733620.elements[0] = ((closureN)self_73947)->elements[0]; +c_733620.elements[1] = ((closureN)self_73947)->elements[1]; +c_733620.elements[2] = ((closureN)self_73947)->elements[2]; +c_733620.elements[3] = ((closureN)self_73947)->elements[3]; + +return_closcall1(data,(closure)&c_733620, equalp(obj_char2obj(34), ((closureN)self_73947)->elements[1]));} +; +} + +static void __lambda_472(void *data, int argc, object self_73948, object tmp_73177) { + +closureN_type c_733622; +c_733622.hdr.mark = gc_color_red; + c_733622.hdr.grayed = 0; +c_733622.tag = closureN_tag; + c_733622.fn = (function_type)__lambda_461; +c_733622.num_args = 0; +c_733622.num_elements = 2; +c_733622.elements = (object *)alloca(sizeof(object) * 2); +c_733622.elements[0] = ((closureN)self_73948)->elements[1]; +c_733622.elements[1] = tmp_73177; + + +closureN_type c_733630; +c_733630.hdr.mark = gc_color_red; + c_733630.hdr.grayed = 0; +c_733630.tag = closureN_tag; + c_733630.fn = (function_type)__lambda_471; +c_733630.num_args = 1; +c_733630.num_elements = 4; +c_733630.elements = (object *)alloca(sizeof(object) * 4); +c_733630.elements[0] = ((closureN)self_73948)->elements[0]; +c_733630.elements[1] = ((closureN)self_73948)->elements[1]; +c_733630.elements[2] = ((closureN)self_73948)->elements[2]; +c_733630.elements[3] = ((closureN)self_73948)->elements[3]; + +return_closcall1(data,(closure)&c_733622, &c_733630);; +} + +static void __lambda_471(void *data, int argc, object self_73949, object r_73415) { + if( (boolean_f != r_73415) ){ + +closureN_type c_733632; +c_733632.hdr.mark = gc_color_red; + c_733632.hdr.grayed = 0; +c_733632.tag = closureN_tag; + c_733632.fn = (function_type)__lambda_462; +c_733632.num_args = 0; +c_733632.num_elements = 3; +c_733632.elements = (object *)alloca(sizeof(object) * 3); +c_733632.elements[0] = ((closureN)self_73949)->elements[0]; +c_733632.elements[1] = ((closureN)self_73949)->elements[1]; +c_733632.elements[2] = ((closureN)self_73949)->elements[2]; + +return_closcall0(data,(closure)&c_733632); +} else { + +closureN_type c_733641; +c_733641.hdr.mark = gc_color_red; + c_733641.hdr.grayed = 0; +c_733641.tag = closureN_tag; + c_733641.fn = (function_type)__lambda_470; +c_733641.num_args = 1; +c_733641.num_elements = 4; +c_733641.elements = (object *)alloca(sizeof(object) * 4); +c_733641.elements[0] = ((closureN)self_73949)->elements[0]; +c_733641.elements[1] = ((closureN)self_73949)->elements[1]; +c_733641.elements[2] = ((closureN)self_73949)->elements[2]; +c_733641.elements[3] = ((closureN)self_73949)->elements[3]; + +return_closcall1(data,(closure)&c_733641, equalp(obj_char2obj(110), ((closureN)self_73949)->elements[1]));} +; +} + +static void __lambda_470(void *data, int argc, object self_73950, object r_73416) { + if( (boolean_f != r_73416) ){ + +closureN_type c_733643; +c_733643.hdr.mark = gc_color_red; + c_733643.hdr.grayed = 0; +c_733643.tag = closureN_tag; + c_733643.fn = (function_type)__lambda_463; +c_733643.num_args = 0; +c_733643.num_elements = 2; +c_733643.elements = (object *)alloca(sizeof(object) * 2); +c_733643.elements[0] = ((closureN)self_73950)->elements[0]; +c_733643.elements[1] = ((closureN)self_73950)->elements[2]; + +return_closcall0(data,(closure)&c_733643); +} else { + +closureN_type c_733651; +c_733651.hdr.mark = gc_color_red; + c_733651.hdr.grayed = 0; +c_733651.tag = closureN_tag; + c_733651.fn = (function_type)__lambda_469; +c_733651.num_args = 0; +c_733651.num_elements = 3; +c_733651.elements = (object *)alloca(sizeof(object) * 3); +c_733651.elements[0] = ((closureN)self_73950)->elements[1]; +c_733651.elements[1] = ((closureN)self_73950)->elements[2]; +c_733651.elements[2] = ((closureN)self_73950)->elements[3]; + +return_closcall0(data,(closure)&c_733651);} +; +} + +static void __lambda_469(void *data, int argc, object self_73951) { + +closureN_type c_733653; +c_733653.hdr.mark = gc_color_red; + c_733653.hdr.grayed = 0; +c_733653.tag = closureN_tag; + c_733653.fn = (function_type)__lambda_468; +c_733653.num_args = 1; +c_733653.num_elements = 2; +c_733653.elements = (object *)alloca(sizeof(object) * 2); +c_733653.elements[0] = ((closureN)self_73951)->elements[1]; +c_733653.elements[1] = ((closureN)self_73951)->elements[2]; + +return_closcall2(data, __glo__list_scheme_base, &c_733653, ((closureN)self_73951)->elements[0]);; +} + +static void __lambda_468(void *data, int argc, object self_73952, object r_73421) { + +closureN_type c_733655; +c_733655.hdr.mark = gc_color_red; + c_733655.hdr.grayed = 0; +c_733655.tag = closureN_tag; + c_733655.fn = (function_type)__lambda_467; +c_733655.num_args = 1; +c_733655.num_elements = 2; +c_733655.elements = (object *)alloca(sizeof(object) * 2); +c_733655.elements[0] = ((closureN)self_73952)->elements[0]; +c_733655.elements[1] = ((closureN)self_73952)->elements[1]; + + +object c_733675 = Cyc_list2string(data,(closure)&c_733655,r_73421); +return_closcall1(data,(closure)&c_733655, c_733675);; +} + +static void __lambda_467(void *data, int argc, object self_73953, object r_73420) { + +closureN_type c_733657; +c_733657.hdr.mark = gc_color_red; + c_733657.hdr.grayed = 0; +c_733657.tag = closureN_tag; + c_733657.fn = (function_type)__lambda_466; +c_733657.num_args = 1; +c_733657.num_elements = 2; +c_733657.elements = (object *)alloca(sizeof(object) * 2); +c_733657.elements[0] = ((closureN)self_73953)->elements[0]; +c_733657.elements[1] = ((closureN)self_73953)->elements[1]; + + +make_string(c_733671, "invalid escape character ["); + +make_string(c_733672, "] in string"); + +object c_733670 = Cyc_string_append(data,(closure)&c_733657,3,&c_733671, r_73420, &c_733672); +return_closcall1(data,(closure)&c_733657, c_733670);; +} + +static void __lambda_466(void *data, int argc, object self_73954, object r_73417) { + +closureN_type c_733659; +c_733659.hdr.mark = gc_color_red; + c_733659.hdr.grayed = 0; +c_733659.tag = closureN_tag; + c_733659.fn = (function_type)__lambda_465; +c_733659.num_args = 1; +c_733659.num_elements = 3; +c_733659.elements = (object *)alloca(sizeof(object) * 3); +c_733659.elements[0] = ((closureN)self_73954)->elements[0]; +c_733659.elements[1] = ((closureN)self_73954)->elements[1]; +c_733659.elements[2] = r_73417; + +return_closcall2(data, __glo_in_91port_117get_91lnum_scheme_read, &c_733659, ((closureN)self_73954)->elements[1]);; +} + +static void __lambda_465(void *data, int argc, object self_73955, object r_73418) { + +closureN_type c_733661; +c_733661.hdr.mark = gc_color_red; + c_733661.hdr.grayed = 0; +c_733661.tag = closureN_tag; + c_733661.fn = (function_type)__lambda_464; +c_733661.num_args = 1; +c_733661.num_elements = 3; +c_733661.elements = (object *)alloca(sizeof(object) * 3); +c_733661.elements[0] = ((closureN)self_73955)->elements[0]; +c_733661.elements[1] = ((closureN)self_73955)->elements[2]; +c_733661.elements[2] = r_73418; + +return_closcall2(data, __glo_in_91port_117get_91cnum_scheme_read, &c_733661, ((closureN)self_73955)->elements[1]);; +} + +static void __lambda_464(void *data, int argc, object self_73956, object r_73419) { + return_closcall4(data, __glo_parse_91error_scheme_read, ((closureN)self_73956)->elements[0], ((closureN)self_73956)->elements[1], ((closureN)self_73956)->elements[2], r_73419);; +} + +static void __lambda_463(void *data, int argc, object self_73957) { + +make_pair(c_733648,obj_char2obj(10), ((closureN)self_73957)->elements[0]); +return_closcall1(data, ((closureN)self_73957)->elements[1], &c_733648);; +} + +static void __lambda_462(void *data, int argc, object self_73958) { + +make_pair(c_733637,((closureN)self_73958)->elements[1], ((closureN)self_73958)->elements[0]); +return_closcall1(data, ((closureN)self_73958)->elements[2], &c_733637);; +} + +static void __lambda_461(void *data, int argc, object self_73959, object k_73423) { + if( (boolean_f != ((closureN)self_73959)->elements[1]) ){ + return_closcall1(data, k_73423, ((closureN)self_73959)->elements[1]); +} else { + return_closcall1(data, k_73423, equalp(obj_char2obj(92), ((closureN)self_73959)->elements[0]));} +; +} + +static void __lambda_460(void *data, int argc, object self_73960) { + +closureN_type c_733610; +c_733610.hdr.mark = gc_color_red; + c_733610.hdr.grayed = 0; +c_733610.tag = closureN_tag; + c_733610.fn = (function_type)__lambda_459; +c_733610.num_args = 1; +c_733610.num_elements = 2; +c_733610.elements = (object *)alloca(sizeof(object) * 2); +c_733610.elements[0] = ((closureN)self_73960)->elements[0]; +c_733610.elements[1] = ((closureN)self_73960)->elements[1]; + +return_closcall2(data, __glo_in_91port_117get_91lnum_scheme_read, &c_733610, ((closureN)self_73960)->elements[1]);; +} + +static void __lambda_459(void *data, int argc, object self_73961, object r_73413) { + +closureN_type c_733612; +c_733612.hdr.mark = gc_color_red; + c_733612.hdr.grayed = 0; +c_733612.tag = closureN_tag; + c_733612.fn = (function_type)__lambda_458; +c_733612.num_args = 1; +c_733612.num_elements = 2; +c_733612.elements = (object *)alloca(sizeof(object) * 2); +c_733612.elements[0] = ((closureN)self_73961)->elements[0]; +c_733612.elements[1] = r_73413; + +return_closcall2(data, __glo_in_91port_117get_91cnum_scheme_read, &c_733612, ((closureN)self_73961)->elements[1]);; +} + +static void __lambda_458(void *data, int argc, object self_73962, object r_73414) { + +make_string(c_733615, "missing escaped character within string"); +return_closcall4(data, __glo_parse_91error_scheme_read, ((closureN)self_73962)->elements[0], &c_733615, ((closureN)self_73962)->elements[1], r_73414);; +} + +static void __lambda_457(void *data, int argc, closure _,object k_73426, object fp_73180, object buf_73179, object ptbl_73178) { + Cyc_st_add(data, "scheme/read.sld:read-str"); + +closureN_type c_733538; +c_733538.hdr.mark = gc_color_red; + c_733538.hdr.grayed = 0; +c_733538.tag = closureN_tag; + c_733538.fn = (function_type)__lambda_456; +c_733538.num_args = 1; +c_733538.num_elements = 4; +c_733538.elements = (object *)alloca(sizeof(object) * 4); +c_733538.elements[0] = buf_73179; +c_733538.elements[1] = fp_73180; +c_733538.elements[2] = k_73426; +c_733538.elements[3] = ptbl_73178; + + +object c_733601 = Cyc_io_read_char(data,(closure)&c_733538,fp_73180); +return_closcall1(data,(closure)&c_733538, c_733601);; +} + +static void __lambda_456(void *data, int argc, object self_73963, object c_73181) { + +closureN_type c_733540; +c_733540.hdr.mark = gc_color_red; + c_733540.hdr.grayed = 0; +c_733540.tag = closureN_tag; + c_733540.fn = (function_type)__lambda_455; +c_733540.num_args = 1; +c_733540.num_elements = 5; +c_733540.elements = (object *)alloca(sizeof(object) * 5); +c_733540.elements[0] = ((closureN)self_73963)->elements[0]; +c_733540.elements[1] = c_73181; +c_733540.elements[2] = ((closureN)self_73963)->elements[1]; +c_733540.elements[3] = ((closureN)self_73963)->elements[2]; +c_733540.elements[4] = ((closureN)self_73963)->elements[3]; + +return_closcall1(data,(closure)&c_733540, Cyc_is_eof_object(c_73181));; +} + +static void __lambda_455(void *data, int argc, object self_73964, object r_73428) { + if( (boolean_f != r_73428) ){ + +closureN_type c_733542; +c_733542.hdr.mark = gc_color_red; + c_733542.hdr.grayed = 0; +c_733542.tag = closureN_tag; + c_733542.fn = (function_type)__lambda_446; +c_733542.num_args = 0; +c_733542.num_elements = 2; +c_733542.elements = (object *)alloca(sizeof(object) * 2); +c_733542.elements[0] = ((closureN)self_73964)->elements[3]; +c_733542.elements[1] = ((closureN)self_73964)->elements[4]; + +return_closcall0(data,(closure)&c_733542); +} else { + +closureN_type c_733554; +c_733554.hdr.mark = gc_color_red; + c_733554.hdr.grayed = 0; +c_733554.tag = closureN_tag; + c_733554.fn = (function_type)__lambda_454; +c_733554.num_args = 1; +c_733554.num_elements = 5; +c_733554.elements = (object *)alloca(sizeof(object) * 5); +c_733554.elements[0] = ((closureN)self_73964)->elements[0]; +c_733554.elements[1] = ((closureN)self_73964)->elements[1]; +c_733554.elements[2] = ((closureN)self_73964)->elements[2]; +c_733554.elements[3] = ((closureN)self_73964)->elements[3]; +c_733554.elements[4] = ((closureN)self_73964)->elements[4]; + +return_closcall1(data,(closure)&c_733554, equalp(obj_char2obj(92), ((closureN)self_73964)->elements[1]));} +; +} + +static void __lambda_454(void *data, int argc, object self_73965, object r_73431) { + if( (boolean_f != r_73431) ){ + +closureN_type c_733556; +c_733556.hdr.mark = gc_color_red; + c_733556.hdr.grayed = 0; +c_733556.tag = closureN_tag; + c_733556.fn = (function_type)__lambda_448; +c_733556.num_args = 0; +c_733556.num_elements = 4; +c_733556.elements = (object *)alloca(sizeof(object) * 4); +c_733556.elements[0] = ((closureN)self_73965)->elements[0]; +c_733556.elements[1] = ((closureN)self_73965)->elements[2]; +c_733556.elements[2] = ((closureN)self_73965)->elements[3]; +c_733556.elements[3] = ((closureN)self_73965)->elements[4]; + +return_closcall0(data,(closure)&c_733556); +} else { + +closureN_type c_733567; +c_733567.hdr.mark = gc_color_red; + c_733567.hdr.grayed = 0; +c_733567.tag = closureN_tag; + c_733567.fn = (function_type)__lambda_453; +c_733567.num_args = 1; +c_733567.num_elements = 5; +c_733567.elements = (object *)alloca(sizeof(object) * 5); +c_733567.elements[0] = ((closureN)self_73965)->elements[0]; +c_733567.elements[1] = ((closureN)self_73965)->elements[1]; +c_733567.elements[2] = ((closureN)self_73965)->elements[2]; +c_733567.elements[3] = ((closureN)self_73965)->elements[3]; +c_733567.elements[4] = ((closureN)self_73965)->elements[4]; + +return_closcall1(data,(closure)&c_733567, equalp(obj_char2obj(34), ((closureN)self_73965)->elements[1]));} +; +} + +static void __lambda_453(void *data, int argc, object self_73966, object r_73433) { + if( (boolean_f != r_73433) ){ + +closureN_type c_733569; +c_733569.hdr.mark = gc_color_red; + c_733569.hdr.grayed = 0; +c_733569.tag = closureN_tag; + c_733569.fn = (function_type)__lambda_450; +c_733569.num_args = 0; +c_733569.num_elements = 2; +c_733569.elements = (object *)alloca(sizeof(object) * 2); +c_733569.elements[0] = ((closureN)self_73966)->elements[0]; +c_733569.elements[1] = ((closureN)self_73966)->elements[3]; + +return_closcall0(data,(closure)&c_733569); +} else { + +closureN_type c_733579; +c_733579.hdr.mark = gc_color_red; + c_733579.hdr.grayed = 0; +c_733579.tag = closureN_tag; + c_733579.fn = (function_type)__lambda_452; +c_733579.num_args = 0; +c_733579.num_elements = 5; +c_733579.elements = (object *)alloca(sizeof(object) * 5); +c_733579.elements[0] = ((closureN)self_73966)->elements[0]; +c_733579.elements[1] = ((closureN)self_73966)->elements[1]; +c_733579.elements[2] = ((closureN)self_73966)->elements[2]; +c_733579.elements[3] = ((closureN)self_73966)->elements[3]; +c_733579.elements[4] = ((closureN)self_73966)->elements[4]; + +return_closcall0(data,(closure)&c_733579);} +; +} + +static void __lambda_452(void *data, int argc, object self_73967) { + +closureN_type c_733581; +c_733581.hdr.mark = gc_color_red; + c_733581.hdr.grayed = 0; +c_733581.tag = closureN_tag; + c_733581.fn = (function_type)__lambda_451; +c_733581.num_args = 1; +c_733581.num_elements = 3; +c_733581.elements = (object *)alloca(sizeof(object) * 3); +c_733581.elements[0] = ((closureN)self_73967)->elements[2]; +c_733581.elements[1] = ((closureN)self_73967)->elements[3]; +c_733581.elements[2] = ((closureN)self_73967)->elements[4]; + + +make_pair(c_733588,((closureN)self_73967)->elements[1], ((closureN)self_73967)->elements[0]); +return_closcall1(data,(closure)&c_733581, &c_733588);; +} + +static void __lambda_451(void *data, int argc, object self_73968, object r_73435) { + return_closcall4(data, __glo_read_91str_scheme_read, ((closureN)self_73968)->elements[1], ((closureN)self_73968)->elements[0], r_73435, ((closureN)self_73968)->elements[2]);; +} + +static void __lambda_450(void *data, int argc, object self_73969) { + +closureN_type c_733571; +c_733571.hdr.mark = gc_color_red; + c_733571.hdr.grayed = 0; +c_733571.tag = closureN_tag; + c_733571.fn = (function_type)__lambda_449; +c_733571.num_args = 1; +c_733571.num_elements = 1; +c_733571.elements = (object *)alloca(sizeof(object) * 1); +c_733571.elements[0] = ((closureN)self_73969)->elements[1]; + +return_closcall2(data, __glo_reverse_scheme_base, &c_733571, ((closureN)self_73969)->elements[0]);; +} + +static void __lambda_449(void *data, int argc, object self_73970, object r_73434) { + +object c_733576 = Cyc_list2string(data, ((closureN)self_73970)->elements[0],r_73434); +return_closcall1(data, ((closureN)self_73970)->elements[0], c_733576);; +} + +static void __lambda_448(void *data, int argc, object self_73971) { + +closureN_type c_733558; +c_733558.hdr.mark = gc_color_red; + c_733558.hdr.grayed = 0; +c_733558.tag = closureN_tag; + c_733558.fn = (function_type)__lambda_447; +c_733558.num_args = 1; +c_733558.num_elements = 3; +c_733558.elements = (object *)alloca(sizeof(object) * 3); +c_733558.elements[0] = ((closureN)self_73971)->elements[1]; +c_733558.elements[1] = ((closureN)self_73971)->elements[2]; +c_733558.elements[2] = ((closureN)self_73971)->elements[3]; + +return_closcall4(data, __glo_read_91str_91esc_scheme_read, &c_733558, ((closureN)self_73971)->elements[1], ((closureN)self_73971)->elements[0], ((closureN)self_73971)->elements[3]);; +} + +static void __lambda_447(void *data, int argc, object self_73972, object r_73432) { + return_closcall4(data, __glo_read_91str_scheme_read, ((closureN)self_73972)->elements[1], ((closureN)self_73972)->elements[0], r_73432, ((closureN)self_73972)->elements[2]);; +} + +static void __lambda_446(void *data, int argc, object self_73973) { + +closureN_type c_733544; +c_733544.hdr.mark = gc_color_red; + c_733544.hdr.grayed = 0; +c_733544.tag = closureN_tag; + c_733544.fn = (function_type)__lambda_445; +c_733544.num_args = 1; +c_733544.num_elements = 2; +c_733544.elements = (object *)alloca(sizeof(object) * 2); +c_733544.elements[0] = ((closureN)self_73973)->elements[0]; +c_733544.elements[1] = ((closureN)self_73973)->elements[1]; + +return_closcall2(data, __glo_in_91port_117get_91lnum_scheme_read, &c_733544, ((closureN)self_73973)->elements[1]);; +} + +static void __lambda_445(void *data, int argc, object self_73974, object r_73429) { + +closureN_type c_733546; +c_733546.hdr.mark = gc_color_red; + c_733546.hdr.grayed = 0; +c_733546.tag = closureN_tag; + c_733546.fn = (function_type)__lambda_444; +c_733546.num_args = 1; +c_733546.num_elements = 2; +c_733546.elements = (object *)alloca(sizeof(object) * 2); +c_733546.elements[0] = ((closureN)self_73974)->elements[0]; +c_733546.elements[1] = r_73429; + +return_closcall2(data, __glo_in_91port_117get_91cnum_scheme_read, &c_733546, ((closureN)self_73974)->elements[1]);; +} + +static void __lambda_444(void *data, int argc, object self_73975, object r_73430) { + +make_string(c_733549, "missing closing double-quote"); +return_closcall4(data, __glo_parse_91error_scheme_read, ((closureN)self_73975)->elements[0], &c_733549, ((closureN)self_73975)->elements[1], r_73430);; +} + +static void __lambda_443(void *data, int argc, closure _,object k_73438, object fp_73183, object ptbl_73182) { + Cyc_st_add(data, "scheme/read.sld:read-pound"); + +closureN_type c_733160; +c_733160.hdr.mark = gc_color_red; + c_733160.hdr.grayed = 0; +c_733160.tag = closureN_tag; + c_733160.fn = (function_type)__lambda_442; +c_733160.num_args = 2; +c_733160.num_elements = 3; +c_733160.elements = (object *)alloca(sizeof(object) * 3); +c_733160.elements[0] = fp_73183; +c_733160.elements[1] = k_73438; +c_733160.elements[2] = ptbl_73182; + +return_closcall2(data,(closure)&c_733160, boolean_f, boolean_f);; +} + +static void __lambda_442(void *data, int argc, object self_73976, object done_73187, object loop_73186) { + +closureN_type c_733162; +c_733162.hdr.mark = gc_color_red; + c_733162.hdr.grayed = 0; +c_733162.tag = closureN_tag; + c_733162.fn = (function_type)__lambda_441; +c_733162.num_args = 1; +c_733162.num_elements = 4; +c_733162.elements = (object *)alloca(sizeof(object) * 4); +c_733162.elements[0] = ((closureN)self_73976)->elements[0]; +c_733162.elements[1] = ((closureN)self_73976)->elements[1]; +c_733162.elements[2] = loop_73186; +c_733162.elements[3] = ((closureN)self_73976)->elements[2]; + + +make_cell(c_733535,done_73187); +return_closcall1(data,(closure)&c_733162, &c_733535);; +} + +static void __lambda_441(void *data, int argc, object self_73977, object done_73187) { + +closureN_type c_733164; +c_733164.hdr.mark = gc_color_red; + c_733164.hdr.grayed = 0; +c_733164.tag = closureN_tag; + c_733164.fn = (function_type)__lambda_440; +c_733164.num_args = 1; +c_733164.num_elements = 4; +c_733164.elements = (object *)alloca(sizeof(object) * 4); +c_733164.elements[0] = done_73187; +c_733164.elements[1] = ((closureN)self_73977)->elements[0]; +c_733164.elements[2] = ((closureN)self_73977)->elements[1]; +c_733164.elements[3] = ((closureN)self_73977)->elements[3]; + + +make_cell(c_733531,((closureN)self_73977)->elements[2]); +return_closcall1(data,(closure)&c_733164, &c_733531);; +} + +static void __lambda_440(void *data, int argc, object self_73978, object loop_73186) { + +closureN_type c_733166; +c_733166.hdr.mark = gc_color_red; + c_733166.hdr.grayed = 0; +c_733166.tag = closureN_tag; + c_733166.fn = (function_type)__lambda_439; +c_733166.num_args = 0; +c_733166.num_elements = 5; +c_733166.elements = (object *)alloca(sizeof(object) * 5); +c_733166.elements[0] = ((closureN)self_73978)->elements[0]; +c_733166.elements[1] = ((closureN)self_73978)->elements[1]; +c_733166.elements[2] = ((closureN)self_73978)->elements[2]; +c_733166.elements[3] = loop_73186; +c_733166.elements[4] = ((closureN)self_73978)->elements[3]; + +return_closcall0(data,(closure)&c_733166);; +} + +static void __lambda_439(void *data, int argc, object self_73979) { + +closureN_type c_733168; +c_733168.hdr.mark = gc_color_red; + c_733168.hdr.grayed = 0; +c_733168.tag = closureN_tag; + c_733168.fn = (function_type)__lambda_387; +c_733168.num_args = 1; +c_733168.num_elements = 4; +c_733168.elements = (object *)alloca(sizeof(object) * 4); +c_733168.elements[0] = ((closureN)self_73979)->elements[0]; +c_733168.elements[1] = ((closureN)self_73979)->elements[1]; +c_733168.elements[2] = ((closureN)self_73979)->elements[2]; +c_733168.elements[3] = ((closureN)self_73979)->elements[3]; + + +closureN_type c_733269; +c_733269.hdr.mark = gc_color_red; + c_733269.hdr.grayed = 0; +c_733269.tag = closureN_tag; + c_733269.fn = (function_type)__lambda_438; +c_733269.num_args = 1; +c_733269.num_elements = 1; +c_733269.elements = (object *)alloca(sizeof(object) * 1); +c_733269.elements[0] = ((closureN)self_73979)->elements[4]; + +return_closcall1(data,(closure)&c_733168, &c_733269);; +} + +static void __lambda_438(void *data, int argc, object self_73980, object k_73457, object raw_91buf_73194) { + +closureN_type c_733271; +c_733271.hdr.mark = gc_color_red; + c_733271.hdr.grayed = 0; +c_733271.tag = closureN_tag; + c_733271.fn = (function_type)__lambda_437; +c_733271.num_args = 1; +c_733271.num_elements = 2; +c_733271.elements = (object *)alloca(sizeof(object) * 2); +c_733271.elements[0] = k_73457; +c_733271.elements[1] = ((closureN)self_73980)->elements[0]; + +return_closcall2(data, __glo_reverse_scheme_base, &c_733271, raw_91buf_73194);; +} + +static void __lambda_437(void *data, int argc, object self_73981, object buf_73195) { + +closureN_type c_733273; +c_733273.hdr.mark = gc_color_red; + c_733273.hdr.grayed = 0; +c_733273.tag = closureN_tag; + c_733273.fn = (function_type)__lambda_436; +c_733273.num_args = 1; +c_733273.num_elements = 3; +c_733273.elements = (object *)alloca(sizeof(object) * 3); +c_733273.elements[0] = buf_73195; +c_733273.elements[1] = ((closureN)self_73981)->elements[0]; +c_733273.elements[2] = ((closureN)self_73981)->elements[1]; + +return_closcall1(data,(closure)&c_733273, Cyc_length(data, buf_73195));; +} + +static void __lambda_436(void *data, int argc, object self_73982, object r_73494) { + +closureN_type c_733275; +c_733275.hdr.mark = gc_color_red; + c_733275.hdr.grayed = 0; +c_733275.tag = closureN_tag; + c_733275.fn = (function_type)__lambda_435; +c_733275.num_args = 1; +c_733275.num_elements = 3; +c_733275.elements = (object *)alloca(sizeof(object) * 3); +c_733275.elements[0] = ((closureN)self_73982)->elements[0]; +c_733275.elements[1] = ((closureN)self_73982)->elements[1]; +c_733275.elements[2] = ((closureN)self_73982)->elements[2]; + + +object c_733526 = Cyc_num_eq(data,(closure)&c_733275,2,obj_int2obj(0), r_73494); +return_closcall1(data,(closure)&c_733275, c_733526);; +} + +static void __lambda_435(void *data, int argc, object self_73983, object r_73459) { + if( (boolean_f != r_73459) ){ + +closureN_type c_733277; +c_733277.hdr.mark = gc_color_red; + c_733277.hdr.grayed = 0; +c_733277.tag = closureN_tag; + c_733277.fn = (function_type)__lambda_390; +c_733277.num_args = 0; +c_733277.num_elements = 2; +c_733277.elements = (object *)alloca(sizeof(object) * 2); +c_733277.elements[0] = ((closureN)self_73983)->elements[1]; +c_733277.elements[1] = ((closureN)self_73983)->elements[2]; + +return_closcall0(data,(closure)&c_733277); +} else { + +closureN_type c_733289; +c_733289.hdr.mark = gc_color_red; + c_733289.hdr.grayed = 0; +c_733289.tag = closureN_tag; + c_733289.fn = (function_type)__lambda_434; +c_733289.num_args = 1; +c_733289.num_elements = 3; +c_733289.elements = (object *)alloca(sizeof(object) * 3); +c_733289.elements[0] = ((closureN)self_73983)->elements[0]; +c_733289.elements[1] = ((closureN)self_73983)->elements[1]; +c_733289.elements[2] = ((closureN)self_73983)->elements[2]; + +return_closcall1(data,(closure)&c_733289, Cyc_length(data, ((closureN)self_73983)->elements[0]));} +; +} + +static void __lambda_434(void *data, int argc, object self_73984, object r_73493) { + +closureN_type c_733291; +c_733291.hdr.mark = gc_color_red; + c_733291.hdr.grayed = 0; +c_733291.tag = closureN_tag; + c_733291.fn = (function_type)__lambda_433; +c_733291.num_args = 1; +c_733291.num_elements = 3; +c_733291.elements = (object *)alloca(sizeof(object) * 3); +c_733291.elements[0] = ((closureN)self_73984)->elements[0]; +c_733291.elements[1] = ((closureN)self_73984)->elements[1]; +c_733291.elements[2] = ((closureN)self_73984)->elements[2]; + + +object c_733520 = Cyc_num_eq(data,(closure)&c_733291,2,obj_int2obj(1), r_73493); +return_closcall1(data,(closure)&c_733291, c_733520);; +} + +static void __lambda_433(void *data, int argc, object self_73985, object r_73462) { + if( (boolean_f != r_73462) ){ + +closureN_type c_733293; +c_733293.hdr.mark = gc_color_red; + c_733293.hdr.grayed = 0; +c_733293.tag = closureN_tag; + c_733293.fn = (function_type)__lambda_391; +c_733293.num_args = 0; +c_733293.num_elements = 2; +c_733293.elements = (object *)alloca(sizeof(object) * 2); +c_733293.elements[0] = ((closureN)self_73985)->elements[0]; +c_733293.elements[1] = ((closureN)self_73985)->elements[1]; + +return_closcall0(data,(closure)&c_733293); +} else { + +closureN_type c_733300; +c_733300.hdr.mark = gc_color_red; + c_733300.hdr.grayed = 0; +c_733300.tag = closureN_tag; + c_733300.fn = (function_type)__lambda_432; +c_733300.num_args = 1; +c_733300.num_elements = 3; +c_733300.elements = (object *)alloca(sizeof(object) * 3); +c_733300.elements[0] = ((closureN)self_73985)->elements[0]; +c_733300.elements[1] = ((closureN)self_73985)->elements[1]; +c_733300.elements[2] = ((closureN)self_73985)->elements[2]; + + +make_pair(c_733517,obj_char2obj(109),NULL); + +make_pair(c_733516,obj_char2obj(114),&c_733517); + +make_pair(c_733515,obj_char2obj(97),&c_733516); + +make_pair(c_733514,obj_char2obj(108),&c_733515); + +make_pair(c_733513,obj_char2obj(97),&c_733514); +return_closcall1(data,(closure)&c_733300, &c_733513);} +; +} + +static void __lambda_432(void *data, int argc, object self_73986, object r_73492) { + +closureN_type c_733302; +c_733302.hdr.mark = gc_color_red; + c_733302.hdr.grayed = 0; +c_733302.tag = closureN_tag; + c_733302.fn = (function_type)__lambda_431; +c_733302.num_args = 1; +c_733302.num_elements = 3; +c_733302.elements = (object *)alloca(sizeof(object) * 3); +c_733302.elements[0] = ((closureN)self_73986)->elements[0]; +c_733302.elements[1] = ((closureN)self_73986)->elements[1]; +c_733302.elements[2] = ((closureN)self_73986)->elements[2]; + +return_closcall1(data,(closure)&c_733302, equalp(((closureN)self_73986)->elements[0], r_73492));; +} + +static void __lambda_431(void *data, int argc, object self_73987, object r_73463) { + if( (boolean_f != r_73463) ){ + +closureN_type c_733304; +c_733304.hdr.mark = gc_color_red; + c_733304.hdr.grayed = 0; +c_733304.tag = closureN_tag; + c_733304.fn = (function_type)__lambda_392; +c_733304.num_args = 0; +c_733304.num_elements = 1; +c_733304.elements = (object *)alloca(sizeof(object) * 1); +c_733304.elements[0] = ((closureN)self_73987)->elements[1]; + +return_closcall0(data,(closure)&c_733304); +} else { + +closureN_type c_733308; +c_733308.hdr.mark = gc_color_red; + c_733308.hdr.grayed = 0; +c_733308.tag = closureN_tag; + c_733308.fn = (function_type)__lambda_430; +c_733308.num_args = 1; +c_733308.num_elements = 3; +c_733308.elements = (object *)alloca(sizeof(object) * 3); +c_733308.elements[0] = ((closureN)self_73987)->elements[0]; +c_733308.elements[1] = ((closureN)self_73987)->elements[1]; +c_733308.elements[2] = ((closureN)self_73987)->elements[2]; + + +make_pair(c_733509,obj_char2obj(101),NULL); + +make_pair(c_733508,obj_char2obj(99),&c_733509); + +make_pair(c_733507,obj_char2obj(97),&c_733508); + +make_pair(c_733506,obj_char2obj(112),&c_733507); + +make_pair(c_733505,obj_char2obj(115),&c_733506); + +make_pair(c_733504,obj_char2obj(107),&c_733505); + +make_pair(c_733503,obj_char2obj(99),&c_733504); + +make_pair(c_733502,obj_char2obj(97),&c_733503); + +make_pair(c_733501,obj_char2obj(98),&c_733502); +return_closcall1(data,(closure)&c_733308, &c_733501);} +; +} + +static void __lambda_430(void *data, int argc, object self_73988, object r_73491) { + +closureN_type c_733310; +c_733310.hdr.mark = gc_color_red; + c_733310.hdr.grayed = 0; +c_733310.tag = closureN_tag; + c_733310.fn = (function_type)__lambda_429; +c_733310.num_args = 1; +c_733310.num_elements = 3; +c_733310.elements = (object *)alloca(sizeof(object) * 3); +c_733310.elements[0] = ((closureN)self_73988)->elements[0]; +c_733310.elements[1] = ((closureN)self_73988)->elements[1]; +c_733310.elements[2] = ((closureN)self_73988)->elements[2]; + +return_closcall1(data,(closure)&c_733310, equalp(((closureN)self_73988)->elements[0], r_73491));; +} + +static void __lambda_429(void *data, int argc, object self_73989, object r_73464) { + if( (boolean_f != r_73464) ){ + +closureN_type c_733312; +c_733312.hdr.mark = gc_color_red; + c_733312.hdr.grayed = 0; +c_733312.tag = closureN_tag; + c_733312.fn = (function_type)__lambda_393; +c_733312.num_args = 0; +c_733312.num_elements = 1; +c_733312.elements = (object *)alloca(sizeof(object) * 1); +c_733312.elements[0] = ((closureN)self_73989)->elements[1]; + +return_closcall0(data,(closure)&c_733312); +} else { + +closureN_type c_733316; +c_733316.hdr.mark = gc_color_red; + c_733316.hdr.grayed = 0; +c_733316.tag = closureN_tag; + c_733316.fn = (function_type)__lambda_428; +c_733316.num_args = 1; +c_733316.num_elements = 3; +c_733316.elements = (object *)alloca(sizeof(object) * 3); +c_733316.elements[0] = ((closureN)self_73989)->elements[0]; +c_733316.elements[1] = ((closureN)self_73989)->elements[1]; +c_733316.elements[2] = ((closureN)self_73989)->elements[2]; + + +make_pair(c_733497,obj_char2obj(101),NULL); + +make_pair(c_733496,obj_char2obj(116),&c_733497); + +make_pair(c_733495,obj_char2obj(101),&c_733496); + +make_pair(c_733494,obj_char2obj(108),&c_733495); + +make_pair(c_733493,obj_char2obj(101),&c_733494); + +make_pair(c_733492,obj_char2obj(100),&c_733493); +return_closcall1(data,(closure)&c_733316, &c_733492);} +; +} + +static void __lambda_428(void *data, int argc, object self_73990, object r_73490) { + +closureN_type c_733318; +c_733318.hdr.mark = gc_color_red; + c_733318.hdr.grayed = 0; +c_733318.tag = closureN_tag; + c_733318.fn = (function_type)__lambda_427; +c_733318.num_args = 1; +c_733318.num_elements = 3; +c_733318.elements = (object *)alloca(sizeof(object) * 3); +c_733318.elements[0] = ((closureN)self_73990)->elements[0]; +c_733318.elements[1] = ((closureN)self_73990)->elements[1]; +c_733318.elements[2] = ((closureN)self_73990)->elements[2]; + +return_closcall1(data,(closure)&c_733318, equalp(((closureN)self_73990)->elements[0], r_73490));; +} + +static void __lambda_427(void *data, int argc, object self_73991, object r_73465) { + if( (boolean_f != r_73465) ){ + +closureN_type c_733320; +c_733320.hdr.mark = gc_color_red; + c_733320.hdr.grayed = 0; +c_733320.tag = closureN_tag; + c_733320.fn = (function_type)__lambda_394; +c_733320.num_args = 0; +c_733320.num_elements = 1; +c_733320.elements = (object *)alloca(sizeof(object) * 1); +c_733320.elements[0] = ((closureN)self_73991)->elements[1]; + +return_closcall0(data,(closure)&c_733320); +} else { + +closureN_type c_733324; +c_733324.hdr.mark = gc_color_red; + c_733324.hdr.grayed = 0; +c_733324.tag = closureN_tag; + c_733324.fn = (function_type)__lambda_426; +c_733324.num_args = 1; +c_733324.num_elements = 3; +c_733324.elements = (object *)alloca(sizeof(object) * 3); +c_733324.elements[0] = ((closureN)self_73991)->elements[0]; +c_733324.elements[1] = ((closureN)self_73991)->elements[1]; +c_733324.elements[2] = ((closureN)self_73991)->elements[2]; + + +make_pair(c_733488,obj_char2obj(101),NULL); + +make_pair(c_733487,obj_char2obj(112),&c_733488); + +make_pair(c_733486,obj_char2obj(97),&c_733487); + +make_pair(c_733485,obj_char2obj(99),&c_733486); + +make_pair(c_733484,obj_char2obj(115),&c_733485); + +make_pair(c_733483,obj_char2obj(101),&c_733484); +return_closcall1(data,(closure)&c_733324, &c_733483);} +; +} + +static void __lambda_426(void *data, int argc, object self_73992, object r_73489) { + +closureN_type c_733326; +c_733326.hdr.mark = gc_color_red; + c_733326.hdr.grayed = 0; +c_733326.tag = closureN_tag; + c_733326.fn = (function_type)__lambda_425; +c_733326.num_args = 1; +c_733326.num_elements = 3; +c_733326.elements = (object *)alloca(sizeof(object) * 3); +c_733326.elements[0] = ((closureN)self_73992)->elements[0]; +c_733326.elements[1] = ((closureN)self_73992)->elements[1]; +c_733326.elements[2] = ((closureN)self_73992)->elements[2]; + +return_closcall1(data,(closure)&c_733326, equalp(((closureN)self_73992)->elements[0], r_73489));; +} + +static void __lambda_425(void *data, int argc, object self_73993, object r_73466) { + if( (boolean_f != r_73466) ){ + +closureN_type c_733328; +c_733328.hdr.mark = gc_color_red; + c_733328.hdr.grayed = 0; +c_733328.tag = closureN_tag; + c_733328.fn = (function_type)__lambda_395; +c_733328.num_args = 0; +c_733328.num_elements = 1; +c_733328.elements = (object *)alloca(sizeof(object) * 1); +c_733328.elements[0] = ((closureN)self_73993)->elements[1]; + +return_closcall0(data,(closure)&c_733328); +} else { + +closureN_type c_733332; +c_733332.hdr.mark = gc_color_red; + c_733332.hdr.grayed = 0; +c_733332.tag = closureN_tag; + c_733332.fn = (function_type)__lambda_424; +c_733332.num_args = 1; +c_733332.num_elements = 3; +c_733332.elements = (object *)alloca(sizeof(object) * 3); +c_733332.elements[0] = ((closureN)self_73993)->elements[0]; +c_733332.elements[1] = ((closureN)self_73993)->elements[1]; +c_733332.elements[2] = ((closureN)self_73993)->elements[2]; + + +make_pair(c_733479,obj_char2obj(101),NULL); + +make_pair(c_733478,obj_char2obj(110),&c_733479); + +make_pair(c_733477,obj_char2obj(105),&c_733478); + +make_pair(c_733476,obj_char2obj(108),&c_733477); + +make_pair(c_733475,obj_char2obj(119),&c_733476); + +make_pair(c_733474,obj_char2obj(101),&c_733475); + +make_pair(c_733473,obj_char2obj(110),&c_733474); +return_closcall1(data,(closure)&c_733332, &c_733473);} +; +} + +static void __lambda_424(void *data, int argc, object self_73994, object r_73488) { + +closureN_type c_733334; +c_733334.hdr.mark = gc_color_red; + c_733334.hdr.grayed = 0; +c_733334.tag = closureN_tag; + c_733334.fn = (function_type)__lambda_423; +c_733334.num_args = 1; +c_733334.num_elements = 3; +c_733334.elements = (object *)alloca(sizeof(object) * 3); +c_733334.elements[0] = ((closureN)self_73994)->elements[0]; +c_733334.elements[1] = ((closureN)self_73994)->elements[1]; +c_733334.elements[2] = ((closureN)self_73994)->elements[2]; + +return_closcall1(data,(closure)&c_733334, equalp(((closureN)self_73994)->elements[0], r_73488));; +} + +static void __lambda_423(void *data, int argc, object self_73995, object r_73467) { + if( (boolean_f != r_73467) ){ + +closureN_type c_733336; +c_733336.hdr.mark = gc_color_red; + c_733336.hdr.grayed = 0; +c_733336.tag = closureN_tag; + c_733336.fn = (function_type)__lambda_396; +c_733336.num_args = 0; +c_733336.num_elements = 1; +c_733336.elements = (object *)alloca(sizeof(object) * 1); +c_733336.elements[0] = ((closureN)self_73995)->elements[1]; + +return_closcall0(data,(closure)&c_733336); +} else { + +closureN_type c_733340; +c_733340.hdr.mark = gc_color_red; + c_733340.hdr.grayed = 0; +c_733340.tag = closureN_tag; + c_733340.fn = (function_type)__lambda_422; +c_733340.num_args = 1; +c_733340.num_elements = 3; +c_733340.elements = (object *)alloca(sizeof(object) * 3); +c_733340.elements[0] = ((closureN)self_73995)->elements[0]; +c_733340.elements[1] = ((closureN)self_73995)->elements[1]; +c_733340.elements[2] = ((closureN)self_73995)->elements[2]; + + +make_pair(c_733469,obj_char2obj(108),NULL); + +make_pair(c_733468,obj_char2obj(108),&c_733469); + +make_pair(c_733467,obj_char2obj(117),&c_733468); + +make_pair(c_733466,obj_char2obj(110),&c_733467); +return_closcall1(data,(closure)&c_733340, &c_733466);} +; +} + +static void __lambda_422(void *data, int argc, object self_73996, object r_73487) { + +closureN_type c_733342; +c_733342.hdr.mark = gc_color_red; + c_733342.hdr.grayed = 0; +c_733342.tag = closureN_tag; + c_733342.fn = (function_type)__lambda_421; +c_733342.num_args = 1; +c_733342.num_elements = 3; +c_733342.elements = (object *)alloca(sizeof(object) * 3); +c_733342.elements[0] = ((closureN)self_73996)->elements[0]; +c_733342.elements[1] = ((closureN)self_73996)->elements[1]; +c_733342.elements[2] = ((closureN)self_73996)->elements[2]; + +return_closcall1(data,(closure)&c_733342, equalp(((closureN)self_73996)->elements[0], r_73487));; +} + +static void __lambda_421(void *data, int argc, object self_73997, object r_73468) { + if( (boolean_f != r_73468) ){ + +closureN_type c_733344; +c_733344.hdr.mark = gc_color_red; + c_733344.hdr.grayed = 0; +c_733344.tag = closureN_tag; + c_733344.fn = (function_type)__lambda_397; +c_733344.num_args = 0; +c_733344.num_elements = 1; +c_733344.elements = (object *)alloca(sizeof(object) * 1); +c_733344.elements[0] = ((closureN)self_73997)->elements[1]; + +return_closcall0(data,(closure)&c_733344); +} else { + +closureN_type c_733348; +c_733348.hdr.mark = gc_color_red; + c_733348.hdr.grayed = 0; +c_733348.tag = closureN_tag; + c_733348.fn = (function_type)__lambda_420; +c_733348.num_args = 1; +c_733348.num_elements = 3; +c_733348.elements = (object *)alloca(sizeof(object) * 3); +c_733348.elements[0] = ((closureN)self_73997)->elements[0]; +c_733348.elements[1] = ((closureN)self_73997)->elements[1]; +c_733348.elements[2] = ((closureN)self_73997)->elements[2]; + + +make_pair(c_733462,obj_char2obj(110),NULL); + +make_pair(c_733461,obj_char2obj(114),&c_733462); + +make_pair(c_733460,obj_char2obj(117),&c_733461); + +make_pair(c_733459,obj_char2obj(116),&c_733460); + +make_pair(c_733458,obj_char2obj(101),&c_733459); + +make_pair(c_733457,obj_char2obj(114),&c_733458); +return_closcall1(data,(closure)&c_733348, &c_733457);} +; +} + +static void __lambda_420(void *data, int argc, object self_73998, object r_73486) { + +closureN_type c_733350; +c_733350.hdr.mark = gc_color_red; + c_733350.hdr.grayed = 0; +c_733350.tag = closureN_tag; + c_733350.fn = (function_type)__lambda_419; +c_733350.num_args = 1; +c_733350.num_elements = 3; +c_733350.elements = (object *)alloca(sizeof(object) * 3); +c_733350.elements[0] = ((closureN)self_73998)->elements[0]; +c_733350.elements[1] = ((closureN)self_73998)->elements[1]; +c_733350.elements[2] = ((closureN)self_73998)->elements[2]; + +return_closcall1(data,(closure)&c_733350, equalp(((closureN)self_73998)->elements[0], r_73486));; +} + +static void __lambda_419(void *data, int argc, object self_73999, object r_73469) { + if( (boolean_f != r_73469) ){ + +closureN_type c_733352; +c_733352.hdr.mark = gc_color_red; + c_733352.hdr.grayed = 0; +c_733352.tag = closureN_tag; + c_733352.fn = (function_type)__lambda_398; +c_733352.num_args = 0; +c_733352.num_elements = 1; +c_733352.elements = (object *)alloca(sizeof(object) * 1); +c_733352.elements[0] = ((closureN)self_73999)->elements[1]; + +return_closcall0(data,(closure)&c_733352); +} else { + +closureN_type c_733356; +c_733356.hdr.mark = gc_color_red; + c_733356.hdr.grayed = 0; +c_733356.tag = closureN_tag; + c_733356.fn = (function_type)__lambda_418; +c_733356.num_args = 1; +c_733356.num_elements = 3; +c_733356.elements = (object *)alloca(sizeof(object) * 3); +c_733356.elements[0] = ((closureN)self_73999)->elements[0]; +c_733356.elements[1] = ((closureN)self_73999)->elements[1]; +c_733356.elements[2] = ((closureN)self_73999)->elements[2]; + + +make_pair(c_733453,obj_char2obj(101),NULL); + +make_pair(c_733452,obj_char2obj(99),&c_733453); + +make_pair(c_733451,obj_char2obj(97),&c_733452); + +make_pair(c_733450,obj_char2obj(112),&c_733451); + +make_pair(c_733449,obj_char2obj(115),&c_733450); +return_closcall1(data,(closure)&c_733356, &c_733449);} +; +} + +static void __lambda_418(void *data, int argc, object self_731000, object r_73485) { + +closureN_type c_733358; +c_733358.hdr.mark = gc_color_red; + c_733358.hdr.grayed = 0; +c_733358.tag = closureN_tag; + c_733358.fn = (function_type)__lambda_417; +c_733358.num_args = 1; +c_733358.num_elements = 3; +c_733358.elements = (object *)alloca(sizeof(object) * 3); +c_733358.elements[0] = ((closureN)self_731000)->elements[0]; +c_733358.elements[1] = ((closureN)self_731000)->elements[1]; +c_733358.elements[2] = ((closureN)self_731000)->elements[2]; + +return_closcall1(data,(closure)&c_733358, equalp(((closureN)self_731000)->elements[0], r_73485));; +} + +static void __lambda_417(void *data, int argc, object self_731001, object r_73470) { + if( (boolean_f != r_73470) ){ + +closureN_type c_733360; +c_733360.hdr.mark = gc_color_red; + c_733360.hdr.grayed = 0; +c_733360.tag = closureN_tag; + c_733360.fn = (function_type)__lambda_399; +c_733360.num_args = 0; +c_733360.num_elements = 1; +c_733360.elements = (object *)alloca(sizeof(object) * 1); +c_733360.elements[0] = ((closureN)self_731001)->elements[1]; + +return_closcall0(data,(closure)&c_733360); +} else { + +closureN_type c_733364; +c_733364.hdr.mark = gc_color_red; + c_733364.hdr.grayed = 0; +c_733364.tag = closureN_tag; + c_733364.fn = (function_type)__lambda_416; +c_733364.num_args = 1; +c_733364.num_elements = 3; +c_733364.elements = (object *)alloca(sizeof(object) * 3); +c_733364.elements[0] = ((closureN)self_731001)->elements[0]; +c_733364.elements[1] = ((closureN)self_731001)->elements[1]; +c_733364.elements[2] = ((closureN)self_731001)->elements[2]; + + +make_pair(c_733445,obj_char2obj(98),NULL); + +make_pair(c_733444,obj_char2obj(97),&c_733445); + +make_pair(c_733443,obj_char2obj(116),&c_733444); +return_closcall1(data,(closure)&c_733364, &c_733443);} +; +} + +static void __lambda_416(void *data, int argc, object self_731002, object r_73484) { + +closureN_type c_733366; +c_733366.hdr.mark = gc_color_red; + c_733366.hdr.grayed = 0; +c_733366.tag = closureN_tag; + c_733366.fn = (function_type)__lambda_415; +c_733366.num_args = 1; +c_733366.num_elements = 3; +c_733366.elements = (object *)alloca(sizeof(object) * 3); +c_733366.elements[0] = ((closureN)self_731002)->elements[0]; +c_733366.elements[1] = ((closureN)self_731002)->elements[1]; +c_733366.elements[2] = ((closureN)self_731002)->elements[2]; + +return_closcall1(data,(closure)&c_733366, equalp(((closureN)self_731002)->elements[0], r_73484));; +} + +static void __lambda_415(void *data, int argc, object self_731003, object r_73471) { + if( (boolean_f != r_73471) ){ + +closureN_type c_733368; +c_733368.hdr.mark = gc_color_red; + c_733368.hdr.grayed = 0; +c_733368.tag = closureN_tag; + c_733368.fn = (function_type)__lambda_400; +c_733368.num_args = 0; +c_733368.num_elements = 1; +c_733368.elements = (object *)alloca(sizeof(object) * 1); +c_733368.elements[0] = ((closureN)self_731003)->elements[1]; + +return_closcall0(data,(closure)&c_733368); +} else { + +closureN_type c_733372; +c_733372.hdr.mark = gc_color_red; + c_733372.hdr.grayed = 0; +c_733372.tag = closureN_tag; + c_733372.fn = (function_type)__lambda_404; +c_733372.num_args = 0; +c_733372.num_elements = 1; +c_733372.elements = (object *)alloca(sizeof(object) * 1); +c_733372.elements[0] = ((closureN)self_731003)->elements[0]; + + +closureN_type c_733394; +c_733394.hdr.mark = gc_color_red; + c_733394.hdr.grayed = 0; +c_733394.tag = closureN_tag; + c_733394.fn = (function_type)__lambda_414; +c_733394.num_args = 1; +c_733394.num_elements = 3; +c_733394.elements = (object *)alloca(sizeof(object) * 3); +c_733394.elements[0] = ((closureN)self_731003)->elements[0]; +c_733394.elements[1] = ((closureN)self_731003)->elements[1]; +c_733394.elements[2] = ((closureN)self_731003)->elements[2]; + +return_closcall1(data,(closure)&c_733372, &c_733394);} +; +} + +static void __lambda_414(void *data, int argc, object self_731004, object r_73472) { + if( (boolean_f != r_73472) ){ + +closureN_type c_733396; +c_733396.hdr.mark = gc_color_red; + c_733396.hdr.grayed = 0; +c_733396.tag = closureN_tag; + c_733396.fn = (function_type)__lambda_408; +c_733396.num_args = 0; +c_733396.num_elements = 2; +c_733396.elements = (object *)alloca(sizeof(object) * 2); +c_733396.elements[0] = ((closureN)self_731004)->elements[0]; +c_733396.elements[1] = ((closureN)self_731004)->elements[1]; + +return_closcall0(data,(closure)&c_733396); +} else { + +closureN_type c_733417; +c_733417.hdr.mark = gc_color_red; + c_733417.hdr.grayed = 0; +c_733417.tag = closureN_tag; + c_733417.fn = (function_type)__lambda_413; +c_733417.num_args = 0; +c_733417.num_elements = 3; +c_733417.elements = (object *)alloca(sizeof(object) * 3); +c_733417.elements[0] = ((closureN)self_731004)->elements[0]; +c_733417.elements[1] = ((closureN)self_731004)->elements[1]; +c_733417.elements[2] = ((closureN)self_731004)->elements[2]; + +return_closcall0(data,(closure)&c_733417);} +; +} + +static void __lambda_413(void *data, int argc, object self_731005) { + +closureN_type c_733419; +c_733419.hdr.mark = gc_color_red; + c_733419.hdr.grayed = 0; +c_733419.tag = closureN_tag; + c_733419.fn = (function_type)__lambda_412; +c_733419.num_args = 1; +c_733419.num_elements = 2; +c_733419.elements = (object *)alloca(sizeof(object) * 2); +c_733419.elements[0] = ((closureN)self_731005)->elements[1]; +c_733419.elements[1] = ((closureN)self_731005)->elements[2]; + + +object c_733438 = Cyc_list2string(data,(closure)&c_733419,((closureN)self_731005)->elements[0]); +return_closcall1(data,(closure)&c_733419, c_733438);; +} + +static void __lambda_412(void *data, int argc, object self_731006, object r_73479) { + +closureN_type c_733421; +c_733421.hdr.mark = gc_color_red; + c_733421.hdr.grayed = 0; +c_733421.tag = closureN_tag; + c_733421.fn = (function_type)__lambda_411; +c_733421.num_args = 1; +c_733421.num_elements = 2; +c_733421.elements = (object *)alloca(sizeof(object) * 2); +c_733421.elements[0] = ((closureN)self_731006)->elements[0]; +c_733421.elements[1] = ((closureN)self_731006)->elements[1]; + + +make_string(c_733435, "unable to parse character: "); + +object c_733434 = Cyc_string_append(data,(closure)&c_733421,2,&c_733435, r_73479); +return_closcall1(data,(closure)&c_733421, c_733434);; +} + +static void __lambda_411(void *data, int argc, object self_731007, object r_73476) { + +closureN_type c_733423; +c_733423.hdr.mark = gc_color_red; + c_733423.hdr.grayed = 0; +c_733423.tag = closureN_tag; + c_733423.fn = (function_type)__lambda_410; +c_733423.num_args = 1; +c_733423.num_elements = 3; +c_733423.elements = (object *)alloca(sizeof(object) * 3); +c_733423.elements[0] = ((closureN)self_731007)->elements[0]; +c_733423.elements[1] = ((closureN)self_731007)->elements[1]; +c_733423.elements[2] = r_73476; + +return_closcall2(data, __glo_in_91port_117get_91lnum_scheme_read, &c_733423, ((closureN)self_731007)->elements[1]);; +} + +static void __lambda_410(void *data, int argc, object self_731008, object r_73477) { + +closureN_type c_733425; +c_733425.hdr.mark = gc_color_red; + c_733425.hdr.grayed = 0; +c_733425.tag = closureN_tag; + c_733425.fn = (function_type)__lambda_409; +c_733425.num_args = 1; +c_733425.num_elements = 3; +c_733425.elements = (object *)alloca(sizeof(object) * 3); +c_733425.elements[0] = ((closureN)self_731008)->elements[0]; +c_733425.elements[1] = ((closureN)self_731008)->elements[2]; +c_733425.elements[2] = r_73477; + +return_closcall2(data, __glo_in_91port_117get_91cnum_scheme_read, &c_733425, ((closureN)self_731008)->elements[1]);; +} + +static void __lambda_409(void *data, int argc, object self_731009, object r_73478) { + return_closcall4(data, __glo_parse_91error_scheme_read, ((closureN)self_731009)->elements[0], ((closureN)self_731009)->elements[1], ((closureN)self_731009)->elements[2], r_73478);; +} + +static void __lambda_408(void *data, int argc, object self_731010) { + +closureN_type c_733398; +c_733398.hdr.mark = gc_color_red; + c_733398.hdr.grayed = 0; +c_733398.tag = closureN_tag; + c_733398.fn = (function_type)__lambda_407; +c_733398.num_args = 1; +c_733398.num_elements = 1; +c_733398.elements = (object *)alloca(sizeof(object) * 1); +c_733398.elements[0] = ((closureN)self_731010)->elements[1]; + +return_closcall1(data,(closure)&c_733398, cdr(((closureN)self_731010)->elements[0]));; +} + +static void __lambda_407(void *data, int argc, object self_731011, object r_73475) { + +closureN_type c_733400; +c_733400.hdr.mark = gc_color_red; + c_733400.hdr.grayed = 0; +c_733400.tag = closureN_tag; + c_733400.fn = (function_type)__lambda_406; +c_733400.num_args = 1; +c_733400.num_elements = 1; +c_733400.elements = (object *)alloca(sizeof(object) * 1); +c_733400.elements[0] = ((closureN)self_731011)->elements[0]; + + +object c_733412 = Cyc_list2string(data,(closure)&c_733400,r_73475); +return_closcall1(data,(closure)&c_733400, c_733412);; +} + +static void __lambda_406(void *data, int argc, object self_731012, object r_73474) { + +closureN_type c_733402; +c_733402.hdr.mark = gc_color_red; + c_733402.hdr.grayed = 0; +c_733402.tag = closureN_tag; + c_733402.fn = (function_type)__lambda_405; +c_733402.num_args = 1; +c_733402.num_elements = 1; +c_733402.elements = (object *)alloca(sizeof(object) * 1); +c_733402.elements[0] = ((closureN)self_731012)->elements[0]; + + +object c_733409 = Cyc_string2number2_(data,(closure)&c_733402,2,r_73474, obj_int2obj(16)); +return_closcall1(data,(closure)&c_733402, c_733409);; +} + +static void __lambda_405(void *data, int argc, object self_731013, object r_73473) { + return_closcall1(data, ((closureN)self_731013)->elements[0], Cyc_integer2char(data, r_73473));; +} + +static void __lambda_404(void *data, int argc, object self_731014, object k_73480) { + +closureN_type c_733374; +c_733374.hdr.mark = gc_color_red; + c_733374.hdr.grayed = 0; +c_733374.tag = closureN_tag; + c_733374.fn = (function_type)__lambda_403; +c_733374.num_args = 1; +c_733374.num_elements = 2; +c_733374.elements = (object *)alloca(sizeof(object) * 2); +c_733374.elements[0] = ((closureN)self_731014)->elements[0]; +c_733374.elements[1] = k_73480; + +return_closcall1(data,(closure)&c_733374, Cyc_length(data, ((closureN)self_731014)->elements[0]));; +} + +static void __lambda_403(void *data, int argc, object self_731015, object r_73483) { + +closureN_type c_733376; +c_733376.hdr.mark = gc_color_red; + c_733376.hdr.grayed = 0; +c_733376.tag = closureN_tag; + c_733376.fn = (function_type)__lambda_402; +c_733376.num_args = 1; +c_733376.num_elements = 2; +c_733376.elements = (object *)alloca(sizeof(object) * 2); +c_733376.elements[0] = ((closureN)self_731015)->elements[0]; +c_733376.elements[1] = ((closureN)self_731015)->elements[1]; + + +object c_733390 = Cyc_num_gt(data,(closure)&c_733376,2,r_73483, obj_int2obj(1)); +return_closcall1(data,(closure)&c_733376, c_733390);; +} + +static void __lambda_402(void *data, int argc, object self_731016, object r_73481) { + if( (boolean_f != r_73481) ){ + +closureN_type c_733378; +c_733378.hdr.mark = gc_color_red; + c_733378.hdr.grayed = 0; +c_733378.tag = closureN_tag; + c_733378.fn = (function_type)__lambda_401; +c_733378.num_args = 1; +c_733378.num_elements = 1; +c_733378.elements = (object *)alloca(sizeof(object) * 1); +c_733378.elements[0] = ((closureN)self_731016)->elements[1]; + +return_closcall1(data,(closure)&c_733378, car(((closureN)self_731016)->elements[0])); +} else { + return_closcall1(data, ((closureN)self_731016)->elements[1], boolean_f);} +; +} + +static void __lambda_401(void *data, int argc, object self_731017, object r_73482) { + return_closcall1(data, ((closureN)self_731017)->elements[0], equalp(r_73482, obj_char2obj(120)));; +} + +static void __lambda_400(void *data, int argc, object self_731018) { + return_closcall1(data, ((closureN)self_731018)->elements[0], obj_char2obj(9));; +} + +static void __lambda_399(void *data, int argc, object self_731019) { + return_closcall1(data, ((closureN)self_731019)->elements[0], obj_char2obj(32));; +} + +static void __lambda_398(void *data, int argc, object self_731020) { + return_closcall1(data, ((closureN)self_731020)->elements[0], obj_char2obj(13));; +} + +static void __lambda_397(void *data, int argc, object self_731021) { + return_closcall1(data, ((closureN)self_731021)->elements[0], obj_char2obj(0));; +} + +static void __lambda_396(void *data, int argc, object self_731022) { + return_closcall1(data, ((closureN)self_731022)->elements[0], obj_char2obj(10));; +} + +static void __lambda_395(void *data, int argc, object self_731023) { + return_closcall1(data, ((closureN)self_731023)->elements[0], obj_char2obj(27));; +} + +static void __lambda_394(void *data, int argc, object self_731024) { + return_closcall1(data, ((closureN)self_731024)->elements[0], obj_char2obj(127));; +} + +static void __lambda_393(void *data, int argc, object self_731025) { + return_closcall1(data, ((closureN)self_731025)->elements[0], obj_char2obj(8));; +} + +static void __lambda_392(void *data, int argc, object self_731026) { + return_closcall1(data, ((closureN)self_731026)->elements[0], obj_char2obj(7));; +} + +static void __lambda_391(void *data, int argc, object self_731027) { + return_closcall1(data, ((closureN)self_731027)->elements[1], car(((closureN)self_731027)->elements[0]));; +} + +static void __lambda_390(void *data, int argc, object self_731028) { + +closureN_type c_733279; +c_733279.hdr.mark = gc_color_red; + c_733279.hdr.grayed = 0; +c_733279.tag = closureN_tag; + c_733279.fn = (function_type)__lambda_389; +c_733279.num_args = 1; +c_733279.num_elements = 2; +c_733279.elements = (object *)alloca(sizeof(object) * 2); +c_733279.elements[0] = ((closureN)self_731028)->elements[0]; +c_733279.elements[1] = ((closureN)self_731028)->elements[1]; + +return_closcall2(data, __glo_in_91port_117get_91lnum_scheme_read, &c_733279, ((closureN)self_731028)->elements[1]);; +} + +static void __lambda_389(void *data, int argc, object self_731029, object r_73460) { + +closureN_type c_733281; +c_733281.hdr.mark = gc_color_red; + c_733281.hdr.grayed = 0; +c_733281.tag = closureN_tag; + c_733281.fn = (function_type)__lambda_388; +c_733281.num_args = 1; +c_733281.num_elements = 2; +c_733281.elements = (object *)alloca(sizeof(object) * 2); +c_733281.elements[0] = ((closureN)self_731029)->elements[0]; +c_733281.elements[1] = r_73460; + +return_closcall2(data, __glo_in_91port_117get_91cnum_scheme_read, &c_733281, ((closureN)self_731029)->elements[1]);; +} + +static void __lambda_388(void *data, int argc, object self_731030, object r_73461) { + +make_string(c_733284, "missing character"); +return_closcall4(data, __glo_parse_91error_scheme_read, ((closureN)self_731030)->elements[0], &c_733284, ((closureN)self_731030)->elements[1], r_73461);; +} + +static void __lambda_387(void *data, int argc, object self_731031, object r_73456) { + +closureN_type c_733170; +c_733170.hdr.mark = gc_color_red; + c_733170.hdr.grayed = 0; +c_733170.tag = closureN_tag; + c_733170.fn = (function_type)__lambda_386; +c_733170.num_args = 1; +c_733170.num_elements = 4; +c_733170.elements = (object *)alloca(sizeof(object) * 4); +c_733170.elements[0] = ((closureN)self_731031)->elements[0]; +c_733170.elements[1] = ((closureN)self_731031)->elements[1]; +c_733170.elements[2] = ((closureN)self_731031)->elements[2]; +c_733170.elements[3] = ((closureN)self_731031)->elements[3]; + +return_closcall1(data,(closure)&c_733170, Cyc_set_car(data, ((closureN)self_731031)->elements[0], r_73456));; +} + +static void __lambda_386(void *data, int argc, object self_731032, object r_73439) { + +closureN_type c_733172; +c_733172.hdr.mark = gc_color_red; + c_733172.hdr.grayed = 0; +c_733172.tag = closureN_tag; + c_733172.fn = (function_type)__lambda_370; +c_733172.num_args = 1; +c_733172.num_elements = 2; +c_733172.elements = (object *)alloca(sizeof(object) * 2); +c_733172.elements[0] = ((closureN)self_731032)->elements[2]; +c_733172.elements[1] = ((closureN)self_731032)->elements[3]; + + +closureN_type c_733185; +c_733185.hdr.mark = gc_color_red; + c_733185.hdr.grayed = 0; +c_733185.tag = closureN_tag; + c_733185.fn = (function_type)__lambda_385; +c_733185.num_args = 1; +c_733185.num_elements = 3; +c_733185.elements = (object *)alloca(sizeof(object) * 3); +c_733185.elements[0] = ((closureN)self_731032)->elements[0]; +c_733185.elements[1] = ((closureN)self_731032)->elements[1]; +c_733185.elements[2] = ((closureN)self_731032)->elements[3]; + +return_closcall1(data,(closure)&c_733172, &c_733185);; +} + +static void __lambda_385(void *data, int argc, object self_731033, object k_73443, object buf_73190) { + +closureN_type c_733187; +c_733187.hdr.mark = gc_color_red; + c_733187.hdr.grayed = 0; +c_733187.tag = closureN_tag; + c_733187.fn = (function_type)__lambda_384; +c_733187.num_args = 1; +c_733187.num_elements = 5; +c_733187.elements = (object *)alloca(sizeof(object) * 5); +c_733187.elements[0] = buf_73190; +c_733187.elements[1] = ((closureN)self_731033)->elements[0]; +c_733187.elements[2] = ((closureN)self_731033)->elements[1]; +c_733187.elements[3] = k_73443; +c_733187.elements[4] = ((closureN)self_731033)->elements[2]; + + +object c_733264 = Cyc_io_peek_char(data,(closure)&c_733187,((closureN)self_731033)->elements[1]); +return_closcall1(data,(closure)&c_733187, c_733264);; +} + +static void __lambda_384(void *data, int argc, object self_731034, object c_73191) { + +closureN_type c_733189; +c_733189.hdr.mark = gc_color_red; + c_733189.hdr.grayed = 0; +c_733189.tag = closureN_tag; + c_733189.fn = (function_type)__lambda_383; +c_733189.num_args = 1; +c_733189.num_elements = 6; +c_733189.elements = (object *)alloca(sizeof(object) * 6); +c_733189.elements[0] = ((closureN)self_731034)->elements[0]; +c_733189.elements[1] = c_73191; +c_733189.elements[2] = ((closureN)self_731034)->elements[1]; +c_733189.elements[3] = ((closureN)self_731034)->elements[2]; +c_733189.elements[4] = ((closureN)self_731034)->elements[3]; +c_733189.elements[5] = ((closureN)self_731034)->elements[4]; + +return_closcall1(data,(closure)&c_733189, Cyc_is_eof_object(c_73191));; +} + +static void __lambda_383(void *data, int argc, object self_731035, object tmp_73192) { + +closureN_type c_733191; +c_733191.hdr.mark = gc_color_red; + c_733191.hdr.grayed = 0; +c_733191.tag = closureN_tag; + c_733191.fn = (function_type)__lambda_377; +c_733191.num_args = 0; +c_733191.num_elements = 3; +c_733191.elements = (object *)alloca(sizeof(object) * 3); +c_733191.elements[0] = ((closureN)self_731035)->elements[0]; +c_733191.elements[1] = ((closureN)self_731035)->elements[1]; +c_733191.elements[2] = tmp_73192; + + +closureN_type c_733232; +c_733232.hdr.mark = gc_color_red; + c_733232.hdr.grayed = 0; +c_733232.tag = closureN_tag; + c_733232.fn = (function_type)__lambda_382; +c_733232.num_args = 1; +c_733232.num_elements = 5; +c_733232.elements = (object *)alloca(sizeof(object) * 5); +c_733232.elements[0] = ((closureN)self_731035)->elements[0]; +c_733232.elements[1] = ((closureN)self_731035)->elements[2]; +c_733232.elements[2] = ((closureN)self_731035)->elements[3]; +c_733232.elements[3] = ((closureN)self_731035)->elements[4]; +c_733232.elements[4] = ((closureN)self_731035)->elements[5]; + +return_closcall1(data,(closure)&c_733191, &c_733232);; +} + +static void __lambda_382(void *data, int argc, object self_731036, object r_73445) { + if( (boolean_f != r_73445) ){ + +closureN_type c_733234; +c_733234.hdr.mark = gc_color_red; + c_733234.hdr.grayed = 0; +c_733234.tag = closureN_tag; + c_733234.fn = (function_type)__lambda_378; +c_733234.num_args = 0; +c_733234.num_elements = 3; +c_733234.elements = (object *)alloca(sizeof(object) * 3); +c_733234.elements[0] = ((closureN)self_731036)->elements[0]; +c_733234.elements[1] = ((closureN)self_731036)->elements[1]; +c_733234.elements[2] = ((closureN)self_731036)->elements[3]; + +return_closcall0(data,(closure)&c_733234); +} else { + +closureN_type c_733242; +c_733242.hdr.mark = gc_color_red; + c_733242.hdr.grayed = 0; +c_733242.tag = closureN_tag; + c_733242.fn = (function_type)__lambda_381; +c_733242.num_args = 0; +c_733242.num_elements = 4; +c_733242.elements = (object *)alloca(sizeof(object) * 4); +c_733242.elements[0] = ((closureN)self_731036)->elements[0]; +c_733242.elements[1] = ((closureN)self_731036)->elements[2]; +c_733242.elements[2] = ((closureN)self_731036)->elements[3]; +c_733242.elements[3] = ((closureN)self_731036)->elements[4]; + +return_closcall0(data,(closure)&c_733242);} +; +} + +static void __lambda_381(void *data, int argc, object self_731037) { + +closureN_type c_733244; +c_733244.hdr.mark = gc_color_red; + c_733244.hdr.grayed = 0; +c_733244.tag = closureN_tag; + c_733244.fn = (function_type)__lambda_380; +c_733244.num_args = 1; +c_733244.num_elements = 3; +c_733244.elements = (object *)alloca(sizeof(object) * 3); +c_733244.elements[0] = ((closureN)self_731037)->elements[0]; +c_733244.elements[1] = ((closureN)self_731037)->elements[2]; +c_733244.elements[2] = ((closureN)self_731037)->elements[3]; + + +object c_733258 = Cyc_io_read_char(data,(closure)&c_733244,((closureN)self_731037)->elements[1]); +return_closcall1(data,(closure)&c_733244, c_733258);; +} + +static void __lambda_380(void *data, int argc, object self_731038, object r_73447) { + +closureN_type c_733246; +c_733246.hdr.mark = gc_color_red; + c_733246.hdr.grayed = 0; +c_733246.tag = closureN_tag; + c_733246.fn = (function_type)__lambda_379; +c_733246.num_args = 1; +c_733246.num_elements = 2; +c_733246.elements = (object *)alloca(sizeof(object) * 2); +c_733246.elements[0] = ((closureN)self_731038)->elements[1]; +c_733246.elements[1] = ((closureN)self_731038)->elements[2]; + + +make_pair(c_733254,r_73447, ((closureN)self_731038)->elements[0]); +return_closcall1(data,(closure)&c_733246, &c_733254);; +} + +static void __lambda_379(void *data, int argc, object self_731039, object r_73446) { + return_closcall2(data, cell_get(((closureN)self_731039)->elements[1]), ((closureN)self_731039)->elements[0], r_73446);; +} + +static void __lambda_378(void *data, int argc, object self_731040) { + return_closcall2(data, cell_get(((closureN)self_731040)->elements[1]), ((closureN)self_731040)->elements[2], ((closureN)self_731040)->elements[0]);; +} + +static void __lambda_377(void *data, int argc, object self_731041, object k_73449) { + if( (boolean_f != ((closureN)self_731041)->elements[2]) ){ + return_closcall1(data, k_73449, ((closureN)self_731041)->elements[2]); +} else { + +closureN_type c_733196; +c_733196.hdr.mark = gc_color_red; + c_733196.hdr.grayed = 0; +c_733196.tag = closureN_tag; + c_733196.fn = (function_type)__lambda_373; +c_733196.num_args = 0; +c_733196.num_elements = 2; +c_733196.elements = (object *)alloca(sizeof(object) * 2); +c_733196.elements[0] = ((closureN)self_731041)->elements[0]; +c_733196.elements[1] = ((closureN)self_731041)->elements[1]; + + +closureN_type c_733212; +c_733212.hdr.mark = gc_color_red; + c_733212.hdr.grayed = 0; +c_733212.tag = closureN_tag; + c_733212.fn = (function_type)__lambda_376; +c_733212.num_args = 1; +c_733212.num_elements = 3; +c_733212.elements = (object *)alloca(sizeof(object) * 3); +c_733212.elements[0] = ((closureN)self_731041)->elements[0]; +c_733212.elements[1] = ((closureN)self_731041)->elements[1]; +c_733212.elements[2] = k_73449; + +return_closcall1(data,(closure)&c_733196, &c_733212);} +; +} + +static void __lambda_376(void *data, int argc, object self_731042, object tmp_73193) { + if( (boolean_f != tmp_73193) ){ + return_closcall1(data, ((closureN)self_731042)->elements[2], tmp_73193); +} else { + +closureN_type c_733216; +c_733216.hdr.mark = gc_color_red; + c_733216.hdr.grayed = 0; +c_733216.tag = closureN_tag; + c_733216.fn = (function_type)__lambda_375; +c_733216.num_args = 1; +c_733216.num_elements = 2; +c_733216.elements = (object *)alloca(sizeof(object) * 2); +c_733216.elements[0] = ((closureN)self_731042)->elements[1]; +c_733216.elements[1] = ((closureN)self_731042)->elements[2]; + +return_closcall1(data,(closure)&c_733216, Cyc_length(data, ((closureN)self_731042)->elements[0]));} +; +} + +static void __lambda_375(void *data, int argc, object self_731043, object r_73452) { + +closureN_type c_733218; +c_733218.hdr.mark = gc_color_red; + c_733218.hdr.grayed = 0; +c_733218.tag = closureN_tag; + c_733218.fn = (function_type)__lambda_374; +c_733218.num_args = 1; +c_733218.num_elements = 2; +c_733218.elements = (object *)alloca(sizeof(object) * 2); +c_733218.elements[0] = ((closureN)self_731043)->elements[0]; +c_733218.elements[1] = ((closureN)self_731043)->elements[1]; + + +object c_733228 = Cyc_num_gt(data,(closure)&c_733218,2,r_73452, obj_int2obj(0)); +return_closcall1(data,(closure)&c_733218, c_733228);; +} + +static void __lambda_374(void *data, int argc, object self_731044, object r_73451) { + if( (boolean_f != r_73451) ){ + return_closcall1(data, ((closureN)self_731044)->elements[1], equalp(((closureN)self_731044)->elements[0], obj_char2obj(41))); +} else { + return_closcall1(data, ((closureN)self_731044)->elements[1], boolean_f);} +; +} + +static void __lambda_373(void *data, int argc, object self_731045, object k_73453) { + +closureN_type c_733198; +c_733198.hdr.mark = gc_color_red; + c_733198.hdr.grayed = 0; +c_733198.tag = closureN_tag; + c_733198.fn = (function_type)__lambda_372; +c_733198.num_args = 1; +c_733198.num_elements = 2; +c_733198.elements = (object *)alloca(sizeof(object) * 2); +c_733198.elements[0] = ((closureN)self_731045)->elements[0]; +c_733198.elements[1] = k_73453; + +return_closcall2(data, __glo_char_91whitespace_127_scheme__char, &c_733198, ((closureN)self_731045)->elements[1]);; +} + +static void __lambda_372(void *data, int argc, object self_731046, object r_73454) { + if( (boolean_f != r_73454) ){ + +closureN_type c_733200; +c_733200.hdr.mark = gc_color_red; + c_733200.hdr.grayed = 0; +c_733200.tag = closureN_tag; + c_733200.fn = (function_type)__lambda_371; +c_733200.num_args = 1; +c_733200.num_elements = 1; +c_733200.elements = (object *)alloca(sizeof(object) * 1); +c_733200.elements[0] = ((closureN)self_731046)->elements[1]; + +return_closcall1(data,(closure)&c_733200, Cyc_length(data, ((closureN)self_731046)->elements[0])); +} else { + return_closcall1(data, ((closureN)self_731046)->elements[1], boolean_f);} +; +} + +static void __lambda_371(void *data, int argc, object self_731047, object r_73455) { + +object c_733205 = Cyc_num_gt(data, ((closureN)self_731047)->elements[0],2,r_73455, obj_int2obj(0)); +return_closcall1(data, ((closureN)self_731047)->elements[0], c_733205);; +} + +static void __lambda_370(void *data, int argc, object self_731048, object r_73442) { + +closureN_type c_733174; +c_733174.hdr.mark = gc_color_red; + c_733174.hdr.grayed = 0; +c_733174.tag = closureN_tag; + c_733174.fn = (function_type)__lambda_369; +c_733174.num_args = 1; +c_733174.num_elements = 2; +c_733174.elements = (object *)alloca(sizeof(object) * 2); +c_733174.elements[0] = ((closureN)self_731048)->elements[0]; +c_733174.elements[1] = ((closureN)self_731048)->elements[1]; + +return_closcall1(data,(closure)&c_733174, Cyc_set_car(data, ((closureN)self_731048)->elements[1], r_73442));; +} + +static void __lambda_369(void *data, int argc, object self_731049, object r_73440) { + +closureN_type c_733176; +c_733176.hdr.mark = gc_color_red; + c_733176.hdr.grayed = 0; +c_733176.tag = closureN_tag; + c_733176.fn = (function_type)__lambda_368; +c_733176.num_args = 1; +c_733176.num_elements = 2; +c_733176.elements = (object *)alloca(sizeof(object) * 2); +c_733176.elements[0] = ((closureN)self_731049)->elements[0]; +c_733176.elements[1] = ((closureN)self_731049)->elements[1]; + +return_closcall1(data,(closure)&c_733176, NULL);; +} + +static void __lambda_368(void *data, int argc, object self_731050, object r_73441) { + return_closcall2(data, cell_get(((closureN)self_731050)->elements[1]), ((closureN)self_731050)->elements[0], r_73441);; +} + +static void __lambda_367(void *data, int argc, closure _,object k_73497, object fp_73202, object tok_73201, object toks_73200, object all_127_73199, object comment_127_73198, object parens_73197, object ptbl_73196) { + Cyc_st_add(data, "scheme/read.sld:parse"); + +closureN_type c_731684; +c_731684.hdr.mark = gc_color_red; + c_731684.hdr.grayed = 0; +c_731684.tag = closureN_tag; + c_731684.fn = (function_type)__lambda_366; +c_731684.num_args = 0; +c_731684.num_elements = 8; +c_731684.elements = (object *)alloca(sizeof(object) * 8); +c_731684.elements[0] = all_127_73199; +c_731684.elements[1] = comment_127_73198; +c_731684.elements[2] = fp_73202; +c_731684.elements[3] = k_73497; +c_731684.elements[4] = parens_73197; +c_731684.elements[5] = ptbl_73196; +c_731684.elements[6] = tok_73201; +c_731684.elements[7] = toks_73200; + +return_closcall0(data,(closure)&c_731684);; +} + +static void __lambda_366(void *data, int argc, object self_731051) { + +closureN_type c_731686; +c_731686.hdr.mark = gc_color_red; + c_731686.hdr.grayed = 0; +c_731686.tag = closureN_tag; + c_731686.fn = (function_type)__lambda_365; +c_731686.num_args = 1; +c_731686.num_elements = 8; +c_731686.elements = (object *)alloca(sizeof(object) * 8); +c_731686.elements[0] = ((closureN)self_731051)->elements[0]; +c_731686.elements[1] = ((closureN)self_731051)->elements[1]; +c_731686.elements[2] = ((closureN)self_731051)->elements[2]; +c_731686.elements[3] = ((closureN)self_731051)->elements[3]; +c_731686.elements[4] = ((closureN)self_731051)->elements[4]; +c_731686.elements[5] = ((closureN)self_731051)->elements[5]; +c_731686.elements[6] = ((closureN)self_731051)->elements[6]; +c_731686.elements[7] = ((closureN)self_731051)->elements[7]; + +return_closcall2(data, __glo_in_91port_117get_91cnum_scheme_read, &c_731686, ((closureN)self_731051)->elements[5]);; +} + +static void __lambda_365(void *data, int argc, object self_731052, object r_73736) { + +closureN_type c_731688; +c_731688.hdr.mark = gc_color_red; + c_731688.hdr.grayed = 0; +c_731688.tag = closureN_tag; + c_731688.fn = (function_type)__lambda_364; +c_731688.num_args = 1; +c_731688.num_elements = 8; +c_731688.elements = (object *)alloca(sizeof(object) * 8); +c_731688.elements[0] = ((closureN)self_731052)->elements[0]; +c_731688.elements[1] = ((closureN)self_731052)->elements[1]; +c_731688.elements[2] = ((closureN)self_731052)->elements[2]; +c_731688.elements[3] = ((closureN)self_731052)->elements[3]; +c_731688.elements[4] = ((closureN)self_731052)->elements[4]; +c_731688.elements[5] = ((closureN)self_731052)->elements[5]; +c_731688.elements[6] = ((closureN)self_731052)->elements[6]; +c_731688.elements[7] = ((closureN)self_731052)->elements[7]; + + +object c_733156 = Cyc_sum(data,(closure)&c_731688,2,obj_int2obj(1), r_73736); +return_closcall1(data,(closure)&c_731688, c_733156);; +} + +static void __lambda_364(void *data, int argc, object self_731053, object r_73735) { + +closureN_type c_731690; +c_731690.hdr.mark = gc_color_red; + c_731690.hdr.grayed = 0; +c_731690.tag = closureN_tag; + c_731690.fn = (function_type)__lambda_363; +c_731690.num_args = 1; +c_731690.num_elements = 8; +c_731690.elements = (object *)alloca(sizeof(object) * 8); +c_731690.elements[0] = ((closureN)self_731053)->elements[0]; +c_731690.elements[1] = ((closureN)self_731053)->elements[1]; +c_731690.elements[2] = ((closureN)self_731053)->elements[2]; +c_731690.elements[3] = ((closureN)self_731053)->elements[3]; +c_731690.elements[4] = ((closureN)self_731053)->elements[4]; +c_731690.elements[5] = ((closureN)self_731053)->elements[5]; +c_731690.elements[6] = ((closureN)self_731053)->elements[6]; +c_731690.elements[7] = ((closureN)self_731053)->elements[7]; + +return_closcall3(data, __glo_in_91port_117set_91cnum_67_scheme_read, &c_731690, ((closureN)self_731053)->elements[5], r_73735);; +} + +static void __lambda_363(void *data, int argc, object self_731054, object r_73498) { + +closureN_type c_731692; +c_731692.hdr.mark = gc_color_red; + c_731692.hdr.grayed = 0; +c_731692.tag = closureN_tag; + c_731692.fn = (function_type)__lambda_61; +c_731692.num_args = 0; +c_731692.num_elements = 2; +c_731692.elements = (object *)alloca(sizeof(object) * 2); +c_731692.elements[0] = ((closureN)self_731054)->elements[2]; +c_731692.elements[1] = ((closureN)self_731054)->elements[5]; + + +closureN_type c_731705; +c_731705.hdr.mark = gc_color_red; + c_731705.hdr.grayed = 0; +c_731705.tag = closureN_tag; + c_731705.fn = (function_type)__lambda_362; +c_731705.num_args = 1; +c_731705.num_elements = 8; +c_731705.elements = (object *)alloca(sizeof(object) * 8); +c_731705.elements[0] = ((closureN)self_731054)->elements[0]; +c_731705.elements[1] = ((closureN)self_731054)->elements[1]; +c_731705.elements[2] = ((closureN)self_731054)->elements[2]; +c_731705.elements[3] = ((closureN)self_731054)->elements[3]; +c_731705.elements[4] = ((closureN)self_731054)->elements[4]; +c_731705.elements[5] = ((closureN)self_731054)->elements[5]; +c_731705.elements[6] = ((closureN)self_731054)->elements[6]; +c_731705.elements[7] = ((closureN)self_731054)->elements[7]; + +return_closcall1(data,(closure)&c_731692, &c_731705);; +} + +static void __lambda_362(void *data, int argc, object self_731055, object c_73204) { + +closureN_type c_731707; +c_731707.hdr.mark = gc_color_red; + c_731707.hdr.grayed = 0; +c_731707.tag = closureN_tag; + c_731707.fn = (function_type)__lambda_361; +c_731707.num_args = 1; +c_731707.num_elements = 9; +c_731707.elements = (object *)alloca(sizeof(object) * 9); +c_731707.elements[0] = ((closureN)self_731055)->elements[0]; +c_731707.elements[1] = c_73204; +c_731707.elements[2] = ((closureN)self_731055)->elements[1]; +c_731707.elements[3] = ((closureN)self_731055)->elements[2]; +c_731707.elements[4] = ((closureN)self_731055)->elements[3]; +c_731707.elements[5] = ((closureN)self_731055)->elements[4]; +c_731707.elements[6] = ((closureN)self_731055)->elements[5]; +c_731707.elements[7] = ((closureN)self_731055)->elements[6]; +c_731707.elements[8] = ((closureN)self_731055)->elements[7]; + +return_closcall1(data,(closure)&c_731707, Cyc_is_eof_object(c_73204));; +} + +static void __lambda_361(void *data, int argc, object self_731056, object r_73500) { + if( (boolean_f != r_73500) ){ + +closureN_type c_731709; +c_731709.hdr.mark = gc_color_red; + c_731709.hdr.grayed = 0; +c_731709.tag = closureN_tag; + c_731709.fn = (function_type)__lambda_71; +c_731709.num_args = 0; +c_731709.num_elements = 7; +c_731709.elements = (object *)alloca(sizeof(object) * 7); +c_731709.elements[0] = ((closureN)self_731056)->elements[0]; +c_731709.elements[1] = ((closureN)self_731056)->elements[1]; +c_731709.elements[2] = ((closureN)self_731056)->elements[4]; +c_731709.elements[3] = ((closureN)self_731056)->elements[5]; +c_731709.elements[4] = ((closureN)self_731056)->elements[6]; +c_731709.elements[5] = ((closureN)self_731056)->elements[7]; +c_731709.elements[6] = ((closureN)self_731056)->elements[8]; + +return_closcall0(data,(closure)&c_731709); +} else { + if( (boolean_f != ((closureN)self_731056)->elements[2]) ){ + +closureN_type c_731761; +c_731761.hdr.mark = gc_color_red; + c_731761.hdr.grayed = 0; +c_731761.tag = closureN_tag; + c_731761.fn = (function_type)__lambda_80; +c_731761.num_args = 0; +c_731761.num_elements = 7; +c_731761.elements = (object *)alloca(sizeof(object) * 7); +c_731761.elements[0] = ((closureN)self_731056)->elements[0]; +c_731761.elements[1] = ((closureN)self_731056)->elements[1]; +c_731761.elements[2] = ((closureN)self_731056)->elements[3]; +c_731761.elements[3] = ((closureN)self_731056)->elements[4]; +c_731761.elements[4] = ((closureN)self_731056)->elements[5]; +c_731761.elements[5] = ((closureN)self_731056)->elements[6]; +c_731761.elements[6] = ((closureN)self_731056)->elements[8]; + +return_closcall0(data,(closure)&c_731761); +} else { + +closureN_type c_731802; +c_731802.hdr.mark = gc_color_red; + c_731802.hdr.grayed = 0; +c_731802.tag = closureN_tag; + c_731802.fn = (function_type)__lambda_360; +c_731802.num_args = 1; +c_731802.num_elements = 8; +c_731802.elements = (object *)alloca(sizeof(object) * 8); +c_731802.elements[0] = ((closureN)self_731056)->elements[0]; +c_731802.elements[1] = ((closureN)self_731056)->elements[1]; +c_731802.elements[2] = ((closureN)self_731056)->elements[3]; +c_731802.elements[3] = ((closureN)self_731056)->elements[4]; +c_731802.elements[4] = ((closureN)self_731056)->elements[5]; +c_731802.elements[5] = ((closureN)self_731056)->elements[6]; +c_731802.elements[6] = ((closureN)self_731056)->elements[7]; +c_731802.elements[7] = ((closureN)self_731056)->elements[8]; + +return_closcall2(data, __glo_char_91whitespace_127_scheme__char, &c_731802, ((closureN)self_731056)->elements[1]);} +} +; +} + +static void __lambda_360(void *data, int argc, object self_731057, object r_73517) { + if( (boolean_f != r_73517) ){ + +closureN_type c_731804; +c_731804.hdr.mark = gc_color_red; + c_731804.hdr.grayed = 0; +c_731804.tag = closureN_tag; + c_731804.fn = (function_type)__lambda_89; +c_731804.num_args = 0; +c_731804.num_elements = 8; +c_731804.elements = (object *)alloca(sizeof(object) * 8); +c_731804.elements[0] = ((closureN)self_731057)->elements[0]; +c_731804.elements[1] = ((closureN)self_731057)->elements[1]; +c_731804.elements[2] = ((closureN)self_731057)->elements[2]; +c_731804.elements[3] = ((closureN)self_731057)->elements[3]; +c_731804.elements[4] = ((closureN)self_731057)->elements[4]; +c_731804.elements[5] = ((closureN)self_731057)->elements[5]; +c_731804.elements[6] = ((closureN)self_731057)->elements[6]; +c_731804.elements[7] = ((closureN)self_731057)->elements[7]; + +return_closcall0(data,(closure)&c_731804); +} else { + +closureN_type c_731849; +c_731849.hdr.mark = gc_color_red; + c_731849.hdr.grayed = 0; +c_731849.tag = closureN_tag; + c_731849.fn = (function_type)__lambda_359; +c_731849.num_args = 1; +c_731849.num_elements = 8; +c_731849.elements = (object *)alloca(sizeof(object) * 8); +c_731849.elements[0] = ((closureN)self_731057)->elements[0]; +c_731849.elements[1] = ((closureN)self_731057)->elements[1]; +c_731849.elements[2] = ((closureN)self_731057)->elements[2]; +c_731849.elements[3] = ((closureN)self_731057)->elements[3]; +c_731849.elements[4] = ((closureN)self_731057)->elements[4]; +c_731849.elements[5] = ((closureN)self_731057)->elements[5]; +c_731849.elements[6] = ((closureN)self_731057)->elements[6]; +c_731849.elements[7] = ((closureN)self_731057)->elements[7]; + +return_closcall1(data,(closure)&c_731849, Cyc_eq(((closureN)self_731057)->elements[1], obj_char2obj(59)));} +; +} + +static void __lambda_359(void *data, int argc, object self_731058, object r_73526) { + if( (boolean_f != r_73526) ){ + +closureN_type c_731851; +c_731851.hdr.mark = gc_color_red; + c_731851.hdr.grayed = 0; +c_731851.tag = closureN_tag; + c_731851.fn = (function_type)__lambda_90; +c_731851.num_args = 0; +c_731851.num_elements = 8; +c_731851.elements = (object *)alloca(sizeof(object) * 8); +c_731851.elements[0] = ((closureN)self_731058)->elements[0]; +c_731851.elements[1] = ((closureN)self_731058)->elements[1]; +c_731851.elements[2] = ((closureN)self_731058)->elements[2]; +c_731851.elements[3] = ((closureN)self_731058)->elements[3]; +c_731851.elements[4] = ((closureN)self_731058)->elements[4]; +c_731851.elements[5] = ((closureN)self_731058)->elements[5]; +c_731851.elements[6] = ((closureN)self_731058)->elements[6]; +c_731851.elements[7] = ((closureN)self_731058)->elements[7]; + +return_closcall0(data,(closure)&c_731851); +} else { + +closureN_type c_731862; +c_731862.hdr.mark = gc_color_red; + c_731862.hdr.grayed = 0; +c_731862.tag = closureN_tag; + c_731862.fn = (function_type)__lambda_358; +c_731862.num_args = 1; +c_731862.num_elements = 8; +c_731862.elements = (object *)alloca(sizeof(object) * 8); +c_731862.elements[0] = ((closureN)self_731058)->elements[0]; +c_731862.elements[1] = ((closureN)self_731058)->elements[1]; +c_731862.elements[2] = ((closureN)self_731058)->elements[2]; +c_731862.elements[3] = ((closureN)self_731058)->elements[3]; +c_731862.elements[4] = ((closureN)self_731058)->elements[4]; +c_731862.elements[5] = ((closureN)self_731058)->elements[5]; +c_731862.elements[6] = ((closureN)self_731058)->elements[6]; +c_731862.elements[7] = ((closureN)self_731058)->elements[7]; + +return_closcall1(data,(closure)&c_731862, Cyc_eq(((closureN)self_731058)->elements[1], obj_char2obj(39)));} +; +} + +static void __lambda_358(void *data, int argc, object self_731059, object r_73527) { + if( (boolean_f != r_73527) ){ + +closureN_type c_731864; +c_731864.hdr.mark = gc_color_red; + c_731864.hdr.grayed = 0; +c_731864.tag = closureN_tag; + c_731864.fn = (function_type)__lambda_110; +c_731864.num_args = 0; +c_731864.num_elements = 8; +c_731864.elements = (object *)alloca(sizeof(object) * 8); +c_731864.elements[0] = ((closureN)self_731059)->elements[0]; +c_731864.elements[1] = ((closureN)self_731059)->elements[1]; +c_731864.elements[2] = ((closureN)self_731059)->elements[2]; +c_731864.elements[3] = ((closureN)self_731059)->elements[3]; +c_731864.elements[4] = ((closureN)self_731059)->elements[4]; +c_731864.elements[5] = ((closureN)self_731059)->elements[5]; +c_731864.elements[6] = ((closureN)self_731059)->elements[6]; +c_731864.elements[7] = ((closureN)self_731059)->elements[7]; + +return_closcall0(data,(closure)&c_731864); +} else { + +closureN_type c_731948; +c_731948.hdr.mark = gc_color_red; + c_731948.hdr.grayed = 0; +c_731948.tag = closureN_tag; + c_731948.fn = (function_type)__lambda_357; +c_731948.num_args = 1; +c_731948.num_elements = 8; +c_731948.elements = (object *)alloca(sizeof(object) * 8); +c_731948.elements[0] = ((closureN)self_731059)->elements[0]; +c_731948.elements[1] = ((closureN)self_731059)->elements[1]; +c_731948.elements[2] = ((closureN)self_731059)->elements[2]; +c_731948.elements[3] = ((closureN)self_731059)->elements[3]; +c_731948.elements[4] = ((closureN)self_731059)->elements[4]; +c_731948.elements[5] = ((closureN)self_731059)->elements[5]; +c_731948.elements[6] = ((closureN)self_731059)->elements[6]; +c_731948.elements[7] = ((closureN)self_731059)->elements[7]; + +return_closcall1(data,(closure)&c_731948, Cyc_eq(((closureN)self_731059)->elements[1], obj_char2obj(96)));} +; +} + +static void __lambda_357(void *data, int argc, object self_731060, object r_73543) { + if( (boolean_f != r_73543) ){ + +closureN_type c_731950; +c_731950.hdr.mark = gc_color_red; + c_731950.hdr.grayed = 0; +c_731950.tag = closureN_tag; + c_731950.fn = (function_type)__lambda_130; +c_731950.num_args = 0; +c_731950.num_elements = 8; +c_731950.elements = (object *)alloca(sizeof(object) * 8); +c_731950.elements[0] = ((closureN)self_731060)->elements[0]; +c_731950.elements[1] = ((closureN)self_731060)->elements[1]; +c_731950.elements[2] = ((closureN)self_731060)->elements[2]; +c_731950.elements[3] = ((closureN)self_731060)->elements[3]; +c_731950.elements[4] = ((closureN)self_731060)->elements[4]; +c_731950.elements[5] = ((closureN)self_731060)->elements[5]; +c_731950.elements[6] = ((closureN)self_731060)->elements[6]; +c_731950.elements[7] = ((closureN)self_731060)->elements[7]; + +return_closcall0(data,(closure)&c_731950); +} else { + +closureN_type c_732034; +c_732034.hdr.mark = gc_color_red; + c_732034.hdr.grayed = 0; +c_732034.tag = closureN_tag; + c_732034.fn = (function_type)__lambda_356; +c_732034.num_args = 1; +c_732034.num_elements = 8; +c_732034.elements = (object *)alloca(sizeof(object) * 8); +c_732034.elements[0] = ((closureN)self_731060)->elements[0]; +c_732034.elements[1] = ((closureN)self_731060)->elements[1]; +c_732034.elements[2] = ((closureN)self_731060)->elements[2]; +c_732034.elements[3] = ((closureN)self_731060)->elements[3]; +c_732034.elements[4] = ((closureN)self_731060)->elements[4]; +c_732034.elements[5] = ((closureN)self_731060)->elements[5]; +c_732034.elements[6] = ((closureN)self_731060)->elements[6]; +c_732034.elements[7] = ((closureN)self_731060)->elements[7]; + +return_closcall1(data,(closure)&c_732034, Cyc_eq(((closureN)self_731060)->elements[1], obj_char2obj(44)));} +; +} + +static void __lambda_356(void *data, int argc, object self_731061, object r_73559) { + if( (boolean_f != r_73559) ){ + +closureN_type c_732036; +c_732036.hdr.mark = gc_color_red; + c_732036.hdr.grayed = 0; +c_732036.tag = closureN_tag; + c_732036.fn = (function_type)__lambda_170; +c_732036.num_args = 0; +c_732036.num_elements = 8; +c_732036.elements = (object *)alloca(sizeof(object) * 8); +c_732036.elements[0] = ((closureN)self_731061)->elements[0]; +c_732036.elements[1] = ((closureN)self_731061)->elements[1]; +c_732036.elements[2] = ((closureN)self_731061)->elements[2]; +c_732036.elements[3] = ((closureN)self_731061)->elements[3]; +c_732036.elements[4] = ((closureN)self_731061)->elements[4]; +c_732036.elements[5] = ((closureN)self_731061)->elements[5]; +c_732036.elements[6] = ((closureN)self_731061)->elements[6]; +c_732036.elements[7] = ((closureN)self_731061)->elements[7]; + +return_closcall0(data,(closure)&c_732036); +} else { + +closureN_type c_732227; +c_732227.hdr.mark = gc_color_red; + c_732227.hdr.grayed = 0; +c_732227.tag = closureN_tag; + c_732227.fn = (function_type)__lambda_355; +c_732227.num_args = 1; +c_732227.num_elements = 8; +c_732227.elements = (object *)alloca(sizeof(object) * 8); +c_732227.elements[0] = ((closureN)self_731061)->elements[0]; +c_732227.elements[1] = ((closureN)self_731061)->elements[1]; +c_732227.elements[2] = ((closureN)self_731061)->elements[2]; +c_732227.elements[3] = ((closureN)self_731061)->elements[3]; +c_732227.elements[4] = ((closureN)self_731061)->elements[4]; +c_732227.elements[5] = ((closureN)self_731061)->elements[5]; +c_732227.elements[6] = ((closureN)self_731061)->elements[6]; +c_732227.elements[7] = ((closureN)self_731061)->elements[7]; + +return_closcall1(data,(closure)&c_732227, Cyc_eq(((closureN)self_731061)->elements[1], obj_char2obj(40)));} +; +} + +static void __lambda_355(void *data, int argc, object self_731062, object r_73589) { + if( (boolean_f != r_73589) ){ + +closureN_type c_732229; +c_732229.hdr.mark = gc_color_red; + c_732229.hdr.grayed = 0; +c_732229.tag = closureN_tag; + c_732229.fn = (function_type)__lambda_195; +c_732229.num_args = 0; +c_732229.num_elements = 8; +c_732229.elements = (object *)alloca(sizeof(object) * 8); +c_732229.elements[0] = ((closureN)self_731062)->elements[0]; +c_732229.elements[1] = ((closureN)self_731062)->elements[1]; +c_732229.elements[2] = ((closureN)self_731062)->elements[2]; +c_732229.elements[3] = ((closureN)self_731062)->elements[3]; +c_732229.elements[4] = ((closureN)self_731062)->elements[4]; +c_732229.elements[5] = ((closureN)self_731062)->elements[5]; +c_732229.elements[6] = ((closureN)self_731062)->elements[6]; +c_732229.elements[7] = ((closureN)self_731062)->elements[7]; + +return_closcall0(data,(closure)&c_732229); +} else { + +closureN_type c_732340; +c_732340.hdr.mark = gc_color_red; + c_732340.hdr.grayed = 0; +c_732340.tag = closureN_tag; + c_732340.fn = (function_type)__lambda_354; +c_732340.num_args = 1; +c_732340.num_elements = 8; +c_732340.elements = (object *)alloca(sizeof(object) * 8); +c_732340.elements[0] = ((closureN)self_731062)->elements[0]; +c_732340.elements[1] = ((closureN)self_731062)->elements[1]; +c_732340.elements[2] = ((closureN)self_731062)->elements[2]; +c_732340.elements[3] = ((closureN)self_731062)->elements[3]; +c_732340.elements[4] = ((closureN)self_731062)->elements[4]; +c_732340.elements[5] = ((closureN)self_731062)->elements[5]; +c_732340.elements[6] = ((closureN)self_731062)->elements[6]; +c_732340.elements[7] = ((closureN)self_731062)->elements[7]; + +return_closcall1(data,(closure)&c_732340, Cyc_eq(((closureN)self_731062)->elements[1], obj_char2obj(41)));} +; +} + +static void __lambda_354(void *data, int argc, object self_731063, object r_73609) { + if( (boolean_f != r_73609) ){ + +closureN_type c_732342; +c_732342.hdr.mark = gc_color_red; + c_732342.hdr.grayed = 0; +c_732342.tag = closureN_tag; + c_732342.fn = (function_type)__lambda_209; +c_732342.num_args = 0; +c_732342.num_elements = 7; +c_732342.elements = (object *)alloca(sizeof(object) * 7); +c_732342.elements[0] = ((closureN)self_731063)->elements[0]; +c_732342.elements[1] = ((closureN)self_731063)->elements[1]; +c_732342.elements[2] = ((closureN)self_731063)->elements[3]; +c_732342.elements[3] = ((closureN)self_731063)->elements[4]; +c_732342.elements[4] = ((closureN)self_731063)->elements[5]; +c_732342.elements[5] = ((closureN)self_731063)->elements[6]; +c_732342.elements[6] = ((closureN)self_731063)->elements[7]; + +return_closcall0(data,(closure)&c_732342); +} else { + +closureN_type c_732398; +c_732398.hdr.mark = gc_color_red; + c_732398.hdr.grayed = 0; +c_732398.tag = closureN_tag; + c_732398.fn = (function_type)__lambda_353; +c_732398.num_args = 1; +c_732398.num_elements = 8; +c_732398.elements = (object *)alloca(sizeof(object) * 8); +c_732398.elements[0] = ((closureN)self_731063)->elements[0]; +c_732398.elements[1] = ((closureN)self_731063)->elements[1]; +c_732398.elements[2] = ((closureN)self_731063)->elements[2]; +c_732398.elements[3] = ((closureN)self_731063)->elements[3]; +c_732398.elements[4] = ((closureN)self_731063)->elements[4]; +c_732398.elements[5] = ((closureN)self_731063)->elements[5]; +c_732398.elements[6] = ((closureN)self_731063)->elements[6]; +c_732398.elements[7] = ((closureN)self_731063)->elements[7]; + +return_closcall1(data,(closure)&c_732398, Cyc_eq(((closureN)self_731063)->elements[1], obj_char2obj(34)));} +; +} + +static void __lambda_353(void *data, int argc, object self_731064, object r_73620) { + if( (boolean_f != r_73620) ){ + +closureN_type c_732400; +c_732400.hdr.mark = gc_color_red; + c_732400.hdr.grayed = 0; +c_732400.tag = closureN_tag; + c_732400.fn = (function_type)__lambda_227; +c_732400.num_args = 0; +c_732400.num_elements = 8; +c_732400.elements = (object *)alloca(sizeof(object) * 8); +c_732400.elements[0] = ((closureN)self_731064)->elements[0]; +c_732400.elements[1] = ((closureN)self_731064)->elements[1]; +c_732400.elements[2] = ((closureN)self_731064)->elements[2]; +c_732400.elements[3] = ((closureN)self_731064)->elements[3]; +c_732400.elements[4] = ((closureN)self_731064)->elements[4]; +c_732400.elements[5] = ((closureN)self_731064)->elements[5]; +c_732400.elements[6] = ((closureN)self_731064)->elements[6]; +c_732400.elements[7] = ((closureN)self_731064)->elements[7]; + +return_closcall0(data,(closure)&c_732400); +} else { + +closureN_type c_732480; +c_732480.hdr.mark = gc_color_red; + c_732480.hdr.grayed = 0; +c_732480.tag = closureN_tag; + c_732480.fn = (function_type)__lambda_352; +c_732480.num_args = 1; +c_732480.num_elements = 8; +c_732480.elements = (object *)alloca(sizeof(object) * 8); +c_732480.elements[0] = ((closureN)self_731064)->elements[0]; +c_732480.elements[1] = ((closureN)self_731064)->elements[1]; +c_732480.elements[2] = ((closureN)self_731064)->elements[2]; +c_732480.elements[3] = ((closureN)self_731064)->elements[3]; +c_732480.elements[4] = ((closureN)self_731064)->elements[4]; +c_732480.elements[5] = ((closureN)self_731064)->elements[5]; +c_732480.elements[6] = ((closureN)self_731064)->elements[6]; +c_732480.elements[7] = ((closureN)self_731064)->elements[7]; + +return_closcall1(data,(closure)&c_732480, Cyc_eq(((closureN)self_731064)->elements[1], obj_char2obj(35)));} +; +} + +static void __lambda_352(void *data, int argc, object self_731065, object r_73633) { + if( (boolean_f != r_73633) ){ + +closureN_type c_732482; +c_732482.hdr.mark = gc_color_red; + c_732482.hdr.grayed = 0; +c_732482.tag = closureN_tag; + c_732482.fn = (function_type)__lambda_347; +c_732482.num_args = 0; +c_732482.num_elements = 8; +c_732482.elements = (object *)alloca(sizeof(object) * 8); +c_732482.elements[0] = ((closureN)self_731065)->elements[0]; +c_732482.elements[1] = ((closureN)self_731065)->elements[1]; +c_732482.elements[2] = ((closureN)self_731065)->elements[2]; +c_732482.elements[3] = ((closureN)self_731065)->elements[3]; +c_732482.elements[4] = ((closureN)self_731065)->elements[4]; +c_732482.elements[5] = ((closureN)self_731065)->elements[5]; +c_732482.elements[6] = ((closureN)self_731065)->elements[6]; +c_732482.elements[7] = ((closureN)self_731065)->elements[7]; + +return_closcall0(data,(closure)&c_732482); +} else { + +closureN_type c_733097; +c_733097.hdr.mark = gc_color_red; + c_733097.hdr.grayed = 0; +c_733097.tag = closureN_tag; + c_733097.fn = (function_type)__lambda_351; +c_733097.num_args = 1; +c_733097.num_elements = 8; +c_733097.elements = (object *)alloca(sizeof(object) * 8); +c_733097.elements[0] = ((closureN)self_731065)->elements[0]; +c_733097.elements[1] = ((closureN)self_731065)->elements[1]; +c_733097.elements[2] = ((closureN)self_731065)->elements[2]; +c_733097.elements[3] = ((closureN)self_731065)->elements[3]; +c_733097.elements[4] = ((closureN)self_731065)->elements[4]; +c_733097.elements[5] = ((closureN)self_731065)->elements[5]; +c_733097.elements[6] = ((closureN)self_731065)->elements[6]; +c_733097.elements[7] = ((closureN)self_731065)->elements[7]; + +return_closcall1(data,(closure)&c_733097, Cyc_eq(((closureN)self_731065)->elements[1], obj_char2obj(124)));} +; +} + +static void __lambda_351(void *data, int argc, object self_731066, object r_73731) { + if( (boolean_f != r_73731) ){ + +closureN_type c_733099; +c_733099.hdr.mark = gc_color_red; + c_733099.hdr.grayed = 0; +c_733099.tag = closureN_tag; + c_733099.fn = (function_type)__lambda_348; +c_733099.num_args = 0; +c_733099.num_elements = 6; +c_733099.elements = (object *)alloca(sizeof(object) * 6); +c_733099.elements[0] = ((closureN)self_731066)->elements[0]; +c_733099.elements[1] = ((closureN)self_731066)->elements[2]; +c_733099.elements[2] = ((closureN)self_731066)->elements[3]; +c_733099.elements[3] = ((closureN)self_731066)->elements[4]; +c_733099.elements[4] = ((closureN)self_731066)->elements[5]; +c_733099.elements[5] = ((closureN)self_731066)->elements[7]; + +return_closcall0(data,(closure)&c_733099); +} else { + +closureN_type c_733108; +c_733108.hdr.mark = gc_color_red; + c_733108.hdr.grayed = 0; +c_733108.tag = closureN_tag; + c_733108.fn = (function_type)__lambda_350; +c_733108.num_args = 0; +c_733108.num_elements = 8; +c_733108.elements = (object *)alloca(sizeof(object) * 8); +c_733108.elements[0] = ((closureN)self_731066)->elements[0]; +c_733108.elements[1] = ((closureN)self_731066)->elements[1]; +c_733108.elements[2] = ((closureN)self_731066)->elements[2]; +c_733108.elements[3] = ((closureN)self_731066)->elements[3]; +c_733108.elements[4] = ((closureN)self_731066)->elements[4]; +c_733108.elements[5] = ((closureN)self_731066)->elements[5]; +c_733108.elements[6] = ((closureN)self_731066)->elements[6]; +c_733108.elements[7] = ((closureN)self_731066)->elements[7]; + +return_closcall0(data,(closure)&c_733108);} +; +} + +static void __lambda_350(void *data, int argc, object self_731067) { + +closureN_type c_733110; +c_733110.hdr.mark = gc_color_red; + c_733110.hdr.grayed = 0; +c_733110.tag = closureN_tag; + c_733110.fn = (function_type)__lambda_349; +c_733110.num_args = 1; +c_733110.num_elements = 6; +c_733110.elements = (object *)alloca(sizeof(object) * 6); +c_733110.elements[0] = ((closureN)self_731067)->elements[0]; +c_733110.elements[1] = ((closureN)self_731067)->elements[2]; +c_733110.elements[2] = ((closureN)self_731067)->elements[3]; +c_733110.elements[3] = ((closureN)self_731067)->elements[4]; +c_733110.elements[4] = ((closureN)self_731067)->elements[5]; +c_733110.elements[5] = ((closureN)self_731067)->elements[7]; + + +make_pair(c_733120,((closureN)self_731067)->elements[1], ((closureN)self_731067)->elements[6]); +return_closcall1(data,(closure)&c_733110, &c_733120);; +} + +static void __lambda_349(void *data, int argc, object self_731068, object r_73732) { + return_closcall8(data, __glo_parse_scheme_read, ((closureN)self_731068)->elements[2], ((closureN)self_731068)->elements[1], r_73732, ((closureN)self_731068)->elements[5], ((closureN)self_731068)->elements[0], boolean_f, ((closureN)self_731068)->elements[3], ((closureN)self_731068)->elements[4]);; +} + +static void __lambda_348(void *data, int argc, object self_731069) { + return_closcall6(data, __glo_parse_91literal_91identifier_scheme_read, ((closureN)self_731069)->elements[2], ((closureN)self_731069)->elements[1], ((closureN)self_731069)->elements[5], ((closureN)self_731069)->elements[0], ((closureN)self_731069)->elements[3], ((closureN)self_731069)->elements[4]);; +} + +static void __lambda_347(void *data, int argc, object self_731070) { + +closureN_type c_732484; +c_732484.hdr.mark = gc_color_red; + c_732484.hdr.grayed = 0; +c_732484.tag = closureN_tag; + c_732484.fn = (function_type)__lambda_346; +c_732484.num_args = 1; +c_732484.num_elements = 8; +c_732484.elements = (object *)alloca(sizeof(object) * 8); +c_732484.elements[0] = ((closureN)self_731070)->elements[0]; +c_732484.elements[1] = ((closureN)self_731070)->elements[1]; +c_732484.elements[2] = ((closureN)self_731070)->elements[2]; +c_732484.elements[3] = ((closureN)self_731070)->elements[3]; +c_732484.elements[4] = ((closureN)self_731070)->elements[4]; +c_732484.elements[5] = ((closureN)self_731070)->elements[5]; +c_732484.elements[6] = ((closureN)self_731070)->elements[6]; +c_732484.elements[7] = ((closureN)self_731070)->elements[7]; + +return_closcall1(data,(closure)&c_732484, Cyc_is_null(((closureN)self_731070)->elements[6]));; +} + +static void __lambda_346(void *data, int argc, object self_731071, object r_73634) { + if( (boolean_f != r_73634) ){ + +closureN_type c_732486; +c_732486.hdr.mark = gc_color_red; + c_732486.hdr.grayed = 0; +c_732486.tag = closureN_tag; + c_732486.fn = (function_type)__lambda_344; +c_732486.num_args = 1; +c_732486.num_elements = 8; +c_732486.elements = (object *)alloca(sizeof(object) * 8); +c_732486.elements[0] = ((closureN)self_731071)->elements[0]; +c_732486.elements[1] = ((closureN)self_731071)->elements[1]; +c_732486.elements[2] = ((closureN)self_731071)->elements[2]; +c_732486.elements[3] = ((closureN)self_731071)->elements[3]; +c_732486.elements[4] = ((closureN)self_731071)->elements[4]; +c_732486.elements[5] = ((closureN)self_731071)->elements[5]; +c_732486.elements[6] = ((closureN)self_731071)->elements[6]; +c_732486.elements[7] = ((closureN)self_731071)->elements[7]; + + +object c_733077 = Cyc_io_read_char(data,(closure)&c_732486,((closureN)self_731071)->elements[2]); +return_closcall1(data,(closure)&c_732486, c_733077); +} else { + +closureN_type c_733080; +c_733080.hdr.mark = gc_color_red; + c_733080.hdr.grayed = 0; +c_733080.tag = closureN_tag; + c_733080.fn = (function_type)__lambda_345; +c_733080.num_args = 1; +c_733080.num_elements = 6; +c_733080.elements = (object *)alloca(sizeof(object) * 6); +c_733080.elements[0] = ((closureN)self_731071)->elements[0]; +c_733080.elements[1] = ((closureN)self_731071)->elements[2]; +c_733080.elements[2] = ((closureN)self_731071)->elements[3]; +c_733080.elements[3] = ((closureN)self_731071)->elements[4]; +c_733080.elements[4] = ((closureN)self_731071)->elements[5]; +c_733080.elements[5] = ((closureN)self_731071)->elements[7]; + + +make_pair(c_733090,((closureN)self_731071)->elements[1], ((closureN)self_731071)->elements[6]); +return_closcall1(data,(closure)&c_733080, &c_733090);} +; +} + +static void __lambda_345(void *data, int argc, object self_731072, object r_73730) { + return_closcall8(data, __glo_parse_scheme_read, ((closureN)self_731072)->elements[2], ((closureN)self_731072)->elements[1], r_73730, ((closureN)self_731072)->elements[5], ((closureN)self_731072)->elements[0], boolean_f, ((closureN)self_731072)->elements[3], ((closureN)self_731072)->elements[4]);; +} + +static void __lambda_344(void *data, int argc, object self_731073, object next_91c_73205) { + +closureN_type c_732488; +c_732488.hdr.mark = gc_color_red; + c_732488.hdr.grayed = 0; +c_732488.tag = closureN_tag; + c_732488.fn = (function_type)__lambda_343; +c_732488.num_args = 1; +c_732488.num_elements = 8; +c_732488.elements = (object *)alloca(sizeof(object) * 8); +c_732488.elements[0] = ((closureN)self_731073)->elements[0]; +c_732488.elements[1] = ((closureN)self_731073)->elements[1]; +c_732488.elements[2] = ((closureN)self_731073)->elements[2]; +c_732488.elements[3] = ((closureN)self_731073)->elements[3]; +c_732488.elements[4] = ((closureN)self_731073)->elements[4]; +c_732488.elements[5] = ((closureN)self_731073)->elements[5]; +c_732488.elements[6] = ((closureN)self_731073)->elements[6]; +c_732488.elements[7] = ((closureN)self_731073)->elements[7]; + + +make_cell(c_733074,next_91c_73205); +return_closcall1(data,(closure)&c_732488, &c_733074);; +} + +static void __lambda_343(void *data, int argc, object self_731074, object next_91c_73205) { + +closureN_type c_732490; +c_732490.hdr.mark = gc_color_red; + c_732490.hdr.grayed = 0; +c_732490.tag = closureN_tag; + c_732490.fn = (function_type)__lambda_342; +c_732490.num_args = 1; +c_732490.num_elements = 9; +c_732490.elements = (object *)alloca(sizeof(object) * 9); +c_732490.elements[0] = ((closureN)self_731074)->elements[0]; +c_732490.elements[1] = ((closureN)self_731074)->elements[1]; +c_732490.elements[2] = ((closureN)self_731074)->elements[2]; +c_732490.elements[3] = ((closureN)self_731074)->elements[3]; +c_732490.elements[4] = next_91c_73205; +c_732490.elements[5] = ((closureN)self_731074)->elements[4]; +c_732490.elements[6] = ((closureN)self_731074)->elements[5]; +c_732490.elements[7] = ((closureN)self_731074)->elements[6]; +c_732490.elements[8] = ((closureN)self_731074)->elements[7]; + +return_closcall2(data, __glo_in_91port_117get_91cnum_scheme_read, &c_732490, ((closureN)self_731074)->elements[5]);; +} + +static void __lambda_342(void *data, int argc, object self_731075, object r_73729) { + +closureN_type c_732492; +c_732492.hdr.mark = gc_color_red; + c_732492.hdr.grayed = 0; +c_732492.tag = closureN_tag; + c_732492.fn = (function_type)__lambda_341; +c_732492.num_args = 1; +c_732492.num_elements = 9; +c_732492.elements = (object *)alloca(sizeof(object) * 9); +c_732492.elements[0] = ((closureN)self_731075)->elements[0]; +c_732492.elements[1] = ((closureN)self_731075)->elements[1]; +c_732492.elements[2] = ((closureN)self_731075)->elements[2]; +c_732492.elements[3] = ((closureN)self_731075)->elements[3]; +c_732492.elements[4] = ((closureN)self_731075)->elements[4]; +c_732492.elements[5] = ((closureN)self_731075)->elements[5]; +c_732492.elements[6] = ((closureN)self_731075)->elements[6]; +c_732492.elements[7] = ((closureN)self_731075)->elements[7]; +c_732492.elements[8] = ((closureN)self_731075)->elements[8]; + + +object c_733070 = Cyc_sum(data,(closure)&c_732492,2,obj_int2obj(1), r_73729); +return_closcall1(data,(closure)&c_732492, c_733070);; +} + +static void __lambda_341(void *data, int argc, object self_731076, object r_73728) { + +closureN_type c_732494; +c_732494.hdr.mark = gc_color_red; + c_732494.hdr.grayed = 0; +c_732494.tag = closureN_tag; + c_732494.fn = (function_type)__lambda_340; +c_732494.num_args = 1; +c_732494.num_elements = 9; +c_732494.elements = (object *)alloca(sizeof(object) * 9); +c_732494.elements[0] = ((closureN)self_731076)->elements[0]; +c_732494.elements[1] = ((closureN)self_731076)->elements[1]; +c_732494.elements[2] = ((closureN)self_731076)->elements[2]; +c_732494.elements[3] = ((closureN)self_731076)->elements[3]; +c_732494.elements[4] = ((closureN)self_731076)->elements[4]; +c_732494.elements[5] = ((closureN)self_731076)->elements[5]; +c_732494.elements[6] = ((closureN)self_731076)->elements[6]; +c_732494.elements[7] = ((closureN)self_731076)->elements[7]; +c_732494.elements[8] = ((closureN)self_731076)->elements[8]; + +return_closcall3(data, __glo_in_91port_117set_91cnum_67_scheme_read, &c_732494, ((closureN)self_731076)->elements[6], r_73728);; +} + +static void __lambda_340(void *data, int argc, object self_731077, object r_73636) { + +closureN_type c_732496; +c_732496.hdr.mark = gc_color_red; + c_732496.hdr.grayed = 0; +c_732496.tag = closureN_tag; + c_732496.fn = (function_type)__lambda_339; +c_732496.num_args = 1; +c_732496.num_elements = 9; +c_732496.elements = (object *)alloca(sizeof(object) * 9); +c_732496.elements[0] = ((closureN)self_731077)->elements[0]; +c_732496.elements[1] = ((closureN)self_731077)->elements[1]; +c_732496.elements[2] = ((closureN)self_731077)->elements[2]; +c_732496.elements[3] = ((closureN)self_731077)->elements[3]; +c_732496.elements[4] = ((closureN)self_731077)->elements[4]; +c_732496.elements[5] = ((closureN)self_731077)->elements[5]; +c_732496.elements[6] = ((closureN)self_731077)->elements[6]; +c_732496.elements[7] = ((closureN)self_731077)->elements[7]; +c_732496.elements[8] = ((closureN)self_731077)->elements[8]; + +return_closcall1(data,(closure)&c_732496, Cyc_eq(obj_char2obj(124), cell_get(((closureN)self_731077)->elements[4])));; +} + +static void __lambda_339(void *data, int argc, object self_731078, object r_73637) { + if( (boolean_f != r_73637) ){ + +closureN_type c_732498; +c_732498.hdr.mark = gc_color_red; + c_732498.hdr.grayed = 0; +c_732498.tag = closureN_tag; + c_732498.fn = (function_type)__lambda_230; +c_732498.num_args = 0; +c_732498.num_elements = 6; +c_732498.elements = (object *)alloca(sizeof(object) * 6); +c_732498.elements[0] = ((closureN)self_731078)->elements[0]; +c_732498.elements[1] = ((closureN)self_731078)->elements[2]; +c_732498.elements[2] = ((closureN)self_731078)->elements[3]; +c_732498.elements[3] = ((closureN)self_731078)->elements[5]; +c_732498.elements[4] = ((closureN)self_731078)->elements[6]; +c_732498.elements[5] = ((closureN)self_731078)->elements[8]; + +return_closcall0(data,(closure)&c_732498); +} else { + +closureN_type c_732513; +c_732513.hdr.mark = gc_color_red; + c_732513.hdr.grayed = 0; +c_732513.tag = closureN_tag; + c_732513.fn = (function_type)__lambda_338; +c_732513.num_args = 1; +c_732513.num_elements = 9; +c_732513.elements = (object *)alloca(sizeof(object) * 9); +c_732513.elements[0] = ((closureN)self_731078)->elements[0]; +c_732513.elements[1] = ((closureN)self_731078)->elements[1]; +c_732513.elements[2] = ((closureN)self_731078)->elements[2]; +c_732513.elements[3] = ((closureN)self_731078)->elements[3]; +c_732513.elements[4] = ((closureN)self_731078)->elements[4]; +c_732513.elements[5] = ((closureN)self_731078)->elements[5]; +c_732513.elements[6] = ((closureN)self_731078)->elements[6]; +c_732513.elements[7] = ((closureN)self_731078)->elements[7]; +c_732513.elements[8] = ((closureN)self_731078)->elements[8]; + +return_closcall1(data,(closure)&c_732513, Cyc_eq(obj_char2obj(116), cell_get(((closureN)self_731078)->elements[4])));} +; +} + +static void __lambda_338(void *data, int argc, object self_731079, object r_73640) { + if( (boolean_f != r_73640) ){ + +closureN_type c_732515; +c_732515.hdr.mark = gc_color_red; + c_732515.hdr.grayed = 0; +c_732515.tag = closureN_tag; + c_732515.fn = (function_type)__lambda_233; +c_732515.num_args = 0; +c_732515.num_elements = 6; +c_732515.elements = (object *)alloca(sizeof(object) * 6); +c_732515.elements[0] = ((closureN)self_731079)->elements[0]; +c_732515.elements[1] = ((closureN)self_731079)->elements[2]; +c_732515.elements[2] = ((closureN)self_731079)->elements[3]; +c_732515.elements[3] = ((closureN)self_731079)->elements[5]; +c_732515.elements[4] = ((closureN)self_731079)->elements[6]; +c_732515.elements[5] = ((closureN)self_731079)->elements[8]; + +return_closcall0(data,(closure)&c_732515); +} else { + +closureN_type c_732535; +c_732535.hdr.mark = gc_color_red; + c_732535.hdr.grayed = 0; +c_732535.tag = closureN_tag; + c_732535.fn = (function_type)__lambda_337; +c_732535.num_args = 1; +c_732535.num_elements = 9; +c_732535.elements = (object *)alloca(sizeof(object) * 9); +c_732535.elements[0] = ((closureN)self_731079)->elements[0]; +c_732535.elements[1] = ((closureN)self_731079)->elements[1]; +c_732535.elements[2] = ((closureN)self_731079)->elements[2]; +c_732535.elements[3] = ((closureN)self_731079)->elements[3]; +c_732535.elements[4] = ((closureN)self_731079)->elements[4]; +c_732535.elements[5] = ((closureN)self_731079)->elements[5]; +c_732535.elements[6] = ((closureN)self_731079)->elements[6]; +c_732535.elements[7] = ((closureN)self_731079)->elements[7]; +c_732535.elements[8] = ((closureN)self_731079)->elements[8]; + +return_closcall1(data,(closure)&c_732535, Cyc_eq(obj_char2obj(102), cell_get(((closureN)self_731079)->elements[4])));} +; +} + +static void __lambda_337(void *data, int argc, object self_731080, object r_73643) { + if( (boolean_f != r_73643) ){ + +closureN_type c_732537; +c_732537.hdr.mark = gc_color_red; + c_732537.hdr.grayed = 0; +c_732537.tag = closureN_tag; + c_732537.fn = (function_type)__lambda_236; +c_732537.num_args = 0; +c_732537.num_elements = 6; +c_732537.elements = (object *)alloca(sizeof(object) * 6); +c_732537.elements[0] = ((closureN)self_731080)->elements[0]; +c_732537.elements[1] = ((closureN)self_731080)->elements[2]; +c_732537.elements[2] = ((closureN)self_731080)->elements[3]; +c_732537.elements[3] = ((closureN)self_731080)->elements[5]; +c_732537.elements[4] = ((closureN)self_731080)->elements[6]; +c_732537.elements[5] = ((closureN)self_731080)->elements[8]; + +return_closcall0(data,(closure)&c_732537); +} else { + +closureN_type c_732557; +c_732557.hdr.mark = gc_color_red; + c_732557.hdr.grayed = 0; +c_732557.tag = closureN_tag; + c_732557.fn = (function_type)__lambda_336; +c_732557.num_args = 1; +c_732557.num_elements = 9; +c_732557.elements = (object *)alloca(sizeof(object) * 9); +c_732557.elements[0] = ((closureN)self_731080)->elements[0]; +c_732557.elements[1] = ((closureN)self_731080)->elements[1]; +c_732557.elements[2] = ((closureN)self_731080)->elements[2]; +c_732557.elements[3] = ((closureN)self_731080)->elements[3]; +c_732557.elements[4] = ((closureN)self_731080)->elements[4]; +c_732557.elements[5] = ((closureN)self_731080)->elements[5]; +c_732557.elements[6] = ((closureN)self_731080)->elements[6]; +c_732557.elements[7] = ((closureN)self_731080)->elements[7]; +c_732557.elements[8] = ((closureN)self_731080)->elements[8]; + +return_closcall1(data,(closure)&c_732557, Cyc_eq(obj_char2obj(101), cell_get(((closureN)self_731080)->elements[4])));} +; +} + +static void __lambda_336(void *data, int argc, object self_731081, object r_73646) { + if( (boolean_f != r_73646) ){ + +closureN_type c_732559; +c_732559.hdr.mark = gc_color_red; + c_732559.hdr.grayed = 0; +c_732559.tag = closureN_tag; + c_732559.fn = (function_type)__lambda_240; +c_732559.num_args = 0; +c_732559.num_elements = 6; +c_732559.elements = (object *)alloca(sizeof(object) * 6); +c_732559.elements[0] = ((closureN)self_731081)->elements[0]; +c_732559.elements[1] = ((closureN)self_731081)->elements[2]; +c_732559.elements[2] = ((closureN)self_731081)->elements[3]; +c_732559.elements[3] = ((closureN)self_731081)->elements[5]; +c_732559.elements[4] = ((closureN)self_731081)->elements[6]; +c_732559.elements[5] = ((closureN)self_731081)->elements[8]; + +return_closcall0(data,(closure)&c_732559); +} else { + +closureN_type c_732575; +c_732575.hdr.mark = gc_color_red; + c_732575.hdr.grayed = 0; +c_732575.tag = closureN_tag; + c_732575.fn = (function_type)__lambda_335; +c_732575.num_args = 1; +c_732575.num_elements = 9; +c_732575.elements = (object *)alloca(sizeof(object) * 9); +c_732575.elements[0] = ((closureN)self_731081)->elements[0]; +c_732575.elements[1] = ((closureN)self_731081)->elements[1]; +c_732575.elements[2] = ((closureN)self_731081)->elements[2]; +c_732575.elements[3] = ((closureN)self_731081)->elements[3]; +c_732575.elements[4] = ((closureN)self_731081)->elements[4]; +c_732575.elements[5] = ((closureN)self_731081)->elements[5]; +c_732575.elements[6] = ((closureN)self_731081)->elements[6]; +c_732575.elements[7] = ((closureN)self_731081)->elements[7]; +c_732575.elements[8] = ((closureN)self_731081)->elements[8]; + +return_closcall1(data,(closure)&c_732575, Cyc_eq(obj_char2obj(105), cell_get(((closureN)self_731081)->elements[4])));} +; +} + +static void __lambda_335(void *data, int argc, object self_731082, object r_73650) { + if( (boolean_f != r_73650) ){ + +closureN_type c_732577; +c_732577.hdr.mark = gc_color_red; + c_732577.hdr.grayed = 0; +c_732577.tag = closureN_tag; + c_732577.fn = (function_type)__lambda_244; +c_732577.num_args = 0; +c_732577.num_elements = 6; +c_732577.elements = (object *)alloca(sizeof(object) * 6); +c_732577.elements[0] = ((closureN)self_731082)->elements[0]; +c_732577.elements[1] = ((closureN)self_731082)->elements[2]; +c_732577.elements[2] = ((closureN)self_731082)->elements[3]; +c_732577.elements[3] = ((closureN)self_731082)->elements[5]; +c_732577.elements[4] = ((closureN)self_731082)->elements[6]; +c_732577.elements[5] = ((closureN)self_731082)->elements[8]; + +return_closcall0(data,(closure)&c_732577); +} else { + +closureN_type c_732593; +c_732593.hdr.mark = gc_color_red; + c_732593.hdr.grayed = 0; +c_732593.tag = closureN_tag; + c_732593.fn = (function_type)__lambda_334; +c_732593.num_args = 1; +c_732593.num_elements = 9; +c_732593.elements = (object *)alloca(sizeof(object) * 9); +c_732593.elements[0] = ((closureN)self_731082)->elements[0]; +c_732593.elements[1] = ((closureN)self_731082)->elements[1]; +c_732593.elements[2] = ((closureN)self_731082)->elements[2]; +c_732593.elements[3] = ((closureN)self_731082)->elements[3]; +c_732593.elements[4] = ((closureN)self_731082)->elements[4]; +c_732593.elements[5] = ((closureN)self_731082)->elements[5]; +c_732593.elements[6] = ((closureN)self_731082)->elements[6]; +c_732593.elements[7] = ((closureN)self_731082)->elements[7]; +c_732593.elements[8] = ((closureN)self_731082)->elements[8]; + +return_closcall1(data,(closure)&c_732593, Cyc_eq(obj_char2obj(98), cell_get(((closureN)self_731082)->elements[4])));} +; +} + +static void __lambda_334(void *data, int argc, object self_731083, object r_73654) { + if( (boolean_f != r_73654) ){ + +closureN_type c_732595; +c_732595.hdr.mark = gc_color_red; + c_732595.hdr.grayed = 0; +c_732595.tag = closureN_tag; + c_732595.fn = (function_type)__lambda_248; +c_732595.num_args = 0; +c_732595.num_elements = 6; +c_732595.elements = (object *)alloca(sizeof(object) * 6); +c_732595.elements[0] = ((closureN)self_731083)->elements[0]; +c_732595.elements[1] = ((closureN)self_731083)->elements[2]; +c_732595.elements[2] = ((closureN)self_731083)->elements[3]; +c_732595.elements[3] = ((closureN)self_731083)->elements[5]; +c_732595.elements[4] = ((closureN)self_731083)->elements[6]; +c_732595.elements[5] = ((closureN)self_731083)->elements[8]; + +return_closcall0(data,(closure)&c_732595); +} else { + +closureN_type c_732617; +c_732617.hdr.mark = gc_color_red; + c_732617.hdr.grayed = 0; +c_732617.tag = closureN_tag; + c_732617.fn = (function_type)__lambda_333; +c_732617.num_args = 1; +c_732617.num_elements = 9; +c_732617.elements = (object *)alloca(sizeof(object) * 9); +c_732617.elements[0] = ((closureN)self_731083)->elements[0]; +c_732617.elements[1] = ((closureN)self_731083)->elements[1]; +c_732617.elements[2] = ((closureN)self_731083)->elements[2]; +c_732617.elements[3] = ((closureN)self_731083)->elements[3]; +c_732617.elements[4] = ((closureN)self_731083)->elements[4]; +c_732617.elements[5] = ((closureN)self_731083)->elements[5]; +c_732617.elements[6] = ((closureN)self_731083)->elements[6]; +c_732617.elements[7] = ((closureN)self_731083)->elements[7]; +c_732617.elements[8] = ((closureN)self_731083)->elements[8]; + +return_closcall1(data,(closure)&c_732617, Cyc_eq(obj_char2obj(111), cell_get(((closureN)self_731083)->elements[4])));} +; +} + +static void __lambda_333(void *data, int argc, object self_731084, object r_73658) { + if( (boolean_f != r_73658) ){ + +closureN_type c_732619; +c_732619.hdr.mark = gc_color_red; + c_732619.hdr.grayed = 0; +c_732619.tag = closureN_tag; + c_732619.fn = (function_type)__lambda_252; +c_732619.num_args = 0; +c_732619.num_elements = 6; +c_732619.elements = (object *)alloca(sizeof(object) * 6); +c_732619.elements[0] = ((closureN)self_731084)->elements[0]; +c_732619.elements[1] = ((closureN)self_731084)->elements[2]; +c_732619.elements[2] = ((closureN)self_731084)->elements[3]; +c_732619.elements[3] = ((closureN)self_731084)->elements[5]; +c_732619.elements[4] = ((closureN)self_731084)->elements[6]; +c_732619.elements[5] = ((closureN)self_731084)->elements[8]; + +return_closcall0(data,(closure)&c_732619); +} else { + +closureN_type c_732641; +c_732641.hdr.mark = gc_color_red; + c_732641.hdr.grayed = 0; +c_732641.tag = closureN_tag; + c_732641.fn = (function_type)__lambda_332; +c_732641.num_args = 1; +c_732641.num_elements = 9; +c_732641.elements = (object *)alloca(sizeof(object) * 9); +c_732641.elements[0] = ((closureN)self_731084)->elements[0]; +c_732641.elements[1] = ((closureN)self_731084)->elements[1]; +c_732641.elements[2] = ((closureN)self_731084)->elements[2]; +c_732641.elements[3] = ((closureN)self_731084)->elements[3]; +c_732641.elements[4] = ((closureN)self_731084)->elements[4]; +c_732641.elements[5] = ((closureN)self_731084)->elements[5]; +c_732641.elements[6] = ((closureN)self_731084)->elements[6]; +c_732641.elements[7] = ((closureN)self_731084)->elements[7]; +c_732641.elements[8] = ((closureN)self_731084)->elements[8]; + +return_closcall1(data,(closure)&c_732641, Cyc_eq(obj_char2obj(120), cell_get(((closureN)self_731084)->elements[4])));} +; +} + +static void __lambda_332(void *data, int argc, object self_731085, object r_73662) { + if( (boolean_f != r_73662) ){ + +closureN_type c_732643; +c_732643.hdr.mark = gc_color_red; + c_732643.hdr.grayed = 0; +c_732643.tag = closureN_tag; + c_732643.fn = (function_type)__lambda_256; +c_732643.num_args = 0; +c_732643.num_elements = 6; +c_732643.elements = (object *)alloca(sizeof(object) * 6); +c_732643.elements[0] = ((closureN)self_731085)->elements[0]; +c_732643.elements[1] = ((closureN)self_731085)->elements[2]; +c_732643.elements[2] = ((closureN)self_731085)->elements[3]; +c_732643.elements[3] = ((closureN)self_731085)->elements[5]; +c_732643.elements[4] = ((closureN)self_731085)->elements[6]; +c_732643.elements[5] = ((closureN)self_731085)->elements[8]; + +return_closcall0(data,(closure)&c_732643); +} else { + +closureN_type c_732665; +c_732665.hdr.mark = gc_color_red; + c_732665.hdr.grayed = 0; +c_732665.tag = closureN_tag; + c_732665.fn = (function_type)__lambda_331; +c_732665.num_args = 1; +c_732665.num_elements = 9; +c_732665.elements = (object *)alloca(sizeof(object) * 9); +c_732665.elements[0] = ((closureN)self_731085)->elements[0]; +c_732665.elements[1] = ((closureN)self_731085)->elements[1]; +c_732665.elements[2] = ((closureN)self_731085)->elements[2]; +c_732665.elements[3] = ((closureN)self_731085)->elements[3]; +c_732665.elements[4] = ((closureN)self_731085)->elements[4]; +c_732665.elements[5] = ((closureN)self_731085)->elements[5]; +c_732665.elements[6] = ((closureN)self_731085)->elements[6]; +c_732665.elements[7] = ((closureN)self_731085)->elements[7]; +c_732665.elements[8] = ((closureN)self_731085)->elements[8]; + +return_closcall1(data,(closure)&c_732665, Cyc_eq(obj_char2obj(117), cell_get(((closureN)self_731085)->elements[4])));} +; +} + +static void __lambda_331(void *data, int argc, object self_731086, object r_73666) { + if( (boolean_f != r_73666) ){ + +closureN_type c_732667; +c_732667.hdr.mark = gc_color_red; + c_732667.hdr.grayed = 0; +c_732667.tag = closureN_tag; + c_732667.fn = (function_type)__lambda_289; +c_732667.num_args = 0; +c_732667.num_elements = 8; +c_732667.elements = (object *)alloca(sizeof(object) * 8); +c_732667.elements[0] = ((closureN)self_731086)->elements[0]; +c_732667.elements[1] = ((closureN)self_731086)->elements[2]; +c_732667.elements[2] = ((closureN)self_731086)->elements[3]; +c_732667.elements[3] = ((closureN)self_731086)->elements[4]; +c_732667.elements[4] = ((closureN)self_731086)->elements[5]; +c_732667.elements[5] = ((closureN)self_731086)->elements[6]; +c_732667.elements[6] = ((closureN)self_731086)->elements[7]; +c_732667.elements[7] = ((closureN)self_731086)->elements[8]; + +return_closcall0(data,(closure)&c_732667); +} else { + +closureN_type c_732824; +c_732824.hdr.mark = gc_color_red; + c_732824.hdr.grayed = 0; +c_732824.tag = closureN_tag; + c_732824.fn = (function_type)__lambda_330; +c_732824.num_args = 1; +c_732824.num_elements = 9; +c_732824.elements = (object *)alloca(sizeof(object) * 9); +c_732824.elements[0] = ((closureN)self_731086)->elements[0]; +c_732824.elements[1] = ((closureN)self_731086)->elements[1]; +c_732824.elements[2] = ((closureN)self_731086)->elements[2]; +c_732824.elements[3] = ((closureN)self_731086)->elements[3]; +c_732824.elements[4] = ((closureN)self_731086)->elements[4]; +c_732824.elements[5] = ((closureN)self_731086)->elements[5]; +c_732824.elements[6] = ((closureN)self_731086)->elements[6]; +c_732824.elements[7] = ((closureN)self_731086)->elements[7]; +c_732824.elements[8] = ((closureN)self_731086)->elements[8]; + +return_closcall1(data,(closure)&c_732824, Cyc_eq(obj_char2obj(40), cell_get(((closureN)self_731086)->elements[4])));} +; +} + +static void __lambda_330(void *data, int argc, object self_731087, object r_73696) { + if( (boolean_f != r_73696) ){ + +closureN_type c_732826; +c_732826.hdr.mark = gc_color_red; + c_732826.hdr.grayed = 0; +c_732826.tag = closureN_tag; + c_732826.fn = (function_type)__lambda_308; +c_732826.num_args = 0; +c_732826.num_elements = 7; +c_732826.elements = (object *)alloca(sizeof(object) * 7); +c_732826.elements[0] = ((closureN)self_731087)->elements[0]; +c_732826.elements[1] = ((closureN)self_731087)->elements[2]; +c_732826.elements[2] = ((closureN)self_731087)->elements[3]; +c_732826.elements[3] = ((closureN)self_731087)->elements[5]; +c_732826.elements[4] = ((closureN)self_731087)->elements[6]; +c_732826.elements[5] = ((closureN)self_731087)->elements[7]; +c_732826.elements[6] = ((closureN)self_731087)->elements[8]; + +return_closcall0(data,(closure)&c_732826); +} else { + +closureN_type c_732917; +c_732917.hdr.mark = gc_color_red; + c_732917.hdr.grayed = 0; +c_732917.tag = closureN_tag; + c_732917.fn = (function_type)__lambda_329; +c_732917.num_args = 1; +c_732917.num_elements = 9; +c_732917.elements = (object *)alloca(sizeof(object) * 9); +c_732917.elements[0] = ((closureN)self_731087)->elements[0]; +c_732917.elements[1] = ((closureN)self_731087)->elements[1]; +c_732917.elements[2] = ((closureN)self_731087)->elements[2]; +c_732917.elements[3] = ((closureN)self_731087)->elements[3]; +c_732917.elements[4] = ((closureN)self_731087)->elements[4]; +c_732917.elements[5] = ((closureN)self_731087)->elements[5]; +c_732917.elements[6] = ((closureN)self_731087)->elements[6]; +c_732917.elements[7] = ((closureN)self_731087)->elements[7]; +c_732917.elements[8] = ((closureN)self_731087)->elements[8]; + +return_closcall1(data,(closure)&c_732917, Cyc_eq(obj_char2obj(92), cell_get(((closureN)self_731087)->elements[4])));} +; +} + +static void __lambda_329(void *data, int argc, object self_731088, object r_73712) { + if( (boolean_f != r_73712) ){ + +closureN_type c_732919; +c_732919.hdr.mark = gc_color_red; + c_732919.hdr.grayed = 0; +c_732919.tag = closureN_tag; + c_732919.fn = (function_type)__lambda_312; +c_732919.num_args = 0; +c_732919.num_elements = 6; +c_732919.elements = (object *)alloca(sizeof(object) * 6); +c_732919.elements[0] = ((closureN)self_731088)->elements[0]; +c_732919.elements[1] = ((closureN)self_731088)->elements[2]; +c_732919.elements[2] = ((closureN)self_731088)->elements[3]; +c_732919.elements[3] = ((closureN)self_731088)->elements[5]; +c_732919.elements[4] = ((closureN)self_731088)->elements[6]; +c_732919.elements[5] = ((closureN)self_731088)->elements[8]; + +return_closcall0(data,(closure)&c_732919); +} else { + +closureN_type c_732945; +c_732945.hdr.mark = gc_color_red; + c_732945.hdr.grayed = 0; +c_732945.tag = closureN_tag; + c_732945.fn = (function_type)__lambda_328; +c_732945.num_args = 1; +c_732945.num_elements = 8; +c_732945.elements = (object *)alloca(sizeof(object) * 8); +c_732945.elements[0] = ((closureN)self_731088)->elements[0]; +c_732945.elements[1] = ((closureN)self_731088)->elements[1]; +c_732945.elements[2] = ((closureN)self_731088)->elements[2]; +c_732945.elements[3] = ((closureN)self_731088)->elements[3]; +c_732945.elements[4] = ((closureN)self_731088)->elements[5]; +c_732945.elements[5] = ((closureN)self_731088)->elements[6]; +c_732945.elements[6] = ((closureN)self_731088)->elements[7]; +c_732945.elements[7] = ((closureN)self_731088)->elements[8]; + +return_closcall1(data,(closure)&c_732945, Cyc_eq(obj_char2obj(59), cell_get(((closureN)self_731088)->elements[4])));} +; +} + +static void __lambda_328(void *data, int argc, object self_731089, object r_73716) { + if( (boolean_f != r_73716) ){ + +closureN_type c_732947; +c_732947.hdr.mark = gc_color_red; + c_732947.hdr.grayed = 0; +c_732947.tag = closureN_tag; + c_732947.fn = (function_type)__lambda_324; +c_732947.num_args = 0; +c_732947.num_elements = 8; +c_732947.elements = (object *)alloca(sizeof(object) * 8); +c_732947.elements[0] = ((closureN)self_731089)->elements[0]; +c_732947.elements[1] = ((closureN)self_731089)->elements[1]; +c_732947.elements[2] = ((closureN)self_731089)->elements[2]; +c_732947.elements[3] = ((closureN)self_731089)->elements[3]; +c_732947.elements[4] = ((closureN)self_731089)->elements[4]; +c_732947.elements[5] = ((closureN)self_731089)->elements[5]; +c_732947.elements[6] = ((closureN)self_731089)->elements[6]; +c_732947.elements[7] = ((closureN)self_731089)->elements[7]; + +return_closcall0(data,(closure)&c_732947); +} else { + +closureN_type c_732996; +c_732996.hdr.mark = gc_color_red; + c_732996.hdr.grayed = 0; +c_732996.tag = closureN_tag; + c_732996.fn = (function_type)__lambda_327; +c_732996.num_args = 0; +c_732996.num_elements = 2; +c_732996.elements = (object *)alloca(sizeof(object) * 2); +c_732996.elements[0] = ((closureN)self_731089)->elements[3]; +c_732996.elements[1] = ((closureN)self_731089)->elements[5]; + +return_closcall0(data,(closure)&c_732996);} +; +} + +static void __lambda_327(void *data, int argc, object self_731090) { + +closureN_type c_732998; +c_732998.hdr.mark = gc_color_red; + c_732998.hdr.grayed = 0; +c_732998.tag = closureN_tag; + c_732998.fn = (function_type)__lambda_326; +c_732998.num_args = 1; +c_732998.num_elements = 2; +c_732998.elements = (object *)alloca(sizeof(object) * 2); +c_732998.elements[0] = ((closureN)self_731090)->elements[0]; +c_732998.elements[1] = ((closureN)self_731090)->elements[1]; + +return_closcall2(data, __glo_in_91port_117get_91lnum_scheme_read, &c_732998, ((closureN)self_731090)->elements[1]);; +} + +static void __lambda_326(void *data, int argc, object self_731091, object r_73726) { + +closureN_type c_733000; +c_733000.hdr.mark = gc_color_red; + c_733000.hdr.grayed = 0; +c_733000.tag = closureN_tag; + c_733000.fn = (function_type)__lambda_325; +c_733000.num_args = 1; +c_733000.num_elements = 2; +c_733000.elements = (object *)alloca(sizeof(object) * 2); +c_733000.elements[0] = ((closureN)self_731091)->elements[0]; +c_733000.elements[1] = r_73726; + +return_closcall2(data, __glo_in_91port_117get_91cnum_scheme_read, &c_733000, ((closureN)self_731091)->elements[1]);; +} + +static void __lambda_325(void *data, int argc, object self_731092, object r_73727) { + +make_string(c_733003, "Unhandled input sequence"); +return_closcall4(data, __glo_parse_91error_scheme_read, ((closureN)self_731092)->elements[0], &c_733003, ((closureN)self_731092)->elements[1], r_73727);; +} + +static void __lambda_324(void *data, int argc, object self_731093) { + +closureN_type c_732949; +c_732949.hdr.mark = gc_color_red; + c_732949.hdr.grayed = 0; +c_732949.tag = closureN_tag; + c_732949.fn = (function_type)__lambda_323; +c_732949.num_args = 1; +c_732949.num_elements = 8; +c_732949.elements = (object *)alloca(sizeof(object) * 8); +c_732949.elements[0] = ((closureN)self_731093)->elements[0]; +c_732949.elements[1] = ((closureN)self_731093)->elements[1]; +c_732949.elements[2] = ((closureN)self_731093)->elements[2]; +c_732949.elements[3] = ((closureN)self_731093)->elements[3]; +c_732949.elements[4] = ((closureN)self_731093)->elements[4]; +c_732949.elements[5] = ((closureN)self_731093)->elements[5]; +c_732949.elements[6] = ((closureN)self_731093)->elements[6]; +c_732949.elements[7] = ((closureN)self_731093)->elements[7]; + +return_closcall1(data,(closure)&c_732949, NULL);; +} + +static void __lambda_323(void *data, int argc, object self_731094, object r_73724) { + +closureN_type c_732951; +c_732951.hdr.mark = gc_color_red; + c_732951.hdr.grayed = 0; +c_732951.tag = closureN_tag; + c_732951.fn = (function_type)__lambda_322; +c_732951.num_args = 1; +c_732951.num_elements = 9; +c_732951.elements = (object *)alloca(sizeof(object) * 9); +c_732951.elements[0] = ((closureN)self_731094)->elements[0]; +c_732951.elements[1] = ((closureN)self_731094)->elements[1]; +c_732951.elements[2] = ((closureN)self_731094)->elements[2]; +c_732951.elements[3] = ((closureN)self_731094)->elements[3]; +c_732951.elements[4] = ((closureN)self_731094)->elements[4]; +c_732951.elements[5] = ((closureN)self_731094)->elements[5]; +c_732951.elements[6] = r_73724; +c_732951.elements[7] = ((closureN)self_731094)->elements[6]; +c_732951.elements[8] = ((closureN)self_731094)->elements[7]; + +return_closcall1(data,(closure)&c_732951, NULL);; +} + +static void __lambda_322(void *data, int argc, object self_731095, object r_73725) { + +closureN_type c_732953; +c_732953.hdr.mark = gc_color_red; + c_732953.hdr.grayed = 0; +c_732953.tag = closureN_tag; + c_732953.fn = (function_type)__lambda_321; +c_732953.num_args = 1; +c_732953.num_elements = 8; +c_732953.elements = (object *)alloca(sizeof(object) * 8); +c_732953.elements[0] = ((closureN)self_731095)->elements[0]; +c_732953.elements[1] = ((closureN)self_731095)->elements[1]; +c_732953.elements[2] = ((closureN)self_731095)->elements[2]; +c_732953.elements[3] = ((closureN)self_731095)->elements[3]; +c_732953.elements[4] = ((closureN)self_731095)->elements[4]; +c_732953.elements[5] = ((closureN)self_731095)->elements[5]; +c_732953.elements[6] = ((closureN)self_731095)->elements[7]; +c_732953.elements[7] = ((closureN)self_731095)->elements[8]; + +return_closcall8(data, __glo_parse_scheme_read, &c_732953, ((closureN)self_731095)->elements[2], ((closureN)self_731095)->elements[6], r_73725, boolean_f, boolean_f, obj_int2obj(0), ((closureN)self_731095)->elements[5]);; +} + +static void __lambda_321(void *data, int argc, object self_731096, object r_73717) { + +closureN_type c_732955; +c_732955.hdr.mark = gc_color_red; + c_732955.hdr.grayed = 0; +c_732955.tag = closureN_tag; + c_732955.fn = (function_type)__lambda_314; +c_732955.num_args = 0; +c_732955.num_elements = 2; +c_732955.elements = (object *)alloca(sizeof(object) * 2); +c_732955.elements[0] = ((closureN)self_731096)->elements[0]; +c_732955.elements[1] = ((closureN)self_731096)->elements[6]; + + +closureN_type c_732965; +c_732965.hdr.mark = gc_color_red; + c_732965.hdr.grayed = 0; +c_732965.tag = closureN_tag; + c_732965.fn = (function_type)__lambda_320; +c_732965.num_args = 1; +c_732965.num_elements = 8; +c_732965.elements = (object *)alloca(sizeof(object) * 8); +c_732965.elements[0] = ((closureN)self_731096)->elements[0]; +c_732965.elements[1] = ((closureN)self_731096)->elements[1]; +c_732965.elements[2] = ((closureN)self_731096)->elements[2]; +c_732965.elements[3] = ((closureN)self_731096)->elements[3]; +c_732965.elements[4] = ((closureN)self_731096)->elements[4]; +c_732965.elements[5] = ((closureN)self_731096)->elements[5]; +c_732965.elements[6] = ((closureN)self_731096)->elements[6]; +c_732965.elements[7] = ((closureN)self_731096)->elements[7]; + +return_closcall1(data,(closure)&c_732955, &c_732965);; +} + +static void __lambda_320(void *data, int argc, object self_731097, object r_73718) { + if( (boolean_f != r_73718) ){ + +closureN_type c_732967; +c_732967.hdr.mark = gc_color_red; + c_732967.hdr.grayed = 0; +c_732967.tag = closureN_tag; + c_732967.fn = (function_type)__lambda_318; +c_732967.num_args = 0; +c_732967.num_elements = 5; +c_732967.elements = (object *)alloca(sizeof(object) * 5); +c_732967.elements[0] = ((closureN)self_731097)->elements[1]; +c_732967.elements[1] = ((closureN)self_731097)->elements[3]; +c_732967.elements[2] = ((closureN)self_731097)->elements[5]; +c_732967.elements[3] = ((closureN)self_731097)->elements[6]; +c_732967.elements[4] = ((closureN)self_731097)->elements[7]; + +return_closcall0(data,(closure)&c_732967); +} else { + +closureN_type c_732983; +c_732983.hdr.mark = gc_color_red; + c_732983.hdr.grayed = 0; +c_732983.tag = closureN_tag; + c_732983.fn = (function_type)__lambda_319; +c_732983.num_args = 0; +c_732983.num_elements = 7; +c_732983.elements = (object *)alloca(sizeof(object) * 7); +c_732983.elements[0] = ((closureN)self_731097)->elements[0]; +c_732983.elements[1] = ((closureN)self_731097)->elements[2]; +c_732983.elements[2] = ((closureN)self_731097)->elements[3]; +c_732983.elements[3] = ((closureN)self_731097)->elements[4]; +c_732983.elements[4] = ((closureN)self_731097)->elements[5]; +c_732983.elements[5] = ((closureN)self_731097)->elements[6]; +c_732983.elements[6] = ((closureN)self_731097)->elements[7]; + +return_closcall0(data,(closure)&c_732983);} +; +} + +static void __lambda_319(void *data, int argc, object self_731098) { + return_closcall8(data, __glo_parse_scheme_read, ((closureN)self_731098)->elements[2], ((closureN)self_731098)->elements[1], ((closureN)self_731098)->elements[5], ((closureN)self_731098)->elements[6], ((closureN)self_731098)->elements[0], boolean_f, ((closureN)self_731098)->elements[3], ((closureN)self_731098)->elements[4]);; +} + +static void __lambda_318(void *data, int argc, object self_731099) { + +closureN_type c_732969; +c_732969.hdr.mark = gc_color_red; + c_732969.hdr.grayed = 0; +c_732969.tag = closureN_tag; + c_732969.fn = (function_type)__lambda_317; +c_732969.num_args = 1; +c_732969.num_elements = 3; +c_732969.elements = (object *)alloca(sizeof(object) * 3); +c_732969.elements[0] = ((closureN)self_731099)->elements[1]; +c_732969.elements[1] = ((closureN)self_731099)->elements[3]; +c_732969.elements[2] = ((closureN)self_731099)->elements[4]; + +return_closcall3(data, __glo_in_91port_117set_91buf_67_scheme_read, &c_732969, ((closureN)self_731099)->elements[2], ((closureN)self_731099)->elements[0]);; +} + +static void __lambda_317(void *data, int argc, object self_731100, object r_73719) { + +closureN_type c_732971; +c_732971.hdr.mark = gc_color_red; + c_732971.hdr.grayed = 0; +c_732971.tag = closureN_tag; + c_732971.fn = (function_type)__lambda_316; +c_732971.num_args = 1; +c_732971.num_elements = 2; +c_732971.elements = (object *)alloca(sizeof(object) * 2); +c_732971.elements[0] = ((closureN)self_731100)->elements[0]; +c_732971.elements[1] = ((closureN)self_731100)->elements[2]; + +return_closcall2(data, __glo__91_125tok_scheme_read, &c_732971, ((closureN)self_731100)->elements[1]);; +} + +static void __lambda_316(void *data, int argc, object self_731101, object r_73721) { + +closureN_type c_732973; +c_732973.hdr.mark = gc_color_red; + c_732973.hdr.grayed = 0; +c_732973.tag = closureN_tag; + c_732973.fn = (function_type)__lambda_315; +c_732973.num_args = 1; +c_732973.num_elements = 1; +c_732973.elements = (object *)alloca(sizeof(object) * 1); +c_732973.elements[0] = ((closureN)self_731101)->elements[0]; + +return_closcall3(data, __glo_add_91tok_scheme_read, &c_732973, r_73721, ((closureN)self_731101)->elements[1]);; +} + +static void __lambda_315(void *data, int argc, object self_731102, object r_73720) { + return_closcall1(data, ((closureN)self_731102)->elements[0], car(r_73720));; +} + +static void __lambda_314(void *data, int argc, object self_731103, object k_73722) { + if( (boolean_f != ((closureN)self_731103)->elements[0]) ){ + return_closcall1(data, k_73722, boolean_f); +} else { + +closureN_type c_732959; +c_732959.hdr.mark = gc_color_red; + c_732959.hdr.grayed = 0; +c_732959.tag = closureN_tag; + c_732959.fn = (function_type)__lambda_313; +c_732959.num_args = 1; +c_732959.num_elements = 1; +c_732959.elements = (object *)alloca(sizeof(object) * 1); +c_732959.elements[0] = k_73722; + +return_closcall1(data,(closure)&c_732959, Cyc_is_null(((closureN)self_731103)->elements[1]));} +; +} + +static void __lambda_313(void *data, int argc, object self_731104, object r_73723) { + return_closcall2(data, __glo_not_scheme_base, ((closureN)self_731104)->elements[0], r_73723);; +} + +static void __lambda_312(void *data, int argc, object self_731105) { + +closureN_type c_732921; +c_732921.hdr.mark = gc_color_red; + c_732921.hdr.grayed = 0; +c_732921.tag = closureN_tag; + c_732921.fn = (function_type)__lambda_311; +c_732921.num_args = 1; +c_732921.num_elements = 6; +c_732921.elements = (object *)alloca(sizeof(object) * 6); +c_732921.elements[0] = ((closureN)self_731105)->elements[0]; +c_732921.elements[1] = ((closureN)self_731105)->elements[1]; +c_732921.elements[2] = ((closureN)self_731105)->elements[2]; +c_732921.elements[3] = ((closureN)self_731105)->elements[3]; +c_732921.elements[4] = ((closureN)self_731105)->elements[4]; +c_732921.elements[5] = ((closureN)self_731105)->elements[5]; + +return_closcall3(data, __glo_read_91pound_scheme_read, &c_732921, ((closureN)self_731105)->elements[1], ((closureN)self_731105)->elements[4]);; +} + +static void __lambda_311(void *data, int argc, object self_731106, object r_73715) { + +closureN_type c_732923; +c_732923.hdr.mark = gc_color_red; + c_732923.hdr.grayed = 0; +c_732923.tag = closureN_tag; + c_732923.fn = (function_type)__lambda_310; +c_732923.num_args = 1; +c_732923.num_elements = 5; +c_732923.elements = (object *)alloca(sizeof(object) * 5); +c_732923.elements[0] = ((closureN)self_731106)->elements[0]; +c_732923.elements[1] = ((closureN)self_731106)->elements[1]; +c_732923.elements[2] = ((closureN)self_731106)->elements[2]; +c_732923.elements[3] = ((closureN)self_731106)->elements[3]; +c_732923.elements[4] = ((closureN)self_731106)->elements[4]; + + +make_pair(c_732940,r_73715, ((closureN)self_731106)->elements[5]); +return_closcall1(data,(closure)&c_732923, &c_732940);; +} + +static void __lambda_310(void *data, int argc, object self_731107, object new_91toks_73206) { + if( (boolean_f != ((closureN)self_731107)->elements[0]) ){ + +closureN_type c_732926; +c_732926.hdr.mark = gc_color_red; + c_732926.hdr.grayed = 0; +c_732926.tag = closureN_tag; + c_732926.fn = (function_type)__lambda_309; +c_732926.num_args = 1; +c_732926.num_elements = 6; +c_732926.elements = (object *)alloca(sizeof(object) * 6); +c_732926.elements[0] = ((closureN)self_731107)->elements[0]; +c_732926.elements[1] = ((closureN)self_731107)->elements[1]; +c_732926.elements[2] = ((closureN)self_731107)->elements[2]; +c_732926.elements[3] = new_91toks_73206; +c_732926.elements[4] = ((closureN)self_731107)->elements[3]; +c_732926.elements[5] = ((closureN)self_731107)->elements[4]; + +return_closcall1(data,(closure)&c_732926, NULL); +} else { + return_closcall1(data, ((closureN)self_731107)->elements[2], car(new_91toks_73206));} +; +} + +static void __lambda_309(void *data, int argc, object self_731108, object r_73714) { + return_closcall8(data, __glo_parse_scheme_read, ((closureN)self_731108)->elements[2], ((closureN)self_731108)->elements[1], r_73714, ((closureN)self_731108)->elements[3], ((closureN)self_731108)->elements[0], boolean_f, ((closureN)self_731108)->elements[4], ((closureN)self_731108)->elements[5]);; +} + +static void __lambda_308(void *data, int argc, object self_731109) { + +closureN_type c_732828; +c_732828.hdr.mark = gc_color_red; + c_732828.hdr.grayed = 0; +c_732828.tag = closureN_tag; + c_732828.fn = (function_type)__lambda_307; +c_732828.num_args = 1; +c_732828.num_elements = 7; +c_732828.elements = (object *)alloca(sizeof(object) * 7); +c_732828.elements[0] = ((closureN)self_731109)->elements[0]; +c_732828.elements[1] = ((closureN)self_731109)->elements[1]; +c_732828.elements[2] = ((closureN)self_731109)->elements[2]; +c_732828.elements[3] = ((closureN)self_731109)->elements[3]; +c_732828.elements[4] = ((closureN)self_731109)->elements[4]; +c_732828.elements[5] = ((closureN)self_731109)->elements[5]; +c_732828.elements[6] = ((closureN)self_731109)->elements[6]; + +return_closcall1(data,(closure)&c_732828, NULL);; +} + +static void __lambda_307(void *data, int argc, object self_731110, object r_73709) { + +closureN_type c_732830; +c_732830.hdr.mark = gc_color_red; + c_732830.hdr.grayed = 0; +c_732830.tag = closureN_tag; + c_732830.fn = (function_type)__lambda_306; +c_732830.num_args = 1; +c_732830.num_elements = 8; +c_732830.elements = (object *)alloca(sizeof(object) * 8); +c_732830.elements[0] = ((closureN)self_731110)->elements[0]; +c_732830.elements[1] = ((closureN)self_731110)->elements[1]; +c_732830.elements[2] = ((closureN)self_731110)->elements[2]; +c_732830.elements[3] = ((closureN)self_731110)->elements[3]; +c_732830.elements[4] = ((closureN)self_731110)->elements[4]; +c_732830.elements[5] = r_73709; +c_732830.elements[6] = ((closureN)self_731110)->elements[5]; +c_732830.elements[7] = ((closureN)self_731110)->elements[6]; + +return_closcall1(data,(closure)&c_732830, NULL);; +} + +static void __lambda_306(void *data, int argc, object self_731111, object r_73710) { + +closureN_type c_732832; +c_732832.hdr.mark = gc_color_red; + c_732832.hdr.grayed = 0; +c_732832.tag = closureN_tag; + c_732832.fn = (function_type)__lambda_305; +c_732832.num_args = 1; +c_732832.num_elements = 9; +c_732832.elements = (object *)alloca(sizeof(object) * 9); +c_732832.elements[0] = ((closureN)self_731111)->elements[0]; +c_732832.elements[1] = ((closureN)self_731111)->elements[1]; +c_732832.elements[2] = ((closureN)self_731111)->elements[2]; +c_732832.elements[3] = ((closureN)self_731111)->elements[3]; +c_732832.elements[4] = ((closureN)self_731111)->elements[4]; +c_732832.elements[5] = ((closureN)self_731111)->elements[5]; +c_732832.elements[6] = r_73710; +c_732832.elements[7] = ((closureN)self_731111)->elements[6]; +c_732832.elements[8] = ((closureN)self_731111)->elements[7]; + + +object c_732914 = Cyc_sum(data,(closure)&c_732832,2,((closureN)self_731111)->elements[3], obj_int2obj(1)); +return_closcall1(data,(closure)&c_732832, c_732914);; +} + +static void __lambda_305(void *data, int argc, object self_731112, object r_73711) { + +closureN_type c_732834; +c_732834.hdr.mark = gc_color_red; + c_732834.hdr.grayed = 0; +c_732834.tag = closureN_tag; + c_732834.fn = (function_type)__lambda_304; +c_732834.num_args = 1; +c_732834.num_elements = 7; +c_732834.elements = (object *)alloca(sizeof(object) * 7); +c_732834.elements[0] = ((closureN)self_731112)->elements[0]; +c_732834.elements[1] = ((closureN)self_731112)->elements[1]; +c_732834.elements[2] = ((closureN)self_731112)->elements[2]; +c_732834.elements[3] = ((closureN)self_731112)->elements[3]; +c_732834.elements[4] = ((closureN)self_731112)->elements[4]; +c_732834.elements[5] = ((closureN)self_731112)->elements[7]; +c_732834.elements[6] = ((closureN)self_731112)->elements[8]; + +return_closcall8(data, __glo_parse_scheme_read, &c_732834, ((closureN)self_731112)->elements[1], ((closureN)self_731112)->elements[5], ((closureN)self_731112)->elements[6], boolean_t, boolean_f, r_73711, ((closureN)self_731112)->elements[4]);; +} + +static void __lambda_304(void *data, int argc, object self_731113, object r_73697) { + +closureN_type c_732836; +c_732836.hdr.mark = gc_color_red; + c_732836.hdr.grayed = 0; +c_732836.tag = closureN_tag; + c_732836.fn = (function_type)__lambda_303; +c_732836.num_args = 1; +c_732836.num_elements = 6; +c_732836.elements = (object *)alloca(sizeof(object) * 6); +c_732836.elements[0] = ((closureN)self_731113)->elements[0]; +c_732836.elements[1] = ((closureN)self_731113)->elements[1]; +c_732836.elements[2] = ((closureN)self_731113)->elements[2]; +c_732836.elements[3] = ((closureN)self_731113)->elements[3]; +c_732836.elements[4] = ((closureN)self_731113)->elements[4]; +c_732836.elements[5] = r_73697; + +return_closcall3(data, __glo_get_91toks_scheme_read, &c_732836, ((closureN)self_731113)->elements[5], ((closureN)self_731113)->elements[6]);; +} + +static void __lambda_303(void *data, int argc, object self_731114, object r_73698) { + +closureN_type c_732838; +c_732838.hdr.mark = gc_color_red; + c_732838.hdr.grayed = 0; +c_732838.tag = closureN_tag; + c_732838.fn = (function_type)__lambda_302; +c_732838.num_args = 2; +c_732838.num_elements = 5; +c_732838.elements = (object *)alloca(sizeof(object) * 5); +c_732838.elements[0] = ((closureN)self_731114)->elements[0]; +c_732838.elements[1] = ((closureN)self_731114)->elements[1]; +c_732838.elements[2] = ((closureN)self_731114)->elements[2]; +c_732838.elements[3] = ((closureN)self_731114)->elements[3]; +c_732838.elements[4] = ((closureN)self_731114)->elements[4]; + +return_closcall2(data,(closure)&c_732838, ((closureN)self_731114)->elements[5], r_73698);; +} + +static void __lambda_302(void *data, int argc, object self_731115, object sub_73208, object toks_85_73207) { + +closureN_type c_732840; +c_732840.hdr.mark = gc_color_red; + c_732840.hdr.grayed = 0; +c_732840.tag = closureN_tag; + c_732840.fn = (function_type)__lambda_301; +c_732840.num_args = 1; +c_732840.num_elements = 7; +c_732840.elements = (object *)alloca(sizeof(object) * 7); +c_732840.elements[0] = ((closureN)self_731115)->elements[0]; +c_732840.elements[1] = ((closureN)self_731115)->elements[1]; +c_732840.elements[2] = ((closureN)self_731115)->elements[2]; +c_732840.elements[3] = ((closureN)self_731115)->elements[3]; +c_732840.elements[4] = ((closureN)self_731115)->elements[4]; +c_732840.elements[5] = sub_73208; +c_732840.elements[6] = toks_85_73207; + +return_closcall1(data,(closure)&c_732840, boolean_f);; +} + +static void __lambda_301(void *data, int argc, object self_731116, object new_91toks_73209) { + +closureN_type c_732842; +c_732842.hdr.mark = gc_color_red; + c_732842.hdr.grayed = 0; +c_732842.tag = closureN_tag; + c_732842.fn = (function_type)__lambda_300; +c_732842.num_args = 1; +c_732842.num_elements = 7; +c_732842.elements = (object *)alloca(sizeof(object) * 7); +c_732842.elements[0] = ((closureN)self_731116)->elements[0]; +c_732842.elements[1] = ((closureN)self_731116)->elements[1]; +c_732842.elements[2] = ((closureN)self_731116)->elements[2]; +c_732842.elements[3] = ((closureN)self_731116)->elements[3]; +c_732842.elements[4] = ((closureN)self_731116)->elements[4]; +c_732842.elements[5] = ((closureN)self_731116)->elements[5]; +c_732842.elements[6] = ((closureN)self_731116)->elements[6]; + + +make_cell(c_732904,new_91toks_73209); +return_closcall1(data,(closure)&c_732842, &c_732904);; +} + +static void __lambda_300(void *data, int argc, object self_731117, object new_91toks_73209) { + +closureN_type c_732844; +c_732844.hdr.mark = gc_color_red; + c_732844.hdr.grayed = 0; +c_732844.tag = closureN_tag; + c_732844.fn = (function_type)__lambda_295; +c_732844.num_args = 0; +c_732844.num_elements = 2; +c_732844.elements = (object *)alloca(sizeof(object) * 2); +c_732844.elements[0] = ((closureN)self_731117)->elements[4]; +c_732844.elements[1] = ((closureN)self_731117)->elements[5]; + + +closureN_type c_732874; +c_732874.hdr.mark = gc_color_red; + c_732874.hdr.grayed = 0; +c_732874.tag = closureN_tag; + c_732874.fn = (function_type)__lambda_299; +c_732874.num_args = 1; +c_732874.num_elements = 7; +c_732874.elements = (object *)alloca(sizeof(object) * 7); +c_732874.elements[0] = ((closureN)self_731117)->elements[0]; +c_732874.elements[1] = ((closureN)self_731117)->elements[1]; +c_732874.elements[2] = ((closureN)self_731117)->elements[2]; +c_732874.elements[3] = new_91toks_73209; +c_732874.elements[4] = ((closureN)self_731117)->elements[3]; +c_732874.elements[5] = ((closureN)self_731117)->elements[4]; +c_732874.elements[6] = ((closureN)self_731117)->elements[6]; + +return_closcall1(data,(closure)&c_732844, &c_732874);; +} + +static void __lambda_299(void *data, int argc, object self_731118, object r_73702) { + +closureN_type c_732876; +c_732876.hdr.mark = gc_color_red; + c_732876.hdr.grayed = 0; +c_732876.tag = closureN_tag; + c_732876.fn = (function_type)__lambda_298; +c_732876.num_args = 1; +c_732876.num_elements = 6; +c_732876.elements = (object *)alloca(sizeof(object) * 6); +c_732876.elements[0] = ((closureN)self_731118)->elements[0]; +c_732876.elements[1] = ((closureN)self_731118)->elements[1]; +c_732876.elements[2] = ((closureN)self_731118)->elements[2]; +c_732876.elements[3] = ((closureN)self_731118)->elements[3]; +c_732876.elements[4] = ((closureN)self_731118)->elements[4]; +c_732876.elements[5] = ((closureN)self_731118)->elements[5]; + +return_closcall3(data, __glo_add_91tok_scheme_read, &c_732876, r_73702, ((closureN)self_731118)->elements[6]);; +} + +static void __lambda_298(void *data, int argc, object self_731119, object r_73701) { + +closureN_type c_732878; +c_732878.hdr.mark = gc_color_red; + c_732878.hdr.grayed = 0; +c_732878.tag = closureN_tag; + c_732878.fn = (function_type)__lambda_297; +c_732878.num_args = 1; +c_732878.num_elements = 6; +c_732878.elements = (object *)alloca(sizeof(object) * 6); +c_732878.elements[0] = ((closureN)self_731119)->elements[0]; +c_732878.elements[1] = ((closureN)self_731119)->elements[1]; +c_732878.elements[2] = ((closureN)self_731119)->elements[2]; +c_732878.elements[3] = ((closureN)self_731119)->elements[3]; +c_732878.elements[4] = ((closureN)self_731119)->elements[4]; +c_732878.elements[5] = ((closureN)self_731119)->elements[5]; + +return_closcall1(data,(closure)&c_732878, Cyc_set_car(data, ((closureN)self_731119)->elements[3], r_73701));; +} + +static void __lambda_297(void *data, int argc, object self_731120, object r_73699) { + if( (boolean_f != ((closureN)self_731120)->elements[0]) ){ + +closureN_type c_732881; +c_732881.hdr.mark = gc_color_red; + c_732881.hdr.grayed = 0; +c_732881.tag = closureN_tag; + c_732881.fn = (function_type)__lambda_296; +c_732881.num_args = 1; +c_732881.num_elements = 6; +c_732881.elements = (object *)alloca(sizeof(object) * 6); +c_732881.elements[0] = ((closureN)self_731120)->elements[0]; +c_732881.elements[1] = ((closureN)self_731120)->elements[1]; +c_732881.elements[2] = ((closureN)self_731120)->elements[2]; +c_732881.elements[3] = ((closureN)self_731120)->elements[3]; +c_732881.elements[4] = ((closureN)self_731120)->elements[4]; +c_732881.elements[5] = ((closureN)self_731120)->elements[5]; + +return_closcall1(data,(closure)&c_732881, NULL); +} else { + return_closcall1(data, ((closureN)self_731120)->elements[2], car(cell_get(((closureN)self_731120)->elements[3])));} +; +} + +static void __lambda_296(void *data, int argc, object self_731121, object r_73700) { + return_closcall8(data, __glo_parse_scheme_read, ((closureN)self_731121)->elements[2], ((closureN)self_731121)->elements[1], r_73700, cell_get(((closureN)self_731121)->elements[3]), ((closureN)self_731121)->elements[0], boolean_f, ((closureN)self_731121)->elements[4], ((closureN)self_731121)->elements[5]);; +} + +static void __lambda_295(void *data, int argc, object self_731122, object k_73703) { + +closureN_type c_732846; +c_732846.hdr.mark = gc_color_red; + c_732846.hdr.grayed = 0; +c_732846.tag = closureN_tag; + c_732846.fn = (function_type)__lambda_291; +c_732846.num_args = 0; +c_732846.num_elements = 1; +c_732846.elements = (object *)alloca(sizeof(object) * 1); +c_732846.elements[0] = ((closureN)self_731122)->elements[1]; + + +closureN_type c_732857; +c_732857.hdr.mark = gc_color_red; + c_732857.hdr.grayed = 0; +c_732857.tag = closureN_tag; + c_732857.fn = (function_type)__lambda_294; +c_732857.num_args = 1; +c_732857.num_elements = 3; +c_732857.elements = (object *)alloca(sizeof(object) * 3); +c_732857.elements[0] = k_73703; +c_732857.elements[1] = ((closureN)self_731122)->elements[0]; +c_732857.elements[2] = ((closureN)self_731122)->elements[1]; + +return_closcall1(data,(closure)&c_732846, &c_732857);; +} + +static void __lambda_294(void *data, int argc, object self_731123, object r_73704) { + if( (boolean_f != r_73704) ){ + +closureN_type c_732859; +c_732859.hdr.mark = gc_color_red; + c_732859.hdr.grayed = 0; +c_732859.tag = closureN_tag; + c_732859.fn = (function_type)__lambda_293; +c_732859.num_args = 1; +c_732859.num_elements = 2; +c_732859.elements = (object *)alloca(sizeof(object) * 2); +c_732859.elements[0] = ((closureN)self_731123)->elements[0]; +c_732859.elements[1] = ((closureN)self_731123)->elements[1]; + +return_closcall2(data, __glo_in_91port_117get_91lnum_scheme_read, &c_732859, ((closureN)self_731123)->elements[1]); +} else { + +object c_732872 = Cyc_list2vector(data, ((closureN)self_731123)->elements[0],((closureN)self_731123)->elements[2]); +return_closcall1(data, ((closureN)self_731123)->elements[0], c_732872);} +; +} + +static void __lambda_293(void *data, int argc, object self_731124, object r_73705) { + +closureN_type c_732861; +c_732861.hdr.mark = gc_color_red; + c_732861.hdr.grayed = 0; +c_732861.tag = closureN_tag; + c_732861.fn = (function_type)__lambda_292; +c_732861.num_args = 1; +c_732861.num_elements = 2; +c_732861.elements = (object *)alloca(sizeof(object) * 2); +c_732861.elements[0] = ((closureN)self_731124)->elements[0]; +c_732861.elements[1] = r_73705; + +return_closcall2(data, __glo_in_91port_117get_91cnum_scheme_read, &c_732861, ((closureN)self_731124)->elements[1]);; +} + +static void __lambda_292(void *data, int argc, object self_731125, object r_73706) { + +make_string(c_732864, "Invalid vector syntax"); +return_closcall4(data, __glo_parse_91error_scheme_read, ((closureN)self_731125)->elements[0], &c_732864, ((closureN)self_731125)->elements[1], r_73706);; +} + +static void __lambda_291(void *data, int argc, object self_731126, object k_73707) { + +closureN_type c_732848; +c_732848.hdr.mark = gc_color_red; + c_732848.hdr.grayed = 0; +c_732848.tag = closureN_tag; + c_732848.fn = (function_type)__lambda_290; +c_732848.num_args = 1; +c_732848.num_elements = 2; +c_732848.elements = (object *)alloca(sizeof(object) * 2); +c_732848.elements[0] = k_73707; +c_732848.elements[1] = ((closureN)self_731126)->elements[0]; + +return_closcall1(data,(closure)&c_732848, Cyc_is_pair(((closureN)self_731126)->elements[0]));; +} + +static void __lambda_290(void *data, int argc, object self_731127, object r_73708) { + if( (boolean_f != r_73708) ){ + return_closcall2(data, __glo_dotted_127_scheme_read, ((closureN)self_731127)->elements[0], ((closureN)self_731127)->elements[1]); +} else { + return_closcall1(data, ((closureN)self_731127)->elements[0], boolean_f);} +; +} + +static void __lambda_289(void *data, int argc, object self_731128) { + +closureN_type c_732669; +c_732669.hdr.mark = gc_color_red; + c_732669.hdr.grayed = 0; +c_732669.tag = closureN_tag; + c_732669.fn = (function_type)__lambda_288; +c_732669.num_args = 1; +c_732669.num_elements = 8; +c_732669.elements = (object *)alloca(sizeof(object) * 8); +c_732669.elements[0] = ((closureN)self_731128)->elements[0]; +c_732669.elements[1] = ((closureN)self_731128)->elements[1]; +c_732669.elements[2] = ((closureN)self_731128)->elements[2]; +c_732669.elements[3] = ((closureN)self_731128)->elements[3]; +c_732669.elements[4] = ((closureN)self_731128)->elements[4]; +c_732669.elements[5] = ((closureN)self_731128)->elements[5]; +c_732669.elements[6] = ((closureN)self_731128)->elements[6]; +c_732669.elements[7] = ((closureN)self_731128)->elements[7]; + + +object c_732821 = Cyc_io_read_char(data,(closure)&c_732669,((closureN)self_731128)->elements[1]); +return_closcall1(data,(closure)&c_732669, c_732821);; +} + +static void __lambda_288(void *data, int argc, object self_731129, object r_73695) { + +closureN_type c_732671; +c_732671.hdr.mark = gc_color_red; + c_732671.hdr.grayed = 0; +c_732671.tag = closureN_tag; + c_732671.fn = (function_type)__lambda_287; +c_732671.num_args = 1; +c_732671.num_elements = 8; +c_732671.elements = (object *)alloca(sizeof(object) * 8); +c_732671.elements[0] = ((closureN)self_731129)->elements[0]; +c_732671.elements[1] = ((closureN)self_731129)->elements[1]; +c_732671.elements[2] = ((closureN)self_731129)->elements[2]; +c_732671.elements[3] = ((closureN)self_731129)->elements[3]; +c_732671.elements[4] = ((closureN)self_731129)->elements[4]; +c_732671.elements[5] = ((closureN)self_731129)->elements[5]; +c_732671.elements[6] = ((closureN)self_731129)->elements[6]; +c_732671.elements[7] = ((closureN)self_731129)->elements[7]; + +return_closcall1(data,(closure)&c_732671, Cyc_set_car(data, ((closureN)self_731129)->elements[3], r_73695));; +} + +static void __lambda_287(void *data, int argc, object self_731130, object r_73667) { + +closureN_type c_732673; +c_732673.hdr.mark = gc_color_red; + c_732673.hdr.grayed = 0; +c_732673.tag = closureN_tag; + c_732673.fn = (function_type)__lambda_260; +c_732673.num_args = 0; +c_732673.num_elements = 2; +c_732673.elements = (object *)alloca(sizeof(object) * 2); +c_732673.elements[0] = ((closureN)self_731130)->elements[3]; +c_732673.elements[1] = ((closureN)self_731130)->elements[5]; + + +closureN_type c_732693; +c_732693.hdr.mark = gc_color_red; + c_732693.hdr.grayed = 0; +c_732693.tag = closureN_tag; + c_732693.fn = (function_type)__lambda_286; +c_732693.num_args = 1; +c_732693.num_elements = 8; +c_732693.elements = (object *)alloca(sizeof(object) * 8); +c_732693.elements[0] = ((closureN)self_731130)->elements[0]; +c_732693.elements[1] = ((closureN)self_731130)->elements[1]; +c_732693.elements[2] = ((closureN)self_731130)->elements[2]; +c_732693.elements[3] = ((closureN)self_731130)->elements[3]; +c_732693.elements[4] = ((closureN)self_731130)->elements[4]; +c_732693.elements[5] = ((closureN)self_731130)->elements[5]; +c_732693.elements[6] = ((closureN)self_731130)->elements[6]; +c_732693.elements[7] = ((closureN)self_731130)->elements[7]; + +return_closcall1(data,(closure)&c_732673, &c_732693);; +} + +static void __lambda_286(void *data, int argc, object self_731131, object r_73668) { + +closureN_type c_732695; +c_732695.hdr.mark = gc_color_red; + c_732695.hdr.grayed = 0; +c_732695.tag = closureN_tag; + c_732695.fn = (function_type)__lambda_285; +c_732695.num_args = 1; +c_732695.num_elements = 8; +c_732695.elements = (object *)alloca(sizeof(object) * 8); +c_732695.elements[0] = ((closureN)self_731131)->elements[0]; +c_732695.elements[1] = ((closureN)self_731131)->elements[1]; +c_732695.elements[2] = ((closureN)self_731131)->elements[2]; +c_732695.elements[3] = ((closureN)self_731131)->elements[3]; +c_732695.elements[4] = ((closureN)self_731131)->elements[4]; +c_732695.elements[5] = ((closureN)self_731131)->elements[5]; +c_732695.elements[6] = ((closureN)self_731131)->elements[6]; +c_732695.elements[7] = ((closureN)self_731131)->elements[7]; + + +object c_732814 = Cyc_io_read_char(data,(closure)&c_732695,((closureN)self_731131)->elements[1]); +return_closcall1(data,(closure)&c_732695, c_732814);; +} + +static void __lambda_285(void *data, int argc, object self_731132, object r_73690) { + +closureN_type c_732697; +c_732697.hdr.mark = gc_color_red; + c_732697.hdr.grayed = 0; +c_732697.tag = closureN_tag; + c_732697.fn = (function_type)__lambda_284; +c_732697.num_args = 1; +c_732697.num_elements = 8; +c_732697.elements = (object *)alloca(sizeof(object) * 8); +c_732697.elements[0] = ((closureN)self_731132)->elements[0]; +c_732697.elements[1] = ((closureN)self_731132)->elements[1]; +c_732697.elements[2] = ((closureN)self_731132)->elements[2]; +c_732697.elements[3] = ((closureN)self_731132)->elements[3]; +c_732697.elements[4] = ((closureN)self_731132)->elements[4]; +c_732697.elements[5] = ((closureN)self_731132)->elements[5]; +c_732697.elements[6] = ((closureN)self_731132)->elements[6]; +c_732697.elements[7] = ((closureN)self_731132)->elements[7]; + +return_closcall1(data,(closure)&c_732697, Cyc_set_car(data, ((closureN)self_731132)->elements[3], r_73690));; +} + +static void __lambda_284(void *data, int argc, object self_731133, object r_73669) { + +closureN_type c_732699; +c_732699.hdr.mark = gc_color_red; + c_732699.hdr.grayed = 0; +c_732699.tag = closureN_tag; + c_732699.fn = (function_type)__lambda_264; +c_732699.num_args = 0; +c_732699.num_elements = 2; +c_732699.elements = (object *)alloca(sizeof(object) * 2); +c_732699.elements[0] = ((closureN)self_731133)->elements[3]; +c_732699.elements[1] = ((closureN)self_731133)->elements[5]; + + +closureN_type c_732719; +c_732719.hdr.mark = gc_color_red; + c_732719.hdr.grayed = 0; +c_732719.tag = closureN_tag; + c_732719.fn = (function_type)__lambda_283; +c_732719.num_args = 1; +c_732719.num_elements = 7; +c_732719.elements = (object *)alloca(sizeof(object) * 7); +c_732719.elements[0] = ((closureN)self_731133)->elements[0]; +c_732719.elements[1] = ((closureN)self_731133)->elements[1]; +c_732719.elements[2] = ((closureN)self_731133)->elements[2]; +c_732719.elements[3] = ((closureN)self_731133)->elements[4]; +c_732719.elements[4] = ((closureN)self_731133)->elements[5]; +c_732719.elements[5] = ((closureN)self_731133)->elements[6]; +c_732719.elements[6] = ((closureN)self_731133)->elements[7]; + +return_closcall1(data,(closure)&c_732699, &c_732719);; +} + +static void __lambda_283(void *data, int argc, object self_731134, object r_73670) { + +closureN_type c_732721; +c_732721.hdr.mark = gc_color_red; + c_732721.hdr.grayed = 0; +c_732721.tag = closureN_tag; + c_732721.fn = (function_type)__lambda_282; +c_732721.num_args = 1; +c_732721.num_elements = 7; +c_732721.elements = (object *)alloca(sizeof(object) * 7); +c_732721.elements[0] = ((closureN)self_731134)->elements[0]; +c_732721.elements[1] = ((closureN)self_731134)->elements[1]; +c_732721.elements[2] = ((closureN)self_731134)->elements[2]; +c_732721.elements[3] = ((closureN)self_731134)->elements[3]; +c_732721.elements[4] = ((closureN)self_731134)->elements[4]; +c_732721.elements[5] = ((closureN)self_731134)->elements[5]; +c_732721.elements[6] = ((closureN)self_731134)->elements[6]; + +return_closcall1(data,(closure)&c_732721, NULL);; +} + +static void __lambda_282(void *data, int argc, object self_731135, object r_73683) { + +closureN_type c_732723; +c_732723.hdr.mark = gc_color_red; + c_732723.hdr.grayed = 0; +c_732723.tag = closureN_tag; + c_732723.fn = (function_type)__lambda_281; +c_732723.num_args = 1; +c_732723.num_elements = 8; +c_732723.elements = (object *)alloca(sizeof(object) * 8); +c_732723.elements[0] = ((closureN)self_731135)->elements[0]; +c_732723.elements[1] = ((closureN)self_731135)->elements[1]; +c_732723.elements[2] = ((closureN)self_731135)->elements[2]; +c_732723.elements[3] = ((closureN)self_731135)->elements[3]; +c_732723.elements[4] = ((closureN)self_731135)->elements[4]; +c_732723.elements[5] = r_73683; +c_732723.elements[6] = ((closureN)self_731135)->elements[5]; +c_732723.elements[7] = ((closureN)self_731135)->elements[6]; + +return_closcall1(data,(closure)&c_732723, NULL);; +} + +static void __lambda_281(void *data, int argc, object self_731136, object r_73684) { + +closureN_type c_732725; +c_732725.hdr.mark = gc_color_red; + c_732725.hdr.grayed = 0; +c_732725.tag = closureN_tag; + c_732725.fn = (function_type)__lambda_280; +c_732725.num_args = 1; +c_732725.num_elements = 9; +c_732725.elements = (object *)alloca(sizeof(object) * 9); +c_732725.elements[0] = ((closureN)self_731136)->elements[0]; +c_732725.elements[1] = ((closureN)self_731136)->elements[1]; +c_732725.elements[2] = ((closureN)self_731136)->elements[2]; +c_732725.elements[3] = ((closureN)self_731136)->elements[3]; +c_732725.elements[4] = ((closureN)self_731136)->elements[4]; +c_732725.elements[5] = ((closureN)self_731136)->elements[5]; +c_732725.elements[6] = r_73684; +c_732725.elements[7] = ((closureN)self_731136)->elements[6]; +c_732725.elements[8] = ((closureN)self_731136)->elements[7]; + + +object c_732807 = Cyc_sum(data,(closure)&c_732725,2,((closureN)self_731136)->elements[3], obj_int2obj(1)); +return_closcall1(data,(closure)&c_732725, c_732807);; +} + +static void __lambda_280(void *data, int argc, object self_731137, object r_73685) { + +closureN_type c_732727; +c_732727.hdr.mark = gc_color_red; + c_732727.hdr.grayed = 0; +c_732727.tag = closureN_tag; + c_732727.fn = (function_type)__lambda_279; +c_732727.num_args = 1; +c_732727.num_elements = 7; +c_732727.elements = (object *)alloca(sizeof(object) * 7); +c_732727.elements[0] = ((closureN)self_731137)->elements[0]; +c_732727.elements[1] = ((closureN)self_731137)->elements[1]; +c_732727.elements[2] = ((closureN)self_731137)->elements[2]; +c_732727.elements[3] = ((closureN)self_731137)->elements[3]; +c_732727.elements[4] = ((closureN)self_731137)->elements[4]; +c_732727.elements[5] = ((closureN)self_731137)->elements[7]; +c_732727.elements[6] = ((closureN)self_731137)->elements[8]; + +return_closcall8(data, __glo_parse_scheme_read, &c_732727, ((closureN)self_731137)->elements[1], ((closureN)self_731137)->elements[5], ((closureN)self_731137)->elements[6], boolean_t, boolean_f, r_73685, ((closureN)self_731137)->elements[4]);; +} + +static void __lambda_279(void *data, int argc, object self_731138, object r_73671) { + +closureN_type c_732729; +c_732729.hdr.mark = gc_color_red; + c_732729.hdr.grayed = 0; +c_732729.tag = closureN_tag; + c_732729.fn = (function_type)__lambda_278; +c_732729.num_args = 1; +c_732729.num_elements = 6; +c_732729.elements = (object *)alloca(sizeof(object) * 6); +c_732729.elements[0] = ((closureN)self_731138)->elements[0]; +c_732729.elements[1] = ((closureN)self_731138)->elements[1]; +c_732729.elements[2] = ((closureN)self_731138)->elements[2]; +c_732729.elements[3] = ((closureN)self_731138)->elements[3]; +c_732729.elements[4] = ((closureN)self_731138)->elements[4]; +c_732729.elements[5] = r_73671; + +return_closcall3(data, __glo_get_91toks_scheme_read, &c_732729, ((closureN)self_731138)->elements[5], ((closureN)self_731138)->elements[6]);; +} + +static void __lambda_278(void *data, int argc, object self_731139, object r_73672) { + +closureN_type c_732731; +c_732731.hdr.mark = gc_color_red; + c_732731.hdr.grayed = 0; +c_732731.tag = closureN_tag; + c_732731.fn = (function_type)__lambda_277; +c_732731.num_args = 2; +c_732731.num_elements = 5; +c_732731.elements = (object *)alloca(sizeof(object) * 5); +c_732731.elements[0] = ((closureN)self_731139)->elements[0]; +c_732731.elements[1] = ((closureN)self_731139)->elements[1]; +c_732731.elements[2] = ((closureN)self_731139)->elements[2]; +c_732731.elements[3] = ((closureN)self_731139)->elements[3]; +c_732731.elements[4] = ((closureN)self_731139)->elements[4]; + +return_closcall2(data,(closure)&c_732731, ((closureN)self_731139)->elements[5], r_73672);; +} + +static void __lambda_277(void *data, int argc, object self_731140, object sub_73211, object toks_85_73210) { + +closureN_type c_732733; +c_732733.hdr.mark = gc_color_red; + c_732733.hdr.grayed = 0; +c_732733.tag = closureN_tag; + c_732733.fn = (function_type)__lambda_276; +c_732733.num_args = 1; +c_732733.num_elements = 7; +c_732733.elements = (object *)alloca(sizeof(object) * 7); +c_732733.elements[0] = ((closureN)self_731140)->elements[0]; +c_732733.elements[1] = ((closureN)self_731140)->elements[1]; +c_732733.elements[2] = ((closureN)self_731140)->elements[2]; +c_732733.elements[3] = ((closureN)self_731140)->elements[3]; +c_732733.elements[4] = ((closureN)self_731140)->elements[4]; +c_732733.elements[5] = sub_73211; +c_732733.elements[6] = toks_85_73210; + +return_closcall1(data,(closure)&c_732733, boolean_f);; +} + +static void __lambda_276(void *data, int argc, object self_731141, object new_91toks_73212) { + +closureN_type c_732735; +c_732735.hdr.mark = gc_color_red; + c_732735.hdr.grayed = 0; +c_732735.tag = closureN_tag; + c_732735.fn = (function_type)__lambda_275; +c_732735.num_args = 1; +c_732735.num_elements = 7; +c_732735.elements = (object *)alloca(sizeof(object) * 7); +c_732735.elements[0] = ((closureN)self_731141)->elements[0]; +c_732735.elements[1] = ((closureN)self_731141)->elements[1]; +c_732735.elements[2] = ((closureN)self_731141)->elements[2]; +c_732735.elements[3] = ((closureN)self_731141)->elements[3]; +c_732735.elements[4] = ((closureN)self_731141)->elements[4]; +c_732735.elements[5] = ((closureN)self_731141)->elements[5]; +c_732735.elements[6] = ((closureN)self_731141)->elements[6]; + + +make_cell(c_732797,new_91toks_73212); +return_closcall1(data,(closure)&c_732735, &c_732797);; +} + +static void __lambda_275(void *data, int argc, object self_731142, object new_91toks_73212) { + +closureN_type c_732737; +c_732737.hdr.mark = gc_color_red; + c_732737.hdr.grayed = 0; +c_732737.tag = closureN_tag; + c_732737.fn = (function_type)__lambda_270; +c_732737.num_args = 0; +c_732737.num_elements = 2; +c_732737.elements = (object *)alloca(sizeof(object) * 2); +c_732737.elements[0] = ((closureN)self_731142)->elements[4]; +c_732737.elements[1] = ((closureN)self_731142)->elements[5]; + + +closureN_type c_732767; +c_732767.hdr.mark = gc_color_red; + c_732767.hdr.grayed = 0; +c_732767.tag = closureN_tag; + c_732767.fn = (function_type)__lambda_274; +c_732767.num_args = 1; +c_732767.num_elements = 7; +c_732767.elements = (object *)alloca(sizeof(object) * 7); +c_732767.elements[0] = ((closureN)self_731142)->elements[0]; +c_732767.elements[1] = ((closureN)self_731142)->elements[1]; +c_732767.elements[2] = ((closureN)self_731142)->elements[2]; +c_732767.elements[3] = new_91toks_73212; +c_732767.elements[4] = ((closureN)self_731142)->elements[3]; +c_732767.elements[5] = ((closureN)self_731142)->elements[4]; +c_732767.elements[6] = ((closureN)self_731142)->elements[6]; + +return_closcall1(data,(closure)&c_732737, &c_732767);; +} + +static void __lambda_274(void *data, int argc, object self_731143, object r_73676) { + +closureN_type c_732769; +c_732769.hdr.mark = gc_color_red; + c_732769.hdr.grayed = 0; +c_732769.tag = closureN_tag; + c_732769.fn = (function_type)__lambda_273; +c_732769.num_args = 1; +c_732769.num_elements = 6; +c_732769.elements = (object *)alloca(sizeof(object) * 6); +c_732769.elements[0] = ((closureN)self_731143)->elements[0]; +c_732769.elements[1] = ((closureN)self_731143)->elements[1]; +c_732769.elements[2] = ((closureN)self_731143)->elements[2]; +c_732769.elements[3] = ((closureN)self_731143)->elements[3]; +c_732769.elements[4] = ((closureN)self_731143)->elements[4]; +c_732769.elements[5] = ((closureN)self_731143)->elements[5]; + +return_closcall3(data, __glo_add_91tok_scheme_read, &c_732769, r_73676, ((closureN)self_731143)->elements[6]);; +} + +static void __lambda_273(void *data, int argc, object self_731144, object r_73675) { + +closureN_type c_732771; +c_732771.hdr.mark = gc_color_red; + c_732771.hdr.grayed = 0; +c_732771.tag = closureN_tag; + c_732771.fn = (function_type)__lambda_272; +c_732771.num_args = 1; +c_732771.num_elements = 6; +c_732771.elements = (object *)alloca(sizeof(object) * 6); +c_732771.elements[0] = ((closureN)self_731144)->elements[0]; +c_732771.elements[1] = ((closureN)self_731144)->elements[1]; +c_732771.elements[2] = ((closureN)self_731144)->elements[2]; +c_732771.elements[3] = ((closureN)self_731144)->elements[3]; +c_732771.elements[4] = ((closureN)self_731144)->elements[4]; +c_732771.elements[5] = ((closureN)self_731144)->elements[5]; + +return_closcall1(data,(closure)&c_732771, Cyc_set_car(data, ((closureN)self_731144)->elements[3], r_73675));; +} + +static void __lambda_272(void *data, int argc, object self_731145, object r_73673) { + if( (boolean_f != ((closureN)self_731145)->elements[0]) ){ + +closureN_type c_732774; +c_732774.hdr.mark = gc_color_red; + c_732774.hdr.grayed = 0; +c_732774.tag = closureN_tag; + c_732774.fn = (function_type)__lambda_271; +c_732774.num_args = 1; +c_732774.num_elements = 6; +c_732774.elements = (object *)alloca(sizeof(object) * 6); +c_732774.elements[0] = ((closureN)self_731145)->elements[0]; +c_732774.elements[1] = ((closureN)self_731145)->elements[1]; +c_732774.elements[2] = ((closureN)self_731145)->elements[2]; +c_732774.elements[3] = ((closureN)self_731145)->elements[3]; +c_732774.elements[4] = ((closureN)self_731145)->elements[4]; +c_732774.elements[5] = ((closureN)self_731145)->elements[5]; + +return_closcall1(data,(closure)&c_732774, NULL); +} else { + return_closcall1(data, ((closureN)self_731145)->elements[2], car(cell_get(((closureN)self_731145)->elements[3])));} +; +} + +static void __lambda_271(void *data, int argc, object self_731146, object r_73674) { + return_closcall8(data, __glo_parse_scheme_read, ((closureN)self_731146)->elements[2], ((closureN)self_731146)->elements[1], r_73674, cell_get(((closureN)self_731146)->elements[3]), ((closureN)self_731146)->elements[0], boolean_f, ((closureN)self_731146)->elements[4], ((closureN)self_731146)->elements[5]);; +} + +static void __lambda_270(void *data, int argc, object self_731147, object k_73677) { + +closureN_type c_732739; +c_732739.hdr.mark = gc_color_red; + c_732739.hdr.grayed = 0; +c_732739.tag = closureN_tag; + c_732739.fn = (function_type)__lambda_266; +c_732739.num_args = 0; +c_732739.num_elements = 1; +c_732739.elements = (object *)alloca(sizeof(object) * 1); +c_732739.elements[0] = ((closureN)self_731147)->elements[1]; + + +closureN_type c_732750; +c_732750.hdr.mark = gc_color_red; + c_732750.hdr.grayed = 0; +c_732750.tag = closureN_tag; + c_732750.fn = (function_type)__lambda_269; +c_732750.num_args = 1; +c_732750.num_elements = 3; +c_732750.elements = (object *)alloca(sizeof(object) * 3); +c_732750.elements[0] = k_73677; +c_732750.elements[1] = ((closureN)self_731147)->elements[0]; +c_732750.elements[2] = ((closureN)self_731147)->elements[1]; + +return_closcall1(data,(closure)&c_732739, &c_732750);; +} + +static void __lambda_269(void *data, int argc, object self_731148, object r_73678) { + if( (boolean_f != r_73678) ){ + +closureN_type c_732752; +c_732752.hdr.mark = gc_color_red; + c_732752.hdr.grayed = 0; +c_732752.tag = closureN_tag; + c_732752.fn = (function_type)__lambda_268; +c_732752.num_args = 1; +c_732752.num_elements = 2; +c_732752.elements = (object *)alloca(sizeof(object) * 2); +c_732752.elements[0] = ((closureN)self_731148)->elements[0]; +c_732752.elements[1] = ((closureN)self_731148)->elements[1]; + +return_closcall2(data, __glo_in_91port_117get_91lnum_scheme_read, &c_732752, ((closureN)self_731148)->elements[1]); +} else { + +object c_732765 = apply(data, ((closureN)self_731148)->elements[0],primitive_bytevector, ((closureN)self_731148)->elements[2]); +return_closcall1(data, ((closureN)self_731148)->elements[0], c_732765);} +; +} + +static void __lambda_268(void *data, int argc, object self_731149, object r_73679) { + +closureN_type c_732754; +c_732754.hdr.mark = gc_color_red; + c_732754.hdr.grayed = 0; +c_732754.tag = closureN_tag; + c_732754.fn = (function_type)__lambda_267; +c_732754.num_args = 1; +c_732754.num_elements = 2; +c_732754.elements = (object *)alloca(sizeof(object) * 2); +c_732754.elements[0] = ((closureN)self_731149)->elements[0]; +c_732754.elements[1] = r_73679; + +return_closcall2(data, __glo_in_91port_117get_91cnum_scheme_read, &c_732754, ((closureN)self_731149)->elements[1]);; +} + +static void __lambda_267(void *data, int argc, object self_731150, object r_73680) { + +make_string(c_732757, "Invalid vector syntax"); +return_closcall4(data, __glo_parse_91error_scheme_read, ((closureN)self_731150)->elements[0], &c_732757, ((closureN)self_731150)->elements[1], r_73680);; +} + +static void __lambda_266(void *data, int argc, object self_731151, object k_73681) { + +closureN_type c_732741; +c_732741.hdr.mark = gc_color_red; + c_732741.hdr.grayed = 0; +c_732741.tag = closureN_tag; + c_732741.fn = (function_type)__lambda_265; +c_732741.num_args = 1; +c_732741.num_elements = 2; +c_732741.elements = (object *)alloca(sizeof(object) * 2); +c_732741.elements[0] = k_73681; +c_732741.elements[1] = ((closureN)self_731151)->elements[0]; + +return_closcall1(data,(closure)&c_732741, Cyc_is_pair(((closureN)self_731151)->elements[0]));; +} + +static void __lambda_265(void *data, int argc, object self_731152, object r_73682) { + if( (boolean_f != r_73682) ){ + return_closcall2(data, __glo_dotted_127_scheme_read, ((closureN)self_731152)->elements[0], ((closureN)self_731152)->elements[1]); +} else { + return_closcall1(data, ((closureN)self_731152)->elements[0], boolean_f);} +; +} + +static void __lambda_264(void *data, int argc, object self_731153, object k_73686) { + +closureN_type c_732701; +c_732701.hdr.mark = gc_color_red; + c_732701.hdr.grayed = 0; +c_732701.tag = closureN_tag; + c_732701.fn = (function_type)__lambda_263; +c_732701.num_args = 1; +c_732701.num_elements = 2; +c_732701.elements = (object *)alloca(sizeof(object) * 2); +c_732701.elements[0] = k_73686; +c_732701.elements[1] = ((closureN)self_731153)->elements[1]; + +return_closcall1(data,(closure)&c_732701, Cyc_eq(obj_char2obj(40), cell_get(((closureN)self_731153)->elements[0])));; +} + +static void __lambda_263(void *data, int argc, object self_731154, object r_73687) { + if( (boolean_f != r_73687) ){ + return_closcall1(data, ((closureN)self_731154)->elements[0], boolean_f); +} else { + +closureN_type c_732705; +c_732705.hdr.mark = gc_color_red; + c_732705.hdr.grayed = 0; +c_732705.tag = closureN_tag; + c_732705.fn = (function_type)__lambda_262; +c_732705.num_args = 1; +c_732705.num_elements = 2; +c_732705.elements = (object *)alloca(sizeof(object) * 2); +c_732705.elements[0] = ((closureN)self_731154)->elements[0]; +c_732705.elements[1] = ((closureN)self_731154)->elements[1]; + +return_closcall2(data, __glo_in_91port_117get_91lnum_scheme_read, &c_732705, ((closureN)self_731154)->elements[1]);} +; +} + +static void __lambda_262(void *data, int argc, object self_731155, object r_73688) { + +closureN_type c_732707; +c_732707.hdr.mark = gc_color_red; + c_732707.hdr.grayed = 0; +c_732707.tag = closureN_tag; + c_732707.fn = (function_type)__lambda_261; +c_732707.num_args = 1; +c_732707.num_elements = 2; +c_732707.elements = (object *)alloca(sizeof(object) * 2); +c_732707.elements[0] = ((closureN)self_731155)->elements[0]; +c_732707.elements[1] = r_73688; + +return_closcall2(data, __glo_in_91port_117get_91cnum_scheme_read, &c_732707, ((closureN)self_731155)->elements[1]);; +} + +static void __lambda_261(void *data, int argc, object self_731156, object r_73689) { + +make_string(c_732710, "Unhandled input sequence"); +return_closcall4(data, __glo_parse_91error_scheme_read, ((closureN)self_731156)->elements[0], &c_732710, ((closureN)self_731156)->elements[1], r_73689);; +} + +static void __lambda_260(void *data, int argc, object self_731157, object k_73691) { + +closureN_type c_732675; +c_732675.hdr.mark = gc_color_red; + c_732675.hdr.grayed = 0; +c_732675.tag = closureN_tag; + c_732675.fn = (function_type)__lambda_259; +c_732675.num_args = 1; +c_732675.num_elements = 2; +c_732675.elements = (object *)alloca(sizeof(object) * 2); +c_732675.elements[0] = k_73691; +c_732675.elements[1] = ((closureN)self_731157)->elements[1]; + +return_closcall1(data,(closure)&c_732675, Cyc_eq(obj_char2obj(56), cell_get(((closureN)self_731157)->elements[0])));; +} + +static void __lambda_259(void *data, int argc, object self_731158, object r_73692) { + if( (boolean_f != r_73692) ){ + return_closcall1(data, ((closureN)self_731158)->elements[0], boolean_f); +} else { + +closureN_type c_732679; +c_732679.hdr.mark = gc_color_red; + c_732679.hdr.grayed = 0; +c_732679.tag = closureN_tag; + c_732679.fn = (function_type)__lambda_258; +c_732679.num_args = 1; +c_732679.num_elements = 2; +c_732679.elements = (object *)alloca(sizeof(object) * 2); +c_732679.elements[0] = ((closureN)self_731158)->elements[0]; +c_732679.elements[1] = ((closureN)self_731158)->elements[1]; + +return_closcall2(data, __glo_in_91port_117get_91lnum_scheme_read, &c_732679, ((closureN)self_731158)->elements[1]);} +; +} + +static void __lambda_258(void *data, int argc, object self_731159, object r_73693) { + +closureN_type c_732681; +c_732681.hdr.mark = gc_color_red; + c_732681.hdr.grayed = 0; +c_732681.tag = closureN_tag; + c_732681.fn = (function_type)__lambda_257; +c_732681.num_args = 1; +c_732681.num_elements = 2; +c_732681.elements = (object *)alloca(sizeof(object) * 2); +c_732681.elements[0] = ((closureN)self_731159)->elements[0]; +c_732681.elements[1] = r_73693; + +return_closcall2(data, __glo_in_91port_117get_91cnum_scheme_read, &c_732681, ((closureN)self_731159)->elements[1]);; +} + +static void __lambda_257(void *data, int argc, object self_731160, object r_73694) { + +make_string(c_732684, "Unhandled input sequence"); +return_closcall4(data, __glo_parse_91error_scheme_read, ((closureN)self_731160)->elements[0], &c_732684, ((closureN)self_731160)->elements[1], r_73694);; +} + +static void __lambda_256(void *data, int argc, object self_731161) { + +closureN_type c_732645; +c_732645.hdr.mark = gc_color_red; + c_732645.hdr.grayed = 0; +c_732645.tag = closureN_tag; + c_732645.fn = (function_type)__lambda_253; +c_732645.num_args = 1; +c_732645.num_elements = 6; +c_732645.elements = (object *)alloca(sizeof(object) * 6); +c_732645.elements[0] = ((closureN)self_731161)->elements[0]; +c_732645.elements[1] = ((closureN)self_731161)->elements[1]; +c_732645.elements[2] = ((closureN)self_731161)->elements[2]; +c_732645.elements[3] = ((closureN)self_731161)->elements[3]; +c_732645.elements[4] = ((closureN)self_731161)->elements[4]; +c_732645.elements[5] = ((closureN)self_731161)->elements[5]; + + +mclosure0(c_732653, (function_type)__lambda_255);c_732653.num_args = 1; +return_closcall1(data,(closure)&c_732645, &c_732653);; +} + +static void __lambda_255(void *data, int argc, object self_731162, object k_73664, object num_73213) { + +closureN_type c_732655; +c_732655.hdr.mark = gc_color_red; + c_732655.hdr.grayed = 0; +c_732655.tag = closureN_tag; + c_732655.fn = (function_type)__lambda_254; +c_732655.num_args = 1; +c_732655.num_elements = 1; +c_732655.elements = (object *)alloca(sizeof(object) * 1); +c_732655.elements[0] = k_73664; + + +object c_732663 = Cyc_list2string(data,(closure)&c_732655,num_73213); +return_closcall1(data,(closure)&c_732655, c_732663);; +} + +static void __lambda_254(void *data, int argc, object self_731163, object r_73665) { + +object c_732660 = Cyc_string2number2_(data, ((closureN)self_731163)->elements[0],2,r_73665, obj_int2obj(16)); +return_closcall1(data, ((closureN)self_731163)->elements[0], c_732660);; +} + +static void __lambda_253(void *data, int argc, object self_731164, object r_73663) { + return_closcall8(data, __glo_parse_91number_scheme_read, ((closureN)self_731164)->elements[2], ((closureN)self_731164)->elements[1], ((closureN)self_731164)->elements[5], ((closureN)self_731164)->elements[0], ((closureN)self_731164)->elements[3], ((closureN)self_731164)->elements[4], obj_int2obj(16), r_73663);; +} + +static void __lambda_252(void *data, int argc, object self_731165) { + +closureN_type c_732621; +c_732621.hdr.mark = gc_color_red; + c_732621.hdr.grayed = 0; +c_732621.tag = closureN_tag; + c_732621.fn = (function_type)__lambda_249; +c_732621.num_args = 1; +c_732621.num_elements = 6; +c_732621.elements = (object *)alloca(sizeof(object) * 6); +c_732621.elements[0] = ((closureN)self_731165)->elements[0]; +c_732621.elements[1] = ((closureN)self_731165)->elements[1]; +c_732621.elements[2] = ((closureN)self_731165)->elements[2]; +c_732621.elements[3] = ((closureN)self_731165)->elements[3]; +c_732621.elements[4] = ((closureN)self_731165)->elements[4]; +c_732621.elements[5] = ((closureN)self_731165)->elements[5]; + + +mclosure0(c_732629, (function_type)__lambda_251);c_732629.num_args = 1; +return_closcall1(data,(closure)&c_732621, &c_732629);; +} + +static void __lambda_251(void *data, int argc, object self_731166, object k_73660, object num_73214) { + +closureN_type c_732631; +c_732631.hdr.mark = gc_color_red; + c_732631.hdr.grayed = 0; +c_732631.tag = closureN_tag; + c_732631.fn = (function_type)__lambda_250; +c_732631.num_args = 1; +c_732631.num_elements = 1; +c_732631.elements = (object *)alloca(sizeof(object) * 1); +c_732631.elements[0] = k_73660; + + +object c_732639 = Cyc_list2string(data,(closure)&c_732631,num_73214); +return_closcall1(data,(closure)&c_732631, c_732639);; +} + +static void __lambda_250(void *data, int argc, object self_731167, object r_73661) { + +object c_732636 = Cyc_string2number2_(data, ((closureN)self_731167)->elements[0],2,r_73661, obj_int2obj(8)); +return_closcall1(data, ((closureN)self_731167)->elements[0], c_732636);; +} + +static void __lambda_249(void *data, int argc, object self_731168, object r_73659) { + return_closcall8(data, __glo_parse_91number_scheme_read, ((closureN)self_731168)->elements[2], ((closureN)self_731168)->elements[1], ((closureN)self_731168)->elements[5], ((closureN)self_731168)->elements[0], ((closureN)self_731168)->elements[3], ((closureN)self_731168)->elements[4], obj_int2obj(8), r_73659);; +} + +static void __lambda_248(void *data, int argc, object self_731169) { + +closureN_type c_732597; +c_732597.hdr.mark = gc_color_red; + c_732597.hdr.grayed = 0; +c_732597.tag = closureN_tag; + c_732597.fn = (function_type)__lambda_245; +c_732597.num_args = 1; +c_732597.num_elements = 6; +c_732597.elements = (object *)alloca(sizeof(object) * 6); +c_732597.elements[0] = ((closureN)self_731169)->elements[0]; +c_732597.elements[1] = ((closureN)self_731169)->elements[1]; +c_732597.elements[2] = ((closureN)self_731169)->elements[2]; +c_732597.elements[3] = ((closureN)self_731169)->elements[3]; +c_732597.elements[4] = ((closureN)self_731169)->elements[4]; +c_732597.elements[5] = ((closureN)self_731169)->elements[5]; + + +mclosure0(c_732605, (function_type)__lambda_247);c_732605.num_args = 1; +return_closcall1(data,(closure)&c_732597, &c_732605);; +} + +static void __lambda_247(void *data, int argc, object self_731170, object k_73656, object num_73215) { + +closureN_type c_732607; +c_732607.hdr.mark = gc_color_red; + c_732607.hdr.grayed = 0; +c_732607.tag = closureN_tag; + c_732607.fn = (function_type)__lambda_246; +c_732607.num_args = 1; +c_732607.num_elements = 1; +c_732607.elements = (object *)alloca(sizeof(object) * 1); +c_732607.elements[0] = k_73656; + + +object c_732615 = Cyc_list2string(data,(closure)&c_732607,num_73215); +return_closcall1(data,(closure)&c_732607, c_732615);; +} + +static void __lambda_246(void *data, int argc, object self_731171, object r_73657) { + +object c_732612 = Cyc_string2number2_(data, ((closureN)self_731171)->elements[0],2,r_73657, obj_int2obj(2)); +return_closcall1(data, ((closureN)self_731171)->elements[0], c_732612);; +} + +static void __lambda_245(void *data, int argc, object self_731172, object r_73655) { + return_closcall8(data, __glo_parse_91number_scheme_read, ((closureN)self_731172)->elements[2], ((closureN)self_731172)->elements[1], ((closureN)self_731172)->elements[5], ((closureN)self_731172)->elements[0], ((closureN)self_731172)->elements[3], ((closureN)self_731172)->elements[4], obj_int2obj(2), r_73655);; +} + +static void __lambda_244(void *data, int argc, object self_731173) { + +closureN_type c_732579; +c_732579.hdr.mark = gc_color_red; + c_732579.hdr.grayed = 0; +c_732579.tag = closureN_tag; + c_732579.fn = (function_type)__lambda_241; +c_732579.num_args = 1; +c_732579.num_elements = 6; +c_732579.elements = (object *)alloca(sizeof(object) * 6); +c_732579.elements[0] = ((closureN)self_731173)->elements[0]; +c_732579.elements[1] = ((closureN)self_731173)->elements[1]; +c_732579.elements[2] = ((closureN)self_731173)->elements[2]; +c_732579.elements[3] = ((closureN)self_731173)->elements[3]; +c_732579.elements[4] = ((closureN)self_731173)->elements[4]; +c_732579.elements[5] = ((closureN)self_731173)->elements[5]; + + +mclosure0(c_732587, (function_type)__lambda_243);c_732587.num_args = 1; +return_closcall1(data,(closure)&c_732579, &c_732587);; +} + +static void __lambda_243(void *data, int argc, object self_731174, object k_73652, object num_73216) { + +closureN_type c_732589; +c_732589.hdr.mark = gc_color_red; + c_732589.hdr.grayed = 0; +c_732589.tag = closureN_tag; + c_732589.fn = (function_type)__lambda_242; +c_732589.num_args = 1; +c_732589.num_elements = 1; +c_732589.elements = (object *)alloca(sizeof(object) * 1); +c_732589.elements[0] = k_73652; + +return_closcall2(data, __glo_parse_91atom_scheme_read, &c_732589, num_73216);; +} + +static void __lambda_242(void *data, int argc, object self_731175, object r_73653) { + return_closcall2(data, __glo_inexact_scheme_base, ((closureN)self_731175)->elements[0], r_73653);; +} + +static void __lambda_241(void *data, int argc, object self_731176, object r_73651) { + return_closcall8(data, __glo_parse_91number_scheme_read, ((closureN)self_731176)->elements[2], ((closureN)self_731176)->elements[1], ((closureN)self_731176)->elements[5], ((closureN)self_731176)->elements[0], ((closureN)self_731176)->elements[3], ((closureN)self_731176)->elements[4], obj_int2obj(10), r_73651);; +} + +static void __lambda_240(void *data, int argc, object self_731177) { + +closureN_type c_732561; +c_732561.hdr.mark = gc_color_red; + c_732561.hdr.grayed = 0; +c_732561.tag = closureN_tag; + c_732561.fn = (function_type)__lambda_237; +c_732561.num_args = 1; +c_732561.num_elements = 6; +c_732561.elements = (object *)alloca(sizeof(object) * 6); +c_732561.elements[0] = ((closureN)self_731177)->elements[0]; +c_732561.elements[1] = ((closureN)self_731177)->elements[1]; +c_732561.elements[2] = ((closureN)self_731177)->elements[2]; +c_732561.elements[3] = ((closureN)self_731177)->elements[3]; +c_732561.elements[4] = ((closureN)self_731177)->elements[4]; +c_732561.elements[5] = ((closureN)self_731177)->elements[5]; + + +mclosure0(c_732569, (function_type)__lambda_239);c_732569.num_args = 1; +return_closcall1(data,(closure)&c_732561, &c_732569);; +} + +static void __lambda_239(void *data, int argc, object self_731178, object k_73648, object num_73217) { + +closureN_type c_732571; +c_732571.hdr.mark = gc_color_red; + c_732571.hdr.grayed = 0; +c_732571.tag = closureN_tag; + c_732571.fn = (function_type)__lambda_238; +c_732571.num_args = 1; +c_732571.num_elements = 1; +c_732571.elements = (object *)alloca(sizeof(object) * 1); +c_732571.elements[0] = k_73648; + +return_closcall2(data, __glo_parse_91atom_scheme_read, &c_732571, num_73217);; +} + +static void __lambda_238(void *data, int argc, object self_731179, object r_73649) { + return_closcall2(data, __glo_exact_scheme_base, ((closureN)self_731179)->elements[0], r_73649);; +} + +static void __lambda_237(void *data, int argc, object self_731180, object r_73647) { + return_closcall8(data, __glo_parse_91number_scheme_read, ((closureN)self_731180)->elements[2], ((closureN)self_731180)->elements[1], ((closureN)self_731180)->elements[5], ((closureN)self_731180)->elements[0], ((closureN)self_731180)->elements[3], ((closureN)self_731180)->elements[4], obj_int2obj(10), r_73647);; +} + +static void __lambda_236(void *data, int argc, object self_731181) { + if( (boolean_f != ((closureN)self_731181)->elements[0]) ){ + +closureN_type c_732540; +c_732540.hdr.mark = gc_color_red; + c_732540.hdr.grayed = 0; +c_732540.tag = closureN_tag; + c_732540.fn = (function_type)__lambda_235; +c_732540.num_args = 1; +c_732540.num_elements = 6; +c_732540.elements = (object *)alloca(sizeof(object) * 6); +c_732540.elements[0] = ((closureN)self_731181)->elements[0]; +c_732540.elements[1] = ((closureN)self_731181)->elements[1]; +c_732540.elements[2] = ((closureN)self_731181)->elements[2]; +c_732540.elements[3] = ((closureN)self_731181)->elements[3]; +c_732540.elements[4] = ((closureN)self_731181)->elements[4]; +c_732540.elements[5] = ((closureN)self_731181)->elements[5]; + +return_closcall1(data,(closure)&c_732540, NULL); +} else { + return_closcall1(data, ((closureN)self_731181)->elements[2], boolean_f);} +; +} + +static void __lambda_235(void *data, int argc, object self_731182, object r_73644) { + +closureN_type c_732542; +c_732542.hdr.mark = gc_color_red; + c_732542.hdr.grayed = 0; +c_732542.tag = closureN_tag; + c_732542.fn = (function_type)__lambda_234; +c_732542.num_args = 1; +c_732542.num_elements = 6; +c_732542.elements = (object *)alloca(sizeof(object) * 6); +c_732542.elements[0] = ((closureN)self_731182)->elements[0]; +c_732542.elements[1] = ((closureN)self_731182)->elements[1]; +c_732542.elements[2] = ((closureN)self_731182)->elements[2]; +c_732542.elements[3] = ((closureN)self_731182)->elements[3]; +c_732542.elements[4] = ((closureN)self_731182)->elements[4]; +c_732542.elements[5] = r_73644; + + +make_pair(c_732552,boolean_f, ((closureN)self_731182)->elements[5]); +return_closcall1(data,(closure)&c_732542, &c_732552);; +} + +static void __lambda_234(void *data, int argc, object self_731183, object r_73645) { + return_closcall8(data, __glo_parse_scheme_read, ((closureN)self_731183)->elements[2], ((closureN)self_731183)->elements[1], ((closureN)self_731183)->elements[5], r_73645, ((closureN)self_731183)->elements[0], boolean_f, ((closureN)self_731183)->elements[3], ((closureN)self_731183)->elements[4]);; +} + +static void __lambda_233(void *data, int argc, object self_731184) { + if( (boolean_f != ((closureN)self_731184)->elements[0]) ){ + +closureN_type c_732518; +c_732518.hdr.mark = gc_color_red; + c_732518.hdr.grayed = 0; +c_732518.tag = closureN_tag; + c_732518.fn = (function_type)__lambda_232; +c_732518.num_args = 1; +c_732518.num_elements = 6; +c_732518.elements = (object *)alloca(sizeof(object) * 6); +c_732518.elements[0] = ((closureN)self_731184)->elements[0]; +c_732518.elements[1] = ((closureN)self_731184)->elements[1]; +c_732518.elements[2] = ((closureN)self_731184)->elements[2]; +c_732518.elements[3] = ((closureN)self_731184)->elements[3]; +c_732518.elements[4] = ((closureN)self_731184)->elements[4]; +c_732518.elements[5] = ((closureN)self_731184)->elements[5]; + +return_closcall1(data,(closure)&c_732518, NULL); +} else { + return_closcall1(data, ((closureN)self_731184)->elements[2], boolean_t);} +; +} + +static void __lambda_232(void *data, int argc, object self_731185, object r_73641) { + +closureN_type c_732520; +c_732520.hdr.mark = gc_color_red; + c_732520.hdr.grayed = 0; +c_732520.tag = closureN_tag; + c_732520.fn = (function_type)__lambda_231; +c_732520.num_args = 1; +c_732520.num_elements = 6; +c_732520.elements = (object *)alloca(sizeof(object) * 6); +c_732520.elements[0] = ((closureN)self_731185)->elements[0]; +c_732520.elements[1] = ((closureN)self_731185)->elements[1]; +c_732520.elements[2] = ((closureN)self_731185)->elements[2]; +c_732520.elements[3] = ((closureN)self_731185)->elements[3]; +c_732520.elements[4] = ((closureN)self_731185)->elements[4]; +c_732520.elements[5] = r_73641; + + +make_pair(c_732530,boolean_t, ((closureN)self_731185)->elements[5]); +return_closcall1(data,(closure)&c_732520, &c_732530);; +} + +static void __lambda_231(void *data, int argc, object self_731186, object r_73642) { + return_closcall8(data, __glo_parse_scheme_read, ((closureN)self_731186)->elements[2], ((closureN)self_731186)->elements[1], ((closureN)self_731186)->elements[5], r_73642, ((closureN)self_731186)->elements[0], boolean_f, ((closureN)self_731186)->elements[3], ((closureN)self_731186)->elements[4]);; +} + +static void __lambda_230(void *data, int argc, object self_731187) { + +closureN_type c_732500; +c_732500.hdr.mark = gc_color_red; + c_732500.hdr.grayed = 0; +c_732500.tag = closureN_tag; + c_732500.fn = (function_type)__lambda_229; +c_732500.num_args = 1; +c_732500.num_elements = 6; +c_732500.elements = (object *)alloca(sizeof(object) * 6); +c_732500.elements[0] = ((closureN)self_731187)->elements[0]; +c_732500.elements[1] = ((closureN)self_731187)->elements[1]; +c_732500.elements[2] = ((closureN)self_731187)->elements[2]; +c_732500.elements[3] = ((closureN)self_731187)->elements[3]; +c_732500.elements[4] = ((closureN)self_731187)->elements[4]; +c_732500.elements[5] = ((closureN)self_731187)->elements[5]; + +return_closcall3(data, __glo_read_91block_91comment_scheme_read, &c_732500, ((closureN)self_731187)->elements[1], ((closureN)self_731187)->elements[4]);; +} + +static void __lambda_229(void *data, int argc, object self_731188, object r_73638) { + +closureN_type c_732502; +c_732502.hdr.mark = gc_color_red; + c_732502.hdr.grayed = 0; +c_732502.tag = closureN_tag; + c_732502.fn = (function_type)__lambda_228; +c_732502.num_args = 1; +c_732502.num_elements = 6; +c_732502.elements = (object *)alloca(sizeof(object) * 6); +c_732502.elements[0] = ((closureN)self_731188)->elements[0]; +c_732502.elements[1] = ((closureN)self_731188)->elements[1]; +c_732502.elements[2] = ((closureN)self_731188)->elements[2]; +c_732502.elements[3] = ((closureN)self_731188)->elements[3]; +c_732502.elements[4] = ((closureN)self_731188)->elements[4]; +c_732502.elements[5] = ((closureN)self_731188)->elements[5]; + +return_closcall1(data,(closure)&c_732502, NULL);; +} + +static void __lambda_228(void *data, int argc, object self_731189, object r_73639) { + return_closcall8(data, __glo_parse_scheme_read, ((closureN)self_731189)->elements[2], ((closureN)self_731189)->elements[1], r_73639, ((closureN)self_731189)->elements[5], ((closureN)self_731189)->elements[0], boolean_f, ((closureN)self_731189)->elements[3], ((closureN)self_731189)->elements[4]);; +} + +static void __lambda_227(void *data, int argc, object self_731190) { + +closureN_type c_732402; +c_732402.hdr.mark = gc_color_red; + c_732402.hdr.grayed = 0; +c_732402.tag = closureN_tag; + c_732402.fn = (function_type)__lambda_211; +c_732402.num_args = 0; +c_732402.num_elements = 2; +c_732402.elements = (object *)alloca(sizeof(object) * 2); +c_732402.elements[0] = ((closureN)self_731190)->elements[0]; +c_732402.elements[1] = ((closureN)self_731190)->elements[6]; + + +closureN_type c_732412; +c_732412.hdr.mark = gc_color_red; + c_732412.hdr.grayed = 0; +c_732412.tag = closureN_tag; + c_732412.fn = (function_type)__lambda_226; +c_732412.num_args = 1; +c_732412.num_elements = 8; +c_732412.elements = (object *)alloca(sizeof(object) * 8); +c_732412.elements[0] = ((closureN)self_731190)->elements[0]; +c_732412.elements[1] = ((closureN)self_731190)->elements[1]; +c_732412.elements[2] = ((closureN)self_731190)->elements[2]; +c_732412.elements[3] = ((closureN)self_731190)->elements[3]; +c_732412.elements[4] = ((closureN)self_731190)->elements[4]; +c_732412.elements[5] = ((closureN)self_731190)->elements[5]; +c_732412.elements[6] = ((closureN)self_731190)->elements[6]; +c_732412.elements[7] = ((closureN)self_731190)->elements[7]; + +return_closcall1(data,(closure)&c_732402, &c_732412);; +} + +static void __lambda_226(void *data, int argc, object self_731191, object r_73621) { + if( (boolean_f != r_73621) ){ + +closureN_type c_732414; +c_732414.hdr.mark = gc_color_red; + c_732414.hdr.grayed = 0; +c_732414.tag = closureN_tag; + c_732414.fn = (function_type)__lambda_215; +c_732414.num_args = 0; +c_732414.num_elements = 5; +c_732414.elements = (object *)alloca(sizeof(object) * 5); +c_732414.elements[0] = ((closureN)self_731191)->elements[1]; +c_732414.elements[1] = ((closureN)self_731191)->elements[3]; +c_732414.elements[2] = ((closureN)self_731191)->elements[5]; +c_732414.elements[3] = ((closureN)self_731191)->elements[6]; +c_732414.elements[4] = ((closureN)self_731191)->elements[7]; + +return_closcall0(data,(closure)&c_732414); +} else { + +closureN_type c_732430; +c_732430.hdr.mark = gc_color_red; + c_732430.hdr.grayed = 0; +c_732430.tag = closureN_tag; + c_732430.fn = (function_type)__lambda_225; +c_732430.num_args = 0; +c_732430.num_elements = 7; +c_732430.elements = (object *)alloca(sizeof(object) * 7); +c_732430.elements[0] = ((closureN)self_731191)->elements[0]; +c_732430.elements[1] = ((closureN)self_731191)->elements[2]; +c_732430.elements[2] = ((closureN)self_731191)->elements[3]; +c_732430.elements[3] = ((closureN)self_731191)->elements[4]; +c_732430.elements[4] = ((closureN)self_731191)->elements[5]; +c_732430.elements[5] = ((closureN)self_731191)->elements[6]; +c_732430.elements[6] = ((closureN)self_731191)->elements[7]; + +return_closcall0(data,(closure)&c_732430);} +; +} + +static void __lambda_225(void *data, int argc, object self_731192) { + +closureN_type c_732432; +c_732432.hdr.mark = gc_color_red; + c_732432.hdr.grayed = 0; +c_732432.tag = closureN_tag; + c_732432.fn = (function_type)__lambda_224; +c_732432.num_args = 1; +c_732432.num_elements = 7; +c_732432.elements = (object *)alloca(sizeof(object) * 7); +c_732432.elements[0] = ((closureN)self_731192)->elements[0]; +c_732432.elements[1] = ((closureN)self_731192)->elements[1]; +c_732432.elements[2] = ((closureN)self_731192)->elements[2]; +c_732432.elements[3] = ((closureN)self_731192)->elements[3]; +c_732432.elements[4] = ((closureN)self_731192)->elements[4]; +c_732432.elements[5] = ((closureN)self_731192)->elements[5]; +c_732432.elements[6] = ((closureN)self_731192)->elements[6]; + +return_closcall1(data,(closure)&c_732432, NULL);; +} + +static void __lambda_224(void *data, int argc, object self_731193, object r_73630) { + +closureN_type c_732434; +c_732434.hdr.mark = gc_color_red; + c_732434.hdr.grayed = 0; +c_732434.tag = closureN_tag; + c_732434.fn = (function_type)__lambda_223; +c_732434.num_args = 1; +c_732434.num_elements = 7; +c_732434.elements = (object *)alloca(sizeof(object) * 7); +c_732434.elements[0] = ((closureN)self_731193)->elements[0]; +c_732434.elements[1] = ((closureN)self_731193)->elements[1]; +c_732434.elements[2] = ((closureN)self_731193)->elements[2]; +c_732434.elements[3] = ((closureN)self_731193)->elements[3]; +c_732434.elements[4] = ((closureN)self_731193)->elements[4]; +c_732434.elements[5] = ((closureN)self_731193)->elements[5]; +c_732434.elements[6] = ((closureN)self_731193)->elements[6]; + +return_closcall4(data, __glo_read_91str_scheme_read, &c_732434, ((closureN)self_731193)->elements[1], r_73630, ((closureN)self_731193)->elements[4]);; +} + +static void __lambda_223(void *data, int argc, object self_731194, object r_73625) { + +closureN_type c_732436; +c_732436.hdr.mark = gc_color_red; + c_732436.hdr.grayed = 0; +c_732436.tag = closureN_tag; + c_732436.fn = (function_type)__lambda_222; +c_732436.num_args = 1; +c_732436.num_elements = 6; +c_732436.elements = (object *)alloca(sizeof(object) * 6); +c_732436.elements[0] = ((closureN)self_731194)->elements[0]; +c_732436.elements[1] = ((closureN)self_731194)->elements[1]; +c_732436.elements[2] = ((closureN)self_731194)->elements[2]; +c_732436.elements[3] = ((closureN)self_731194)->elements[3]; +c_732436.elements[4] = ((closureN)self_731194)->elements[4]; +c_732436.elements[5] = r_73625; + +return_closcall3(data, __glo_get_91toks_scheme_read, &c_732436, ((closureN)self_731194)->elements[5], ((closureN)self_731194)->elements[6]);; +} + +static void __lambda_222(void *data, int argc, object self_731195, object r_73626) { + +closureN_type c_732438; +c_732438.hdr.mark = gc_color_red; + c_732438.hdr.grayed = 0; +c_732438.tag = closureN_tag; + c_732438.fn = (function_type)__lambda_221; +c_732438.num_args = 2; +c_732438.num_elements = 5; +c_732438.elements = (object *)alloca(sizeof(object) * 5); +c_732438.elements[0] = ((closureN)self_731195)->elements[0]; +c_732438.elements[1] = ((closureN)self_731195)->elements[1]; +c_732438.elements[2] = ((closureN)self_731195)->elements[2]; +c_732438.elements[3] = ((closureN)self_731195)->elements[3]; +c_732438.elements[4] = ((closureN)self_731195)->elements[4]; + +return_closcall2(data,(closure)&c_732438, ((closureN)self_731195)->elements[5], r_73626);; +} + +static void __lambda_221(void *data, int argc, object self_731196, object str_73219, object toks_85_73218) { + +closureN_type c_732440; +c_732440.hdr.mark = gc_color_red; + c_732440.hdr.grayed = 0; +c_732440.tag = closureN_tag; + c_732440.fn = (function_type)__lambda_220; +c_732440.num_args = 1; +c_732440.num_elements = 7; +c_732440.elements = (object *)alloca(sizeof(object) * 7); +c_732440.elements[0] = ((closureN)self_731196)->elements[0]; +c_732440.elements[1] = ((closureN)self_731196)->elements[1]; +c_732440.elements[2] = ((closureN)self_731196)->elements[2]; +c_732440.elements[3] = ((closureN)self_731196)->elements[3]; +c_732440.elements[4] = ((closureN)self_731196)->elements[4]; +c_732440.elements[5] = str_73219; +c_732440.elements[6] = toks_85_73218; + +return_closcall1(data,(closure)&c_732440, boolean_f);; +} + +static void __lambda_220(void *data, int argc, object self_731197, object new_91toks_73220) { + +closureN_type c_732442; +c_732442.hdr.mark = gc_color_red; + c_732442.hdr.grayed = 0; +c_732442.tag = closureN_tag; + c_732442.fn = (function_type)__lambda_219; +c_732442.num_args = 1; +c_732442.num_elements = 7; +c_732442.elements = (object *)alloca(sizeof(object) * 7); +c_732442.elements[0] = ((closureN)self_731197)->elements[0]; +c_732442.elements[1] = ((closureN)self_731197)->elements[1]; +c_732442.elements[2] = ((closureN)self_731197)->elements[2]; +c_732442.elements[3] = ((closureN)self_731197)->elements[3]; +c_732442.elements[4] = ((closureN)self_731197)->elements[4]; +c_732442.elements[5] = ((closureN)self_731197)->elements[5]; +c_732442.elements[6] = ((closureN)self_731197)->elements[6]; + + +make_cell(c_732473,new_91toks_73220); +return_closcall1(data,(closure)&c_732442, &c_732473);; +} + +static void __lambda_219(void *data, int argc, object self_731198, object new_91toks_73220) { + +closureN_type c_732444; +c_732444.hdr.mark = gc_color_red; + c_732444.hdr.grayed = 0; +c_732444.tag = closureN_tag; + c_732444.fn = (function_type)__lambda_218; +c_732444.num_args = 1; +c_732444.num_elements = 6; +c_732444.elements = (object *)alloca(sizeof(object) * 6); +c_732444.elements[0] = ((closureN)self_731198)->elements[0]; +c_732444.elements[1] = ((closureN)self_731198)->elements[1]; +c_732444.elements[2] = ((closureN)self_731198)->elements[2]; +c_732444.elements[3] = new_91toks_73220; +c_732444.elements[4] = ((closureN)self_731198)->elements[3]; +c_732444.elements[5] = ((closureN)self_731198)->elements[4]; + +return_closcall3(data, __glo_add_91tok_scheme_read, &c_732444, ((closureN)self_731198)->elements[5], ((closureN)self_731198)->elements[6]);; +} + +static void __lambda_218(void *data, int argc, object self_731199, object r_73629) { + +closureN_type c_732446; +c_732446.hdr.mark = gc_color_red; + c_732446.hdr.grayed = 0; +c_732446.tag = closureN_tag; + c_732446.fn = (function_type)__lambda_217; +c_732446.num_args = 1; +c_732446.num_elements = 6; +c_732446.elements = (object *)alloca(sizeof(object) * 6); +c_732446.elements[0] = ((closureN)self_731199)->elements[0]; +c_732446.elements[1] = ((closureN)self_731199)->elements[1]; +c_732446.elements[2] = ((closureN)self_731199)->elements[2]; +c_732446.elements[3] = ((closureN)self_731199)->elements[3]; +c_732446.elements[4] = ((closureN)self_731199)->elements[4]; +c_732446.elements[5] = ((closureN)self_731199)->elements[5]; + +return_closcall1(data,(closure)&c_732446, Cyc_set_car(data, ((closureN)self_731199)->elements[3], r_73629));; +} + +static void __lambda_217(void *data, int argc, object self_731200, object r_73627) { + if( (boolean_f != ((closureN)self_731200)->elements[0]) ){ + +closureN_type c_732449; +c_732449.hdr.mark = gc_color_red; + c_732449.hdr.grayed = 0; +c_732449.tag = closureN_tag; + c_732449.fn = (function_type)__lambda_216; +c_732449.num_args = 1; +c_732449.num_elements = 6; +c_732449.elements = (object *)alloca(sizeof(object) * 6); +c_732449.elements[0] = ((closureN)self_731200)->elements[0]; +c_732449.elements[1] = ((closureN)self_731200)->elements[1]; +c_732449.elements[2] = ((closureN)self_731200)->elements[2]; +c_732449.elements[3] = ((closureN)self_731200)->elements[3]; +c_732449.elements[4] = ((closureN)self_731200)->elements[4]; +c_732449.elements[5] = ((closureN)self_731200)->elements[5]; + +return_closcall1(data,(closure)&c_732449, NULL); +} else { + return_closcall1(data, ((closureN)self_731200)->elements[2], car(cell_get(((closureN)self_731200)->elements[3])));} +; +} + +static void __lambda_216(void *data, int argc, object self_731201, object r_73628) { + return_closcall8(data, __glo_parse_scheme_read, ((closureN)self_731201)->elements[2], ((closureN)self_731201)->elements[1], r_73628, cell_get(((closureN)self_731201)->elements[3]), ((closureN)self_731201)->elements[0], boolean_f, ((closureN)self_731201)->elements[4], ((closureN)self_731201)->elements[5]);; +} + +static void __lambda_215(void *data, int argc, object self_731202) { + +closureN_type c_732416; +c_732416.hdr.mark = gc_color_red; + c_732416.hdr.grayed = 0; +c_732416.tag = closureN_tag; + c_732416.fn = (function_type)__lambda_214; +c_732416.num_args = 1; +c_732416.num_elements = 3; +c_732416.elements = (object *)alloca(sizeof(object) * 3); +c_732416.elements[0] = ((closureN)self_731202)->elements[1]; +c_732416.elements[1] = ((closureN)self_731202)->elements[3]; +c_732416.elements[2] = ((closureN)self_731202)->elements[4]; + +return_closcall3(data, __glo_in_91port_117set_91buf_67_scheme_read, &c_732416, ((closureN)self_731202)->elements[2], ((closureN)self_731202)->elements[0]);; +} + +static void __lambda_214(void *data, int argc, object self_731203, object r_73622) { + +closureN_type c_732418; +c_732418.hdr.mark = gc_color_red; + c_732418.hdr.grayed = 0; +c_732418.tag = closureN_tag; + c_732418.fn = (function_type)__lambda_213; +c_732418.num_args = 1; +c_732418.num_elements = 2; +c_732418.elements = (object *)alloca(sizeof(object) * 2); +c_732418.elements[0] = ((closureN)self_731203)->elements[0]; +c_732418.elements[1] = ((closureN)self_731203)->elements[2]; + +return_closcall2(data, __glo__91_125tok_scheme_read, &c_732418, ((closureN)self_731203)->elements[1]);; +} + +static void __lambda_213(void *data, int argc, object self_731204, object r_73624) { + +closureN_type c_732420; +c_732420.hdr.mark = gc_color_red; + c_732420.hdr.grayed = 0; +c_732420.tag = closureN_tag; + c_732420.fn = (function_type)__lambda_212; +c_732420.num_args = 1; +c_732420.num_elements = 1; +c_732420.elements = (object *)alloca(sizeof(object) * 1); +c_732420.elements[0] = ((closureN)self_731204)->elements[0]; + +return_closcall3(data, __glo_add_91tok_scheme_read, &c_732420, r_73624, ((closureN)self_731204)->elements[1]);; +} + +static void __lambda_212(void *data, int argc, object self_731205, object r_73623) { + return_closcall1(data, ((closureN)self_731205)->elements[0], car(r_73623));; +} + +static void __lambda_211(void *data, int argc, object self_731206, object k_73631) { + if( (boolean_f != ((closureN)self_731206)->elements[0]) ){ + return_closcall1(data, k_73631, boolean_f); +} else { + +closureN_type c_732406; +c_732406.hdr.mark = gc_color_red; + c_732406.hdr.grayed = 0; +c_732406.tag = closureN_tag; + c_732406.fn = (function_type)__lambda_210; +c_732406.num_args = 1; +c_732406.num_elements = 1; +c_732406.elements = (object *)alloca(sizeof(object) * 1); +c_732406.elements[0] = k_73631; + +return_closcall1(data,(closure)&c_732406, Cyc_is_null(((closureN)self_731206)->elements[1]));} +; +} + +static void __lambda_210(void *data, int argc, object self_731207, object r_73632) { + return_closcall2(data, __glo_not_scheme_base, ((closureN)self_731207)->elements[0], r_73632);; +} + +static void __lambda_209(void *data, int argc, object self_731208) { + +closureN_type c_732344; +c_732344.hdr.mark = gc_color_red; + c_732344.hdr.grayed = 0; +c_732344.tag = closureN_tag; + c_732344.fn = (function_type)__lambda_197; +c_732344.num_args = 0; +c_732344.num_elements = 2; +c_732344.elements = (object *)alloca(sizeof(object) * 2); +c_732344.elements[0] = ((closureN)self_731208)->elements[0]; +c_732344.elements[1] = ((closureN)self_731208)->elements[5]; + + +closureN_type c_732354; +c_732354.hdr.mark = gc_color_red; + c_732354.hdr.grayed = 0; +c_732354.tag = closureN_tag; + c_732354.fn = (function_type)__lambda_208; +c_732354.num_args = 1; +c_732354.num_elements = 6; +c_732354.elements = (object *)alloca(sizeof(object) * 6); +c_732354.elements[0] = ((closureN)self_731208)->elements[1]; +c_732354.elements[1] = ((closureN)self_731208)->elements[2]; +c_732354.elements[2] = ((closureN)self_731208)->elements[3]; +c_732354.elements[3] = ((closureN)self_731208)->elements[4]; +c_732354.elements[4] = ((closureN)self_731208)->elements[5]; +c_732354.elements[5] = ((closureN)self_731208)->elements[6]; + +return_closcall1(data,(closure)&c_732344, &c_732354);; +} + +static void __lambda_208(void *data, int argc, object self_731209, object r_73610) { + if( (boolean_f != r_73610) ){ + +closureN_type c_732356; +c_732356.hdr.mark = gc_color_red; + c_732356.hdr.grayed = 0; +c_732356.tag = closureN_tag; + c_732356.fn = (function_type)__lambda_201; +c_732356.num_args = 0; +c_732356.num_elements = 5; +c_732356.elements = (object *)alloca(sizeof(object) * 5); +c_732356.elements[0] = ((closureN)self_731209)->elements[0]; +c_732356.elements[1] = ((closureN)self_731209)->elements[1]; +c_732356.elements[2] = ((closureN)self_731209)->elements[3]; +c_732356.elements[3] = ((closureN)self_731209)->elements[4]; +c_732356.elements[4] = ((closureN)self_731209)->elements[5]; + +return_closcall0(data,(closure)&c_732356); +} else { + +closureN_type c_732372; +c_732372.hdr.mark = gc_color_red; + c_732372.hdr.grayed = 0; +c_732372.tag = closureN_tag; + c_732372.fn = (function_type)__lambda_207; +c_732372.num_args = 1; +c_732372.num_elements = 4; +c_732372.elements = (object *)alloca(sizeof(object) * 4); +c_732372.elements[0] = ((closureN)self_731209)->elements[1]; +c_732372.elements[1] = ((closureN)self_731209)->elements[3]; +c_732372.elements[2] = ((closureN)self_731209)->elements[4]; +c_732372.elements[3] = ((closureN)self_731209)->elements[5]; + + +object c_732395 = Cyc_num_eq(data,(closure)&c_732372,2,((closureN)self_731209)->elements[2], obj_int2obj(0)); +return_closcall1(data,(closure)&c_732372, c_732395);} +; +} + +static void __lambda_207(void *data, int argc, object self_731210, object r_73614) { + if( (boolean_f != r_73614) ){ + +closureN_type c_732374; +c_732374.hdr.mark = gc_color_red; + c_732374.hdr.grayed = 0; +c_732374.tag = closureN_tag; + c_732374.fn = (function_type)__lambda_204; +c_732374.num_args = 0; +c_732374.num_elements = 2; +c_732374.elements = (object *)alloca(sizeof(object) * 2); +c_732374.elements[0] = ((closureN)self_731210)->elements[0]; +c_732374.elements[1] = ((closureN)self_731210)->elements[1]; + +return_closcall0(data,(closure)&c_732374); +} else { + +closureN_type c_732386; +c_732386.hdr.mark = gc_color_red; + c_732386.hdr.grayed = 0; +c_732386.tag = closureN_tag; + c_732386.fn = (function_type)__lambda_206; +c_732386.num_args = 0; +c_732386.num_elements = 3; +c_732386.elements = (object *)alloca(sizeof(object) * 3); +c_732386.elements[0] = ((closureN)self_731210)->elements[0]; +c_732386.elements[1] = ((closureN)self_731210)->elements[2]; +c_732386.elements[2] = ((closureN)self_731210)->elements[3]; + +return_closcall0(data,(closure)&c_732386);} +; +} + +static void __lambda_206(void *data, int argc, object self_731211) { + +closureN_type c_732388; +c_732388.hdr.mark = gc_color_red; + c_732388.hdr.grayed = 0; +c_732388.tag = closureN_tag; + c_732388.fn = (function_type)__lambda_205; +c_732388.num_args = 1; +c_732388.num_elements = 1; +c_732388.elements = (object *)alloca(sizeof(object) * 1); +c_732388.elements[0] = ((closureN)self_731211)->elements[0]; + +return_closcall3(data, __glo_get_91toks_scheme_read, &c_732388, ((closureN)self_731211)->elements[1], ((closureN)self_731211)->elements[2]);; +} + +static void __lambda_205(void *data, int argc, object self_731212, object r_73617) { + return_closcall2(data, __glo_reverse_scheme_base, ((closureN)self_731212)->elements[0], r_73617);; +} + +static void __lambda_204(void *data, int argc, object self_731213) { + +closureN_type c_732376; +c_732376.hdr.mark = gc_color_red; + c_732376.hdr.grayed = 0; +c_732376.tag = closureN_tag; + c_732376.fn = (function_type)__lambda_203; +c_732376.num_args = 1; +c_732376.num_elements = 2; +c_732376.elements = (object *)alloca(sizeof(object) * 2); +c_732376.elements[0] = ((closureN)self_731213)->elements[0]; +c_732376.elements[1] = ((closureN)self_731213)->elements[1]; + +return_closcall2(data, __glo_in_91port_117get_91lnum_scheme_read, &c_732376, ((closureN)self_731213)->elements[1]);; +} + +static void __lambda_203(void *data, int argc, object self_731214, object r_73615) { + +closureN_type c_732378; +c_732378.hdr.mark = gc_color_red; + c_732378.hdr.grayed = 0; +c_732378.tag = closureN_tag; + c_732378.fn = (function_type)__lambda_202; +c_732378.num_args = 1; +c_732378.num_elements = 2; +c_732378.elements = (object *)alloca(sizeof(object) * 2); +c_732378.elements[0] = ((closureN)self_731214)->elements[0]; +c_732378.elements[1] = r_73615; + +return_closcall2(data, __glo_in_91port_117get_91cnum_scheme_read, &c_732378, ((closureN)self_731214)->elements[1]);; +} + +static void __lambda_202(void *data, int argc, object self_731215, object r_73616) { + +make_string(c_732381, "unexpected closing parenthesis"); +return_closcall4(data, __glo_parse_91error_scheme_read, ((closureN)self_731215)->elements[0], &c_732381, ((closureN)self_731215)->elements[1], r_73616);; +} + +static void __lambda_201(void *data, int argc, object self_731216) { + +closureN_type c_732358; +c_732358.hdr.mark = gc_color_red; + c_732358.hdr.grayed = 0; +c_732358.tag = closureN_tag; + c_732358.fn = (function_type)__lambda_200; +c_732358.num_args = 1; +c_732358.num_elements = 3; +c_732358.elements = (object *)alloca(sizeof(object) * 3); +c_732358.elements[0] = ((closureN)self_731216)->elements[1]; +c_732358.elements[1] = ((closureN)self_731216)->elements[3]; +c_732358.elements[2] = ((closureN)self_731216)->elements[4]; + +return_closcall3(data, __glo_in_91port_117set_91buf_67_scheme_read, &c_732358, ((closureN)self_731216)->elements[2], ((closureN)self_731216)->elements[0]);; +} + +static void __lambda_200(void *data, int argc, object self_731217, object r_73611) { + +closureN_type c_732360; +c_732360.hdr.mark = gc_color_red; + c_732360.hdr.grayed = 0; +c_732360.tag = closureN_tag; + c_732360.fn = (function_type)__lambda_199; +c_732360.num_args = 1; +c_732360.num_elements = 2; +c_732360.elements = (object *)alloca(sizeof(object) * 2); +c_732360.elements[0] = ((closureN)self_731217)->elements[0]; +c_732360.elements[1] = ((closureN)self_731217)->elements[2]; + +return_closcall2(data, __glo__91_125tok_scheme_read, &c_732360, ((closureN)self_731217)->elements[1]);; +} + +static void __lambda_199(void *data, int argc, object self_731218, object r_73613) { + +closureN_type c_732362; +c_732362.hdr.mark = gc_color_red; + c_732362.hdr.grayed = 0; +c_732362.tag = closureN_tag; + c_732362.fn = (function_type)__lambda_198; +c_732362.num_args = 1; +c_732362.num_elements = 1; +c_732362.elements = (object *)alloca(sizeof(object) * 1); +c_732362.elements[0] = ((closureN)self_731218)->elements[0]; + +return_closcall3(data, __glo_add_91tok_scheme_read, &c_732362, r_73613, ((closureN)self_731218)->elements[1]);; +} + +static void __lambda_198(void *data, int argc, object self_731219, object r_73612) { + return_closcall1(data, ((closureN)self_731219)->elements[0], car(r_73612));; +} + +static void __lambda_197(void *data, int argc, object self_731220, object k_73618) { + if( (boolean_f != ((closureN)self_731220)->elements[0]) ){ + return_closcall1(data, k_73618, boolean_f); +} else { + +closureN_type c_732348; +c_732348.hdr.mark = gc_color_red; + c_732348.hdr.grayed = 0; +c_732348.tag = closureN_tag; + c_732348.fn = (function_type)__lambda_196; +c_732348.num_args = 1; +c_732348.num_elements = 1; +c_732348.elements = (object *)alloca(sizeof(object) * 1); +c_732348.elements[0] = k_73618; + +return_closcall1(data,(closure)&c_732348, Cyc_is_null(((closureN)self_731220)->elements[1]));} +; +} + +static void __lambda_196(void *data, int argc, object self_731221, object r_73619) { + return_closcall2(data, __glo_not_scheme_base, ((closureN)self_731221)->elements[0], r_73619);; +} + +static void __lambda_195(void *data, int argc, object self_731222) { + +closureN_type c_732231; +c_732231.hdr.mark = gc_color_red; + c_732231.hdr.grayed = 0; +c_732231.tag = closureN_tag; + c_732231.fn = (function_type)__lambda_172; +c_732231.num_args = 0; +c_732231.num_elements = 2; +c_732231.elements = (object *)alloca(sizeof(object) * 2); +c_732231.elements[0] = ((closureN)self_731222)->elements[0]; +c_732231.elements[1] = ((closureN)self_731222)->elements[6]; + + +closureN_type c_732241; +c_732241.hdr.mark = gc_color_red; + c_732241.hdr.grayed = 0; +c_732241.tag = closureN_tag; + c_732241.fn = (function_type)__lambda_194; +c_732241.num_args = 1; +c_732241.num_elements = 8; +c_732241.elements = (object *)alloca(sizeof(object) * 8); +c_732241.elements[0] = ((closureN)self_731222)->elements[0]; +c_732241.elements[1] = ((closureN)self_731222)->elements[1]; +c_732241.elements[2] = ((closureN)self_731222)->elements[2]; +c_732241.elements[3] = ((closureN)self_731222)->elements[3]; +c_732241.elements[4] = ((closureN)self_731222)->elements[4]; +c_732241.elements[5] = ((closureN)self_731222)->elements[5]; +c_732241.elements[6] = ((closureN)self_731222)->elements[6]; +c_732241.elements[7] = ((closureN)self_731222)->elements[7]; + +return_closcall1(data,(closure)&c_732231, &c_732241);; +} + +static void __lambda_194(void *data, int argc, object self_731223, object r_73590) { + if( (boolean_f != r_73590) ){ + +closureN_type c_732243; +c_732243.hdr.mark = gc_color_red; + c_732243.hdr.grayed = 0; +c_732243.tag = closureN_tag; + c_732243.fn = (function_type)__lambda_176; +c_732243.num_args = 0; +c_732243.num_elements = 5; +c_732243.elements = (object *)alloca(sizeof(object) * 5); +c_732243.elements[0] = ((closureN)self_731223)->elements[1]; +c_732243.elements[1] = ((closureN)self_731223)->elements[3]; +c_732243.elements[2] = ((closureN)self_731223)->elements[5]; +c_732243.elements[3] = ((closureN)self_731223)->elements[6]; +c_732243.elements[4] = ((closureN)self_731223)->elements[7]; + +return_closcall0(data,(closure)&c_732243); +} else { + +closureN_type c_732259; +c_732259.hdr.mark = gc_color_red; + c_732259.hdr.grayed = 0; +c_732259.tag = closureN_tag; + c_732259.fn = (function_type)__lambda_193; +c_732259.num_args = 0; +c_732259.num_elements = 7; +c_732259.elements = (object *)alloca(sizeof(object) * 7); +c_732259.elements[0] = ((closureN)self_731223)->elements[0]; +c_732259.elements[1] = ((closureN)self_731223)->elements[2]; +c_732259.elements[2] = ((closureN)self_731223)->elements[3]; +c_732259.elements[3] = ((closureN)self_731223)->elements[4]; +c_732259.elements[4] = ((closureN)self_731223)->elements[5]; +c_732259.elements[5] = ((closureN)self_731223)->elements[6]; +c_732259.elements[6] = ((closureN)self_731223)->elements[7]; + +return_closcall0(data,(closure)&c_732259);} +; +} + +static void __lambda_193(void *data, int argc, object self_731224) { + +closureN_type c_732261; +c_732261.hdr.mark = gc_color_red; + c_732261.hdr.grayed = 0; +c_732261.tag = closureN_tag; + c_732261.fn = (function_type)__lambda_192; +c_732261.num_args = 1; +c_732261.num_elements = 7; +c_732261.elements = (object *)alloca(sizeof(object) * 7); +c_732261.elements[0] = ((closureN)self_731224)->elements[0]; +c_732261.elements[1] = ((closureN)self_731224)->elements[1]; +c_732261.elements[2] = ((closureN)self_731224)->elements[2]; +c_732261.elements[3] = ((closureN)self_731224)->elements[3]; +c_732261.elements[4] = ((closureN)self_731224)->elements[4]; +c_732261.elements[5] = ((closureN)self_731224)->elements[5]; +c_732261.elements[6] = ((closureN)self_731224)->elements[6]; + +return_closcall1(data,(closure)&c_732261, NULL);; +} + +static void __lambda_192(void *data, int argc, object self_731225, object r_73604) { + +closureN_type c_732263; +c_732263.hdr.mark = gc_color_red; + c_732263.hdr.grayed = 0; +c_732263.tag = closureN_tag; + c_732263.fn = (function_type)__lambda_191; +c_732263.num_args = 1; +c_732263.num_elements = 8; +c_732263.elements = (object *)alloca(sizeof(object) * 8); +c_732263.elements[0] = ((closureN)self_731225)->elements[0]; +c_732263.elements[1] = ((closureN)self_731225)->elements[1]; +c_732263.elements[2] = ((closureN)self_731225)->elements[2]; +c_732263.elements[3] = ((closureN)self_731225)->elements[3]; +c_732263.elements[4] = ((closureN)self_731225)->elements[4]; +c_732263.elements[5] = r_73604; +c_732263.elements[6] = ((closureN)self_731225)->elements[5]; +c_732263.elements[7] = ((closureN)self_731225)->elements[6]; + +return_closcall1(data,(closure)&c_732263, NULL);; +} + +static void __lambda_191(void *data, int argc, object self_731226, object r_73605) { + +closureN_type c_732265; +c_732265.hdr.mark = gc_color_red; + c_732265.hdr.grayed = 0; +c_732265.tag = closureN_tag; + c_732265.fn = (function_type)__lambda_190; +c_732265.num_args = 1; +c_732265.num_elements = 9; +c_732265.elements = (object *)alloca(sizeof(object) * 9); +c_732265.elements[0] = ((closureN)self_731226)->elements[0]; +c_732265.elements[1] = ((closureN)self_731226)->elements[1]; +c_732265.elements[2] = ((closureN)self_731226)->elements[2]; +c_732265.elements[3] = ((closureN)self_731226)->elements[3]; +c_732265.elements[4] = ((closureN)self_731226)->elements[4]; +c_732265.elements[5] = ((closureN)self_731226)->elements[5]; +c_732265.elements[6] = r_73605; +c_732265.elements[7] = ((closureN)self_731226)->elements[6]; +c_732265.elements[8] = ((closureN)self_731226)->elements[7]; + + +object c_732337 = Cyc_sum(data,(closure)&c_732265,2,((closureN)self_731226)->elements[3], obj_int2obj(1)); +return_closcall1(data,(closure)&c_732265, c_732337);; +} + +static void __lambda_190(void *data, int argc, object self_731227, object r_73606) { + +closureN_type c_732267; +c_732267.hdr.mark = gc_color_red; + c_732267.hdr.grayed = 0; +c_732267.tag = closureN_tag; + c_732267.fn = (function_type)__lambda_189; +c_732267.num_args = 1; +c_732267.num_elements = 7; +c_732267.elements = (object *)alloca(sizeof(object) * 7); +c_732267.elements[0] = ((closureN)self_731227)->elements[0]; +c_732267.elements[1] = ((closureN)self_731227)->elements[1]; +c_732267.elements[2] = ((closureN)self_731227)->elements[2]; +c_732267.elements[3] = ((closureN)self_731227)->elements[3]; +c_732267.elements[4] = ((closureN)self_731227)->elements[4]; +c_732267.elements[5] = ((closureN)self_731227)->elements[7]; +c_732267.elements[6] = ((closureN)self_731227)->elements[8]; + +return_closcall8(data, __glo_parse_scheme_read, &c_732267, ((closureN)self_731227)->elements[1], ((closureN)self_731227)->elements[5], ((closureN)self_731227)->elements[6], boolean_t, boolean_f, r_73606, ((closureN)self_731227)->elements[4]);; +} + +static void __lambda_189(void *data, int argc, object self_731228, object r_73594) { + +closureN_type c_732269; +c_732269.hdr.mark = gc_color_red; + c_732269.hdr.grayed = 0; +c_732269.tag = closureN_tag; + c_732269.fn = (function_type)__lambda_188; +c_732269.num_args = 1; +c_732269.num_elements = 6; +c_732269.elements = (object *)alloca(sizeof(object) * 6); +c_732269.elements[0] = ((closureN)self_731228)->elements[0]; +c_732269.elements[1] = ((closureN)self_731228)->elements[1]; +c_732269.elements[2] = ((closureN)self_731228)->elements[2]; +c_732269.elements[3] = ((closureN)self_731228)->elements[3]; +c_732269.elements[4] = ((closureN)self_731228)->elements[4]; +c_732269.elements[5] = r_73594; + +return_closcall3(data, __glo_get_91toks_scheme_read, &c_732269, ((closureN)self_731228)->elements[5], ((closureN)self_731228)->elements[6]);; +} + +static void __lambda_188(void *data, int argc, object self_731229, object r_73595) { + +closureN_type c_732271; +c_732271.hdr.mark = gc_color_red; + c_732271.hdr.grayed = 0; +c_732271.tag = closureN_tag; + c_732271.fn = (function_type)__lambda_187; +c_732271.num_args = 2; +c_732271.num_elements = 5; +c_732271.elements = (object *)alloca(sizeof(object) * 5); +c_732271.elements[0] = ((closureN)self_731229)->elements[0]; +c_732271.elements[1] = ((closureN)self_731229)->elements[1]; +c_732271.elements[2] = ((closureN)self_731229)->elements[2]; +c_732271.elements[3] = ((closureN)self_731229)->elements[3]; +c_732271.elements[4] = ((closureN)self_731229)->elements[4]; + +return_closcall2(data,(closure)&c_732271, ((closureN)self_731229)->elements[5], r_73595);; +} + +static void __lambda_187(void *data, int argc, object self_731230, object sub_73222, object toks_85_73221) { + +closureN_type c_732273; +c_732273.hdr.mark = gc_color_red; + c_732273.hdr.grayed = 0; +c_732273.tag = closureN_tag; + c_732273.fn = (function_type)__lambda_186; +c_732273.num_args = 1; +c_732273.num_elements = 7; +c_732273.elements = (object *)alloca(sizeof(object) * 7); +c_732273.elements[0] = ((closureN)self_731230)->elements[0]; +c_732273.elements[1] = ((closureN)self_731230)->elements[1]; +c_732273.elements[2] = ((closureN)self_731230)->elements[2]; +c_732273.elements[3] = ((closureN)self_731230)->elements[3]; +c_732273.elements[4] = ((closureN)self_731230)->elements[4]; +c_732273.elements[5] = sub_73222; +c_732273.elements[6] = toks_85_73221; + +return_closcall1(data,(closure)&c_732273, boolean_f);; +} + +static void __lambda_186(void *data, int argc, object self_731231, object new_91toks_73223) { + +closureN_type c_732275; +c_732275.hdr.mark = gc_color_red; + c_732275.hdr.grayed = 0; +c_732275.tag = closureN_tag; + c_732275.fn = (function_type)__lambda_185; +c_732275.num_args = 1; +c_732275.num_elements = 7; +c_732275.elements = (object *)alloca(sizeof(object) * 7); +c_732275.elements[0] = ((closureN)self_731231)->elements[0]; +c_732275.elements[1] = ((closureN)self_731231)->elements[1]; +c_732275.elements[2] = ((closureN)self_731231)->elements[2]; +c_732275.elements[3] = ((closureN)self_731231)->elements[3]; +c_732275.elements[4] = ((closureN)self_731231)->elements[4]; +c_732275.elements[5] = ((closureN)self_731231)->elements[5]; +c_732275.elements[6] = ((closureN)self_731231)->elements[6]; + + +make_cell(c_732327,new_91toks_73223); +return_closcall1(data,(closure)&c_732275, &c_732327);; +} + +static void __lambda_185(void *data, int argc, object self_731232, object new_91toks_73223) { + +closureN_type c_732277; +c_732277.hdr.mark = gc_color_red; + c_732277.hdr.grayed = 0; +c_732277.tag = closureN_tag; + c_732277.fn = (function_type)__lambda_180; +c_732277.num_args = 0; +c_732277.num_elements = 1; +c_732277.elements = (object *)alloca(sizeof(object) * 1); +c_732277.elements[0] = ((closureN)self_731232)->elements[5]; + + +closureN_type c_732297; +c_732297.hdr.mark = gc_color_red; + c_732297.hdr.grayed = 0; +c_732297.tag = closureN_tag; + c_732297.fn = (function_type)__lambda_184; +c_732297.num_args = 1; +c_732297.num_elements = 7; +c_732297.elements = (object *)alloca(sizeof(object) * 7); +c_732297.elements[0] = ((closureN)self_731232)->elements[0]; +c_732297.elements[1] = ((closureN)self_731232)->elements[1]; +c_732297.elements[2] = ((closureN)self_731232)->elements[2]; +c_732297.elements[3] = new_91toks_73223; +c_732297.elements[4] = ((closureN)self_731232)->elements[3]; +c_732297.elements[5] = ((closureN)self_731232)->elements[4]; +c_732297.elements[6] = ((closureN)self_731232)->elements[6]; + +return_closcall1(data,(closure)&c_732277, &c_732297);; +} + +static void __lambda_184(void *data, int argc, object self_731233, object r_73599) { + +closureN_type c_732299; +c_732299.hdr.mark = gc_color_red; + c_732299.hdr.grayed = 0; +c_732299.tag = closureN_tag; + c_732299.fn = (function_type)__lambda_183; +c_732299.num_args = 1; +c_732299.num_elements = 6; +c_732299.elements = (object *)alloca(sizeof(object) * 6); +c_732299.elements[0] = ((closureN)self_731233)->elements[0]; +c_732299.elements[1] = ((closureN)self_731233)->elements[1]; +c_732299.elements[2] = ((closureN)self_731233)->elements[2]; +c_732299.elements[3] = ((closureN)self_731233)->elements[3]; +c_732299.elements[4] = ((closureN)self_731233)->elements[4]; +c_732299.elements[5] = ((closureN)self_731233)->elements[5]; + +return_closcall3(data, __glo_add_91tok_scheme_read, &c_732299, r_73599, ((closureN)self_731233)->elements[6]);; +} + +static void __lambda_183(void *data, int argc, object self_731234, object r_73598) { + +closureN_type c_732301; +c_732301.hdr.mark = gc_color_red; + c_732301.hdr.grayed = 0; +c_732301.tag = closureN_tag; + c_732301.fn = (function_type)__lambda_182; +c_732301.num_args = 1; +c_732301.num_elements = 6; +c_732301.elements = (object *)alloca(sizeof(object) * 6); +c_732301.elements[0] = ((closureN)self_731234)->elements[0]; +c_732301.elements[1] = ((closureN)self_731234)->elements[1]; +c_732301.elements[2] = ((closureN)self_731234)->elements[2]; +c_732301.elements[3] = ((closureN)self_731234)->elements[3]; +c_732301.elements[4] = ((closureN)self_731234)->elements[4]; +c_732301.elements[5] = ((closureN)self_731234)->elements[5]; + +return_closcall1(data,(closure)&c_732301, Cyc_set_car(data, ((closureN)self_731234)->elements[3], r_73598));; +} + +static void __lambda_182(void *data, int argc, object self_731235, object r_73596) { + if( (boolean_f != ((closureN)self_731235)->elements[0]) ){ + +closureN_type c_732304; +c_732304.hdr.mark = gc_color_red; + c_732304.hdr.grayed = 0; +c_732304.tag = closureN_tag; + c_732304.fn = (function_type)__lambda_181; +c_732304.num_args = 1; +c_732304.num_elements = 6; +c_732304.elements = (object *)alloca(sizeof(object) * 6); +c_732304.elements[0] = ((closureN)self_731235)->elements[0]; +c_732304.elements[1] = ((closureN)self_731235)->elements[1]; +c_732304.elements[2] = ((closureN)self_731235)->elements[2]; +c_732304.elements[3] = ((closureN)self_731235)->elements[3]; +c_732304.elements[4] = ((closureN)self_731235)->elements[4]; +c_732304.elements[5] = ((closureN)self_731235)->elements[5]; + +return_closcall1(data,(closure)&c_732304, NULL); +} else { + return_closcall1(data, ((closureN)self_731235)->elements[2], car(cell_get(((closureN)self_731235)->elements[3])));} +; +} + +static void __lambda_181(void *data, int argc, object self_731236, object r_73597) { + return_closcall8(data, __glo_parse_scheme_read, ((closureN)self_731236)->elements[2], ((closureN)self_731236)->elements[1], r_73597, cell_get(((closureN)self_731236)->elements[3]), ((closureN)self_731236)->elements[0], boolean_f, ((closureN)self_731236)->elements[4], ((closureN)self_731236)->elements[5]);; +} + +static void __lambda_180(void *data, int argc, object self_731237, object k_73600) { + +closureN_type c_732279; +c_732279.hdr.mark = gc_color_red; + c_732279.hdr.grayed = 0; +c_732279.tag = closureN_tag; + c_732279.fn = (function_type)__lambda_178; +c_732279.num_args = 0; +c_732279.num_elements = 1; +c_732279.elements = (object *)alloca(sizeof(object) * 1); +c_732279.elements[0] = ((closureN)self_731237)->elements[0]; + + +closureN_type c_732290; +c_732290.hdr.mark = gc_color_red; + c_732290.hdr.grayed = 0; +c_732290.tag = closureN_tag; + c_732290.fn = (function_type)__lambda_179; +c_732290.num_args = 1; +c_732290.num_elements = 2; +c_732290.elements = (object *)alloca(sizeof(object) * 2); +c_732290.elements[0] = k_73600; +c_732290.elements[1] = ((closureN)self_731237)->elements[0]; + +return_closcall1(data,(closure)&c_732279, &c_732290);; +} + +static void __lambda_179(void *data, int argc, object self_731238, object r_73601) { + if( (boolean_f != r_73601) ){ + return_closcall2(data, __glo__91_125dotted_91list_scheme_read, ((closureN)self_731238)->elements[0], ((closureN)self_731238)->elements[1]); +} else { + return_closcall1(data, ((closureN)self_731238)->elements[0], ((closureN)self_731238)->elements[1]);} +; +} + +static void __lambda_178(void *data, int argc, object self_731239, object k_73602) { + +closureN_type c_732281; +c_732281.hdr.mark = gc_color_red; + c_732281.hdr.grayed = 0; +c_732281.tag = closureN_tag; + c_732281.fn = (function_type)__lambda_177; +c_732281.num_args = 1; +c_732281.num_elements = 2; +c_732281.elements = (object *)alloca(sizeof(object) * 2); +c_732281.elements[0] = k_73602; +c_732281.elements[1] = ((closureN)self_731239)->elements[0]; + +return_closcall1(data,(closure)&c_732281, Cyc_is_pair(((closureN)self_731239)->elements[0]));; +} + +static void __lambda_177(void *data, int argc, object self_731240, object r_73603) { + if( (boolean_f != r_73603) ){ + return_closcall2(data, __glo_dotted_127_scheme_read, ((closureN)self_731240)->elements[0], ((closureN)self_731240)->elements[1]); +} else { + return_closcall1(data, ((closureN)self_731240)->elements[0], boolean_f);} +; +} + +static void __lambda_176(void *data, int argc, object self_731241) { + +closureN_type c_732245; +c_732245.hdr.mark = gc_color_red; + c_732245.hdr.grayed = 0; +c_732245.tag = closureN_tag; + c_732245.fn = (function_type)__lambda_175; +c_732245.num_args = 1; +c_732245.num_elements = 3; +c_732245.elements = (object *)alloca(sizeof(object) * 3); +c_732245.elements[0] = ((closureN)self_731241)->elements[1]; +c_732245.elements[1] = ((closureN)self_731241)->elements[3]; +c_732245.elements[2] = ((closureN)self_731241)->elements[4]; + +return_closcall3(data, __glo_in_91port_117set_91buf_67_scheme_read, &c_732245, ((closureN)self_731241)->elements[2], ((closureN)self_731241)->elements[0]);; +} + +static void __lambda_175(void *data, int argc, object self_731242, object r_73591) { + +closureN_type c_732247; +c_732247.hdr.mark = gc_color_red; + c_732247.hdr.grayed = 0; +c_732247.tag = closureN_tag; + c_732247.fn = (function_type)__lambda_174; +c_732247.num_args = 1; +c_732247.num_elements = 2; +c_732247.elements = (object *)alloca(sizeof(object) * 2); +c_732247.elements[0] = ((closureN)self_731242)->elements[0]; +c_732247.elements[1] = ((closureN)self_731242)->elements[2]; + +return_closcall2(data, __glo__91_125tok_scheme_read, &c_732247, ((closureN)self_731242)->elements[1]);; +} + +static void __lambda_174(void *data, int argc, object self_731243, object r_73593) { + +closureN_type c_732249; +c_732249.hdr.mark = gc_color_red; + c_732249.hdr.grayed = 0; +c_732249.tag = closureN_tag; + c_732249.fn = (function_type)__lambda_173; +c_732249.num_args = 1; +c_732249.num_elements = 1; +c_732249.elements = (object *)alloca(sizeof(object) * 1); +c_732249.elements[0] = ((closureN)self_731243)->elements[0]; + +return_closcall3(data, __glo_add_91tok_scheme_read, &c_732249, r_73593, ((closureN)self_731243)->elements[1]);; +} + +static void __lambda_173(void *data, int argc, object self_731244, object r_73592) { + return_closcall1(data, ((closureN)self_731244)->elements[0], car(r_73592));; +} + +static void __lambda_172(void *data, int argc, object self_731245, object k_73607) { + if( (boolean_f != ((closureN)self_731245)->elements[0]) ){ + return_closcall1(data, k_73607, boolean_f); +} else { + +closureN_type c_732235; +c_732235.hdr.mark = gc_color_red; + c_732235.hdr.grayed = 0; +c_732235.tag = closureN_tag; + c_732235.fn = (function_type)__lambda_171; +c_732235.num_args = 1; +c_732235.num_elements = 1; +c_732235.elements = (object *)alloca(sizeof(object) * 1); +c_732235.elements[0] = k_73607; + +return_closcall1(data,(closure)&c_732235, Cyc_is_null(((closureN)self_731245)->elements[1]));} +; +} + +static void __lambda_171(void *data, int argc, object self_731246, object r_73608) { + return_closcall2(data, __glo_not_scheme_base, ((closureN)self_731246)->elements[0], r_73608);; +} + +static void __lambda_170(void *data, int argc, object self_731247) { + +closureN_type c_732038; +c_732038.hdr.mark = gc_color_red; + c_732038.hdr.grayed = 0; +c_732038.tag = closureN_tag; + c_732038.fn = (function_type)__lambda_132; +c_732038.num_args = 0; +c_732038.num_elements = 2; +c_732038.elements = (object *)alloca(sizeof(object) * 2); +c_732038.elements[0] = ((closureN)self_731247)->elements[0]; +c_732038.elements[1] = ((closureN)self_731247)->elements[6]; + + +closureN_type c_732048; +c_732048.hdr.mark = gc_color_red; + c_732048.hdr.grayed = 0; +c_732048.tag = closureN_tag; + c_732048.fn = (function_type)__lambda_169; +c_732048.num_args = 1; +c_732048.num_elements = 8; +c_732048.elements = (object *)alloca(sizeof(object) * 8); +c_732048.elements[0] = ((closureN)self_731247)->elements[0]; +c_732048.elements[1] = ((closureN)self_731247)->elements[1]; +c_732048.elements[2] = ((closureN)self_731247)->elements[2]; +c_732048.elements[3] = ((closureN)self_731247)->elements[3]; +c_732048.elements[4] = ((closureN)self_731247)->elements[4]; +c_732048.elements[5] = ((closureN)self_731247)->elements[5]; +c_732048.elements[6] = ((closureN)self_731247)->elements[6]; +c_732048.elements[7] = ((closureN)self_731247)->elements[7]; + +return_closcall1(data,(closure)&c_732038, &c_732048);; +} + +static void __lambda_169(void *data, int argc, object self_731248, object r_73560) { + if( (boolean_f != r_73560) ){ + +closureN_type c_732050; +c_732050.hdr.mark = gc_color_red; + c_732050.hdr.grayed = 0; +c_732050.tag = closureN_tag; + c_732050.fn = (function_type)__lambda_136; +c_732050.num_args = 0; +c_732050.num_elements = 5; +c_732050.elements = (object *)alloca(sizeof(object) * 5); +c_732050.elements[0] = ((closureN)self_731248)->elements[1]; +c_732050.elements[1] = ((closureN)self_731248)->elements[3]; +c_732050.elements[2] = ((closureN)self_731248)->elements[5]; +c_732050.elements[3] = ((closureN)self_731248)->elements[6]; +c_732050.elements[4] = ((closureN)self_731248)->elements[7]; + +return_closcall0(data,(closure)&c_732050); +} else { + +closureN_type c_732066; +c_732066.hdr.mark = gc_color_red; + c_732066.hdr.grayed = 0; +c_732066.tag = closureN_tag; + c_732066.fn = (function_type)__lambda_168; +c_732066.num_args = 0; +c_732066.num_elements = 7; +c_732066.elements = (object *)alloca(sizeof(object) * 7); +c_732066.elements[0] = ((closureN)self_731248)->elements[0]; +c_732066.elements[1] = ((closureN)self_731248)->elements[2]; +c_732066.elements[2] = ((closureN)self_731248)->elements[3]; +c_732066.elements[3] = ((closureN)self_731248)->elements[4]; +c_732066.elements[4] = ((closureN)self_731248)->elements[5]; +c_732066.elements[5] = ((closureN)self_731248)->elements[6]; +c_732066.elements[6] = ((closureN)self_731248)->elements[7]; + +return_closcall0(data,(closure)&c_732066);} +; +} + +static void __lambda_168(void *data, int argc, object self_731249) { + +closureN_type c_732068; +c_732068.hdr.mark = gc_color_red; + c_732068.hdr.grayed = 0; +c_732068.tag = closureN_tag; + c_732068.fn = (function_type)__lambda_167; +c_732068.num_args = 4; +c_732068.num_elements = 7; +c_732068.elements = (object *)alloca(sizeof(object) * 7); +c_732068.elements[0] = ((closureN)self_731249)->elements[0]; +c_732068.elements[1] = ((closureN)self_731249)->elements[1]; +c_732068.elements[2] = ((closureN)self_731249)->elements[2]; +c_732068.elements[3] = ((closureN)self_731249)->elements[3]; +c_732068.elements[4] = ((closureN)self_731249)->elements[4]; +c_732068.elements[5] = ((closureN)self_731249)->elements[5]; +c_732068.elements[6] = ((closureN)self_731249)->elements[6]; + +return_closcall4(data,(closure)&c_732068, boolean_f, boolean_f, boolean_f, boolean_f);; +} + +static void __lambda_167(void *data, int argc, object self_731250, object sub_73227, object next_91c_73226, object unquote_91sym_73225, object new_91toks_73224) { + +closureN_type c_732070; +c_732070.hdr.mark = gc_color_red; + c_732070.hdr.grayed = 0; +c_732070.tag = closureN_tag; + c_732070.fn = (function_type)__lambda_166; +c_732070.num_args = 1; +c_732070.num_elements = 10; +c_732070.elements = (object *)alloca(sizeof(object) * 10); +c_732070.elements[0] = ((closureN)self_731250)->elements[0]; +c_732070.elements[1] = ((closureN)self_731250)->elements[1]; +c_732070.elements[2] = ((closureN)self_731250)->elements[2]; +c_732070.elements[3] = new_91toks_73224; +c_732070.elements[4] = next_91c_73226; +c_732070.elements[5] = ((closureN)self_731250)->elements[3]; +c_732070.elements[6] = ((closureN)self_731250)->elements[4]; +c_732070.elements[7] = ((closureN)self_731250)->elements[5]; +c_732070.elements[8] = ((closureN)self_731250)->elements[6]; +c_732070.elements[9] = unquote_91sym_73225; + + +make_cell(c_732225,sub_73227); +return_closcall1(data,(closure)&c_732070, &c_732225);; +} + +static void __lambda_166(void *data, int argc, object self_731251, object sub_73227) { + +closureN_type c_732072; +c_732072.hdr.mark = gc_color_red; + c_732072.hdr.grayed = 0; +c_732072.tag = closureN_tag; + c_732072.fn = (function_type)__lambda_165; +c_732072.num_args = 1; +c_732072.num_elements = 10; +c_732072.elements = (object *)alloca(sizeof(object) * 10); +c_732072.elements[0] = ((closureN)self_731251)->elements[0]; +c_732072.elements[1] = ((closureN)self_731251)->elements[1]; +c_732072.elements[2] = ((closureN)self_731251)->elements[2]; +c_732072.elements[3] = ((closureN)self_731251)->elements[3]; +c_732072.elements[4] = ((closureN)self_731251)->elements[5]; +c_732072.elements[5] = ((closureN)self_731251)->elements[6]; +c_732072.elements[6] = sub_73227; +c_732072.elements[7] = ((closureN)self_731251)->elements[7]; +c_732072.elements[8] = ((closureN)self_731251)->elements[8]; +c_732072.elements[9] = ((closureN)self_731251)->elements[9]; + + +make_cell(c_732221,((closureN)self_731251)->elements[4]); +return_closcall1(data,(closure)&c_732072, &c_732221);; +} + +static void __lambda_165(void *data, int argc, object self_731252, object next_91c_73226) { + +closureN_type c_732074; +c_732074.hdr.mark = gc_color_red; + c_732074.hdr.grayed = 0; +c_732074.tag = closureN_tag; + c_732074.fn = (function_type)__lambda_164; +c_732074.num_args = 1; +c_732074.num_elements = 10; +c_732074.elements = (object *)alloca(sizeof(object) * 10); +c_732074.elements[0] = ((closureN)self_731252)->elements[0]; +c_732074.elements[1] = ((closureN)self_731252)->elements[1]; +c_732074.elements[2] = ((closureN)self_731252)->elements[2]; +c_732074.elements[3] = ((closureN)self_731252)->elements[3]; +c_732074.elements[4] = next_91c_73226; +c_732074.elements[5] = ((closureN)self_731252)->elements[4]; +c_732074.elements[6] = ((closureN)self_731252)->elements[5]; +c_732074.elements[7] = ((closureN)self_731252)->elements[6]; +c_732074.elements[8] = ((closureN)self_731252)->elements[7]; +c_732074.elements[9] = ((closureN)self_731252)->elements[8]; + + +make_cell(c_732217,((closureN)self_731252)->elements[9]); +return_closcall1(data,(closure)&c_732074, &c_732217);; +} + +static void __lambda_164(void *data, int argc, object self_731253, object unquote_91sym_73225) { + +closureN_type c_732076; +c_732076.hdr.mark = gc_color_red; + c_732076.hdr.grayed = 0; +c_732076.tag = closureN_tag; + c_732076.fn = (function_type)__lambda_163; +c_732076.num_args = 1; +c_732076.num_elements = 10; +c_732076.elements = (object *)alloca(sizeof(object) * 10); +c_732076.elements[0] = ((closureN)self_731253)->elements[0]; +c_732076.elements[1] = ((closureN)self_731253)->elements[1]; +c_732076.elements[2] = ((closureN)self_731253)->elements[2]; +c_732076.elements[3] = ((closureN)self_731253)->elements[4]; +c_732076.elements[4] = ((closureN)self_731253)->elements[5]; +c_732076.elements[5] = ((closureN)self_731253)->elements[6]; +c_732076.elements[6] = ((closureN)self_731253)->elements[7]; +c_732076.elements[7] = ((closureN)self_731253)->elements[8]; +c_732076.elements[8] = ((closureN)self_731253)->elements[9]; +c_732076.elements[9] = unquote_91sym_73225; + + +make_cell(c_732213,((closureN)self_731253)->elements[3]); +return_closcall1(data,(closure)&c_732076, &c_732213);; +} + +static void __lambda_163(void *data, int argc, object self_731254, object new_91toks_73224) { + +closureN_type c_732078; +c_732078.hdr.mark = gc_color_red; + c_732078.hdr.grayed = 0; +c_732078.tag = closureN_tag; + c_732078.fn = (function_type)__lambda_162; +c_732078.num_args = 1; +c_732078.num_elements = 11; +c_732078.elements = (object *)alloca(sizeof(object) * 11); +c_732078.elements[0] = ((closureN)self_731254)->elements[0]; +c_732078.elements[1] = ((closureN)self_731254)->elements[1]; +c_732078.elements[2] = ((closureN)self_731254)->elements[2]; +c_732078.elements[3] = new_91toks_73224; +c_732078.elements[4] = ((closureN)self_731254)->elements[3]; +c_732078.elements[5] = ((closureN)self_731254)->elements[4]; +c_732078.elements[6] = ((closureN)self_731254)->elements[5]; +c_732078.elements[7] = ((closureN)self_731254)->elements[6]; +c_732078.elements[8] = ((closureN)self_731254)->elements[7]; +c_732078.elements[9] = ((closureN)self_731254)->elements[8]; +c_732078.elements[10] = ((closureN)self_731254)->elements[9]; + +return_closcall1(data,(closure)&c_732078, Cyc_set_car(data, ((closureN)self_731254)->elements[6], boolean_f));; +} + +static void __lambda_162(void *data, int argc, object self_731255, object r_73564) { + +closureN_type c_732080; +c_732080.hdr.mark = gc_color_red; + c_732080.hdr.grayed = 0; +c_732080.tag = closureN_tag; + c_732080.fn = (function_type)__lambda_161; +c_732080.num_args = 1; +c_732080.num_elements = 11; +c_732080.elements = (object *)alloca(sizeof(object) * 11); +c_732080.elements[0] = ((closureN)self_731255)->elements[0]; +c_732080.elements[1] = ((closureN)self_731255)->elements[1]; +c_732080.elements[2] = ((closureN)self_731255)->elements[2]; +c_732080.elements[3] = ((closureN)self_731255)->elements[3]; +c_732080.elements[4] = ((closureN)self_731255)->elements[4]; +c_732080.elements[5] = ((closureN)self_731255)->elements[5]; +c_732080.elements[6] = ((closureN)self_731255)->elements[6]; +c_732080.elements[7] = ((closureN)self_731255)->elements[7]; +c_732080.elements[8] = ((closureN)self_731255)->elements[8]; +c_732080.elements[9] = ((closureN)self_731255)->elements[9]; +c_732080.elements[10] = ((closureN)self_731255)->elements[10]; + + +object c_732206 = Cyc_io_read_char(data,(closure)&c_732080,((closureN)self_731255)->elements[1]); +return_closcall1(data,(closure)&c_732080, c_732206);; +} + +static void __lambda_161(void *data, int argc, object self_731256, object r_73586) { + +closureN_type c_732082; +c_732082.hdr.mark = gc_color_red; + c_732082.hdr.grayed = 0; +c_732082.tag = closureN_tag; + c_732082.fn = (function_type)__lambda_160; +c_732082.num_args = 1; +c_732082.num_elements = 11; +c_732082.elements = (object *)alloca(sizeof(object) * 11); +c_732082.elements[0] = ((closureN)self_731256)->elements[0]; +c_732082.elements[1] = ((closureN)self_731256)->elements[1]; +c_732082.elements[2] = ((closureN)self_731256)->elements[2]; +c_732082.elements[3] = ((closureN)self_731256)->elements[3]; +c_732082.elements[4] = ((closureN)self_731256)->elements[4]; +c_732082.elements[5] = ((closureN)self_731256)->elements[5]; +c_732082.elements[6] = ((closureN)self_731256)->elements[6]; +c_732082.elements[7] = ((closureN)self_731256)->elements[7]; +c_732082.elements[8] = ((closureN)self_731256)->elements[8]; +c_732082.elements[9] = ((closureN)self_731256)->elements[9]; +c_732082.elements[10] = ((closureN)self_731256)->elements[10]; + +return_closcall1(data,(closure)&c_732082, Cyc_set_car(data, ((closureN)self_731256)->elements[4], r_73586));; +} + +static void __lambda_160(void *data, int argc, object self_731257, object r_73565) { + +closureN_type c_732084; +c_732084.hdr.mark = gc_color_red; + c_732084.hdr.grayed = 0; +c_732084.tag = closureN_tag; + c_732084.fn = (function_type)__lambda_138; +c_732084.num_args = 0; +c_732084.num_elements = 1; +c_732084.elements = (object *)alloca(sizeof(object) * 1); +c_732084.elements[0] = ((closureN)self_731257)->elements[4]; + + +closureN_type c_732096; +c_732096.hdr.mark = gc_color_red; + c_732096.hdr.grayed = 0; +c_732096.tag = closureN_tag; + c_732096.fn = (function_type)__lambda_159; +c_732096.num_args = 1; +c_732096.num_elements = 11; +c_732096.elements = (object *)alloca(sizeof(object) * 11); +c_732096.elements[0] = ((closureN)self_731257)->elements[0]; +c_732096.elements[1] = ((closureN)self_731257)->elements[1]; +c_732096.elements[2] = ((closureN)self_731257)->elements[2]; +c_732096.elements[3] = ((closureN)self_731257)->elements[3]; +c_732096.elements[4] = ((closureN)self_731257)->elements[4]; +c_732096.elements[5] = ((closureN)self_731257)->elements[5]; +c_732096.elements[6] = ((closureN)self_731257)->elements[6]; +c_732096.elements[7] = ((closureN)self_731257)->elements[7]; +c_732096.elements[8] = ((closureN)self_731257)->elements[8]; +c_732096.elements[9] = ((closureN)self_731257)->elements[9]; +c_732096.elements[10] = ((closureN)self_731257)->elements[10]; + +return_closcall1(data,(closure)&c_732084, &c_732096);; +} + +static void __lambda_159(void *data, int argc, object self_731258, object r_73583) { + +closureN_type c_732098; +c_732098.hdr.mark = gc_color_red; + c_732098.hdr.grayed = 0; +c_732098.tag = closureN_tag; + c_732098.fn = (function_type)__lambda_158; +c_732098.num_args = 1; +c_732098.num_elements = 11; +c_732098.elements = (object *)alloca(sizeof(object) * 11); +c_732098.elements[0] = ((closureN)self_731258)->elements[0]; +c_732098.elements[1] = ((closureN)self_731258)->elements[1]; +c_732098.elements[2] = ((closureN)self_731258)->elements[2]; +c_732098.elements[3] = ((closureN)self_731258)->elements[3]; +c_732098.elements[4] = ((closureN)self_731258)->elements[4]; +c_732098.elements[5] = ((closureN)self_731258)->elements[5]; +c_732098.elements[6] = ((closureN)self_731258)->elements[6]; +c_732098.elements[7] = ((closureN)self_731258)->elements[7]; +c_732098.elements[8] = ((closureN)self_731258)->elements[8]; +c_732098.elements[9] = ((closureN)self_731258)->elements[9]; +c_732098.elements[10] = ((closureN)self_731258)->elements[10]; + +return_closcall1(data,(closure)&c_732098, Cyc_set_car(data, ((closureN)self_731258)->elements[10], r_73583));; +} + +static void __lambda_158(void *data, int argc, object self_731259, object r_73566) { + +closureN_type c_732100; +c_732100.hdr.mark = gc_color_red; + c_732100.hdr.grayed = 0; +c_732100.tag = closureN_tag; + c_732100.fn = (function_type)__lambda_157; +c_732100.num_args = 1; +c_732100.num_elements = 11; +c_732100.elements = (object *)alloca(sizeof(object) * 11); +c_732100.elements[0] = ((closureN)self_731259)->elements[0]; +c_732100.elements[1] = ((closureN)self_731259)->elements[1]; +c_732100.elements[2] = ((closureN)self_731259)->elements[2]; +c_732100.elements[3] = ((closureN)self_731259)->elements[3]; +c_732100.elements[4] = ((closureN)self_731259)->elements[4]; +c_732100.elements[5] = ((closureN)self_731259)->elements[5]; +c_732100.elements[6] = ((closureN)self_731259)->elements[6]; +c_732100.elements[7] = ((closureN)self_731259)->elements[7]; +c_732100.elements[8] = ((closureN)self_731259)->elements[8]; +c_732100.elements[9] = ((closureN)self_731259)->elements[9]; +c_732100.elements[10] = ((closureN)self_731259)->elements[10]; + +return_closcall1(data,(closure)&c_732100, Cyc_set_car(data, ((closureN)self_731259)->elements[3], boolean_f));; +} + +static void __lambda_157(void *data, int argc, object self_731260, object r_73567) { + +closureN_type c_732102; +c_732102.hdr.mark = gc_color_red; + c_732102.hdr.grayed = 0; +c_732102.tag = closureN_tag; + c_732102.fn = (function_type)__lambda_146; +c_732102.num_args = 0; +c_732102.num_elements = 2; +c_732102.elements = (object *)alloca(sizeof(object) * 2); +c_732102.elements[0] = ((closureN)self_731260)->elements[4]; +c_732102.elements[1] = ((closureN)self_731260)->elements[6]; + + +closureN_type c_732141; +c_732141.hdr.mark = gc_color_red; + c_732141.hdr.grayed = 0; +c_732141.tag = closureN_tag; + c_732141.fn = (function_type)__lambda_156; +c_732141.num_args = 1; +c_732141.num_elements = 10; +c_732141.elements = (object *)alloca(sizeof(object) * 10); +c_732141.elements[0] = ((closureN)self_731260)->elements[0]; +c_732141.elements[1] = ((closureN)self_731260)->elements[1]; +c_732141.elements[2] = ((closureN)self_731260)->elements[2]; +c_732141.elements[3] = ((closureN)self_731260)->elements[3]; +c_732141.elements[4] = ((closureN)self_731260)->elements[5]; +c_732141.elements[5] = ((closureN)self_731260)->elements[6]; +c_732141.elements[6] = ((closureN)self_731260)->elements[7]; +c_732141.elements[7] = ((closureN)self_731260)->elements[8]; +c_732141.elements[8] = ((closureN)self_731260)->elements[9]; +c_732141.elements[9] = ((closureN)self_731260)->elements[10]; + +return_closcall1(data,(closure)&c_732102, &c_732141);; +} + +static void __lambda_156(void *data, int argc, object self_731261, object r_73568) { + +closureN_type c_732143; +c_732143.hdr.mark = gc_color_red; + c_732143.hdr.grayed = 0; +c_732143.tag = closureN_tag; + c_732143.fn = (function_type)__lambda_155; +c_732143.num_args = 1; +c_732143.num_elements = 10; +c_732143.elements = (object *)alloca(sizeof(object) * 10); +c_732143.elements[0] = ((closureN)self_731261)->elements[0]; +c_732143.elements[1] = ((closureN)self_731261)->elements[1]; +c_732143.elements[2] = ((closureN)self_731261)->elements[2]; +c_732143.elements[3] = ((closureN)self_731261)->elements[3]; +c_732143.elements[4] = ((closureN)self_731261)->elements[4]; +c_732143.elements[5] = ((closureN)self_731261)->elements[5]; +c_732143.elements[6] = ((closureN)self_731261)->elements[6]; +c_732143.elements[7] = ((closureN)self_731261)->elements[7]; +c_732143.elements[8] = ((closureN)self_731261)->elements[8]; +c_732143.elements[9] = ((closureN)self_731261)->elements[9]; + +return_closcall1(data,(closure)&c_732143, NULL);; +} + +static void __lambda_155(void *data, int argc, object self_731262, object r_73576) { + +closureN_type c_732145; +c_732145.hdr.mark = gc_color_red; + c_732145.hdr.grayed = 0; +c_732145.tag = closureN_tag; + c_732145.fn = (function_type)__lambda_154; +c_732145.num_args = 1; +c_732145.num_elements = 11; +c_732145.elements = (object *)alloca(sizeof(object) * 11); +c_732145.elements[0] = ((closureN)self_731262)->elements[0]; +c_732145.elements[1] = ((closureN)self_731262)->elements[1]; +c_732145.elements[2] = ((closureN)self_731262)->elements[2]; +c_732145.elements[3] = ((closureN)self_731262)->elements[3]; +c_732145.elements[4] = ((closureN)self_731262)->elements[4]; +c_732145.elements[5] = ((closureN)self_731262)->elements[5]; +c_732145.elements[6] = r_73576; +c_732145.elements[7] = ((closureN)self_731262)->elements[6]; +c_732145.elements[8] = ((closureN)self_731262)->elements[7]; +c_732145.elements[9] = ((closureN)self_731262)->elements[8]; +c_732145.elements[10] = ((closureN)self_731262)->elements[9]; + +return_closcall1(data,(closure)&c_732145, NULL);; +} + +static void __lambda_154(void *data, int argc, object self_731263, object r_73577) { + +closureN_type c_732147; +c_732147.hdr.mark = gc_color_red; + c_732147.hdr.grayed = 0; +c_732147.tag = closureN_tag; + c_732147.fn = (function_type)__lambda_153; +c_732147.num_args = 1; +c_732147.num_elements = 10; +c_732147.elements = (object *)alloca(sizeof(object) * 10); +c_732147.elements[0] = ((closureN)self_731263)->elements[0]; +c_732147.elements[1] = ((closureN)self_731263)->elements[1]; +c_732147.elements[2] = ((closureN)self_731263)->elements[2]; +c_732147.elements[3] = ((closureN)self_731263)->elements[3]; +c_732147.elements[4] = ((closureN)self_731263)->elements[4]; +c_732147.elements[5] = ((closureN)self_731263)->elements[5]; +c_732147.elements[6] = ((closureN)self_731263)->elements[7]; +c_732147.elements[7] = ((closureN)self_731263)->elements[8]; +c_732147.elements[8] = ((closureN)self_731263)->elements[9]; +c_732147.elements[9] = ((closureN)self_731263)->elements[10]; + +return_closcall8(data, __glo_parse_scheme_read, &c_732147, ((closureN)self_731263)->elements[1], ((closureN)self_731263)->elements[6], r_73577, boolean_f, boolean_f, obj_int2obj(0), ((closureN)self_731263)->elements[5]);; +} + +static void __lambda_153(void *data, int argc, object self_731264, object r_73575) { + +closureN_type c_732149; +c_732149.hdr.mark = gc_color_red; + c_732149.hdr.grayed = 0; +c_732149.tag = closureN_tag; + c_732149.fn = (function_type)__lambda_152; +c_732149.num_args = 1; +c_732149.num_elements = 10; +c_732149.elements = (object *)alloca(sizeof(object) * 10); +c_732149.elements[0] = ((closureN)self_731264)->elements[0]; +c_732149.elements[1] = ((closureN)self_731264)->elements[1]; +c_732149.elements[2] = ((closureN)self_731264)->elements[2]; +c_732149.elements[3] = ((closureN)self_731264)->elements[3]; +c_732149.elements[4] = ((closureN)self_731264)->elements[4]; +c_732149.elements[5] = ((closureN)self_731264)->elements[5]; +c_732149.elements[6] = ((closureN)self_731264)->elements[6]; +c_732149.elements[7] = ((closureN)self_731264)->elements[7]; +c_732149.elements[8] = ((closureN)self_731264)->elements[8]; +c_732149.elements[9] = ((closureN)self_731264)->elements[9]; + +return_closcall1(data,(closure)&c_732149, Cyc_set_car(data, ((closureN)self_731264)->elements[6], r_73575));; +} + +static void __lambda_152(void *data, int argc, object self_731265, object r_73569) { + +closureN_type c_732151; +c_732151.hdr.mark = gc_color_red; + c_732151.hdr.grayed = 0; +c_732151.tag = closureN_tag; + c_732151.fn = (function_type)__lambda_151; +c_732151.num_args = 1; +c_732151.num_elements = 8; +c_732151.elements = (object *)alloca(sizeof(object) * 8); +c_732151.elements[0] = ((closureN)self_731265)->elements[0]; +c_732151.elements[1] = ((closureN)self_731265)->elements[1]; +c_732151.elements[2] = ((closureN)self_731265)->elements[2]; +c_732151.elements[3] = ((closureN)self_731265)->elements[3]; +c_732151.elements[4] = ((closureN)self_731265)->elements[4]; +c_732151.elements[5] = ((closureN)self_731265)->elements[5]; +c_732151.elements[6] = ((closureN)self_731265)->elements[7]; +c_732151.elements[7] = ((closureN)self_731265)->elements[8]; + +return_closcall3(data, __glo__list_scheme_base, &c_732151, cell_get(((closureN)self_731265)->elements[9]), cell_get(((closureN)self_731265)->elements[6]));; +} + +static void __lambda_151(void *data, int argc, object self_731266, object r_73573) { + +closureN_type c_732153; +c_732153.hdr.mark = gc_color_red; + c_732153.hdr.grayed = 0; +c_732153.tag = closureN_tag; + c_732153.fn = (function_type)__lambda_150; +c_732153.num_args = 1; +c_732153.num_elements = 7; +c_732153.elements = (object *)alloca(sizeof(object) * 7); +c_732153.elements[0] = ((closureN)self_731266)->elements[0]; +c_732153.elements[1] = ((closureN)self_731266)->elements[1]; +c_732153.elements[2] = ((closureN)self_731266)->elements[2]; +c_732153.elements[3] = ((closureN)self_731266)->elements[3]; +c_732153.elements[4] = ((closureN)self_731266)->elements[4]; +c_732153.elements[5] = ((closureN)self_731266)->elements[5]; +c_732153.elements[6] = r_73573; + +return_closcall3(data, __glo_get_91toks_scheme_read, &c_732153, ((closureN)self_731266)->elements[6], ((closureN)self_731266)->elements[7]);; +} + +static void __lambda_150(void *data, int argc, object self_731267, object r_73574) { + +closureN_type c_732155; +c_732155.hdr.mark = gc_color_red; + c_732155.hdr.grayed = 0; +c_732155.tag = closureN_tag; + c_732155.fn = (function_type)__lambda_149; +c_732155.num_args = 1; +c_732155.num_elements = 6; +c_732155.elements = (object *)alloca(sizeof(object) * 6); +c_732155.elements[0] = ((closureN)self_731267)->elements[0]; +c_732155.elements[1] = ((closureN)self_731267)->elements[1]; +c_732155.elements[2] = ((closureN)self_731267)->elements[2]; +c_732155.elements[3] = ((closureN)self_731267)->elements[3]; +c_732155.elements[4] = ((closureN)self_731267)->elements[4]; +c_732155.elements[5] = ((closureN)self_731267)->elements[5]; + +return_closcall3(data, __glo_add_91tok_scheme_read, &c_732155, ((closureN)self_731267)->elements[6], r_73574);; +} + +static void __lambda_149(void *data, int argc, object self_731268, object r_73572) { + +closureN_type c_732157; +c_732157.hdr.mark = gc_color_red; + c_732157.hdr.grayed = 0; +c_732157.tag = closureN_tag; + c_732157.fn = (function_type)__lambda_148; +c_732157.num_args = 1; +c_732157.num_elements = 6; +c_732157.elements = (object *)alloca(sizeof(object) * 6); +c_732157.elements[0] = ((closureN)self_731268)->elements[0]; +c_732157.elements[1] = ((closureN)self_731268)->elements[1]; +c_732157.elements[2] = ((closureN)self_731268)->elements[2]; +c_732157.elements[3] = ((closureN)self_731268)->elements[3]; +c_732157.elements[4] = ((closureN)self_731268)->elements[4]; +c_732157.elements[5] = ((closureN)self_731268)->elements[5]; + +return_closcall1(data,(closure)&c_732157, Cyc_set_car(data, ((closureN)self_731268)->elements[3], r_73572));; +} + +static void __lambda_148(void *data, int argc, object self_731269, object r_73570) { + if( (boolean_f != ((closureN)self_731269)->elements[0]) ){ + +closureN_type c_732160; +c_732160.hdr.mark = gc_color_red; + c_732160.hdr.grayed = 0; +c_732160.tag = closureN_tag; + c_732160.fn = (function_type)__lambda_147; +c_732160.num_args = 1; +c_732160.num_elements = 6; +c_732160.elements = (object *)alloca(sizeof(object) * 6); +c_732160.elements[0] = ((closureN)self_731269)->elements[0]; +c_732160.elements[1] = ((closureN)self_731269)->elements[1]; +c_732160.elements[2] = ((closureN)self_731269)->elements[2]; +c_732160.elements[3] = ((closureN)self_731269)->elements[3]; +c_732160.elements[4] = ((closureN)self_731269)->elements[4]; +c_732160.elements[5] = ((closureN)self_731269)->elements[5]; + +return_closcall1(data,(closure)&c_732160, NULL); +} else { + return_closcall1(data, ((closureN)self_731269)->elements[2], car(cell_get(((closureN)self_731269)->elements[3])));} +; +} + +static void __lambda_147(void *data, int argc, object self_731270, object r_73571) { + return_closcall8(data, __glo_parse_scheme_read, ((closureN)self_731270)->elements[2], ((closureN)self_731270)->elements[1], r_73571, cell_get(((closureN)self_731270)->elements[3]), ((closureN)self_731270)->elements[0], boolean_f, ((closureN)self_731270)->elements[4], ((closureN)self_731270)->elements[5]);; +} + +static void __lambda_146(void *data, int argc, object self_731271, object k_73578) { + +closureN_type c_732104; +c_732104.hdr.mark = gc_color_red; + c_732104.hdr.grayed = 0; +c_732104.tag = closureN_tag; + c_732104.fn = (function_type)__lambda_145; +c_732104.num_args = 1; +c_732104.num_elements = 3; +c_732104.elements = (object *)alloca(sizeof(object) * 3); +c_732104.elements[0] = k_73578; +c_732104.elements[1] = ((closureN)self_731271)->elements[0]; +c_732104.elements[2] = ((closureN)self_731271)->elements[1]; + +return_closcall1(data,(closure)&c_732104, Cyc_is_eof_object(cell_get(((closureN)self_731271)->elements[0])));; +} + +static void __lambda_145(void *data, int argc, object self_731272, object r_73579) { + if( (boolean_f != r_73579) ){ + +closureN_type c_732106; +c_732106.hdr.mark = gc_color_red; + c_732106.hdr.grayed = 0; +c_732106.tag = closureN_tag; + c_732106.fn = (function_type)__lambda_141; +c_732106.num_args = 0; +c_732106.num_elements = 2; +c_732106.elements = (object *)alloca(sizeof(object) * 2); +c_732106.elements[0] = ((closureN)self_731272)->elements[0]; +c_732106.elements[1] = ((closureN)self_731272)->elements[2]; + +return_closcall0(data,(closure)&c_732106); +} else { + +closureN_type c_732118; +c_732118.hdr.mark = gc_color_red; + c_732118.hdr.grayed = 0; +c_732118.tag = closureN_tag; + c_732118.fn = (function_type)__lambda_144; +c_732118.num_args = 1; +c_732118.num_elements = 3; +c_732118.elements = (object *)alloca(sizeof(object) * 3); +c_732118.elements[0] = ((closureN)self_731272)->elements[0]; +c_732118.elements[1] = ((closureN)self_731272)->elements[1]; +c_732118.elements[2] = ((closureN)self_731272)->elements[2]; + +return_closcall1(data,(closure)&c_732118, equalp(cell_get(((closureN)self_731272)->elements[1]), obj_char2obj(64)));} +; +} + +static void __lambda_144(void *data, int argc, object self_731273, object r_73582) { + if( (boolean_f != r_73582) ){ + +closureN_type c_732120; +c_732120.hdr.mark = gc_color_red; + c_732120.hdr.grayed = 0; +c_732120.tag = closureN_tag; + c_732120.fn = (function_type)__lambda_142; +c_732120.num_args = 0; +c_732120.num_elements = 1; +c_732120.elements = (object *)alloca(sizeof(object) * 1); +c_732120.elements[0] = ((closureN)self_731273)->elements[0]; + +return_closcall0(data,(closure)&c_732120); +} else { + +closureN_type c_732124; +c_732124.hdr.mark = gc_color_red; + c_732124.hdr.grayed = 0; +c_732124.tag = closureN_tag; + c_732124.fn = (function_type)__lambda_143; +c_732124.num_args = 0; +c_732124.num_elements = 3; +c_732124.elements = (object *)alloca(sizeof(object) * 3); +c_732124.elements[0] = ((closureN)self_731273)->elements[0]; +c_732124.elements[1] = ((closureN)self_731273)->elements[1]; +c_732124.elements[2] = ((closureN)self_731273)->elements[2]; + +return_closcall0(data,(closure)&c_732124);} +; +} + +static void __lambda_143(void *data, int argc, object self_731274) { + return_closcall3(data, __glo_in_91port_117set_91buf_67_scheme_read, ((closureN)self_731274)->elements[0], ((closureN)self_731274)->elements[2], cell_get(((closureN)self_731274)->elements[1]));; +} + +static void __lambda_142(void *data, int argc, object self_731275) { + return_closcall1(data, ((closureN)self_731275)->elements[0], boolean_f);; +} + +static void __lambda_141(void *data, int argc, object self_731276) { + +closureN_type c_732108; +c_732108.hdr.mark = gc_color_red; + c_732108.hdr.grayed = 0; +c_732108.tag = closureN_tag; + c_732108.fn = (function_type)__lambda_140; +c_732108.num_args = 1; +c_732108.num_elements = 2; +c_732108.elements = (object *)alloca(sizeof(object) * 2); +c_732108.elements[0] = ((closureN)self_731276)->elements[0]; +c_732108.elements[1] = ((closureN)self_731276)->elements[1]; + +return_closcall2(data, __glo_in_91port_117get_91lnum_scheme_read, &c_732108, ((closureN)self_731276)->elements[1]);; +} + +static void __lambda_140(void *data, int argc, object self_731277, object r_73580) { + +closureN_type c_732110; +c_732110.hdr.mark = gc_color_red; + c_732110.hdr.grayed = 0; +c_732110.tag = closureN_tag; + c_732110.fn = (function_type)__lambda_139; +c_732110.num_args = 1; +c_732110.num_elements = 2; +c_732110.elements = (object *)alloca(sizeof(object) * 2); +c_732110.elements[0] = ((closureN)self_731277)->elements[0]; +c_732110.elements[1] = r_73580; + +return_closcall2(data, __glo_in_91port_117get_91cnum_scheme_read, &c_732110, ((closureN)self_731277)->elements[1]);; +} + +static void __lambda_139(void *data, int argc, object self_731278, object r_73581) { + +make_string(c_732113, "unexpected end of file"); +return_closcall4(data, __glo_parse_91error_scheme_read, ((closureN)self_731278)->elements[0], &c_732113, ((closureN)self_731278)->elements[1], r_73581);; +} + +static void __lambda_138(void *data, int argc, object self_731279, object k_73584) { + +closureN_type c_732086; +c_732086.hdr.mark = gc_color_red; + c_732086.hdr.grayed = 0; +c_732086.tag = closureN_tag; + c_732086.fn = (function_type)__lambda_137; +c_732086.num_args = 1; +c_732086.num_elements = 1; +c_732086.elements = (object *)alloca(sizeof(object) * 1); +c_732086.elements[0] = k_73584; + +return_closcall1(data,(closure)&c_732086, equalp(cell_get(((closureN)self_731279)->elements[0]), obj_char2obj(64)));; +} + +static void __lambda_137(void *data, int argc, object self_731280, object r_73585) { + if( (boolean_f != r_73585) ){ + return_closcall1(data, ((closureN)self_731280)->elements[0], quote_unquote_91splicing); +} else { + return_closcall1(data, ((closureN)self_731280)->elements[0], quote_unquote);} +; +} + +static void __lambda_136(void *data, int argc, object self_731281) { + +closureN_type c_732052; +c_732052.hdr.mark = gc_color_red; + c_732052.hdr.grayed = 0; +c_732052.tag = closureN_tag; + c_732052.fn = (function_type)__lambda_135; +c_732052.num_args = 1; +c_732052.num_elements = 3; +c_732052.elements = (object *)alloca(sizeof(object) * 3); +c_732052.elements[0] = ((closureN)self_731281)->elements[1]; +c_732052.elements[1] = ((closureN)self_731281)->elements[3]; +c_732052.elements[2] = ((closureN)self_731281)->elements[4]; + +return_closcall3(data, __glo_in_91port_117set_91buf_67_scheme_read, &c_732052, ((closureN)self_731281)->elements[2], ((closureN)self_731281)->elements[0]);; +} + +static void __lambda_135(void *data, int argc, object self_731282, object r_73561) { + +closureN_type c_732054; +c_732054.hdr.mark = gc_color_red; + c_732054.hdr.grayed = 0; +c_732054.tag = closureN_tag; + c_732054.fn = (function_type)__lambda_134; +c_732054.num_args = 1; +c_732054.num_elements = 2; +c_732054.elements = (object *)alloca(sizeof(object) * 2); +c_732054.elements[0] = ((closureN)self_731282)->elements[0]; +c_732054.elements[1] = ((closureN)self_731282)->elements[2]; + +return_closcall2(data, __glo__91_125tok_scheme_read, &c_732054, ((closureN)self_731282)->elements[1]);; +} + +static void __lambda_134(void *data, int argc, object self_731283, object r_73563) { + +closureN_type c_732056; +c_732056.hdr.mark = gc_color_red; + c_732056.hdr.grayed = 0; +c_732056.tag = closureN_tag; + c_732056.fn = (function_type)__lambda_133; +c_732056.num_args = 1; +c_732056.num_elements = 1; +c_732056.elements = (object *)alloca(sizeof(object) * 1); +c_732056.elements[0] = ((closureN)self_731283)->elements[0]; + +return_closcall3(data, __glo_add_91tok_scheme_read, &c_732056, r_73563, ((closureN)self_731283)->elements[1]);; +} + +static void __lambda_133(void *data, int argc, object self_731284, object r_73562) { + return_closcall1(data, ((closureN)self_731284)->elements[0], car(r_73562));; +} + +static void __lambda_132(void *data, int argc, object self_731285, object k_73587) { + if( (boolean_f != ((closureN)self_731285)->elements[0]) ){ + return_closcall1(data, k_73587, boolean_f); +} else { + +closureN_type c_732042; +c_732042.hdr.mark = gc_color_red; + c_732042.hdr.grayed = 0; +c_732042.tag = closureN_tag; + c_732042.fn = (function_type)__lambda_131; +c_732042.num_args = 1; +c_732042.num_elements = 1; +c_732042.elements = (object *)alloca(sizeof(object) * 1); +c_732042.elements[0] = k_73587; + +return_closcall1(data,(closure)&c_732042, Cyc_is_null(((closureN)self_731285)->elements[1]));} +; +} + +static void __lambda_131(void *data, int argc, object self_731286, object r_73588) { + return_closcall2(data, __glo_not_scheme_base, ((closureN)self_731286)->elements[0], r_73588);; +} + +static void __lambda_130(void *data, int argc, object self_731287) { + +closureN_type c_731952; +c_731952.hdr.mark = gc_color_red; + c_731952.hdr.grayed = 0; +c_731952.tag = closureN_tag; + c_731952.fn = (function_type)__lambda_112; +c_731952.num_args = 0; +c_731952.num_elements = 2; +c_731952.elements = (object *)alloca(sizeof(object) * 2); +c_731952.elements[0] = ((closureN)self_731287)->elements[0]; +c_731952.elements[1] = ((closureN)self_731287)->elements[6]; + + +closureN_type c_731962; +c_731962.hdr.mark = gc_color_red; + c_731962.hdr.grayed = 0; +c_731962.tag = closureN_tag; + c_731962.fn = (function_type)__lambda_129; +c_731962.num_args = 1; +c_731962.num_elements = 8; +c_731962.elements = (object *)alloca(sizeof(object) * 8); +c_731962.elements[0] = ((closureN)self_731287)->elements[0]; +c_731962.elements[1] = ((closureN)self_731287)->elements[1]; +c_731962.elements[2] = ((closureN)self_731287)->elements[2]; +c_731962.elements[3] = ((closureN)self_731287)->elements[3]; +c_731962.elements[4] = ((closureN)self_731287)->elements[4]; +c_731962.elements[5] = ((closureN)self_731287)->elements[5]; +c_731962.elements[6] = ((closureN)self_731287)->elements[6]; +c_731962.elements[7] = ((closureN)self_731287)->elements[7]; + +return_closcall1(data,(closure)&c_731952, &c_731962);; +} + +static void __lambda_129(void *data, int argc, object self_731288, object r_73544) { + if( (boolean_f != r_73544) ){ + +closureN_type c_731964; +c_731964.hdr.mark = gc_color_red; + c_731964.hdr.grayed = 0; +c_731964.tag = closureN_tag; + c_731964.fn = (function_type)__lambda_116; +c_731964.num_args = 0; +c_731964.num_elements = 5; +c_731964.elements = (object *)alloca(sizeof(object) * 5); +c_731964.elements[0] = ((closureN)self_731288)->elements[1]; +c_731964.elements[1] = ((closureN)self_731288)->elements[3]; +c_731964.elements[2] = ((closureN)self_731288)->elements[5]; +c_731964.elements[3] = ((closureN)self_731288)->elements[6]; +c_731964.elements[4] = ((closureN)self_731288)->elements[7]; + +return_closcall0(data,(closure)&c_731964); +} else { + +closureN_type c_731980; +c_731980.hdr.mark = gc_color_red; + c_731980.hdr.grayed = 0; +c_731980.tag = closureN_tag; + c_731980.fn = (function_type)__lambda_128; +c_731980.num_args = 0; +c_731980.num_elements = 7; +c_731980.elements = (object *)alloca(sizeof(object) * 7); +c_731980.elements[0] = ((closureN)self_731288)->elements[0]; +c_731980.elements[1] = ((closureN)self_731288)->elements[2]; +c_731980.elements[2] = ((closureN)self_731288)->elements[3]; +c_731980.elements[3] = ((closureN)self_731288)->elements[4]; +c_731980.elements[4] = ((closureN)self_731288)->elements[5]; +c_731980.elements[5] = ((closureN)self_731288)->elements[6]; +c_731980.elements[6] = ((closureN)self_731288)->elements[7]; + +return_closcall0(data,(closure)&c_731980);} +; +} + +static void __lambda_128(void *data, int argc, object self_731289) { + +closureN_type c_731982; +c_731982.hdr.mark = gc_color_red; + c_731982.hdr.grayed = 0; +c_731982.tag = closureN_tag; + c_731982.fn = (function_type)__lambda_127; +c_731982.num_args = 1; +c_731982.num_elements = 7; +c_731982.elements = (object *)alloca(sizeof(object) * 7); +c_731982.elements[0] = ((closureN)self_731289)->elements[0]; +c_731982.elements[1] = ((closureN)self_731289)->elements[1]; +c_731982.elements[2] = ((closureN)self_731289)->elements[2]; +c_731982.elements[3] = ((closureN)self_731289)->elements[3]; +c_731982.elements[4] = ((closureN)self_731289)->elements[4]; +c_731982.elements[5] = ((closureN)self_731289)->elements[5]; +c_731982.elements[6] = ((closureN)self_731289)->elements[6]; + +return_closcall1(data,(closure)&c_731982, NULL);; +} + +static void __lambda_127(void *data, int argc, object self_731290, object r_73555) { + +closureN_type c_731984; +c_731984.hdr.mark = gc_color_red; + c_731984.hdr.grayed = 0; +c_731984.tag = closureN_tag; + c_731984.fn = (function_type)__lambda_126; +c_731984.num_args = 1; +c_731984.num_elements = 8; +c_731984.elements = (object *)alloca(sizeof(object) * 8); +c_731984.elements[0] = ((closureN)self_731290)->elements[0]; +c_731984.elements[1] = ((closureN)self_731290)->elements[1]; +c_731984.elements[2] = ((closureN)self_731290)->elements[2]; +c_731984.elements[3] = ((closureN)self_731290)->elements[3]; +c_731984.elements[4] = ((closureN)self_731290)->elements[4]; +c_731984.elements[5] = r_73555; +c_731984.elements[6] = ((closureN)self_731290)->elements[5]; +c_731984.elements[7] = ((closureN)self_731290)->elements[6]; + +return_closcall1(data,(closure)&c_731984, NULL);; +} + +static void __lambda_126(void *data, int argc, object self_731291, object r_73556) { + +closureN_type c_731986; +c_731986.hdr.mark = gc_color_red; + c_731986.hdr.grayed = 0; +c_731986.tag = closureN_tag; + c_731986.fn = (function_type)__lambda_125; +c_731986.num_args = 1; +c_731986.num_elements = 7; +c_731986.elements = (object *)alloca(sizeof(object) * 7); +c_731986.elements[0] = ((closureN)self_731291)->elements[0]; +c_731986.elements[1] = ((closureN)self_731291)->elements[1]; +c_731986.elements[2] = ((closureN)self_731291)->elements[2]; +c_731986.elements[3] = ((closureN)self_731291)->elements[3]; +c_731986.elements[4] = ((closureN)self_731291)->elements[4]; +c_731986.elements[5] = ((closureN)self_731291)->elements[6]; +c_731986.elements[6] = ((closureN)self_731291)->elements[7]; + +return_closcall8(data, __glo_parse_scheme_read, &c_731986, ((closureN)self_731291)->elements[1], ((closureN)self_731291)->elements[5], r_73556, boolean_f, boolean_f, obj_int2obj(0), ((closureN)self_731291)->elements[4]);; +} + +static void __lambda_125(void *data, int argc, object self_731292, object sub_73228) { + +closureN_type c_731988; +c_731988.hdr.mark = gc_color_red; + c_731988.hdr.grayed = 0; +c_731988.tag = closureN_tag; + c_731988.fn = (function_type)__lambda_124; +c_731988.num_args = 1; +c_731988.num_elements = 8; +c_731988.elements = (object *)alloca(sizeof(object) * 8); +c_731988.elements[0] = ((closureN)self_731292)->elements[0]; +c_731988.elements[1] = ((closureN)self_731292)->elements[1]; +c_731988.elements[2] = ((closureN)self_731292)->elements[2]; +c_731988.elements[3] = ((closureN)self_731292)->elements[3]; +c_731988.elements[4] = ((closureN)self_731292)->elements[4]; +c_731988.elements[5] = sub_73228; +c_731988.elements[6] = ((closureN)self_731292)->elements[5]; +c_731988.elements[7] = ((closureN)self_731292)->elements[6]; + +return_closcall1(data,(closure)&c_731988, boolean_f);; +} + +static void __lambda_124(void *data, int argc, object self_731293, object new_91toks_73229) { + +closureN_type c_731990; +c_731990.hdr.mark = gc_color_red; + c_731990.hdr.grayed = 0; +c_731990.tag = closureN_tag; + c_731990.fn = (function_type)__lambda_123; +c_731990.num_args = 1; +c_731990.num_elements = 8; +c_731990.elements = (object *)alloca(sizeof(object) * 8); +c_731990.elements[0] = ((closureN)self_731293)->elements[0]; +c_731990.elements[1] = ((closureN)self_731293)->elements[1]; +c_731990.elements[2] = ((closureN)self_731293)->elements[2]; +c_731990.elements[3] = ((closureN)self_731293)->elements[3]; +c_731990.elements[4] = ((closureN)self_731293)->elements[4]; +c_731990.elements[5] = ((closureN)self_731293)->elements[5]; +c_731990.elements[6] = ((closureN)self_731293)->elements[6]; +c_731990.elements[7] = ((closureN)self_731293)->elements[7]; + + +make_cell(c_732029,new_91toks_73229); +return_closcall1(data,(closure)&c_731990, &c_732029);; +} + +static void __lambda_123(void *data, int argc, object self_731294, object new_91toks_73229) { + +closureN_type c_731992; +c_731992.hdr.mark = gc_color_red; + c_731992.hdr.grayed = 0; +c_731992.tag = closureN_tag; + c_731992.fn = (function_type)__lambda_122; +c_731992.num_args = 1; +c_731992.num_elements = 9; +c_731992.elements = (object *)alloca(sizeof(object) * 9); +c_731992.elements[0] = ((closureN)self_731294)->elements[0]; +c_731992.elements[1] = ((closureN)self_731294)->elements[1]; +c_731992.elements[2] = ((closureN)self_731294)->elements[2]; +c_731992.elements[3] = new_91toks_73229; +c_731992.elements[4] = ((closureN)self_731294)->elements[3]; +c_731992.elements[5] = ((closureN)self_731294)->elements[4]; +c_731992.elements[6] = ((closureN)self_731294)->elements[5]; +c_731992.elements[7] = ((closureN)self_731294)->elements[6]; +c_731992.elements[8] = ((closureN)self_731294)->elements[7]; + +return_closcall1(data,(closure)&c_731992, quote_quasiquote);; +} + +static void __lambda_122(void *data, int argc, object self_731295, object r_73554) { + +closureN_type c_731994; +c_731994.hdr.mark = gc_color_red; + c_731994.hdr.grayed = 0; +c_731994.tag = closureN_tag; + c_731994.fn = (function_type)__lambda_121; +c_731994.num_args = 1; +c_731994.num_elements = 8; +c_731994.elements = (object *)alloca(sizeof(object) * 8); +c_731994.elements[0] = ((closureN)self_731295)->elements[0]; +c_731994.elements[1] = ((closureN)self_731295)->elements[1]; +c_731994.elements[2] = ((closureN)self_731295)->elements[2]; +c_731994.elements[3] = ((closureN)self_731295)->elements[3]; +c_731994.elements[4] = ((closureN)self_731295)->elements[4]; +c_731994.elements[5] = ((closureN)self_731295)->elements[5]; +c_731994.elements[6] = ((closureN)self_731295)->elements[7]; +c_731994.elements[7] = ((closureN)self_731295)->elements[8]; + +return_closcall3(data, __glo__list_scheme_base, &c_731994, r_73554, ((closureN)self_731295)->elements[6]);; +} + +static void __lambda_121(void *data, int argc, object self_731296, object r_73552) { + +closureN_type c_731996; +c_731996.hdr.mark = gc_color_red; + c_731996.hdr.grayed = 0; +c_731996.tag = closureN_tag; + c_731996.fn = (function_type)__lambda_120; +c_731996.num_args = 1; +c_731996.num_elements = 7; +c_731996.elements = (object *)alloca(sizeof(object) * 7); +c_731996.elements[0] = ((closureN)self_731296)->elements[0]; +c_731996.elements[1] = ((closureN)self_731296)->elements[1]; +c_731996.elements[2] = ((closureN)self_731296)->elements[2]; +c_731996.elements[3] = ((closureN)self_731296)->elements[3]; +c_731996.elements[4] = ((closureN)self_731296)->elements[4]; +c_731996.elements[5] = ((closureN)self_731296)->elements[5]; +c_731996.elements[6] = r_73552; + +return_closcall3(data, __glo_get_91toks_scheme_read, &c_731996, ((closureN)self_731296)->elements[6], ((closureN)self_731296)->elements[7]);; +} + +static void __lambda_120(void *data, int argc, object self_731297, object r_73553) { + +closureN_type c_731998; +c_731998.hdr.mark = gc_color_red; + c_731998.hdr.grayed = 0; +c_731998.tag = closureN_tag; + c_731998.fn = (function_type)__lambda_119; +c_731998.num_args = 1; +c_731998.num_elements = 6; +c_731998.elements = (object *)alloca(sizeof(object) * 6); +c_731998.elements[0] = ((closureN)self_731297)->elements[0]; +c_731998.elements[1] = ((closureN)self_731297)->elements[1]; +c_731998.elements[2] = ((closureN)self_731297)->elements[2]; +c_731998.elements[3] = ((closureN)self_731297)->elements[3]; +c_731998.elements[4] = ((closureN)self_731297)->elements[4]; +c_731998.elements[5] = ((closureN)self_731297)->elements[5]; + +return_closcall3(data, __glo_add_91tok_scheme_read, &c_731998, ((closureN)self_731297)->elements[6], r_73553);; +} + +static void __lambda_119(void *data, int argc, object self_731298, object r_73551) { + +closureN_type c_732000; +c_732000.hdr.mark = gc_color_red; + c_732000.hdr.grayed = 0; +c_732000.tag = closureN_tag; + c_732000.fn = (function_type)__lambda_118; +c_732000.num_args = 1; +c_732000.num_elements = 6; +c_732000.elements = (object *)alloca(sizeof(object) * 6); +c_732000.elements[0] = ((closureN)self_731298)->elements[0]; +c_732000.elements[1] = ((closureN)self_731298)->elements[1]; +c_732000.elements[2] = ((closureN)self_731298)->elements[2]; +c_732000.elements[3] = ((closureN)self_731298)->elements[3]; +c_732000.elements[4] = ((closureN)self_731298)->elements[4]; +c_732000.elements[5] = ((closureN)self_731298)->elements[5]; + +return_closcall1(data,(closure)&c_732000, Cyc_set_car(data, ((closureN)self_731298)->elements[3], r_73551));; +} + +static void __lambda_118(void *data, int argc, object self_731299, object r_73549) { + if( (boolean_f != ((closureN)self_731299)->elements[0]) ){ + +closureN_type c_732003; +c_732003.hdr.mark = gc_color_red; + c_732003.hdr.grayed = 0; +c_732003.tag = closureN_tag; + c_732003.fn = (function_type)__lambda_117; +c_732003.num_args = 1; +c_732003.num_elements = 6; +c_732003.elements = (object *)alloca(sizeof(object) * 6); +c_732003.elements[0] = ((closureN)self_731299)->elements[0]; +c_732003.elements[1] = ((closureN)self_731299)->elements[1]; +c_732003.elements[2] = ((closureN)self_731299)->elements[2]; +c_732003.elements[3] = ((closureN)self_731299)->elements[3]; +c_732003.elements[4] = ((closureN)self_731299)->elements[4]; +c_732003.elements[5] = ((closureN)self_731299)->elements[5]; + +return_closcall1(data,(closure)&c_732003, NULL); +} else { + return_closcall1(data, ((closureN)self_731299)->elements[2], car(cell_get(((closureN)self_731299)->elements[3])));} +; +} + +static void __lambda_117(void *data, int argc, object self_731300, object r_73550) { + return_closcall8(data, __glo_parse_scheme_read, ((closureN)self_731300)->elements[2], ((closureN)self_731300)->elements[1], r_73550, cell_get(((closureN)self_731300)->elements[3]), ((closureN)self_731300)->elements[0], boolean_f, ((closureN)self_731300)->elements[4], ((closureN)self_731300)->elements[5]);; +} + +static void __lambda_116(void *data, int argc, object self_731301) { + +closureN_type c_731966; +c_731966.hdr.mark = gc_color_red; + c_731966.hdr.grayed = 0; +c_731966.tag = closureN_tag; + c_731966.fn = (function_type)__lambda_115; +c_731966.num_args = 1; +c_731966.num_elements = 3; +c_731966.elements = (object *)alloca(sizeof(object) * 3); +c_731966.elements[0] = ((closureN)self_731301)->elements[1]; +c_731966.elements[1] = ((closureN)self_731301)->elements[3]; +c_731966.elements[2] = ((closureN)self_731301)->elements[4]; + +return_closcall3(data, __glo_in_91port_117set_91buf_67_scheme_read, &c_731966, ((closureN)self_731301)->elements[2], ((closureN)self_731301)->elements[0]);; +} + +static void __lambda_115(void *data, int argc, object self_731302, object r_73545) { + +closureN_type c_731968; +c_731968.hdr.mark = gc_color_red; + c_731968.hdr.grayed = 0; +c_731968.tag = closureN_tag; + c_731968.fn = (function_type)__lambda_114; +c_731968.num_args = 1; +c_731968.num_elements = 2; +c_731968.elements = (object *)alloca(sizeof(object) * 2); +c_731968.elements[0] = ((closureN)self_731302)->elements[0]; +c_731968.elements[1] = ((closureN)self_731302)->elements[2]; + +return_closcall2(data, __glo__91_125tok_scheme_read, &c_731968, ((closureN)self_731302)->elements[1]);; +} + +static void __lambda_114(void *data, int argc, object self_731303, object r_73547) { + +closureN_type c_731970; +c_731970.hdr.mark = gc_color_red; + c_731970.hdr.grayed = 0; +c_731970.tag = closureN_tag; + c_731970.fn = (function_type)__lambda_113; +c_731970.num_args = 1; +c_731970.num_elements = 1; +c_731970.elements = (object *)alloca(sizeof(object) * 1); +c_731970.elements[0] = ((closureN)self_731303)->elements[0]; + +return_closcall3(data, __glo_add_91tok_scheme_read, &c_731970, r_73547, ((closureN)self_731303)->elements[1]);; +} + +static void __lambda_113(void *data, int argc, object self_731304, object r_73546) { + return_closcall1(data, ((closureN)self_731304)->elements[0], car(r_73546));; +} + +static void __lambda_112(void *data, int argc, object self_731305, object k_73557) { + if( (boolean_f != ((closureN)self_731305)->elements[0]) ){ + return_closcall1(data, k_73557, boolean_f); +} else { + +closureN_type c_731956; +c_731956.hdr.mark = gc_color_red; + c_731956.hdr.grayed = 0; +c_731956.tag = closureN_tag; + c_731956.fn = (function_type)__lambda_111; +c_731956.num_args = 1; +c_731956.num_elements = 1; +c_731956.elements = (object *)alloca(sizeof(object) * 1); +c_731956.elements[0] = k_73557; + +return_closcall1(data,(closure)&c_731956, Cyc_is_null(((closureN)self_731305)->elements[1]));} +; +} + +static void __lambda_111(void *data, int argc, object self_731306, object r_73558) { + return_closcall2(data, __glo_not_scheme_base, ((closureN)self_731306)->elements[0], r_73558);; +} + +static void __lambda_110(void *data, int argc, object self_731307) { + +closureN_type c_731866; +c_731866.hdr.mark = gc_color_red; + c_731866.hdr.grayed = 0; +c_731866.tag = closureN_tag; + c_731866.fn = (function_type)__lambda_92; +c_731866.num_args = 0; +c_731866.num_elements = 2; +c_731866.elements = (object *)alloca(sizeof(object) * 2); +c_731866.elements[0] = ((closureN)self_731307)->elements[0]; +c_731866.elements[1] = ((closureN)self_731307)->elements[6]; + + +closureN_type c_731876; +c_731876.hdr.mark = gc_color_red; + c_731876.hdr.grayed = 0; +c_731876.tag = closureN_tag; + c_731876.fn = (function_type)__lambda_109; +c_731876.num_args = 1; +c_731876.num_elements = 8; +c_731876.elements = (object *)alloca(sizeof(object) * 8); +c_731876.elements[0] = ((closureN)self_731307)->elements[0]; +c_731876.elements[1] = ((closureN)self_731307)->elements[1]; +c_731876.elements[2] = ((closureN)self_731307)->elements[2]; +c_731876.elements[3] = ((closureN)self_731307)->elements[3]; +c_731876.elements[4] = ((closureN)self_731307)->elements[4]; +c_731876.elements[5] = ((closureN)self_731307)->elements[5]; +c_731876.elements[6] = ((closureN)self_731307)->elements[6]; +c_731876.elements[7] = ((closureN)self_731307)->elements[7]; + +return_closcall1(data,(closure)&c_731866, &c_731876);; +} + +static void __lambda_109(void *data, int argc, object self_731308, object r_73528) { + if( (boolean_f != r_73528) ){ + +closureN_type c_731878; +c_731878.hdr.mark = gc_color_red; + c_731878.hdr.grayed = 0; +c_731878.tag = closureN_tag; + c_731878.fn = (function_type)__lambda_96; +c_731878.num_args = 0; +c_731878.num_elements = 5; +c_731878.elements = (object *)alloca(sizeof(object) * 5); +c_731878.elements[0] = ((closureN)self_731308)->elements[1]; +c_731878.elements[1] = ((closureN)self_731308)->elements[3]; +c_731878.elements[2] = ((closureN)self_731308)->elements[5]; +c_731878.elements[3] = ((closureN)self_731308)->elements[6]; +c_731878.elements[4] = ((closureN)self_731308)->elements[7]; + +return_closcall0(data,(closure)&c_731878); +} else { + +closureN_type c_731894; +c_731894.hdr.mark = gc_color_red; + c_731894.hdr.grayed = 0; +c_731894.tag = closureN_tag; + c_731894.fn = (function_type)__lambda_108; +c_731894.num_args = 0; +c_731894.num_elements = 7; +c_731894.elements = (object *)alloca(sizeof(object) * 7); +c_731894.elements[0] = ((closureN)self_731308)->elements[0]; +c_731894.elements[1] = ((closureN)self_731308)->elements[2]; +c_731894.elements[2] = ((closureN)self_731308)->elements[3]; +c_731894.elements[3] = ((closureN)self_731308)->elements[4]; +c_731894.elements[4] = ((closureN)self_731308)->elements[5]; +c_731894.elements[5] = ((closureN)self_731308)->elements[6]; +c_731894.elements[6] = ((closureN)self_731308)->elements[7]; + +return_closcall0(data,(closure)&c_731894);} +; +} + +static void __lambda_108(void *data, int argc, object self_731309) { + +closureN_type c_731896; +c_731896.hdr.mark = gc_color_red; + c_731896.hdr.grayed = 0; +c_731896.tag = closureN_tag; + c_731896.fn = (function_type)__lambda_107; +c_731896.num_args = 1; +c_731896.num_elements = 7; +c_731896.elements = (object *)alloca(sizeof(object) * 7); +c_731896.elements[0] = ((closureN)self_731309)->elements[0]; +c_731896.elements[1] = ((closureN)self_731309)->elements[1]; +c_731896.elements[2] = ((closureN)self_731309)->elements[2]; +c_731896.elements[3] = ((closureN)self_731309)->elements[3]; +c_731896.elements[4] = ((closureN)self_731309)->elements[4]; +c_731896.elements[5] = ((closureN)self_731309)->elements[5]; +c_731896.elements[6] = ((closureN)self_731309)->elements[6]; + +return_closcall1(data,(closure)&c_731896, NULL);; +} + +static void __lambda_107(void *data, int argc, object self_731310, object r_73539) { + +closureN_type c_731898; +c_731898.hdr.mark = gc_color_red; + c_731898.hdr.grayed = 0; +c_731898.tag = closureN_tag; + c_731898.fn = (function_type)__lambda_106; +c_731898.num_args = 1; +c_731898.num_elements = 8; +c_731898.elements = (object *)alloca(sizeof(object) * 8); +c_731898.elements[0] = ((closureN)self_731310)->elements[0]; +c_731898.elements[1] = ((closureN)self_731310)->elements[1]; +c_731898.elements[2] = ((closureN)self_731310)->elements[2]; +c_731898.elements[3] = ((closureN)self_731310)->elements[3]; +c_731898.elements[4] = ((closureN)self_731310)->elements[4]; +c_731898.elements[5] = r_73539; +c_731898.elements[6] = ((closureN)self_731310)->elements[5]; +c_731898.elements[7] = ((closureN)self_731310)->elements[6]; + +return_closcall1(data,(closure)&c_731898, NULL);; +} + +static void __lambda_106(void *data, int argc, object self_731311, object r_73540) { + +closureN_type c_731900; +c_731900.hdr.mark = gc_color_red; + c_731900.hdr.grayed = 0; +c_731900.tag = closureN_tag; + c_731900.fn = (function_type)__lambda_105; +c_731900.num_args = 1; +c_731900.num_elements = 7; +c_731900.elements = (object *)alloca(sizeof(object) * 7); +c_731900.elements[0] = ((closureN)self_731311)->elements[0]; +c_731900.elements[1] = ((closureN)self_731311)->elements[1]; +c_731900.elements[2] = ((closureN)self_731311)->elements[2]; +c_731900.elements[3] = ((closureN)self_731311)->elements[3]; +c_731900.elements[4] = ((closureN)self_731311)->elements[4]; +c_731900.elements[5] = ((closureN)self_731311)->elements[6]; +c_731900.elements[6] = ((closureN)self_731311)->elements[7]; + +return_closcall8(data, __glo_parse_scheme_read, &c_731900, ((closureN)self_731311)->elements[1], ((closureN)self_731311)->elements[5], r_73540, boolean_f, boolean_f, obj_int2obj(0), ((closureN)self_731311)->elements[4]);; +} + +static void __lambda_105(void *data, int argc, object self_731312, object sub_73230) { + +closureN_type c_731902; +c_731902.hdr.mark = gc_color_red; + c_731902.hdr.grayed = 0; +c_731902.tag = closureN_tag; + c_731902.fn = (function_type)__lambda_104; +c_731902.num_args = 1; +c_731902.num_elements = 8; +c_731902.elements = (object *)alloca(sizeof(object) * 8); +c_731902.elements[0] = ((closureN)self_731312)->elements[0]; +c_731902.elements[1] = ((closureN)self_731312)->elements[1]; +c_731902.elements[2] = ((closureN)self_731312)->elements[2]; +c_731902.elements[3] = ((closureN)self_731312)->elements[3]; +c_731902.elements[4] = ((closureN)self_731312)->elements[4]; +c_731902.elements[5] = sub_73230; +c_731902.elements[6] = ((closureN)self_731312)->elements[5]; +c_731902.elements[7] = ((closureN)self_731312)->elements[6]; + +return_closcall1(data,(closure)&c_731902, boolean_f);; +} + +static void __lambda_104(void *data, int argc, object self_731313, object new_91toks_73231) { + +closureN_type c_731904; +c_731904.hdr.mark = gc_color_red; + c_731904.hdr.grayed = 0; +c_731904.tag = closureN_tag; + c_731904.fn = (function_type)__lambda_103; +c_731904.num_args = 1; +c_731904.num_elements = 8; +c_731904.elements = (object *)alloca(sizeof(object) * 8); +c_731904.elements[0] = ((closureN)self_731313)->elements[0]; +c_731904.elements[1] = ((closureN)self_731313)->elements[1]; +c_731904.elements[2] = ((closureN)self_731313)->elements[2]; +c_731904.elements[3] = ((closureN)self_731313)->elements[3]; +c_731904.elements[4] = ((closureN)self_731313)->elements[4]; +c_731904.elements[5] = ((closureN)self_731313)->elements[5]; +c_731904.elements[6] = ((closureN)self_731313)->elements[6]; +c_731904.elements[7] = ((closureN)self_731313)->elements[7]; + + +make_cell(c_731943,new_91toks_73231); +return_closcall1(data,(closure)&c_731904, &c_731943);; +} + +static void __lambda_103(void *data, int argc, object self_731314, object new_91toks_73231) { + +closureN_type c_731906; +c_731906.hdr.mark = gc_color_red; + c_731906.hdr.grayed = 0; +c_731906.tag = closureN_tag; + c_731906.fn = (function_type)__lambda_102; +c_731906.num_args = 1; +c_731906.num_elements = 9; +c_731906.elements = (object *)alloca(sizeof(object) * 9); +c_731906.elements[0] = ((closureN)self_731314)->elements[0]; +c_731906.elements[1] = ((closureN)self_731314)->elements[1]; +c_731906.elements[2] = ((closureN)self_731314)->elements[2]; +c_731906.elements[3] = new_91toks_73231; +c_731906.elements[4] = ((closureN)self_731314)->elements[3]; +c_731906.elements[5] = ((closureN)self_731314)->elements[4]; +c_731906.elements[6] = ((closureN)self_731314)->elements[5]; +c_731906.elements[7] = ((closureN)self_731314)->elements[6]; +c_731906.elements[8] = ((closureN)self_731314)->elements[7]; + +return_closcall1(data,(closure)&c_731906, quote_quote);; +} + +static void __lambda_102(void *data, int argc, object self_731315, object r_73538) { + +closureN_type c_731908; +c_731908.hdr.mark = gc_color_red; + c_731908.hdr.grayed = 0; +c_731908.tag = closureN_tag; + c_731908.fn = (function_type)__lambda_101; +c_731908.num_args = 1; +c_731908.num_elements = 8; +c_731908.elements = (object *)alloca(sizeof(object) * 8); +c_731908.elements[0] = ((closureN)self_731315)->elements[0]; +c_731908.elements[1] = ((closureN)self_731315)->elements[1]; +c_731908.elements[2] = ((closureN)self_731315)->elements[2]; +c_731908.elements[3] = ((closureN)self_731315)->elements[3]; +c_731908.elements[4] = ((closureN)self_731315)->elements[4]; +c_731908.elements[5] = ((closureN)self_731315)->elements[5]; +c_731908.elements[6] = ((closureN)self_731315)->elements[7]; +c_731908.elements[7] = ((closureN)self_731315)->elements[8]; + +return_closcall3(data, __glo__list_scheme_base, &c_731908, r_73538, ((closureN)self_731315)->elements[6]);; +} + +static void __lambda_101(void *data, int argc, object self_731316, object r_73536) { + +closureN_type c_731910; +c_731910.hdr.mark = gc_color_red; + c_731910.hdr.grayed = 0; +c_731910.tag = closureN_tag; + c_731910.fn = (function_type)__lambda_100; +c_731910.num_args = 1; +c_731910.num_elements = 7; +c_731910.elements = (object *)alloca(sizeof(object) * 7); +c_731910.elements[0] = ((closureN)self_731316)->elements[0]; +c_731910.elements[1] = ((closureN)self_731316)->elements[1]; +c_731910.elements[2] = ((closureN)self_731316)->elements[2]; +c_731910.elements[3] = ((closureN)self_731316)->elements[3]; +c_731910.elements[4] = ((closureN)self_731316)->elements[4]; +c_731910.elements[5] = ((closureN)self_731316)->elements[5]; +c_731910.elements[6] = r_73536; + +return_closcall3(data, __glo_get_91toks_scheme_read, &c_731910, ((closureN)self_731316)->elements[6], ((closureN)self_731316)->elements[7]);; +} + +static void __lambda_100(void *data, int argc, object self_731317, object r_73537) { + +closureN_type c_731912; +c_731912.hdr.mark = gc_color_red; + c_731912.hdr.grayed = 0; +c_731912.tag = closureN_tag; + c_731912.fn = (function_type)__lambda_99; +c_731912.num_args = 1; +c_731912.num_elements = 6; +c_731912.elements = (object *)alloca(sizeof(object) * 6); +c_731912.elements[0] = ((closureN)self_731317)->elements[0]; +c_731912.elements[1] = ((closureN)self_731317)->elements[1]; +c_731912.elements[2] = ((closureN)self_731317)->elements[2]; +c_731912.elements[3] = ((closureN)self_731317)->elements[3]; +c_731912.elements[4] = ((closureN)self_731317)->elements[4]; +c_731912.elements[5] = ((closureN)self_731317)->elements[5]; + +return_closcall3(data, __glo_add_91tok_scheme_read, &c_731912, ((closureN)self_731317)->elements[6], r_73537);; +} + +static void __lambda_99(void *data, int argc, object self_731318, object r_73535) { + +closureN_type c_731914; +c_731914.hdr.mark = gc_color_red; + c_731914.hdr.grayed = 0; +c_731914.tag = closureN_tag; + c_731914.fn = (function_type)__lambda_98; +c_731914.num_args = 1; +c_731914.num_elements = 6; +c_731914.elements = (object *)alloca(sizeof(object) * 6); +c_731914.elements[0] = ((closureN)self_731318)->elements[0]; +c_731914.elements[1] = ((closureN)self_731318)->elements[1]; +c_731914.elements[2] = ((closureN)self_731318)->elements[2]; +c_731914.elements[3] = ((closureN)self_731318)->elements[3]; +c_731914.elements[4] = ((closureN)self_731318)->elements[4]; +c_731914.elements[5] = ((closureN)self_731318)->elements[5]; + +return_closcall1(data,(closure)&c_731914, Cyc_set_car(data, ((closureN)self_731318)->elements[3], r_73535));; +} + +static void __lambda_98(void *data, int argc, object self_731319, object r_73533) { + if( (boolean_f != ((closureN)self_731319)->elements[0]) ){ + +closureN_type c_731917; +c_731917.hdr.mark = gc_color_red; + c_731917.hdr.grayed = 0; +c_731917.tag = closureN_tag; + c_731917.fn = (function_type)__lambda_97; +c_731917.num_args = 1; +c_731917.num_elements = 6; +c_731917.elements = (object *)alloca(sizeof(object) * 6); +c_731917.elements[0] = ((closureN)self_731319)->elements[0]; +c_731917.elements[1] = ((closureN)self_731319)->elements[1]; +c_731917.elements[2] = ((closureN)self_731319)->elements[2]; +c_731917.elements[3] = ((closureN)self_731319)->elements[3]; +c_731917.elements[4] = ((closureN)self_731319)->elements[4]; +c_731917.elements[5] = ((closureN)self_731319)->elements[5]; + +return_closcall1(data,(closure)&c_731917, NULL); +} else { + return_closcall1(data, ((closureN)self_731319)->elements[2], car(cell_get(((closureN)self_731319)->elements[3])));} +; +} + +static void __lambda_97(void *data, int argc, object self_731320, object r_73534) { + return_closcall8(data, __glo_parse_scheme_read, ((closureN)self_731320)->elements[2], ((closureN)self_731320)->elements[1], r_73534, cell_get(((closureN)self_731320)->elements[3]), ((closureN)self_731320)->elements[0], boolean_f, ((closureN)self_731320)->elements[4], ((closureN)self_731320)->elements[5]);; +} + +static void __lambda_96(void *data, int argc, object self_731321) { + +closureN_type c_731880; +c_731880.hdr.mark = gc_color_red; + c_731880.hdr.grayed = 0; +c_731880.tag = closureN_tag; + c_731880.fn = (function_type)__lambda_95; +c_731880.num_args = 1; +c_731880.num_elements = 3; +c_731880.elements = (object *)alloca(sizeof(object) * 3); +c_731880.elements[0] = ((closureN)self_731321)->elements[1]; +c_731880.elements[1] = ((closureN)self_731321)->elements[3]; +c_731880.elements[2] = ((closureN)self_731321)->elements[4]; + +return_closcall3(data, __glo_in_91port_117set_91buf_67_scheme_read, &c_731880, ((closureN)self_731321)->elements[2], ((closureN)self_731321)->elements[0]);; +} + +static void __lambda_95(void *data, int argc, object self_731322, object r_73529) { + +closureN_type c_731882; +c_731882.hdr.mark = gc_color_red; + c_731882.hdr.grayed = 0; +c_731882.tag = closureN_tag; + c_731882.fn = (function_type)__lambda_94; +c_731882.num_args = 1; +c_731882.num_elements = 2; +c_731882.elements = (object *)alloca(sizeof(object) * 2); +c_731882.elements[0] = ((closureN)self_731322)->elements[0]; +c_731882.elements[1] = ((closureN)self_731322)->elements[2]; + +return_closcall2(data, __glo__91_125tok_scheme_read, &c_731882, ((closureN)self_731322)->elements[1]);; +} + +static void __lambda_94(void *data, int argc, object self_731323, object r_73531) { + +closureN_type c_731884; +c_731884.hdr.mark = gc_color_red; + c_731884.hdr.grayed = 0; +c_731884.tag = closureN_tag; + c_731884.fn = (function_type)__lambda_93; +c_731884.num_args = 1; +c_731884.num_elements = 1; +c_731884.elements = (object *)alloca(sizeof(object) * 1); +c_731884.elements[0] = ((closureN)self_731323)->elements[0]; + +return_closcall3(data, __glo_add_91tok_scheme_read, &c_731884, r_73531, ((closureN)self_731323)->elements[1]);; +} + +static void __lambda_93(void *data, int argc, object self_731324, object r_73530) { + return_closcall1(data, ((closureN)self_731324)->elements[0], car(r_73530));; +} + +static void __lambda_92(void *data, int argc, object self_731325, object k_73541) { + if( (boolean_f != ((closureN)self_731325)->elements[0]) ){ + return_closcall1(data, k_73541, boolean_f); +} else { + +closureN_type c_731870; +c_731870.hdr.mark = gc_color_red; + c_731870.hdr.grayed = 0; +c_731870.tag = closureN_tag; + c_731870.fn = (function_type)__lambda_91; +c_731870.num_args = 1; +c_731870.num_elements = 1; +c_731870.elements = (object *)alloca(sizeof(object) * 1); +c_731870.elements[0] = k_73541; + +return_closcall1(data,(closure)&c_731870, Cyc_is_null(((closureN)self_731325)->elements[1]));} +; +} + +static void __lambda_91(void *data, int argc, object self_731326, object r_73542) { + return_closcall2(data, __glo_not_scheme_base, ((closureN)self_731326)->elements[0], r_73542);; +} + +static void __lambda_90(void *data, int argc, object self_731327) { + return_closcall9(data, __glo_parse_95tok_scheme_read, ((closureN)self_731327)->elements[3], ((closureN)self_731327)->elements[2], ((closureN)self_731327)->elements[6], ((closureN)self_731327)->elements[7], ((closureN)self_731327)->elements[0], boolean_t, ((closureN)self_731327)->elements[4], ((closureN)self_731327)->elements[5], ((closureN)self_731327)->elements[1]);; +} + +static void __lambda_89(void *data, int argc, object self_731328) { + +closureN_type c_731806; +c_731806.hdr.mark = gc_color_red; + c_731806.hdr.grayed = 0; +c_731806.tag = closureN_tag; + c_731806.fn = (function_type)__lambda_84; +c_731806.num_args = 0; +c_731806.num_elements = 2; +c_731806.elements = (object *)alloca(sizeof(object) * 2); +c_731806.elements[0] = ((closureN)self_731328)->elements[1]; +c_731806.elements[1] = ((closureN)self_731328)->elements[5]; + + +closureN_type c_731825; +c_731825.hdr.mark = gc_color_red; + c_731825.hdr.grayed = 0; +c_731825.tag = closureN_tag; + c_731825.fn = (function_type)__lambda_88; +c_731825.num_args = 1; +c_731825.num_elements = 8; +c_731825.elements = (object *)alloca(sizeof(object) * 8); +c_731825.elements[0] = ((closureN)self_731328)->elements[0]; +c_731825.elements[1] = ((closureN)self_731328)->elements[1]; +c_731825.elements[2] = ((closureN)self_731328)->elements[2]; +c_731825.elements[3] = ((closureN)self_731328)->elements[3]; +c_731825.elements[4] = ((closureN)self_731328)->elements[4]; +c_731825.elements[5] = ((closureN)self_731328)->elements[5]; +c_731825.elements[6] = ((closureN)self_731328)->elements[6]; +c_731825.elements[7] = ((closureN)self_731328)->elements[7]; + +return_closcall1(data,(closure)&c_731806, &c_731825);; +} + +static void __lambda_88(void *data, int argc, object self_731329, object r_73518) { + +closureN_type c_731827; +c_731827.hdr.mark = gc_color_red; + c_731827.hdr.grayed = 0; +c_731827.tag = closureN_tag; + c_731827.fn = (function_type)__lambda_86; +c_731827.num_args = 0; +c_731827.num_elements = 2; +c_731827.elements = (object *)alloca(sizeof(object) * 2); +c_731827.elements[0] = ((closureN)self_731329)->elements[1]; +c_731827.elements[1] = ((closureN)self_731329)->elements[5]; + + +closureN_type c_731838; +c_731838.hdr.mark = gc_color_red; + c_731838.hdr.grayed = 0; +c_731838.tag = closureN_tag; + c_731838.fn = (function_type)__lambda_87; +c_731838.num_args = 1; +c_731838.num_elements = 8; +c_731838.elements = (object *)alloca(sizeof(object) * 8); +c_731838.elements[0] = ((closureN)self_731329)->elements[0]; +c_731838.elements[1] = ((closureN)self_731329)->elements[1]; +c_731838.elements[2] = ((closureN)self_731329)->elements[2]; +c_731838.elements[3] = ((closureN)self_731329)->elements[3]; +c_731838.elements[4] = ((closureN)self_731329)->elements[4]; +c_731838.elements[5] = ((closureN)self_731329)->elements[5]; +c_731838.elements[6] = ((closureN)self_731329)->elements[6]; +c_731838.elements[7] = ((closureN)self_731329)->elements[7]; + +return_closcall1(data,(closure)&c_731827, &c_731838);; +} + +static void __lambda_87(void *data, int argc, object self_731330, object r_73519) { + return_closcall9(data, __glo_parse_95tok_scheme_read, ((closureN)self_731330)->elements[3], ((closureN)self_731330)->elements[2], ((closureN)self_731330)->elements[6], ((closureN)self_731330)->elements[7], ((closureN)self_731330)->elements[0], boolean_f, ((closureN)self_731330)->elements[4], ((closureN)self_731330)->elements[5], ((closureN)self_731330)->elements[1]);; +} + +static void __lambda_86(void *data, int argc, object self_731331, object k_73520) { + +closureN_type c_731829; +c_731829.hdr.mark = gc_color_red; + c_731829.hdr.grayed = 0; +c_731829.tag = closureN_tag; + c_731829.fn = (function_type)__lambda_85; +c_731829.num_args = 1; +c_731829.num_elements = 2; +c_731829.elements = (object *)alloca(sizeof(object) * 2); +c_731829.elements[0] = k_73520; +c_731829.elements[1] = ((closureN)self_731331)->elements[1]; + +return_closcall1(data,(closure)&c_731829, equalp(((closureN)self_731331)->elements[0], obj_char2obj(10)));; +} + +static void __lambda_85(void *data, int argc, object self_731332, object r_73521) { + if( (boolean_f != r_73521) ){ + return_closcall3(data, __glo_in_91port_117set_91cnum_67_scheme_read, ((closureN)self_731332)->elements[0], ((closureN)self_731332)->elements[1], obj_int2obj(0)); +} else { + return_closcall1(data, ((closureN)self_731332)->elements[0], boolean_f);} +; +} + +static void __lambda_84(void *data, int argc, object self_731333, object k_73522) { + +closureN_type c_731808; +c_731808.hdr.mark = gc_color_red; + c_731808.hdr.grayed = 0; +c_731808.tag = closureN_tag; + c_731808.fn = (function_type)__lambda_83; +c_731808.num_args = 1; +c_731808.num_elements = 2; +c_731808.elements = (object *)alloca(sizeof(object) * 2); +c_731808.elements[0] = k_73522; +c_731808.elements[1] = ((closureN)self_731333)->elements[1]; + +return_closcall1(data,(closure)&c_731808, equalp(((closureN)self_731333)->elements[0], obj_char2obj(10)));; +} + +static void __lambda_83(void *data, int argc, object self_731334, object r_73523) { + if( (boolean_f != r_73523) ){ + +closureN_type c_731810; +c_731810.hdr.mark = gc_color_red; + c_731810.hdr.grayed = 0; +c_731810.tag = closureN_tag; + c_731810.fn = (function_type)__lambda_82; +c_731810.num_args = 1; +c_731810.num_elements = 2; +c_731810.elements = (object *)alloca(sizeof(object) * 2); +c_731810.elements[0] = ((closureN)self_731334)->elements[0]; +c_731810.elements[1] = ((closureN)self_731334)->elements[1]; + +return_closcall2(data, __glo_in_91port_117get_91lnum_scheme_read, &c_731810, ((closureN)self_731334)->elements[1]); +} else { + return_closcall1(data, ((closureN)self_731334)->elements[0], boolean_f);} +; +} + +static void __lambda_82(void *data, int argc, object self_731335, object r_73525) { + +closureN_type c_731812; +c_731812.hdr.mark = gc_color_red; + c_731812.hdr.grayed = 0; +c_731812.tag = closureN_tag; + c_731812.fn = (function_type)__lambda_81; +c_731812.num_args = 1; +c_731812.num_elements = 2; +c_731812.elements = (object *)alloca(sizeof(object) * 2); +c_731812.elements[0] = ((closureN)self_731335)->elements[0]; +c_731812.elements[1] = ((closureN)self_731335)->elements[1]; + + +object c_731818 = Cyc_sum(data,(closure)&c_731812,2,obj_int2obj(1), r_73525); +return_closcall1(data,(closure)&c_731812, c_731818);; +} + +static void __lambda_81(void *data, int argc, object self_731336, object r_73524) { + return_closcall3(data, __glo_in_91port_117set_91lnum_67_scheme_read, ((closureN)self_731336)->elements[0], ((closureN)self_731336)->elements[1], r_73524);; +} + +static void __lambda_80(void *data, int argc, object self_731337) { + +closureN_type c_731763; +c_731763.hdr.mark = gc_color_red; + c_731763.hdr.grayed = 0; +c_731763.tag = closureN_tag; + c_731763.fn = (function_type)__lambda_79; +c_731763.num_args = 1; +c_731763.num_elements = 6; +c_731763.elements = (object *)alloca(sizeof(object) * 6); +c_731763.elements[0] = ((closureN)self_731337)->elements[0]; +c_731763.elements[1] = ((closureN)self_731337)->elements[2]; +c_731763.elements[2] = ((closureN)self_731337)->elements[3]; +c_731763.elements[3] = ((closureN)self_731337)->elements[4]; +c_731763.elements[4] = ((closureN)self_731337)->elements[5]; +c_731763.elements[5] = ((closureN)self_731337)->elements[6]; + +return_closcall1(data,(closure)&c_731763, Cyc_eq(((closureN)self_731337)->elements[1], obj_char2obj(10)));; +} + +static void __lambda_79(void *data, int argc, object self_731338, object r_73510) { + if( (boolean_f != r_73510) ){ + +closureN_type c_731765; +c_731765.hdr.mark = gc_color_red; + c_731765.hdr.grayed = 0; +c_731765.tag = closureN_tag; + c_731765.fn = (function_type)__lambda_77; +c_731765.num_args = 0; +c_731765.num_elements = 6; +c_731765.elements = (object *)alloca(sizeof(object) * 6); +c_731765.elements[0] = ((closureN)self_731338)->elements[0]; +c_731765.elements[1] = ((closureN)self_731338)->elements[1]; +c_731765.elements[2] = ((closureN)self_731338)->elements[2]; +c_731765.elements[3] = ((closureN)self_731338)->elements[3]; +c_731765.elements[4] = ((closureN)self_731338)->elements[4]; +c_731765.elements[5] = ((closureN)self_731338)->elements[5]; + +return_closcall0(data,(closure)&c_731765); +} else { + +closureN_type c_731790; +c_731790.hdr.mark = gc_color_red; + c_731790.hdr.grayed = 0; +c_731790.tag = closureN_tag; + c_731790.fn = (function_type)__lambda_78; +c_731790.num_args = 1; +c_731790.num_elements = 6; +c_731790.elements = (object *)alloca(sizeof(object) * 6); +c_731790.elements[0] = ((closureN)self_731338)->elements[0]; +c_731790.elements[1] = ((closureN)self_731338)->elements[1]; +c_731790.elements[2] = ((closureN)self_731338)->elements[2]; +c_731790.elements[3] = ((closureN)self_731338)->elements[3]; +c_731790.elements[4] = ((closureN)self_731338)->elements[4]; +c_731790.elements[5] = ((closureN)self_731338)->elements[5]; + +return_closcall1(data,(closure)&c_731790, NULL);} +; +} + +static void __lambda_78(void *data, int argc, object self_731339, object r_73516) { + return_closcall8(data, __glo_parse_scheme_read, ((closureN)self_731339)->elements[2], ((closureN)self_731339)->elements[1], r_73516, ((closureN)self_731339)->elements[5], ((closureN)self_731339)->elements[0], boolean_t, ((closureN)self_731339)->elements[3], ((closureN)self_731339)->elements[4]);; +} + +static void __lambda_77(void *data, int argc, object self_731340) { + +closureN_type c_731767; +c_731767.hdr.mark = gc_color_red; + c_731767.hdr.grayed = 0; +c_731767.tag = closureN_tag; + c_731767.fn = (function_type)__lambda_76; +c_731767.num_args = 1; +c_731767.num_elements = 6; +c_731767.elements = (object *)alloca(sizeof(object) * 6); +c_731767.elements[0] = ((closureN)self_731340)->elements[0]; +c_731767.elements[1] = ((closureN)self_731340)->elements[1]; +c_731767.elements[2] = ((closureN)self_731340)->elements[2]; +c_731767.elements[3] = ((closureN)self_731340)->elements[3]; +c_731767.elements[4] = ((closureN)self_731340)->elements[4]; +c_731767.elements[5] = ((closureN)self_731340)->elements[5]; + +return_closcall2(data, __glo_in_91port_117get_91lnum_scheme_read, &c_731767, ((closureN)self_731340)->elements[4]);; +} + +static void __lambda_76(void *data, int argc, object self_731341, object r_73515) { + +closureN_type c_731769; +c_731769.hdr.mark = gc_color_red; + c_731769.hdr.grayed = 0; +c_731769.tag = closureN_tag; + c_731769.fn = (function_type)__lambda_75; +c_731769.num_args = 1; +c_731769.num_elements = 6; +c_731769.elements = (object *)alloca(sizeof(object) * 6); +c_731769.elements[0] = ((closureN)self_731341)->elements[0]; +c_731769.elements[1] = ((closureN)self_731341)->elements[1]; +c_731769.elements[2] = ((closureN)self_731341)->elements[2]; +c_731769.elements[3] = ((closureN)self_731341)->elements[3]; +c_731769.elements[4] = ((closureN)self_731341)->elements[4]; +c_731769.elements[5] = ((closureN)self_731341)->elements[5]; + + +object c_731787 = Cyc_sum(data,(closure)&c_731769,2,obj_int2obj(1), r_73515); +return_closcall1(data,(closure)&c_731769, c_731787);; +} + +static void __lambda_75(void *data, int argc, object self_731342, object r_73514) { + +closureN_type c_731771; +c_731771.hdr.mark = gc_color_red; + c_731771.hdr.grayed = 0; +c_731771.tag = closureN_tag; + c_731771.fn = (function_type)__lambda_74; +c_731771.num_args = 1; +c_731771.num_elements = 6; +c_731771.elements = (object *)alloca(sizeof(object) * 6); +c_731771.elements[0] = ((closureN)self_731342)->elements[0]; +c_731771.elements[1] = ((closureN)self_731342)->elements[1]; +c_731771.elements[2] = ((closureN)self_731342)->elements[2]; +c_731771.elements[3] = ((closureN)self_731342)->elements[3]; +c_731771.elements[4] = ((closureN)self_731342)->elements[4]; +c_731771.elements[5] = ((closureN)self_731342)->elements[5]; + +return_closcall3(data, __glo_in_91port_117set_91lnum_67_scheme_read, &c_731771, ((closureN)self_731342)->elements[4], r_73514);; +} + +static void __lambda_74(void *data, int argc, object self_731343, object r_73511) { + +closureN_type c_731773; +c_731773.hdr.mark = gc_color_red; + c_731773.hdr.grayed = 0; +c_731773.tag = closureN_tag; + c_731773.fn = (function_type)__lambda_73; +c_731773.num_args = 1; +c_731773.num_elements = 6; +c_731773.elements = (object *)alloca(sizeof(object) * 6); +c_731773.elements[0] = ((closureN)self_731343)->elements[0]; +c_731773.elements[1] = ((closureN)self_731343)->elements[1]; +c_731773.elements[2] = ((closureN)self_731343)->elements[2]; +c_731773.elements[3] = ((closureN)self_731343)->elements[3]; +c_731773.elements[4] = ((closureN)self_731343)->elements[4]; +c_731773.elements[5] = ((closureN)self_731343)->elements[5]; + +return_closcall3(data, __glo_in_91port_117set_91cnum_67_scheme_read, &c_731773, ((closureN)self_731343)->elements[4], obj_int2obj(0));; +} + +static void __lambda_73(void *data, int argc, object self_731344, object r_73512) { + +closureN_type c_731775; +c_731775.hdr.mark = gc_color_red; + c_731775.hdr.grayed = 0; +c_731775.tag = closureN_tag; + c_731775.fn = (function_type)__lambda_72; +c_731775.num_args = 1; +c_731775.num_elements = 6; +c_731775.elements = (object *)alloca(sizeof(object) * 6); +c_731775.elements[0] = ((closureN)self_731344)->elements[0]; +c_731775.elements[1] = ((closureN)self_731344)->elements[1]; +c_731775.elements[2] = ((closureN)self_731344)->elements[2]; +c_731775.elements[3] = ((closureN)self_731344)->elements[3]; +c_731775.elements[4] = ((closureN)self_731344)->elements[4]; +c_731775.elements[5] = ((closureN)self_731344)->elements[5]; + +return_closcall1(data,(closure)&c_731775, NULL);; +} + +static void __lambda_72(void *data, int argc, object self_731345, object r_73513) { + return_closcall8(data, __glo_parse_scheme_read, ((closureN)self_731345)->elements[2], ((closureN)self_731345)->elements[1], r_73513, ((closureN)self_731345)->elements[5], ((closureN)self_731345)->elements[0], boolean_f, ((closureN)self_731345)->elements[3], ((closureN)self_731345)->elements[4]);; +} + +static void __lambda_71(void *data, int argc, object self_731346) { + +closureN_type c_731711; +c_731711.hdr.mark = gc_color_red; + c_731711.hdr.grayed = 0; +c_731711.tag = closureN_tag; + c_731711.fn = (function_type)__lambda_65; +c_731711.num_args = 0; +c_731711.num_elements = 2; +c_731711.elements = (object *)alloca(sizeof(object) * 2); +c_731711.elements[0] = ((closureN)self_731346)->elements[3]; +c_731711.elements[1] = ((closureN)self_731346)->elements[4]; + + +closureN_type c_731730; +c_731730.hdr.mark = gc_color_red; + c_731730.hdr.grayed = 0; +c_731730.tag = closureN_tag; + c_731730.fn = (function_type)__lambda_70; +c_731730.num_args = 1; +c_731730.num_elements = 5; +c_731730.elements = (object *)alloca(sizeof(object) * 5); +c_731730.elements[0] = ((closureN)self_731346)->elements[0]; +c_731730.elements[1] = ((closureN)self_731346)->elements[1]; +c_731730.elements[2] = ((closureN)self_731346)->elements[2]; +c_731730.elements[3] = ((closureN)self_731346)->elements[5]; +c_731730.elements[4] = ((closureN)self_731346)->elements[6]; + +return_closcall1(data,(closure)&c_731711, &c_731730);; +} + +static void __lambda_70(void *data, int argc, object self_731347, object r_73501) { + if( (boolean_f != ((closureN)self_731347)->elements[0]) ){ + +closureN_type c_731733; +c_731733.hdr.mark = gc_color_red; + c_731733.hdr.grayed = 0; +c_731733.tag = closureN_tag; + c_731733.fn = (function_type)__lambda_66; +c_731733.num_args = 1; +c_731733.num_elements = 1; +c_731733.elements = (object *)alloca(sizeof(object) * 1); +c_731733.elements[0] = ((closureN)self_731347)->elements[2]; + +return_closcall3(data, __glo_get_91toks_scheme_read, &c_731733, ((closureN)self_731347)->elements[3], ((closureN)self_731347)->elements[4]); +} else { + +closureN_type c_731739; +c_731739.hdr.mark = gc_color_red; + c_731739.hdr.grayed = 0; +c_731739.tag = closureN_tag; + c_731739.fn = (function_type)__lambda_69; +c_731739.num_args = 1; +c_731739.num_elements = 2; +c_731739.elements = (object *)alloca(sizeof(object) * 2); +c_731739.elements[0] = ((closureN)self_731347)->elements[1]; +c_731739.elements[1] = ((closureN)self_731347)->elements[2]; + +return_closcall3(data, __glo_get_91toks_scheme_read, &c_731739, ((closureN)self_731347)->elements[3], ((closureN)self_731347)->elements[4]);} +; +} + +static void __lambda_69(void *data, int argc, object self_731348, object last_73232) { + +closureN_type c_731741; +c_731741.hdr.mark = gc_color_red; + c_731741.hdr.grayed = 0; +c_731741.tag = closureN_tag; + c_731741.fn = (function_type)__lambda_68; +c_731741.num_args = 1; +c_731741.num_elements = 3; +c_731741.elements = (object *)alloca(sizeof(object) * 3); +c_731741.elements[0] = ((closureN)self_731348)->elements[0]; +c_731741.elements[1] = ((closureN)self_731348)->elements[1]; +c_731741.elements[2] = last_73232; + +return_closcall1(data,(closure)&c_731741, Cyc_length(data, last_73232));; +} + +static void __lambda_68(void *data, int argc, object self_731349, object r_73505) { + +closureN_type c_731743; +c_731743.hdr.mark = gc_color_red; + c_731743.hdr.grayed = 0; +c_731743.tag = closureN_tag; + c_731743.fn = (function_type)__lambda_67; +c_731743.num_args = 1; +c_731743.num_elements = 3; +c_731743.elements = (object *)alloca(sizeof(object) * 3); +c_731743.elements[0] = ((closureN)self_731349)->elements[0]; +c_731743.elements[1] = ((closureN)self_731349)->elements[1]; +c_731743.elements[2] = ((closureN)self_731349)->elements[2]; + + +object c_731754 = Cyc_num_gt(data,(closure)&c_731743,2,r_73505, obj_int2obj(0)); +return_closcall1(data,(closure)&c_731743, c_731754);; +} + +static void __lambda_67(void *data, int argc, object self_731350, object r_73504) { + if( (boolean_f != r_73504) ){ + return_closcall1(data, ((closureN)self_731350)->elements[1], car(((closureN)self_731350)->elements[2])); +} else { + return_closcall1(data, ((closureN)self_731350)->elements[1], ((closureN)self_731350)->elements[0]);} +; +} + +static void __lambda_66(void *data, int argc, object self_731351, object r_73502) { + return_closcall2(data, __glo_reverse_scheme_base, ((closureN)self_731351)->elements[0], r_73502);; +} + +static void __lambda_65(void *data, int argc, object self_731352, object k_73506) { + +closureN_type c_731713; +c_731713.hdr.mark = gc_color_red; + c_731713.hdr.grayed = 0; +c_731713.tag = closureN_tag; + c_731713.fn = (function_type)__lambda_64; +c_731713.num_args = 1; +c_731713.num_elements = 2; +c_731713.elements = (object *)alloca(sizeof(object) * 2); +c_731713.elements[0] = k_73506; +c_731713.elements[1] = ((closureN)self_731352)->elements[1]; + + +object c_731728 = Cyc_num_gt(data,(closure)&c_731713,2,((closureN)self_731352)->elements[0], obj_int2obj(0)); +return_closcall1(data,(closure)&c_731713, c_731728);; +} + +static void __lambda_64(void *data, int argc, object self_731353, object r_73507) { + if( (boolean_f != r_73507) ){ + +closureN_type c_731715; +c_731715.hdr.mark = gc_color_red; + c_731715.hdr.grayed = 0; +c_731715.tag = closureN_tag; + c_731715.fn = (function_type)__lambda_63; +c_731715.num_args = 1; +c_731715.num_elements = 2; +c_731715.elements = (object *)alloca(sizeof(object) * 2); +c_731715.elements[0] = ((closureN)self_731353)->elements[0]; +c_731715.elements[1] = ((closureN)self_731353)->elements[1]; + +return_closcall2(data, __glo_in_91port_117get_91lnum_scheme_read, &c_731715, ((closureN)self_731353)->elements[1]); +} else { + return_closcall1(data, ((closureN)self_731353)->elements[0], boolean_f);} +; +} + +static void __lambda_63(void *data, int argc, object self_731354, object r_73508) { + +closureN_type c_731717; +c_731717.hdr.mark = gc_color_red; + c_731717.hdr.grayed = 0; +c_731717.tag = closureN_tag; + c_731717.fn = (function_type)__lambda_62; +c_731717.num_args = 1; +c_731717.num_elements = 2; +c_731717.elements = (object *)alloca(sizeof(object) * 2); +c_731717.elements[0] = ((closureN)self_731354)->elements[0]; +c_731717.elements[1] = r_73508; + +return_closcall2(data, __glo_in_91port_117get_91cnum_scheme_read, &c_731717, ((closureN)self_731354)->elements[1]);; +} + +static void __lambda_62(void *data, int argc, object self_731355, object r_73509) { + +make_string(c_731720, "missing closing parenthesis"); +return_closcall4(data, __glo_parse_91error_scheme_read, ((closureN)self_731355)->elements[0], &c_731720, ((closureN)self_731355)->elements[1], r_73509);; +} + +static void __lambda_61(void *data, int argc, object self_731356, object k_73733) { + +closureN_type c_731694; +c_731694.hdr.mark = gc_color_red; + c_731694.hdr.grayed = 0; +c_731694.tag = closureN_tag; + c_731694.fn = (function_type)__lambda_60; +c_731694.num_args = 1; +c_731694.num_elements = 3; +c_731694.elements = (object *)alloca(sizeof(object) * 3); +c_731694.elements[0] = ((closureN)self_731356)->elements[0]; +c_731694.elements[1] = k_73733; +c_731694.elements[2] = ((closureN)self_731356)->elements[1]; + +return_closcall2(data, __glo_in_91port_117get_91buf_scheme_read, &c_731694, ((closureN)self_731356)->elements[1]);; +} + +static void __lambda_60(void *data, int argc, object self_731357, object r_73734) { + if( (boolean_f != r_73734) ){ + return_closcall2(data, __glo_in_91port_117read_91buf_67_scheme_read, ((closureN)self_731357)->elements[1], ((closureN)self_731357)->elements[2]); +} else { + +object c_731702 = Cyc_io_read_char(data, ((closureN)self_731357)->elements[1],((closureN)self_731357)->elements[0]); +return_closcall1(data, ((closureN)self_731357)->elements[1], c_731702);} +; +} + +static void __lambda_59(void *data, int argc, closure _,object k_73739, object fp_73240, object tok_73239, object toks_73238, object all_127_73237, object comment_127_73236, object parens_73235, object ptbl_73234, object curr_91char_73233) { + Cyc_st_add(data, "scheme/read.sld:parse/tok"); + +closureN_type c_731632; +c_731632.hdr.mark = gc_color_red; + c_731632.hdr.grayed = 0; +c_731632.tag = closureN_tag; + c_731632.fn = (function_type)__lambda_58; +c_731632.num_args = 1; +c_731632.num_elements = 9; +c_731632.elements = (object *)alloca(sizeof(object) * 9); +c_731632.elements[0] = all_127_73237; +c_731632.elements[1] = comment_127_73236; +c_731632.elements[2] = curr_91char_73233; +c_731632.elements[3] = fp_73240; +c_731632.elements[4] = k_73739; +c_731632.elements[5] = parens_73235; +c_731632.elements[6] = ptbl_73234; +c_731632.elements[7] = tok_73239; +c_731632.elements[8] = toks_73238; + +return_closcall1(data,(closure)&c_731632, Cyc_is_null(tok_73239));; +} + +static void __lambda_58(void *data, int argc, object self_731358, object r_73740) { + if( (boolean_f != r_73740) ){ + +closureN_type c_731634; +c_731634.hdr.mark = gc_color_red; + c_731634.hdr.grayed = 0; +c_731634.tag = closureN_tag; + c_731634.fn = (function_type)__lambda_49; +c_731634.num_args = 0; +c_731634.num_elements = 7; +c_731634.elements = (object *)alloca(sizeof(object) * 7); +c_731634.elements[0] = ((closureN)self_731358)->elements[0]; +c_731634.elements[1] = ((closureN)self_731358)->elements[1]; +c_731634.elements[2] = ((closureN)self_731358)->elements[3]; +c_731634.elements[3] = ((closureN)self_731358)->elements[4]; +c_731634.elements[4] = ((closureN)self_731358)->elements[5]; +c_731634.elements[5] = ((closureN)self_731358)->elements[6]; +c_731634.elements[6] = ((closureN)self_731358)->elements[8]; + +return_closcall0(data,(closure)&c_731634); +} else { + if( (boolean_f != ((closureN)self_731358)->elements[0]) ){ + +closureN_type c_731647; +c_731647.hdr.mark = gc_color_red; + c_731647.hdr.grayed = 0; +c_731647.tag = closureN_tag; + c_731647.fn = (function_type)__lambda_53; +c_731647.num_args = 0; +c_731647.num_elements = 8; +c_731647.elements = (object *)alloca(sizeof(object) * 8); +c_731647.elements[0] = ((closureN)self_731358)->elements[0]; +c_731647.elements[1] = ((closureN)self_731358)->elements[1]; +c_731647.elements[2] = ((closureN)self_731358)->elements[3]; +c_731647.elements[3] = ((closureN)self_731358)->elements[4]; +c_731647.elements[4] = ((closureN)self_731358)->elements[5]; +c_731647.elements[5] = ((closureN)self_731358)->elements[6]; +c_731647.elements[6] = ((closureN)self_731358)->elements[7]; +c_731647.elements[7] = ((closureN)self_731358)->elements[8]; + +return_closcall0(data,(closure)&c_731647); +} else { + +closureN_type c_731665; +c_731665.hdr.mark = gc_color_red; + c_731665.hdr.grayed = 0; +c_731665.tag = closureN_tag; + c_731665.fn = (function_type)__lambda_57; +c_731665.num_args = 0; +c_731665.num_elements = 5; +c_731665.elements = (object *)alloca(sizeof(object) * 5); +c_731665.elements[0] = ((closureN)self_731358)->elements[2]; +c_731665.elements[1] = ((closureN)self_731358)->elements[4]; +c_731665.elements[2] = ((closureN)self_731358)->elements[6]; +c_731665.elements[3] = ((closureN)self_731358)->elements[7]; +c_731665.elements[4] = ((closureN)self_731358)->elements[8]; + +return_closcall0(data,(closure)&c_731665);} +} +; +} + +static void __lambda_57(void *data, int argc, object self_731359) { + +closureN_type c_731667; +c_731667.hdr.mark = gc_color_red; + c_731667.hdr.grayed = 0; +c_731667.tag = closureN_tag; + c_731667.fn = (function_type)__lambda_56; +c_731667.num_args = 1; +c_731667.num_elements = 3; +c_731667.elements = (object *)alloca(sizeof(object) * 3); +c_731667.elements[0] = ((closureN)self_731359)->elements[1]; +c_731667.elements[1] = ((closureN)self_731359)->elements[3]; +c_731667.elements[2] = ((closureN)self_731359)->elements[4]; + +return_closcall3(data, __glo_in_91port_117set_91buf_67_scheme_read, &c_731667, ((closureN)self_731359)->elements[2], ((closureN)self_731359)->elements[0]);; +} + +static void __lambda_56(void *data, int argc, object self_731360, object r_73745) { + +closureN_type c_731669; +c_731669.hdr.mark = gc_color_red; + c_731669.hdr.grayed = 0; +c_731669.tag = closureN_tag; + c_731669.fn = (function_type)__lambda_55; +c_731669.num_args = 1; +c_731669.num_elements = 2; +c_731669.elements = (object *)alloca(sizeof(object) * 2); +c_731669.elements[0] = ((closureN)self_731360)->elements[0]; +c_731669.elements[1] = ((closureN)self_731360)->elements[2]; + +return_closcall2(data, __glo__91_125tok_scheme_read, &c_731669, ((closureN)self_731360)->elements[1]);; +} + +static void __lambda_55(void *data, int argc, object self_731361, object r_73747) { + +closureN_type c_731671; +c_731671.hdr.mark = gc_color_red; + c_731671.hdr.grayed = 0; +c_731671.tag = closureN_tag; + c_731671.fn = (function_type)__lambda_54; +c_731671.num_args = 1; +c_731671.num_elements = 1; +c_731671.elements = (object *)alloca(sizeof(object) * 1); +c_731671.elements[0] = ((closureN)self_731361)->elements[0]; + +return_closcall3(data, __glo_add_91tok_scheme_read, &c_731671, r_73747, ((closureN)self_731361)->elements[1]);; +} + +static void __lambda_54(void *data, int argc, object self_731362, object r_73746) { + return_closcall1(data, ((closureN)self_731362)->elements[0], car(r_73746));; +} + +static void __lambda_53(void *data, int argc, object self_731363) { + +closureN_type c_731649; +c_731649.hdr.mark = gc_color_red; + c_731649.hdr.grayed = 0; +c_731649.tag = closureN_tag; + c_731649.fn = (function_type)__lambda_52; +c_731649.num_args = 1; +c_731649.num_elements = 8; +c_731649.elements = (object *)alloca(sizeof(object) * 8); +c_731649.elements[0] = ((closureN)self_731363)->elements[0]; +c_731649.elements[1] = ((closureN)self_731363)->elements[1]; +c_731649.elements[2] = ((closureN)self_731363)->elements[2]; +c_731649.elements[3] = ((closureN)self_731363)->elements[3]; +c_731649.elements[4] = ((closureN)self_731363)->elements[4]; +c_731649.elements[5] = ((closureN)self_731363)->elements[5]; +c_731649.elements[6] = ((closureN)self_731363)->elements[6]; +c_731649.elements[7] = ((closureN)self_731363)->elements[7]; + +return_closcall1(data,(closure)&c_731649, NULL);; +} + +static void __lambda_52(void *data, int argc, object self_731364, object r_73742) { + +closureN_type c_731651; +c_731651.hdr.mark = gc_color_red; + c_731651.hdr.grayed = 0; +c_731651.tag = closureN_tag; + c_731651.fn = (function_type)__lambda_51; +c_731651.num_args = 1; +c_731651.num_elements = 8; +c_731651.elements = (object *)alloca(sizeof(object) * 8); +c_731651.elements[0] = ((closureN)self_731364)->elements[0]; +c_731651.elements[1] = ((closureN)self_731364)->elements[1]; +c_731651.elements[2] = ((closureN)self_731364)->elements[2]; +c_731651.elements[3] = ((closureN)self_731364)->elements[3]; +c_731651.elements[4] = ((closureN)self_731364)->elements[4]; +c_731651.elements[5] = ((closureN)self_731364)->elements[5]; +c_731651.elements[6] = r_73742; +c_731651.elements[7] = ((closureN)self_731364)->elements[7]; + +return_closcall2(data, __glo__91_125tok_scheme_read, &c_731651, ((closureN)self_731364)->elements[6]);; +} + +static void __lambda_51(void *data, int argc, object self_731365, object r_73744) { + +closureN_type c_731653; +c_731653.hdr.mark = gc_color_red; + c_731653.hdr.grayed = 0; +c_731653.tag = closureN_tag; + c_731653.fn = (function_type)__lambda_50; +c_731653.num_args = 1; +c_731653.num_elements = 7; +c_731653.elements = (object *)alloca(sizeof(object) * 7); +c_731653.elements[0] = ((closureN)self_731365)->elements[0]; +c_731653.elements[1] = ((closureN)self_731365)->elements[1]; +c_731653.elements[2] = ((closureN)self_731365)->elements[2]; +c_731653.elements[3] = ((closureN)self_731365)->elements[3]; +c_731653.elements[4] = ((closureN)self_731365)->elements[4]; +c_731653.elements[5] = ((closureN)self_731365)->elements[5]; +c_731653.elements[6] = ((closureN)self_731365)->elements[6]; + +return_closcall3(data, __glo_add_91tok_scheme_read, &c_731653, r_73744, ((closureN)self_731365)->elements[7]);; +} + +static void __lambda_50(void *data, int argc, object self_731366, object r_73743) { + return_closcall8(data, __glo_parse_scheme_read, ((closureN)self_731366)->elements[3], ((closureN)self_731366)->elements[2], ((closureN)self_731366)->elements[6], r_73743, ((closureN)self_731366)->elements[0], ((closureN)self_731366)->elements[1], ((closureN)self_731366)->elements[4], ((closureN)self_731366)->elements[5]);; +} + +static void __lambda_49(void *data, int argc, object self_731367) { + +closureN_type c_731636; +c_731636.hdr.mark = gc_color_red; + c_731636.hdr.grayed = 0; +c_731636.tag = closureN_tag; + c_731636.fn = (function_type)__lambda_48; +c_731636.num_args = 1; +c_731636.num_elements = 7; +c_731636.elements = (object *)alloca(sizeof(object) * 7); +c_731636.elements[0] = ((closureN)self_731367)->elements[0]; +c_731636.elements[1] = ((closureN)self_731367)->elements[1]; +c_731636.elements[2] = ((closureN)self_731367)->elements[2]; +c_731636.elements[3] = ((closureN)self_731367)->elements[3]; +c_731636.elements[4] = ((closureN)self_731367)->elements[4]; +c_731636.elements[5] = ((closureN)self_731367)->elements[5]; +c_731636.elements[6] = ((closureN)self_731367)->elements[6]; + +return_closcall1(data,(closure)&c_731636, NULL);; +} + +static void __lambda_48(void *data, int argc, object self_731368, object r_73741) { + return_closcall8(data, __glo_parse_scheme_read, ((closureN)self_731368)->elements[3], ((closureN)self_731368)->elements[2], r_73741, ((closureN)self_731368)->elements[6], ((closureN)self_731368)->elements[0], ((closureN)self_731368)->elements[1], ((closureN)self_731368)->elements[4], ((closureN)self_731368)->elements[5]);; +} + +static void __lambda_47(void *data, int argc, closure _,object k_73750, object msg_73243, object lnum_73242, object cnum_73241) { + Cyc_st_add(data, "scheme/read.sld:parse-error"); + +closureN_type c_731608; +c_731608.hdr.mark = gc_color_red; + c_731608.hdr.grayed = 0; +c_731608.tag = closureN_tag; + c_731608.fn = (function_type)__lambda_46; +c_731608.num_args = 1; +c_731608.num_elements = 3; +c_731608.elements = (object *)alloca(sizeof(object) * 3); +c_731608.elements[0] = cnum_73241; +c_731608.elements[1] = k_73750; +c_731608.elements[2] = msg_73243; + + +object c_731629 = Cyc_number2string2(data,(closure)&c_731608,1,lnum_73242); +return_closcall1(data,(closure)&c_731608, c_731629);; +} + +static void __lambda_46(void *data, int argc, object self_731369, object r_73752) { + +closureN_type c_731610; +c_731610.hdr.mark = gc_color_red; + c_731610.hdr.grayed = 0; +c_731610.tag = closureN_tag; + c_731610.fn = (function_type)__lambda_45; +c_731610.num_args = 1; +c_731610.num_elements = 3; +c_731610.elements = (object *)alloca(sizeof(object) * 3); +c_731610.elements[0] = ((closureN)self_731369)->elements[1]; +c_731610.elements[1] = ((closureN)self_731369)->elements[2]; +c_731610.elements[2] = r_73752; + + +object c_731625 = Cyc_number2string2(data,(closure)&c_731610,1,((closureN)self_731369)->elements[0]); +return_closcall1(data,(closure)&c_731610, c_731625);; +} + +static void __lambda_45(void *data, int argc, object self_731370, object r_73753) { + +closureN_type c_731612; +c_731612.hdr.mark = gc_color_red; + c_731612.hdr.grayed = 0; +c_731612.tag = closureN_tag; + c_731612.fn = (function_type)__lambda_44; +c_731612.num_args = 1; +c_731612.num_elements = 1; +c_731612.elements = (object *)alloca(sizeof(object) * 1); +c_731612.elements[0] = ((closureN)self_731370)->elements[0]; + + +make_string(c_731618, "Error (line "); + +make_string(c_731620, ", char "); + +make_string(c_731621, "): "); + +object c_731617 = Cyc_string_append(data,(closure)&c_731612,6,&c_731618, ((closureN)self_731370)->elements[2], &c_731620, r_73753, &c_731621, ((closureN)self_731370)->elements[1]); +return_closcall1(data,(closure)&c_731612, c_731617);; +} + +static void __lambda_44(void *data, int argc, object self_731371, object r_73751) { + return_closcall2(data, __glo_error_scheme_base, ((closureN)self_731371)->elements[0], r_73751);; +} + +static void __lambda_43(void *data, int argc, closure _,object k_73756, object lst_73244) { + Cyc_st_add(data, "scheme/read.sld:->dotted-list"); + +closureN_type c_731557; +c_731557.hdr.mark = gc_color_red; + c_731557.hdr.grayed = 0; +c_731557.tag = closureN_tag; + c_731557.fn = (function_type)__lambda_42; +c_731557.num_args = 1; +c_731557.num_elements = 2; +c_731557.elements = (object *)alloca(sizeof(object) * 2); +c_731557.elements[0] = k_73756; +c_731557.elements[1] = lst_73244; + +return_closcall1(data,(closure)&c_731557, Cyc_is_null(lst_73244));; +} + +static void __lambda_42(void *data, int argc, object self_731372, object r_73757) { + if( (boolean_f != r_73757) ){ + +closureN_type c_731559; +c_731559.hdr.mark = gc_color_red; + c_731559.hdr.grayed = 0; +c_731559.tag = closureN_tag; + c_731559.fn = (function_type)__lambda_33; +c_731559.num_args = 0; +c_731559.num_elements = 1; +c_731559.elements = (object *)alloca(sizeof(object) * 1); +c_731559.elements[0] = ((closureN)self_731372)->elements[0]; + +return_closcall0(data,(closure)&c_731559); +} else { + +closureN_type c_731563; +c_731563.hdr.mark = gc_color_red; + c_731563.hdr.grayed = 0; +c_731563.tag = closureN_tag; + c_731563.fn = (function_type)__lambda_41; +c_731563.num_args = 1; +c_731563.num_elements = 2; +c_731563.elements = (object *)alloca(sizeof(object) * 2); +c_731563.elements[0] = ((closureN)self_731372)->elements[0]; +c_731563.elements[1] = ((closureN)self_731372)->elements[1]; + +return_closcall1(data,(closure)&c_731563, car(((closureN)self_731372)->elements[1]));} +; +} + +static void __lambda_41(void *data, int argc, object self_731373, object r_73762) { + +closureN_type c_731565; +c_731565.hdr.mark = gc_color_red; + c_731565.hdr.grayed = 0; +c_731565.tag = closureN_tag; + c_731565.fn = (function_type)__lambda_40; +c_731565.num_args = 1; +c_731565.num_elements = 3; +c_731565.elements = (object *)alloca(sizeof(object) * 3); +c_731565.elements[0] = ((closureN)self_731373)->elements[0]; +c_731565.elements[1] = ((closureN)self_731373)->elements[1]; +c_731565.elements[2] = r_73762; + + +make_string(c_731600, "."); +return_closcall1(data,(closure)&c_731565, Cyc_string2symbol(data, &c_731600));; +} + +static void __lambda_40(void *data, int argc, object self_731374, object r_73763) { + +closureN_type c_731567; +c_731567.hdr.mark = gc_color_red; + c_731567.hdr.grayed = 0; +c_731567.tag = closureN_tag; + c_731567.fn = (function_type)__lambda_39; +c_731567.num_args = 1; +c_731567.num_elements = 2; +c_731567.elements = (object *)alloca(sizeof(object) * 2); +c_731567.elements[0] = ((closureN)self_731374)->elements[0]; +c_731567.elements[1] = ((closureN)self_731374)->elements[1]; + +return_closcall1(data,(closure)&c_731567, equalp(((closureN)self_731374)->elements[2], r_73763));; +} + +static void __lambda_39(void *data, int argc, object self_731375, object r_73758) { + if( (boolean_f != r_73758) ){ + +closureN_type c_731569; +c_731569.hdr.mark = gc_color_red; + c_731569.hdr.grayed = 0; +c_731569.tag = closureN_tag; + c_731569.fn = (function_type)__lambda_34; +c_731569.num_args = 0; +c_731569.num_elements = 2; +c_731569.elements = (object *)alloca(sizeof(object) * 2); +c_731569.elements[0] = ((closureN)self_731375)->elements[0]; +c_731569.elements[1] = ((closureN)self_731375)->elements[1]; + +return_closcall0(data,(closure)&c_731569); +} else { + +closureN_type c_731576; +c_731576.hdr.mark = gc_color_red; + c_731576.hdr.grayed = 0; +c_731576.tag = closureN_tag; + c_731576.fn = (function_type)__lambda_38; +c_731576.num_args = 0; +c_731576.num_elements = 2; +c_731576.elements = (object *)alloca(sizeof(object) * 2); +c_731576.elements[0] = ((closureN)self_731375)->elements[0]; +c_731576.elements[1] = ((closureN)self_731375)->elements[1]; + +return_closcall0(data,(closure)&c_731576);} +; +} + +static void __lambda_38(void *data, int argc, object self_731376) { + +closureN_type c_731578; +c_731578.hdr.mark = gc_color_red; + c_731578.hdr.grayed = 0; +c_731578.tag = closureN_tag; + c_731578.fn = (function_type)__lambda_37; +c_731578.num_args = 1; +c_731578.num_elements = 2; +c_731578.elements = (object *)alloca(sizeof(object) * 2); +c_731578.elements[0] = ((closureN)self_731376)->elements[0]; +c_731578.elements[1] = ((closureN)self_731376)->elements[1]; + +return_closcall1(data,(closure)&c_731578, car(((closureN)self_731376)->elements[1]));; +} + +static void __lambda_37(void *data, int argc, object self_731377, object r_73759) { + +closureN_type c_731580; +c_731580.hdr.mark = gc_color_red; + c_731580.hdr.grayed = 0; +c_731580.tag = closureN_tag; + c_731580.fn = (function_type)__lambda_36; +c_731580.num_args = 1; +c_731580.num_elements = 2; +c_731580.elements = (object *)alloca(sizeof(object) * 2); +c_731580.elements[0] = ((closureN)self_731377)->elements[0]; +c_731580.elements[1] = r_73759; + +return_closcall1(data,(closure)&c_731580, cdr(((closureN)self_731377)->elements[1]));; +} + +static void __lambda_36(void *data, int argc, object self_731378, object r_73761) { + +closureN_type c_731582; +c_731582.hdr.mark = gc_color_red; + c_731582.hdr.grayed = 0; +c_731582.tag = closureN_tag; + c_731582.fn = (function_type)__lambda_35; +c_731582.num_args = 1; +c_731582.num_elements = 2; +c_731582.elements = (object *)alloca(sizeof(object) * 2); +c_731582.elements[0] = ((closureN)self_731378)->elements[0]; +c_731582.elements[1] = ((closureN)self_731378)->elements[1]; + +return_closcall2(data, __glo__91_125dotted_91list_scheme_read, &c_731582, r_73761);; +} + +static void __lambda_35(void *data, int argc, object self_731379, object r_73760) { + +make_pair(c_731587,((closureN)self_731379)->elements[1], r_73760); +return_closcall1(data, ((closureN)self_731379)->elements[0], &c_731587);; +} + +static void __lambda_34(void *data, int argc, object self_731380) { + return_closcall1(data, ((closureN)self_731380)->elements[0], cadr(((closureN)self_731380)->elements[1]));; +} + +static void __lambda_33(void *data, int argc, object self_731381) { + return_closcall1(data, ((closureN)self_731381)->elements[0], NULL);; +} + +static void __lambda_32(void *data, int argc, closure _,object k_73766, object lst_73245) { + Cyc_st_add(data, "scheme/read.sld:dotted?"); + +closureN_type c_731528; +c_731528.hdr.mark = gc_color_red; + c_731528.hdr.grayed = 0; +c_731528.tag = closureN_tag; + c_731528.fn = (function_type)__lambda_31; +c_731528.num_args = 1; +c_731528.num_elements = 2; +c_731528.elements = (object *)alloca(sizeof(object) * 2); +c_731528.elements[0] = k_73766; +c_731528.elements[1] = lst_73245; + +return_closcall1(data,(closure)&c_731528, Cyc_length(data, lst_73245));; +} + +static void __lambda_31(void *data, int argc, object self_731382, object r_73771) { + +closureN_type c_731530; +c_731530.hdr.mark = gc_color_red; + c_731530.hdr.grayed = 0; +c_731530.tag = closureN_tag; + c_731530.fn = (function_type)__lambda_30; +c_731530.num_args = 1; +c_731530.num_elements = 2; +c_731530.elements = (object *)alloca(sizeof(object) * 2); +c_731530.elements[0] = ((closureN)self_731382)->elements[0]; +c_731530.elements[1] = ((closureN)self_731382)->elements[1]; + + +object c_731552 = Cyc_num_gt(data,(closure)&c_731530,2,r_73771, obj_int2obj(2)); +return_closcall1(data,(closure)&c_731530, c_731552);; +} + +static void __lambda_30(void *data, int argc, object self_731383, object r_73767) { + if( (boolean_f != r_73767) ){ + +closureN_type c_731532; +c_731532.hdr.mark = gc_color_red; + c_731532.hdr.grayed = 0; +c_731532.tag = closureN_tag; + c_731532.fn = (function_type)__lambda_29; +c_731532.num_args = 1; +c_731532.num_elements = 1; +c_731532.elements = (object *)alloca(sizeof(object) * 1); +c_731532.elements[0] = ((closureN)self_731383)->elements[0]; + +return_closcall2(data, __glo_reverse_scheme_base, &c_731532, ((closureN)self_731383)->elements[1]); +} else { + return_closcall1(data, ((closureN)self_731383)->elements[0], boolean_f);} +; +} + +static void __lambda_29(void *data, int argc, object self_731384, object r_73770) { + +closureN_type c_731534; +c_731534.hdr.mark = gc_color_red; + c_731534.hdr.grayed = 0; +c_731534.tag = closureN_tag; + c_731534.fn = (function_type)__lambda_28; +c_731534.num_args = 1; +c_731534.num_elements = 1; +c_731534.elements = (object *)alloca(sizeof(object) * 1); +c_731534.elements[0] = ((closureN)self_731384)->elements[0]; + +return_closcall1(data,(closure)&c_731534, cadr(r_73770));; +} + +static void __lambda_28(void *data, int argc, object self_731385, object r_73768) { + +closureN_type c_731536; +c_731536.hdr.mark = gc_color_red; + c_731536.hdr.grayed = 0; +c_731536.tag = closureN_tag; + c_731536.fn = (function_type)__lambda_27; +c_731536.num_args = 1; +c_731536.num_elements = 2; +c_731536.elements = (object *)alloca(sizeof(object) * 2); +c_731536.elements[0] = ((closureN)self_731385)->elements[0]; +c_731536.elements[1] = r_73768; + + +make_string(c_731544, "."); +return_closcall1(data,(closure)&c_731536, Cyc_string2symbol(data, &c_731544));; +} + +static void __lambda_27(void *data, int argc, object self_731386, object r_73769) { + return_closcall1(data, ((closureN)self_731386)->elements[0], equalp(((closureN)self_731386)->elements[1], r_73769));; +} + +static void __lambda_26(void *data, int argc, closure _,object k_73774, object lst_73246) { + Cyc_st_add(data, "scheme/read.sld:->tok"); + +closureN_type c_731523; +c_731523.hdr.mark = gc_color_red; + c_731523.hdr.grayed = 0; +c_731523.tag = closureN_tag; + c_731523.fn = (function_type)__lambda_25; +c_731523.num_args = 1; +c_731523.num_elements = 1; +c_731523.elements = (object *)alloca(sizeof(object) * 1); +c_731523.elements[0] = k_73774; + +return_closcall2(data, __glo_reverse_scheme_base, &c_731523, lst_73246);; +} + +static void __lambda_25(void *data, int argc, object self_731387, object r_73775) { + return_closcall2(data, __glo_parse_91atom_scheme_read, ((closureN)self_731387)->elements[0], r_73775);; +} + +static void __lambda_24(void *data, int argc, closure _,object k_73778, object tok_73248, object toks_73247) { + Cyc_st_add(data, "scheme/read.sld:get-toks"); + +closureN_type c_731509; +c_731509.hdr.mark = gc_color_red; + c_731509.hdr.grayed = 0; +c_731509.tag = closureN_tag; + c_731509.fn = (function_type)__lambda_23; +c_731509.num_args = 1; +c_731509.num_elements = 3; +c_731509.elements = (object *)alloca(sizeof(object) * 3); +c_731509.elements[0] = k_73778; +c_731509.elements[1] = tok_73248; +c_731509.elements[2] = toks_73247; + +return_closcall1(data,(closure)&c_731509, Cyc_is_null(tok_73248));; +} + +static void __lambda_23(void *data, int argc, object self_731388, object r_73779) { + if( (boolean_f != r_73779) ){ + return_closcall1(data, ((closureN)self_731388)->elements[0], ((closureN)self_731388)->elements[2]); +} else { + +closureN_type c_731514; +c_731514.hdr.mark = gc_color_red; + c_731514.hdr.grayed = 0; +c_731514.tag = closureN_tag; + c_731514.fn = (function_type)__lambda_22; +c_731514.num_args = 1; +c_731514.num_elements = 2; +c_731514.elements = (object *)alloca(sizeof(object) * 2); +c_731514.elements[0] = ((closureN)self_731388)->elements[0]; +c_731514.elements[1] = ((closureN)self_731388)->elements[2]; + +return_closcall2(data, __glo__91_125tok_scheme_read, &c_731514, ((closureN)self_731388)->elements[1]);} +; +} + +static void __lambda_22(void *data, int argc, object self_731389, object r_73780) { + return_closcall3(data, __glo_add_91tok_scheme_read, ((closureN)self_731389)->elements[0], r_73780, ((closureN)self_731389)->elements[1]);; +} + +static void __lambda_21(void *data, int argc, closure _,object k_73783, object tok_73250, object toks_73249) { + Cyc_st_add(data, "scheme/read.sld:add-tok"); + +make_pair(c_731506,tok_73250, toks_73249); +return_closcall1(data, k_73783, &c_731506);; +} + +static void __lambda_20(void *data, int argc, closure _,object k_73786, object ptbl_73252, object cnum_73251) { + Cyc_st_add(data, "scheme/read.sld:in-port:set-cnum!"); + +closureN_type c_731494; +c_731494.hdr.mark = gc_color_red; + c_731494.hdr.grayed = 0; +c_731494.tag = closureN_tag; + c_731494.fn = (function_type)__lambda_19; +c_731494.num_args = 1; +c_731494.num_elements = 2; +c_731494.elements = (object *)alloca(sizeof(object) * 2); +c_731494.elements[0] = cnum_73251; +c_731494.elements[1] = k_73786; + +return_closcall1(data,(closure)&c_731494, cdddr(ptbl_73252));; +} + +static void __lambda_19(void *data, int argc, object self_731390, object r_73787) { + return_closcall1(data, ((closureN)self_731390)->elements[1], Cyc_set_car(data, r_73787, ((closureN)self_731390)->elements[0]));; +} + +static void __lambda_18(void *data, int argc, closure _,object k_73790, object ptbl_73253) { + Cyc_st_add(data, "scheme/read.sld:in-port:get-cnum"); +return_closcall1(data, k_73790, cadddr(ptbl_73253));; +} + +static void __lambda_17(void *data, int argc, closure _,object k_73793, object ptbl_73255, object lnum_73254) { + Cyc_st_add(data, "scheme/read.sld:in-port:set-lnum!"); + +closureN_type c_731480; +c_731480.hdr.mark = gc_color_red; + c_731480.hdr.grayed = 0; +c_731480.tag = closureN_tag; + c_731480.fn = (function_type)__lambda_16; +c_731480.num_args = 1; +c_731480.num_elements = 2; +c_731480.elements = (object *)alloca(sizeof(object) * 2); +c_731480.elements[0] = k_73793; +c_731480.elements[1] = lnum_73254; + +return_closcall1(data,(closure)&c_731480, cddr(ptbl_73255));; +} + +static void __lambda_16(void *data, int argc, object self_731391, object r_73794) { + return_closcall1(data, ((closureN)self_731391)->elements[0], Cyc_set_car(data, r_73794, ((closureN)self_731391)->elements[1]));; +} + +static void __lambda_15(void *data, int argc, closure _,object k_73797, object ptbl_73256) { + Cyc_st_add(data, "scheme/read.sld:in-port:get-lnum"); +return_closcall1(data, k_73797, caddr(ptbl_73256));; +} + +static void __lambda_14(void *data, int argc, closure _,object k_73800, object ptbl_73258, object buf_73257) { + Cyc_st_add(data, "scheme/read.sld:in-port:set-buf!"); + +closureN_type c_731466; +c_731466.hdr.mark = gc_color_red; + c_731466.hdr.grayed = 0; +c_731466.tag = closureN_tag; + c_731466.fn = (function_type)__lambda_13; +c_731466.num_args = 1; +c_731466.num_elements = 2; +c_731466.elements = (object *)alloca(sizeof(object) * 2); +c_731466.elements[0] = buf_73257; +c_731466.elements[1] = k_73800; + +return_closcall1(data,(closure)&c_731466, cdr(ptbl_73258));; +} + +static void __lambda_13(void *data, int argc, object self_731392, object r_73801) { + return_closcall1(data, ((closureN)self_731392)->elements[1], Cyc_set_car(data, r_73801, ((closureN)self_731392)->elements[0]));; +} + +static void __lambda_12(void *data, int argc, closure _,object k_73804, object ptbl_73259) { + Cyc_st_add(data, "scheme/read.sld:in-port:get-buf"); +return_closcall1(data, k_73804, cadr(ptbl_73259));; +} + +static void __lambda_11(void *data, int argc, closure _,object k_73807, object ptbl_73260) { + Cyc_st_add(data, "scheme/read.sld:in-port:read-buf!"); + +closureN_type c_731451; +c_731451.hdr.mark = gc_color_red; + c_731451.hdr.grayed = 0; +c_731451.tag = closureN_tag; + c_731451.fn = (function_type)__lambda_10; +c_731451.num_args = 1; +c_731451.num_elements = 2; +c_731451.elements = (object *)alloca(sizeof(object) * 2); +c_731451.elements[0] = k_73807; +c_731451.elements[1] = ptbl_73260; + +return_closcall1(data,(closure)&c_731451, cadr(ptbl_73260));; +} + +static void __lambda_10(void *data, int argc, object self_731393, object result_73261) { + +closureN_type c_731453; +c_731453.hdr.mark = gc_color_red; + c_731453.hdr.grayed = 0; +c_731453.tag = closureN_tag; + c_731453.fn = (function_type)__lambda_9; +c_731453.num_args = 1; +c_731453.num_elements = 2; +c_731453.elements = (object *)alloca(sizeof(object) * 2); +c_731453.elements[0] = ((closureN)self_731393)->elements[0]; +c_731453.elements[1] = result_73261; + +return_closcall3(data, __glo_in_91port_117set_91buf_67_scheme_read, &c_731453, ((closureN)self_731393)->elements[1], boolean_f);; +} + +static void __lambda_9(void *data, int argc, object self_731394, object r_73809) { + return_closcall1(data, ((closureN)self_731394)->elements[0], ((closureN)self_731394)->elements[1]);; +} + +static void __lambda_8(void *data, int argc, closure _,object k_73812, object fp_73262) { + Cyc_st_add(data, "scheme/read.sld:reg-port"); + +closureN_type c_731405; +c_731405.hdr.mark = gc_color_red; + c_731405.hdr.grayed = 0; +c_731405.tag = closureN_tag; + c_731405.fn = (function_type)__lambda_7; +c_731405.num_args = 1; +c_731405.num_elements = 2; +c_731405.elements = (object *)alloca(sizeof(object) * 2); +c_731405.elements[0] = fp_73262; +c_731405.elements[1] = k_73812; + +return_closcall1(data,(closure)&c_731405, assoc(data, fp_73262, __glo__85in_91port_91table_85_scheme_read));; +} + +static void __lambda_7(void *data, int argc, object self_731395, object r_73263) { + +closureN_type c_731407; +c_731407.hdr.mark = gc_color_red; + c_731407.hdr.grayed = 0; +c_731407.tag = closureN_tag; + c_731407.fn = (function_type)__lambda_6; +c_731407.num_args = 1; +c_731407.num_elements = 2; +c_731407.elements = (object *)alloca(sizeof(object) * 2); +c_731407.elements[0] = ((closureN)self_731395)->elements[0]; +c_731407.elements[1] = ((closureN)self_731395)->elements[1]; + + +make_cell(c_731446,r_73263); +return_closcall1(data,(closure)&c_731407, &c_731446);; +} + +static void __lambda_6(void *data, int argc, object self_731396, object r_73263) { + if( (boolean_f != cell_get(r_73263)) ){ + +closureN_type c_731411; +c_731411.hdr.mark = gc_color_red; + c_731411.hdr.grayed = 0; +c_731411.tag = closureN_tag; + c_731411.fn = (function_type)__lambda_0; +c_731411.num_args = 0; +c_731411.num_elements = 2; +c_731411.elements = (object *)alloca(sizeof(object) * 2); +c_731411.elements[0] = ((closureN)self_731396)->elements[1]; +c_731411.elements[1] = r_73263; + +return_closcall0(data,(closure)&c_731411); +} else { + +closureN_type c_731418; +c_731418.hdr.mark = gc_color_red; + c_731418.hdr.grayed = 0; +c_731418.tag = closureN_tag; + c_731418.fn = (function_type)__lambda_5; +c_731418.num_args = 0; +c_731418.num_elements = 3; +c_731418.elements = (object *)alloca(sizeof(object) * 3); +c_731418.elements[0] = ((closureN)self_731396)->elements[0]; +c_731418.elements[1] = ((closureN)self_731396)->elements[1]; +c_731418.elements[2] = r_73263; + +return_closcall0(data,(closure)&c_731418);} +; +} + +static void __lambda_5(void *data, int argc, object self_731397) { + +closureN_type c_731420; +c_731420.hdr.mark = gc_color_red; + c_731420.hdr.grayed = 0; +c_731420.tag = closureN_tag; + c_731420.fn = (function_type)__lambda_4; +c_731420.num_args = 1; +c_731420.num_elements = 2; +c_731420.elements = (object *)alloca(sizeof(object) * 2); +c_731420.elements[0] = ((closureN)self_731397)->elements[1]; +c_731420.elements[1] = ((closureN)self_731397)->elements[2]; + +return_closcall5(data, __glo__list_scheme_base, &c_731420, ((closureN)self_731397)->elements[0], boolean_f, obj_int2obj(1), obj_int2obj(0));; +} + +static void __lambda_4(void *data, int argc, object self_731398, object r_73817) { + +closureN_type c_731422; +c_731422.hdr.mark = gc_color_red; + c_731422.hdr.grayed = 0; +c_731422.tag = closureN_tag; + c_731422.fn = (function_type)__lambda_3; +c_731422.num_args = 1; +c_731422.num_elements = 2; +c_731422.elements = (object *)alloca(sizeof(object) * 2); +c_731422.elements[0] = ((closureN)self_731398)->elements[0]; +c_731422.elements[1] = ((closureN)self_731398)->elements[1]; + +return_closcall1(data,(closure)&c_731422, Cyc_set_car(data, ((closureN)self_731398)->elements[1], r_73817));; +} + +static void __lambda_3(void *data, int argc, object self_731399, object r_73814) { + +closureN_type c_731424; +c_731424.hdr.mark = gc_color_red; + c_731424.hdr.grayed = 0; +c_731424.tag = closureN_tag; + c_731424.fn = (function_type)__lambda_2; +c_731424.num_args = 1; +c_731424.num_elements = 2; +c_731424.elements = (object *)alloca(sizeof(object) * 2); +c_731424.elements[0] = ((closureN)self_731399)->elements[0]; +c_731424.elements[1] = ((closureN)self_731399)->elements[1]; + + +make_pair(c_731436,cell_get(((closureN)self_731399)->elements[1]), __glo__85in_91port_91table_85_scheme_read); +return_closcall1(data,(closure)&c_731424, &c_731436);; +} + +static void __lambda_2(void *data, int argc, object self_731400, object r_73816) { + +closureN_type c_731426; +c_731426.hdr.mark = gc_color_red; + c_731426.hdr.grayed = 0; +c_731426.tag = closureN_tag; + c_731426.fn = (function_type)__lambda_1; +c_731426.num_args = 1; +c_731426.num_elements = 2; +c_731426.elements = (object *)alloca(sizeof(object) * 2); +c_731426.elements[0] = ((closureN)self_731400)->elements[0]; +c_731426.elements[1] = ((closureN)self_731400)->elements[1]; + +return_closcall1(data,(closure)&c_731426, global_set(__glo__85in_91port_91table_85_scheme_read, r_73816));; +} + +static void __lambda_1(void *data, int argc, object self_731401, object r_73815) { + return_closcall1(data, ((closureN)self_731401)->elements[0], cell_get(((closureN)self_731401)->elements[1]));; +} + +static void __lambda_0(void *data, int argc, object self_731402) { + return_closcall1(data, ((closureN)self_731402)->elements[0], cell_get(((closureN)self_731402)->elements[1]));; +} + +void c_schemeread_entry_pt(data, argc, cont,value) void *data; int argc; closure cont; object value;{ + quote_unquote = find_or_add_symbol("unquote"); + quote_unquote_91splicing = find_or_add_symbol("unquote-splicing"); + quote_quasiquote = find_or_add_symbol("quasiquote"); + quote_quote = find_or_add_symbol("quote"); + + add_global((object *) &__glo_lib_91init_117schemeread_scheme_read); + add_global((object *) &__glo_read_91all_scheme_read); + add_global((object *) &__glo_cyc_91read_scheme_read); + add_global((object *) &__glo_hex_91digit_127_scheme_read); + add_global((object *) &__glo_parse_91number_91rec_scheme_read); + add_global((object *) &__glo_parse_91number_scheme_read); + add_global((object *) &__glo_parse_91li_91rec_scheme_read); + add_global((object *) &__glo_parse_91literal_91identifier_scheme_read); + add_global((object *) &__glo_read_91block_91terminator_scheme_read); + add_global((object *) &__glo_read_91block_91comment_scheme_read); + add_global((object *) &__glo_get_91next_91char_scheme_read); + add_global((object *) &__glo_parse_91atom_scheme_read); + add_global((object *) &__glo_token_91numeric_127_scheme_read); + add_global((object *) &__glo_sign_127_scheme_read); + add_global((object *) &__glo_read_91str_91esc_scheme_read); + add_global((object *) &__glo_read_91str_scheme_read); + add_global((object *) &__glo_read_91pound_scheme_read); + add_global((object *) &__glo_parse_scheme_read); + add_global((object *) &__glo_parse_95tok_scheme_read); + add_global((object *) &__glo_parse_91error_scheme_read); + add_global((object *) &__glo__91_125dotted_91list_scheme_read); + add_global((object *) &__glo_dotted_127_scheme_read); + add_global((object *) &__glo__91_125tok_scheme_read); + add_global((object *) &__glo_get_91toks_scheme_read); + add_global((object *) &__glo_add_91tok_scheme_read); + add_global((object *) &__glo_in_91port_117set_91cnum_67_scheme_read); + add_global((object *) &__glo_in_91port_117get_91cnum_scheme_read); + add_global((object *) &__glo_in_91port_117set_91lnum_67_scheme_read); + add_global((object *) &__glo_in_91port_117get_91lnum_scheme_read); + add_global((object *) &__glo_in_91port_117set_91buf_67_scheme_read); + add_global((object *) &__glo_in_91port_117get_91buf_scheme_read); + add_global((object *) &__glo_in_91port_117read_91buf_67_scheme_read); + add_global((object *) &__glo_reg_91port_scheme_read); + add_global((object *) &__glo__85in_91port_91table_85_scheme_read); + add_global((object *) &__glo_read_scheme_read); + add_symbol(quote_unquote); + add_symbol(quote_unquote_91splicing); + add_symbol(quote_quasiquote); + add_symbol(quote_quote); + mclosure0(c_734294, (function_type)__lambda_613);c_734294.num_args = 0; + __glo_lib_91init_117schemeread_scheme_read = &c_734294; + mclosure0(c_734231, (function_type)__lambda_609);c_734231.num_args = 0; + __glo_read_91all_scheme_read = &c_734231; + mclosure0(c_734203, (function_type)__lambda_595);c_734203.num_args = 0; + __glo_cyc_91read_scheme_read = &c_734203; + mclosure0(c_734181, (function_type)__lambda_588);c_734181.num_args = 1; + __glo_hex_91digit_127_scheme_read = &c_734181; + mclosure0(c_734058, (function_type)__lambda_583);c_734058.num_args = 4; + __glo_parse_91number_91rec_scheme_read = &c_734058; + mclosure0(c_733971, (function_type)__lambda_555);c_733971.num_args = 7; + __glo_parse_91number_scheme_read = &c_733971; + mclosure0(c_733900, (function_type)__lambda_537);c_733900.num_args = 3; + __glo_parse_91li_91rec_scheme_read = &c_733900; + mclosure0(c_733874, (function_type)__lambda_520);c_733874.num_args = 5; + __glo_parse_91literal_91identifier_scheme_read = &c_733874; + mclosure0(c_733846, (function_type)__lambda_515);c_733846.num_args = 2; + __glo_read_91block_91terminator_scheme_read = &c_733846; + mclosure0(c_733827, (function_type)__lambda_508);c_733827.num_args = 2; + __glo_read_91block_91comment_scheme_read = &c_733827; + mclosure0(c_733815, (function_type)__lambda_503);c_733815.num_args = 2; + __glo_get_91next_91char_scheme_read = &c_733815; + mclosure0(c_733787, (function_type)__lambda_501);c_733787.num_args = 1; + __glo_parse_91atom_scheme_read = &c_733787; + mclosure0(c_733700, (function_type)__lambda_495);c_733700.num_args = 1; + __glo_token_91numeric_127_scheme_read = &c_733700; + mclosure0(c_733688, (function_type)__lambda_477);c_733688.num_args = 1; + __glo_sign_127_scheme_read = &c_733688; + mclosure0(c_733602, (function_type)__lambda_475);c_733602.num_args = 3; + __glo_read_91str_91esc_scheme_read = &c_733602; + mclosure0(c_733536, (function_type)__lambda_457);c_733536.num_args = 3; + __glo_read_91str_scheme_read = &c_733536; + mclosure0(c_733158, (function_type)__lambda_443);c_733158.num_args = 2; + __glo_read_91pound_scheme_read = &c_733158; + mclosure0(c_731682, (function_type)__lambda_367);c_731682.num_args = 7; + __glo_parse_scheme_read = &c_731682; + mclosure0(c_731630, (function_type)__lambda_59);c_731630.num_args = 8; + __glo_parse_95tok_scheme_read = &c_731630; + mclosure0(c_731606, (function_type)__lambda_47);c_731606.num_args = 3; + __glo_parse_91error_scheme_read = &c_731606; + mclosure0(c_731555, (function_type)__lambda_43);c_731555.num_args = 1; + __glo__91_125dotted_91list_scheme_read = &c_731555; + mclosure0(c_731526, (function_type)__lambda_32);c_731526.num_args = 1; + __glo_dotted_127_scheme_read = &c_731526; + mclosure0(c_731521, (function_type)__lambda_26);c_731521.num_args = 1; + __glo__91_125tok_scheme_read = &c_731521; + mclosure0(c_731507, (function_type)__lambda_24);c_731507.num_args = 2; + __glo_get_91toks_scheme_read = &c_731507; + mclosure0(c_731502, (function_type)__lambda_21);c_731502.num_args = 2; + __glo_add_91tok_scheme_read = &c_731502; + mclosure0(c_731492, (function_type)__lambda_20);c_731492.num_args = 2; + __glo_in_91port_117set_91cnum_67_scheme_read = &c_731492; + mclosure0(c_731488, (function_type)__lambda_18);c_731488.num_args = 1; + __glo_in_91port_117get_91cnum_scheme_read = &c_731488; + mclosure0(c_731478, (function_type)__lambda_17);c_731478.num_args = 2; + __glo_in_91port_117set_91lnum_67_scheme_read = &c_731478; + mclosure0(c_731474, (function_type)__lambda_15);c_731474.num_args = 1; + __glo_in_91port_117get_91lnum_scheme_read = &c_731474; + mclosure0(c_731464, (function_type)__lambda_14);c_731464.num_args = 2; + __glo_in_91port_117set_91buf_67_scheme_read = &c_731464; + mclosure0(c_731460, (function_type)__lambda_12);c_731460.num_args = 1; + __glo_in_91port_117get_91buf_scheme_read = &c_731460; + mclosure0(c_731449, (function_type)__lambda_11);c_731449.num_args = 1; + __glo_in_91port_117read_91buf_67_scheme_read = &c_731449; + mclosure0(c_731403, (function_type)__lambda_8);c_731403.num_args = 1; + __glo_reg_91port_scheme_read = &c_731403; + __glo__85in_91port_91table_85_scheme_read = boolean_f; + __glo_read_scheme_read = boolean_f; + + make_cvar(cvar_734307, (object *)&__glo_lib_91init_117schemeread_scheme_read);make_pair(pair_734308, find_or_add_symbol("lib-init:schemeread"), &cvar_734307); + make_cvar(cvar_734309, (object *)&__glo_read_91all_scheme_read);make_pair(pair_734310, find_or_add_symbol("read-all"), &cvar_734309); + make_cvar(cvar_734311, (object *)&__glo_cyc_91read_scheme_read);make_pair(pair_734312, find_or_add_symbol("cyc-read"), &cvar_734311); + make_cvar(cvar_734313, (object *)&__glo_hex_91digit_127_scheme_read);make_pair(pair_734314, find_or_add_symbol("hex-digit?"), &cvar_734313); + make_cvar(cvar_734315, (object *)&__glo_parse_91number_91rec_scheme_read);make_pair(pair_734316, find_or_add_symbol("parse-number-rec"), &cvar_734315); + make_cvar(cvar_734317, (object *)&__glo_parse_91number_scheme_read);make_pair(pair_734318, find_or_add_symbol("parse-number"), &cvar_734317); + make_cvar(cvar_734319, (object *)&__glo_parse_91li_91rec_scheme_read);make_pair(pair_734320, find_or_add_symbol("parse-li-rec"), &cvar_734319); + make_cvar(cvar_734321, (object *)&__glo_parse_91literal_91identifier_scheme_read);make_pair(pair_734322, find_or_add_symbol("parse-literal-identifier"), &cvar_734321); + make_cvar(cvar_734323, (object *)&__glo_read_91block_91terminator_scheme_read);make_pair(pair_734324, find_or_add_symbol("read-block-terminator"), &cvar_734323); + make_cvar(cvar_734325, (object *)&__glo_read_91block_91comment_scheme_read);make_pair(pair_734326, find_or_add_symbol("read-block-comment"), &cvar_734325); + make_cvar(cvar_734327, (object *)&__glo_get_91next_91char_scheme_read);make_pair(pair_734328, find_or_add_symbol("get-next-char"), &cvar_734327); + make_cvar(cvar_734329, (object *)&__glo_parse_91atom_scheme_read);make_pair(pair_734330, find_or_add_symbol("parse-atom"), &cvar_734329); + make_cvar(cvar_734331, (object *)&__glo_token_91numeric_127_scheme_read);make_pair(pair_734332, find_or_add_symbol("token-numeric?"), &cvar_734331); + make_cvar(cvar_734333, (object *)&__glo_sign_127_scheme_read);make_pair(pair_734334, find_or_add_symbol("sign?"), &cvar_734333); + make_cvar(cvar_734335, (object *)&__glo_read_91str_91esc_scheme_read);make_pair(pair_734336, find_or_add_symbol("read-str-esc"), &cvar_734335); + make_cvar(cvar_734337, (object *)&__glo_read_91str_scheme_read);make_pair(pair_734338, find_or_add_symbol("read-str"), &cvar_734337); + make_cvar(cvar_734339, (object *)&__glo_read_91pound_scheme_read);make_pair(pair_734340, find_or_add_symbol("read-pound"), &cvar_734339); + make_cvar(cvar_734341, (object *)&__glo_parse_scheme_read);make_pair(pair_734342, find_or_add_symbol("parse"), &cvar_734341); + make_cvar(cvar_734343, (object *)&__glo_parse_95tok_scheme_read);make_pair(pair_734344, find_or_add_symbol("parse/tok"), &cvar_734343); + make_cvar(cvar_734345, (object *)&__glo_parse_91error_scheme_read);make_pair(pair_734346, find_or_add_symbol("parse-error"), &cvar_734345); + make_cvar(cvar_734347, (object *)&__glo__91_125dotted_91list_scheme_read);make_pair(pair_734348, find_or_add_symbol("->dotted-list"), &cvar_734347); + make_cvar(cvar_734349, (object *)&__glo_dotted_127_scheme_read);make_pair(pair_734350, find_or_add_symbol("dotted?"), &cvar_734349); + make_cvar(cvar_734351, (object *)&__glo__91_125tok_scheme_read);make_pair(pair_734352, find_or_add_symbol("->tok"), &cvar_734351); + make_cvar(cvar_734353, (object *)&__glo_get_91toks_scheme_read);make_pair(pair_734354, find_or_add_symbol("get-toks"), &cvar_734353); + make_cvar(cvar_734355, (object *)&__glo_add_91tok_scheme_read);make_pair(pair_734356, find_or_add_symbol("add-tok"), &cvar_734355); + make_cvar(cvar_734357, (object *)&__glo_in_91port_117set_91cnum_67_scheme_read);make_pair(pair_734358, find_or_add_symbol("in-port:set-cnum!"), &cvar_734357); + make_cvar(cvar_734359, (object *)&__glo_in_91port_117get_91cnum_scheme_read);make_pair(pair_734360, find_or_add_symbol("in-port:get-cnum"), &cvar_734359); + make_cvar(cvar_734361, (object *)&__glo_in_91port_117set_91lnum_67_scheme_read);make_pair(pair_734362, find_or_add_symbol("in-port:set-lnum!"), &cvar_734361); + make_cvar(cvar_734363, (object *)&__glo_in_91port_117get_91lnum_scheme_read);make_pair(pair_734364, find_or_add_symbol("in-port:get-lnum"), &cvar_734363); + make_cvar(cvar_734365, (object *)&__glo_in_91port_117set_91buf_67_scheme_read);make_pair(pair_734366, find_or_add_symbol("in-port:set-buf!"), &cvar_734365); + make_cvar(cvar_734367, (object *)&__glo_in_91port_117get_91buf_scheme_read);make_pair(pair_734368, find_or_add_symbol("in-port:get-buf"), &cvar_734367); + make_cvar(cvar_734369, (object *)&__glo_in_91port_117read_91buf_67_scheme_read);make_pair(pair_734370, find_or_add_symbol("in-port:read-buf!"), &cvar_734369); + make_cvar(cvar_734371, (object *)&__glo_reg_91port_scheme_read);make_pair(pair_734372, find_or_add_symbol("reg-port"), &cvar_734371); + make_cvar(cvar_734373, (object *)&__glo__85in_91port_91table_85_scheme_read);make_pair(pair_734374, find_or_add_symbol("*in-port-table*"), &cvar_734373); + make_cvar(cvar_734375, (object *)&__glo_read_scheme_read);make_pair(pair_734376, find_or_add_symbol("read"), &cvar_734375); +make_pair(c_734377, &pair_734308,Cyc_global_variables); +make_pair(c_734378, &pair_734310, &c_734377); +make_pair(c_734379, &pair_734312, &c_734378); +make_pair(c_734380, &pair_734314, &c_734379); +make_pair(c_734381, &pair_734316, &c_734380); +make_pair(c_734382, &pair_734318, &c_734381); +make_pair(c_734383, &pair_734320, &c_734382); +make_pair(c_734384, &pair_734322, &c_734383); +make_pair(c_734385, &pair_734324, &c_734384); +make_pair(c_734386, &pair_734326, &c_734385); +make_pair(c_734387, &pair_734328, &c_734386); +make_pair(c_734388, &pair_734330, &c_734387); +make_pair(c_734389, &pair_734332, &c_734388); +make_pair(c_734390, &pair_734334, &c_734389); +make_pair(c_734391, &pair_734336, &c_734390); +make_pair(c_734392, &pair_734338, &c_734391); +make_pair(c_734393, &pair_734340, &c_734392); +make_pair(c_734394, &pair_734342, &c_734393); +make_pair(c_734395, &pair_734344, &c_734394); +make_pair(c_734396, &pair_734346, &c_734395); +make_pair(c_734397, &pair_734348, &c_734396); +make_pair(c_734398, &pair_734350, &c_734397); +make_pair(c_734399, &pair_734352, &c_734398); +make_pair(c_734400, &pair_734354, &c_734399); +make_pair(c_734401, &pair_734356, &c_734400); +make_pair(c_734402, &pair_734358, &c_734401); +make_pair(c_734403, &pair_734360, &c_734402); +make_pair(c_734404, &pair_734362, &c_734403); +make_pair(c_734405, &pair_734364, &c_734404); +make_pair(c_734406, &pair_734366, &c_734405); +make_pair(c_734407, &pair_734368, &c_734406); +make_pair(c_734408, &pair_734370, &c_734407); +make_pair(c_734409, &pair_734372, &c_734408); +make_pair(c_734410, &pair_734374, &c_734409); +make_pair(c_734411, &pair_734376, &c_734410); +Cyc_global_variables = &c_734411; +cont = ((closure1_type *)cont)->element; +(((closure)__glo_lib_91init_117schemeread_scheme_read)->fn)(data, 1, cont, cont); +} diff --git a/debug/read/read.c b/debug/read/read.c new file mode 100644 index 00000000..0d28b5a0 --- /dev/null +++ b/debug/read/read.c @@ -0,0 +1,8922 @@ +/** + ** This file was automatically generated by the Cyclone scheme compiler + ** + ** (c) 2014-2016 Justin Ethier + ** Version 0.0.7 (Pre-release) + ** + **/ + +#define closcall1(td, clo,a1) \ +if (type_of(clo) == pair_tag || prim(clo)) { \ + Cyc_apply(td, 0, (closure)(a1), clo); \ +} else { \ + ((clo)->fn)(td, 1, clo,a1);\ +} +#define return_closcall1(td, clo,a1) { \ + char top; \ + if (stack_overflow(&top, (((gc_thread_data *)data)->stack_limit))) { \ + object buf[1]; buf[0] = a1;\ + GC(td, clo, buf, 1); \ + return; \ + } else {\ + closcall1(td, (closure) (clo),a1); \ + return;\ + } \ +} + +#define return_direct1(td, _fn,a1) { \ + char top; \ + if (stack_overflow(&top, (((gc_thread_data *)data)->stack_limit))) { \ + object buf[1]; buf[0] = a1; \ + mclosure0(c1, _fn); \ + GC(td, &c1, buf, 1); \ + return; \ + } else { \ + (_fn)(td, 1, (closure)_fn,a1); \ + }} + +#define closcall2(td, clo,a1,a2) \ +if (type_of(clo) == pair_tag || prim(clo)) { \ + Cyc_apply(td, 1, (closure)(a1), clo,a2); \ +} else { \ + ((clo)->fn)(td, 2, clo,a1,a2);\ +} +#define return_closcall2(td, clo,a1,a2) { \ + char top; \ + if (stack_overflow(&top, (((gc_thread_data *)data)->stack_limit))) { \ + object buf[2]; buf[0] = a1;buf[1] = a2;\ + GC(td, clo, buf, 2); \ + return; \ + } else {\ + closcall2(td, (closure) (clo),a1,a2); \ + return;\ + } \ +} + +#define return_direct2(td, _fn,a1,a2) { \ + char top; \ + if (stack_overflow(&top, (((gc_thread_data *)data)->stack_limit))) { \ + object buf[2]; buf[0] = a1;buf[1] = a2; \ + mclosure0(c1, _fn); \ + GC(td, &c1, buf, 2); \ + return; \ + } else { \ + (_fn)(td, 2, (closure)_fn,a1,a2); \ + }} + +#define closcall3(td, clo,a1,a2,a3) \ +if (type_of(clo) == pair_tag || prim(clo)) { \ + Cyc_apply(td, 2, (closure)(a1), clo,a2,a3); \ +} else { \ + ((clo)->fn)(td, 3, clo,a1,a2,a3);\ +} +#define return_closcall3(td, clo,a1,a2,a3) { \ + char top; \ + if (stack_overflow(&top, (((gc_thread_data *)data)->stack_limit))) { \ + object buf[3]; buf[0] = a1;buf[1] = a2;buf[2] = a3;\ + GC(td, clo, buf, 3); \ + return; \ + } else {\ + closcall3(td, (closure) (clo),a1,a2,a3); \ + return;\ + } \ +} + +#define return_direct3(td, _fn,a1,a2,a3) { \ + char top; \ + if (stack_overflow(&top, (((gc_thread_data *)data)->stack_limit))) { \ + object buf[3]; buf[0] = a1;buf[1] = a2;buf[2] = a3; \ + mclosure0(c1, _fn); \ + GC(td, &c1, buf, 3); \ + return; \ + } else { \ + (_fn)(td, 3, (closure)_fn,a1,a2,a3); \ + }} + +#define closcall4(td, clo,a1,a2,a3,a4) \ +if (type_of(clo) == pair_tag || prim(clo)) { \ + Cyc_apply(td, 3, (closure)(a1), clo,a2,a3,a4); \ +} else { \ + ((clo)->fn)(td, 4, clo,a1,a2,a3,a4);\ +} +#define return_closcall4(td, clo,a1,a2,a3,a4) { \ + char top; \ + if (stack_overflow(&top, (((gc_thread_data *)data)->stack_limit))) { \ + object buf[4]; buf[0] = a1;buf[1] = a2;buf[2] = a3;buf[3] = a4;\ + GC(td, clo, buf, 4); \ + return; \ + } else {\ + closcall4(td, (closure) (clo),a1,a2,a3,a4); \ + return;\ + } \ +} + +#define return_direct4(td, _fn,a1,a2,a3,a4) { \ + char top; \ + if (stack_overflow(&top, (((gc_thread_data *)data)->stack_limit))) { \ + object buf[4]; buf[0] = a1;buf[1] = a2;buf[2] = a3;buf[3] = a4; \ + mclosure0(c1, _fn); \ + GC(td, &c1, buf, 4); \ + return; \ + } else { \ + (_fn)(td, 4, (closure)_fn,a1,a2,a3,a4); \ + }} + +#define closcall5(td, clo,a1,a2,a3,a4,a5) \ +if (type_of(clo) == pair_tag || prim(clo)) { \ + Cyc_apply(td, 4, (closure)(a1), clo,a2,a3,a4,a5); \ +} else { \ + ((clo)->fn)(td, 5, clo,a1,a2,a3,a4,a5);\ +} +#define return_closcall5(td, clo,a1,a2,a3,a4,a5) { \ + char top; \ + if (stack_overflow(&top, (((gc_thread_data *)data)->stack_limit))) { \ + object buf[5]; buf[0] = a1;buf[1] = a2;buf[2] = a3;buf[3] = a4;buf[4] = a5;\ + GC(td, clo, buf, 5); \ + return; \ + } else {\ + closcall5(td, (closure) (clo),a1,a2,a3,a4,a5); \ + return;\ + } \ +} + +#define return_direct5(td, _fn,a1,a2,a3,a4,a5) { \ + char top; \ + if (stack_overflow(&top, (((gc_thread_data *)data)->stack_limit))) { \ + object buf[5]; buf[0] = a1;buf[1] = a2;buf[2] = a3;buf[3] = a4;buf[4] = a5; \ + mclosure0(c1, _fn); \ + GC(td, &c1, buf, 5); \ + return; \ + } else { \ + (_fn)(td, 5, (closure)_fn,a1,a2,a3,a4,a5); \ + }} + +#define closcall6(td, clo,a1,a2,a3,a4,a5,a6) \ +if (type_of(clo) == pair_tag || prim(clo)) { \ + Cyc_apply(td, 5, (closure)(a1), clo,a2,a3,a4,a5,a6); \ +} else { \ + ((clo)->fn)(td, 6, clo,a1,a2,a3,a4,a5,a6);\ +} +#define return_closcall6(td, clo,a1,a2,a3,a4,a5,a6) { \ + char top; \ + if (stack_overflow(&top, (((gc_thread_data *)data)->stack_limit))) { \ + object buf[6]; buf[0] = a1;buf[1] = a2;buf[2] = a3;buf[3] = a4;buf[4] = a5;buf[5] = a6;\ + GC(td, clo, buf, 6); \ + return; \ + } else {\ + closcall6(td, (closure) (clo),a1,a2,a3,a4,a5,a6); \ + return;\ + } \ +} + +#define return_direct6(td, _fn,a1,a2,a3,a4,a5,a6) { \ + char top; \ + if (stack_overflow(&top, (((gc_thread_data *)data)->stack_limit))) { \ + object buf[6]; buf[0] = a1;buf[1] = a2;buf[2] = a3;buf[3] = a4;buf[4] = a5;buf[5] = a6; \ + mclosure0(c1, _fn); \ + GC(td, &c1, buf, 6); \ + return; \ + } else { \ + (_fn)(td, 6, (closure)_fn,a1,a2,a3,a4,a5,a6); \ + }} + +#define closcall8(td, clo,a1,a2,a3,a4,a5,a6,a7,a8) \ +if (type_of(clo) == pair_tag || prim(clo)) { \ + Cyc_apply(td, 7, (closure)(a1), clo,a2,a3,a4,a5,a6,a7,a8); \ +} else { \ + ((clo)->fn)(td, 8, clo,a1,a2,a3,a4,a5,a6,a7,a8);\ +} +#define return_closcall8(td, clo,a1,a2,a3,a4,a5,a6,a7,a8) { \ + char top; \ + if (stack_overflow(&top, (((gc_thread_data *)data)->stack_limit))) { \ + object buf[8]; buf[0] = a1;buf[1] = a2;buf[2] = a3;buf[3] = a4;buf[4] = a5;buf[5] = a6;buf[6] = a7;buf[7] = a8;\ + GC(td, clo, buf, 8); \ + return; \ + } else {\ + closcall8(td, (closure) (clo),a1,a2,a3,a4,a5,a6,a7,a8); \ + return;\ + } \ +} + +#define return_direct8(td, _fn,a1,a2,a3,a4,a5,a6,a7,a8) { \ + char top; \ + if (stack_overflow(&top, (((gc_thread_data *)data)->stack_limit))) { \ + object buf[8]; buf[0] = a1;buf[1] = a2;buf[2] = a3;buf[3] = a4;buf[4] = a5;buf[5] = a6;buf[6] = a7;buf[7] = a8; \ + mclosure0(c1, _fn); \ + GC(td, &c1, buf, 8); \ + return; \ + } else { \ + (_fn)(td, 8, (closure)_fn,a1,a2,a3,a4,a5,a6,a7,a8); \ + }} + +#define closcall9(td, clo,a1,a2,a3,a4,a5,a6,a7,a8,a9) \ +if (type_of(clo) == pair_tag || prim(clo)) { \ + Cyc_apply(td, 8, (closure)(a1), clo,a2,a3,a4,a5,a6,a7,a8,a9); \ +} else { \ + ((clo)->fn)(td, 9, clo,a1,a2,a3,a4,a5,a6,a7,a8,a9);\ +} +#define return_closcall9(td, clo,a1,a2,a3,a4,a5,a6,a7,a8,a9) { \ + char top; \ + if (stack_overflow(&top, (((gc_thread_data *)data)->stack_limit))) { \ + object buf[9]; buf[0] = a1;buf[1] = a2;buf[2] = a3;buf[3] = a4;buf[4] = a5;buf[5] = a6;buf[6] = a7;buf[7] = a8;buf[8] = a9;\ + GC(td, clo, buf, 9); \ + return; \ + } else {\ + closcall9(td, (closure) (clo),a1,a2,a3,a4,a5,a6,a7,a8,a9); \ + return;\ + } \ +} + +#define return_direct9(td, _fn,a1,a2,a3,a4,a5,a6,a7,a8,a9) { \ + char top; \ + if (stack_overflow(&top, (((gc_thread_data *)data)->stack_limit))) { \ + object buf[9]; buf[0] = a1;buf[1] = a2;buf[2] = a3;buf[3] = a4;buf[4] = a5;buf[5] = a6;buf[6] = a7;buf[7] = a8;buf[8] = a9; \ + mclosure0(c1, _fn); \ + GC(td, &c1, buf, 9); \ + return; \ + } else { \ + (_fn)(td, 9, (closure)_fn,a1,a2,a3,a4,a5,a6,a7,a8,a9); \ + }} + +#include "cyclone/types.h" +object __glo_lib_91init_117schemeread_scheme_read = NULL; +object __glo_read_91all_scheme_read = NULL; +object __glo_cyc_91read_scheme_read = NULL; +object __glo_hex_91digit_127_scheme_read = NULL; +object __glo_parse_91number_91rec_scheme_read = NULL; +object __glo_parse_91number_scheme_read = NULL; +object __glo_parse_91li_91rec_scheme_read = NULL; +object __glo_parse_91literal_91identifier_scheme_read = NULL; +object __glo_read_91block_91terminator_scheme_read = NULL; +object __glo_read_91block_91comment_scheme_read = NULL; +object __glo_get_91next_91char_scheme_read = NULL; +object __glo_parse_91atom_scheme_read = NULL; +object __glo_token_91numeric_127_scheme_read = NULL; +object __glo_sign_127_scheme_read = NULL; +object __glo_read_91str_91esc_scheme_read = NULL; +object __glo_read_91str_scheme_read = NULL; +object __glo_read_91pound_scheme_read = NULL; +object __glo_parse_scheme_read = NULL; +object __glo_parse_95tok_scheme_read = NULL; +object __glo_parse_91error_scheme_read = NULL; +object __glo__91_125dotted_91list_scheme_read = NULL; +object __glo_dotted_127_scheme_read = NULL; +object __glo__91_125tok_scheme_read = NULL; +object __glo_get_91toks_scheme_read = NULL; +object __glo_add_91tok_scheme_read = NULL; +object __glo_in_91port_117set_91cnum_67_scheme_read = NULL; +object __glo_in_91port_117get_91cnum_scheme_read = NULL; +object __glo_in_91port_117set_91lnum_67_scheme_read = NULL; +object __glo_in_91port_117get_91lnum_scheme_read = NULL; +object __glo_in_91port_117set_91buf_67_scheme_read = NULL; +object __glo_in_91port_117get_91buf_scheme_read = NULL; +object __glo_in_91port_117read_91buf_67_scheme_read = NULL; +object __glo_reg_91port_scheme_read = NULL; +object __glo__85in_91port_91table_85_scheme_read = NULL; +object __glo_read_scheme_read = NULL; +extern object __glo_cons_91source_scheme_base; +extern object __glo_syntax_91rules_scheme_base; +extern object __glo_letrec_85_scheme_base; +extern object __glo_guard_scheme_base; +extern object __glo_guard_91aux_scheme_base; +extern object __glo_define_91record_91type_scheme_base; +extern object __glo_record_127_scheme_base; +extern object __glo_register_91simple_91type_scheme_base; +extern object __glo_make_91type_91predicate_scheme_base; +extern object __glo_make_91constructor_scheme_base; +extern object __glo_make_91getter_scheme_base; +extern object __glo_make_91setter_scheme_base; +extern object __glo_slot_91set_67_scheme_base; +extern object __glo_type_91slot_91offset_scheme_base; +extern object __glo_receive_scheme_base; +extern object __glo_abs_scheme_base; +extern object __glo_max_scheme_base; +extern object __glo_min_scheme_base; +extern object __glo_modulo_scheme_base; +extern object __glo_floor_91remainder_scheme_base; +extern object __glo_even_127_scheme_base; +extern object __glo_exact_91integer_127_scheme_base; +extern object __glo_exact_127_scheme_base; +extern object __glo_inexact_127_scheme_base; +extern object __glo_odd_127_scheme_base; +extern object __glo_complex_127_scheme_base; +extern object __glo_rational_127_scheme_base; +extern object __glo_gcd_scheme_base; +extern object __glo_lcm_scheme_base; +extern object __glo_quotient_scheme_base; +extern object __glo_remainder_scheme_base; +extern object __glo_truncate_91quotient_scheme_base; +extern object __glo_truncate_91remainder_scheme_base; +extern object __glo_truncate_95_scheme_base; +extern object __glo_floor_91quotient_scheme_base; +extern object __glo_floor_91remainder_scheme_base; +extern object __glo_floor_95_scheme_base; +extern object __glo_square_scheme_base; +extern object __glo_expt_scheme_base; +extern object __glo_call_91with_91current_91continuation_scheme_base; +extern object __glo_call_95cc_scheme_base; +extern object __glo_call_91with_91values_scheme_base; +extern object __glo_dynamic_91wind_scheme_base; +extern object __glo_values_scheme_base; +extern object __glo_char_123_127_scheme_base; +extern object __glo_char_121_127_scheme_base; +extern object __glo_char_125_127_scheme_base; +extern object __glo_char_121_123_127_scheme_base; +extern object __glo_char_125_123_127_scheme_base; +extern object __glo_string_123_127_scheme_base; +extern object __glo_string_121_127_scheme_base; +extern object __glo_string_121_123_127_scheme_base; +extern object __glo_string_125_127_scheme_base; +extern object __glo_string_125_123_127_scheme_base; +extern object __glo_foldl_scheme_base; +extern object __glo_foldr_scheme_base; +extern object __glo_not_scheme_base; +extern object __glo_list_127_scheme_base; +extern object __glo_zero_127_scheme_base; +extern object __glo_positive_127_scheme_base; +extern object __glo_negative_127_scheme_base; +extern object __glo_append_scheme_base; +extern object __glo__list_scheme_base; +extern object __glo_make_91list_scheme_base; +extern object __glo_list_91copy_scheme_base; +extern object __glo_map_scheme_base; +extern object __glo_for_91each_scheme_base; +extern object __glo_list_91tail_scheme_base; +extern object __glo_list_91ref_scheme_base; +extern object __glo_list_91set_67_scheme_base; +extern object __glo_reverse_scheme_base; +extern object __glo_boolean_123_127_scheme_base; +extern object __glo_symbol_123_127_scheme_base; +extern object __glo_Cyc_91obj_123_127_scheme_base; +extern object __glo_vector_scheme_base; +extern object __glo_vector_91append_scheme_base; +extern object __glo_vector_91copy_scheme_base; +extern object __glo_vector_91copy_67_scheme_base; +extern object __glo_vector_91fill_67_scheme_base; +extern object __glo_vector_91_125list_scheme_base; +extern object __glo_vector_91_125string_scheme_base; +extern object __glo_vector_91map_scheme_base; +extern object __glo_vector_91for_91each_scheme_base; +extern object __glo_make_91string_scheme_base; +extern object __glo_string_scheme_base; +extern object __glo_string_91copy_scheme_base; +extern object __glo_string_91copy_67_scheme_base; +extern object __glo_string_91fill_67_scheme_base; +extern object __glo_string_91_125list_scheme_base; +extern object __glo_string_91_125vector_scheme_base; +extern object __glo_string_91map_scheme_base; +extern object __glo_string_91for_91each_scheme_base; +extern object __glo_make_91parameter_scheme_base; +extern object __glo_current_91output_91port_scheme_base; +extern object __glo_current_91input_91port_scheme_base; +extern object __glo_current_91error_91port_scheme_base; +extern object __glo_call_91with_91port_scheme_base; +extern object __glo_error_scheme_base; +extern object __glo_raise_scheme_base; +extern object __glo_raise_91continuable_scheme_base; +extern object __glo_with_91exception_91handler_scheme_base; +extern object __glo_Cyc_91add_91exception_91handler_scheme_base; +extern object __glo_Cyc_91remove_91exception_91handler_scheme_base; +extern object __glo_newline_scheme_base; +extern object __glo_write_91char_scheme_base; +extern object __glo_write_91string_scheme_base; +extern object __glo_flush_91output_91port_scheme_base; +extern object __glo_read_91line_scheme_base; +extern object __glo_read_91string_scheme_base; +extern object __glo_input_91port_127_scheme_base; +extern object __glo_output_91port_127_scheme_base; +extern object __glo_input_91port_91open_127_scheme_base; +extern object __glo_output_91port_91open_127_scheme_base; +extern object __glo_features_scheme_base; +extern object __glo_any_scheme_base; +extern object __glo_every_scheme_base; +extern object __glo_and_scheme_base; +extern object __glo_or_scheme_base; +extern object __glo_let_scheme_base; +extern object __glo_let_85_scheme_base; +extern object __glo_letrec_scheme_base; +extern object __glo_begin_scheme_base; +extern object __glo__case_scheme_base; +extern object __glo_cond_scheme_base; +extern object __glo_cond_91expand_scheme_base; +extern object __glo__do_scheme_base; +extern object __glo_when_scheme_base; +extern object __glo_unless_scheme_base; +extern object __glo_quasiquote_scheme_base; +extern object __glo_floor_scheme_base; +extern object __glo_ceiling_scheme_base; +extern object __glo_truncate_scheme_base; +extern object __glo_round_scheme_base; +extern object __glo_exact_scheme_base; +extern object __glo_inexact_scheme_base; +extern object __glo_eof_91object_scheme_base; +extern object __glo_syntax_91error_scheme_base; +extern object __glo_bytevector_91copy_scheme_base; +extern object __glo_utf8_91_125string_scheme_base; +extern object __glo_string_91_125utf8_scheme_base; +extern object __glo_denominator_scheme_base; +extern object __glo_numerator_scheme_base; +extern object __glo_display_scheme_write; +extern object __glo_write_scheme_write; +extern object __glo_char_91alphabetic_127_scheme__char; +extern object __glo_char_91downcase_scheme__char; +extern object __glo_char_91foldcase_scheme__char; +extern object __glo_char_91lower_91case_127_scheme__char; +extern object __glo_char_91numeric_127_scheme__char; +extern object __glo_char_91upcase_scheme__char; +extern object __glo_char_91upper_91case_127_scheme__char; +extern object __glo_char_91whitespace_127_scheme__char; +extern object __glo_char_91ci_121_123_127_scheme__char; +extern object __glo_char_91ci_121_127_scheme__char; +extern object __glo_char_91ci_123_127_scheme__char; +extern object __glo_char_91ci_125_123_127_scheme__char; +extern object __glo_char_91ci_125_127_scheme__char; +extern object __glo_digit_91value_scheme__char; +extern object __glo_string_91upcase_scheme__char; +extern object __glo_string_91downcase_scheme__char; +extern object __glo_string_91foldcase_scheme__char; +extern object __glo_string_91ci_121_123_127_scheme__char; +extern object __glo_string_91ci_121_127_scheme__char; +extern object __glo_string_91ci_123_127_scheme__char; +extern object __glo_string_91ci_125_123_127_scheme__char; +extern object __glo_string_91ci_125_127_scheme__char; +#include "cyclone/runtime.h" +defsymbol(DEBUG); +defsymbol(read); +defsymbol(unquote); +defsymbol(unquote_91splicing); +defsymbol(quasiquote); +defsymbol(quote); +static void __lambda_406(void *data, int argc, closure _,object k_73267) ; +static void __lambda_405(void *data, int argc, object self_73834, object r_73269) ; +static void __lambda_404(void *data, int argc, object self_73835, object r_73270) ; +static void __lambda_403(void *data, int argc, closure _,object k_73273, object args_73117_raw, ...) ; +static void __lambda_402(void *data, int argc, object self_73836, object fp_73119) ; +static void __lambda_401(void *data, int argc, object self_73837, object loop_73120) ; +static void __lambda_400(void *data, int argc, object self_73838, object loop_73120) ; +static void __lambda_399(void *data, int argc, object self_73839, object k_73278, object fp_73122, object result_73121) ; +static void __lambda_398(void *data, int argc, object self_73840, object obj_73123) ; +static void __lambda_397(void *data, int argc, object self_73841, object r_73277) ; +static void __lambda_396(void *data, int argc, object self_73842, object r_73275) ; +static void __lambda_395(void *data, int argc, object self_73843, object r_73276) ; +static void __lambda_394(void *data, int argc, object self_73844, object k_73282) ; +static void __lambda_393(void *data, int argc, closure _,object k_73286, object args_73124_raw, ...) ; +static void __lambda_392(void *data, int argc, object self_73845, object fp_73125) ; +static void __lambda_391(void *data, int argc, object self_73846, object r_73288) ; +static void __lambda_390(void *data, int argc, object self_73847, object r_73289) ; +static void __lambda_389(void *data, int argc, object self_73848, object r_73290) ; +static void __lambda_388(void *data, int argc, object self_73849, object k_73291) ; +static void __lambda_387(void *data, int argc, closure _,object k_73295, object c_73126) ; +static void __lambda_386(void *data, int argc, object self_73850, object tmp_73127) ; +static void __lambda_385(void *data, int argc, object self_73851, object r_73297) ; +static void __lambda_384(void *data, int argc, object self_73852, object k_73298) ; +static void __lambda_383(void *data, int argc, object self_73853, object r_73299) ; +static void __lambda_382(void *data, int argc, closure _,object k_73302, object base_73131, object fp_73130, object tok_73129, object ptbl_73128) ; +static void __lambda_381(void *data, int argc, object self_73854, object r_73303) ; +static void __lambda_380(void *data, int argc, object self_73855, object k_73322, object c_73132) ; +static void __lambda_379(void *data, int argc, object self_73856, object r_73304) ; +static void __lambda_378(void *data, int argc, object self_73857, object c_73134, object next_73133) ; +static void __lambda_377(void *data, int argc, object self_73858, object r_73305) ; +static void __lambda_376(void *data, int argc, object self_73859, object r_73307) ; +static void __lambda_375(void *data, int argc, object self_73860, object r_73318) ; +static void __lambda_374(void *data, int argc, object self_73861, object r_73319) ; +static void __lambda_373(void *data, int argc, object self_73862, object k_73320) ; +static void __lambda_372(void *data, int argc, object self_73863, object r_73321) ; +static void __lambda_371(void *data, int argc, object self_73864, object r_73308) ; +static void __lambda_370(void *data, int argc, object self_73865, object k_73309) ; +static void __lambda_369(void *data, int argc, object self_73866, object tmp_73135) ; +static void __lambda_368(void *data, int argc, object self_73867, object r_73310) ; +static void __lambda_367(void *data, int argc, object self_73868, object r_73311) ; +static void __lambda_366(void *data, int argc, object self_73869, object r_73312) ; +static void __lambda_365(void *data, int argc, object self_73870, object k_73314) ; +static void __lambda_364(void *data, int argc, object self_73871, object r_73315) ; +static void __lambda_363(void *data, int argc, object self_73872, object k_73316) ; +static void __lambda_362(void *data, int argc, object self_73873, object r_73317) ; +static void __lambda_361(void *data, int argc, closure _,object k_73326, object fp_73142, object toks_73141, object all_127_73140, object parens_73139, object ptbl_73138, object base_73137, object tok_91_125num_73136) ; +static void __lambda_360(void *data, int argc, object self_73874, object r_73341) ; +static void __lambda_359(void *data, int argc, object self_73875, object num_73143) ; +static void __lambda_358(void *data, int argc, object self_73876, object r_73328) ; +static void __lambda_357(void *data, int argc, object self_73877, object r_73332) ; +static void __lambda_356(void *data, int argc, object self_73878, object r_73333) ; +static void __lambda_355(void *data, int argc, object self_73879, object result_73144) ; +static void __lambda_354(void *data, int argc, object self_73880, object r_73330) ; +static void __lambda_353(void *data, int argc, object self_73881, object k_73334) ; +static void __lambda_352(void *data, int argc, object self_73882, object tmp_73145) ; +static void __lambda_351(void *data, int argc, object self_73883, object r_73337) ; +static void __lambda_350(void *data, int argc, object self_73884, object r_73338) ; +static void __lambda_349(void *data, int argc, closure _,object k_73344, object fp_73148, object tok_73147, object ptbl_73146) ; +static void __lambda_348(void *data, int argc, object self_73885, object r_73345) ; +static void __lambda_347(void *data, int argc, object self_73886, object k_73355, object c_73149) ; +static void __lambda_346(void *data, int argc, object self_73887, object r_73346) ; +static void __lambda_345(void *data, int argc, object self_73888, object c_73151, object next_73150) ; +static void __lambda_344(void *data, int argc, object self_73889, object r_73353) ; +static void __lambda_343(void *data, int argc, object self_73890, object r_73354) ; +static void __lambda_342(void *data, int argc, object self_73891, object str_73152) ; +static void __lambda_341(void *data, int argc, object self_73892, object k_73349) ; +static void __lambda_340(void *data, int argc, object self_73893, object r_73351) ; +static void __lambda_339(void *data, int argc, closure _,object k_73359, object fp_73157, object toks_73156, object all_127_73155, object parens_73154, object ptbl_73153) ; +static void __lambda_338(void *data, int argc, object self_73894, object r_73363) ; +static void __lambda_337(void *data, int argc, object self_73895, object sym_73158) ; +static void __lambda_336(void *data, int argc, object self_73896, object r_73361) ; +static void __lambda_335(void *data, int argc, closure _,object k_73366, object fp_73160, object ptbl_73159) ; +static void __lambda_334(void *data, int argc, object self_73897, object c_73161) ; +static void __lambda_333(void *data, int argc, closure _,object k_73372, object fp_73163, object ptbl_73162) ; +static void __lambda_332(void *data, int argc, object self_73898, object c_73164) ; +static void __lambda_331(void *data, int argc, closure _,object k_73377, object fp_73166, object ptbl_73165) ; +static void __lambda_330(void *data, int argc, object self_73899, object r_73378) ; +static void __lambda_329(void *data, int argc, closure _,object k_73381, object a_73167) ; +static void __lambda_328(void *data, int argc, object self_73900, object r_73382) ; +static void __lambda_327(void *data, int argc, object self_73901, object r_73384) ; +static void __lambda_326(void *data, int argc, object self_73902, object r_73383) ; +static void __lambda_325(void *data, int argc, closure _,object k_73387, object a_73168) ; +static void __lambda_324(void *data, int argc, object self_73903, object tmp_73169) ; +static void __lambda_323(void *data, int argc, object self_73904, object tmp_73170) ; +static void __lambda_322(void *data, int argc, object self_73905, object r_73390) ; +static void __lambda_321(void *data, int argc, object self_73906, object tmp_73171) ; +static void __lambda_320(void *data, int argc, object self_73907, object r_73391) ; +static void __lambda_319(void *data, int argc, object self_73908, object k_73394) ; +static void __lambda_318(void *data, int argc, object self_73909, object k_73398) ; +static void __lambda_317(void *data, int argc, object self_73910, object r_73399) ; +static void __lambda_316(void *data, int argc, closure _,object k_73407, object c_73172) ; +static void __lambda_315(void *data, int argc, closure _,object k_73411, object fp_73176, object buf_73175, object ptbl_73174) ; +static void __lambda_314(void *data, int argc, object self_73911, object c_73177) ; +static void __lambda_313(void *data, int argc, object self_73912, object r_73416) ; +static void __lambda_312(void *data, int argc, object self_73913, object r_73422) ; +static void __lambda_311(void *data, int argc, object self_73914, object r_73421) ; +static void __lambda_310(void *data, int argc, object self_73915, object r_73418) ; +static void __lambda_309(void *data, int argc, object self_73916, object r_73419) ; +static void __lambda_308(void *data, int argc, object self_73917, object r_73420) ; +static void __lambda_307(void *data, int argc, object self_73918, object k_73424) ; +static void __lambda_306(void *data, int argc, object self_73919, object r_73414) ; +static void __lambda_305(void *data, int argc, object self_73920, object r_73415) ; +static void __lambda_304(void *data, int argc, closure _,object k_73427, object fp_73181, object buf_73180, object ptbl_73179) ; +static void __lambda_303(void *data, int argc, object self_73921, object c_73182) ; +static void __lambda_302(void *data, int argc, object self_73922, object r_73435) ; +static void __lambda_301(void *data, int argc, object self_73923, object r_73433) ; +static void __lambda_300(void *data, int argc, object self_73924, object r_73430) ; +static void __lambda_299(void *data, int argc, object self_73925, object r_73431) ; +static void __lambda_298(void *data, int argc, closure _,object k_73439, object fp_73184, object ptbl_73183) ; +static void __lambda_297(void *data, int argc, object self_73926, object done_73188, object loop_73187) ; +static void __lambda_296(void *data, int argc, object self_73927, object done_73188) ; +static void __lambda_295(void *data, int argc, object self_73928, object loop_73187) ; +static void __lambda_294(void *data, int argc, object self_73929, object k_73458, object raw_91buf_73195) ; +static void __lambda_293(void *data, int argc, object self_73930, object buf_73196) ; +static void __lambda_292(void *data, int argc, object self_73931, object r_73460) ; +static void __lambda_291(void *data, int argc, object self_73932, object r_73463) ; +static void __lambda_290(void *data, int argc, object self_73933, object r_73493) ; +static void __lambda_289(void *data, int argc, object self_73934, object r_73492) ; +static void __lambda_288(void *data, int argc, object self_73935, object r_73491) ; +static void __lambda_287(void *data, int argc, object self_73936, object r_73490) ; +static void __lambda_286(void *data, int argc, object self_73937, object r_73489) ; +static void __lambda_285(void *data, int argc, object self_73938, object r_73488) ; +static void __lambda_284(void *data, int argc, object self_73939, object r_73487) ; +static void __lambda_283(void *data, int argc, object self_73940, object r_73486) ; +static void __lambda_282(void *data, int argc, object self_73941, object r_73485) ; +static void __lambda_281(void *data, int argc, object self_73942, object r_73473) ; +static void __lambda_280(void *data, int argc, object self_73943, object r_73480) ; +static void __lambda_279(void *data, int argc, object self_73944, object r_73477) ; +static void __lambda_278(void *data, int argc, object self_73945, object r_73478) ; +static void __lambda_277(void *data, int argc, object self_73946, object r_73479) ; +static void __lambda_276(void *data, int argc, object self_73947, object r_73475) ; +static void __lambda_275(void *data, int argc, object self_73948, object r_73474) ; +static void __lambda_274(void *data, int argc, object self_73949, object k_73481) ; +static void __lambda_273(void *data, int argc, object self_73950, object r_73482) ; +static void __lambda_272(void *data, int argc, object self_73951, object r_73461) ; +static void __lambda_271(void *data, int argc, object self_73952, object r_73462) ; +static void __lambda_270(void *data, int argc, object self_73953, object r_73457) ; +static void __lambda_269(void *data, int argc, object self_73954, object r_73440) ; +static void __lambda_268(void *data, int argc, object self_73955, object k_73444, object buf_73191) ; +static void __lambda_267(void *data, int argc, object self_73956, object c_73192) ; +static void __lambda_266(void *data, int argc, object self_73957, object r_73446) ; +static void __lambda_265(void *data, int argc, object self_73958, object r_73448) ; +static void __lambda_264(void *data, int argc, object self_73959, object k_73450) ; +static void __lambda_263(void *data, int argc, object self_73960, object tmp_73194) ; +static void __lambda_262(void *data, int argc, object self_73961, object r_73452) ; +static void __lambda_261(void *data, int argc, object self_73962, object k_73454) ; +static void __lambda_260(void *data, int argc, object self_73963, object r_73455) ; +static void __lambda_259(void *data, int argc, object self_73964, object r_73443) ; +static void __lambda_258(void *data, int argc, object self_73965, object r_73441) ; +static void __lambda_257(void *data, int argc, object self_73966, object r_73442) ; +static void __lambda_256(void *data, int argc, closure _,object k_73498, object fp_73203, object tok_73202, object toks_73201, object all_127_73200, object comment_127_73199, object parens_73198, object ptbl_73197) ; +static void __lambda_255(void *data, int argc, object self_73967, object r_73748) ; +static void __lambda_254(void *data, int argc, object self_73968, object r_73747) ; +static void __lambda_253(void *data, int argc, object self_73969, object r_73499) ; +static void __lambda_252(void *data, int argc, object self_73970, object c_73205) ; +static void __lambda_251(void *data, int argc, object self_73971, object r_73738) ; +static void __lambda_250(void *data, int argc, object self_73972, object r_73740) ; +static void __lambda_249(void *data, int argc, object self_73973, object r_73744) ; +static void __lambda_248(void *data, int argc, object self_73974, object r_73501) ; +static void __lambda_247(void *data, int argc, object self_73975, object r_73736) ; +static void __lambda_246(void *data, int argc, object self_73976, object r_73502) ; +static void __lambda_245(void *data, int argc, object self_73977, object r_73520) ; +static void __lambda_244(void *data, int argc, object self_73978, object next_91c_73206) ; +static void __lambda_243(void *data, int argc, object self_73979, object next_91c_73206) ; +static void __lambda_242(void *data, int argc, object self_73980, object r_73732) ; +static void __lambda_241(void *data, int argc, object self_73981, object r_73731) ; +static void __lambda_240(void *data, int argc, object self_73982, object r_73639) ; +static void __lambda_239(void *data, int argc, object self_73983, object r_73729) ; +static void __lambda_238(void *data, int argc, object self_73984, object r_73730) ; +static void __lambda_237(void *data, int argc, object self_73985, object r_73727) ; +static void __lambda_236(void *data, int argc, object self_73986, object r_73728) ; +static void __lambda_235(void *data, int argc, object self_73987, object r_73720) ; +static void __lambda_234(void *data, int argc, object self_73988, object r_73721) ; +static void __lambda_233(void *data, int argc, object self_73989, object r_73722) ; +static void __lambda_232(void *data, int argc, object self_73990, object r_73724) ; +static void __lambda_231(void *data, int argc, object self_73991, object r_73723) ; +static void __lambda_230(void *data, int argc, object self_73992, object k_73725) ; +static void __lambda_229(void *data, int argc, object self_73993, object r_73718) ; +static void __lambda_228(void *data, int argc, object self_73994, object r_73717) ; +static void __lambda_227(void *data, int argc, object self_73995, object r_73712) ; +static void __lambda_226(void *data, int argc, object self_73996, object r_73713) ; +static void __lambda_225(void *data, int argc, object self_73997, object r_73714) ; +static void __lambda_224(void *data, int argc, object self_73998, object r_73700) ; +static void __lambda_223(void *data, int argc, object self_73999, object r_73701) ; +static void __lambda_222(void *data, int argc, object self_731000, object sub_73209, object toks_85_73208) ; +static void __lambda_221(void *data, int argc, object self_731001, object new_91toks_73210) ; +static void __lambda_220(void *data, int argc, object self_731002, object new_91toks_73210) ; +static void __lambda_219(void *data, int argc, object self_731003, object r_73705) ; +static void __lambda_218(void *data, int argc, object self_731004, object r_73704) ; +static void __lambda_217(void *data, int argc, object self_731005, object r_73702) ; +static void __lambda_216(void *data, int argc, object self_731006, object r_73703) ; +static void __lambda_215(void *data, int argc, object self_731007, object k_73706) ; +static void __lambda_214(void *data, int argc, object self_731008, object r_73707) ; +static void __lambda_213(void *data, int argc, object self_731009, object r_73708) ; +static void __lambda_212(void *data, int argc, object self_731010, object r_73709) ; +static void __lambda_211(void *data, int argc, object self_731011, object k_73710) ; +static void __lambda_210(void *data, int argc, object self_731012, object r_73698) ; +static void __lambda_209(void *data, int argc, object self_731013, object r_73670) ; +static void __lambda_208(void *data, int argc, object self_731014, object r_73671) ; +static void __lambda_207(void *data, int argc, object self_731015, object r_73693) ; +static void __lambda_206(void *data, int argc, object self_731016, object r_73672) ; +static void __lambda_205(void *data, int argc, object self_731017, object r_73673) ; +static void __lambda_204(void *data, int argc, object self_731018, object r_73686) ; +static void __lambda_203(void *data, int argc, object self_731019, object r_73687) ; +static void __lambda_202(void *data, int argc, object self_731020, object r_73688) ; +static void __lambda_201(void *data, int argc, object self_731021, object r_73674) ; +static void __lambda_200(void *data, int argc, object self_731022, object r_73675) ; +static void __lambda_199(void *data, int argc, object self_731023, object sub_73212, object toks_85_73211) ; +static void __lambda_198(void *data, int argc, object self_731024, object new_91toks_73213) ; +static void __lambda_197(void *data, int argc, object self_731025, object new_91toks_73213) ; +static void __lambda_196(void *data, int argc, object self_731026, object r_73679) ; +static void __lambda_195(void *data, int argc, object self_731027, object r_73678) ; +static void __lambda_194(void *data, int argc, object self_731028, object r_73676) ; +static void __lambda_193(void *data, int argc, object self_731029, object r_73677) ; +static void __lambda_192(void *data, int argc, object self_731030, object k_73680) ; +static void __lambda_191(void *data, int argc, object self_731031, object r_73681) ; +static void __lambda_190(void *data, int argc, object self_731032, object r_73682) ; +static void __lambda_189(void *data, int argc, object self_731033, object r_73683) ; +static void __lambda_188(void *data, int argc, object self_731034, object k_73684) ; +static void __lambda_187(void *data, int argc, object self_731035, object k_73689) ; +static void __lambda_186(void *data, int argc, object self_731036, object r_73691) ; +static void __lambda_185(void *data, int argc, object self_731037, object r_73692) ; +static void __lambda_184(void *data, int argc, object self_731038, object k_73694) ; +static void __lambda_183(void *data, int argc, object self_731039, object r_73696) ; +static void __lambda_182(void *data, int argc, object self_731040, object r_73697) ; +static void __lambda_181(void *data, int argc, object self_731041, object k_73667, object num_73214) ; +static void __lambda_180(void *data, int argc, object self_731042, object r_73668) ; +static void __lambda_179(void *data, int argc, object self_731043, object r_73666) ; +static void __lambda_178(void *data, int argc, object self_731044, object k_73663, object num_73215) ; +static void __lambda_177(void *data, int argc, object self_731045, object r_73664) ; +static void __lambda_176(void *data, int argc, object self_731046, object r_73662) ; +static void __lambda_175(void *data, int argc, object self_731047, object k_73659, object num_73216) ; +static void __lambda_174(void *data, int argc, object self_731048, object r_73660) ; +static void __lambda_173(void *data, int argc, object self_731049, object r_73658) ; +static void __lambda_172(void *data, int argc, object self_731050, object k_73655, object num_73217) ; +static void __lambda_171(void *data, int argc, object self_731051, object r_73656) ; +static void __lambda_170(void *data, int argc, object self_731052, object r_73654) ; +static void __lambda_169(void *data, int argc, object self_731053, object k_73651, object num_73218) ; +static void __lambda_168(void *data, int argc, object self_731054, object r_73652) ; +static void __lambda_167(void *data, int argc, object self_731055, object r_73650) ; +static void __lambda_166(void *data, int argc, object self_731056, object r_73647) ; +static void __lambda_165(void *data, int argc, object self_731057, object r_73644) ; +static void __lambda_164(void *data, int argc, object self_731058, object r_73641) ; +static void __lambda_163(void *data, int argc, object self_731059, object r_73642) ; +static void __lambda_162(void *data, int argc, object self_731060, object r_73624) ; +static void __lambda_161(void *data, int argc, object self_731061, object r_73633) ; +static void __lambda_160(void *data, int argc, object self_731062, object r_73628) ; +static void __lambda_159(void *data, int argc, object self_731063, object r_73629) ; +static void __lambda_158(void *data, int argc, object self_731064, object str_73220, object toks_85_73219) ; +static void __lambda_157(void *data, int argc, object self_731065, object new_91toks_73221) ; +static void __lambda_156(void *data, int argc, object self_731066, object new_91toks_73221) ; +static void __lambda_155(void *data, int argc, object self_731067, object r_73632) ; +static void __lambda_154(void *data, int argc, object self_731068, object r_73630) ; +static void __lambda_153(void *data, int argc, object self_731069, object r_73631) ; +static void __lambda_152(void *data, int argc, object self_731070, object r_73625) ; +static void __lambda_151(void *data, int argc, object self_731071, object r_73627) ; +static void __lambda_150(void *data, int argc, object self_731072, object r_73626) ; +static void __lambda_149(void *data, int argc, object self_731073, object k_73634) ; +static void __lambda_148(void *data, int argc, object self_731074, object r_73613) ; +static void __lambda_147(void *data, int argc, object self_731075, object r_73617) ; +static void __lambda_146(void *data, int argc, object self_731076, object r_73620) ; +static void __lambda_145(void *data, int argc, object self_731077, object r_73618) ; +static void __lambda_144(void *data, int argc, object self_731078, object r_73619) ; +static void __lambda_143(void *data, int argc, object self_731079, object r_73614) ; +static void __lambda_142(void *data, int argc, object self_731080, object r_73616) ; +static void __lambda_141(void *data, int argc, object self_731081, object r_73615) ; +static void __lambda_140(void *data, int argc, object self_731082, object k_73621) ; +static void __lambda_139(void *data, int argc, object self_731083, object r_73593) ; +static void __lambda_138(void *data, int argc, object self_731084, object r_73607) ; +static void __lambda_137(void *data, int argc, object self_731085, object r_73608) ; +static void __lambda_136(void *data, int argc, object self_731086, object r_73609) ; +static void __lambda_135(void *data, int argc, object self_731087, object r_73597) ; +static void __lambda_134(void *data, int argc, object self_731088, object r_73598) ; +static void __lambda_133(void *data, int argc, object self_731089, object sub_73223, object toks_85_73222) ; +static void __lambda_132(void *data, int argc, object self_731090, object new_91toks_73224) ; +static void __lambda_131(void *data, int argc, object self_731091, object new_91toks_73224) ; +static void __lambda_130(void *data, int argc, object self_731092, object r_73602) ; +static void __lambda_129(void *data, int argc, object self_731093, object r_73601) ; +static void __lambda_128(void *data, int argc, object self_731094, object r_73599) ; +static void __lambda_127(void *data, int argc, object self_731095, object r_73600) ; +static void __lambda_126(void *data, int argc, object self_731096, object k_73603) ; +static void __lambda_125(void *data, int argc, object self_731097, object r_73604) ; +static void __lambda_124(void *data, int argc, object self_731098, object k_73605) ; +static void __lambda_123(void *data, int argc, object self_731099, object r_73594) ; +static void __lambda_122(void *data, int argc, object self_731100, object r_73596) ; +static void __lambda_121(void *data, int argc, object self_731101, object r_73595) ; +static void __lambda_120(void *data, int argc, object self_731102, object k_73610) ; +static void __lambda_119(void *data, int argc, object self_731103, object r_73563) ; +static void __lambda_118(void *data, int argc, object self_731104, object sub_73228, object next_91c_73227, object unquote_91sym_73226, object new_91toks_73225) ; +static void __lambda_117(void *data, int argc, object self_731105, object sub_73228) ; +static void __lambda_116(void *data, int argc, object self_731106, object next_91c_73227) ; +static void __lambda_115(void *data, int argc, object self_731107, object unquote_91sym_73226) ; +static void __lambda_114(void *data, int argc, object self_731108, object new_91toks_73225) ; +static void __lambda_113(void *data, int argc, object self_731109, object r_73567) ; +static void __lambda_112(void *data, int argc, object self_731110, object r_73589) ; +static void __lambda_111(void *data, int argc, object self_731111, object r_73568) ; +static void __lambda_110(void *data, int argc, object self_731112, object r_73586) ; +static void __lambda_109(void *data, int argc, object self_731113, object r_73569) ; +static void __lambda_108(void *data, int argc, object self_731114, object r_73570) ; +static void __lambda_107(void *data, int argc, object self_731115, object r_73571) ; +static void __lambda_106(void *data, int argc, object self_731116, object r_73579) ; +static void __lambda_105(void *data, int argc, object self_731117, object r_73580) ; +static void __lambda_104(void *data, int argc, object self_731118, object r_73578) ; +static void __lambda_103(void *data, int argc, object self_731119, object r_73572) ; +static void __lambda_102(void *data, int argc, object self_731120, object r_73576) ; +static void __lambda_101(void *data, int argc, object self_731121, object r_73577) ; +static void __lambda_100(void *data, int argc, object self_731122, object r_73575) ; +static void __lambda_99(void *data, int argc, object self_731123, object r_73573) ; +static void __lambda_98(void *data, int argc, object self_731124, object r_73574) ; +static void __lambda_97(void *data, int argc, object self_731125, object k_73581) ; +static void __lambda_96(void *data, int argc, object self_731126, object r_73583) ; +static void __lambda_95(void *data, int argc, object self_731127, object r_73584) ; +static void __lambda_94(void *data, int argc, object self_731128, object k_73587) ; +static void __lambda_93(void *data, int argc, object self_731129, object r_73564) ; +static void __lambda_92(void *data, int argc, object self_731130, object r_73566) ; +static void __lambda_91(void *data, int argc, object self_731131, object r_73565) ; +static void __lambda_90(void *data, int argc, object self_731132, object k_73590) ; +static void __lambda_89(void *data, int argc, object self_731133, object r_73547) ; +static void __lambda_88(void *data, int argc, object self_731134, object r_73558) ; +static void __lambda_87(void *data, int argc, object self_731135, object r_73559) ; +static void __lambda_86(void *data, int argc, object self_731136, object sub_73229) ; +static void __lambda_85(void *data, int argc, object self_731137, object new_91toks_73230) ; +static void __lambda_84(void *data, int argc, object self_731138, object new_91toks_73230) ; +static void __lambda_83(void *data, int argc, object self_731139, object r_73557) ; +static void __lambda_82(void *data, int argc, object self_731140, object r_73555) ; +static void __lambda_81(void *data, int argc, object self_731141, object r_73556) ; +static void __lambda_80(void *data, int argc, object self_731142, object r_73554) ; +static void __lambda_79(void *data, int argc, object self_731143, object r_73552) ; +static void __lambda_78(void *data, int argc, object self_731144, object r_73553) ; +static void __lambda_77(void *data, int argc, object self_731145, object r_73548) ; +static void __lambda_76(void *data, int argc, object self_731146, object r_73550) ; +static void __lambda_75(void *data, int argc, object self_731147, object r_73549) ; +static void __lambda_74(void *data, int argc, object self_731148, object k_73560) ; +static void __lambda_73(void *data, int argc, object self_731149, object r_73531) ; +static void __lambda_72(void *data, int argc, object self_731150, object r_73542) ; +static void __lambda_71(void *data, int argc, object self_731151, object r_73543) ; +static void __lambda_70(void *data, int argc, object self_731152, object sub_73231) ; +static void __lambda_69(void *data, int argc, object self_731153, object new_91toks_73232) ; +static void __lambda_68(void *data, int argc, object self_731154, object new_91toks_73232) ; +static void __lambda_67(void *data, int argc, object self_731155, object r_73541) ; +static void __lambda_66(void *data, int argc, object self_731156, object r_73539) ; +static void __lambda_65(void *data, int argc, object self_731157, object r_73540) ; +static void __lambda_64(void *data, int argc, object self_731158, object r_73538) ; +static void __lambda_63(void *data, int argc, object self_731159, object r_73536) ; +static void __lambda_62(void *data, int argc, object self_731160, object r_73537) ; +static void __lambda_61(void *data, int argc, object self_731161, object r_73532) ; +static void __lambda_60(void *data, int argc, object self_731162, object r_73534) ; +static void __lambda_59(void *data, int argc, object self_731163, object r_73533) ; +static void __lambda_58(void *data, int argc, object self_731164, object k_73544) ; +static void __lambda_57(void *data, int argc, object self_731165, object r_73521) ; +static void __lambda_56(void *data, int argc, object self_731166, object r_73522) ; +static void __lambda_55(void *data, int argc, object self_731167, object k_73523) ; +static void __lambda_54(void *data, int argc, object self_731168, object k_73525) ; +static void __lambda_53(void *data, int argc, object self_731169, object r_73528) ; +static void __lambda_52(void *data, int argc, object self_731170, object r_73527) ; +static void __lambda_51(void *data, int argc, object self_731171, object r_73519) ; +static void __lambda_50(void *data, int argc, object self_731172, object r_73518) ; +static void __lambda_49(void *data, int argc, object self_731173, object r_73517) ; +static void __lambda_48(void *data, int argc, object self_731174, object r_73514) ; +static void __lambda_47(void *data, int argc, object self_731175, object r_73515) ; +static void __lambda_46(void *data, int argc, object self_731176, object r_73516) ; +static void __lambda_45(void *data, int argc, object self_731177, object r_73504) ; +static void __lambda_44(void *data, int argc, object self_731178, object last_73233) ; +static void __lambda_43(void *data, int argc, object self_731179, object r_73507) ; +static void __lambda_42(void *data, int argc, object self_731180, object r_73505) ; +static void __lambda_41(void *data, int argc, object self_731181, object k_73509) ; +static void __lambda_40(void *data, int argc, object self_731182, object r_73510) ; +static void __lambda_39(void *data, int argc, object self_731183, object r_73511) ; +static void __lambda_38(void *data, int argc, object self_731184, object r_73512) ; +static void __lambda_37(void *data, int argc, object self_731185, object k_73745) ; +static void __lambda_36(void *data, int argc, object self_731186, object r_73746) ; +static void __lambda_35(void *data, int argc, closure _,object k_73751, object fp_73241, object tok_73240, object toks_73239, object all_127_73238, object comment_127_73237, object parens_73236, object ptbl_73235, object curr_91char_73234) ; +static void __lambda_34(void *data, int argc, object self_731187, object r_73757) ; +static void __lambda_33(void *data, int argc, object self_731188, object r_73759) ; +static void __lambda_32(void *data, int argc, object self_731189, object r_73758) ; +static void __lambda_31(void *data, int argc, object self_731190, object r_73754) ; +static void __lambda_30(void *data, int argc, object self_731191, object r_73756) ; +static void __lambda_29(void *data, int argc, object self_731192, object r_73755) ; +static void __lambda_28(void *data, int argc, object self_731193, object r_73753) ; +static void __lambda_27(void *data, int argc, closure _,object k_73762, object msg_73244, object lnum_73243, object cnum_73242) ; +static void __lambda_26(void *data, int argc, object self_731194, object r_73764) ; +static void __lambda_25(void *data, int argc, object self_731195, object r_73765) ; +static void __lambda_24(void *data, int argc, object self_731196, object r_73763) ; +static void __lambda_23(void *data, int argc, closure _,object k_73768, object lst_73245) ; +static void __lambda_22(void *data, int argc, object self_731197, object r_73772) ; +static void __lambda_21(void *data, int argc, closure _,object k_73778, object lst_73246) ; +static void __lambda_20(void *data, int argc, object self_731198, object r_73779) ; +static void __lambda_19(void *data, int argc, object self_731199, object r_73782) ; +static void __lambda_18(void *data, int argc, closure _,object k_73786, object lst_73247) ; +static void __lambda_17(void *data, int argc, object self_731200, object r_73787) ; +static void __lambda_16(void *data, int argc, closure _,object k_73790, object tok_73249, object toks_73248) ; +static void __lambda_15(void *data, int argc, object self_731201, object r_73792) ; +static void __lambda_14(void *data, int argc, closure _,object k_73795, object tok_73251, object toks_73250) ; +static void __lambda_13(void *data, int argc, closure _,object k_73798, object ptbl_73253, object cnum_73252) ; +static void __lambda_12(void *data, int argc, closure _,object k_73802, object ptbl_73254) ; +static void __lambda_11(void *data, int argc, closure _,object k_73805, object ptbl_73256, object lnum_73255) ; +static void __lambda_10(void *data, int argc, closure _,object k_73809, object ptbl_73257) ; +static void __lambda_9(void *data, int argc, closure _,object k_73812, object ptbl_73259, object buf_73258) ; +static void __lambda_8(void *data, int argc, closure _,object k_73816, object ptbl_73260) ; +static void __lambda_7(void *data, int argc, closure _,object k_73819, object ptbl_73261) ; +static void __lambda_6(void *data, int argc, object self_731202, object r_73821) ; +static void __lambda_5(void *data, int argc, closure _,object k_73824, object fp_73263) ; +static void __lambda_4(void *data, int argc, object self_731203, object r_73264) ; +static void __lambda_3(void *data, int argc, object self_731204, object r_73264) ; +static void __lambda_2(void *data, int argc, object self_731205, object r_73829) ; +static void __lambda_1(void *data, int argc, object self_731206, object r_73826) ; +static void __lambda_0(void *data, int argc, object self_731207, object r_73827) ; + +static void __lambda_406(void *data, int argc, closure _,object k_73267) { + Cyc_st_add(data, "scheme/read.sld:lib-init:schemeread"); + +closureN_type c_733650; +c_733650.hdr.mark = gc_color_red; + c_733650.hdr.grayed = 0; +c_733650.tag = closureN_tag; + c_733650.fn = (function_type)__lambda_405; +c_733650.num_args = 1; +c_733650.num_elements = 1; +c_733650.elements = (object *)alloca(sizeof(object) * 1); +c_733650.elements[0] = k_73267; + +return_closcall1(data,(closure)&c_733650, global_set(__glo_read_scheme_read, __glo_cyc_91read_scheme_read));; +} + +static void __lambda_405(void *data, int argc, object self_73834, object r_73269) { + +closureN_type c_733652; +c_733652.hdr.mark = gc_color_red; + c_733652.hdr.grayed = 0; +c_733652.tag = closureN_tag; + c_733652.fn = (function_type)__lambda_404; +c_733652.num_args = 1; +c_733652.num_elements = 1; +c_733652.elements = (object *)alloca(sizeof(object) * 1); +c_733652.elements[0] = ((closureN)self_73834)->elements[0]; + +return_closcall1(data,(closure)&c_733652, NULL);; +} + +static void __lambda_404(void *data, int argc, object self_73835, object r_73270) { + return_closcall1(data, ((closureN)self_73835)->elements[0], global_set(__glo__85in_91port_91table_85_scheme_read, r_73270));; +} + +static void __lambda_403(void *data, int argc, closure _,object k_73273, object args_73117_raw, ...) { +load_varargs(args_73117, args_73117_raw, argc - 1); + Cyc_st_add(data, "scheme/read.sld:read-all"); + +closureN_type c_733598; +c_733598.hdr.mark = gc_color_red; + c_733598.hdr.grayed = 0; +c_733598.tag = closureN_tag; + c_733598.fn = (function_type)__lambda_394; +c_733598.num_args = 0; +c_733598.num_elements = 1; +c_733598.elements = (object *)alloca(sizeof(object) * 1); +c_733598.elements[0] = args_73117; + + +closureN_type c_733607; +c_733607.hdr.mark = gc_color_red; + c_733607.hdr.grayed = 0; +c_733607.tag = closureN_tag; + c_733607.fn = (function_type)__lambda_402; +c_733607.num_args = 1; +c_733607.num_elements = 1; +c_733607.elements = (object *)alloca(sizeof(object) * 1); +c_733607.elements[0] = k_73273; + +return_closcall1(data,(closure)&c_733598, &c_733607);; +} + +static void __lambda_402(void *data, int argc, object self_73836, object fp_73119) { + +closureN_type c_733609; +c_733609.hdr.mark = gc_color_red; + c_733609.hdr.grayed = 0; +c_733609.tag = closureN_tag; + c_733609.fn = (function_type)__lambda_401; +c_733609.num_args = 1; +c_733609.num_elements = 2; +c_733609.elements = (object *)alloca(sizeof(object) * 2); +c_733609.elements[0] = fp_73119; +c_733609.elements[1] = ((closureN)self_73836)->elements[0]; + +return_closcall1(data,(closure)&c_733609, boolean_f);; +} + +static void __lambda_401(void *data, int argc, object self_73837, object loop_73120) { + +closureN_type c_733611; +c_733611.hdr.mark = gc_color_red; + c_733611.hdr.grayed = 0; +c_733611.tag = closureN_tag; + c_733611.fn = (function_type)__lambda_400; +c_733611.num_args = 1; +c_733611.num_elements = 2; +c_733611.elements = (object *)alloca(sizeof(object) * 2); +c_733611.elements[0] = ((closureN)self_73837)->elements[0]; +c_733611.elements[1] = ((closureN)self_73837)->elements[1]; + + +make_cell(c_733647,loop_73120); +return_closcall1(data,(closure)&c_733611, &c_733647);; +} + +static void __lambda_400(void *data, int argc, object self_73838, object loop_73120) { + +closureN_type c_733613; +c_733613.hdr.mark = gc_color_red; + c_733613.hdr.grayed = 0; +c_733613.tag = closureN_tag; + c_733613.fn = (function_type)__lambda_397; +c_733613.num_args = 1; +c_733613.num_elements = 3; +c_733613.elements = (object *)alloca(sizeof(object) * 3); +c_733613.elements[0] = ((closureN)self_73838)->elements[0]; +c_733613.elements[1] = ((closureN)self_73838)->elements[1]; +c_733613.elements[2] = loop_73120; + + +closureN_type c_733627; +c_733627.hdr.mark = gc_color_red; + c_733627.hdr.grayed = 0; +c_733627.tag = closureN_tag; + c_733627.fn = (function_type)__lambda_399; +c_733627.num_args = 2; +c_733627.num_elements = 1; +c_733627.elements = (object *)alloca(sizeof(object) * 1); +c_733627.elements[0] = loop_73120; + +return_closcall1(data,(closure)&c_733613, &c_733627);; +} + +static void __lambda_399(void *data, int argc, object self_73839, object k_73278, object fp_73122, object result_73121) { + +closureN_type c_733629; +c_733629.hdr.mark = gc_color_red; + c_733629.hdr.grayed = 0; +c_733629.tag = closureN_tag; + c_733629.fn = (function_type)__lambda_398; +c_733629.num_args = 1; +c_733629.num_elements = 4; +c_733629.elements = (object *)alloca(sizeof(object) * 4); +c_733629.elements[0] = fp_73122; +c_733629.elements[1] = k_73278; +c_733629.elements[2] = ((closureN)self_73839)->elements[0]; +c_733629.elements[3] = result_73121; + +return_closcall2(data, __glo_cyc_91read_scheme_read, &c_733629, fp_73122);; +} + +static void __lambda_398(void *data, int argc, object self_73840, object obj_73123) { + if( (boolean_f != Cyc_is_eof_object(obj_73123)) ){ + return_closcall2(data, __glo_reverse_scheme_base, ((closureN)self_73840)->elements[1], ((closureN)self_73840)->elements[3]); +} else { + +make_pair(c_733643,obj_73123, ((closureN)self_73840)->elements[3]); +return_closcall3(data, cell_get(((closureN)self_73840)->elements[2]), ((closureN)self_73840)->elements[1], ((closureN)self_73840)->elements[0], &c_733643);} +; +} + +static void __lambda_397(void *data, int argc, object self_73841, object r_73277) { + +closureN_type c_733615; +c_733615.hdr.mark = gc_color_red; + c_733615.hdr.grayed = 0; +c_733615.tag = closureN_tag; + c_733615.fn = (function_type)__lambda_396; +c_733615.num_args = 1; +c_733615.num_elements = 3; +c_733615.elements = (object *)alloca(sizeof(object) * 3); +c_733615.elements[0] = ((closureN)self_73841)->elements[0]; +c_733615.elements[1] = ((closureN)self_73841)->elements[1]; +c_733615.elements[2] = ((closureN)self_73841)->elements[2]; + +return_closcall1(data,(closure)&c_733615, Cyc_set_car(data, ((closureN)self_73841)->elements[2], r_73277));; +} + +static void __lambda_396(void *data, int argc, object self_73842, object r_73275) { + +closureN_type c_733617; +c_733617.hdr.mark = gc_color_red; + c_733617.hdr.grayed = 0; +c_733617.tag = closureN_tag; + c_733617.fn = (function_type)__lambda_395; +c_733617.num_args = 1; +c_733617.num_elements = 3; +c_733617.elements = (object *)alloca(sizeof(object) * 3); +c_733617.elements[0] = ((closureN)self_73842)->elements[0]; +c_733617.elements[1] = ((closureN)self_73842)->elements[1]; +c_733617.elements[2] = ((closureN)self_73842)->elements[2]; + +return_closcall1(data,(closure)&c_733617, NULL);; +} + +static void __lambda_395(void *data, int argc, object self_73843, object r_73276) { + return_closcall3(data, cell_get(((closureN)self_73843)->elements[2]), ((closureN)self_73843)->elements[1], ((closureN)self_73843)->elements[0], r_73276);; +} + +static void __lambda_394(void *data, int argc, object self_73844, object k_73282) { + if( (boolean_f != Cyc_is_null(((closureN)self_73844)->elements[0])) ){ + return_closcall1(data, __glo_current_91input_91port_scheme_base, k_73282); +} else { + return_closcall1(data, k_73282, car(((closureN)self_73844)->elements[0]));} +; +} + +static void __lambda_393(void *data, int argc, closure _,object k_73286, object args_73124_raw, ...) { +load_varargs(args_73124, args_73124_raw, argc - 1); + Cyc_st_add(data, "scheme/read.sld:cyc-read"); + +closureN_type c_733574; +c_733574.hdr.mark = gc_color_red; + c_733574.hdr.grayed = 0; +c_733574.tag = closureN_tag; + c_733574.fn = (function_type)__lambda_388; +c_733574.num_args = 0; +c_733574.num_elements = 1; +c_733574.elements = (object *)alloca(sizeof(object) * 1); +c_733574.elements[0] = args_73124; + + +closureN_type c_733583; +c_733583.hdr.mark = gc_color_red; + c_733583.hdr.grayed = 0; +c_733583.tag = closureN_tag; + c_733583.fn = (function_type)__lambda_392; +c_733583.num_args = 1; +c_733583.num_elements = 1; +c_733583.elements = (object *)alloca(sizeof(object) * 1); +c_733583.elements[0] = k_73286; + +return_closcall1(data,(closure)&c_733574, &c_733583);; +} + +static void __lambda_392(void *data, int argc, object self_73845, object fp_73125) { + +closureN_type c_733585; +c_733585.hdr.mark = gc_color_red; + c_733585.hdr.grayed = 0; +c_733585.tag = closureN_tag; + c_733585.fn = (function_type)__lambda_391; +c_733585.num_args = 1; +c_733585.num_elements = 2; +c_733585.elements = (object *)alloca(sizeof(object) * 2); +c_733585.elements[0] = fp_73125; +c_733585.elements[1] = ((closureN)self_73845)->elements[0]; + +return_closcall1(data,(closure)&c_733585, NULL);; +} + +static void __lambda_391(void *data, int argc, object self_73846, object r_73288) { + +closureN_type c_733587; +c_733587.hdr.mark = gc_color_red; + c_733587.hdr.grayed = 0; +c_733587.tag = closureN_tag; + c_733587.fn = (function_type)__lambda_390; +c_733587.num_args = 1; +c_733587.num_elements = 3; +c_733587.elements = (object *)alloca(sizeof(object) * 3); +c_733587.elements[0] = ((closureN)self_73846)->elements[0]; +c_733587.elements[1] = ((closureN)self_73846)->elements[1]; +c_733587.elements[2] = r_73288; + +return_closcall1(data,(closure)&c_733587, NULL);; +} + +static void __lambda_390(void *data, int argc, object self_73847, object r_73289) { + +closureN_type c_733589; +c_733589.hdr.mark = gc_color_red; + c_733589.hdr.grayed = 0; +c_733589.tag = closureN_tag; + c_733589.fn = (function_type)__lambda_389; +c_733589.num_args = 1; +c_733589.num_elements = 4; +c_733589.elements = (object *)alloca(sizeof(object) * 4); +c_733589.elements[0] = ((closureN)self_73847)->elements[0]; +c_733589.elements[1] = ((closureN)self_73847)->elements[1]; +c_733589.elements[2] = ((closureN)self_73847)->elements[2]; +c_733589.elements[3] = r_73289; + +return_closcall2(data, __glo_reg_91port_scheme_read, &c_733589, ((closureN)self_73847)->elements[0]);; +} + +static void __lambda_389(void *data, int argc, object self_73848, object r_73290) { + return_closcall8(data, __glo_parse_scheme_read, ((closureN)self_73848)->elements[1], ((closureN)self_73848)->elements[0], ((closureN)self_73848)->elements[2], ((closureN)self_73848)->elements[3], boolean_f, boolean_f, obj_int2obj(0), r_73290);; +} + +static void __lambda_388(void *data, int argc, object self_73849, object k_73291) { + if( (boolean_f != Cyc_is_null(((closureN)self_73849)->elements[0])) ){ + return_closcall1(data, __glo_current_91input_91port_scheme_base, k_73291); +} else { + return_closcall1(data, k_73291, car(((closureN)self_73849)->elements[0]));} +; +} + +static void __lambda_387(void *data, int argc, closure _,object k_73295, object c_73126) { + Cyc_st_add(data, "scheme/read.sld:hex-digit?"); + +closureN_type c_733552; +c_733552.hdr.mark = gc_color_red; + c_733552.hdr.grayed = 0; +c_733552.tag = closureN_tag; + c_733552.fn = (function_type)__lambda_384; +c_733552.num_args = 0; +c_733552.num_elements = 1; +c_733552.elements = (object *)alloca(sizeof(object) * 1); +c_733552.elements[0] = c_73126; + + +closureN_type c_733561; +c_733561.hdr.mark = gc_color_red; + c_733561.hdr.grayed = 0; +c_733561.tag = closureN_tag; + c_733561.fn = (function_type)__lambda_386; +c_733561.num_args = 1; +c_733561.num_elements = 2; +c_733561.elements = (object *)alloca(sizeof(object) * 2); +c_733561.elements[0] = c_73126; +c_733561.elements[1] = k_73295; + +return_closcall1(data,(closure)&c_733552, &c_733561);; +} + +static void __lambda_386(void *data, int argc, object self_73850, object tmp_73127) { + if( (boolean_f != tmp_73127) ){ + return_closcall1(data, ((closureN)self_73850)->elements[1], tmp_73127); +} else { + +closureN_type c_733565; +c_733565.hdr.mark = gc_color_red; + c_733565.hdr.grayed = 0; +c_733565.tag = closureN_tag; + c_733565.fn = (function_type)__lambda_385; +c_733565.num_args = 1; +c_733565.num_elements = 2; +c_733565.elements = (object *)alloca(sizeof(object) * 2); +c_733565.elements[0] = ((closureN)self_73850)->elements[0]; +c_733565.elements[1] = ((closureN)self_73850)->elements[1]; + +return_closcall3(data, __glo_char_125_123_127_scheme_base, &c_733565, ((closureN)self_73850)->elements[0], obj_char2obj(65));} +; +} + +static void __lambda_385(void *data, int argc, object self_73851, object r_73297) { + if( (boolean_f != r_73297) ){ + return_closcall3(data, __glo_char_121_123_127_scheme_base, ((closureN)self_73851)->elements[1], ((closureN)self_73851)->elements[0], obj_char2obj(70)); +} else { + return_closcall1(data, ((closureN)self_73851)->elements[1], boolean_f);} +; +} + +static void __lambda_384(void *data, int argc, object self_73852, object k_73298) { + +closureN_type c_733554; +c_733554.hdr.mark = gc_color_red; + c_733554.hdr.grayed = 0; +c_733554.tag = closureN_tag; + c_733554.fn = (function_type)__lambda_383; +c_733554.num_args = 1; +c_733554.num_elements = 2; +c_733554.elements = (object *)alloca(sizeof(object) * 2); +c_733554.elements[0] = ((closureN)self_73852)->elements[0]; +c_733554.elements[1] = k_73298; + +return_closcall3(data, __glo_char_125_123_127_scheme_base, &c_733554, ((closureN)self_73852)->elements[0], obj_char2obj(97));; +} + +static void __lambda_383(void *data, int argc, object self_73853, object r_73299) { + if( (boolean_f != r_73299) ){ + return_closcall3(data, __glo_char_121_123_127_scheme_base, ((closureN)self_73853)->elements[1], ((closureN)self_73853)->elements[0], obj_char2obj(102)); +} else { + return_closcall1(data, ((closureN)self_73853)->elements[1], boolean_f);} +; +} + +static void __lambda_382(void *data, int argc, closure _,object k_73302, object base_73131, object fp_73130, object tok_73129, object ptbl_73128) { + Cyc_st_add(data, "scheme/read.sld:parse-number-rec"); + +closureN_type c_733444; +c_733444.hdr.mark = gc_color_red; + c_733444.hdr.grayed = 0; +c_733444.tag = closureN_tag; + c_733444.fn = (function_type)__lambda_381; +c_733444.num_args = 1; +c_733444.num_elements = 5; +c_733444.elements = (object *)alloca(sizeof(object) * 5); +c_733444.elements[0] = base_73131; +c_733444.elements[1] = fp_73130; +c_733444.elements[2] = k_73302; +c_733444.elements[3] = ptbl_73128; +c_733444.elements[4] = tok_73129; + +return_closcall3(data, __glo_get_91next_91char_scheme_read, &c_733444, fp_73130, ptbl_73128);; +} + +static void __lambda_381(void *data, int argc, object self_73854, object r_73303) { + +closureN_type c_733446; +c_733446.hdr.mark = gc_color_red; + c_733446.hdr.grayed = 0; +c_733446.tag = closureN_tag; + c_733446.fn = (function_type)__lambda_379; +c_733446.num_args = 1; +c_733446.num_elements = 5; +c_733446.elements = (object *)alloca(sizeof(object) * 5); +c_733446.elements[0] = ((closureN)self_73854)->elements[0]; +c_733446.elements[1] = ((closureN)self_73854)->elements[2]; +c_733446.elements[2] = ((closureN)self_73854)->elements[3]; +c_733446.elements[3] = r_73303; +c_733446.elements[4] = ((closureN)self_73854)->elements[4]; + + +closureN_type c_733541; +c_733541.hdr.mark = gc_color_red; + c_733541.hdr.grayed = 0; +c_733541.tag = closureN_tag; + c_733541.fn = (function_type)__lambda_380; +c_733541.num_args = 1; +c_733541.num_elements = 4; +c_733541.elements = (object *)alloca(sizeof(object) * 4); +c_733541.elements[0] = ((closureN)self_73854)->elements[0]; +c_733541.elements[1] = ((closureN)self_73854)->elements[1]; +c_733541.elements[2] = ((closureN)self_73854)->elements[3]; +c_733541.elements[3] = ((closureN)self_73854)->elements[4]; + +return_closcall1(data,(closure)&c_733446, &c_733541);; +} + +static void __lambda_380(void *data, int argc, object self_73855, object k_73322, object c_73132) { + +make_pair(c_733547,c_73132, ((closureN)self_73855)->elements[3]); +return_closcall5(data, __glo_parse_91number_91rec_scheme_read, k_73322, ((closureN)self_73855)->elements[0], ((closureN)self_73855)->elements[1], &c_733547, ((closureN)self_73855)->elements[2]);; +} + +static void __lambda_379(void *data, int argc, object self_73856, object r_73304) { + +closureN_type c_733448; +c_733448.hdr.mark = gc_color_red; + c_733448.hdr.grayed = 0; +c_733448.tag = closureN_tag; + c_733448.fn = (function_type)__lambda_378; +c_733448.num_args = 2; +c_733448.num_elements = 4; +c_733448.elements = (object *)alloca(sizeof(object) * 4); +c_733448.elements[0] = ((closureN)self_73856)->elements[0]; +c_733448.elements[1] = ((closureN)self_73856)->elements[1]; +c_733448.elements[2] = ((closureN)self_73856)->elements[2]; +c_733448.elements[3] = ((closureN)self_73856)->elements[4]; + +return_closcall2(data,(closure)&c_733448, ((closureN)self_73856)->elements[3], r_73304);; +} + +static void __lambda_378(void *data, int argc, object self_73857, object c_73134, object next_73133) { + +closureN_type c_733450; +c_733450.hdr.mark = gc_color_red; + c_733450.hdr.grayed = 0; +c_733450.tag = closureN_tag; + c_733450.fn = (function_type)__lambda_377; +c_733450.num_args = 1; +c_733450.num_elements = 6; +c_733450.elements = (object *)alloca(sizeof(object) * 6); +c_733450.elements[0] = ((closureN)self_73857)->elements[0]; +c_733450.elements[1] = c_73134; +c_733450.elements[2] = ((closureN)self_73857)->elements[1]; +c_733450.elements[3] = next_73133; +c_733450.elements[4] = ((closureN)self_73857)->elements[2]; +c_733450.elements[5] = ((closureN)self_73857)->elements[3]; + +return_closcall2(data, __glo_sign_127_scheme_read, &c_733450, c_73134);; +} + +static void __lambda_377(void *data, int argc, object self_73858, object r_73305) { + if( (boolean_f != r_73305) ){ + return_closcall2(data, ((closureN)self_73858)->elements[3], ((closureN)self_73858)->elements[2], ((closureN)self_73858)->elements[1]); +} else { + if( (boolean_f != Cyc_eq(obj_char2obj(46), ((closureN)self_73858)->elements[1])) ){ + return_closcall2(data, ((closureN)self_73858)->elements[3], ((closureN)self_73858)->elements[2], ((closureN)self_73858)->elements[1]); +} else { + +closureN_type c_733463; +c_733463.hdr.mark = gc_color_red; + c_733463.hdr.grayed = 0; +c_733463.tag = closureN_tag; + c_733463.fn = (function_type)__lambda_376; +c_733463.num_args = 1; +c_733463.num_elements = 6; +c_733463.elements = (object *)alloca(sizeof(object) * 6); +c_733463.elements[0] = ((closureN)self_73858)->elements[0]; +c_733463.elements[1] = ((closureN)self_73858)->elements[1]; +c_733463.elements[2] = ((closureN)self_73858)->elements[2]; +c_733463.elements[3] = ((closureN)self_73858)->elements[3]; +c_733463.elements[4] = ((closureN)self_73858)->elements[4]; +c_733463.elements[5] = ((closureN)self_73858)->elements[5]; + +return_closcall2(data, __glo_char_91numeric_127_scheme__char, &c_733463, ((closureN)self_73858)->elements[1]);} +} +; +} + +static void __lambda_376(void *data, int argc, object self_73859, object r_73307) { + if( (boolean_f != r_73307) ){ + +closureN_type c_733465; +c_733465.hdr.mark = gc_color_red; + c_733465.hdr.grayed = 0; +c_733465.tag = closureN_tag; + c_733465.fn = (function_type)__lambda_370; +c_733465.num_args = 0; +c_733465.num_elements = 3; +c_733465.elements = (object *)alloca(sizeof(object) * 3); +c_733465.elements[0] = ((closureN)self_73859)->elements[0]; +c_733465.elements[1] = ((closureN)self_73859)->elements[1]; +c_733465.elements[2] = ((closureN)self_73859)->elements[4]; + + +closureN_type c_733509; +c_733509.hdr.mark = gc_color_red; + c_733509.hdr.grayed = 0; +c_733509.tag = closureN_tag; + c_733509.fn = (function_type)__lambda_371; +c_733509.num_args = 1; +c_733509.num_elements = 3; +c_733509.elements = (object *)alloca(sizeof(object) * 3); +c_733509.elements[0] = ((closureN)self_73859)->elements[1]; +c_733509.elements[1] = ((closureN)self_73859)->elements[2]; +c_733509.elements[2] = ((closureN)self_73859)->elements[3]; + +return_closcall1(data,(closure)&c_733465, &c_733509); +} else { + +closureN_type c_733515; +c_733515.hdr.mark = gc_color_red; + c_733515.hdr.grayed = 0; +c_733515.tag = closureN_tag; + c_733515.fn = (function_type)__lambda_373; +c_733515.num_args = 0; +c_733515.num_elements = 2; +c_733515.elements = (object *)alloca(sizeof(object) * 2); +c_733515.elements[0] = ((closureN)self_73859)->elements[0]; +c_733515.elements[1] = ((closureN)self_73859)->elements[1]; + + +closureN_type c_733527; +c_733527.hdr.mark = gc_color_red; + c_733527.hdr.grayed = 0; +c_733527.tag = closureN_tag; + c_733527.fn = (function_type)__lambda_375; +c_733527.num_args = 1; +c_733527.num_elements = 5; +c_733527.elements = (object *)alloca(sizeof(object) * 5); +c_733527.elements[0] = ((closureN)self_73859)->elements[1]; +c_733527.elements[1] = ((closureN)self_73859)->elements[2]; +c_733527.elements[2] = ((closureN)self_73859)->elements[3]; +c_733527.elements[3] = ((closureN)self_73859)->elements[4]; +c_733527.elements[4] = ((closureN)self_73859)->elements[5]; + +return_closcall1(data,(closure)&c_733515, &c_733527);} +; +} + +static void __lambda_375(void *data, int argc, object self_73860, object r_73318) { + if( (boolean_f != r_73318) ){ + return_closcall2(data, ((closureN)self_73860)->elements[2], ((closureN)self_73860)->elements[1], ((closureN)self_73860)->elements[0]); +} else { + +closureN_type c_733533; +c_733533.hdr.mark = gc_color_red; + c_733533.hdr.grayed = 0; +c_733533.tag = closureN_tag; + c_733533.fn = (function_type)__lambda_374; +c_733533.num_args = 1; +c_733533.num_elements = 2; +c_733533.elements = (object *)alloca(sizeof(object) * 2); +c_733533.elements[0] = ((closureN)self_73860)->elements[1]; +c_733533.elements[1] = ((closureN)self_73860)->elements[4]; + +return_closcall3(data, __glo_in_91port_117set_91buf_67_scheme_read, &c_733533, ((closureN)self_73860)->elements[3], ((closureN)self_73860)->elements[0]);} +; +} + +static void __lambda_374(void *data, int argc, object self_73861, object r_73319) { + return_closcall2(data, __glo_reverse_scheme_base, ((closureN)self_73861)->elements[0], ((closureN)self_73861)->elements[1]);; +} + +static void __lambda_373(void *data, int argc, object self_73862, object k_73320) { + +closureN_type c_733517; +c_733517.hdr.mark = gc_color_red; + c_733517.hdr.grayed = 0; +c_733517.tag = closureN_tag; + c_733517.fn = (function_type)__lambda_372; +c_733517.num_args = 1; +c_733517.num_elements = 2; +c_733517.elements = (object *)alloca(sizeof(object) * 2); +c_733517.elements[0] = ((closureN)self_73862)->elements[1]; +c_733517.elements[1] = k_73320; + + +object c_733525 = Cyc_num_eq(data,(closure)&c_733517,2,((closureN)self_73862)->elements[0], obj_int2obj(16)); +return_closcall1(data,(closure)&c_733517, c_733525);; +} + +static void __lambda_372(void *data, int argc, object self_73863, object r_73321) { + if( (boolean_f != r_73321) ){ + return_closcall2(data, __glo_hex_91digit_127_scheme_read, ((closureN)self_73863)->elements[1], ((closureN)self_73863)->elements[0]); +} else { + return_closcall1(data, ((closureN)self_73863)->elements[1], boolean_f);} +; +} + +static void __lambda_371(void *data, int argc, object self_73864, object r_73308) { + return_closcall2(data, ((closureN)self_73864)->elements[2], ((closureN)self_73864)->elements[1], ((closureN)self_73864)->elements[0]);; +} + +static void __lambda_370(void *data, int argc, object self_73865, object k_73309) { + +closureN_type c_733467; +c_733467.hdr.mark = gc_color_red; + c_733467.hdr.grayed = 0; +c_733467.tag = closureN_tag; + c_733467.fn = (function_type)__lambda_363; +c_733467.num_args = 0; +c_733467.num_elements = 2; +c_733467.elements = (object *)alloca(sizeof(object) * 2); +c_733467.elements[0] = ((closureN)self_73865)->elements[0]; +c_733467.elements[1] = ((closureN)self_73865)->elements[1]; + + +closureN_type c_733479; +c_733479.hdr.mark = gc_color_red; + c_733479.hdr.grayed = 0; +c_733479.tag = closureN_tag; + c_733479.fn = (function_type)__lambda_369; +c_733479.num_args = 1; +c_733479.num_elements = 4; +c_733479.elements = (object *)alloca(sizeof(object) * 4); +c_733479.elements[0] = ((closureN)self_73865)->elements[0]; +c_733479.elements[1] = ((closureN)self_73865)->elements[1]; +c_733479.elements[2] = k_73309; +c_733479.elements[3] = ((closureN)self_73865)->elements[2]; + +return_closcall1(data,(closure)&c_733467, &c_733479);; +} + +static void __lambda_369(void *data, int argc, object self_73866, object tmp_73135) { + +closureN_type c_733481; +c_733481.hdr.mark = gc_color_red; + c_733481.hdr.grayed = 0; +c_733481.tag = closureN_tag; + c_733481.fn = (function_type)__lambda_365; +c_733481.num_args = 0; +c_733481.num_elements = 3; +c_733481.elements = (object *)alloca(sizeof(object) * 3); +c_733481.elements[0] = ((closureN)self_73866)->elements[0]; +c_733481.elements[1] = ((closureN)self_73866)->elements[1]; +c_733481.elements[2] = tmp_73135; + + +closureN_type c_733496; +c_733496.hdr.mark = gc_color_red; + c_733496.hdr.grayed = 0; +c_733496.tag = closureN_tag; + c_733496.fn = (function_type)__lambda_368; +c_733496.num_args = 1; +c_733496.num_elements = 2; +c_733496.elements = (object *)alloca(sizeof(object) * 2); +c_733496.elements[0] = ((closureN)self_73866)->elements[2]; +c_733496.elements[1] = ((closureN)self_73866)->elements[3]; + +return_closcall1(data,(closure)&c_733481, &c_733496);; +} + +static void __lambda_368(void *data, int argc, object self_73867, object r_73310) { + if( (boolean_f != r_73310) ){ + +closureN_type c_733498; +c_733498.hdr.mark = gc_color_red; + c_733498.hdr.grayed = 0; +c_733498.tag = closureN_tag; + c_733498.fn = (function_type)__lambda_367; +c_733498.num_args = 1; +c_733498.num_elements = 2; +c_733498.elements = (object *)alloca(sizeof(object) * 2); +c_733498.elements[0] = ((closureN)self_73867)->elements[0]; +c_733498.elements[1] = ((closureN)self_73867)->elements[1]; + +return_closcall2(data, __glo_in_91port_117get_91lnum_scheme_read, &c_733498, ((closureN)self_73867)->elements[1]); +} else { + return_closcall1(data, ((closureN)self_73867)->elements[0], boolean_f);} +; +} + +static void __lambda_367(void *data, int argc, object self_73868, object r_73311) { + +closureN_type c_733500; +c_733500.hdr.mark = gc_color_red; + c_733500.hdr.grayed = 0; +c_733500.tag = closureN_tag; + c_733500.fn = (function_type)__lambda_366; +c_733500.num_args = 1; +c_733500.num_elements = 2; +c_733500.elements = (object *)alloca(sizeof(object) * 2); +c_733500.elements[0] = ((closureN)self_73868)->elements[0]; +c_733500.elements[1] = r_73311; + +return_closcall2(data, __glo_in_91port_117get_91cnum_scheme_read, &c_733500, ((closureN)self_73868)->elements[1]);; +} + +static void __lambda_366(void *data, int argc, object self_73869, object r_73312) { + +make_string(c_733503, "Illegal digit"); +return_closcall4(data, __glo_parse_91error_scheme_read, ((closureN)self_73869)->elements[0], &c_733503, ((closureN)self_73869)->elements[1], r_73312);; +} + +static void __lambda_365(void *data, int argc, object self_73870, object k_73314) { + if( (boolean_f != ((closureN)self_73870)->elements[2]) ){ + return_closcall1(data, k_73314, ((closureN)self_73870)->elements[2]); +} else { + +closureN_type c_733486; +c_733486.hdr.mark = gc_color_red; + c_733486.hdr.grayed = 0; +c_733486.tag = closureN_tag; + c_733486.fn = (function_type)__lambda_364; +c_733486.num_args = 1; +c_733486.num_elements = 2; +c_733486.elements = (object *)alloca(sizeof(object) * 2); +c_733486.elements[0] = ((closureN)self_73870)->elements[1]; +c_733486.elements[1] = k_73314; + + +object c_733494 = Cyc_num_eq(data,(closure)&c_733486,2,((closureN)self_73870)->elements[0], obj_int2obj(8)); +return_closcall1(data,(closure)&c_733486, c_733494);} +; +} + +static void __lambda_364(void *data, int argc, object self_73871, object r_73315) { + if( (boolean_f != r_73315) ){ + return_closcall3(data, __glo_char_125_127_scheme_base, ((closureN)self_73871)->elements[1], ((closureN)self_73871)->elements[0], obj_char2obj(55)); +} else { + return_closcall1(data, ((closureN)self_73871)->elements[1], boolean_f);} +; +} + +static void __lambda_363(void *data, int argc, object self_73872, object k_73316) { + +closureN_type c_733469; +c_733469.hdr.mark = gc_color_red; + c_733469.hdr.grayed = 0; +c_733469.tag = closureN_tag; + c_733469.fn = (function_type)__lambda_362; +c_733469.num_args = 1; +c_733469.num_elements = 2; +c_733469.elements = (object *)alloca(sizeof(object) * 2); +c_733469.elements[0] = ((closureN)self_73872)->elements[1]; +c_733469.elements[1] = k_73316; + + +object c_733477 = Cyc_num_eq(data,(closure)&c_733469,2,((closureN)self_73872)->elements[0], obj_int2obj(2)); +return_closcall1(data,(closure)&c_733469, c_733477);; +} + +static void __lambda_362(void *data, int argc, object self_73873, object r_73317) { + if( (boolean_f != r_73317) ){ + return_closcall3(data, __glo_char_125_127_scheme_base, ((closureN)self_73873)->elements[1], ((closureN)self_73873)->elements[0], obj_char2obj(49)); +} else { + return_closcall1(data, ((closureN)self_73873)->elements[1], boolean_f);} +; +} + +static void __lambda_361(void *data, int argc, closure _,object k_73326, object fp_73142, object toks_73141, object all_127_73140, object parens_73139, object ptbl_73138, object base_73137, object tok_91_125num_73136) { + Cyc_st_add(data, "scheme/read.sld:parse-number"); + +closureN_type c_733371; +c_733371.hdr.mark = gc_color_red; + c_733371.hdr.grayed = 0; +c_733371.tag = closureN_tag; + c_733371.fn = (function_type)__lambda_360; +c_733371.num_args = 1; +c_733371.num_elements = 8; +c_733371.elements = (object *)alloca(sizeof(object) * 8); +c_733371.elements[0] = all_127_73140; +c_733371.elements[1] = base_73137; +c_733371.elements[2] = fp_73142; +c_733371.elements[3] = k_73326; +c_733371.elements[4] = parens_73139; +c_733371.elements[5] = ptbl_73138; +c_733371.elements[6] = tok_91_125num_73136; +c_733371.elements[7] = toks_73141; + +return_closcall1(data,(closure)&c_733371, NULL);; +} + +static void __lambda_360(void *data, int argc, object self_73874, object r_73341) { + +closureN_type c_733373; +c_733373.hdr.mark = gc_color_red; + c_733373.hdr.grayed = 0; +c_733373.tag = closureN_tag; + c_733373.fn = (function_type)__lambda_359; +c_733373.num_args = 1; +c_733373.num_elements = 8; +c_733373.elements = (object *)alloca(sizeof(object) * 8); +c_733373.elements[0] = ((closureN)self_73874)->elements[0]; +c_733373.elements[1] = ((closureN)self_73874)->elements[1]; +c_733373.elements[2] = ((closureN)self_73874)->elements[2]; +c_733373.elements[3] = ((closureN)self_73874)->elements[3]; +c_733373.elements[4] = ((closureN)self_73874)->elements[4]; +c_733373.elements[5] = ((closureN)self_73874)->elements[5]; +c_733373.elements[6] = ((closureN)self_73874)->elements[6]; +c_733373.elements[7] = ((closureN)self_73874)->elements[7]; + +return_closcall5(data, __glo_parse_91number_91rec_scheme_read, &c_733373, ((closureN)self_73874)->elements[1], ((closureN)self_73874)->elements[2], r_73341, ((closureN)self_73874)->elements[5]);; +} + +static void __lambda_359(void *data, int argc, object self_73875, object num_73143) { + +closureN_type c_733375; +c_733375.hdr.mark = gc_color_red; + c_733375.hdr.grayed = 0; +c_733375.tag = closureN_tag; + c_733375.fn = (function_type)__lambda_353; +c_733375.num_args = 0; +c_733375.num_elements = 2; +c_733375.elements = (object *)alloca(sizeof(object) * 2); +c_733375.elements[0] = ((closureN)self_73875)->elements[1]; +c_733375.elements[1] = num_73143; + + +closureN_type c_733408; +c_733408.hdr.mark = gc_color_red; + c_733408.hdr.grayed = 0; +c_733408.tag = closureN_tag; + c_733408.fn = (function_type)__lambda_358; +c_733408.num_args = 1; +c_733408.num_elements = 8; +c_733408.elements = (object *)alloca(sizeof(object) * 8); +c_733408.elements[0] = ((closureN)self_73875)->elements[0]; +c_733408.elements[1] = ((closureN)self_73875)->elements[2]; +c_733408.elements[2] = ((closureN)self_73875)->elements[3]; +c_733408.elements[3] = num_73143; +c_733408.elements[4] = ((closureN)self_73875)->elements[4]; +c_733408.elements[5] = ((closureN)self_73875)->elements[5]; +c_733408.elements[6] = ((closureN)self_73875)->elements[6]; +c_733408.elements[7] = ((closureN)self_73875)->elements[7]; + +return_closcall1(data,(closure)&c_733375, &c_733408);; +} + +static void __lambda_358(void *data, int argc, object self_73876, object r_73328) { + if( (boolean_f != r_73328) ){ + +closureN_type c_733411; +c_733411.hdr.mark = gc_color_red; + c_733411.hdr.grayed = 0; +c_733411.tag = closureN_tag; + c_733411.fn = (function_type)__lambda_355; +c_733411.num_args = 1; +c_733411.num_elements = 6; +c_733411.elements = (object *)alloca(sizeof(object) * 6); +c_733411.elements[0] = ((closureN)self_73876)->elements[0]; +c_733411.elements[1] = ((closureN)self_73876)->elements[1]; +c_733411.elements[2] = ((closureN)self_73876)->elements[2]; +c_733411.elements[3] = ((closureN)self_73876)->elements[4]; +c_733411.elements[4] = ((closureN)self_73876)->elements[5]; +c_733411.elements[5] = ((closureN)self_73876)->elements[7]; + +return_closcall2(data, ((closureN)self_73876)->elements[6], &c_733411, ((closureN)self_73876)->elements[3]); +} else { + +closureN_type c_733430; +c_733430.hdr.mark = gc_color_red; + c_733430.hdr.grayed = 0; +c_733430.tag = closureN_tag; + c_733430.fn = (function_type)__lambda_357; +c_733430.num_args = 1; +c_733430.num_elements = 2; +c_733430.elements = (object *)alloca(sizeof(object) * 2); +c_733430.elements[0] = ((closureN)self_73876)->elements[2]; +c_733430.elements[1] = ((closureN)self_73876)->elements[5]; + +return_closcall2(data, __glo_in_91port_117get_91lnum_scheme_read, &c_733430, ((closureN)self_73876)->elements[5]);} +; +} + +static void __lambda_357(void *data, int argc, object self_73877, object r_73332) { + +closureN_type c_733432; +c_733432.hdr.mark = gc_color_red; + c_733432.hdr.grayed = 0; +c_733432.tag = closureN_tag; + c_733432.fn = (function_type)__lambda_356; +c_733432.num_args = 1; +c_733432.num_elements = 2; +c_733432.elements = (object *)alloca(sizeof(object) * 2); +c_733432.elements[0] = ((closureN)self_73877)->elements[0]; +c_733432.elements[1] = r_73332; + +return_closcall2(data, __glo_in_91port_117get_91cnum_scheme_read, &c_733432, ((closureN)self_73877)->elements[1]);; +} + +static void __lambda_356(void *data, int argc, object self_73878, object r_73333) { + +make_string(c_733435, "Illegal number syntax"); +return_closcall4(data, __glo_parse_91error_scheme_read, ((closureN)self_73878)->elements[0], &c_733435, ((closureN)self_73878)->elements[1], r_73333);; +} + +static void __lambda_355(void *data, int argc, object self_73879, object result_73144) { + if( (boolean_f != ((closureN)self_73879)->elements[0]) ){ + +closureN_type c_733414; +c_733414.hdr.mark = gc_color_red; + c_733414.hdr.grayed = 0; +c_733414.tag = closureN_tag; + c_733414.fn = (function_type)__lambda_354; +c_733414.num_args = 1; +c_733414.num_elements = 7; +c_733414.elements = (object *)alloca(sizeof(object) * 7); +c_733414.elements[0] = ((closureN)self_73879)->elements[0]; +c_733414.elements[1] = ((closureN)self_73879)->elements[1]; +c_733414.elements[2] = ((closureN)self_73879)->elements[2]; +c_733414.elements[3] = ((closureN)self_73879)->elements[3]; +c_733414.elements[4] = ((closureN)self_73879)->elements[4]; +c_733414.elements[5] = result_73144; +c_733414.elements[6] = ((closureN)self_73879)->elements[5]; + +return_closcall1(data,(closure)&c_733414, NULL); +} else { + return_closcall1(data, ((closureN)self_73879)->elements[2], result_73144);} +; +} + +static void __lambda_354(void *data, int argc, object self_73880, object r_73330) { + +make_pair(c_733420,((closureN)self_73880)->elements[5], ((closureN)self_73880)->elements[6]); +return_closcall8(data, __glo_parse_scheme_read, ((closureN)self_73880)->elements[2], ((closureN)self_73880)->elements[1], r_73330, &c_733420, ((closureN)self_73880)->elements[0], boolean_f, ((closureN)self_73880)->elements[3], ((closureN)self_73880)->elements[4]);; +} + +static void __lambda_353(void *data, int argc, object self_73881, object k_73334) { + if( (boolean_f != Cyc_is_null(((closureN)self_73881)->elements[1])) ){ + return_closcall1(data, k_73334, boolean_f); +} else { + +closureN_type c_733381; +c_733381.hdr.mark = gc_color_red; + c_733381.hdr.grayed = 0; +c_733381.tag = closureN_tag; + c_733381.fn = (function_type)__lambda_352; +c_733381.num_args = 1; +c_733381.num_elements = 3; +c_733381.elements = (object *)alloca(sizeof(object) * 3); +c_733381.elements[0] = ((closureN)self_73881)->elements[0]; +c_733381.elements[1] = k_73334; +c_733381.elements[2] = ((closureN)self_73881)->elements[1]; + +return_closcall2(data, __glo_token_91numeric_127_scheme_read, &c_733381, ((closureN)self_73881)->elements[1]);} +; +} + +static void __lambda_352(void *data, int argc, object self_73882, object tmp_73145) { + if( (boolean_f != tmp_73145) ){ + return_closcall1(data, ((closureN)self_73882)->elements[1], tmp_73145); +} else { + +closureN_type c_733385; +c_733385.hdr.mark = gc_color_red; + c_733385.hdr.grayed = 0; +c_733385.tag = closureN_tag; + c_733385.fn = (function_type)__lambda_351; +c_733385.num_args = 1; +c_733385.num_elements = 3; +c_733385.elements = (object *)alloca(sizeof(object) * 3); +c_733385.elements[0] = ((closureN)self_73882)->elements[0]; +c_733385.elements[1] = ((closureN)self_73882)->elements[1]; +c_733385.elements[2] = ((closureN)self_73882)->elements[2]; + + +object c_733403 = Cyc_num_gt(data,(closure)&c_733385,2,Cyc_length(data, ((closureN)self_73882)->elements[2]), obj_int2obj(0)); +return_closcall1(data,(closure)&c_733385, c_733403);} +; +} + +static void __lambda_351(void *data, int argc, object self_73883, object r_73337) { + if( (boolean_f != r_73337) ){ + +closureN_type c_733387; +c_733387.hdr.mark = gc_color_red; + c_733387.hdr.grayed = 0; +c_733387.tag = closureN_tag; + c_733387.fn = (function_type)__lambda_350; +c_733387.num_args = 1; +c_733387.num_elements = 2; +c_733387.elements = (object *)alloca(sizeof(object) * 2); +c_733387.elements[0] = ((closureN)self_73883)->elements[1]; +c_733387.elements[1] = ((closureN)self_73883)->elements[2]; + + +object c_733397 = Cyc_num_eq(data,(closure)&c_733387,2,((closureN)self_73883)->elements[0], obj_int2obj(16)); +return_closcall1(data,(closure)&c_733387, c_733397); +} else { + return_closcall1(data, ((closureN)self_73883)->elements[1], boolean_f);} +; +} + +static void __lambda_350(void *data, int argc, object self_73884, object r_73338) { + if( (boolean_f != r_73338) ){ + return_closcall2(data, __glo_hex_91digit_127_scheme_read, ((closureN)self_73884)->elements[0], car(((closureN)self_73884)->elements[1])); +} else { + return_closcall1(data, ((closureN)self_73884)->elements[0], boolean_f);} +; +} + +static void __lambda_349(void *data, int argc, closure _,object k_73344, object fp_73148, object tok_73147, object ptbl_73146) { + Cyc_st_add(data, "scheme/read.sld:parse-li-rec"); + +closureN_type c_733319; +c_733319.hdr.mark = gc_color_red; + c_733319.hdr.grayed = 0; +c_733319.tag = closureN_tag; + c_733319.fn = (function_type)__lambda_348; +c_733319.num_args = 1; +c_733319.num_elements = 4; +c_733319.elements = (object *)alloca(sizeof(object) * 4); +c_733319.elements[0] = fp_73148; +c_733319.elements[1] = k_73344; +c_733319.elements[2] = ptbl_73146; +c_733319.elements[3] = tok_73147; + +return_closcall3(data, __glo_get_91next_91char_scheme_read, &c_733319, fp_73148, ptbl_73146);; +} + +static void __lambda_348(void *data, int argc, object self_73885, object r_73345) { + +closureN_type c_733321; +c_733321.hdr.mark = gc_color_red; + c_733321.hdr.grayed = 0; +c_733321.tag = closureN_tag; + c_733321.fn = (function_type)__lambda_346; +c_733321.num_args = 1; +c_733321.num_elements = 4; +c_733321.elements = (object *)alloca(sizeof(object) * 4); +c_733321.elements[0] = ((closureN)self_73885)->elements[1]; +c_733321.elements[1] = ((closureN)self_73885)->elements[2]; +c_733321.elements[2] = r_73345; +c_733321.elements[3] = ((closureN)self_73885)->elements[3]; + + +closureN_type c_733361; +c_733361.hdr.mark = gc_color_red; + c_733361.hdr.grayed = 0; +c_733361.tag = closureN_tag; + c_733361.fn = (function_type)__lambda_347; +c_733361.num_args = 1; +c_733361.num_elements = 3; +c_733361.elements = (object *)alloca(sizeof(object) * 3); +c_733361.elements[0] = ((closureN)self_73885)->elements[0]; +c_733361.elements[1] = ((closureN)self_73885)->elements[2]; +c_733361.elements[2] = ((closureN)self_73885)->elements[3]; + +return_closcall1(data,(closure)&c_733321, &c_733361);; +} + +static void __lambda_347(void *data, int argc, object self_73886, object k_73355, object c_73149) { + +make_pair(c_733366,c_73149, ((closureN)self_73886)->elements[2]); +return_closcall4(data, __glo_parse_91li_91rec_scheme_read, k_73355, ((closureN)self_73886)->elements[0], &c_733366, ((closureN)self_73886)->elements[1]);; +} + +static void __lambda_346(void *data, int argc, object self_73887, object r_73346) { + +closureN_type c_733323; +c_733323.hdr.mark = gc_color_red; + c_733323.hdr.grayed = 0; +c_733323.tag = closureN_tag; + c_733323.fn = (function_type)__lambda_345; +c_733323.num_args = 2; +c_733323.num_elements = 3; +c_733323.elements = (object *)alloca(sizeof(object) * 3); +c_733323.elements[0] = ((closureN)self_73887)->elements[0]; +c_733323.elements[1] = ((closureN)self_73887)->elements[1]; +c_733323.elements[2] = ((closureN)self_73887)->elements[3]; + +return_closcall2(data,(closure)&c_733323, ((closureN)self_73887)->elements[2], r_73346);; +} + +static void __lambda_345(void *data, int argc, object self_73888, object c_73151, object next_73150) { + if( (boolean_f != Cyc_eq(obj_char2obj(124), c_73151)) ){ + +closureN_type c_733327; +c_733327.hdr.mark = gc_color_red; + c_733327.hdr.grayed = 0; +c_733327.tag = closureN_tag; + c_733327.fn = (function_type)__lambda_341; +c_733327.num_args = 0; +c_733327.num_elements = 1; +c_733327.elements = (object *)alloca(sizeof(object) * 1); +c_733327.elements[0] = ((closureN)self_73888)->elements[2]; + + +closureN_type c_733341; +c_733341.hdr.mark = gc_color_red; + c_733341.hdr.grayed = 0; +c_733341.tag = closureN_tag; + c_733341.fn = (function_type)__lambda_342; +c_733341.num_args = 1; +c_733341.num_elements = 1; +c_733341.elements = (object *)alloca(sizeof(object) * 1); +c_733341.elements[0] = ((closureN)self_73888)->elements[0]; + +return_closcall1(data,(closure)&c_733327, &c_733341); +} else { + if( (boolean_f != Cyc_is_eof_object(c_73151)) ){ + +closureN_type c_733349; +c_733349.hdr.mark = gc_color_red; + c_733349.hdr.grayed = 0; +c_733349.tag = closureN_tag; + c_733349.fn = (function_type)__lambda_344; +c_733349.num_args = 1; +c_733349.num_elements = 2; +c_733349.elements = (object *)alloca(sizeof(object) * 2); +c_733349.elements[0] = ((closureN)self_73888)->elements[0]; +c_733349.elements[1] = ((closureN)self_73888)->elements[1]; + +return_closcall2(data, __glo_in_91port_117get_91lnum_scheme_read, &c_733349, ((closureN)self_73888)->elements[1]); +} else { + return_closcall2(data, next_73150, ((closureN)self_73888)->elements[0], c_73151);} +} +; +} + +static void __lambda_344(void *data, int argc, object self_73889, object r_73353) { + +closureN_type c_733351; +c_733351.hdr.mark = gc_color_red; + c_733351.hdr.grayed = 0; +c_733351.tag = closureN_tag; + c_733351.fn = (function_type)__lambda_343; +c_733351.num_args = 1; +c_733351.num_elements = 2; +c_733351.elements = (object *)alloca(sizeof(object) * 2); +c_733351.elements[0] = ((closureN)self_73889)->elements[0]; +c_733351.elements[1] = r_73353; + +return_closcall2(data, __glo_in_91port_117get_91cnum_scheme_read, &c_733351, ((closureN)self_73889)->elements[1]);; +} + +static void __lambda_343(void *data, int argc, object self_73890, object r_73354) { + +make_string(c_733354, "EOF encountered parsing literal identifier"); +return_closcall4(data, __glo_parse_91error_scheme_read, ((closureN)self_73890)->elements[0], &c_733354, ((closureN)self_73890)->elements[1], r_73354);; +} + +static void __lambda_342(void *data, int argc, object self_73891, object str_73152) { + return_closcall1(data, ((closureN)self_73891)->elements[0], Cyc_string2symbol(data, str_73152));; +} + +static void __lambda_341(void *data, int argc, object self_73892, object k_73349) { + if( (boolean_f != Cyc_is_null(((closureN)self_73892)->elements[0])) ){ + +make_string(c_733332, "||"); +return_closcall1(data, k_73349, &c_733332); +} else { + +closureN_type c_733334; +c_733334.hdr.mark = gc_color_red; + c_733334.hdr.grayed = 0; +c_733334.tag = closureN_tag; + c_733334.fn = (function_type)__lambda_340; +c_733334.num_args = 1; +c_733334.num_elements = 1; +c_733334.elements = (object *)alloca(sizeof(object) * 1); +c_733334.elements[0] = k_73349; + +return_closcall2(data, __glo_reverse_scheme_base, &c_733334, ((closureN)self_73892)->elements[0]);} +; +} + +static void __lambda_340(void *data, int argc, object self_73893, object r_73351) { + +object c_733339 = Cyc_list2string(data, ((closureN)self_73893)->elements[0],r_73351); +return_closcall1(data, ((closureN)self_73893)->elements[0], c_733339);; +} + +static void __lambda_339(void *data, int argc, closure _,object k_73359, object fp_73157, object toks_73156, object all_127_73155, object parens_73154, object ptbl_73153) { + Cyc_st_add(data, "scheme/read.sld:parse-literal-identifier"); + +closureN_type c_733296; +c_733296.hdr.mark = gc_color_red; + c_733296.hdr.grayed = 0; +c_733296.tag = closureN_tag; + c_733296.fn = (function_type)__lambda_338; +c_733296.num_args = 1; +c_733296.num_elements = 6; +c_733296.elements = (object *)alloca(sizeof(object) * 6); +c_733296.elements[0] = all_127_73155; +c_733296.elements[1] = fp_73157; +c_733296.elements[2] = k_73359; +c_733296.elements[3] = parens_73154; +c_733296.elements[4] = ptbl_73153; +c_733296.elements[5] = toks_73156; + +return_closcall1(data,(closure)&c_733296, NULL);; +} + +static void __lambda_338(void *data, int argc, object self_73894, object r_73363) { + +closureN_type c_733298; +c_733298.hdr.mark = gc_color_red; + c_733298.hdr.grayed = 0; +c_733298.tag = closureN_tag; + c_733298.fn = (function_type)__lambda_337; +c_733298.num_args = 1; +c_733298.num_elements = 6; +c_733298.elements = (object *)alloca(sizeof(object) * 6); +c_733298.elements[0] = ((closureN)self_73894)->elements[0]; +c_733298.elements[1] = ((closureN)self_73894)->elements[1]; +c_733298.elements[2] = ((closureN)self_73894)->elements[2]; +c_733298.elements[3] = ((closureN)self_73894)->elements[3]; +c_733298.elements[4] = ((closureN)self_73894)->elements[4]; +c_733298.elements[5] = ((closureN)self_73894)->elements[5]; + +return_closcall4(data, __glo_parse_91li_91rec_scheme_read, &c_733298, ((closureN)self_73894)->elements[1], r_73363, ((closureN)self_73894)->elements[4]);; +} + +static void __lambda_337(void *data, int argc, object self_73895, object sym_73158) { + if( (boolean_f != ((closureN)self_73895)->elements[0]) ){ + +closureN_type c_733301; +c_733301.hdr.mark = gc_color_red; + c_733301.hdr.grayed = 0; +c_733301.tag = closureN_tag; + c_733301.fn = (function_type)__lambda_336; +c_733301.num_args = 1; +c_733301.num_elements = 7; +c_733301.elements = (object *)alloca(sizeof(object) * 7); +c_733301.elements[0] = ((closureN)self_73895)->elements[0]; +c_733301.elements[1] = ((closureN)self_73895)->elements[1]; +c_733301.elements[2] = ((closureN)self_73895)->elements[2]; +c_733301.elements[3] = ((closureN)self_73895)->elements[3]; +c_733301.elements[4] = ((closureN)self_73895)->elements[4]; +c_733301.elements[5] = sym_73158; +c_733301.elements[6] = ((closureN)self_73895)->elements[5]; + +return_closcall1(data,(closure)&c_733301, NULL); +} else { + return_closcall1(data, ((closureN)self_73895)->elements[2], sym_73158);} +; +} + +static void __lambda_336(void *data, int argc, object self_73896, object r_73361) { + +make_pair(c_733307,((closureN)self_73896)->elements[5], ((closureN)self_73896)->elements[6]); +return_closcall8(data, __glo_parse_scheme_read, ((closureN)self_73896)->elements[2], ((closureN)self_73896)->elements[1], r_73361, &c_733307, ((closureN)self_73896)->elements[0], boolean_f, ((closureN)self_73896)->elements[3], ((closureN)self_73896)->elements[4]);; +} + +static void __lambda_335(void *data, int argc, closure _,object k_73366, object fp_73160, object ptbl_73159) { + Cyc_st_add(data, "scheme/read.sld:read-block-terminator"); + +closureN_type c_733279; +c_733279.hdr.mark = gc_color_red; + c_733279.hdr.grayed = 0; +c_733279.tag = closureN_tag; + c_733279.fn = (function_type)__lambda_334; +c_733279.num_args = 1; +c_733279.num_elements = 3; +c_733279.elements = (object *)alloca(sizeof(object) * 3); +c_733279.elements[0] = fp_73160; +c_733279.elements[1] = k_73366; +c_733279.elements[2] = ptbl_73159; + +return_closcall3(data, __glo_get_91next_91char_scheme_read, &c_733279, fp_73160, ptbl_73159);; +} + +static void __lambda_334(void *data, int argc, object self_73897, object c_73161) { + if( (boolean_f != Cyc_eq(obj_char2obj(35), c_73161)) ){ + return_closcall1(data, ((closureN)self_73897)->elements[1], boolean_t); +} else { + if( (boolean_f != Cyc_eq(obj_char2obj(124), c_73161)) ){ + return_closcall3(data, __glo_read_91block_91terminator_scheme_read, ((closureN)self_73897)->elements[1], ((closureN)self_73897)->elements[0], ((closureN)self_73897)->elements[2]); +} else { + return_closcall3(data, __glo_read_91block_91comment_scheme_read, ((closureN)self_73897)->elements[1], ((closureN)self_73897)->elements[0], ((closureN)self_73897)->elements[2]);} +} +; +} + +static void __lambda_333(void *data, int argc, closure _,object k_73372, object fp_73163, object ptbl_73162) { + Cyc_st_add(data, "scheme/read.sld:read-block-comment"); + +closureN_type c_733266; +c_733266.hdr.mark = gc_color_red; + c_733266.hdr.grayed = 0; +c_733266.tag = closureN_tag; + c_733266.fn = (function_type)__lambda_332; +c_733266.num_args = 1; +c_733266.num_elements = 3; +c_733266.elements = (object *)alloca(sizeof(object) * 3); +c_733266.elements[0] = fp_73163; +c_733266.elements[1] = k_73372; +c_733266.elements[2] = ptbl_73162; + +return_closcall3(data, __glo_get_91next_91char_scheme_read, &c_733266, fp_73163, ptbl_73162);; +} + +static void __lambda_332(void *data, int argc, object self_73898, object c_73164) { + if( (boolean_f != Cyc_eq(obj_char2obj(124), c_73164)) ){ + return_closcall3(data, __glo_read_91block_91terminator_scheme_read, ((closureN)self_73898)->elements[1], ((closureN)self_73898)->elements[0], ((closureN)self_73898)->elements[2]); +} else { + return_closcall3(data, __glo_read_91block_91comment_scheme_read, ((closureN)self_73898)->elements[1], ((closureN)self_73898)->elements[0], ((closureN)self_73898)->elements[2]);} +; +} + +static void __lambda_331(void *data, int argc, closure _,object k_73377, object fp_73166, object ptbl_73165) { + Cyc_st_add(data, "scheme/read.sld:get-next-char"); + +closureN_type c_733254; +c_733254.hdr.mark = gc_color_red; + c_733254.hdr.grayed = 0; +c_733254.tag = closureN_tag; + c_733254.fn = (function_type)__lambda_330; +c_733254.num_args = 1; +c_733254.num_elements = 3; +c_733254.elements = (object *)alloca(sizeof(object) * 3); +c_733254.elements[0] = fp_73166; +c_733254.elements[1] = k_73377; +c_733254.elements[2] = ptbl_73165; + +return_closcall2(data, __glo_in_91port_117get_91buf_scheme_read, &c_733254, ptbl_73165);; +} + +static void __lambda_330(void *data, int argc, object self_73899, object r_73378) { + if( (boolean_f != r_73378) ){ + return_closcall2(data, __glo_in_91port_117read_91buf_67_scheme_read, ((closureN)self_73899)->elements[1], ((closureN)self_73899)->elements[2]); +} else { + +object c_733262 = Cyc_io_read_char(data, ((closureN)self_73899)->elements[1],((closureN)self_73899)->elements[0]); +return_closcall1(data, ((closureN)self_73899)->elements[1], c_733262);} +; +} + +static void __lambda_329(void *data, int argc, closure _,object k_73381, object a_73167) { + Cyc_st_add(data, "scheme/read.sld:parse-atom"); + +closureN_type c_733230; +c_733230.hdr.mark = gc_color_red; + c_733230.hdr.grayed = 0; +c_733230.tag = closureN_tag; + c_733230.fn = (function_type)__lambda_328; +c_733230.num_args = 1; +c_733230.num_elements = 2; +c_733230.elements = (object *)alloca(sizeof(object) * 2); +c_733230.elements[0] = a_73167; +c_733230.elements[1] = k_73381; + +return_closcall2(data, __glo_token_91numeric_127_scheme_read, &c_733230, a_73167);; +} + +static void __lambda_328(void *data, int argc, object self_73900, object r_73382) { + if( (boolean_f != r_73382) ){ + +closureN_type c_733232; +c_733232.hdr.mark = gc_color_red; + c_733232.hdr.grayed = 0; +c_733232.tag = closureN_tag; + c_733232.fn = (function_type)__lambda_326; +c_733232.num_args = 1; +c_733232.num_elements = 1; +c_733232.elements = (object *)alloca(sizeof(object) * 1); +c_733232.elements[0] = ((closureN)self_73900)->elements[1]; + + +object c_733240 = Cyc_list2string(data,(closure)&c_733232,((closureN)self_73900)->elements[0]); +return_closcall1(data,(closure)&c_733232, c_733240); +} else { + +closureN_type c_733243; +c_733243.hdr.mark = gc_color_red; + c_733243.hdr.grayed = 0; +c_733243.tag = closureN_tag; + c_733243.fn = (function_type)__lambda_327; +c_733243.num_args = 1; +c_733243.num_elements = 1; +c_733243.elements = (object *)alloca(sizeof(object) * 1); +c_733243.elements[0] = ((closureN)self_73900)->elements[1]; + + +object c_733250 = Cyc_list2string(data,(closure)&c_733243,((closureN)self_73900)->elements[0]); +return_closcall1(data,(closure)&c_733243, c_733250);} +; +} + +static void __lambda_327(void *data, int argc, object self_73901, object r_73384) { + return_closcall1(data, ((closureN)self_73901)->elements[0], Cyc_string2symbol(data, r_73384));; +} + +static void __lambda_326(void *data, int argc, object self_73902, object r_73383) { + +object c_733237 = Cyc_string2number2_(data, ((closureN)self_73902)->elements[0],1,r_73383); +return_closcall1(data, ((closureN)self_73902)->elements[0], c_733237);; +} + +static void __lambda_325(void *data, int argc, closure _,object k_73387, object a_73168) { + Cyc_st_add(data, "scheme/read.sld:token-numeric?"); + +closureN_type c_733162; +c_733162.hdr.mark = gc_color_red; + c_733162.hdr.grayed = 0; +c_733162.tag = closureN_tag; + c_733162.fn = (function_type)__lambda_324; +c_733162.num_args = 1; +c_733162.num_elements = 2; +c_733162.elements = (object *)alloca(sizeof(object) * 2); +c_733162.elements[0] = a_73168; +c_733162.elements[1] = k_73387; + +return_closcall2(data, __glo_char_91numeric_127_scheme__char, &c_733162, car(a_73168));; +} + +static void __lambda_324(void *data, int argc, object self_73903, object tmp_73169) { + if( (boolean_f != tmp_73169) ){ + return_closcall1(data, ((closureN)self_73903)->elements[1], tmp_73169); +} else { + +closureN_type c_733166; +c_733166.hdr.mark = gc_color_red; + c_733166.hdr.grayed = 0; +c_733166.tag = closureN_tag; + c_733166.fn = (function_type)__lambda_318; +c_733166.num_args = 0; +c_733166.num_elements = 1; +c_733166.elements = (object *)alloca(sizeof(object) * 1); +c_733166.elements[0] = ((closureN)self_73903)->elements[0]; + + +closureN_type c_733189; +c_733189.hdr.mark = gc_color_red; + c_733189.hdr.grayed = 0; +c_733189.tag = closureN_tag; + c_733189.fn = (function_type)__lambda_323; +c_733189.num_args = 1; +c_733189.num_elements = 2; +c_733189.elements = (object *)alloca(sizeof(object) * 2); +c_733189.elements[0] = ((closureN)self_73903)->elements[0]; +c_733189.elements[1] = ((closureN)self_73903)->elements[1]; + +return_closcall1(data,(closure)&c_733166, &c_733189);} +; +} + +static void __lambda_323(void *data, int argc, object self_73904, object tmp_73170) { + if( (boolean_f != tmp_73170) ){ + return_closcall1(data, ((closureN)self_73904)->elements[1], tmp_73170); +} else { + +closureN_type c_733193; +c_733193.hdr.mark = gc_color_red; + c_733193.hdr.grayed = 0; +c_733193.tag = closureN_tag; + c_733193.fn = (function_type)__lambda_322; +c_733193.num_args = 1; +c_733193.num_elements = 2; +c_733193.elements = (object *)alloca(sizeof(object) * 2); +c_733193.elements[0] = ((closureN)self_73904)->elements[0]; +c_733193.elements[1] = ((closureN)self_73904)->elements[1]; + + +object c_733222 = Cyc_num_gt(data,(closure)&c_733193,2,Cyc_length(data, ((closureN)self_73904)->elements[0]), obj_int2obj(1)); +return_closcall1(data,(closure)&c_733193, c_733222);} +; +} + +static void __lambda_322(void *data, int argc, object self_73905, object r_73390) { + if( (boolean_f != r_73390) ){ + +closureN_type c_733195; +c_733195.hdr.mark = gc_color_red; + c_733195.hdr.grayed = 0; +c_733195.tag = closureN_tag; + c_733195.fn = (function_type)__lambda_321; +c_733195.num_args = 1; +c_733195.num_elements = 2; +c_733195.elements = (object *)alloca(sizeof(object) * 2); +c_733195.elements[0] = ((closureN)self_73905)->elements[0]; +c_733195.elements[1] = ((closureN)self_73905)->elements[1]; + +return_closcall2(data, __glo_char_91numeric_127_scheme__char, &c_733195, cadr(((closureN)self_73905)->elements[0])); +} else { + return_closcall1(data, ((closureN)self_73905)->elements[1], boolean_f);} +; +} + +static void __lambda_321(void *data, int argc, object self_73906, object tmp_73171) { + +closureN_type c_733197; +c_733197.hdr.mark = gc_color_red; + c_733197.hdr.grayed = 0; +c_733197.tag = closureN_tag; + c_733197.fn = (function_type)__lambda_319; +c_733197.num_args = 0; +c_733197.num_elements = 2; +c_733197.elements = (object *)alloca(sizeof(object) * 2); +c_733197.elements[0] = ((closureN)self_73906)->elements[0]; +c_733197.elements[1] = tmp_73171; + + +closureN_type c_733207; +c_733207.hdr.mark = gc_color_red; + c_733207.hdr.grayed = 0; +c_733207.tag = closureN_tag; + c_733207.fn = (function_type)__lambda_320; +c_733207.num_args = 1; +c_733207.num_elements = 2; +c_733207.elements = (object *)alloca(sizeof(object) * 2); +c_733207.elements[0] = ((closureN)self_73906)->elements[0]; +c_733207.elements[1] = ((closureN)self_73906)->elements[1]; + +return_closcall1(data,(closure)&c_733197, &c_733207);; +} + +static void __lambda_320(void *data, int argc, object self_73907, object r_73391) { + if( (boolean_f != r_73391) ){ + return_closcall2(data, __glo_sign_127_scheme_read, ((closureN)self_73907)->elements[1], car(((closureN)self_73907)->elements[0])); +} else { + return_closcall1(data, ((closureN)self_73907)->elements[1], boolean_f);} +; +} + +static void __lambda_319(void *data, int argc, object self_73908, object k_73394) { + if( (boolean_f != ((closureN)self_73908)->elements[1]) ){ + return_closcall1(data, k_73394, ((closureN)self_73908)->elements[1]); +} else { + return_closcall1(data, k_73394, Cyc_eq(obj_char2obj(46), cadr(((closureN)self_73908)->elements[0])));} +; +} + +static void __lambda_318(void *data, int argc, object self_73909, object k_73398) { + +closureN_type c_733168; +c_733168.hdr.mark = gc_color_red; + c_733168.hdr.grayed = 0; +c_733168.tag = closureN_tag; + c_733168.fn = (function_type)__lambda_317; +c_733168.num_args = 1; +c_733168.num_elements = 2; +c_733168.elements = (object *)alloca(sizeof(object) * 2); +c_733168.elements[0] = ((closureN)self_73909)->elements[0]; +c_733168.elements[1] = k_73398; + + +object c_733185 = Cyc_num_gt(data,(closure)&c_733168,2,Cyc_length(data, ((closureN)self_73909)->elements[0]), obj_int2obj(1)); +return_closcall1(data,(closure)&c_733168, c_733185);; +} + +static void __lambda_317(void *data, int argc, object self_73910, object r_73399) { + if( (boolean_f != r_73399) ){ + if( (boolean_f != Cyc_eq(obj_char2obj(46), car(((closureN)self_73910)->elements[0]))) ){ + return_closcall2(data, __glo_char_91numeric_127_scheme__char, ((closureN)self_73910)->elements[1], cadr(((closureN)self_73910)->elements[0])); +} else { + return_closcall1(data, ((closureN)self_73910)->elements[1], boolean_f);} + +} else { + return_closcall1(data, ((closureN)self_73910)->elements[1], boolean_f);} +; +} + +static void __lambda_316(void *data, int argc, closure _,object k_73407, object c_73172) { + Cyc_st_add(data, "scheme/read.sld:sign?"); +if( (boolean_f != equalp(c_73172, obj_char2obj(43))) ){ + return_closcall1(data, k_73407, equalp(c_73172, obj_char2obj(43))); +} else { + return_closcall1(data, k_73407, equalp(c_73172, obj_char2obj(45)));} +; +} + +static void __lambda_315(void *data, int argc, closure _,object k_73411, object fp_73176, object buf_73175, object ptbl_73174) { + Cyc_st_add(data, "scheme/read.sld:read-str-esc"); + +closureN_type c_733080; +c_733080.hdr.mark = gc_color_red; + c_733080.hdr.grayed = 0; +c_733080.tag = closureN_tag; + c_733080.fn = (function_type)__lambda_314; +c_733080.num_args = 1; +c_733080.num_elements = 3; +c_733080.elements = (object *)alloca(sizeof(object) * 3); +c_733080.elements[0] = buf_73175; +c_733080.elements[1] = k_73411; +c_733080.elements[2] = ptbl_73174; + + +object c_733150 = Cyc_io_read_char(data,(closure)&c_733080,fp_73176); +return_closcall1(data,(closure)&c_733080, c_733150);; +} + +static void __lambda_314(void *data, int argc, object self_73911, object c_73177) { + if( (boolean_f != Cyc_is_eof_object(c_73177)) ){ + +closureN_type c_733084; +c_733084.hdr.mark = gc_color_red; + c_733084.hdr.grayed = 0; +c_733084.tag = closureN_tag; + c_733084.fn = (function_type)__lambda_306; +c_733084.num_args = 1; +c_733084.num_elements = 2; +c_733084.elements = (object *)alloca(sizeof(object) * 2); +c_733084.elements[0] = ((closureN)self_73911)->elements[1]; +c_733084.elements[1] = ((closureN)self_73911)->elements[2]; + +return_closcall2(data, __glo_in_91port_117get_91lnum_scheme_read, &c_733084, ((closureN)self_73911)->elements[2]); +} else { + +closureN_type c_733094; +c_733094.hdr.mark = gc_color_red; + c_733094.hdr.grayed = 0; +c_733094.tag = closureN_tag; + c_733094.fn = (function_type)__lambda_307; +c_733094.num_args = 0; +c_733094.num_elements = 1; +c_733094.elements = (object *)alloca(sizeof(object) * 1); +c_733094.elements[0] = c_73177; + + +closureN_type c_733106; +c_733106.hdr.mark = gc_color_red; + c_733106.hdr.grayed = 0; +c_733106.tag = closureN_tag; + c_733106.fn = (function_type)__lambda_313; +c_733106.num_args = 1; +c_733106.num_elements = 4; +c_733106.elements = (object *)alloca(sizeof(object) * 4); +c_733106.elements[0] = ((closureN)self_73911)->elements[0]; +c_733106.elements[1] = c_73177; +c_733106.elements[2] = ((closureN)self_73911)->elements[1]; +c_733106.elements[3] = ((closureN)self_73911)->elements[2]; + +return_closcall1(data,(closure)&c_733094, &c_733106);} +; +} + +static void __lambda_313(void *data, int argc, object self_73912, object r_73416) { + if( (boolean_f != r_73416) ){ + +make_pair(c_733111,((closureN)self_73912)->elements[1], ((closureN)self_73912)->elements[0]); +return_closcall1(data, ((closureN)self_73912)->elements[2], &c_733111); +} else { + if( (boolean_f != equalp(obj_char2obj(110), ((closureN)self_73912)->elements[1])) ){ + +make_pair(c_733121,obj_char2obj(10), ((closureN)self_73912)->elements[0]); +return_closcall1(data, ((closureN)self_73912)->elements[2], &c_733121); +} else { + +closureN_type c_733124; +c_733124.hdr.mark = gc_color_red; + c_733124.hdr.grayed = 0; +c_733124.tag = closureN_tag; + c_733124.fn = (function_type)__lambda_312; +c_733124.num_args = 1; +c_733124.num_elements = 2; +c_733124.elements = (object *)alloca(sizeof(object) * 2); +c_733124.elements[0] = ((closureN)self_73912)->elements[2]; +c_733124.elements[1] = ((closureN)self_73912)->elements[3]; + +return_closcall2(data, __glo__list_scheme_base, &c_733124, ((closureN)self_73912)->elements[1]);} +} +; +} + +static void __lambda_312(void *data, int argc, object self_73913, object r_73422) { + +closureN_type c_733126; +c_733126.hdr.mark = gc_color_red; + c_733126.hdr.grayed = 0; +c_733126.tag = closureN_tag; + c_733126.fn = (function_type)__lambda_311; +c_733126.num_args = 1; +c_733126.num_elements = 2; +c_733126.elements = (object *)alloca(sizeof(object) * 2); +c_733126.elements[0] = ((closureN)self_73913)->elements[0]; +c_733126.elements[1] = ((closureN)self_73913)->elements[1]; + + +object c_733146 = Cyc_list2string(data,(closure)&c_733126,r_73422); +return_closcall1(data,(closure)&c_733126, c_733146);; +} + +static void __lambda_311(void *data, int argc, object self_73914, object r_73421) { + +closureN_type c_733128; +c_733128.hdr.mark = gc_color_red; + c_733128.hdr.grayed = 0; +c_733128.tag = closureN_tag; + c_733128.fn = (function_type)__lambda_310; +c_733128.num_args = 1; +c_733128.num_elements = 2; +c_733128.elements = (object *)alloca(sizeof(object) * 2); +c_733128.elements[0] = ((closureN)self_73914)->elements[0]; +c_733128.elements[1] = ((closureN)self_73914)->elements[1]; + + +make_string(c_733142, "invalid escape character ["); + +make_string(c_733143, "] in string"); + +object c_733141 = Cyc_string_append(data,(closure)&c_733128,3,&c_733142, r_73421, &c_733143); +return_closcall1(data,(closure)&c_733128, c_733141);; +} + +static void __lambda_310(void *data, int argc, object self_73915, object r_73418) { + +closureN_type c_733130; +c_733130.hdr.mark = gc_color_red; + c_733130.hdr.grayed = 0; +c_733130.tag = closureN_tag; + c_733130.fn = (function_type)__lambda_309; +c_733130.num_args = 1; +c_733130.num_elements = 3; +c_733130.elements = (object *)alloca(sizeof(object) * 3); +c_733130.elements[0] = ((closureN)self_73915)->elements[0]; +c_733130.elements[1] = ((closureN)self_73915)->elements[1]; +c_733130.elements[2] = r_73418; + +return_closcall2(data, __glo_in_91port_117get_91lnum_scheme_read, &c_733130, ((closureN)self_73915)->elements[1]);; +} + +static void __lambda_309(void *data, int argc, object self_73916, object r_73419) { + +closureN_type c_733132; +c_733132.hdr.mark = gc_color_red; + c_733132.hdr.grayed = 0; +c_733132.tag = closureN_tag; + c_733132.fn = (function_type)__lambda_308; +c_733132.num_args = 1; +c_733132.num_elements = 3; +c_733132.elements = (object *)alloca(sizeof(object) * 3); +c_733132.elements[0] = ((closureN)self_73916)->elements[0]; +c_733132.elements[1] = ((closureN)self_73916)->elements[2]; +c_733132.elements[2] = r_73419; + +return_closcall2(data, __glo_in_91port_117get_91cnum_scheme_read, &c_733132, ((closureN)self_73916)->elements[1]);; +} + +static void __lambda_308(void *data, int argc, object self_73917, object r_73420) { + return_closcall4(data, __glo_parse_91error_scheme_read, ((closureN)self_73917)->elements[0], ((closureN)self_73917)->elements[1], ((closureN)self_73917)->elements[2], r_73420);; +} + +static void __lambda_307(void *data, int argc, object self_73918, object k_73424) { + if( (boolean_f != equalp(obj_char2obj(34), ((closureN)self_73918)->elements[0])) ){ + return_closcall1(data, k_73424, equalp(obj_char2obj(34), ((closureN)self_73918)->elements[0])); +} else { + return_closcall1(data, k_73424, equalp(obj_char2obj(92), ((closureN)self_73918)->elements[0]));} +; +} + +static void __lambda_306(void *data, int argc, object self_73919, object r_73414) { + +closureN_type c_733086; +c_733086.hdr.mark = gc_color_red; + c_733086.hdr.grayed = 0; +c_733086.tag = closureN_tag; + c_733086.fn = (function_type)__lambda_305; +c_733086.num_args = 1; +c_733086.num_elements = 2; +c_733086.elements = (object *)alloca(sizeof(object) * 2); +c_733086.elements[0] = ((closureN)self_73919)->elements[0]; +c_733086.elements[1] = r_73414; + +return_closcall2(data, __glo_in_91port_117get_91cnum_scheme_read, &c_733086, ((closureN)self_73919)->elements[1]);; +} + +static void __lambda_305(void *data, int argc, object self_73920, object r_73415) { + +make_string(c_733089, "missing escaped character within string"); +return_closcall4(data, __glo_parse_91error_scheme_read, ((closureN)self_73920)->elements[0], &c_733089, ((closureN)self_73920)->elements[1], r_73415);; +} + +static void __lambda_304(void *data, int argc, closure _,object k_73427, object fp_73181, object buf_73180, object ptbl_73179) { + Cyc_st_add(data, "scheme/read.sld:read-str"); + +closureN_type c_733033; +c_733033.hdr.mark = gc_color_red; + c_733033.hdr.grayed = 0; +c_733033.tag = closureN_tag; + c_733033.fn = (function_type)__lambda_303; +c_733033.num_args = 1; +c_733033.num_elements = 4; +c_733033.elements = (object *)alloca(sizeof(object) * 4); +c_733033.elements[0] = buf_73180; +c_733033.elements[1] = fp_73181; +c_733033.elements[2] = k_73427; +c_733033.elements[3] = ptbl_73179; + + +object c_733077 = Cyc_io_read_char(data,(closure)&c_733033,fp_73181); +return_closcall1(data,(closure)&c_733033, c_733077);; +} + +static void __lambda_303(void *data, int argc, object self_73921, object c_73182) { + if( (boolean_f != Cyc_is_eof_object(c_73182)) ){ + +closureN_type c_733037; +c_733037.hdr.mark = gc_color_red; + c_733037.hdr.grayed = 0; +c_733037.tag = closureN_tag; + c_733037.fn = (function_type)__lambda_300; +c_733037.num_args = 1; +c_733037.num_elements = 2; +c_733037.elements = (object *)alloca(sizeof(object) * 2); +c_733037.elements[0] = ((closureN)self_73921)->elements[2]; +c_733037.elements[1] = ((closureN)self_73921)->elements[3]; + +return_closcall2(data, __glo_in_91port_117get_91lnum_scheme_read, &c_733037, ((closureN)self_73921)->elements[3]); +} else { + if( (boolean_f != equalp(obj_char2obj(92), c_73182)) ){ + +closureN_type c_733049; +c_733049.hdr.mark = gc_color_red; + c_733049.hdr.grayed = 0; +c_733049.tag = closureN_tag; + c_733049.fn = (function_type)__lambda_301; +c_733049.num_args = 1; +c_733049.num_elements = 3; +c_733049.elements = (object *)alloca(sizeof(object) * 3); +c_733049.elements[0] = ((closureN)self_73921)->elements[1]; +c_733049.elements[1] = ((closureN)self_73921)->elements[2]; +c_733049.elements[2] = ((closureN)self_73921)->elements[3]; + +return_closcall4(data, __glo_read_91str_91esc_scheme_read, &c_733049, ((closureN)self_73921)->elements[1], ((closureN)self_73921)->elements[0], ((closureN)self_73921)->elements[3]); +} else { + if( (boolean_f != equalp(obj_char2obj(34), c_73182)) ){ + +closureN_type c_733060; +c_733060.hdr.mark = gc_color_red; + c_733060.hdr.grayed = 0; +c_733060.tag = closureN_tag; + c_733060.fn = (function_type)__lambda_302; +c_733060.num_args = 1; +c_733060.num_elements = 1; +c_733060.elements = (object *)alloca(sizeof(object) * 1); +c_733060.elements[0] = ((closureN)self_73921)->elements[2]; + +return_closcall2(data, __glo_reverse_scheme_base, &c_733060, ((closureN)self_73921)->elements[0]); +} else { + +make_pair(c_733072,c_73182, ((closureN)self_73921)->elements[0]); +return_closcall4(data, __glo_read_91str_scheme_read, ((closureN)self_73921)->elements[2], ((closureN)self_73921)->elements[1], &c_733072, ((closureN)self_73921)->elements[3]);} +} +} +; +} + +static void __lambda_302(void *data, int argc, object self_73922, object r_73435) { + +object c_733065 = Cyc_list2string(data, ((closureN)self_73922)->elements[0],r_73435); +return_closcall1(data, ((closureN)self_73922)->elements[0], c_733065);; +} + +static void __lambda_301(void *data, int argc, object self_73923, object r_73433) { + return_closcall4(data, __glo_read_91str_scheme_read, ((closureN)self_73923)->elements[1], ((closureN)self_73923)->elements[0], r_73433, ((closureN)self_73923)->elements[2]);; +} + +static void __lambda_300(void *data, int argc, object self_73924, object r_73430) { + +closureN_type c_733039; +c_733039.hdr.mark = gc_color_red; + c_733039.hdr.grayed = 0; +c_733039.tag = closureN_tag; + c_733039.fn = (function_type)__lambda_299; +c_733039.num_args = 1; +c_733039.num_elements = 2; +c_733039.elements = (object *)alloca(sizeof(object) * 2); +c_733039.elements[0] = ((closureN)self_73924)->elements[0]; +c_733039.elements[1] = r_73430; + +return_closcall2(data, __glo_in_91port_117get_91cnum_scheme_read, &c_733039, ((closureN)self_73924)->elements[1]);; +} + +static void __lambda_299(void *data, int argc, object self_73925, object r_73431) { + +make_string(c_733042, "missing closing double-quote"); +return_closcall4(data, __glo_parse_91error_scheme_read, ((closureN)self_73925)->elements[0], &c_733042, ((closureN)self_73925)->elements[1], r_73431);; +} + +static void __lambda_298(void *data, int argc, closure _,object k_73439, object fp_73184, object ptbl_73183) { + Cyc_st_add(data, "scheme/read.sld:read-pound"); + +closureN_type c_732721; +c_732721.hdr.mark = gc_color_red; + c_732721.hdr.grayed = 0; +c_732721.tag = closureN_tag; + c_732721.fn = (function_type)__lambda_297; +c_732721.num_args = 2; +c_732721.num_elements = 3; +c_732721.elements = (object *)alloca(sizeof(object) * 3); +c_732721.elements[0] = fp_73184; +c_732721.elements[1] = k_73439; +c_732721.elements[2] = ptbl_73183; + +return_closcall2(data,(closure)&c_732721, boolean_f, boolean_f);; +} + +static void __lambda_297(void *data, int argc, object self_73926, object done_73188, object loop_73187) { + +closureN_type c_732723; +c_732723.hdr.mark = gc_color_red; + c_732723.hdr.grayed = 0; +c_732723.tag = closureN_tag; + c_732723.fn = (function_type)__lambda_296; +c_732723.num_args = 1; +c_732723.num_elements = 4; +c_732723.elements = (object *)alloca(sizeof(object) * 4); +c_732723.elements[0] = ((closureN)self_73926)->elements[0]; +c_732723.elements[1] = ((closureN)self_73926)->elements[1]; +c_732723.elements[2] = loop_73187; +c_732723.elements[3] = ((closureN)self_73926)->elements[2]; + + +make_cell(c_733030,done_73188); +return_closcall1(data,(closure)&c_732723, &c_733030);; +} + +static void __lambda_296(void *data, int argc, object self_73927, object done_73188) { + +closureN_type c_732725; +c_732725.hdr.mark = gc_color_red; + c_732725.hdr.grayed = 0; +c_732725.tag = closureN_tag; + c_732725.fn = (function_type)__lambda_295; +c_732725.num_args = 1; +c_732725.num_elements = 4; +c_732725.elements = (object *)alloca(sizeof(object) * 4); +c_732725.elements[0] = done_73188; +c_732725.elements[1] = ((closureN)self_73927)->elements[0]; +c_732725.elements[2] = ((closureN)self_73927)->elements[1]; +c_732725.elements[3] = ((closureN)self_73927)->elements[3]; + + +make_cell(c_733026,((closureN)self_73927)->elements[2]); +return_closcall1(data,(closure)&c_732725, &c_733026);; +} + +static void __lambda_295(void *data, int argc, object self_73928, object loop_73187) { + +closureN_type c_732727; +c_732727.hdr.mark = gc_color_red; + c_732727.hdr.grayed = 0; +c_732727.tag = closureN_tag; + c_732727.fn = (function_type)__lambda_270; +c_732727.num_args = 1; +c_732727.num_elements = 4; +c_732727.elements = (object *)alloca(sizeof(object) * 4); +c_732727.elements[0] = ((closureN)self_73928)->elements[0]; +c_732727.elements[1] = ((closureN)self_73928)->elements[1]; +c_732727.elements[2] = ((closureN)self_73928)->elements[2]; +c_732727.elements[3] = loop_73187; + + +closureN_type c_732818; +c_732818.hdr.mark = gc_color_red; + c_732818.hdr.grayed = 0; +c_732818.tag = closureN_tag; + c_732818.fn = (function_type)__lambda_294; +c_732818.num_args = 1; +c_732818.num_elements = 1; +c_732818.elements = (object *)alloca(sizeof(object) * 1); +c_732818.elements[0] = ((closureN)self_73928)->elements[3]; + +return_closcall1(data,(closure)&c_732727, &c_732818);; +} + +static void __lambda_294(void *data, int argc, object self_73929, object k_73458, object raw_91buf_73195) { + +closureN_type c_732820; +c_732820.hdr.mark = gc_color_red; + c_732820.hdr.grayed = 0; +c_732820.tag = closureN_tag; + c_732820.fn = (function_type)__lambda_293; +c_732820.num_args = 1; +c_732820.num_elements = 2; +c_732820.elements = (object *)alloca(sizeof(object) * 2); +c_732820.elements[0] = k_73458; +c_732820.elements[1] = ((closureN)self_73929)->elements[0]; + +return_closcall2(data, __glo_reverse_scheme_base, &c_732820, raw_91buf_73195);; +} + +static void __lambda_293(void *data, int argc, object self_73930, object buf_73196) { + +closureN_type c_732822; +c_732822.hdr.mark = gc_color_red; + c_732822.hdr.grayed = 0; +c_732822.tag = closureN_tag; + c_732822.fn = (function_type)__lambda_292; +c_732822.num_args = 1; +c_732822.num_elements = 3; +c_732822.elements = (object *)alloca(sizeof(object) * 3); +c_732822.elements[0] = buf_73196; +c_732822.elements[1] = ((closureN)self_73930)->elements[0]; +c_732822.elements[2] = ((closureN)self_73930)->elements[1]; + + +object c_733021 = Cyc_num_eq(data,(closure)&c_732822,2,obj_int2obj(0), Cyc_length(data, buf_73196)); +return_closcall1(data,(closure)&c_732822, c_733021);; +} + +static void __lambda_292(void *data, int argc, object self_73931, object r_73460) { + if( (boolean_f != r_73460) ){ + +closureN_type c_732824; +c_732824.hdr.mark = gc_color_red; + c_732824.hdr.grayed = 0; +c_732824.tag = closureN_tag; + c_732824.fn = (function_type)__lambda_272; +c_732824.num_args = 1; +c_732824.num_elements = 2; +c_732824.elements = (object *)alloca(sizeof(object) * 2); +c_732824.elements[0] = ((closureN)self_73931)->elements[1]; +c_732824.elements[1] = ((closureN)self_73931)->elements[2]; + +return_closcall2(data, __glo_in_91port_117get_91lnum_scheme_read, &c_732824, ((closureN)self_73931)->elements[2]); +} else { + +closureN_type c_732834; +c_732834.hdr.mark = gc_color_red; + c_732834.hdr.grayed = 0; +c_732834.tag = closureN_tag; + c_732834.fn = (function_type)__lambda_291; +c_732834.num_args = 1; +c_732834.num_elements = 3; +c_732834.elements = (object *)alloca(sizeof(object) * 3); +c_732834.elements[0] = ((closureN)self_73931)->elements[0]; +c_732834.elements[1] = ((closureN)self_73931)->elements[1]; +c_732834.elements[2] = ((closureN)self_73931)->elements[2]; + + +object c_733015 = Cyc_num_eq(data,(closure)&c_732834,2,obj_int2obj(1), Cyc_length(data, ((closureN)self_73931)->elements[0])); +return_closcall1(data,(closure)&c_732834, c_733015);} +; +} + +static void __lambda_291(void *data, int argc, object self_73932, object r_73463) { + if( (boolean_f != r_73463) ){ + return_closcall1(data, ((closureN)self_73932)->elements[1], car(((closureN)self_73932)->elements[0])); +} else { + +closureN_type c_732841; +c_732841.hdr.mark = gc_color_red; + c_732841.hdr.grayed = 0; +c_732841.tag = closureN_tag; + c_732841.fn = (function_type)__lambda_290; +c_732841.num_args = 1; +c_732841.num_elements = 3; +c_732841.elements = (object *)alloca(sizeof(object) * 3); +c_732841.elements[0] = ((closureN)self_73932)->elements[0]; +c_732841.elements[1] = ((closureN)self_73932)->elements[1]; +c_732841.elements[2] = ((closureN)self_73932)->elements[2]; + + +make_pair(c_733012,obj_char2obj(109),NULL); + +make_pair(c_733011,obj_char2obj(114),&c_733012); + +make_pair(c_733010,obj_char2obj(97),&c_733011); + +make_pair(c_733009,obj_char2obj(108),&c_733010); + +make_pair(c_733008,obj_char2obj(97),&c_733009); +return_closcall1(data,(closure)&c_732841, &c_733008);} +; +} + +static void __lambda_290(void *data, int argc, object self_73933, object r_73493) { + if( (boolean_f != equalp(((closureN)self_73933)->elements[0], r_73493)) ){ + return_closcall1(data, ((closureN)self_73933)->elements[1], obj_char2obj(7)); +} else { + +closureN_type c_732848; +c_732848.hdr.mark = gc_color_red; + c_732848.hdr.grayed = 0; +c_732848.tag = closureN_tag; + c_732848.fn = (function_type)__lambda_289; +c_732848.num_args = 1; +c_732848.num_elements = 3; +c_732848.elements = (object *)alloca(sizeof(object) * 3); +c_732848.elements[0] = ((closureN)self_73933)->elements[0]; +c_732848.elements[1] = ((closureN)self_73933)->elements[1]; +c_732848.elements[2] = ((closureN)self_73933)->elements[2]; + + +make_pair(c_733007,obj_char2obj(101),NULL); + +make_pair(c_733006,obj_char2obj(99),&c_733007); + +make_pair(c_733005,obj_char2obj(97),&c_733006); + +make_pair(c_733004,obj_char2obj(112),&c_733005); + +make_pair(c_733003,obj_char2obj(115),&c_733004); + +make_pair(c_733002,obj_char2obj(107),&c_733003); + +make_pair(c_733001,obj_char2obj(99),&c_733002); + +make_pair(c_733000,obj_char2obj(97),&c_733001); + +make_pair(c_732999,obj_char2obj(98),&c_733000); +return_closcall1(data,(closure)&c_732848, &c_732999);} +; +} + +static void __lambda_289(void *data, int argc, object self_73934, object r_73492) { + if( (boolean_f != equalp(((closureN)self_73934)->elements[0], r_73492)) ){ + return_closcall1(data, ((closureN)self_73934)->elements[1], obj_char2obj(8)); +} else { + +closureN_type c_732855; +c_732855.hdr.mark = gc_color_red; + c_732855.hdr.grayed = 0; +c_732855.tag = closureN_tag; + c_732855.fn = (function_type)__lambda_288; +c_732855.num_args = 1; +c_732855.num_elements = 3; +c_732855.elements = (object *)alloca(sizeof(object) * 3); +c_732855.elements[0] = ((closureN)self_73934)->elements[0]; +c_732855.elements[1] = ((closureN)self_73934)->elements[1]; +c_732855.elements[2] = ((closureN)self_73934)->elements[2]; + + +make_pair(c_732998,obj_char2obj(101),NULL); + +make_pair(c_732997,obj_char2obj(116),&c_732998); + +make_pair(c_732996,obj_char2obj(101),&c_732997); + +make_pair(c_732995,obj_char2obj(108),&c_732996); + +make_pair(c_732994,obj_char2obj(101),&c_732995); + +make_pair(c_732993,obj_char2obj(100),&c_732994); +return_closcall1(data,(closure)&c_732855, &c_732993);} +; +} + +static void __lambda_288(void *data, int argc, object self_73935, object r_73491) { + if( (boolean_f != equalp(((closureN)self_73935)->elements[0], r_73491)) ){ + return_closcall1(data, ((closureN)self_73935)->elements[1], obj_char2obj(127)); +} else { + +closureN_type c_732862; +c_732862.hdr.mark = gc_color_red; + c_732862.hdr.grayed = 0; +c_732862.tag = closureN_tag; + c_732862.fn = (function_type)__lambda_287; +c_732862.num_args = 1; +c_732862.num_elements = 3; +c_732862.elements = (object *)alloca(sizeof(object) * 3); +c_732862.elements[0] = ((closureN)self_73935)->elements[0]; +c_732862.elements[1] = ((closureN)self_73935)->elements[1]; +c_732862.elements[2] = ((closureN)self_73935)->elements[2]; + + +make_pair(c_732992,obj_char2obj(101),NULL); + +make_pair(c_732991,obj_char2obj(112),&c_732992); + +make_pair(c_732990,obj_char2obj(97),&c_732991); + +make_pair(c_732989,obj_char2obj(99),&c_732990); + +make_pair(c_732988,obj_char2obj(115),&c_732989); + +make_pair(c_732987,obj_char2obj(101),&c_732988); +return_closcall1(data,(closure)&c_732862, &c_732987);} +; +} + +static void __lambda_287(void *data, int argc, object self_73936, object r_73490) { + if( (boolean_f != equalp(((closureN)self_73936)->elements[0], r_73490)) ){ + return_closcall1(data, ((closureN)self_73936)->elements[1], obj_char2obj(27)); +} else { + +closureN_type c_732869; +c_732869.hdr.mark = gc_color_red; + c_732869.hdr.grayed = 0; +c_732869.tag = closureN_tag; + c_732869.fn = (function_type)__lambda_286; +c_732869.num_args = 1; +c_732869.num_elements = 3; +c_732869.elements = (object *)alloca(sizeof(object) * 3); +c_732869.elements[0] = ((closureN)self_73936)->elements[0]; +c_732869.elements[1] = ((closureN)self_73936)->elements[1]; +c_732869.elements[2] = ((closureN)self_73936)->elements[2]; + + +make_pair(c_732986,obj_char2obj(101),NULL); + +make_pair(c_732985,obj_char2obj(110),&c_732986); + +make_pair(c_732984,obj_char2obj(105),&c_732985); + +make_pair(c_732983,obj_char2obj(108),&c_732984); + +make_pair(c_732982,obj_char2obj(119),&c_732983); + +make_pair(c_732981,obj_char2obj(101),&c_732982); + +make_pair(c_732980,obj_char2obj(110),&c_732981); +return_closcall1(data,(closure)&c_732869, &c_732980);} +; +} + +static void __lambda_286(void *data, int argc, object self_73937, object r_73489) { + if( (boolean_f != equalp(((closureN)self_73937)->elements[0], r_73489)) ){ + return_closcall1(data, ((closureN)self_73937)->elements[1], obj_char2obj(10)); +} else { + +closureN_type c_732876; +c_732876.hdr.mark = gc_color_red; + c_732876.hdr.grayed = 0; +c_732876.tag = closureN_tag; + c_732876.fn = (function_type)__lambda_285; +c_732876.num_args = 1; +c_732876.num_elements = 3; +c_732876.elements = (object *)alloca(sizeof(object) * 3); +c_732876.elements[0] = ((closureN)self_73937)->elements[0]; +c_732876.elements[1] = ((closureN)self_73937)->elements[1]; +c_732876.elements[2] = ((closureN)self_73937)->elements[2]; + + +make_pair(c_732979,obj_char2obj(108),NULL); + +make_pair(c_732978,obj_char2obj(108),&c_732979); + +make_pair(c_732977,obj_char2obj(117),&c_732978); + +make_pair(c_732976,obj_char2obj(110),&c_732977); +return_closcall1(data,(closure)&c_732876, &c_732976);} +; +} + +static void __lambda_285(void *data, int argc, object self_73938, object r_73488) { + if( (boolean_f != equalp(((closureN)self_73938)->elements[0], r_73488)) ){ + return_closcall1(data, ((closureN)self_73938)->elements[1], obj_char2obj(0)); +} else { + +closureN_type c_732883; +c_732883.hdr.mark = gc_color_red; + c_732883.hdr.grayed = 0; +c_732883.tag = closureN_tag; + c_732883.fn = (function_type)__lambda_284; +c_732883.num_args = 1; +c_732883.num_elements = 3; +c_732883.elements = (object *)alloca(sizeof(object) * 3); +c_732883.elements[0] = ((closureN)self_73938)->elements[0]; +c_732883.elements[1] = ((closureN)self_73938)->elements[1]; +c_732883.elements[2] = ((closureN)self_73938)->elements[2]; + + +make_pair(c_732975,obj_char2obj(110),NULL); + +make_pair(c_732974,obj_char2obj(114),&c_732975); + +make_pair(c_732973,obj_char2obj(117),&c_732974); + +make_pair(c_732972,obj_char2obj(116),&c_732973); + +make_pair(c_732971,obj_char2obj(101),&c_732972); + +make_pair(c_732970,obj_char2obj(114),&c_732971); +return_closcall1(data,(closure)&c_732883, &c_732970);} +; +} + +static void __lambda_284(void *data, int argc, object self_73939, object r_73487) { + if( (boolean_f != equalp(((closureN)self_73939)->elements[0], r_73487)) ){ + return_closcall1(data, ((closureN)self_73939)->elements[1], obj_char2obj(13)); +} else { + +closureN_type c_732890; +c_732890.hdr.mark = gc_color_red; + c_732890.hdr.grayed = 0; +c_732890.tag = closureN_tag; + c_732890.fn = (function_type)__lambda_283; +c_732890.num_args = 1; +c_732890.num_elements = 3; +c_732890.elements = (object *)alloca(sizeof(object) * 3); +c_732890.elements[0] = ((closureN)self_73939)->elements[0]; +c_732890.elements[1] = ((closureN)self_73939)->elements[1]; +c_732890.elements[2] = ((closureN)self_73939)->elements[2]; + + +make_pair(c_732969,obj_char2obj(101),NULL); + +make_pair(c_732968,obj_char2obj(99),&c_732969); + +make_pair(c_732967,obj_char2obj(97),&c_732968); + +make_pair(c_732966,obj_char2obj(112),&c_732967); + +make_pair(c_732965,obj_char2obj(115),&c_732966); +return_closcall1(data,(closure)&c_732890, &c_732965);} +; +} + +static void __lambda_283(void *data, int argc, object self_73940, object r_73486) { + if( (boolean_f != equalp(((closureN)self_73940)->elements[0], r_73486)) ){ + return_closcall1(data, ((closureN)self_73940)->elements[1], obj_char2obj(32)); +} else { + +closureN_type c_732897; +c_732897.hdr.mark = gc_color_red; + c_732897.hdr.grayed = 0; +c_732897.tag = closureN_tag; + c_732897.fn = (function_type)__lambda_282; +c_732897.num_args = 1; +c_732897.num_elements = 3; +c_732897.elements = (object *)alloca(sizeof(object) * 3); +c_732897.elements[0] = ((closureN)self_73940)->elements[0]; +c_732897.elements[1] = ((closureN)self_73940)->elements[1]; +c_732897.elements[2] = ((closureN)self_73940)->elements[2]; + + +make_pair(c_732964,obj_char2obj(98),NULL); + +make_pair(c_732963,obj_char2obj(97),&c_732964); + +make_pair(c_732962,obj_char2obj(116),&c_732963); +return_closcall1(data,(closure)&c_732897, &c_732962);} +; +} + +static void __lambda_282(void *data, int argc, object self_73941, object r_73485) { + if( (boolean_f != equalp(((closureN)self_73941)->elements[0], r_73485)) ){ + return_closcall1(data, ((closureN)self_73941)->elements[1], obj_char2obj(9)); +} else { + +closureN_type c_732904; +c_732904.hdr.mark = gc_color_red; + c_732904.hdr.grayed = 0; +c_732904.tag = closureN_tag; + c_732904.fn = (function_type)__lambda_274; +c_732904.num_args = 0; +c_732904.num_elements = 1; +c_732904.elements = (object *)alloca(sizeof(object) * 1); +c_732904.elements[0] = ((closureN)self_73941)->elements[0]; + + +closureN_type c_732922; +c_732922.hdr.mark = gc_color_red; + c_732922.hdr.grayed = 0; +c_732922.tag = closureN_tag; + c_732922.fn = (function_type)__lambda_281; +c_732922.num_args = 1; +c_732922.num_elements = 3; +c_732922.elements = (object *)alloca(sizeof(object) * 3); +c_732922.elements[0] = ((closureN)self_73941)->elements[0]; +c_732922.elements[1] = ((closureN)self_73941)->elements[1]; +c_732922.elements[2] = ((closureN)self_73941)->elements[2]; + +return_closcall1(data,(closure)&c_732904, &c_732922);} +; +} + +static void __lambda_281(void *data, int argc, object self_73942, object r_73473) { + if( (boolean_f != r_73473) ){ + +closureN_type c_732924; +c_732924.hdr.mark = gc_color_red; + c_732924.hdr.grayed = 0; +c_732924.tag = closureN_tag; + c_732924.fn = (function_type)__lambda_276; +c_732924.num_args = 1; +c_732924.num_elements = 1; +c_732924.elements = (object *)alloca(sizeof(object) * 1); +c_732924.elements[0] = ((closureN)self_73942)->elements[1]; + + +object c_732936 = Cyc_list2string(data,(closure)&c_732924,cdr(((closureN)self_73942)->elements[0])); +return_closcall1(data,(closure)&c_732924, c_732936); +} else { + +closureN_type c_732941; +c_732941.hdr.mark = gc_color_red; + c_732941.hdr.grayed = 0; +c_732941.tag = closureN_tag; + c_732941.fn = (function_type)__lambda_280; +c_732941.num_args = 1; +c_732941.num_elements = 2; +c_732941.elements = (object *)alloca(sizeof(object) * 2); +c_732941.elements[0] = ((closureN)self_73942)->elements[1]; +c_732941.elements[1] = ((closureN)self_73942)->elements[2]; + + +object c_732960 = Cyc_list2string(data,(closure)&c_732941,((closureN)self_73942)->elements[0]); +return_closcall1(data,(closure)&c_732941, c_732960);} +; +} + +static void __lambda_280(void *data, int argc, object self_73943, object r_73480) { + +closureN_type c_732943; +c_732943.hdr.mark = gc_color_red; + c_732943.hdr.grayed = 0; +c_732943.tag = closureN_tag; + c_732943.fn = (function_type)__lambda_279; +c_732943.num_args = 1; +c_732943.num_elements = 2; +c_732943.elements = (object *)alloca(sizeof(object) * 2); +c_732943.elements[0] = ((closureN)self_73943)->elements[0]; +c_732943.elements[1] = ((closureN)self_73943)->elements[1]; + + +make_string(c_732957, "unable to parse character: "); + +object c_732956 = Cyc_string_append(data,(closure)&c_732943,2,&c_732957, r_73480); +return_closcall1(data,(closure)&c_732943, c_732956);; +} + +static void __lambda_279(void *data, int argc, object self_73944, object r_73477) { + +closureN_type c_732945; +c_732945.hdr.mark = gc_color_red; + c_732945.hdr.grayed = 0; +c_732945.tag = closureN_tag; + c_732945.fn = (function_type)__lambda_278; +c_732945.num_args = 1; +c_732945.num_elements = 3; +c_732945.elements = (object *)alloca(sizeof(object) * 3); +c_732945.elements[0] = ((closureN)self_73944)->elements[0]; +c_732945.elements[1] = ((closureN)self_73944)->elements[1]; +c_732945.elements[2] = r_73477; + +return_closcall2(data, __glo_in_91port_117get_91lnum_scheme_read, &c_732945, ((closureN)self_73944)->elements[1]);; +} + +static void __lambda_278(void *data, int argc, object self_73945, object r_73478) { + +closureN_type c_732947; +c_732947.hdr.mark = gc_color_red; + c_732947.hdr.grayed = 0; +c_732947.tag = closureN_tag; + c_732947.fn = (function_type)__lambda_277; +c_732947.num_args = 1; +c_732947.num_elements = 3; +c_732947.elements = (object *)alloca(sizeof(object) * 3); +c_732947.elements[0] = ((closureN)self_73945)->elements[0]; +c_732947.elements[1] = ((closureN)self_73945)->elements[2]; +c_732947.elements[2] = r_73478; + +return_closcall2(data, __glo_in_91port_117get_91cnum_scheme_read, &c_732947, ((closureN)self_73945)->elements[1]);; +} + +static void __lambda_277(void *data, int argc, object self_73946, object r_73479) { + return_closcall4(data, __glo_parse_91error_scheme_read, ((closureN)self_73946)->elements[0], ((closureN)self_73946)->elements[1], ((closureN)self_73946)->elements[2], r_73479);; +} + +static void __lambda_276(void *data, int argc, object self_73947, object r_73475) { + +closureN_type c_732926; +c_732926.hdr.mark = gc_color_red; + c_732926.hdr.grayed = 0; +c_732926.tag = closureN_tag; + c_732926.fn = (function_type)__lambda_275; +c_732926.num_args = 1; +c_732926.num_elements = 1; +c_732926.elements = (object *)alloca(sizeof(object) * 1); +c_732926.elements[0] = ((closureN)self_73947)->elements[0]; + + +object c_732933 = Cyc_string2number2_(data,(closure)&c_732926,2,r_73475, obj_int2obj(16)); +return_closcall1(data,(closure)&c_732926, c_732933);; +} + +static void __lambda_275(void *data, int argc, object self_73948, object r_73474) { + return_closcall1(data, ((closureN)self_73948)->elements[0], Cyc_integer2char(data, r_73474));; +} + +static void __lambda_274(void *data, int argc, object self_73949, object k_73481) { + +closureN_type c_732906; +c_732906.hdr.mark = gc_color_red; + c_732906.hdr.grayed = 0; +c_732906.tag = closureN_tag; + c_732906.fn = (function_type)__lambda_273; +c_732906.num_args = 1; +c_732906.num_elements = 2; +c_732906.elements = (object *)alloca(sizeof(object) * 2); +c_732906.elements[0] = ((closureN)self_73949)->elements[0]; +c_732906.elements[1] = k_73481; + + +object c_732918 = Cyc_num_gt(data,(closure)&c_732906,2,Cyc_length(data, ((closureN)self_73949)->elements[0]), obj_int2obj(1)); +return_closcall1(data,(closure)&c_732906, c_732918);; +} + +static void __lambda_273(void *data, int argc, object self_73950, object r_73482) { + if( (boolean_f != r_73482) ){ + return_closcall1(data, ((closureN)self_73950)->elements[1], equalp(car(((closureN)self_73950)->elements[0]), obj_char2obj(120))); +} else { + return_closcall1(data, ((closureN)self_73950)->elements[1], boolean_f);} +; +} + +static void __lambda_272(void *data, int argc, object self_73951, object r_73461) { + +closureN_type c_732826; +c_732826.hdr.mark = gc_color_red; + c_732826.hdr.grayed = 0; +c_732826.tag = closureN_tag; + c_732826.fn = (function_type)__lambda_271; +c_732826.num_args = 1; +c_732826.num_elements = 2; +c_732826.elements = (object *)alloca(sizeof(object) * 2); +c_732826.elements[0] = ((closureN)self_73951)->elements[0]; +c_732826.elements[1] = r_73461; + +return_closcall2(data, __glo_in_91port_117get_91cnum_scheme_read, &c_732826, ((closureN)self_73951)->elements[1]);; +} + +static void __lambda_271(void *data, int argc, object self_73952, object r_73462) { + +make_string(c_732829, "missing character"); +return_closcall4(data, __glo_parse_91error_scheme_read, ((closureN)self_73952)->elements[0], &c_732829, ((closureN)self_73952)->elements[1], r_73462);; +} + +static void __lambda_270(void *data, int argc, object self_73953, object r_73457) { + +closureN_type c_732729; +c_732729.hdr.mark = gc_color_red; + c_732729.hdr.grayed = 0; +c_732729.tag = closureN_tag; + c_732729.fn = (function_type)__lambda_269; +c_732729.num_args = 1; +c_732729.num_elements = 4; +c_732729.elements = (object *)alloca(sizeof(object) * 4); +c_732729.elements[0] = ((closureN)self_73953)->elements[0]; +c_732729.elements[1] = ((closureN)self_73953)->elements[1]; +c_732729.elements[2] = ((closureN)self_73953)->elements[2]; +c_732729.elements[3] = ((closureN)self_73953)->elements[3]; + +return_closcall1(data,(closure)&c_732729, Cyc_set_car(data, ((closureN)self_73953)->elements[0], r_73457));; +} + +static void __lambda_269(void *data, int argc, object self_73954, object r_73440) { + +closureN_type c_732731; +c_732731.hdr.mark = gc_color_red; + c_732731.hdr.grayed = 0; +c_732731.tag = closureN_tag; + c_732731.fn = (function_type)__lambda_259; +c_732731.num_args = 1; +c_732731.num_elements = 2; +c_732731.elements = (object *)alloca(sizeof(object) * 2); +c_732731.elements[0] = ((closureN)self_73954)->elements[2]; +c_732731.elements[1] = ((closureN)self_73954)->elements[3]; + + +closureN_type c_732744; +c_732744.hdr.mark = gc_color_red; + c_732744.hdr.grayed = 0; +c_732744.tag = closureN_tag; + c_732744.fn = (function_type)__lambda_268; +c_732744.num_args = 1; +c_732744.num_elements = 3; +c_732744.elements = (object *)alloca(sizeof(object) * 3); +c_732744.elements[0] = ((closureN)self_73954)->elements[0]; +c_732744.elements[1] = ((closureN)self_73954)->elements[1]; +c_732744.elements[2] = ((closureN)self_73954)->elements[3]; + +return_closcall1(data,(closure)&c_732731, &c_732744);; +} + +static void __lambda_268(void *data, int argc, object self_73955, object k_73444, object buf_73191) { + +closureN_type c_732746; +c_732746.hdr.mark = gc_color_red; + c_732746.hdr.grayed = 0; +c_732746.tag = closureN_tag; + c_732746.fn = (function_type)__lambda_267; +c_732746.num_args = 1; +c_732746.num_elements = 5; +c_732746.elements = (object *)alloca(sizeof(object) * 5); +c_732746.elements[0] = buf_73191; +c_732746.elements[1] = ((closureN)self_73955)->elements[0]; +c_732746.elements[2] = ((closureN)self_73955)->elements[1]; +c_732746.elements[3] = k_73444; +c_732746.elements[4] = ((closureN)self_73955)->elements[2]; + + +object c_732813 = Cyc_io_peek_char(data,(closure)&c_732746,((closureN)self_73955)->elements[1]); +return_closcall1(data,(closure)&c_732746, c_732813);; +} + +static void __lambda_267(void *data, int argc, object self_73956, object c_73192) { + +closureN_type c_732748; +c_732748.hdr.mark = gc_color_red; + c_732748.hdr.grayed = 0; +c_732748.tag = closureN_tag; + c_732748.fn = (function_type)__lambda_264; +c_732748.num_args = 0; +c_732748.num_elements = 2; +c_732748.elements = (object *)alloca(sizeof(object) * 2); +c_732748.elements[0] = ((closureN)self_73956)->elements[0]; +c_732748.elements[1] = c_73192; + + +closureN_type c_732789; +c_732789.hdr.mark = gc_color_red; + c_732789.hdr.grayed = 0; +c_732789.tag = closureN_tag; + c_732789.fn = (function_type)__lambda_266; +c_732789.num_args = 1; +c_732789.num_elements = 5; +c_732789.elements = (object *)alloca(sizeof(object) * 5); +c_732789.elements[0] = ((closureN)self_73956)->elements[0]; +c_732789.elements[1] = ((closureN)self_73956)->elements[1]; +c_732789.elements[2] = ((closureN)self_73956)->elements[2]; +c_732789.elements[3] = ((closureN)self_73956)->elements[3]; +c_732789.elements[4] = ((closureN)self_73956)->elements[4]; + +return_closcall1(data,(closure)&c_732748, &c_732789);; +} + +static void __lambda_266(void *data, int argc, object self_73957, object r_73446) { + if( (boolean_f != r_73446) ){ + return_closcall2(data, cell_get(((closureN)self_73957)->elements[1]), ((closureN)self_73957)->elements[3], ((closureN)self_73957)->elements[0]); +} else { + +closureN_type c_732797; +c_732797.hdr.mark = gc_color_red; + c_732797.hdr.grayed = 0; +c_732797.tag = closureN_tag; + c_732797.fn = (function_type)__lambda_265; +c_732797.num_args = 1; +c_732797.num_elements = 3; +c_732797.elements = (object *)alloca(sizeof(object) * 3); +c_732797.elements[0] = ((closureN)self_73957)->elements[0]; +c_732797.elements[1] = ((closureN)self_73957)->elements[3]; +c_732797.elements[2] = ((closureN)self_73957)->elements[4]; + + +object c_732809 = Cyc_io_read_char(data,(closure)&c_732797,((closureN)self_73957)->elements[2]); +return_closcall1(data,(closure)&c_732797, c_732809);} +; +} + +static void __lambda_265(void *data, int argc, object self_73958, object r_73448) { + +make_pair(c_732805,r_73448, ((closureN)self_73958)->elements[0]); +return_closcall2(data, cell_get(((closureN)self_73958)->elements[2]), ((closureN)self_73958)->elements[1], &c_732805);; +} + +static void __lambda_264(void *data, int argc, object self_73959, object k_73450) { + if( (boolean_f != Cyc_is_eof_object(((closureN)self_73959)->elements[1])) ){ + return_closcall1(data, k_73450, Cyc_is_eof_object(((closureN)self_73959)->elements[1])); +} else { + +closureN_type c_732757; +c_732757.hdr.mark = gc_color_red; + c_732757.hdr.grayed = 0; +c_732757.tag = closureN_tag; + c_732757.fn = (function_type)__lambda_261; +c_732757.num_args = 0; +c_732757.num_elements = 2; +c_732757.elements = (object *)alloca(sizeof(object) * 2); +c_732757.elements[0] = ((closureN)self_73959)->elements[0]; +c_732757.elements[1] = ((closureN)self_73959)->elements[1]; + + +closureN_type c_732771; +c_732771.hdr.mark = gc_color_red; + c_732771.hdr.grayed = 0; +c_732771.tag = closureN_tag; + c_732771.fn = (function_type)__lambda_263; +c_732771.num_args = 1; +c_732771.num_elements = 3; +c_732771.elements = (object *)alloca(sizeof(object) * 3); +c_732771.elements[0] = ((closureN)self_73959)->elements[0]; +c_732771.elements[1] = ((closureN)self_73959)->elements[1]; +c_732771.elements[2] = k_73450; + +return_closcall1(data,(closure)&c_732757, &c_732771);} +; +} + +static void __lambda_263(void *data, int argc, object self_73960, object tmp_73194) { + if( (boolean_f != tmp_73194) ){ + return_closcall1(data, ((closureN)self_73960)->elements[2], tmp_73194); +} else { + +closureN_type c_732775; +c_732775.hdr.mark = gc_color_red; + c_732775.hdr.grayed = 0; +c_732775.tag = closureN_tag; + c_732775.fn = (function_type)__lambda_262; +c_732775.num_args = 1; +c_732775.num_elements = 2; +c_732775.elements = (object *)alloca(sizeof(object) * 2); +c_732775.elements[0] = ((closureN)self_73960)->elements[1]; +c_732775.elements[1] = ((closureN)self_73960)->elements[2]; + + +object c_732785 = Cyc_num_gt(data,(closure)&c_732775,2,Cyc_length(data, ((closureN)self_73960)->elements[0]), obj_int2obj(0)); +return_closcall1(data,(closure)&c_732775, c_732785);} +; +} + +static void __lambda_262(void *data, int argc, object self_73961, object r_73452) { + if( (boolean_f != r_73452) ){ + return_closcall1(data, ((closureN)self_73961)->elements[1], equalp(((closureN)self_73961)->elements[0], obj_char2obj(41))); +} else { + return_closcall1(data, ((closureN)self_73961)->elements[1], boolean_f);} +; +} + +static void __lambda_261(void *data, int argc, object self_73962, object k_73454) { + +closureN_type c_732759; +c_732759.hdr.mark = gc_color_red; + c_732759.hdr.grayed = 0; +c_732759.tag = closureN_tag; + c_732759.fn = (function_type)__lambda_260; +c_732759.num_args = 1; +c_732759.num_elements = 2; +c_732759.elements = (object *)alloca(sizeof(object) * 2); +c_732759.elements[0] = ((closureN)self_73962)->elements[0]; +c_732759.elements[1] = k_73454; + +return_closcall2(data, __glo_char_91whitespace_127_scheme__char, &c_732759, ((closureN)self_73962)->elements[1]);; +} + +static void __lambda_260(void *data, int argc, object self_73963, object r_73455) { + if( (boolean_f != r_73455) ){ + +object c_732764 = Cyc_num_gt(data, ((closureN)self_73963)->elements[1],2,Cyc_length(data, ((closureN)self_73963)->elements[0]), obj_int2obj(0)); +return_closcall1(data, ((closureN)self_73963)->elements[1], c_732764); +} else { + return_closcall1(data, ((closureN)self_73963)->elements[1], boolean_f);} +; +} + +static void __lambda_259(void *data, int argc, object self_73964, object r_73443) { + +closureN_type c_732733; +c_732733.hdr.mark = gc_color_red; + c_732733.hdr.grayed = 0; +c_732733.tag = closureN_tag; + c_732733.fn = (function_type)__lambda_258; +c_732733.num_args = 1; +c_732733.num_elements = 2; +c_732733.elements = (object *)alloca(sizeof(object) * 2); +c_732733.elements[0] = ((closureN)self_73964)->elements[0]; +c_732733.elements[1] = ((closureN)self_73964)->elements[1]; + +return_closcall1(data,(closure)&c_732733, Cyc_set_car(data, ((closureN)self_73964)->elements[1], r_73443));; +} + +static void __lambda_258(void *data, int argc, object self_73965, object r_73441) { + +closureN_type c_732735; +c_732735.hdr.mark = gc_color_red; + c_732735.hdr.grayed = 0; +c_732735.tag = closureN_tag; + c_732735.fn = (function_type)__lambda_257; +c_732735.num_args = 1; +c_732735.num_elements = 2; +c_732735.elements = (object *)alloca(sizeof(object) * 2); +c_732735.elements[0] = ((closureN)self_73965)->elements[0]; +c_732735.elements[1] = ((closureN)self_73965)->elements[1]; + +return_closcall1(data,(closure)&c_732735, NULL);; +} + +static void __lambda_257(void *data, int argc, object self_73966, object r_73442) { + return_closcall2(data, cell_get(((closureN)self_73966)->elements[1]), ((closureN)self_73966)->elements[0], r_73442);; +} + +static void __lambda_256(void *data, int argc, closure _,object k_73498, object fp_73203, object tok_73202, object toks_73201, object all_127_73200, object comment_127_73199, object parens_73198, object ptbl_73197) { + Cyc_st_add(data, "scheme/read.sld:parse"); + +closureN_type c_731419; +c_731419.hdr.mark = gc_color_red; + c_731419.hdr.grayed = 0; +c_731419.tag = closureN_tag; + c_731419.fn = (function_type)__lambda_255; +c_731419.num_args = 1; +c_731419.num_elements = 8; +c_731419.elements = (object *)alloca(sizeof(object) * 8); +c_731419.elements[0] = all_127_73200; +c_731419.elements[1] = comment_127_73199; +c_731419.elements[2] = fp_73203; +c_731419.elements[3] = k_73498; +c_731419.elements[4] = parens_73198; +c_731419.elements[5] = ptbl_73197; +c_731419.elements[6] = tok_73202; +c_731419.elements[7] = toks_73201; + +return_closcall2(data, __glo_in_91port_117get_91cnum_scheme_read, &c_731419, ptbl_73197);; +} + +static void __lambda_255(void *data, int argc, object self_73967, object r_73748) { + +closureN_type c_731421; +c_731421.hdr.mark = gc_color_red; + c_731421.hdr.grayed = 0; +c_731421.tag = closureN_tag; + c_731421.fn = (function_type)__lambda_254; +c_731421.num_args = 1; +c_731421.num_elements = 8; +c_731421.elements = (object *)alloca(sizeof(object) * 8); +c_731421.elements[0] = ((closureN)self_73967)->elements[0]; +c_731421.elements[1] = ((closureN)self_73967)->elements[1]; +c_731421.elements[2] = ((closureN)self_73967)->elements[2]; +c_731421.elements[3] = ((closureN)self_73967)->elements[3]; +c_731421.elements[4] = ((closureN)self_73967)->elements[4]; +c_731421.elements[5] = ((closureN)self_73967)->elements[5]; +c_731421.elements[6] = ((closureN)self_73967)->elements[6]; +c_731421.elements[7] = ((closureN)self_73967)->elements[7]; + + +object c_732718 = Cyc_sum(data,(closure)&c_731421,2,obj_int2obj(1), r_73748); +return_closcall1(data,(closure)&c_731421, c_732718);; +} + +static void __lambda_254(void *data, int argc, object self_73968, object r_73747) { + +closureN_type c_731423; +c_731423.hdr.mark = gc_color_red; + c_731423.hdr.grayed = 0; +c_731423.tag = closureN_tag; + c_731423.fn = (function_type)__lambda_253; +c_731423.num_args = 1; +c_731423.num_elements = 8; +c_731423.elements = (object *)alloca(sizeof(object) * 8); +c_731423.elements[0] = ((closureN)self_73968)->elements[0]; +c_731423.elements[1] = ((closureN)self_73968)->elements[1]; +c_731423.elements[2] = ((closureN)self_73968)->elements[2]; +c_731423.elements[3] = ((closureN)self_73968)->elements[3]; +c_731423.elements[4] = ((closureN)self_73968)->elements[4]; +c_731423.elements[5] = ((closureN)self_73968)->elements[5]; +c_731423.elements[6] = ((closureN)self_73968)->elements[6]; +c_731423.elements[7] = ((closureN)self_73968)->elements[7]; + +return_closcall3(data, __glo_in_91port_117set_91cnum_67_scheme_read, &c_731423, ((closureN)self_73968)->elements[5], r_73747);; +} + +static void __lambda_253(void *data, int argc, object self_73969, object r_73499) { + +closureN_type c_731425; +c_731425.hdr.mark = gc_color_red; + c_731425.hdr.grayed = 0; +c_731425.tag = closureN_tag; + c_731425.fn = (function_type)__lambda_37; +c_731425.num_args = 0; +c_731425.num_elements = 2; +c_731425.elements = (object *)alloca(sizeof(object) * 2); +c_731425.elements[0] = ((closureN)self_73969)->elements[2]; +c_731425.elements[1] = ((closureN)self_73969)->elements[5]; + + +closureN_type c_731438; +c_731438.hdr.mark = gc_color_red; + c_731438.hdr.grayed = 0; +c_731438.tag = closureN_tag; + c_731438.fn = (function_type)__lambda_252; +c_731438.num_args = 1; +c_731438.num_elements = 8; +c_731438.elements = (object *)alloca(sizeof(object) * 8); +c_731438.elements[0] = ((closureN)self_73969)->elements[0]; +c_731438.elements[1] = ((closureN)self_73969)->elements[1]; +c_731438.elements[2] = ((closureN)self_73969)->elements[2]; +c_731438.elements[3] = ((closureN)self_73969)->elements[3]; +c_731438.elements[4] = ((closureN)self_73969)->elements[4]; +c_731438.elements[5] = ((closureN)self_73969)->elements[5]; +c_731438.elements[6] = ((closureN)self_73969)->elements[6]; +c_731438.elements[7] = ((closureN)self_73969)->elements[7]; + +return_closcall1(data,(closure)&c_731425, &c_731438);; +} + +static void __lambda_252(void *data, int argc, object self_73970, object c_73205) { + +closureN_type c_731440; +c_731440.hdr.mark = gc_color_red; + c_731440.hdr.grayed = 0; +c_731440.tag = closureN_tag; + c_731440.fn = (function_type)__lambda_251; +c_731440.num_args = 1; +c_731440.num_elements = 9; +c_731440.elements = (object *)alloca(sizeof(object) * 9); +c_731440.elements[0] = ((closureN)self_73970)->elements[0]; +c_731440.elements[1] = c_73205; +c_731440.elements[2] = ((closureN)self_73970)->elements[1]; +c_731440.elements[3] = ((closureN)self_73970)->elements[2]; +c_731440.elements[4] = ((closureN)self_73970)->elements[3]; +c_731440.elements[5] = ((closureN)self_73970)->elements[4]; +c_731440.elements[6] = ((closureN)self_73970)->elements[5]; +c_731440.elements[7] = ((closureN)self_73970)->elements[6]; +c_731440.elements[8] = ((closureN)self_73970)->elements[7]; + +return_closcall1(data,(closure)&c_731440, quote_DEBUG);; +} + +static void __lambda_251(void *data, int argc, object self_73971, object r_73738) { + +closureN_type c_731442; +c_731442.hdr.mark = gc_color_red; + c_731442.hdr.grayed = 0; +c_731442.tag = closureN_tag; + c_731442.fn = (function_type)__lambda_250; +c_731442.num_args = 1; +c_731442.num_elements = 10; +c_731442.elements = (object *)alloca(sizeof(object) * 10); +c_731442.elements[0] = ((closureN)self_73971)->elements[0]; +c_731442.elements[1] = ((closureN)self_73971)->elements[1]; +c_731442.elements[2] = ((closureN)self_73971)->elements[2]; +c_731442.elements[3] = ((closureN)self_73971)->elements[3]; +c_731442.elements[4] = ((closureN)self_73971)->elements[4]; +c_731442.elements[5] = ((closureN)self_73971)->elements[5]; +c_731442.elements[6] = ((closureN)self_73971)->elements[6]; +c_731442.elements[7] = r_73738; +c_731442.elements[8] = ((closureN)self_73971)->elements[7]; +c_731442.elements[9] = ((closureN)self_73971)->elements[8]; + +return_closcall1(data,(closure)&c_731442, quote_read);; +} + +static void __lambda_250(void *data, int argc, object self_73972, object r_73740) { + +closureN_type c_731444; +c_731444.hdr.mark = gc_color_red; + c_731444.hdr.grayed = 0; +c_731444.tag = closureN_tag; + c_731444.fn = (function_type)__lambda_249; +c_731444.num_args = 1; +c_731444.num_elements = 11; +c_731444.elements = (object *)alloca(sizeof(object) * 11); +c_731444.elements[0] = ((closureN)self_73972)->elements[0]; +c_731444.elements[1] = ((closureN)self_73972)->elements[1]; +c_731444.elements[2] = ((closureN)self_73972)->elements[2]; +c_731444.elements[3] = ((closureN)self_73972)->elements[3]; +c_731444.elements[4] = ((closureN)self_73972)->elements[4]; +c_731444.elements[5] = ((closureN)self_73972)->elements[5]; +c_731444.elements[6] = ((closureN)self_73972)->elements[6]; +c_731444.elements[7] = ((closureN)self_73972)->elements[7]; +c_731444.elements[8] = r_73740; +c_731444.elements[9] = ((closureN)self_73972)->elements[8]; +c_731444.elements[10] = ((closureN)self_73972)->elements[9]; + +return_closcall1(data,(closure)&c_731444, NULL);; +} + +static void __lambda_249(void *data, int argc, object self_73973, object r_73744) { + +closureN_type c_731446; +c_731446.hdr.mark = gc_color_red; + c_731446.hdr.grayed = 0; +c_731446.tag = closureN_tag; + c_731446.fn = (function_type)__lambda_248; +c_731446.num_args = 1; +c_731446.num_elements = 9; +c_731446.elements = (object *)alloca(sizeof(object) * 9); +c_731446.elements[0] = ((closureN)self_73973)->elements[0]; +c_731446.elements[1] = ((closureN)self_73973)->elements[1]; +c_731446.elements[2] = ((closureN)self_73973)->elements[2]; +c_731446.elements[3] = ((closureN)self_73973)->elements[3]; +c_731446.elements[4] = ((closureN)self_73973)->elements[4]; +c_731446.elements[5] = ((closureN)self_73973)->elements[5]; +c_731446.elements[6] = ((closureN)self_73973)->elements[6]; +c_731446.elements[7] = ((closureN)self_73973)->elements[9]; +c_731446.elements[8] = ((closureN)self_73973)->elements[10]; + + +make_pair(c_732713,((closureN)self_73973)->elements[5], r_73744); + +make_pair(c_732709,((closureN)self_73973)->elements[1], &c_732713); + +make_pair(c_732705,((closureN)self_73973)->elements[9], &c_732709); + +make_pair(c_732701,((closureN)self_73973)->elements[8], &c_732705); + +make_pair(c_732697,((closureN)self_73973)->elements[7], &c_732701); +return_closcall2(data, __glo_write_scheme_write, &c_731446, &c_732697);; +} + +static void __lambda_248(void *data, int argc, object self_73974, object r_73501) { + +closureN_type c_731448; +c_731448.hdr.mark = gc_color_red; + c_731448.hdr.grayed = 0; +c_731448.tag = closureN_tag; + c_731448.fn = (function_type)__lambda_247; +c_731448.num_args = 1; +c_731448.num_elements = 9; +c_731448.elements = (object *)alloca(sizeof(object) * 9); +c_731448.elements[0] = ((closureN)self_73974)->elements[0]; +c_731448.elements[1] = ((closureN)self_73974)->elements[1]; +c_731448.elements[2] = ((closureN)self_73974)->elements[2]; +c_731448.elements[3] = ((closureN)self_73974)->elements[3]; +c_731448.elements[4] = ((closureN)self_73974)->elements[4]; +c_731448.elements[5] = ((closureN)self_73974)->elements[5]; +c_731448.elements[6] = ((closureN)self_73974)->elements[6]; +c_731448.elements[7] = ((closureN)self_73974)->elements[7]; +c_731448.elements[8] = ((closureN)self_73974)->elements[8]; + +return_closcall1(data, __glo_newline_scheme_base, &c_731448);; +} + +static void __lambda_247(void *data, int argc, object self_73975, object r_73736) { + +closureN_type c_731450; +c_731450.hdr.mark = gc_color_red; + c_731450.hdr.grayed = 0; +c_731450.tag = closureN_tag; + c_731450.fn = (function_type)__lambda_246; +c_731450.num_args = 1; +c_731450.num_elements = 9; +c_731450.elements = (object *)alloca(sizeof(object) * 9); +c_731450.elements[0] = ((closureN)self_73975)->elements[0]; +c_731450.elements[1] = ((closureN)self_73975)->elements[1]; +c_731450.elements[2] = ((closureN)self_73975)->elements[2]; +c_731450.elements[3] = ((closureN)self_73975)->elements[3]; +c_731450.elements[4] = ((closureN)self_73975)->elements[4]; +c_731450.elements[5] = ((closureN)self_73975)->elements[5]; +c_731450.elements[6] = ((closureN)self_73975)->elements[6]; +c_731450.elements[7] = ((closureN)self_73975)->elements[7]; +c_731450.elements[8] = ((closureN)self_73975)->elements[8]; + +return_closcall2(data, __glo_write_scheme_write, &c_731450, r_73736);; +} + +static void __lambda_246(void *data, int argc, object self_73976, object r_73502) { + if( (boolean_f != Cyc_is_eof_object(((closureN)self_73976)->elements[1])) ){ + +closureN_type c_731455; +c_731455.hdr.mark = gc_color_red; + c_731455.hdr.grayed = 0; +c_731455.tag = closureN_tag; + c_731455.fn = (function_type)__lambda_41; +c_731455.num_args = 0; +c_731455.num_elements = 2; +c_731455.elements = (object *)alloca(sizeof(object) * 2); +c_731455.elements[0] = ((closureN)self_73976)->elements[5]; +c_731455.elements[1] = ((closureN)self_73976)->elements[6]; + + +closureN_type c_731474; +c_731474.hdr.mark = gc_color_red; + c_731474.hdr.grayed = 0; +c_731474.tag = closureN_tag; + c_731474.fn = (function_type)__lambda_45; +c_731474.num_args = 1; +c_731474.num_elements = 5; +c_731474.elements = (object *)alloca(sizeof(object) * 5); +c_731474.elements[0] = ((closureN)self_73976)->elements[0]; +c_731474.elements[1] = ((closureN)self_73976)->elements[1]; +c_731474.elements[2] = ((closureN)self_73976)->elements[4]; +c_731474.elements[3] = ((closureN)self_73976)->elements[7]; +c_731474.elements[4] = ((closureN)self_73976)->elements[8]; + +return_closcall1(data,(closure)&c_731455, &c_731474); +} else { + if( (boolean_f != ((closureN)self_73976)->elements[2]) ){ + if( (boolean_f != Cyc_eq(((closureN)self_73976)->elements[1], obj_char2obj(10))) ){ + +closureN_type c_731506; +c_731506.hdr.mark = gc_color_red; + c_731506.hdr.grayed = 0; +c_731506.tag = closureN_tag; + c_731506.fn = (function_type)__lambda_50; +c_731506.num_args = 1; +c_731506.num_elements = 6; +c_731506.elements = (object *)alloca(sizeof(object) * 6); +c_731506.elements[0] = ((closureN)self_73976)->elements[0]; +c_731506.elements[1] = ((closureN)self_73976)->elements[3]; +c_731506.elements[2] = ((closureN)self_73976)->elements[4]; +c_731506.elements[3] = ((closureN)self_73976)->elements[5]; +c_731506.elements[4] = ((closureN)self_73976)->elements[6]; +c_731506.elements[5] = ((closureN)self_73976)->elements[8]; + +return_closcall2(data, __glo_in_91port_117get_91lnum_scheme_read, &c_731506, ((closureN)self_73976)->elements[6]); +} else { + +closureN_type c_731529; +c_731529.hdr.mark = gc_color_red; + c_731529.hdr.grayed = 0; +c_731529.tag = closureN_tag; + c_731529.fn = (function_type)__lambda_51; +c_731529.num_args = 1; +c_731529.num_elements = 6; +c_731529.elements = (object *)alloca(sizeof(object) * 6); +c_731529.elements[0] = ((closureN)self_73976)->elements[0]; +c_731529.elements[1] = ((closureN)self_73976)->elements[3]; +c_731529.elements[2] = ((closureN)self_73976)->elements[4]; +c_731529.elements[3] = ((closureN)self_73976)->elements[5]; +c_731529.elements[4] = ((closureN)self_73976)->elements[6]; +c_731529.elements[5] = ((closureN)self_73976)->elements[8]; + +return_closcall1(data,(closure)&c_731529, NULL);} + +} else { + +closureN_type c_731538; +c_731538.hdr.mark = gc_color_red; + c_731538.hdr.grayed = 0; +c_731538.tag = closureN_tag; + c_731538.fn = (function_type)__lambda_245; +c_731538.num_args = 1; +c_731538.num_elements = 8; +c_731538.elements = (object *)alloca(sizeof(object) * 8); +c_731538.elements[0] = ((closureN)self_73976)->elements[0]; +c_731538.elements[1] = ((closureN)self_73976)->elements[1]; +c_731538.elements[2] = ((closureN)self_73976)->elements[3]; +c_731538.elements[3] = ((closureN)self_73976)->elements[4]; +c_731538.elements[4] = ((closureN)self_73976)->elements[5]; +c_731538.elements[5] = ((closureN)self_73976)->elements[6]; +c_731538.elements[6] = ((closureN)self_73976)->elements[7]; +c_731538.elements[7] = ((closureN)self_73976)->elements[8]; + +return_closcall2(data, __glo_char_91whitespace_127_scheme__char, &c_731538, ((closureN)self_73976)->elements[1]);} +} +; +} + +static void __lambda_245(void *data, int argc, object self_73977, object r_73520) { + if( (boolean_f != r_73520) ){ + +closureN_type c_731540; +c_731540.hdr.mark = gc_color_red; + c_731540.hdr.grayed = 0; +c_731540.tag = closureN_tag; + c_731540.fn = (function_type)__lambda_54; +c_731540.num_args = 0; +c_731540.num_elements = 2; +c_731540.elements = (object *)alloca(sizeof(object) * 2); +c_731540.elements[0] = ((closureN)self_73977)->elements[1]; +c_731540.elements[1] = ((closureN)self_73977)->elements[5]; + + +closureN_type c_731556; +c_731556.hdr.mark = gc_color_red; + c_731556.hdr.grayed = 0; +c_731556.tag = closureN_tag; + c_731556.fn = (function_type)__lambda_57; +c_731556.num_args = 1; +c_731556.num_elements = 8; +c_731556.elements = (object *)alloca(sizeof(object) * 8); +c_731556.elements[0] = ((closureN)self_73977)->elements[0]; +c_731556.elements[1] = ((closureN)self_73977)->elements[1]; +c_731556.elements[2] = ((closureN)self_73977)->elements[2]; +c_731556.elements[3] = ((closureN)self_73977)->elements[3]; +c_731556.elements[4] = ((closureN)self_73977)->elements[4]; +c_731556.elements[5] = ((closureN)self_73977)->elements[5]; +c_731556.elements[6] = ((closureN)self_73977)->elements[6]; +c_731556.elements[7] = ((closureN)self_73977)->elements[7]; + +return_closcall1(data,(closure)&c_731540, &c_731556); +} else { + if( (boolean_f != Cyc_eq(((closureN)self_73977)->elements[1], obj_char2obj(59))) ){ + return_closcall9(data, __glo_parse_95tok_scheme_read, ((closureN)self_73977)->elements[3], ((closureN)self_73977)->elements[2], ((closureN)self_73977)->elements[6], ((closureN)self_73977)->elements[7], ((closureN)self_73977)->elements[0], boolean_t, ((closureN)self_73977)->elements[4], ((closureN)self_73977)->elements[5], ((closureN)self_73977)->elements[1]); +} else { + if( (boolean_f != Cyc_eq(((closureN)self_73977)->elements[1], obj_char2obj(39))) ){ + +closureN_type c_731591; +c_731591.hdr.mark = gc_color_red; + c_731591.hdr.grayed = 0; +c_731591.tag = closureN_tag; + c_731591.fn = (function_type)__lambda_58; +c_731591.num_args = 0; +c_731591.num_elements = 2; +c_731591.elements = (object *)alloca(sizeof(object) * 2); +c_731591.elements[0] = ((closureN)self_73977)->elements[0]; +c_731591.elements[1] = ((closureN)self_73977)->elements[6]; + + +closureN_type c_731598; +c_731598.hdr.mark = gc_color_red; + c_731598.hdr.grayed = 0; +c_731598.tag = closureN_tag; + c_731598.fn = (function_type)__lambda_73; +c_731598.num_args = 1; +c_731598.num_elements = 8; +c_731598.elements = (object *)alloca(sizeof(object) * 8); +c_731598.elements[0] = ((closureN)self_73977)->elements[0]; +c_731598.elements[1] = ((closureN)self_73977)->elements[1]; +c_731598.elements[2] = ((closureN)self_73977)->elements[2]; +c_731598.elements[3] = ((closureN)self_73977)->elements[3]; +c_731598.elements[4] = ((closureN)self_73977)->elements[4]; +c_731598.elements[5] = ((closureN)self_73977)->elements[5]; +c_731598.elements[6] = ((closureN)self_73977)->elements[6]; +c_731598.elements[7] = ((closureN)self_73977)->elements[7]; + +return_closcall1(data,(closure)&c_731591, &c_731598); +} else { + if( (boolean_f != Cyc_eq(((closureN)self_73977)->elements[1], obj_char2obj(96))) ){ + +closureN_type c_731669; +c_731669.hdr.mark = gc_color_red; + c_731669.hdr.grayed = 0; +c_731669.tag = closureN_tag; + c_731669.fn = (function_type)__lambda_74; +c_731669.num_args = 0; +c_731669.num_elements = 2; +c_731669.elements = (object *)alloca(sizeof(object) * 2); +c_731669.elements[0] = ((closureN)self_73977)->elements[0]; +c_731669.elements[1] = ((closureN)self_73977)->elements[6]; + + +closureN_type c_731676; +c_731676.hdr.mark = gc_color_red; + c_731676.hdr.grayed = 0; +c_731676.tag = closureN_tag; + c_731676.fn = (function_type)__lambda_89; +c_731676.num_args = 1; +c_731676.num_elements = 8; +c_731676.elements = (object *)alloca(sizeof(object) * 8); +c_731676.elements[0] = ((closureN)self_73977)->elements[0]; +c_731676.elements[1] = ((closureN)self_73977)->elements[1]; +c_731676.elements[2] = ((closureN)self_73977)->elements[2]; +c_731676.elements[3] = ((closureN)self_73977)->elements[3]; +c_731676.elements[4] = ((closureN)self_73977)->elements[4]; +c_731676.elements[5] = ((closureN)self_73977)->elements[5]; +c_731676.elements[6] = ((closureN)self_73977)->elements[6]; +c_731676.elements[7] = ((closureN)self_73977)->elements[7]; + +return_closcall1(data,(closure)&c_731669, &c_731676); +} else { + if( (boolean_f != Cyc_eq(((closureN)self_73977)->elements[1], obj_char2obj(44))) ){ + +closureN_type c_731747; +c_731747.hdr.mark = gc_color_red; + c_731747.hdr.grayed = 0; +c_731747.tag = closureN_tag; + c_731747.fn = (function_type)__lambda_90; +c_731747.num_args = 0; +c_731747.num_elements = 2; +c_731747.elements = (object *)alloca(sizeof(object) * 2); +c_731747.elements[0] = ((closureN)self_73977)->elements[0]; +c_731747.elements[1] = ((closureN)self_73977)->elements[6]; + + +closureN_type c_731754; +c_731754.hdr.mark = gc_color_red; + c_731754.hdr.grayed = 0; +c_731754.tag = closureN_tag; + c_731754.fn = (function_type)__lambda_119; +c_731754.num_args = 1; +c_731754.num_elements = 8; +c_731754.elements = (object *)alloca(sizeof(object) * 8); +c_731754.elements[0] = ((closureN)self_73977)->elements[0]; +c_731754.elements[1] = ((closureN)self_73977)->elements[1]; +c_731754.elements[2] = ((closureN)self_73977)->elements[2]; +c_731754.elements[3] = ((closureN)self_73977)->elements[3]; +c_731754.elements[4] = ((closureN)self_73977)->elements[4]; +c_731754.elements[5] = ((closureN)self_73977)->elements[5]; +c_731754.elements[6] = ((closureN)self_73977)->elements[6]; +c_731754.elements[7] = ((closureN)self_73977)->elements[7]; + +return_closcall1(data,(closure)&c_731747, &c_731754); +} else { + if( (boolean_f != Cyc_eq(((closureN)self_73977)->elements[1], obj_char2obj(40))) ){ + +closureN_type c_731916; +c_731916.hdr.mark = gc_color_red; + c_731916.hdr.grayed = 0; +c_731916.tag = closureN_tag; + c_731916.fn = (function_type)__lambda_120; +c_731916.num_args = 0; +c_731916.num_elements = 2; +c_731916.elements = (object *)alloca(sizeof(object) * 2); +c_731916.elements[0] = ((closureN)self_73977)->elements[0]; +c_731916.elements[1] = ((closureN)self_73977)->elements[6]; + + +closureN_type c_731923; +c_731923.hdr.mark = gc_color_red; + c_731923.hdr.grayed = 0; +c_731923.tag = closureN_tag; + c_731923.fn = (function_type)__lambda_139; +c_731923.num_args = 1; +c_731923.num_elements = 8; +c_731923.elements = (object *)alloca(sizeof(object) * 8); +c_731923.elements[0] = ((closureN)self_73977)->elements[0]; +c_731923.elements[1] = ((closureN)self_73977)->elements[1]; +c_731923.elements[2] = ((closureN)self_73977)->elements[2]; +c_731923.elements[3] = ((closureN)self_73977)->elements[3]; +c_731923.elements[4] = ((closureN)self_73977)->elements[4]; +c_731923.elements[5] = ((closureN)self_73977)->elements[5]; +c_731923.elements[6] = ((closureN)self_73977)->elements[6]; +c_731923.elements[7] = ((closureN)self_73977)->elements[7]; + +return_closcall1(data,(closure)&c_731916, &c_731923); +} else { + if( (boolean_f != Cyc_eq(((closureN)self_73977)->elements[1], obj_char2obj(41))) ){ + +closureN_type c_732017; +c_732017.hdr.mark = gc_color_red; + c_732017.hdr.grayed = 0; +c_732017.tag = closureN_tag; + c_732017.fn = (function_type)__lambda_140; +c_732017.num_args = 0; +c_732017.num_elements = 2; +c_732017.elements = (object *)alloca(sizeof(object) * 2); +c_732017.elements[0] = ((closureN)self_73977)->elements[0]; +c_732017.elements[1] = ((closureN)self_73977)->elements[6]; + + +closureN_type c_732024; +c_732024.hdr.mark = gc_color_red; + c_732024.hdr.grayed = 0; +c_732024.tag = closureN_tag; + c_732024.fn = (function_type)__lambda_148; +c_732024.num_args = 1; +c_732024.num_elements = 6; +c_732024.elements = (object *)alloca(sizeof(object) * 6); +c_732024.elements[0] = ((closureN)self_73977)->elements[1]; +c_732024.elements[1] = ((closureN)self_73977)->elements[3]; +c_732024.elements[2] = ((closureN)self_73977)->elements[4]; +c_732024.elements[3] = ((closureN)self_73977)->elements[5]; +c_732024.elements[4] = ((closureN)self_73977)->elements[6]; +c_732024.elements[5] = ((closureN)self_73977)->elements[7]; + +return_closcall1(data,(closure)&c_732017, &c_732024); +} else { + if( (boolean_f != Cyc_eq(((closureN)self_73977)->elements[1], obj_char2obj(34))) ){ + +closureN_type c_732065; +c_732065.hdr.mark = gc_color_red; + c_732065.hdr.grayed = 0; +c_732065.tag = closureN_tag; + c_732065.fn = (function_type)__lambda_149; +c_732065.num_args = 0; +c_732065.num_elements = 2; +c_732065.elements = (object *)alloca(sizeof(object) * 2); +c_732065.elements[0] = ((closureN)self_73977)->elements[0]; +c_732065.elements[1] = ((closureN)self_73977)->elements[6]; + + +closureN_type c_732072; +c_732072.hdr.mark = gc_color_red; + c_732072.hdr.grayed = 0; +c_732072.tag = closureN_tag; + c_732072.fn = (function_type)__lambda_162; +c_732072.num_args = 1; +c_732072.num_elements = 8; +c_732072.elements = (object *)alloca(sizeof(object) * 8); +c_732072.elements[0] = ((closureN)self_73977)->elements[0]; +c_732072.elements[1] = ((closureN)self_73977)->elements[1]; +c_732072.elements[2] = ((closureN)self_73977)->elements[2]; +c_732072.elements[3] = ((closureN)self_73977)->elements[3]; +c_732072.elements[4] = ((closureN)self_73977)->elements[4]; +c_732072.elements[5] = ((closureN)self_73977)->elements[5]; +c_732072.elements[6] = ((closureN)self_73977)->elements[6]; +c_732072.elements[7] = ((closureN)self_73977)->elements[7]; + +return_closcall1(data,(closure)&c_732065, &c_732072); +} else { + if( (boolean_f != Cyc_eq(((closureN)self_73977)->elements[1], obj_char2obj(35))) ){ + if( (boolean_f != Cyc_is_null(((closureN)self_73977)->elements[6])) ){ + +closureN_type c_732142; +c_732142.hdr.mark = gc_color_red; + c_732142.hdr.grayed = 0; +c_732142.tag = closureN_tag; + c_732142.fn = (function_type)__lambda_244; +c_732142.num_args = 1; +c_732142.num_elements = 8; +c_732142.elements = (object *)alloca(sizeof(object) * 8); +c_732142.elements[0] = ((closureN)self_73977)->elements[0]; +c_732142.elements[1] = ((closureN)self_73977)->elements[1]; +c_732142.elements[2] = ((closureN)self_73977)->elements[2]; +c_732142.elements[3] = ((closureN)self_73977)->elements[3]; +c_732142.elements[4] = ((closureN)self_73977)->elements[4]; +c_732142.elements[5] = ((closureN)self_73977)->elements[5]; +c_732142.elements[6] = ((closureN)self_73977)->elements[6]; +c_732142.elements[7] = ((closureN)self_73977)->elements[7]; + + +object c_732658 = Cyc_io_read_char(data,(closure)&c_732142,((closureN)self_73977)->elements[2]); +return_closcall1(data,(closure)&c_732142, c_732658); +} else { + +make_pair(c_732665,((closureN)self_73977)->elements[1], ((closureN)self_73977)->elements[6]); +return_closcall8(data, __glo_parse_scheme_read, ((closureN)self_73977)->elements[3], ((closureN)self_73977)->elements[2], &c_732665, ((closureN)self_73977)->elements[7], ((closureN)self_73977)->elements[0], boolean_f, ((closureN)self_73977)->elements[4], ((closureN)self_73977)->elements[5]);} + +} else { + if( (boolean_f != Cyc_eq(((closureN)self_73977)->elements[1], obj_char2obj(124))) ){ + return_closcall6(data, __glo_parse_91literal_91identifier_scheme_read, ((closureN)self_73977)->elements[3], ((closureN)self_73977)->elements[2], ((closureN)self_73977)->elements[7], ((closureN)self_73977)->elements[0], ((closureN)self_73977)->elements[4], ((closureN)self_73977)->elements[5]); +} else { + +make_pair(c_732687,((closureN)self_73977)->elements[1], ((closureN)self_73977)->elements[6]); +return_closcall8(data, __glo_parse_scheme_read, ((closureN)self_73977)->elements[3], ((closureN)self_73977)->elements[2], &c_732687, ((closureN)self_73977)->elements[7], ((closureN)self_73977)->elements[0], boolean_f, ((closureN)self_73977)->elements[4], ((closureN)self_73977)->elements[5]);} +} +} +} +} +} +} +} +} +} +; +} + +static void __lambda_244(void *data, int argc, object self_73978, object next_91c_73206) { + +closureN_type c_732144; +c_732144.hdr.mark = gc_color_red; + c_732144.hdr.grayed = 0; +c_732144.tag = closureN_tag; + c_732144.fn = (function_type)__lambda_243; +c_732144.num_args = 1; +c_732144.num_elements = 8; +c_732144.elements = (object *)alloca(sizeof(object) * 8); +c_732144.elements[0] = ((closureN)self_73978)->elements[0]; +c_732144.elements[1] = ((closureN)self_73978)->elements[1]; +c_732144.elements[2] = ((closureN)self_73978)->elements[2]; +c_732144.elements[3] = ((closureN)self_73978)->elements[3]; +c_732144.elements[4] = ((closureN)self_73978)->elements[4]; +c_732144.elements[5] = ((closureN)self_73978)->elements[5]; +c_732144.elements[6] = ((closureN)self_73978)->elements[6]; +c_732144.elements[7] = ((closureN)self_73978)->elements[7]; + + +make_cell(c_732655,next_91c_73206); +return_closcall1(data,(closure)&c_732144, &c_732655);; +} + +static void __lambda_243(void *data, int argc, object self_73979, object next_91c_73206) { + +closureN_type c_732146; +c_732146.hdr.mark = gc_color_red; + c_732146.hdr.grayed = 0; +c_732146.tag = closureN_tag; + c_732146.fn = (function_type)__lambda_242; +c_732146.num_args = 1; +c_732146.num_elements = 9; +c_732146.elements = (object *)alloca(sizeof(object) * 9); +c_732146.elements[0] = ((closureN)self_73979)->elements[0]; +c_732146.elements[1] = ((closureN)self_73979)->elements[1]; +c_732146.elements[2] = ((closureN)self_73979)->elements[2]; +c_732146.elements[3] = ((closureN)self_73979)->elements[3]; +c_732146.elements[4] = next_91c_73206; +c_732146.elements[5] = ((closureN)self_73979)->elements[4]; +c_732146.elements[6] = ((closureN)self_73979)->elements[5]; +c_732146.elements[7] = ((closureN)self_73979)->elements[6]; +c_732146.elements[8] = ((closureN)self_73979)->elements[7]; + +return_closcall2(data, __glo_in_91port_117get_91cnum_scheme_read, &c_732146, ((closureN)self_73979)->elements[5]);; +} + +static void __lambda_242(void *data, int argc, object self_73980, object r_73732) { + +closureN_type c_732148; +c_732148.hdr.mark = gc_color_red; + c_732148.hdr.grayed = 0; +c_732148.tag = closureN_tag; + c_732148.fn = (function_type)__lambda_241; +c_732148.num_args = 1; +c_732148.num_elements = 9; +c_732148.elements = (object *)alloca(sizeof(object) * 9); +c_732148.elements[0] = ((closureN)self_73980)->elements[0]; +c_732148.elements[1] = ((closureN)self_73980)->elements[1]; +c_732148.elements[2] = ((closureN)self_73980)->elements[2]; +c_732148.elements[3] = ((closureN)self_73980)->elements[3]; +c_732148.elements[4] = ((closureN)self_73980)->elements[4]; +c_732148.elements[5] = ((closureN)self_73980)->elements[5]; +c_732148.elements[6] = ((closureN)self_73980)->elements[6]; +c_732148.elements[7] = ((closureN)self_73980)->elements[7]; +c_732148.elements[8] = ((closureN)self_73980)->elements[8]; + + +object c_732651 = Cyc_sum(data,(closure)&c_732148,2,obj_int2obj(1), r_73732); +return_closcall1(data,(closure)&c_732148, c_732651);; +} + +static void __lambda_241(void *data, int argc, object self_73981, object r_73731) { + +closureN_type c_732150; +c_732150.hdr.mark = gc_color_red; + c_732150.hdr.grayed = 0; +c_732150.tag = closureN_tag; + c_732150.fn = (function_type)__lambda_240; +c_732150.num_args = 1; +c_732150.num_elements = 9; +c_732150.elements = (object *)alloca(sizeof(object) * 9); +c_732150.elements[0] = ((closureN)self_73981)->elements[0]; +c_732150.elements[1] = ((closureN)self_73981)->elements[1]; +c_732150.elements[2] = ((closureN)self_73981)->elements[2]; +c_732150.elements[3] = ((closureN)self_73981)->elements[3]; +c_732150.elements[4] = ((closureN)self_73981)->elements[4]; +c_732150.elements[5] = ((closureN)self_73981)->elements[5]; +c_732150.elements[6] = ((closureN)self_73981)->elements[6]; +c_732150.elements[7] = ((closureN)self_73981)->elements[7]; +c_732150.elements[8] = ((closureN)self_73981)->elements[8]; + +return_closcall3(data, __glo_in_91port_117set_91cnum_67_scheme_read, &c_732150, ((closureN)self_73981)->elements[6], r_73731);; +} + +static void __lambda_240(void *data, int argc, object self_73982, object r_73639) { + if( (boolean_f != Cyc_eq(obj_char2obj(124), cell_get(((closureN)self_73982)->elements[4]))) ){ + +closureN_type c_732157; +c_732157.hdr.mark = gc_color_red; + c_732157.hdr.grayed = 0; +c_732157.tag = closureN_tag; + c_732157.fn = (function_type)__lambda_164; +c_732157.num_args = 1; +c_732157.num_elements = 6; +c_732157.elements = (object *)alloca(sizeof(object) * 6); +c_732157.elements[0] = ((closureN)self_73982)->elements[0]; +c_732157.elements[1] = ((closureN)self_73982)->elements[2]; +c_732157.elements[2] = ((closureN)self_73982)->elements[3]; +c_732157.elements[3] = ((closureN)self_73982)->elements[5]; +c_732157.elements[4] = ((closureN)self_73982)->elements[6]; +c_732157.elements[5] = ((closureN)self_73982)->elements[8]; + +return_closcall3(data, __glo_read_91block_91comment_scheme_read, &c_732157, ((closureN)self_73982)->elements[2], ((closureN)self_73982)->elements[6]); +} else { + if( (boolean_f != Cyc_eq(obj_char2obj(116), cell_get(((closureN)self_73982)->elements[4]))) ){ + if( (boolean_f != ((closureN)self_73982)->elements[0]) ){ + +closureN_type c_732176; +c_732176.hdr.mark = gc_color_red; + c_732176.hdr.grayed = 0; +c_732176.tag = closureN_tag; + c_732176.fn = (function_type)__lambda_165; +c_732176.num_args = 1; +c_732176.num_elements = 6; +c_732176.elements = (object *)alloca(sizeof(object) * 6); +c_732176.elements[0] = ((closureN)self_73982)->elements[0]; +c_732176.elements[1] = ((closureN)self_73982)->elements[2]; +c_732176.elements[2] = ((closureN)self_73982)->elements[3]; +c_732176.elements[3] = ((closureN)self_73982)->elements[5]; +c_732176.elements[4] = ((closureN)self_73982)->elements[6]; +c_732176.elements[5] = ((closureN)self_73982)->elements[8]; + +return_closcall1(data,(closure)&c_732176, NULL); +} else { + return_closcall1(data, ((closureN)self_73982)->elements[3], boolean_t);} + +} else { + if( (boolean_f != Cyc_eq(obj_char2obj(102), cell_get(((closureN)self_73982)->elements[4]))) ){ + if( (boolean_f != ((closureN)self_73982)->elements[0]) ){ + +closureN_type c_732196; +c_732196.hdr.mark = gc_color_red; + c_732196.hdr.grayed = 0; +c_732196.tag = closureN_tag; + c_732196.fn = (function_type)__lambda_166; +c_732196.num_args = 1; +c_732196.num_elements = 6; +c_732196.elements = (object *)alloca(sizeof(object) * 6); +c_732196.elements[0] = ((closureN)self_73982)->elements[0]; +c_732196.elements[1] = ((closureN)self_73982)->elements[2]; +c_732196.elements[2] = ((closureN)self_73982)->elements[3]; +c_732196.elements[3] = ((closureN)self_73982)->elements[5]; +c_732196.elements[4] = ((closureN)self_73982)->elements[6]; +c_732196.elements[5] = ((closureN)self_73982)->elements[8]; + +return_closcall1(data,(closure)&c_732196, NULL); +} else { + return_closcall1(data, ((closureN)self_73982)->elements[3], boolean_f);} + +} else { + if( (boolean_f != Cyc_eq(obj_char2obj(101), cell_get(((closureN)self_73982)->elements[4]))) ){ + +closureN_type c_732215; +c_732215.hdr.mark = gc_color_red; + c_732215.hdr.grayed = 0; +c_732215.tag = closureN_tag; + c_732215.fn = (function_type)__lambda_167; +c_732215.num_args = 1; +c_732215.num_elements = 6; +c_732215.elements = (object *)alloca(sizeof(object) * 6); +c_732215.elements[0] = ((closureN)self_73982)->elements[0]; +c_732215.elements[1] = ((closureN)self_73982)->elements[2]; +c_732215.elements[2] = ((closureN)self_73982)->elements[3]; +c_732215.elements[3] = ((closureN)self_73982)->elements[5]; +c_732215.elements[4] = ((closureN)self_73982)->elements[6]; +c_732215.elements[5] = ((closureN)self_73982)->elements[8]; + + +mclosure0(c_732223, (function_type)__lambda_169);c_732223.num_args = 1; +return_closcall1(data,(closure)&c_732215, &c_732223); +} else { + if( (boolean_f != Cyc_eq(obj_char2obj(105), cell_get(((closureN)self_73982)->elements[4]))) ){ + +closureN_type c_732234; +c_732234.hdr.mark = gc_color_red; + c_732234.hdr.grayed = 0; +c_732234.tag = closureN_tag; + c_732234.fn = (function_type)__lambda_170; +c_732234.num_args = 1; +c_732234.num_elements = 6; +c_732234.elements = (object *)alloca(sizeof(object) * 6); +c_732234.elements[0] = ((closureN)self_73982)->elements[0]; +c_732234.elements[1] = ((closureN)self_73982)->elements[2]; +c_732234.elements[2] = ((closureN)self_73982)->elements[3]; +c_732234.elements[3] = ((closureN)self_73982)->elements[5]; +c_732234.elements[4] = ((closureN)self_73982)->elements[6]; +c_732234.elements[5] = ((closureN)self_73982)->elements[8]; + + +mclosure0(c_732242, (function_type)__lambda_172);c_732242.num_args = 1; +return_closcall1(data,(closure)&c_732234, &c_732242); +} else { + if( (boolean_f != Cyc_eq(obj_char2obj(98), cell_get(((closureN)self_73982)->elements[4]))) ){ + +closureN_type c_732253; +c_732253.hdr.mark = gc_color_red; + c_732253.hdr.grayed = 0; +c_732253.tag = closureN_tag; + c_732253.fn = (function_type)__lambda_173; +c_732253.num_args = 1; +c_732253.num_elements = 6; +c_732253.elements = (object *)alloca(sizeof(object) * 6); +c_732253.elements[0] = ((closureN)self_73982)->elements[0]; +c_732253.elements[1] = ((closureN)self_73982)->elements[2]; +c_732253.elements[2] = ((closureN)self_73982)->elements[3]; +c_732253.elements[3] = ((closureN)self_73982)->elements[5]; +c_732253.elements[4] = ((closureN)self_73982)->elements[6]; +c_732253.elements[5] = ((closureN)self_73982)->elements[8]; + + +mclosure0(c_732261, (function_type)__lambda_175);c_732261.num_args = 1; +return_closcall1(data,(closure)&c_732253, &c_732261); +} else { + if( (boolean_f != Cyc_eq(obj_char2obj(111), cell_get(((closureN)self_73982)->elements[4]))) ){ + +closureN_type c_732278; +c_732278.hdr.mark = gc_color_red; + c_732278.hdr.grayed = 0; +c_732278.tag = closureN_tag; + c_732278.fn = (function_type)__lambda_176; +c_732278.num_args = 1; +c_732278.num_elements = 6; +c_732278.elements = (object *)alloca(sizeof(object) * 6); +c_732278.elements[0] = ((closureN)self_73982)->elements[0]; +c_732278.elements[1] = ((closureN)self_73982)->elements[2]; +c_732278.elements[2] = ((closureN)self_73982)->elements[3]; +c_732278.elements[3] = ((closureN)self_73982)->elements[5]; +c_732278.elements[4] = ((closureN)self_73982)->elements[6]; +c_732278.elements[5] = ((closureN)self_73982)->elements[8]; + + +mclosure0(c_732286, (function_type)__lambda_178);c_732286.num_args = 1; +return_closcall1(data,(closure)&c_732278, &c_732286); +} else { + if( (boolean_f != Cyc_eq(obj_char2obj(120), cell_get(((closureN)self_73982)->elements[4]))) ){ + +closureN_type c_732303; +c_732303.hdr.mark = gc_color_red; + c_732303.hdr.grayed = 0; +c_732303.tag = closureN_tag; + c_732303.fn = (function_type)__lambda_179; +c_732303.num_args = 1; +c_732303.num_elements = 6; +c_732303.elements = (object *)alloca(sizeof(object) * 6); +c_732303.elements[0] = ((closureN)self_73982)->elements[0]; +c_732303.elements[1] = ((closureN)self_73982)->elements[2]; +c_732303.elements[2] = ((closureN)self_73982)->elements[3]; +c_732303.elements[3] = ((closureN)self_73982)->elements[5]; +c_732303.elements[4] = ((closureN)self_73982)->elements[6]; +c_732303.elements[5] = ((closureN)self_73982)->elements[8]; + + +mclosure0(c_732311, (function_type)__lambda_181);c_732311.num_args = 1; +return_closcall1(data,(closure)&c_732303, &c_732311); +} else { + if( (boolean_f != Cyc_eq(obj_char2obj(117), cell_get(((closureN)self_73982)->elements[4]))) ){ + +closureN_type c_732328; +c_732328.hdr.mark = gc_color_red; + c_732328.hdr.grayed = 0; +c_732328.tag = closureN_tag; + c_732328.fn = (function_type)__lambda_210; +c_732328.num_args = 1; +c_732328.num_elements = 8; +c_732328.elements = (object *)alloca(sizeof(object) * 8); +c_732328.elements[0] = ((closureN)self_73982)->elements[0]; +c_732328.elements[1] = ((closureN)self_73982)->elements[2]; +c_732328.elements[2] = ((closureN)self_73982)->elements[3]; +c_732328.elements[3] = ((closureN)self_73982)->elements[4]; +c_732328.elements[4] = ((closureN)self_73982)->elements[5]; +c_732328.elements[5] = ((closureN)self_73982)->elements[6]; +c_732328.elements[6] = ((closureN)self_73982)->elements[7]; +c_732328.elements[7] = ((closureN)self_73982)->elements[8]; + + +object c_732470 = Cyc_io_read_char(data,(closure)&c_732328,((closureN)self_73982)->elements[2]); +return_closcall1(data,(closure)&c_732328, c_732470); +} else { + if( (boolean_f != Cyc_eq(obj_char2obj(40), cell_get(((closureN)self_73982)->elements[4]))) ){ + +closureN_type c_732478; +c_732478.hdr.mark = gc_color_red; + c_732478.hdr.grayed = 0; +c_732478.tag = closureN_tag; + c_732478.fn = (function_type)__lambda_227; +c_732478.num_args = 1; +c_732478.num_elements = 7; +c_732478.elements = (object *)alloca(sizeof(object) * 7); +c_732478.elements[0] = ((closureN)self_73982)->elements[0]; +c_732478.elements[1] = ((closureN)self_73982)->elements[2]; +c_732478.elements[2] = ((closureN)self_73982)->elements[3]; +c_732478.elements[3] = ((closureN)self_73982)->elements[5]; +c_732478.elements[4] = ((closureN)self_73982)->elements[6]; +c_732478.elements[5] = ((closureN)self_73982)->elements[7]; +c_732478.elements[6] = ((closureN)self_73982)->elements[8]; + +return_closcall1(data,(closure)&c_732478, NULL); +} else { + if( (boolean_f != Cyc_eq(obj_char2obj(92), cell_get(((closureN)self_73982)->elements[4]))) ){ + +closureN_type c_732568; +c_732568.hdr.mark = gc_color_red; + c_732568.hdr.grayed = 0; +c_732568.tag = closureN_tag; + c_732568.fn = (function_type)__lambda_229; +c_732568.num_args = 1; +c_732568.num_elements = 6; +c_732568.elements = (object *)alloca(sizeof(object) * 6); +c_732568.elements[0] = ((closureN)self_73982)->elements[0]; +c_732568.elements[1] = ((closureN)self_73982)->elements[2]; +c_732568.elements[2] = ((closureN)self_73982)->elements[3]; +c_732568.elements[3] = ((closureN)self_73982)->elements[5]; +c_732568.elements[4] = ((closureN)self_73982)->elements[6]; +c_732568.elements[5] = ((closureN)self_73982)->elements[8]; + +return_closcall3(data, __glo_read_91pound_scheme_read, &c_732568, ((closureN)self_73982)->elements[2], ((closureN)self_73982)->elements[6]); +} else { + if( (boolean_f != Cyc_eq(obj_char2obj(59), cell_get(((closureN)self_73982)->elements[4]))) ){ + +closureN_type c_732599; +c_732599.hdr.mark = gc_color_red; + c_732599.hdr.grayed = 0; +c_732599.tag = closureN_tag; + c_732599.fn = (function_type)__lambda_237; +c_732599.num_args = 1; +c_732599.num_elements = 8; +c_732599.elements = (object *)alloca(sizeof(object) * 8); +c_732599.elements[0] = ((closureN)self_73982)->elements[0]; +c_732599.elements[1] = ((closureN)self_73982)->elements[1]; +c_732599.elements[2] = ((closureN)self_73982)->elements[2]; +c_732599.elements[3] = ((closureN)self_73982)->elements[3]; +c_732599.elements[4] = ((closureN)self_73982)->elements[5]; +c_732599.elements[5] = ((closureN)self_73982)->elements[6]; +c_732599.elements[6] = ((closureN)self_73982)->elements[7]; +c_732599.elements[7] = ((closureN)self_73982)->elements[8]; + +return_closcall1(data,(closure)&c_732599, NULL); +} else { + +closureN_type c_732639; +c_732639.hdr.mark = gc_color_red; + c_732639.hdr.grayed = 0; +c_732639.tag = closureN_tag; + c_732639.fn = (function_type)__lambda_239; +c_732639.num_args = 1; +c_732639.num_elements = 2; +c_732639.elements = (object *)alloca(sizeof(object) * 2); +c_732639.elements[0] = ((closureN)self_73982)->elements[3]; +c_732639.elements[1] = ((closureN)self_73982)->elements[6]; + +return_closcall2(data, __glo_in_91port_117get_91lnum_scheme_read, &c_732639, ((closureN)self_73982)->elements[6]);} +} +} +} +} +} +} +} +} +} +} +} +; +} + +static void __lambda_239(void *data, int argc, object self_73983, object r_73729) { + +closureN_type c_732641; +c_732641.hdr.mark = gc_color_red; + c_732641.hdr.grayed = 0; +c_732641.tag = closureN_tag; + c_732641.fn = (function_type)__lambda_238; +c_732641.num_args = 1; +c_732641.num_elements = 2; +c_732641.elements = (object *)alloca(sizeof(object) * 2); +c_732641.elements[0] = ((closureN)self_73983)->elements[0]; +c_732641.elements[1] = r_73729; + +return_closcall2(data, __glo_in_91port_117get_91cnum_scheme_read, &c_732641, ((closureN)self_73983)->elements[1]);; +} + +static void __lambda_238(void *data, int argc, object self_73984, object r_73730) { + +make_string(c_732644, "Unhandled input sequence"); +return_closcall4(data, __glo_parse_91error_scheme_read, ((closureN)self_73984)->elements[0], &c_732644, ((closureN)self_73984)->elements[1], r_73730);; +} + +static void __lambda_237(void *data, int argc, object self_73985, object r_73727) { + +closureN_type c_732601; +c_732601.hdr.mark = gc_color_red; + c_732601.hdr.grayed = 0; +c_732601.tag = closureN_tag; + c_732601.fn = (function_type)__lambda_236; +c_732601.num_args = 1; +c_732601.num_elements = 9; +c_732601.elements = (object *)alloca(sizeof(object) * 9); +c_732601.elements[0] = ((closureN)self_73985)->elements[0]; +c_732601.elements[1] = ((closureN)self_73985)->elements[1]; +c_732601.elements[2] = ((closureN)self_73985)->elements[2]; +c_732601.elements[3] = ((closureN)self_73985)->elements[3]; +c_732601.elements[4] = ((closureN)self_73985)->elements[4]; +c_732601.elements[5] = ((closureN)self_73985)->elements[5]; +c_732601.elements[6] = r_73727; +c_732601.elements[7] = ((closureN)self_73985)->elements[6]; +c_732601.elements[8] = ((closureN)self_73985)->elements[7]; + +return_closcall1(data,(closure)&c_732601, NULL);; +} + +static void __lambda_236(void *data, int argc, object self_73986, object r_73728) { + +closureN_type c_732603; +c_732603.hdr.mark = gc_color_red; + c_732603.hdr.grayed = 0; +c_732603.tag = closureN_tag; + c_732603.fn = (function_type)__lambda_235; +c_732603.num_args = 1; +c_732603.num_elements = 8; +c_732603.elements = (object *)alloca(sizeof(object) * 8); +c_732603.elements[0] = ((closureN)self_73986)->elements[0]; +c_732603.elements[1] = ((closureN)self_73986)->elements[1]; +c_732603.elements[2] = ((closureN)self_73986)->elements[2]; +c_732603.elements[3] = ((closureN)self_73986)->elements[3]; +c_732603.elements[4] = ((closureN)self_73986)->elements[4]; +c_732603.elements[5] = ((closureN)self_73986)->elements[5]; +c_732603.elements[6] = ((closureN)self_73986)->elements[7]; +c_732603.elements[7] = ((closureN)self_73986)->elements[8]; + +return_closcall8(data, __glo_parse_scheme_read, &c_732603, ((closureN)self_73986)->elements[2], ((closureN)self_73986)->elements[6], r_73728, boolean_f, boolean_f, obj_int2obj(0), ((closureN)self_73986)->elements[5]);; +} + +static void __lambda_235(void *data, int argc, object self_73987, object r_73720) { + +closureN_type c_732605; +c_732605.hdr.mark = gc_color_red; + c_732605.hdr.grayed = 0; +c_732605.tag = closureN_tag; + c_732605.fn = (function_type)__lambda_230; +c_732605.num_args = 0; +c_732605.num_elements = 2; +c_732605.elements = (object *)alloca(sizeof(object) * 2); +c_732605.elements[0] = ((closureN)self_73987)->elements[0]; +c_732605.elements[1] = ((closureN)self_73987)->elements[6]; + + +closureN_type c_732612; +c_732612.hdr.mark = gc_color_red; + c_732612.hdr.grayed = 0; +c_732612.tag = closureN_tag; + c_732612.fn = (function_type)__lambda_234; +c_732612.num_args = 1; +c_732612.num_elements = 8; +c_732612.elements = (object *)alloca(sizeof(object) * 8); +c_732612.elements[0] = ((closureN)self_73987)->elements[0]; +c_732612.elements[1] = ((closureN)self_73987)->elements[1]; +c_732612.elements[2] = ((closureN)self_73987)->elements[2]; +c_732612.elements[3] = ((closureN)self_73987)->elements[3]; +c_732612.elements[4] = ((closureN)self_73987)->elements[4]; +c_732612.elements[5] = ((closureN)self_73987)->elements[5]; +c_732612.elements[6] = ((closureN)self_73987)->elements[6]; +c_732612.elements[7] = ((closureN)self_73987)->elements[7]; + +return_closcall1(data,(closure)&c_732605, &c_732612);; +} + +static void __lambda_234(void *data, int argc, object self_73988, object r_73721) { + if( (boolean_f != r_73721) ){ + +closureN_type c_732614; +c_732614.hdr.mark = gc_color_red; + c_732614.hdr.grayed = 0; +c_732614.tag = closureN_tag; + c_732614.fn = (function_type)__lambda_233; +c_732614.num_args = 1; +c_732614.num_elements = 3; +c_732614.elements = (object *)alloca(sizeof(object) * 3); +c_732614.elements[0] = ((closureN)self_73988)->elements[3]; +c_732614.elements[1] = ((closureN)self_73988)->elements[6]; +c_732614.elements[2] = ((closureN)self_73988)->elements[7]; + +return_closcall3(data, __glo_in_91port_117set_91buf_67_scheme_read, &c_732614, ((closureN)self_73988)->elements[5], ((closureN)self_73988)->elements[1]); +} else { + return_closcall8(data, __glo_parse_scheme_read, ((closureN)self_73988)->elements[3], ((closureN)self_73988)->elements[2], ((closureN)self_73988)->elements[6], ((closureN)self_73988)->elements[7], ((closureN)self_73988)->elements[0], boolean_f, ((closureN)self_73988)->elements[4], ((closureN)self_73988)->elements[5]);} +; +} + +static void __lambda_233(void *data, int argc, object self_73989, object r_73722) { + +closureN_type c_732616; +c_732616.hdr.mark = gc_color_red; + c_732616.hdr.grayed = 0; +c_732616.tag = closureN_tag; + c_732616.fn = (function_type)__lambda_232; +c_732616.num_args = 1; +c_732616.num_elements = 2; +c_732616.elements = (object *)alloca(sizeof(object) * 2); +c_732616.elements[0] = ((closureN)self_73989)->elements[0]; +c_732616.elements[1] = ((closureN)self_73989)->elements[2]; + +return_closcall2(data, __glo__91_125tok_scheme_read, &c_732616, ((closureN)self_73989)->elements[1]);; +} + +static void __lambda_232(void *data, int argc, object self_73990, object r_73724) { + +closureN_type c_732618; +c_732618.hdr.mark = gc_color_red; + c_732618.hdr.grayed = 0; +c_732618.tag = closureN_tag; + c_732618.fn = (function_type)__lambda_231; +c_732618.num_args = 1; +c_732618.num_elements = 1; +c_732618.elements = (object *)alloca(sizeof(object) * 1); +c_732618.elements[0] = ((closureN)self_73990)->elements[0]; + +return_closcall3(data, __glo_add_91tok_scheme_read, &c_732618, r_73724, ((closureN)self_73990)->elements[1]);; +} + +static void __lambda_231(void *data, int argc, object self_73991, object r_73723) { + return_closcall1(data, ((closureN)self_73991)->elements[0], car(r_73723));; +} + +static void __lambda_230(void *data, int argc, object self_73992, object k_73725) { + if( (boolean_f != ((closureN)self_73992)->elements[0]) ){ + return_closcall1(data, k_73725, boolean_f); +} else { + return_closcall2(data, __glo_not_scheme_base, k_73725, Cyc_is_null(((closureN)self_73992)->elements[1]));} +; +} + +static void __lambda_229(void *data, int argc, object self_73993, object r_73718) { + if( (boolean_f != ((closureN)self_73993)->elements[0]) ){ + +closureN_type c_732571; +c_732571.hdr.mark = gc_color_red; + c_732571.hdr.grayed = 0; +c_732571.tag = closureN_tag; + c_732571.fn = (function_type)__lambda_228; +c_732571.num_args = 1; +c_732571.num_elements = 7; +c_732571.elements = (object *)alloca(sizeof(object) * 7); +c_732571.elements[0] = ((closureN)self_73993)->elements[0]; +c_732571.elements[1] = ((closureN)self_73993)->elements[1]; +c_732571.elements[2] = ((closureN)self_73993)->elements[2]; +c_732571.elements[3] = ((closureN)self_73993)->elements[3]; +c_732571.elements[4] = ((closureN)self_73993)->elements[4]; +c_732571.elements[5] = r_73718; +c_732571.elements[6] = ((closureN)self_73993)->elements[5]; + +return_closcall1(data,(closure)&c_732571, NULL); +} else { + +make_pair(c_732589,r_73718, ((closureN)self_73993)->elements[5]); +return_closcall1(data, ((closureN)self_73993)->elements[2], car(&c_732589));} +; +} + +static void __lambda_228(void *data, int argc, object self_73994, object r_73717) { + +make_pair(c_732577,((closureN)self_73994)->elements[5], ((closureN)self_73994)->elements[6]); +return_closcall8(data, __glo_parse_scheme_read, ((closureN)self_73994)->elements[2], ((closureN)self_73994)->elements[1], r_73717, &c_732577, ((closureN)self_73994)->elements[0], boolean_f, ((closureN)self_73994)->elements[3], ((closureN)self_73994)->elements[4]);; +} + +static void __lambda_227(void *data, int argc, object self_73995, object r_73712) { + +closureN_type c_732480; +c_732480.hdr.mark = gc_color_red; + c_732480.hdr.grayed = 0; +c_732480.tag = closureN_tag; + c_732480.fn = (function_type)__lambda_226; +c_732480.num_args = 1; +c_732480.num_elements = 8; +c_732480.elements = (object *)alloca(sizeof(object) * 8); +c_732480.elements[0] = ((closureN)self_73995)->elements[0]; +c_732480.elements[1] = ((closureN)self_73995)->elements[1]; +c_732480.elements[2] = ((closureN)self_73995)->elements[2]; +c_732480.elements[3] = ((closureN)self_73995)->elements[3]; +c_732480.elements[4] = ((closureN)self_73995)->elements[4]; +c_732480.elements[5] = r_73712; +c_732480.elements[6] = ((closureN)self_73995)->elements[5]; +c_732480.elements[7] = ((closureN)self_73995)->elements[6]; + +return_closcall1(data,(closure)&c_732480, NULL);; +} + +static void __lambda_226(void *data, int argc, object self_73996, object r_73713) { + +closureN_type c_732482; +c_732482.hdr.mark = gc_color_red; + c_732482.hdr.grayed = 0; +c_732482.tag = closureN_tag; + c_732482.fn = (function_type)__lambda_225; +c_732482.num_args = 1; +c_732482.num_elements = 9; +c_732482.elements = (object *)alloca(sizeof(object) * 9); +c_732482.elements[0] = ((closureN)self_73996)->elements[0]; +c_732482.elements[1] = ((closureN)self_73996)->elements[1]; +c_732482.elements[2] = ((closureN)self_73996)->elements[2]; +c_732482.elements[3] = ((closureN)self_73996)->elements[3]; +c_732482.elements[4] = ((closureN)self_73996)->elements[4]; +c_732482.elements[5] = ((closureN)self_73996)->elements[5]; +c_732482.elements[6] = r_73713; +c_732482.elements[7] = ((closureN)self_73996)->elements[6]; +c_732482.elements[8] = ((closureN)self_73996)->elements[7]; + + +object c_732560 = Cyc_sum(data,(closure)&c_732482,2,((closureN)self_73996)->elements[3], obj_int2obj(1)); +return_closcall1(data,(closure)&c_732482, c_732560);; +} + +static void __lambda_225(void *data, int argc, object self_73997, object r_73714) { + +closureN_type c_732484; +c_732484.hdr.mark = gc_color_red; + c_732484.hdr.grayed = 0; +c_732484.tag = closureN_tag; + c_732484.fn = (function_type)__lambda_224; +c_732484.num_args = 1; +c_732484.num_elements = 7; +c_732484.elements = (object *)alloca(sizeof(object) * 7); +c_732484.elements[0] = ((closureN)self_73997)->elements[0]; +c_732484.elements[1] = ((closureN)self_73997)->elements[1]; +c_732484.elements[2] = ((closureN)self_73997)->elements[2]; +c_732484.elements[3] = ((closureN)self_73997)->elements[3]; +c_732484.elements[4] = ((closureN)self_73997)->elements[4]; +c_732484.elements[5] = ((closureN)self_73997)->elements[7]; +c_732484.elements[6] = ((closureN)self_73997)->elements[8]; + +return_closcall8(data, __glo_parse_scheme_read, &c_732484, ((closureN)self_73997)->elements[1], ((closureN)self_73997)->elements[5], ((closureN)self_73997)->elements[6], boolean_t, boolean_f, r_73714, ((closureN)self_73997)->elements[4]);; +} + +static void __lambda_224(void *data, int argc, object self_73998, object r_73700) { + +closureN_type c_732486; +c_732486.hdr.mark = gc_color_red; + c_732486.hdr.grayed = 0; +c_732486.tag = closureN_tag; + c_732486.fn = (function_type)__lambda_223; +c_732486.num_args = 1; +c_732486.num_elements = 6; +c_732486.elements = (object *)alloca(sizeof(object) * 6); +c_732486.elements[0] = ((closureN)self_73998)->elements[0]; +c_732486.elements[1] = ((closureN)self_73998)->elements[1]; +c_732486.elements[2] = ((closureN)self_73998)->elements[2]; +c_732486.elements[3] = ((closureN)self_73998)->elements[3]; +c_732486.elements[4] = ((closureN)self_73998)->elements[4]; +c_732486.elements[5] = r_73700; + +return_closcall3(data, __glo_get_91toks_scheme_read, &c_732486, ((closureN)self_73998)->elements[5], ((closureN)self_73998)->elements[6]);; +} + +static void __lambda_223(void *data, int argc, object self_73999, object r_73701) { + +closureN_type c_732488; +c_732488.hdr.mark = gc_color_red; + c_732488.hdr.grayed = 0; +c_732488.tag = closureN_tag; + c_732488.fn = (function_type)__lambda_222; +c_732488.num_args = 2; +c_732488.num_elements = 5; +c_732488.elements = (object *)alloca(sizeof(object) * 5); +c_732488.elements[0] = ((closureN)self_73999)->elements[0]; +c_732488.elements[1] = ((closureN)self_73999)->elements[1]; +c_732488.elements[2] = ((closureN)self_73999)->elements[2]; +c_732488.elements[3] = ((closureN)self_73999)->elements[3]; +c_732488.elements[4] = ((closureN)self_73999)->elements[4]; + +return_closcall2(data,(closure)&c_732488, ((closureN)self_73999)->elements[5], r_73701);; +} + +static void __lambda_222(void *data, int argc, object self_731000, object sub_73209, object toks_85_73208) { + +closureN_type c_732490; +c_732490.hdr.mark = gc_color_red; + c_732490.hdr.grayed = 0; +c_732490.tag = closureN_tag; + c_732490.fn = (function_type)__lambda_221; +c_732490.num_args = 1; +c_732490.num_elements = 7; +c_732490.elements = (object *)alloca(sizeof(object) * 7); +c_732490.elements[0] = ((closureN)self_731000)->elements[0]; +c_732490.elements[1] = ((closureN)self_731000)->elements[1]; +c_732490.elements[2] = ((closureN)self_731000)->elements[2]; +c_732490.elements[3] = ((closureN)self_731000)->elements[3]; +c_732490.elements[4] = ((closureN)self_731000)->elements[4]; +c_732490.elements[5] = sub_73209; +c_732490.elements[6] = toks_85_73208; + +return_closcall1(data,(closure)&c_732490, boolean_f);; +} + +static void __lambda_221(void *data, int argc, object self_731001, object new_91toks_73210) { + +closureN_type c_732492; +c_732492.hdr.mark = gc_color_red; + c_732492.hdr.grayed = 0; +c_732492.tag = closureN_tag; + c_732492.fn = (function_type)__lambda_220; +c_732492.num_args = 1; +c_732492.num_elements = 7; +c_732492.elements = (object *)alloca(sizeof(object) * 7); +c_732492.elements[0] = ((closureN)self_731001)->elements[0]; +c_732492.elements[1] = ((closureN)self_731001)->elements[1]; +c_732492.elements[2] = ((closureN)self_731001)->elements[2]; +c_732492.elements[3] = ((closureN)self_731001)->elements[3]; +c_732492.elements[4] = ((closureN)self_731001)->elements[4]; +c_732492.elements[5] = ((closureN)self_731001)->elements[5]; +c_732492.elements[6] = ((closureN)self_731001)->elements[6]; + + +make_cell(c_732550,new_91toks_73210); +return_closcall1(data,(closure)&c_732492, &c_732550);; +} + +static void __lambda_220(void *data, int argc, object self_731002, object new_91toks_73210) { + +closureN_type c_732494; +c_732494.hdr.mark = gc_color_red; + c_732494.hdr.grayed = 0; +c_732494.tag = closureN_tag; + c_732494.fn = (function_type)__lambda_215; +c_732494.num_args = 0; +c_732494.num_elements = 2; +c_732494.elements = (object *)alloca(sizeof(object) * 2); +c_732494.elements[0] = ((closureN)self_731002)->elements[4]; +c_732494.elements[1] = ((closureN)self_731002)->elements[5]; + + +closureN_type c_732520; +c_732520.hdr.mark = gc_color_red; + c_732520.hdr.grayed = 0; +c_732520.tag = closureN_tag; + c_732520.fn = (function_type)__lambda_219; +c_732520.num_args = 1; +c_732520.num_elements = 7; +c_732520.elements = (object *)alloca(sizeof(object) * 7); +c_732520.elements[0] = ((closureN)self_731002)->elements[0]; +c_732520.elements[1] = ((closureN)self_731002)->elements[1]; +c_732520.elements[2] = ((closureN)self_731002)->elements[2]; +c_732520.elements[3] = new_91toks_73210; +c_732520.elements[4] = ((closureN)self_731002)->elements[3]; +c_732520.elements[5] = ((closureN)self_731002)->elements[4]; +c_732520.elements[6] = ((closureN)self_731002)->elements[6]; + +return_closcall1(data,(closure)&c_732494, &c_732520);; +} + +static void __lambda_219(void *data, int argc, object self_731003, object r_73705) { + +closureN_type c_732522; +c_732522.hdr.mark = gc_color_red; + c_732522.hdr.grayed = 0; +c_732522.tag = closureN_tag; + c_732522.fn = (function_type)__lambda_218; +c_732522.num_args = 1; +c_732522.num_elements = 6; +c_732522.elements = (object *)alloca(sizeof(object) * 6); +c_732522.elements[0] = ((closureN)self_731003)->elements[0]; +c_732522.elements[1] = ((closureN)self_731003)->elements[1]; +c_732522.elements[2] = ((closureN)self_731003)->elements[2]; +c_732522.elements[3] = ((closureN)self_731003)->elements[3]; +c_732522.elements[4] = ((closureN)self_731003)->elements[4]; +c_732522.elements[5] = ((closureN)self_731003)->elements[5]; + +return_closcall3(data, __glo_add_91tok_scheme_read, &c_732522, r_73705, ((closureN)self_731003)->elements[6]);; +} + +static void __lambda_218(void *data, int argc, object self_731004, object r_73704) { + +closureN_type c_732524; +c_732524.hdr.mark = gc_color_red; + c_732524.hdr.grayed = 0; +c_732524.tag = closureN_tag; + c_732524.fn = (function_type)__lambda_217; +c_732524.num_args = 1; +c_732524.num_elements = 6; +c_732524.elements = (object *)alloca(sizeof(object) * 6); +c_732524.elements[0] = ((closureN)self_731004)->elements[0]; +c_732524.elements[1] = ((closureN)self_731004)->elements[1]; +c_732524.elements[2] = ((closureN)self_731004)->elements[2]; +c_732524.elements[3] = ((closureN)self_731004)->elements[3]; +c_732524.elements[4] = ((closureN)self_731004)->elements[4]; +c_732524.elements[5] = ((closureN)self_731004)->elements[5]; + +return_closcall1(data,(closure)&c_732524, Cyc_set_car(data, ((closureN)self_731004)->elements[3], r_73704));; +} + +static void __lambda_217(void *data, int argc, object self_731005, object r_73702) { + if( (boolean_f != ((closureN)self_731005)->elements[0]) ){ + +closureN_type c_732527; +c_732527.hdr.mark = gc_color_red; + c_732527.hdr.grayed = 0; +c_732527.tag = closureN_tag; + c_732527.fn = (function_type)__lambda_216; +c_732527.num_args = 1; +c_732527.num_elements = 6; +c_732527.elements = (object *)alloca(sizeof(object) * 6); +c_732527.elements[0] = ((closureN)self_731005)->elements[0]; +c_732527.elements[1] = ((closureN)self_731005)->elements[1]; +c_732527.elements[2] = ((closureN)self_731005)->elements[2]; +c_732527.elements[3] = ((closureN)self_731005)->elements[3]; +c_732527.elements[4] = ((closureN)self_731005)->elements[4]; +c_732527.elements[5] = ((closureN)self_731005)->elements[5]; + +return_closcall1(data,(closure)&c_732527, NULL); +} else { + return_closcall1(data, ((closureN)self_731005)->elements[2], car(cell_get(((closureN)self_731005)->elements[3])));} +; +} + +static void __lambda_216(void *data, int argc, object self_731006, object r_73703) { + return_closcall8(data, __glo_parse_scheme_read, ((closureN)self_731006)->elements[2], ((closureN)self_731006)->elements[1], r_73703, cell_get(((closureN)self_731006)->elements[3]), ((closureN)self_731006)->elements[0], boolean_f, ((closureN)self_731006)->elements[4], ((closureN)self_731006)->elements[5]);; +} + +static void __lambda_215(void *data, int argc, object self_731007, object k_73706) { + +closureN_type c_732496; +c_732496.hdr.mark = gc_color_red; + c_732496.hdr.grayed = 0; +c_732496.tag = closureN_tag; + c_732496.fn = (function_type)__lambda_211; +c_732496.num_args = 0; +c_732496.num_elements = 1; +c_732496.elements = (object *)alloca(sizeof(object) * 1); +c_732496.elements[0] = ((closureN)self_731007)->elements[1]; + + +closureN_type c_732503; +c_732503.hdr.mark = gc_color_red; + c_732503.hdr.grayed = 0; +c_732503.tag = closureN_tag; + c_732503.fn = (function_type)__lambda_214; +c_732503.num_args = 1; +c_732503.num_elements = 3; +c_732503.elements = (object *)alloca(sizeof(object) * 3); +c_732503.elements[0] = k_73706; +c_732503.elements[1] = ((closureN)self_731007)->elements[0]; +c_732503.elements[2] = ((closureN)self_731007)->elements[1]; + +return_closcall1(data,(closure)&c_732496, &c_732503);; +} + +static void __lambda_214(void *data, int argc, object self_731008, object r_73707) { + if( (boolean_f != r_73707) ){ + +closureN_type c_732505; +c_732505.hdr.mark = gc_color_red; + c_732505.hdr.grayed = 0; +c_732505.tag = closureN_tag; + c_732505.fn = (function_type)__lambda_213; +c_732505.num_args = 1; +c_732505.num_elements = 2; +c_732505.elements = (object *)alloca(sizeof(object) * 2); +c_732505.elements[0] = ((closureN)self_731008)->elements[0]; +c_732505.elements[1] = ((closureN)self_731008)->elements[1]; + +return_closcall2(data, __glo_in_91port_117get_91lnum_scheme_read, &c_732505, ((closureN)self_731008)->elements[1]); +} else { + +object c_732518 = Cyc_list2vector(data, ((closureN)self_731008)->elements[0],((closureN)self_731008)->elements[2]); +return_closcall1(data, ((closureN)self_731008)->elements[0], c_732518);} +; +} + +static void __lambda_213(void *data, int argc, object self_731009, object r_73708) { + +closureN_type c_732507; +c_732507.hdr.mark = gc_color_red; + c_732507.hdr.grayed = 0; +c_732507.tag = closureN_tag; + c_732507.fn = (function_type)__lambda_212; +c_732507.num_args = 1; +c_732507.num_elements = 2; +c_732507.elements = (object *)alloca(sizeof(object) * 2); +c_732507.elements[0] = ((closureN)self_731009)->elements[0]; +c_732507.elements[1] = r_73708; + +return_closcall2(data, __glo_in_91port_117get_91cnum_scheme_read, &c_732507, ((closureN)self_731009)->elements[1]);; +} + +static void __lambda_212(void *data, int argc, object self_731010, object r_73709) { + +make_string(c_732510, "Invalid vector syntax"); +return_closcall4(data, __glo_parse_91error_scheme_read, ((closureN)self_731010)->elements[0], &c_732510, ((closureN)self_731010)->elements[1], r_73709);; +} + +static void __lambda_211(void *data, int argc, object self_731011, object k_73710) { + if( (boolean_f != Cyc_is_pair(((closureN)self_731011)->elements[0])) ){ + return_closcall2(data, __glo_dotted_127_scheme_read, k_73710, ((closureN)self_731011)->elements[0]); +} else { + return_closcall1(data, k_73710, boolean_f);} +; +} + +static void __lambda_210(void *data, int argc, object self_731012, object r_73698) { + +closureN_type c_732330; +c_732330.hdr.mark = gc_color_red; + c_732330.hdr.grayed = 0; +c_732330.tag = closureN_tag; + c_732330.fn = (function_type)__lambda_209; +c_732330.num_args = 1; +c_732330.num_elements = 8; +c_732330.elements = (object *)alloca(sizeof(object) * 8); +c_732330.elements[0] = ((closureN)self_731012)->elements[0]; +c_732330.elements[1] = ((closureN)self_731012)->elements[1]; +c_732330.elements[2] = ((closureN)self_731012)->elements[2]; +c_732330.elements[3] = ((closureN)self_731012)->elements[3]; +c_732330.elements[4] = ((closureN)self_731012)->elements[4]; +c_732330.elements[5] = ((closureN)self_731012)->elements[5]; +c_732330.elements[6] = ((closureN)self_731012)->elements[6]; +c_732330.elements[7] = ((closureN)self_731012)->elements[7]; + +return_closcall1(data,(closure)&c_732330, Cyc_set_car(data, ((closureN)self_731012)->elements[3], r_73698));; +} + +static void __lambda_209(void *data, int argc, object self_731013, object r_73670) { + +closureN_type c_732332; +c_732332.hdr.mark = gc_color_red; + c_732332.hdr.grayed = 0; +c_732332.tag = closureN_tag; + c_732332.fn = (function_type)__lambda_184; +c_732332.num_args = 0; +c_732332.num_elements = 2; +c_732332.elements = (object *)alloca(sizeof(object) * 2); +c_732332.elements[0] = ((closureN)self_731013)->elements[3]; +c_732332.elements[1] = ((closureN)self_731013)->elements[5]; + + +closureN_type c_732349; +c_732349.hdr.mark = gc_color_red; + c_732349.hdr.grayed = 0; +c_732349.tag = closureN_tag; + c_732349.fn = (function_type)__lambda_208; +c_732349.num_args = 1; +c_732349.num_elements = 8; +c_732349.elements = (object *)alloca(sizeof(object) * 8); +c_732349.elements[0] = ((closureN)self_731013)->elements[0]; +c_732349.elements[1] = ((closureN)self_731013)->elements[1]; +c_732349.elements[2] = ((closureN)self_731013)->elements[2]; +c_732349.elements[3] = ((closureN)self_731013)->elements[3]; +c_732349.elements[4] = ((closureN)self_731013)->elements[4]; +c_732349.elements[5] = ((closureN)self_731013)->elements[5]; +c_732349.elements[6] = ((closureN)self_731013)->elements[6]; +c_732349.elements[7] = ((closureN)self_731013)->elements[7]; + +return_closcall1(data,(closure)&c_732332, &c_732349);; +} + +static void __lambda_208(void *data, int argc, object self_731014, object r_73671) { + +closureN_type c_732351; +c_732351.hdr.mark = gc_color_red; + c_732351.hdr.grayed = 0; +c_732351.tag = closureN_tag; + c_732351.fn = (function_type)__lambda_207; +c_732351.num_args = 1; +c_732351.num_elements = 8; +c_732351.elements = (object *)alloca(sizeof(object) * 8); +c_732351.elements[0] = ((closureN)self_731014)->elements[0]; +c_732351.elements[1] = ((closureN)self_731014)->elements[1]; +c_732351.elements[2] = ((closureN)self_731014)->elements[2]; +c_732351.elements[3] = ((closureN)self_731014)->elements[3]; +c_732351.elements[4] = ((closureN)self_731014)->elements[4]; +c_732351.elements[5] = ((closureN)self_731014)->elements[5]; +c_732351.elements[6] = ((closureN)self_731014)->elements[6]; +c_732351.elements[7] = ((closureN)self_731014)->elements[7]; + + +object c_732463 = Cyc_io_read_char(data,(closure)&c_732351,((closureN)self_731014)->elements[1]); +return_closcall1(data,(closure)&c_732351, c_732463);; +} + +static void __lambda_207(void *data, int argc, object self_731015, object r_73693) { + +closureN_type c_732353; +c_732353.hdr.mark = gc_color_red; + c_732353.hdr.grayed = 0; +c_732353.tag = closureN_tag; + c_732353.fn = (function_type)__lambda_206; +c_732353.num_args = 1; +c_732353.num_elements = 8; +c_732353.elements = (object *)alloca(sizeof(object) * 8); +c_732353.elements[0] = ((closureN)self_731015)->elements[0]; +c_732353.elements[1] = ((closureN)self_731015)->elements[1]; +c_732353.elements[2] = ((closureN)self_731015)->elements[2]; +c_732353.elements[3] = ((closureN)self_731015)->elements[3]; +c_732353.elements[4] = ((closureN)self_731015)->elements[4]; +c_732353.elements[5] = ((closureN)self_731015)->elements[5]; +c_732353.elements[6] = ((closureN)self_731015)->elements[6]; +c_732353.elements[7] = ((closureN)self_731015)->elements[7]; + +return_closcall1(data,(closure)&c_732353, Cyc_set_car(data, ((closureN)self_731015)->elements[3], r_73693));; +} + +static void __lambda_206(void *data, int argc, object self_731016, object r_73672) { + +closureN_type c_732355; +c_732355.hdr.mark = gc_color_red; + c_732355.hdr.grayed = 0; +c_732355.tag = closureN_tag; + c_732355.fn = (function_type)__lambda_187; +c_732355.num_args = 0; +c_732355.num_elements = 2; +c_732355.elements = (object *)alloca(sizeof(object) * 2); +c_732355.elements[0] = ((closureN)self_731016)->elements[3]; +c_732355.elements[1] = ((closureN)self_731016)->elements[5]; + + +closureN_type c_732372; +c_732372.hdr.mark = gc_color_red; + c_732372.hdr.grayed = 0; +c_732372.tag = closureN_tag; + c_732372.fn = (function_type)__lambda_205; +c_732372.num_args = 1; +c_732372.num_elements = 7; +c_732372.elements = (object *)alloca(sizeof(object) * 7); +c_732372.elements[0] = ((closureN)self_731016)->elements[0]; +c_732372.elements[1] = ((closureN)self_731016)->elements[1]; +c_732372.elements[2] = ((closureN)self_731016)->elements[2]; +c_732372.elements[3] = ((closureN)self_731016)->elements[4]; +c_732372.elements[4] = ((closureN)self_731016)->elements[5]; +c_732372.elements[5] = ((closureN)self_731016)->elements[6]; +c_732372.elements[6] = ((closureN)self_731016)->elements[7]; + +return_closcall1(data,(closure)&c_732355, &c_732372);; +} + +static void __lambda_205(void *data, int argc, object self_731017, object r_73673) { + +closureN_type c_732374; +c_732374.hdr.mark = gc_color_red; + c_732374.hdr.grayed = 0; +c_732374.tag = closureN_tag; + c_732374.fn = (function_type)__lambda_204; +c_732374.num_args = 1; +c_732374.num_elements = 7; +c_732374.elements = (object *)alloca(sizeof(object) * 7); +c_732374.elements[0] = ((closureN)self_731017)->elements[0]; +c_732374.elements[1] = ((closureN)self_731017)->elements[1]; +c_732374.elements[2] = ((closureN)self_731017)->elements[2]; +c_732374.elements[3] = ((closureN)self_731017)->elements[3]; +c_732374.elements[4] = ((closureN)self_731017)->elements[4]; +c_732374.elements[5] = ((closureN)self_731017)->elements[5]; +c_732374.elements[6] = ((closureN)self_731017)->elements[6]; + +return_closcall1(data,(closure)&c_732374, NULL);; +} + +static void __lambda_204(void *data, int argc, object self_731018, object r_73686) { + +closureN_type c_732376; +c_732376.hdr.mark = gc_color_red; + c_732376.hdr.grayed = 0; +c_732376.tag = closureN_tag; + c_732376.fn = (function_type)__lambda_203; +c_732376.num_args = 1; +c_732376.num_elements = 8; +c_732376.elements = (object *)alloca(sizeof(object) * 8); +c_732376.elements[0] = ((closureN)self_731018)->elements[0]; +c_732376.elements[1] = ((closureN)self_731018)->elements[1]; +c_732376.elements[2] = ((closureN)self_731018)->elements[2]; +c_732376.elements[3] = ((closureN)self_731018)->elements[3]; +c_732376.elements[4] = ((closureN)self_731018)->elements[4]; +c_732376.elements[5] = r_73686; +c_732376.elements[6] = ((closureN)self_731018)->elements[5]; +c_732376.elements[7] = ((closureN)self_731018)->elements[6]; + +return_closcall1(data,(closure)&c_732376, NULL);; +} + +static void __lambda_203(void *data, int argc, object self_731019, object r_73687) { + +closureN_type c_732378; +c_732378.hdr.mark = gc_color_red; + c_732378.hdr.grayed = 0; +c_732378.tag = closureN_tag; + c_732378.fn = (function_type)__lambda_202; +c_732378.num_args = 1; +c_732378.num_elements = 9; +c_732378.elements = (object *)alloca(sizeof(object) * 9); +c_732378.elements[0] = ((closureN)self_731019)->elements[0]; +c_732378.elements[1] = ((closureN)self_731019)->elements[1]; +c_732378.elements[2] = ((closureN)self_731019)->elements[2]; +c_732378.elements[3] = ((closureN)self_731019)->elements[3]; +c_732378.elements[4] = ((closureN)self_731019)->elements[4]; +c_732378.elements[5] = ((closureN)self_731019)->elements[5]; +c_732378.elements[6] = r_73687; +c_732378.elements[7] = ((closureN)self_731019)->elements[6]; +c_732378.elements[8] = ((closureN)self_731019)->elements[7]; + + +object c_732456 = Cyc_sum(data,(closure)&c_732378,2,((closureN)self_731019)->elements[3], obj_int2obj(1)); +return_closcall1(data,(closure)&c_732378, c_732456);; +} + +static void __lambda_202(void *data, int argc, object self_731020, object r_73688) { + +closureN_type c_732380; +c_732380.hdr.mark = gc_color_red; + c_732380.hdr.grayed = 0; +c_732380.tag = closureN_tag; + c_732380.fn = (function_type)__lambda_201; +c_732380.num_args = 1; +c_732380.num_elements = 7; +c_732380.elements = (object *)alloca(sizeof(object) * 7); +c_732380.elements[0] = ((closureN)self_731020)->elements[0]; +c_732380.elements[1] = ((closureN)self_731020)->elements[1]; +c_732380.elements[2] = ((closureN)self_731020)->elements[2]; +c_732380.elements[3] = ((closureN)self_731020)->elements[3]; +c_732380.elements[4] = ((closureN)self_731020)->elements[4]; +c_732380.elements[5] = ((closureN)self_731020)->elements[7]; +c_732380.elements[6] = ((closureN)self_731020)->elements[8]; + +return_closcall8(data, __glo_parse_scheme_read, &c_732380, ((closureN)self_731020)->elements[1], ((closureN)self_731020)->elements[5], ((closureN)self_731020)->elements[6], boolean_t, boolean_f, r_73688, ((closureN)self_731020)->elements[4]);; +} + +static void __lambda_201(void *data, int argc, object self_731021, object r_73674) { + +closureN_type c_732382; +c_732382.hdr.mark = gc_color_red; + c_732382.hdr.grayed = 0; +c_732382.tag = closureN_tag; + c_732382.fn = (function_type)__lambda_200; +c_732382.num_args = 1; +c_732382.num_elements = 6; +c_732382.elements = (object *)alloca(sizeof(object) * 6); +c_732382.elements[0] = ((closureN)self_731021)->elements[0]; +c_732382.elements[1] = ((closureN)self_731021)->elements[1]; +c_732382.elements[2] = ((closureN)self_731021)->elements[2]; +c_732382.elements[3] = ((closureN)self_731021)->elements[3]; +c_732382.elements[4] = ((closureN)self_731021)->elements[4]; +c_732382.elements[5] = r_73674; + +return_closcall3(data, __glo_get_91toks_scheme_read, &c_732382, ((closureN)self_731021)->elements[5], ((closureN)self_731021)->elements[6]);; +} + +static void __lambda_200(void *data, int argc, object self_731022, object r_73675) { + +closureN_type c_732384; +c_732384.hdr.mark = gc_color_red; + c_732384.hdr.grayed = 0; +c_732384.tag = closureN_tag; + c_732384.fn = (function_type)__lambda_199; +c_732384.num_args = 2; +c_732384.num_elements = 5; +c_732384.elements = (object *)alloca(sizeof(object) * 5); +c_732384.elements[0] = ((closureN)self_731022)->elements[0]; +c_732384.elements[1] = ((closureN)self_731022)->elements[1]; +c_732384.elements[2] = ((closureN)self_731022)->elements[2]; +c_732384.elements[3] = ((closureN)self_731022)->elements[3]; +c_732384.elements[4] = ((closureN)self_731022)->elements[4]; + +return_closcall2(data,(closure)&c_732384, ((closureN)self_731022)->elements[5], r_73675);; +} + +static void __lambda_199(void *data, int argc, object self_731023, object sub_73212, object toks_85_73211) { + +closureN_type c_732386; +c_732386.hdr.mark = gc_color_red; + c_732386.hdr.grayed = 0; +c_732386.tag = closureN_tag; + c_732386.fn = (function_type)__lambda_198; +c_732386.num_args = 1; +c_732386.num_elements = 7; +c_732386.elements = (object *)alloca(sizeof(object) * 7); +c_732386.elements[0] = ((closureN)self_731023)->elements[0]; +c_732386.elements[1] = ((closureN)self_731023)->elements[1]; +c_732386.elements[2] = ((closureN)self_731023)->elements[2]; +c_732386.elements[3] = ((closureN)self_731023)->elements[3]; +c_732386.elements[4] = ((closureN)self_731023)->elements[4]; +c_732386.elements[5] = sub_73212; +c_732386.elements[6] = toks_85_73211; + +return_closcall1(data,(closure)&c_732386, boolean_f);; +} + +static void __lambda_198(void *data, int argc, object self_731024, object new_91toks_73213) { + +closureN_type c_732388; +c_732388.hdr.mark = gc_color_red; + c_732388.hdr.grayed = 0; +c_732388.tag = closureN_tag; + c_732388.fn = (function_type)__lambda_197; +c_732388.num_args = 1; +c_732388.num_elements = 7; +c_732388.elements = (object *)alloca(sizeof(object) * 7); +c_732388.elements[0] = ((closureN)self_731024)->elements[0]; +c_732388.elements[1] = ((closureN)self_731024)->elements[1]; +c_732388.elements[2] = ((closureN)self_731024)->elements[2]; +c_732388.elements[3] = ((closureN)self_731024)->elements[3]; +c_732388.elements[4] = ((closureN)self_731024)->elements[4]; +c_732388.elements[5] = ((closureN)self_731024)->elements[5]; +c_732388.elements[6] = ((closureN)self_731024)->elements[6]; + + +make_cell(c_732446,new_91toks_73213); +return_closcall1(data,(closure)&c_732388, &c_732446);; +} + +static void __lambda_197(void *data, int argc, object self_731025, object new_91toks_73213) { + +closureN_type c_732390; +c_732390.hdr.mark = gc_color_red; + c_732390.hdr.grayed = 0; +c_732390.tag = closureN_tag; + c_732390.fn = (function_type)__lambda_192; +c_732390.num_args = 0; +c_732390.num_elements = 2; +c_732390.elements = (object *)alloca(sizeof(object) * 2); +c_732390.elements[0] = ((closureN)self_731025)->elements[4]; +c_732390.elements[1] = ((closureN)self_731025)->elements[5]; + + +closureN_type c_732416; +c_732416.hdr.mark = gc_color_red; + c_732416.hdr.grayed = 0; +c_732416.tag = closureN_tag; + c_732416.fn = (function_type)__lambda_196; +c_732416.num_args = 1; +c_732416.num_elements = 7; +c_732416.elements = (object *)alloca(sizeof(object) * 7); +c_732416.elements[0] = ((closureN)self_731025)->elements[0]; +c_732416.elements[1] = ((closureN)self_731025)->elements[1]; +c_732416.elements[2] = ((closureN)self_731025)->elements[2]; +c_732416.elements[3] = new_91toks_73213; +c_732416.elements[4] = ((closureN)self_731025)->elements[3]; +c_732416.elements[5] = ((closureN)self_731025)->elements[4]; +c_732416.elements[6] = ((closureN)self_731025)->elements[6]; + +return_closcall1(data,(closure)&c_732390, &c_732416);; +} + +static void __lambda_196(void *data, int argc, object self_731026, object r_73679) { + +closureN_type c_732418; +c_732418.hdr.mark = gc_color_red; + c_732418.hdr.grayed = 0; +c_732418.tag = closureN_tag; + c_732418.fn = (function_type)__lambda_195; +c_732418.num_args = 1; +c_732418.num_elements = 6; +c_732418.elements = (object *)alloca(sizeof(object) * 6); +c_732418.elements[0] = ((closureN)self_731026)->elements[0]; +c_732418.elements[1] = ((closureN)self_731026)->elements[1]; +c_732418.elements[2] = ((closureN)self_731026)->elements[2]; +c_732418.elements[3] = ((closureN)self_731026)->elements[3]; +c_732418.elements[4] = ((closureN)self_731026)->elements[4]; +c_732418.elements[5] = ((closureN)self_731026)->elements[5]; + +return_closcall3(data, __glo_add_91tok_scheme_read, &c_732418, r_73679, ((closureN)self_731026)->elements[6]);; +} + +static void __lambda_195(void *data, int argc, object self_731027, object r_73678) { + +closureN_type c_732420; +c_732420.hdr.mark = gc_color_red; + c_732420.hdr.grayed = 0; +c_732420.tag = closureN_tag; + c_732420.fn = (function_type)__lambda_194; +c_732420.num_args = 1; +c_732420.num_elements = 6; +c_732420.elements = (object *)alloca(sizeof(object) * 6); +c_732420.elements[0] = ((closureN)self_731027)->elements[0]; +c_732420.elements[1] = ((closureN)self_731027)->elements[1]; +c_732420.elements[2] = ((closureN)self_731027)->elements[2]; +c_732420.elements[3] = ((closureN)self_731027)->elements[3]; +c_732420.elements[4] = ((closureN)self_731027)->elements[4]; +c_732420.elements[5] = ((closureN)self_731027)->elements[5]; + +return_closcall1(data,(closure)&c_732420, Cyc_set_car(data, ((closureN)self_731027)->elements[3], r_73678));; +} + +static void __lambda_194(void *data, int argc, object self_731028, object r_73676) { + if( (boolean_f != ((closureN)self_731028)->elements[0]) ){ + +closureN_type c_732423; +c_732423.hdr.mark = gc_color_red; + c_732423.hdr.grayed = 0; +c_732423.tag = closureN_tag; + c_732423.fn = (function_type)__lambda_193; +c_732423.num_args = 1; +c_732423.num_elements = 6; +c_732423.elements = (object *)alloca(sizeof(object) * 6); +c_732423.elements[0] = ((closureN)self_731028)->elements[0]; +c_732423.elements[1] = ((closureN)self_731028)->elements[1]; +c_732423.elements[2] = ((closureN)self_731028)->elements[2]; +c_732423.elements[3] = ((closureN)self_731028)->elements[3]; +c_732423.elements[4] = ((closureN)self_731028)->elements[4]; +c_732423.elements[5] = ((closureN)self_731028)->elements[5]; + +return_closcall1(data,(closure)&c_732423, NULL); +} else { + return_closcall1(data, ((closureN)self_731028)->elements[2], car(cell_get(((closureN)self_731028)->elements[3])));} +; +} + +static void __lambda_193(void *data, int argc, object self_731029, object r_73677) { + return_closcall8(data, __glo_parse_scheme_read, ((closureN)self_731029)->elements[2], ((closureN)self_731029)->elements[1], r_73677, cell_get(((closureN)self_731029)->elements[3]), ((closureN)self_731029)->elements[0], boolean_f, ((closureN)self_731029)->elements[4], ((closureN)self_731029)->elements[5]);; +} + +static void __lambda_192(void *data, int argc, object self_731030, object k_73680) { + +closureN_type c_732392; +c_732392.hdr.mark = gc_color_red; + c_732392.hdr.grayed = 0; +c_732392.tag = closureN_tag; + c_732392.fn = (function_type)__lambda_188; +c_732392.num_args = 0; +c_732392.num_elements = 1; +c_732392.elements = (object *)alloca(sizeof(object) * 1); +c_732392.elements[0] = ((closureN)self_731030)->elements[1]; + + +closureN_type c_732399; +c_732399.hdr.mark = gc_color_red; + c_732399.hdr.grayed = 0; +c_732399.tag = closureN_tag; + c_732399.fn = (function_type)__lambda_191; +c_732399.num_args = 1; +c_732399.num_elements = 3; +c_732399.elements = (object *)alloca(sizeof(object) * 3); +c_732399.elements[0] = k_73680; +c_732399.elements[1] = ((closureN)self_731030)->elements[0]; +c_732399.elements[2] = ((closureN)self_731030)->elements[1]; + +return_closcall1(data,(closure)&c_732392, &c_732399);; +} + +static void __lambda_191(void *data, int argc, object self_731031, object r_73681) { + if( (boolean_f != r_73681) ){ + +closureN_type c_732401; +c_732401.hdr.mark = gc_color_red; + c_732401.hdr.grayed = 0; +c_732401.tag = closureN_tag; + c_732401.fn = (function_type)__lambda_190; +c_732401.num_args = 1; +c_732401.num_elements = 2; +c_732401.elements = (object *)alloca(sizeof(object) * 2); +c_732401.elements[0] = ((closureN)self_731031)->elements[0]; +c_732401.elements[1] = ((closureN)self_731031)->elements[1]; + +return_closcall2(data, __glo_in_91port_117get_91lnum_scheme_read, &c_732401, ((closureN)self_731031)->elements[1]); +} else { + +object c_732414 = apply(data, ((closureN)self_731031)->elements[0],primitive_bytevector, ((closureN)self_731031)->elements[2]); +return_closcall1(data, ((closureN)self_731031)->elements[0], c_732414);} +; +} + +static void __lambda_190(void *data, int argc, object self_731032, object r_73682) { + +closureN_type c_732403; +c_732403.hdr.mark = gc_color_red; + c_732403.hdr.grayed = 0; +c_732403.tag = closureN_tag; + c_732403.fn = (function_type)__lambda_189; +c_732403.num_args = 1; +c_732403.num_elements = 2; +c_732403.elements = (object *)alloca(sizeof(object) * 2); +c_732403.elements[0] = ((closureN)self_731032)->elements[0]; +c_732403.elements[1] = r_73682; + +return_closcall2(data, __glo_in_91port_117get_91cnum_scheme_read, &c_732403, ((closureN)self_731032)->elements[1]);; +} + +static void __lambda_189(void *data, int argc, object self_731033, object r_73683) { + +make_string(c_732406, "Invalid vector syntax"); +return_closcall4(data, __glo_parse_91error_scheme_read, ((closureN)self_731033)->elements[0], &c_732406, ((closureN)self_731033)->elements[1], r_73683);; +} + +static void __lambda_188(void *data, int argc, object self_731034, object k_73684) { + if( (boolean_f != Cyc_is_pair(((closureN)self_731034)->elements[0])) ){ + return_closcall2(data, __glo_dotted_127_scheme_read, k_73684, ((closureN)self_731034)->elements[0]); +} else { + return_closcall1(data, k_73684, boolean_f);} +; +} + +static void __lambda_187(void *data, int argc, object self_731035, object k_73689) { + if( (boolean_f != Cyc_eq(obj_char2obj(40), cell_get(((closureN)self_731035)->elements[0]))) ){ + return_closcall1(data, k_73689, boolean_f); +} else { + +closureN_type c_732363; +c_732363.hdr.mark = gc_color_red; + c_732363.hdr.grayed = 0; +c_732363.tag = closureN_tag; + c_732363.fn = (function_type)__lambda_186; +c_732363.num_args = 1; +c_732363.num_elements = 2; +c_732363.elements = (object *)alloca(sizeof(object) * 2); +c_732363.elements[0] = k_73689; +c_732363.elements[1] = ((closureN)self_731035)->elements[1]; + +return_closcall2(data, __glo_in_91port_117get_91lnum_scheme_read, &c_732363, ((closureN)self_731035)->elements[1]);} +; +} + +static void __lambda_186(void *data, int argc, object self_731036, object r_73691) { + +closureN_type c_732365; +c_732365.hdr.mark = gc_color_red; + c_732365.hdr.grayed = 0; +c_732365.tag = closureN_tag; + c_732365.fn = (function_type)__lambda_185; +c_732365.num_args = 1; +c_732365.num_elements = 2; +c_732365.elements = (object *)alloca(sizeof(object) * 2); +c_732365.elements[0] = ((closureN)self_731036)->elements[0]; +c_732365.elements[1] = r_73691; + +return_closcall2(data, __glo_in_91port_117get_91cnum_scheme_read, &c_732365, ((closureN)self_731036)->elements[1]);; +} + +static void __lambda_185(void *data, int argc, object self_731037, object r_73692) { + +make_string(c_732368, "Unhandled input sequence"); +return_closcall4(data, __glo_parse_91error_scheme_read, ((closureN)self_731037)->elements[0], &c_732368, ((closureN)self_731037)->elements[1], r_73692);; +} + +static void __lambda_184(void *data, int argc, object self_731038, object k_73694) { + if( (boolean_f != Cyc_eq(obj_char2obj(56), cell_get(((closureN)self_731038)->elements[0]))) ){ + return_closcall1(data, k_73694, boolean_f); +} else { + +closureN_type c_732340; +c_732340.hdr.mark = gc_color_red; + c_732340.hdr.grayed = 0; +c_732340.tag = closureN_tag; + c_732340.fn = (function_type)__lambda_183; +c_732340.num_args = 1; +c_732340.num_elements = 2; +c_732340.elements = (object *)alloca(sizeof(object) * 2); +c_732340.elements[0] = k_73694; +c_732340.elements[1] = ((closureN)self_731038)->elements[1]; + +return_closcall2(data, __glo_in_91port_117get_91lnum_scheme_read, &c_732340, ((closureN)self_731038)->elements[1]);} +; +} + +static void __lambda_183(void *data, int argc, object self_731039, object r_73696) { + +closureN_type c_732342; +c_732342.hdr.mark = gc_color_red; + c_732342.hdr.grayed = 0; +c_732342.tag = closureN_tag; + c_732342.fn = (function_type)__lambda_182; +c_732342.num_args = 1; +c_732342.num_elements = 2; +c_732342.elements = (object *)alloca(sizeof(object) * 2); +c_732342.elements[0] = ((closureN)self_731039)->elements[0]; +c_732342.elements[1] = r_73696; + +return_closcall2(data, __glo_in_91port_117get_91cnum_scheme_read, &c_732342, ((closureN)self_731039)->elements[1]);; +} + +static void __lambda_182(void *data, int argc, object self_731040, object r_73697) { + +make_string(c_732345, "Unhandled input sequence"); +return_closcall4(data, __glo_parse_91error_scheme_read, ((closureN)self_731040)->elements[0], &c_732345, ((closureN)self_731040)->elements[1], r_73697);; +} + +static void __lambda_181(void *data, int argc, object self_731041, object k_73667, object num_73214) { + +closureN_type c_732313; +c_732313.hdr.mark = gc_color_red; + c_732313.hdr.grayed = 0; +c_732313.tag = closureN_tag; + c_732313.fn = (function_type)__lambda_180; +c_732313.num_args = 1; +c_732313.num_elements = 1; +c_732313.elements = (object *)alloca(sizeof(object) * 1); +c_732313.elements[0] = k_73667; + + +object c_732321 = Cyc_list2string(data,(closure)&c_732313,num_73214); +return_closcall1(data,(closure)&c_732313, c_732321);; +} + +static void __lambda_180(void *data, int argc, object self_731042, object r_73668) { + +object c_732318 = Cyc_string2number2_(data, ((closureN)self_731042)->elements[0],2,r_73668, obj_int2obj(16)); +return_closcall1(data, ((closureN)self_731042)->elements[0], c_732318);; +} + +static void __lambda_179(void *data, int argc, object self_731043, object r_73666) { + return_closcall8(data, __glo_parse_91number_scheme_read, ((closureN)self_731043)->elements[2], ((closureN)self_731043)->elements[1], ((closureN)self_731043)->elements[5], ((closureN)self_731043)->elements[0], ((closureN)self_731043)->elements[3], ((closureN)self_731043)->elements[4], obj_int2obj(16), r_73666);; +} + +static void __lambda_178(void *data, int argc, object self_731044, object k_73663, object num_73215) { + +closureN_type c_732288; +c_732288.hdr.mark = gc_color_red; + c_732288.hdr.grayed = 0; +c_732288.tag = closureN_tag; + c_732288.fn = (function_type)__lambda_177; +c_732288.num_args = 1; +c_732288.num_elements = 1; +c_732288.elements = (object *)alloca(sizeof(object) * 1); +c_732288.elements[0] = k_73663; + + +object c_732296 = Cyc_list2string(data,(closure)&c_732288,num_73215); +return_closcall1(data,(closure)&c_732288, c_732296);; +} + +static void __lambda_177(void *data, int argc, object self_731045, object r_73664) { + +object c_732293 = Cyc_string2number2_(data, ((closureN)self_731045)->elements[0],2,r_73664, obj_int2obj(8)); +return_closcall1(data, ((closureN)self_731045)->elements[0], c_732293);; +} + +static void __lambda_176(void *data, int argc, object self_731046, object r_73662) { + return_closcall8(data, __glo_parse_91number_scheme_read, ((closureN)self_731046)->elements[2], ((closureN)self_731046)->elements[1], ((closureN)self_731046)->elements[5], ((closureN)self_731046)->elements[0], ((closureN)self_731046)->elements[3], ((closureN)self_731046)->elements[4], obj_int2obj(8), r_73662);; +} + +static void __lambda_175(void *data, int argc, object self_731047, object k_73659, object num_73216) { + +closureN_type c_732263; +c_732263.hdr.mark = gc_color_red; + c_732263.hdr.grayed = 0; +c_732263.tag = closureN_tag; + c_732263.fn = (function_type)__lambda_174; +c_732263.num_args = 1; +c_732263.num_elements = 1; +c_732263.elements = (object *)alloca(sizeof(object) * 1); +c_732263.elements[0] = k_73659; + + +object c_732271 = Cyc_list2string(data,(closure)&c_732263,num_73216); +return_closcall1(data,(closure)&c_732263, c_732271);; +} + +static void __lambda_174(void *data, int argc, object self_731048, object r_73660) { + +object c_732268 = Cyc_string2number2_(data, ((closureN)self_731048)->elements[0],2,r_73660, obj_int2obj(2)); +return_closcall1(data, ((closureN)self_731048)->elements[0], c_732268);; +} + +static void __lambda_173(void *data, int argc, object self_731049, object r_73658) { + return_closcall8(data, __glo_parse_91number_scheme_read, ((closureN)self_731049)->elements[2], ((closureN)self_731049)->elements[1], ((closureN)self_731049)->elements[5], ((closureN)self_731049)->elements[0], ((closureN)self_731049)->elements[3], ((closureN)self_731049)->elements[4], obj_int2obj(2), r_73658);; +} + +static void __lambda_172(void *data, int argc, object self_731050, object k_73655, object num_73217) { + +closureN_type c_732244; +c_732244.hdr.mark = gc_color_red; + c_732244.hdr.grayed = 0; +c_732244.tag = closureN_tag; + c_732244.fn = (function_type)__lambda_171; +c_732244.num_args = 1; +c_732244.num_elements = 1; +c_732244.elements = (object *)alloca(sizeof(object) * 1); +c_732244.elements[0] = k_73655; + +return_closcall2(data, __glo_parse_91atom_scheme_read, &c_732244, num_73217);; +} + +static void __lambda_171(void *data, int argc, object self_731051, object r_73656) { + return_closcall2(data, __glo_inexact_scheme_base, ((closureN)self_731051)->elements[0], r_73656);; +} + +static void __lambda_170(void *data, int argc, object self_731052, object r_73654) { + return_closcall8(data, __glo_parse_91number_scheme_read, ((closureN)self_731052)->elements[2], ((closureN)self_731052)->elements[1], ((closureN)self_731052)->elements[5], ((closureN)self_731052)->elements[0], ((closureN)self_731052)->elements[3], ((closureN)self_731052)->elements[4], obj_int2obj(10), r_73654);; +} + +static void __lambda_169(void *data, int argc, object self_731053, object k_73651, object num_73218) { + +closureN_type c_732225; +c_732225.hdr.mark = gc_color_red; + c_732225.hdr.grayed = 0; +c_732225.tag = closureN_tag; + c_732225.fn = (function_type)__lambda_168; +c_732225.num_args = 1; +c_732225.num_elements = 1; +c_732225.elements = (object *)alloca(sizeof(object) * 1); +c_732225.elements[0] = k_73651; + +return_closcall2(data, __glo_parse_91atom_scheme_read, &c_732225, num_73218);; +} + +static void __lambda_168(void *data, int argc, object self_731054, object r_73652) { + return_closcall2(data, __glo_exact_scheme_base, ((closureN)self_731054)->elements[0], r_73652);; +} + +static void __lambda_167(void *data, int argc, object self_731055, object r_73650) { + return_closcall8(data, __glo_parse_91number_scheme_read, ((closureN)self_731055)->elements[2], ((closureN)self_731055)->elements[1], ((closureN)self_731055)->elements[5], ((closureN)self_731055)->elements[0], ((closureN)self_731055)->elements[3], ((closureN)self_731055)->elements[4], obj_int2obj(10), r_73650);; +} + +static void __lambda_166(void *data, int argc, object self_731056, object r_73647) { + +make_pair(c_732202,boolean_f, ((closureN)self_731056)->elements[5]); +return_closcall8(data, __glo_parse_scheme_read, ((closureN)self_731056)->elements[2], ((closureN)self_731056)->elements[1], r_73647, &c_732202, ((closureN)self_731056)->elements[0], boolean_f, ((closureN)self_731056)->elements[3], ((closureN)self_731056)->elements[4]);; +} + +static void __lambda_165(void *data, int argc, object self_731057, object r_73644) { + +make_pair(c_732182,boolean_t, ((closureN)self_731057)->elements[5]); +return_closcall8(data, __glo_parse_scheme_read, ((closureN)self_731057)->elements[2], ((closureN)self_731057)->elements[1], r_73644, &c_732182, ((closureN)self_731057)->elements[0], boolean_f, ((closureN)self_731057)->elements[3], ((closureN)self_731057)->elements[4]);; +} + +static void __lambda_164(void *data, int argc, object self_731058, object r_73641) { + +closureN_type c_732159; +c_732159.hdr.mark = gc_color_red; + c_732159.hdr.grayed = 0; +c_732159.tag = closureN_tag; + c_732159.fn = (function_type)__lambda_163; +c_732159.num_args = 1; +c_732159.num_elements = 6; +c_732159.elements = (object *)alloca(sizeof(object) * 6); +c_732159.elements[0] = ((closureN)self_731058)->elements[0]; +c_732159.elements[1] = ((closureN)self_731058)->elements[1]; +c_732159.elements[2] = ((closureN)self_731058)->elements[2]; +c_732159.elements[3] = ((closureN)self_731058)->elements[3]; +c_732159.elements[4] = ((closureN)self_731058)->elements[4]; +c_732159.elements[5] = ((closureN)self_731058)->elements[5]; + +return_closcall1(data,(closure)&c_732159, NULL);; +} + +static void __lambda_163(void *data, int argc, object self_731059, object r_73642) { + return_closcall8(data, __glo_parse_scheme_read, ((closureN)self_731059)->elements[2], ((closureN)self_731059)->elements[1], r_73642, ((closureN)self_731059)->elements[5], ((closureN)self_731059)->elements[0], boolean_f, ((closureN)self_731059)->elements[3], ((closureN)self_731059)->elements[4]);; +} + +static void __lambda_162(void *data, int argc, object self_731060, object r_73624) { + if( (boolean_f != r_73624) ){ + +closureN_type c_732074; +c_732074.hdr.mark = gc_color_red; + c_732074.hdr.grayed = 0; +c_732074.tag = closureN_tag; + c_732074.fn = (function_type)__lambda_152; +c_732074.num_args = 1; +c_732074.num_elements = 3; +c_732074.elements = (object *)alloca(sizeof(object) * 3); +c_732074.elements[0] = ((closureN)self_731060)->elements[3]; +c_732074.elements[1] = ((closureN)self_731060)->elements[6]; +c_732074.elements[2] = ((closureN)self_731060)->elements[7]; + +return_closcall3(data, __glo_in_91port_117set_91buf_67_scheme_read, &c_732074, ((closureN)self_731060)->elements[5], ((closureN)self_731060)->elements[1]); +} else { + +closureN_type c_732088; +c_732088.hdr.mark = gc_color_red; + c_732088.hdr.grayed = 0; +c_732088.tag = closureN_tag; + c_732088.fn = (function_type)__lambda_161; +c_732088.num_args = 1; +c_732088.num_elements = 7; +c_732088.elements = (object *)alloca(sizeof(object) * 7); +c_732088.elements[0] = ((closureN)self_731060)->elements[0]; +c_732088.elements[1] = ((closureN)self_731060)->elements[2]; +c_732088.elements[2] = ((closureN)self_731060)->elements[3]; +c_732088.elements[3] = ((closureN)self_731060)->elements[4]; +c_732088.elements[4] = ((closureN)self_731060)->elements[5]; +c_732088.elements[5] = ((closureN)self_731060)->elements[6]; +c_732088.elements[6] = ((closureN)self_731060)->elements[7]; + +return_closcall1(data,(closure)&c_732088, NULL);} +; +} + +static void __lambda_161(void *data, int argc, object self_731061, object r_73633) { + +closureN_type c_732090; +c_732090.hdr.mark = gc_color_red; + c_732090.hdr.grayed = 0; +c_732090.tag = closureN_tag; + c_732090.fn = (function_type)__lambda_160; +c_732090.num_args = 1; +c_732090.num_elements = 7; +c_732090.elements = (object *)alloca(sizeof(object) * 7); +c_732090.elements[0] = ((closureN)self_731061)->elements[0]; +c_732090.elements[1] = ((closureN)self_731061)->elements[1]; +c_732090.elements[2] = ((closureN)self_731061)->elements[2]; +c_732090.elements[3] = ((closureN)self_731061)->elements[3]; +c_732090.elements[4] = ((closureN)self_731061)->elements[4]; +c_732090.elements[5] = ((closureN)self_731061)->elements[5]; +c_732090.elements[6] = ((closureN)self_731061)->elements[6]; + +return_closcall4(data, __glo_read_91str_scheme_read, &c_732090, ((closureN)self_731061)->elements[1], r_73633, ((closureN)self_731061)->elements[4]);; +} + +static void __lambda_160(void *data, int argc, object self_731062, object r_73628) { + +closureN_type c_732092; +c_732092.hdr.mark = gc_color_red; + c_732092.hdr.grayed = 0; +c_732092.tag = closureN_tag; + c_732092.fn = (function_type)__lambda_159; +c_732092.num_args = 1; +c_732092.num_elements = 6; +c_732092.elements = (object *)alloca(sizeof(object) * 6); +c_732092.elements[0] = ((closureN)self_731062)->elements[0]; +c_732092.elements[1] = ((closureN)self_731062)->elements[1]; +c_732092.elements[2] = ((closureN)self_731062)->elements[2]; +c_732092.elements[3] = ((closureN)self_731062)->elements[3]; +c_732092.elements[4] = ((closureN)self_731062)->elements[4]; +c_732092.elements[5] = r_73628; + +return_closcall3(data, __glo_get_91toks_scheme_read, &c_732092, ((closureN)self_731062)->elements[5], ((closureN)self_731062)->elements[6]);; +} + +static void __lambda_159(void *data, int argc, object self_731063, object r_73629) { + +closureN_type c_732094; +c_732094.hdr.mark = gc_color_red; + c_732094.hdr.grayed = 0; +c_732094.tag = closureN_tag; + c_732094.fn = (function_type)__lambda_158; +c_732094.num_args = 2; +c_732094.num_elements = 5; +c_732094.elements = (object *)alloca(sizeof(object) * 5); +c_732094.elements[0] = ((closureN)self_731063)->elements[0]; +c_732094.elements[1] = ((closureN)self_731063)->elements[1]; +c_732094.elements[2] = ((closureN)self_731063)->elements[2]; +c_732094.elements[3] = ((closureN)self_731063)->elements[3]; +c_732094.elements[4] = ((closureN)self_731063)->elements[4]; + +return_closcall2(data,(closure)&c_732094, ((closureN)self_731063)->elements[5], r_73629);; +} + +static void __lambda_158(void *data, int argc, object self_731064, object str_73220, object toks_85_73219) { + +closureN_type c_732096; +c_732096.hdr.mark = gc_color_red; + c_732096.hdr.grayed = 0; +c_732096.tag = closureN_tag; + c_732096.fn = (function_type)__lambda_157; +c_732096.num_args = 1; +c_732096.num_elements = 7; +c_732096.elements = (object *)alloca(sizeof(object) * 7); +c_732096.elements[0] = ((closureN)self_731064)->elements[0]; +c_732096.elements[1] = ((closureN)self_731064)->elements[1]; +c_732096.elements[2] = ((closureN)self_731064)->elements[2]; +c_732096.elements[3] = ((closureN)self_731064)->elements[3]; +c_732096.elements[4] = ((closureN)self_731064)->elements[4]; +c_732096.elements[5] = str_73220; +c_732096.elements[6] = toks_85_73219; + +return_closcall1(data,(closure)&c_732096, boolean_f);; +} + +static void __lambda_157(void *data, int argc, object self_731065, object new_91toks_73221) { + +closureN_type c_732098; +c_732098.hdr.mark = gc_color_red; + c_732098.hdr.grayed = 0; +c_732098.tag = closureN_tag; + c_732098.fn = (function_type)__lambda_156; +c_732098.num_args = 1; +c_732098.num_elements = 7; +c_732098.elements = (object *)alloca(sizeof(object) * 7); +c_732098.elements[0] = ((closureN)self_731065)->elements[0]; +c_732098.elements[1] = ((closureN)self_731065)->elements[1]; +c_732098.elements[2] = ((closureN)self_731065)->elements[2]; +c_732098.elements[3] = ((closureN)self_731065)->elements[3]; +c_732098.elements[4] = ((closureN)self_731065)->elements[4]; +c_732098.elements[5] = ((closureN)self_731065)->elements[5]; +c_732098.elements[6] = ((closureN)self_731065)->elements[6]; + + +make_cell(c_732129,new_91toks_73221); +return_closcall1(data,(closure)&c_732098, &c_732129);; +} + +static void __lambda_156(void *data, int argc, object self_731066, object new_91toks_73221) { + +closureN_type c_732100; +c_732100.hdr.mark = gc_color_red; + c_732100.hdr.grayed = 0; +c_732100.tag = closureN_tag; + c_732100.fn = (function_type)__lambda_155; +c_732100.num_args = 1; +c_732100.num_elements = 6; +c_732100.elements = (object *)alloca(sizeof(object) * 6); +c_732100.elements[0] = ((closureN)self_731066)->elements[0]; +c_732100.elements[1] = ((closureN)self_731066)->elements[1]; +c_732100.elements[2] = ((closureN)self_731066)->elements[2]; +c_732100.elements[3] = new_91toks_73221; +c_732100.elements[4] = ((closureN)self_731066)->elements[3]; +c_732100.elements[5] = ((closureN)self_731066)->elements[4]; + +return_closcall3(data, __glo_add_91tok_scheme_read, &c_732100, ((closureN)self_731066)->elements[5], ((closureN)self_731066)->elements[6]);; +} + +static void __lambda_155(void *data, int argc, object self_731067, object r_73632) { + +closureN_type c_732102; +c_732102.hdr.mark = gc_color_red; + c_732102.hdr.grayed = 0; +c_732102.tag = closureN_tag; + c_732102.fn = (function_type)__lambda_154; +c_732102.num_args = 1; +c_732102.num_elements = 6; +c_732102.elements = (object *)alloca(sizeof(object) * 6); +c_732102.elements[0] = ((closureN)self_731067)->elements[0]; +c_732102.elements[1] = ((closureN)self_731067)->elements[1]; +c_732102.elements[2] = ((closureN)self_731067)->elements[2]; +c_732102.elements[3] = ((closureN)self_731067)->elements[3]; +c_732102.elements[4] = ((closureN)self_731067)->elements[4]; +c_732102.elements[5] = ((closureN)self_731067)->elements[5]; + +return_closcall1(data,(closure)&c_732102, Cyc_set_car(data, ((closureN)self_731067)->elements[3], r_73632));; +} + +static void __lambda_154(void *data, int argc, object self_731068, object r_73630) { + if( (boolean_f != ((closureN)self_731068)->elements[0]) ){ + +closureN_type c_732105; +c_732105.hdr.mark = gc_color_red; + c_732105.hdr.grayed = 0; +c_732105.tag = closureN_tag; + c_732105.fn = (function_type)__lambda_153; +c_732105.num_args = 1; +c_732105.num_elements = 6; +c_732105.elements = (object *)alloca(sizeof(object) * 6); +c_732105.elements[0] = ((closureN)self_731068)->elements[0]; +c_732105.elements[1] = ((closureN)self_731068)->elements[1]; +c_732105.elements[2] = ((closureN)self_731068)->elements[2]; +c_732105.elements[3] = ((closureN)self_731068)->elements[3]; +c_732105.elements[4] = ((closureN)self_731068)->elements[4]; +c_732105.elements[5] = ((closureN)self_731068)->elements[5]; + +return_closcall1(data,(closure)&c_732105, NULL); +} else { + return_closcall1(data, ((closureN)self_731068)->elements[2], car(cell_get(((closureN)self_731068)->elements[3])));} +; +} + +static void __lambda_153(void *data, int argc, object self_731069, object r_73631) { + return_closcall8(data, __glo_parse_scheme_read, ((closureN)self_731069)->elements[2], ((closureN)self_731069)->elements[1], r_73631, cell_get(((closureN)self_731069)->elements[3]), ((closureN)self_731069)->elements[0], boolean_f, ((closureN)self_731069)->elements[4], ((closureN)self_731069)->elements[5]);; +} + +static void __lambda_152(void *data, int argc, object self_731070, object r_73625) { + +closureN_type c_732076; +c_732076.hdr.mark = gc_color_red; + c_732076.hdr.grayed = 0; +c_732076.tag = closureN_tag; + c_732076.fn = (function_type)__lambda_151; +c_732076.num_args = 1; +c_732076.num_elements = 2; +c_732076.elements = (object *)alloca(sizeof(object) * 2); +c_732076.elements[0] = ((closureN)self_731070)->elements[0]; +c_732076.elements[1] = ((closureN)self_731070)->elements[2]; + +return_closcall2(data, __glo__91_125tok_scheme_read, &c_732076, ((closureN)self_731070)->elements[1]);; +} + +static void __lambda_151(void *data, int argc, object self_731071, object r_73627) { + +closureN_type c_732078; +c_732078.hdr.mark = gc_color_red; + c_732078.hdr.grayed = 0; +c_732078.tag = closureN_tag; + c_732078.fn = (function_type)__lambda_150; +c_732078.num_args = 1; +c_732078.num_elements = 1; +c_732078.elements = (object *)alloca(sizeof(object) * 1); +c_732078.elements[0] = ((closureN)self_731071)->elements[0]; + +return_closcall3(data, __glo_add_91tok_scheme_read, &c_732078, r_73627, ((closureN)self_731071)->elements[1]);; +} + +static void __lambda_150(void *data, int argc, object self_731072, object r_73626) { + return_closcall1(data, ((closureN)self_731072)->elements[0], car(r_73626));; +} + +static void __lambda_149(void *data, int argc, object self_731073, object k_73634) { + if( (boolean_f != ((closureN)self_731073)->elements[0]) ){ + return_closcall1(data, k_73634, boolean_f); +} else { + return_closcall2(data, __glo_not_scheme_base, k_73634, Cyc_is_null(((closureN)self_731073)->elements[1]));} +; +} + +static void __lambda_148(void *data, int argc, object self_731074, object r_73613) { + if( (boolean_f != r_73613) ){ + +closureN_type c_732026; +c_732026.hdr.mark = gc_color_red; + c_732026.hdr.grayed = 0; +c_732026.tag = closureN_tag; + c_732026.fn = (function_type)__lambda_143; +c_732026.num_args = 1; +c_732026.num_elements = 3; +c_732026.elements = (object *)alloca(sizeof(object) * 3); +c_732026.elements[0] = ((closureN)self_731074)->elements[1]; +c_732026.elements[1] = ((closureN)self_731074)->elements[4]; +c_732026.elements[2] = ((closureN)self_731074)->elements[5]; + +return_closcall3(data, __glo_in_91port_117set_91buf_67_scheme_read, &c_732026, ((closureN)self_731074)->elements[3], ((closureN)self_731074)->elements[0]); +} else { + +closureN_type c_732040; +c_732040.hdr.mark = gc_color_red; + c_732040.hdr.grayed = 0; +c_732040.tag = closureN_tag; + c_732040.fn = (function_type)__lambda_147; +c_732040.num_args = 1; +c_732040.num_elements = 4; +c_732040.elements = (object *)alloca(sizeof(object) * 4); +c_732040.elements[0] = ((closureN)self_731074)->elements[1]; +c_732040.elements[1] = ((closureN)self_731074)->elements[3]; +c_732040.elements[2] = ((closureN)self_731074)->elements[4]; +c_732040.elements[3] = ((closureN)self_731074)->elements[5]; + + +object c_732059 = Cyc_num_eq(data,(closure)&c_732040,2,((closureN)self_731074)->elements[2], obj_int2obj(0)); +return_closcall1(data,(closure)&c_732040, c_732059);} +; +} + +static void __lambda_147(void *data, int argc, object self_731075, object r_73617) { + if( (boolean_f != r_73617) ){ + +closureN_type c_732042; +c_732042.hdr.mark = gc_color_red; + c_732042.hdr.grayed = 0; +c_732042.tag = closureN_tag; + c_732042.fn = (function_type)__lambda_145; +c_732042.num_args = 1; +c_732042.num_elements = 2; +c_732042.elements = (object *)alloca(sizeof(object) * 2); +c_732042.elements[0] = ((closureN)self_731075)->elements[0]; +c_732042.elements[1] = ((closureN)self_731075)->elements[1]; + +return_closcall2(data, __glo_in_91port_117get_91lnum_scheme_read, &c_732042, ((closureN)self_731075)->elements[1]); +} else { + +closureN_type c_732052; +c_732052.hdr.mark = gc_color_red; + c_732052.hdr.grayed = 0; +c_732052.tag = closureN_tag; + c_732052.fn = (function_type)__lambda_146; +c_732052.num_args = 1; +c_732052.num_elements = 1; +c_732052.elements = (object *)alloca(sizeof(object) * 1); +c_732052.elements[0] = ((closureN)self_731075)->elements[0]; + +return_closcall3(data, __glo_get_91toks_scheme_read, &c_732052, ((closureN)self_731075)->elements[2], ((closureN)self_731075)->elements[3]);} +; +} + +static void __lambda_146(void *data, int argc, object self_731076, object r_73620) { + return_closcall2(data, __glo_reverse_scheme_base, ((closureN)self_731076)->elements[0], r_73620);; +} + +static void __lambda_145(void *data, int argc, object self_731077, object r_73618) { + +closureN_type c_732044; +c_732044.hdr.mark = gc_color_red; + c_732044.hdr.grayed = 0; +c_732044.tag = closureN_tag; + c_732044.fn = (function_type)__lambda_144; +c_732044.num_args = 1; +c_732044.num_elements = 2; +c_732044.elements = (object *)alloca(sizeof(object) * 2); +c_732044.elements[0] = ((closureN)self_731077)->elements[0]; +c_732044.elements[1] = r_73618; + +return_closcall2(data, __glo_in_91port_117get_91cnum_scheme_read, &c_732044, ((closureN)self_731077)->elements[1]);; +} + +static void __lambda_144(void *data, int argc, object self_731078, object r_73619) { + +make_string(c_732047, "unexpected closing parenthesis"); +return_closcall4(data, __glo_parse_91error_scheme_read, ((closureN)self_731078)->elements[0], &c_732047, ((closureN)self_731078)->elements[1], r_73619);; +} + +static void __lambda_143(void *data, int argc, object self_731079, object r_73614) { + +closureN_type c_732028; +c_732028.hdr.mark = gc_color_red; + c_732028.hdr.grayed = 0; +c_732028.tag = closureN_tag; + c_732028.fn = (function_type)__lambda_142; +c_732028.num_args = 1; +c_732028.num_elements = 2; +c_732028.elements = (object *)alloca(sizeof(object) * 2); +c_732028.elements[0] = ((closureN)self_731079)->elements[0]; +c_732028.elements[1] = ((closureN)self_731079)->elements[2]; + +return_closcall2(data, __glo__91_125tok_scheme_read, &c_732028, ((closureN)self_731079)->elements[1]);; +} + +static void __lambda_142(void *data, int argc, object self_731080, object r_73616) { + +closureN_type c_732030; +c_732030.hdr.mark = gc_color_red; + c_732030.hdr.grayed = 0; +c_732030.tag = closureN_tag; + c_732030.fn = (function_type)__lambda_141; +c_732030.num_args = 1; +c_732030.num_elements = 1; +c_732030.elements = (object *)alloca(sizeof(object) * 1); +c_732030.elements[0] = ((closureN)self_731080)->elements[0]; + +return_closcall3(data, __glo_add_91tok_scheme_read, &c_732030, r_73616, ((closureN)self_731080)->elements[1]);; +} + +static void __lambda_141(void *data, int argc, object self_731081, object r_73615) { + return_closcall1(data, ((closureN)self_731081)->elements[0], car(r_73615));; +} + +static void __lambda_140(void *data, int argc, object self_731082, object k_73621) { + if( (boolean_f != ((closureN)self_731082)->elements[0]) ){ + return_closcall1(data, k_73621, boolean_f); +} else { + return_closcall2(data, __glo_not_scheme_base, k_73621, Cyc_is_null(((closureN)self_731082)->elements[1]));} +; +} + +static void __lambda_139(void *data, int argc, object self_731083, object r_73593) { + if( (boolean_f != r_73593) ){ + +closureN_type c_731925; +c_731925.hdr.mark = gc_color_red; + c_731925.hdr.grayed = 0; +c_731925.tag = closureN_tag; + c_731925.fn = (function_type)__lambda_123; +c_731925.num_args = 1; +c_731925.num_elements = 3; +c_731925.elements = (object *)alloca(sizeof(object) * 3); +c_731925.elements[0] = ((closureN)self_731083)->elements[3]; +c_731925.elements[1] = ((closureN)self_731083)->elements[6]; +c_731925.elements[2] = ((closureN)self_731083)->elements[7]; + +return_closcall3(data, __glo_in_91port_117set_91buf_67_scheme_read, &c_731925, ((closureN)self_731083)->elements[5], ((closureN)self_731083)->elements[1]); +} else { + +closureN_type c_731939; +c_731939.hdr.mark = gc_color_red; + c_731939.hdr.grayed = 0; +c_731939.tag = closureN_tag; + c_731939.fn = (function_type)__lambda_138; +c_731939.num_args = 1; +c_731939.num_elements = 7; +c_731939.elements = (object *)alloca(sizeof(object) * 7); +c_731939.elements[0] = ((closureN)self_731083)->elements[0]; +c_731939.elements[1] = ((closureN)self_731083)->elements[2]; +c_731939.elements[2] = ((closureN)self_731083)->elements[3]; +c_731939.elements[3] = ((closureN)self_731083)->elements[4]; +c_731939.elements[4] = ((closureN)self_731083)->elements[5]; +c_731939.elements[5] = ((closureN)self_731083)->elements[6]; +c_731939.elements[6] = ((closureN)self_731083)->elements[7]; + +return_closcall1(data,(closure)&c_731939, NULL);} +; +} + +static void __lambda_138(void *data, int argc, object self_731084, object r_73607) { + +closureN_type c_731941; +c_731941.hdr.mark = gc_color_red; + c_731941.hdr.grayed = 0; +c_731941.tag = closureN_tag; + c_731941.fn = (function_type)__lambda_137; +c_731941.num_args = 1; +c_731941.num_elements = 8; +c_731941.elements = (object *)alloca(sizeof(object) * 8); +c_731941.elements[0] = ((closureN)self_731084)->elements[0]; +c_731941.elements[1] = ((closureN)self_731084)->elements[1]; +c_731941.elements[2] = ((closureN)self_731084)->elements[2]; +c_731941.elements[3] = ((closureN)self_731084)->elements[3]; +c_731941.elements[4] = ((closureN)self_731084)->elements[4]; +c_731941.elements[5] = r_73607; +c_731941.elements[6] = ((closureN)self_731084)->elements[5]; +c_731941.elements[7] = ((closureN)self_731084)->elements[6]; + +return_closcall1(data,(closure)&c_731941, NULL);; +} + +static void __lambda_137(void *data, int argc, object self_731085, object r_73608) { + +closureN_type c_731943; +c_731943.hdr.mark = gc_color_red; + c_731943.hdr.grayed = 0; +c_731943.tag = closureN_tag; + c_731943.fn = (function_type)__lambda_136; +c_731943.num_args = 1; +c_731943.num_elements = 9; +c_731943.elements = (object *)alloca(sizeof(object) * 9); +c_731943.elements[0] = ((closureN)self_731085)->elements[0]; +c_731943.elements[1] = ((closureN)self_731085)->elements[1]; +c_731943.elements[2] = ((closureN)self_731085)->elements[2]; +c_731943.elements[3] = ((closureN)self_731085)->elements[3]; +c_731943.elements[4] = ((closureN)self_731085)->elements[4]; +c_731943.elements[5] = ((closureN)self_731085)->elements[5]; +c_731943.elements[6] = r_73608; +c_731943.elements[7] = ((closureN)self_731085)->elements[6]; +c_731943.elements[8] = ((closureN)self_731085)->elements[7]; + + +object c_732011 = Cyc_sum(data,(closure)&c_731943,2,((closureN)self_731085)->elements[3], obj_int2obj(1)); +return_closcall1(data,(closure)&c_731943, c_732011);; +} + +static void __lambda_136(void *data, int argc, object self_731086, object r_73609) { + +closureN_type c_731945; +c_731945.hdr.mark = gc_color_red; + c_731945.hdr.grayed = 0; +c_731945.tag = closureN_tag; + c_731945.fn = (function_type)__lambda_135; +c_731945.num_args = 1; +c_731945.num_elements = 7; +c_731945.elements = (object *)alloca(sizeof(object) * 7); +c_731945.elements[0] = ((closureN)self_731086)->elements[0]; +c_731945.elements[1] = ((closureN)self_731086)->elements[1]; +c_731945.elements[2] = ((closureN)self_731086)->elements[2]; +c_731945.elements[3] = ((closureN)self_731086)->elements[3]; +c_731945.elements[4] = ((closureN)self_731086)->elements[4]; +c_731945.elements[5] = ((closureN)self_731086)->elements[7]; +c_731945.elements[6] = ((closureN)self_731086)->elements[8]; + +return_closcall8(data, __glo_parse_scheme_read, &c_731945, ((closureN)self_731086)->elements[1], ((closureN)self_731086)->elements[5], ((closureN)self_731086)->elements[6], boolean_t, boolean_f, r_73609, ((closureN)self_731086)->elements[4]);; +} + +static void __lambda_135(void *data, int argc, object self_731087, object r_73597) { + +closureN_type c_731947; +c_731947.hdr.mark = gc_color_red; + c_731947.hdr.grayed = 0; +c_731947.tag = closureN_tag; + c_731947.fn = (function_type)__lambda_134; +c_731947.num_args = 1; +c_731947.num_elements = 6; +c_731947.elements = (object *)alloca(sizeof(object) * 6); +c_731947.elements[0] = ((closureN)self_731087)->elements[0]; +c_731947.elements[1] = ((closureN)self_731087)->elements[1]; +c_731947.elements[2] = ((closureN)self_731087)->elements[2]; +c_731947.elements[3] = ((closureN)self_731087)->elements[3]; +c_731947.elements[4] = ((closureN)self_731087)->elements[4]; +c_731947.elements[5] = r_73597; + +return_closcall3(data, __glo_get_91toks_scheme_read, &c_731947, ((closureN)self_731087)->elements[5], ((closureN)self_731087)->elements[6]);; +} + +static void __lambda_134(void *data, int argc, object self_731088, object r_73598) { + +closureN_type c_731949; +c_731949.hdr.mark = gc_color_red; + c_731949.hdr.grayed = 0; +c_731949.tag = closureN_tag; + c_731949.fn = (function_type)__lambda_133; +c_731949.num_args = 2; +c_731949.num_elements = 5; +c_731949.elements = (object *)alloca(sizeof(object) * 5); +c_731949.elements[0] = ((closureN)self_731088)->elements[0]; +c_731949.elements[1] = ((closureN)self_731088)->elements[1]; +c_731949.elements[2] = ((closureN)self_731088)->elements[2]; +c_731949.elements[3] = ((closureN)self_731088)->elements[3]; +c_731949.elements[4] = ((closureN)self_731088)->elements[4]; + +return_closcall2(data,(closure)&c_731949, ((closureN)self_731088)->elements[5], r_73598);; +} + +static void __lambda_133(void *data, int argc, object self_731089, object sub_73223, object toks_85_73222) { + +closureN_type c_731951; +c_731951.hdr.mark = gc_color_red; + c_731951.hdr.grayed = 0; +c_731951.tag = closureN_tag; + c_731951.fn = (function_type)__lambda_132; +c_731951.num_args = 1; +c_731951.num_elements = 7; +c_731951.elements = (object *)alloca(sizeof(object) * 7); +c_731951.elements[0] = ((closureN)self_731089)->elements[0]; +c_731951.elements[1] = ((closureN)self_731089)->elements[1]; +c_731951.elements[2] = ((closureN)self_731089)->elements[2]; +c_731951.elements[3] = ((closureN)self_731089)->elements[3]; +c_731951.elements[4] = ((closureN)self_731089)->elements[4]; +c_731951.elements[5] = sub_73223; +c_731951.elements[6] = toks_85_73222; + +return_closcall1(data,(closure)&c_731951, boolean_f);; +} + +static void __lambda_132(void *data, int argc, object self_731090, object new_91toks_73224) { + +closureN_type c_731953; +c_731953.hdr.mark = gc_color_red; + c_731953.hdr.grayed = 0; +c_731953.tag = closureN_tag; + c_731953.fn = (function_type)__lambda_131; +c_731953.num_args = 1; +c_731953.num_elements = 7; +c_731953.elements = (object *)alloca(sizeof(object) * 7); +c_731953.elements[0] = ((closureN)self_731090)->elements[0]; +c_731953.elements[1] = ((closureN)self_731090)->elements[1]; +c_731953.elements[2] = ((closureN)self_731090)->elements[2]; +c_731953.elements[3] = ((closureN)self_731090)->elements[3]; +c_731953.elements[4] = ((closureN)self_731090)->elements[4]; +c_731953.elements[5] = ((closureN)self_731090)->elements[5]; +c_731953.elements[6] = ((closureN)self_731090)->elements[6]; + + +make_cell(c_732001,new_91toks_73224); +return_closcall1(data,(closure)&c_731953, &c_732001);; +} + +static void __lambda_131(void *data, int argc, object self_731091, object new_91toks_73224) { + +closureN_type c_731955; +c_731955.hdr.mark = gc_color_red; + c_731955.hdr.grayed = 0; +c_731955.tag = closureN_tag; + c_731955.fn = (function_type)__lambda_126; +c_731955.num_args = 0; +c_731955.num_elements = 1; +c_731955.elements = (object *)alloca(sizeof(object) * 1); +c_731955.elements[0] = ((closureN)self_731091)->elements[5]; + + +closureN_type c_731971; +c_731971.hdr.mark = gc_color_red; + c_731971.hdr.grayed = 0; +c_731971.tag = closureN_tag; + c_731971.fn = (function_type)__lambda_130; +c_731971.num_args = 1; +c_731971.num_elements = 7; +c_731971.elements = (object *)alloca(sizeof(object) * 7); +c_731971.elements[0] = ((closureN)self_731091)->elements[0]; +c_731971.elements[1] = ((closureN)self_731091)->elements[1]; +c_731971.elements[2] = ((closureN)self_731091)->elements[2]; +c_731971.elements[3] = new_91toks_73224; +c_731971.elements[4] = ((closureN)self_731091)->elements[3]; +c_731971.elements[5] = ((closureN)self_731091)->elements[4]; +c_731971.elements[6] = ((closureN)self_731091)->elements[6]; + +return_closcall1(data,(closure)&c_731955, &c_731971);; +} + +static void __lambda_130(void *data, int argc, object self_731092, object r_73602) { + +closureN_type c_731973; +c_731973.hdr.mark = gc_color_red; + c_731973.hdr.grayed = 0; +c_731973.tag = closureN_tag; + c_731973.fn = (function_type)__lambda_129; +c_731973.num_args = 1; +c_731973.num_elements = 6; +c_731973.elements = (object *)alloca(sizeof(object) * 6); +c_731973.elements[0] = ((closureN)self_731092)->elements[0]; +c_731973.elements[1] = ((closureN)self_731092)->elements[1]; +c_731973.elements[2] = ((closureN)self_731092)->elements[2]; +c_731973.elements[3] = ((closureN)self_731092)->elements[3]; +c_731973.elements[4] = ((closureN)self_731092)->elements[4]; +c_731973.elements[5] = ((closureN)self_731092)->elements[5]; + +return_closcall3(data, __glo_add_91tok_scheme_read, &c_731973, r_73602, ((closureN)self_731092)->elements[6]);; +} + +static void __lambda_129(void *data, int argc, object self_731093, object r_73601) { + +closureN_type c_731975; +c_731975.hdr.mark = gc_color_red; + c_731975.hdr.grayed = 0; +c_731975.tag = closureN_tag; + c_731975.fn = (function_type)__lambda_128; +c_731975.num_args = 1; +c_731975.num_elements = 6; +c_731975.elements = (object *)alloca(sizeof(object) * 6); +c_731975.elements[0] = ((closureN)self_731093)->elements[0]; +c_731975.elements[1] = ((closureN)self_731093)->elements[1]; +c_731975.elements[2] = ((closureN)self_731093)->elements[2]; +c_731975.elements[3] = ((closureN)self_731093)->elements[3]; +c_731975.elements[4] = ((closureN)self_731093)->elements[4]; +c_731975.elements[5] = ((closureN)self_731093)->elements[5]; + +return_closcall1(data,(closure)&c_731975, Cyc_set_car(data, ((closureN)self_731093)->elements[3], r_73601));; +} + +static void __lambda_128(void *data, int argc, object self_731094, object r_73599) { + if( (boolean_f != ((closureN)self_731094)->elements[0]) ){ + +closureN_type c_731978; +c_731978.hdr.mark = gc_color_red; + c_731978.hdr.grayed = 0; +c_731978.tag = closureN_tag; + c_731978.fn = (function_type)__lambda_127; +c_731978.num_args = 1; +c_731978.num_elements = 6; +c_731978.elements = (object *)alloca(sizeof(object) * 6); +c_731978.elements[0] = ((closureN)self_731094)->elements[0]; +c_731978.elements[1] = ((closureN)self_731094)->elements[1]; +c_731978.elements[2] = ((closureN)self_731094)->elements[2]; +c_731978.elements[3] = ((closureN)self_731094)->elements[3]; +c_731978.elements[4] = ((closureN)self_731094)->elements[4]; +c_731978.elements[5] = ((closureN)self_731094)->elements[5]; + +return_closcall1(data,(closure)&c_731978, NULL); +} else { + return_closcall1(data, ((closureN)self_731094)->elements[2], car(cell_get(((closureN)self_731094)->elements[3])));} +; +} + +static void __lambda_127(void *data, int argc, object self_731095, object r_73600) { + return_closcall8(data, __glo_parse_scheme_read, ((closureN)self_731095)->elements[2], ((closureN)self_731095)->elements[1], r_73600, cell_get(((closureN)self_731095)->elements[3]), ((closureN)self_731095)->elements[0], boolean_f, ((closureN)self_731095)->elements[4], ((closureN)self_731095)->elements[5]);; +} + +static void __lambda_126(void *data, int argc, object self_731096, object k_73603) { + +closureN_type c_731957; +c_731957.hdr.mark = gc_color_red; + c_731957.hdr.grayed = 0; +c_731957.tag = closureN_tag; + c_731957.fn = (function_type)__lambda_124; +c_731957.num_args = 0; +c_731957.num_elements = 1; +c_731957.elements = (object *)alloca(sizeof(object) * 1); +c_731957.elements[0] = ((closureN)self_731096)->elements[0]; + + +closureN_type c_731964; +c_731964.hdr.mark = gc_color_red; + c_731964.hdr.grayed = 0; +c_731964.tag = closureN_tag; + c_731964.fn = (function_type)__lambda_125; +c_731964.num_args = 1; +c_731964.num_elements = 2; +c_731964.elements = (object *)alloca(sizeof(object) * 2); +c_731964.elements[0] = k_73603; +c_731964.elements[1] = ((closureN)self_731096)->elements[0]; + +return_closcall1(data,(closure)&c_731957, &c_731964);; +} + +static void __lambda_125(void *data, int argc, object self_731097, object r_73604) { + if( (boolean_f != r_73604) ){ + return_closcall2(data, __glo__91_125dotted_91list_scheme_read, ((closureN)self_731097)->elements[0], ((closureN)self_731097)->elements[1]); +} else { + return_closcall1(data, ((closureN)self_731097)->elements[0], ((closureN)self_731097)->elements[1]);} +; +} + +static void __lambda_124(void *data, int argc, object self_731098, object k_73605) { + if( (boolean_f != Cyc_is_pair(((closureN)self_731098)->elements[0])) ){ + return_closcall2(data, __glo_dotted_127_scheme_read, k_73605, ((closureN)self_731098)->elements[0]); +} else { + return_closcall1(data, k_73605, boolean_f);} +; +} + +static void __lambda_123(void *data, int argc, object self_731099, object r_73594) { + +closureN_type c_731927; +c_731927.hdr.mark = gc_color_red; + c_731927.hdr.grayed = 0; +c_731927.tag = closureN_tag; + c_731927.fn = (function_type)__lambda_122; +c_731927.num_args = 1; +c_731927.num_elements = 2; +c_731927.elements = (object *)alloca(sizeof(object) * 2); +c_731927.elements[0] = ((closureN)self_731099)->elements[0]; +c_731927.elements[1] = ((closureN)self_731099)->elements[2]; + +return_closcall2(data, __glo__91_125tok_scheme_read, &c_731927, ((closureN)self_731099)->elements[1]);; +} + +static void __lambda_122(void *data, int argc, object self_731100, object r_73596) { + +closureN_type c_731929; +c_731929.hdr.mark = gc_color_red; + c_731929.hdr.grayed = 0; +c_731929.tag = closureN_tag; + c_731929.fn = (function_type)__lambda_121; +c_731929.num_args = 1; +c_731929.num_elements = 1; +c_731929.elements = (object *)alloca(sizeof(object) * 1); +c_731929.elements[0] = ((closureN)self_731100)->elements[0]; + +return_closcall3(data, __glo_add_91tok_scheme_read, &c_731929, r_73596, ((closureN)self_731100)->elements[1]);; +} + +static void __lambda_121(void *data, int argc, object self_731101, object r_73595) { + return_closcall1(data, ((closureN)self_731101)->elements[0], car(r_73595));; +} + +static void __lambda_120(void *data, int argc, object self_731102, object k_73610) { + if( (boolean_f != ((closureN)self_731102)->elements[0]) ){ + return_closcall1(data, k_73610, boolean_f); +} else { + return_closcall2(data, __glo_not_scheme_base, k_73610, Cyc_is_null(((closureN)self_731102)->elements[1]));} +; +} + +static void __lambda_119(void *data, int argc, object self_731103, object r_73563) { + if( (boolean_f != r_73563) ){ + +closureN_type c_731756; +c_731756.hdr.mark = gc_color_red; + c_731756.hdr.grayed = 0; +c_731756.tag = closureN_tag; + c_731756.fn = (function_type)__lambda_93; +c_731756.num_args = 1; +c_731756.num_elements = 3; +c_731756.elements = (object *)alloca(sizeof(object) * 3); +c_731756.elements[0] = ((closureN)self_731103)->elements[3]; +c_731756.elements[1] = ((closureN)self_731103)->elements[6]; +c_731756.elements[2] = ((closureN)self_731103)->elements[7]; + +return_closcall3(data, __glo_in_91port_117set_91buf_67_scheme_read, &c_731756, ((closureN)self_731103)->elements[5], ((closureN)self_731103)->elements[1]); +} else { + +closureN_type c_731770; +c_731770.hdr.mark = gc_color_red; + c_731770.hdr.grayed = 0; +c_731770.tag = closureN_tag; + c_731770.fn = (function_type)__lambda_118; +c_731770.num_args = 4; +c_731770.num_elements = 7; +c_731770.elements = (object *)alloca(sizeof(object) * 7); +c_731770.elements[0] = ((closureN)self_731103)->elements[0]; +c_731770.elements[1] = ((closureN)self_731103)->elements[2]; +c_731770.elements[2] = ((closureN)self_731103)->elements[3]; +c_731770.elements[3] = ((closureN)self_731103)->elements[4]; +c_731770.elements[4] = ((closureN)self_731103)->elements[5]; +c_731770.elements[5] = ((closureN)self_731103)->elements[6]; +c_731770.elements[6] = ((closureN)self_731103)->elements[7]; + +return_closcall4(data,(closure)&c_731770, boolean_f, boolean_f, boolean_f, boolean_f);} +; +} + +static void __lambda_118(void *data, int argc, object self_731104, object sub_73228, object next_91c_73227, object unquote_91sym_73226, object new_91toks_73225) { + +closureN_type c_731772; +c_731772.hdr.mark = gc_color_red; + c_731772.hdr.grayed = 0; +c_731772.tag = closureN_tag; + c_731772.fn = (function_type)__lambda_117; +c_731772.num_args = 1; +c_731772.num_elements = 10; +c_731772.elements = (object *)alloca(sizeof(object) * 10); +c_731772.elements[0] = ((closureN)self_731104)->elements[0]; +c_731772.elements[1] = ((closureN)self_731104)->elements[1]; +c_731772.elements[2] = ((closureN)self_731104)->elements[2]; +c_731772.elements[3] = new_91toks_73225; +c_731772.elements[4] = next_91c_73227; +c_731772.elements[5] = ((closureN)self_731104)->elements[3]; +c_731772.elements[6] = ((closureN)self_731104)->elements[4]; +c_731772.elements[7] = ((closureN)self_731104)->elements[5]; +c_731772.elements[8] = ((closureN)self_731104)->elements[6]; +c_731772.elements[9] = unquote_91sym_73226; + + +make_cell(c_731911,sub_73228); +return_closcall1(data,(closure)&c_731772, &c_731911);; +} + +static void __lambda_117(void *data, int argc, object self_731105, object sub_73228) { + +closureN_type c_731774; +c_731774.hdr.mark = gc_color_red; + c_731774.hdr.grayed = 0; +c_731774.tag = closureN_tag; + c_731774.fn = (function_type)__lambda_116; +c_731774.num_args = 1; +c_731774.num_elements = 10; +c_731774.elements = (object *)alloca(sizeof(object) * 10); +c_731774.elements[0] = ((closureN)self_731105)->elements[0]; +c_731774.elements[1] = ((closureN)self_731105)->elements[1]; +c_731774.elements[2] = ((closureN)self_731105)->elements[2]; +c_731774.elements[3] = ((closureN)self_731105)->elements[3]; +c_731774.elements[4] = ((closureN)self_731105)->elements[5]; +c_731774.elements[5] = ((closureN)self_731105)->elements[6]; +c_731774.elements[6] = sub_73228; +c_731774.elements[7] = ((closureN)self_731105)->elements[7]; +c_731774.elements[8] = ((closureN)self_731105)->elements[8]; +c_731774.elements[9] = ((closureN)self_731105)->elements[9]; + + +make_cell(c_731907,((closureN)self_731105)->elements[4]); +return_closcall1(data,(closure)&c_731774, &c_731907);; +} + +static void __lambda_116(void *data, int argc, object self_731106, object next_91c_73227) { + +closureN_type c_731776; +c_731776.hdr.mark = gc_color_red; + c_731776.hdr.grayed = 0; +c_731776.tag = closureN_tag; + c_731776.fn = (function_type)__lambda_115; +c_731776.num_args = 1; +c_731776.num_elements = 10; +c_731776.elements = (object *)alloca(sizeof(object) * 10); +c_731776.elements[0] = ((closureN)self_731106)->elements[0]; +c_731776.elements[1] = ((closureN)self_731106)->elements[1]; +c_731776.elements[2] = ((closureN)self_731106)->elements[2]; +c_731776.elements[3] = ((closureN)self_731106)->elements[3]; +c_731776.elements[4] = next_91c_73227; +c_731776.elements[5] = ((closureN)self_731106)->elements[4]; +c_731776.elements[6] = ((closureN)self_731106)->elements[5]; +c_731776.elements[7] = ((closureN)self_731106)->elements[6]; +c_731776.elements[8] = ((closureN)self_731106)->elements[7]; +c_731776.elements[9] = ((closureN)self_731106)->elements[8]; + + +make_cell(c_731903,((closureN)self_731106)->elements[9]); +return_closcall1(data,(closure)&c_731776, &c_731903);; +} + +static void __lambda_115(void *data, int argc, object self_731107, object unquote_91sym_73226) { + +closureN_type c_731778; +c_731778.hdr.mark = gc_color_red; + c_731778.hdr.grayed = 0; +c_731778.tag = closureN_tag; + c_731778.fn = (function_type)__lambda_114; +c_731778.num_args = 1; +c_731778.num_elements = 10; +c_731778.elements = (object *)alloca(sizeof(object) * 10); +c_731778.elements[0] = ((closureN)self_731107)->elements[0]; +c_731778.elements[1] = ((closureN)self_731107)->elements[1]; +c_731778.elements[2] = ((closureN)self_731107)->elements[2]; +c_731778.elements[3] = ((closureN)self_731107)->elements[4]; +c_731778.elements[4] = ((closureN)self_731107)->elements[5]; +c_731778.elements[5] = ((closureN)self_731107)->elements[6]; +c_731778.elements[6] = ((closureN)self_731107)->elements[7]; +c_731778.elements[7] = ((closureN)self_731107)->elements[8]; +c_731778.elements[8] = ((closureN)self_731107)->elements[9]; +c_731778.elements[9] = unquote_91sym_73226; + + +make_cell(c_731899,((closureN)self_731107)->elements[3]); +return_closcall1(data,(closure)&c_731778, &c_731899);; +} + +static void __lambda_114(void *data, int argc, object self_731108, object new_91toks_73225) { + +closureN_type c_731780; +c_731780.hdr.mark = gc_color_red; + c_731780.hdr.grayed = 0; +c_731780.tag = closureN_tag; + c_731780.fn = (function_type)__lambda_113; +c_731780.num_args = 1; +c_731780.num_elements = 11; +c_731780.elements = (object *)alloca(sizeof(object) * 11); +c_731780.elements[0] = ((closureN)self_731108)->elements[0]; +c_731780.elements[1] = ((closureN)self_731108)->elements[1]; +c_731780.elements[2] = ((closureN)self_731108)->elements[2]; +c_731780.elements[3] = new_91toks_73225; +c_731780.elements[4] = ((closureN)self_731108)->elements[3]; +c_731780.elements[5] = ((closureN)self_731108)->elements[4]; +c_731780.elements[6] = ((closureN)self_731108)->elements[5]; +c_731780.elements[7] = ((closureN)self_731108)->elements[6]; +c_731780.elements[8] = ((closureN)self_731108)->elements[7]; +c_731780.elements[9] = ((closureN)self_731108)->elements[8]; +c_731780.elements[10] = ((closureN)self_731108)->elements[9]; + +return_closcall1(data,(closure)&c_731780, Cyc_set_car(data, ((closureN)self_731108)->elements[6], boolean_f));; +} + +static void __lambda_113(void *data, int argc, object self_731109, object r_73567) { + +closureN_type c_731782; +c_731782.hdr.mark = gc_color_red; + c_731782.hdr.grayed = 0; +c_731782.tag = closureN_tag; + c_731782.fn = (function_type)__lambda_112; +c_731782.num_args = 1; +c_731782.num_elements = 11; +c_731782.elements = (object *)alloca(sizeof(object) * 11); +c_731782.elements[0] = ((closureN)self_731109)->elements[0]; +c_731782.elements[1] = ((closureN)self_731109)->elements[1]; +c_731782.elements[2] = ((closureN)self_731109)->elements[2]; +c_731782.elements[3] = ((closureN)self_731109)->elements[3]; +c_731782.elements[4] = ((closureN)self_731109)->elements[4]; +c_731782.elements[5] = ((closureN)self_731109)->elements[5]; +c_731782.elements[6] = ((closureN)self_731109)->elements[6]; +c_731782.elements[7] = ((closureN)self_731109)->elements[7]; +c_731782.elements[8] = ((closureN)self_731109)->elements[8]; +c_731782.elements[9] = ((closureN)self_731109)->elements[9]; +c_731782.elements[10] = ((closureN)self_731109)->elements[10]; + + +object c_731892 = Cyc_io_read_char(data,(closure)&c_731782,((closureN)self_731109)->elements[1]); +return_closcall1(data,(closure)&c_731782, c_731892);; +} + +static void __lambda_112(void *data, int argc, object self_731110, object r_73589) { + +closureN_type c_731784; +c_731784.hdr.mark = gc_color_red; + c_731784.hdr.grayed = 0; +c_731784.tag = closureN_tag; + c_731784.fn = (function_type)__lambda_111; +c_731784.num_args = 1; +c_731784.num_elements = 11; +c_731784.elements = (object *)alloca(sizeof(object) * 11); +c_731784.elements[0] = ((closureN)self_731110)->elements[0]; +c_731784.elements[1] = ((closureN)self_731110)->elements[1]; +c_731784.elements[2] = ((closureN)self_731110)->elements[2]; +c_731784.elements[3] = ((closureN)self_731110)->elements[3]; +c_731784.elements[4] = ((closureN)self_731110)->elements[4]; +c_731784.elements[5] = ((closureN)self_731110)->elements[5]; +c_731784.elements[6] = ((closureN)self_731110)->elements[6]; +c_731784.elements[7] = ((closureN)self_731110)->elements[7]; +c_731784.elements[8] = ((closureN)self_731110)->elements[8]; +c_731784.elements[9] = ((closureN)self_731110)->elements[9]; +c_731784.elements[10] = ((closureN)self_731110)->elements[10]; + +return_closcall1(data,(closure)&c_731784, Cyc_set_car(data, ((closureN)self_731110)->elements[4], r_73589));; +} + +static void __lambda_111(void *data, int argc, object self_731111, object r_73568) { + +closureN_type c_731786; +c_731786.hdr.mark = gc_color_red; + c_731786.hdr.grayed = 0; +c_731786.tag = closureN_tag; + c_731786.fn = (function_type)__lambda_94; +c_731786.num_args = 0; +c_731786.num_elements = 1; +c_731786.elements = (object *)alloca(sizeof(object) * 1); +c_731786.elements[0] = ((closureN)self_731111)->elements[4]; + + +closureN_type c_731794; +c_731794.hdr.mark = gc_color_red; + c_731794.hdr.grayed = 0; +c_731794.tag = closureN_tag; + c_731794.fn = (function_type)__lambda_110; +c_731794.num_args = 1; +c_731794.num_elements = 11; +c_731794.elements = (object *)alloca(sizeof(object) * 11); +c_731794.elements[0] = ((closureN)self_731111)->elements[0]; +c_731794.elements[1] = ((closureN)self_731111)->elements[1]; +c_731794.elements[2] = ((closureN)self_731111)->elements[2]; +c_731794.elements[3] = ((closureN)self_731111)->elements[3]; +c_731794.elements[4] = ((closureN)self_731111)->elements[4]; +c_731794.elements[5] = ((closureN)self_731111)->elements[5]; +c_731794.elements[6] = ((closureN)self_731111)->elements[6]; +c_731794.elements[7] = ((closureN)self_731111)->elements[7]; +c_731794.elements[8] = ((closureN)self_731111)->elements[8]; +c_731794.elements[9] = ((closureN)self_731111)->elements[9]; +c_731794.elements[10] = ((closureN)self_731111)->elements[10]; + +return_closcall1(data,(closure)&c_731786, &c_731794);; +} + +static void __lambda_110(void *data, int argc, object self_731112, object r_73586) { + +closureN_type c_731796; +c_731796.hdr.mark = gc_color_red; + c_731796.hdr.grayed = 0; +c_731796.tag = closureN_tag; + c_731796.fn = (function_type)__lambda_109; +c_731796.num_args = 1; +c_731796.num_elements = 11; +c_731796.elements = (object *)alloca(sizeof(object) * 11); +c_731796.elements[0] = ((closureN)self_731112)->elements[0]; +c_731796.elements[1] = ((closureN)self_731112)->elements[1]; +c_731796.elements[2] = ((closureN)self_731112)->elements[2]; +c_731796.elements[3] = ((closureN)self_731112)->elements[3]; +c_731796.elements[4] = ((closureN)self_731112)->elements[4]; +c_731796.elements[5] = ((closureN)self_731112)->elements[5]; +c_731796.elements[6] = ((closureN)self_731112)->elements[6]; +c_731796.elements[7] = ((closureN)self_731112)->elements[7]; +c_731796.elements[8] = ((closureN)self_731112)->elements[8]; +c_731796.elements[9] = ((closureN)self_731112)->elements[9]; +c_731796.elements[10] = ((closureN)self_731112)->elements[10]; + +return_closcall1(data,(closure)&c_731796, Cyc_set_car(data, ((closureN)self_731112)->elements[10], r_73586));; +} + +static void __lambda_109(void *data, int argc, object self_731113, object r_73569) { + +closureN_type c_731798; +c_731798.hdr.mark = gc_color_red; + c_731798.hdr.grayed = 0; +c_731798.tag = closureN_tag; + c_731798.fn = (function_type)__lambda_108; +c_731798.num_args = 1; +c_731798.num_elements = 11; +c_731798.elements = (object *)alloca(sizeof(object) * 11); +c_731798.elements[0] = ((closureN)self_731113)->elements[0]; +c_731798.elements[1] = ((closureN)self_731113)->elements[1]; +c_731798.elements[2] = ((closureN)self_731113)->elements[2]; +c_731798.elements[3] = ((closureN)self_731113)->elements[3]; +c_731798.elements[4] = ((closureN)self_731113)->elements[4]; +c_731798.elements[5] = ((closureN)self_731113)->elements[5]; +c_731798.elements[6] = ((closureN)self_731113)->elements[6]; +c_731798.elements[7] = ((closureN)self_731113)->elements[7]; +c_731798.elements[8] = ((closureN)self_731113)->elements[8]; +c_731798.elements[9] = ((closureN)self_731113)->elements[9]; +c_731798.elements[10] = ((closureN)self_731113)->elements[10]; + +return_closcall1(data,(closure)&c_731798, Cyc_set_car(data, ((closureN)self_731113)->elements[3], boolean_f));; +} + +static void __lambda_108(void *data, int argc, object self_731114, object r_73570) { + +closureN_type c_731800; +c_731800.hdr.mark = gc_color_red; + c_731800.hdr.grayed = 0; +c_731800.tag = closureN_tag; + c_731800.fn = (function_type)__lambda_97; +c_731800.num_args = 0; +c_731800.num_elements = 2; +c_731800.elements = (object *)alloca(sizeof(object) * 2); +c_731800.elements[0] = ((closureN)self_731114)->elements[4]; +c_731800.elements[1] = ((closureN)self_731114)->elements[6]; + + +closureN_type c_731827; +c_731827.hdr.mark = gc_color_red; + c_731827.hdr.grayed = 0; +c_731827.tag = closureN_tag; + c_731827.fn = (function_type)__lambda_107; +c_731827.num_args = 1; +c_731827.num_elements = 10; +c_731827.elements = (object *)alloca(sizeof(object) * 10); +c_731827.elements[0] = ((closureN)self_731114)->elements[0]; +c_731827.elements[1] = ((closureN)self_731114)->elements[1]; +c_731827.elements[2] = ((closureN)self_731114)->elements[2]; +c_731827.elements[3] = ((closureN)self_731114)->elements[3]; +c_731827.elements[4] = ((closureN)self_731114)->elements[5]; +c_731827.elements[5] = ((closureN)self_731114)->elements[6]; +c_731827.elements[6] = ((closureN)self_731114)->elements[7]; +c_731827.elements[7] = ((closureN)self_731114)->elements[8]; +c_731827.elements[8] = ((closureN)self_731114)->elements[9]; +c_731827.elements[9] = ((closureN)self_731114)->elements[10]; + +return_closcall1(data,(closure)&c_731800, &c_731827);; +} + +static void __lambda_107(void *data, int argc, object self_731115, object r_73571) { + +closureN_type c_731829; +c_731829.hdr.mark = gc_color_red; + c_731829.hdr.grayed = 0; +c_731829.tag = closureN_tag; + c_731829.fn = (function_type)__lambda_106; +c_731829.num_args = 1; +c_731829.num_elements = 10; +c_731829.elements = (object *)alloca(sizeof(object) * 10); +c_731829.elements[0] = ((closureN)self_731115)->elements[0]; +c_731829.elements[1] = ((closureN)self_731115)->elements[1]; +c_731829.elements[2] = ((closureN)self_731115)->elements[2]; +c_731829.elements[3] = ((closureN)self_731115)->elements[3]; +c_731829.elements[4] = ((closureN)self_731115)->elements[4]; +c_731829.elements[5] = ((closureN)self_731115)->elements[5]; +c_731829.elements[6] = ((closureN)self_731115)->elements[6]; +c_731829.elements[7] = ((closureN)self_731115)->elements[7]; +c_731829.elements[8] = ((closureN)self_731115)->elements[8]; +c_731829.elements[9] = ((closureN)self_731115)->elements[9]; + +return_closcall1(data,(closure)&c_731829, NULL);; +} + +static void __lambda_106(void *data, int argc, object self_731116, object r_73579) { + +closureN_type c_731831; +c_731831.hdr.mark = gc_color_red; + c_731831.hdr.grayed = 0; +c_731831.tag = closureN_tag; + c_731831.fn = (function_type)__lambda_105; +c_731831.num_args = 1; +c_731831.num_elements = 11; +c_731831.elements = (object *)alloca(sizeof(object) * 11); +c_731831.elements[0] = ((closureN)self_731116)->elements[0]; +c_731831.elements[1] = ((closureN)self_731116)->elements[1]; +c_731831.elements[2] = ((closureN)self_731116)->elements[2]; +c_731831.elements[3] = ((closureN)self_731116)->elements[3]; +c_731831.elements[4] = ((closureN)self_731116)->elements[4]; +c_731831.elements[5] = ((closureN)self_731116)->elements[5]; +c_731831.elements[6] = r_73579; +c_731831.elements[7] = ((closureN)self_731116)->elements[6]; +c_731831.elements[8] = ((closureN)self_731116)->elements[7]; +c_731831.elements[9] = ((closureN)self_731116)->elements[8]; +c_731831.elements[10] = ((closureN)self_731116)->elements[9]; + +return_closcall1(data,(closure)&c_731831, NULL);; +} + +static void __lambda_105(void *data, int argc, object self_731117, object r_73580) { + +closureN_type c_731833; +c_731833.hdr.mark = gc_color_red; + c_731833.hdr.grayed = 0; +c_731833.tag = closureN_tag; + c_731833.fn = (function_type)__lambda_104; +c_731833.num_args = 1; +c_731833.num_elements = 10; +c_731833.elements = (object *)alloca(sizeof(object) * 10); +c_731833.elements[0] = ((closureN)self_731117)->elements[0]; +c_731833.elements[1] = ((closureN)self_731117)->elements[1]; +c_731833.elements[2] = ((closureN)self_731117)->elements[2]; +c_731833.elements[3] = ((closureN)self_731117)->elements[3]; +c_731833.elements[4] = ((closureN)self_731117)->elements[4]; +c_731833.elements[5] = ((closureN)self_731117)->elements[5]; +c_731833.elements[6] = ((closureN)self_731117)->elements[7]; +c_731833.elements[7] = ((closureN)self_731117)->elements[8]; +c_731833.elements[8] = ((closureN)self_731117)->elements[9]; +c_731833.elements[9] = ((closureN)self_731117)->elements[10]; + +return_closcall8(data, __glo_parse_scheme_read, &c_731833, ((closureN)self_731117)->elements[1], ((closureN)self_731117)->elements[6], r_73580, boolean_f, boolean_f, obj_int2obj(0), ((closureN)self_731117)->elements[5]);; +} + +static void __lambda_104(void *data, int argc, object self_731118, object r_73578) { + +closureN_type c_731835; +c_731835.hdr.mark = gc_color_red; + c_731835.hdr.grayed = 0; +c_731835.tag = closureN_tag; + c_731835.fn = (function_type)__lambda_103; +c_731835.num_args = 1; +c_731835.num_elements = 10; +c_731835.elements = (object *)alloca(sizeof(object) * 10); +c_731835.elements[0] = ((closureN)self_731118)->elements[0]; +c_731835.elements[1] = ((closureN)self_731118)->elements[1]; +c_731835.elements[2] = ((closureN)self_731118)->elements[2]; +c_731835.elements[3] = ((closureN)self_731118)->elements[3]; +c_731835.elements[4] = ((closureN)self_731118)->elements[4]; +c_731835.elements[5] = ((closureN)self_731118)->elements[5]; +c_731835.elements[6] = ((closureN)self_731118)->elements[6]; +c_731835.elements[7] = ((closureN)self_731118)->elements[7]; +c_731835.elements[8] = ((closureN)self_731118)->elements[8]; +c_731835.elements[9] = ((closureN)self_731118)->elements[9]; + +return_closcall1(data,(closure)&c_731835, Cyc_set_car(data, ((closureN)self_731118)->elements[6], r_73578));; +} + +static void __lambda_103(void *data, int argc, object self_731119, object r_73572) { + +closureN_type c_731837; +c_731837.hdr.mark = gc_color_red; + c_731837.hdr.grayed = 0; +c_731837.tag = closureN_tag; + c_731837.fn = (function_type)__lambda_102; +c_731837.num_args = 1; +c_731837.num_elements = 8; +c_731837.elements = (object *)alloca(sizeof(object) * 8); +c_731837.elements[0] = ((closureN)self_731119)->elements[0]; +c_731837.elements[1] = ((closureN)self_731119)->elements[1]; +c_731837.elements[2] = ((closureN)self_731119)->elements[2]; +c_731837.elements[3] = ((closureN)self_731119)->elements[3]; +c_731837.elements[4] = ((closureN)self_731119)->elements[4]; +c_731837.elements[5] = ((closureN)self_731119)->elements[5]; +c_731837.elements[6] = ((closureN)self_731119)->elements[7]; +c_731837.elements[7] = ((closureN)self_731119)->elements[8]; + +return_closcall3(data, __glo__list_scheme_base, &c_731837, cell_get(((closureN)self_731119)->elements[9]), cell_get(((closureN)self_731119)->elements[6]));; +} + +static void __lambda_102(void *data, int argc, object self_731120, object r_73576) { + +closureN_type c_731839; +c_731839.hdr.mark = gc_color_red; + c_731839.hdr.grayed = 0; +c_731839.tag = closureN_tag; + c_731839.fn = (function_type)__lambda_101; +c_731839.num_args = 1; +c_731839.num_elements = 7; +c_731839.elements = (object *)alloca(sizeof(object) * 7); +c_731839.elements[0] = ((closureN)self_731120)->elements[0]; +c_731839.elements[1] = ((closureN)self_731120)->elements[1]; +c_731839.elements[2] = ((closureN)self_731120)->elements[2]; +c_731839.elements[3] = ((closureN)self_731120)->elements[3]; +c_731839.elements[4] = ((closureN)self_731120)->elements[4]; +c_731839.elements[5] = ((closureN)self_731120)->elements[5]; +c_731839.elements[6] = r_73576; + +return_closcall3(data, __glo_get_91toks_scheme_read, &c_731839, ((closureN)self_731120)->elements[6], ((closureN)self_731120)->elements[7]);; +} + +static void __lambda_101(void *data, int argc, object self_731121, object r_73577) { + +closureN_type c_731841; +c_731841.hdr.mark = gc_color_red; + c_731841.hdr.grayed = 0; +c_731841.tag = closureN_tag; + c_731841.fn = (function_type)__lambda_100; +c_731841.num_args = 1; +c_731841.num_elements = 6; +c_731841.elements = (object *)alloca(sizeof(object) * 6); +c_731841.elements[0] = ((closureN)self_731121)->elements[0]; +c_731841.elements[1] = ((closureN)self_731121)->elements[1]; +c_731841.elements[2] = ((closureN)self_731121)->elements[2]; +c_731841.elements[3] = ((closureN)self_731121)->elements[3]; +c_731841.elements[4] = ((closureN)self_731121)->elements[4]; +c_731841.elements[5] = ((closureN)self_731121)->elements[5]; + +return_closcall3(data, __glo_add_91tok_scheme_read, &c_731841, ((closureN)self_731121)->elements[6], r_73577);; +} + +static void __lambda_100(void *data, int argc, object self_731122, object r_73575) { + +closureN_type c_731843; +c_731843.hdr.mark = gc_color_red; + c_731843.hdr.grayed = 0; +c_731843.tag = closureN_tag; + c_731843.fn = (function_type)__lambda_99; +c_731843.num_args = 1; +c_731843.num_elements = 6; +c_731843.elements = (object *)alloca(sizeof(object) * 6); +c_731843.elements[0] = ((closureN)self_731122)->elements[0]; +c_731843.elements[1] = ((closureN)self_731122)->elements[1]; +c_731843.elements[2] = ((closureN)self_731122)->elements[2]; +c_731843.elements[3] = ((closureN)self_731122)->elements[3]; +c_731843.elements[4] = ((closureN)self_731122)->elements[4]; +c_731843.elements[5] = ((closureN)self_731122)->elements[5]; + +return_closcall1(data,(closure)&c_731843, Cyc_set_car(data, ((closureN)self_731122)->elements[3], r_73575));; +} + +static void __lambda_99(void *data, int argc, object self_731123, object r_73573) { + if( (boolean_f != ((closureN)self_731123)->elements[0]) ){ + +closureN_type c_731846; +c_731846.hdr.mark = gc_color_red; + c_731846.hdr.grayed = 0; +c_731846.tag = closureN_tag; + c_731846.fn = (function_type)__lambda_98; +c_731846.num_args = 1; +c_731846.num_elements = 6; +c_731846.elements = (object *)alloca(sizeof(object) * 6); +c_731846.elements[0] = ((closureN)self_731123)->elements[0]; +c_731846.elements[1] = ((closureN)self_731123)->elements[1]; +c_731846.elements[2] = ((closureN)self_731123)->elements[2]; +c_731846.elements[3] = ((closureN)self_731123)->elements[3]; +c_731846.elements[4] = ((closureN)self_731123)->elements[4]; +c_731846.elements[5] = ((closureN)self_731123)->elements[5]; + +return_closcall1(data,(closure)&c_731846, NULL); +} else { + return_closcall1(data, ((closureN)self_731123)->elements[2], car(cell_get(((closureN)self_731123)->elements[3])));} +; +} + +static void __lambda_98(void *data, int argc, object self_731124, object r_73574) { + return_closcall8(data, __glo_parse_scheme_read, ((closureN)self_731124)->elements[2], ((closureN)self_731124)->elements[1], r_73574, cell_get(((closureN)self_731124)->elements[3]), ((closureN)self_731124)->elements[0], boolean_f, ((closureN)self_731124)->elements[4], ((closureN)self_731124)->elements[5]);; +} + +static void __lambda_97(void *data, int argc, object self_731125, object k_73581) { + if( (boolean_f != Cyc_is_eof_object(cell_get(((closureN)self_731125)->elements[0]))) ){ + +closureN_type c_731807; +c_731807.hdr.mark = gc_color_red; + c_731807.hdr.grayed = 0; +c_731807.tag = closureN_tag; + c_731807.fn = (function_type)__lambda_96; +c_731807.num_args = 1; +c_731807.num_elements = 2; +c_731807.elements = (object *)alloca(sizeof(object) * 2); +c_731807.elements[0] = k_73581; +c_731807.elements[1] = ((closureN)self_731125)->elements[1]; + +return_closcall2(data, __glo_in_91port_117get_91lnum_scheme_read, &c_731807, ((closureN)self_731125)->elements[1]); +} else { + if( (boolean_f != equalp(cell_get(((closureN)self_731125)->elements[0]), obj_char2obj(64))) ){ + return_closcall1(data, k_73581, boolean_f); +} else { + return_closcall3(data, __glo_in_91port_117set_91buf_67_scheme_read, k_73581, ((closureN)self_731125)->elements[1], cell_get(((closureN)self_731125)->elements[0]));} +} +; +} + +static void __lambda_96(void *data, int argc, object self_731126, object r_73583) { + +closureN_type c_731809; +c_731809.hdr.mark = gc_color_red; + c_731809.hdr.grayed = 0; +c_731809.tag = closureN_tag; + c_731809.fn = (function_type)__lambda_95; +c_731809.num_args = 1; +c_731809.num_elements = 2; +c_731809.elements = (object *)alloca(sizeof(object) * 2); +c_731809.elements[0] = ((closureN)self_731126)->elements[0]; +c_731809.elements[1] = r_73583; + +return_closcall2(data, __glo_in_91port_117get_91cnum_scheme_read, &c_731809, ((closureN)self_731126)->elements[1]);; +} + +static void __lambda_95(void *data, int argc, object self_731127, object r_73584) { + +make_string(c_731812, "unexpected end of file"); +return_closcall4(data, __glo_parse_91error_scheme_read, ((closureN)self_731127)->elements[0], &c_731812, ((closureN)self_731127)->elements[1], r_73584);; +} + +static void __lambda_94(void *data, int argc, object self_731128, object k_73587) { + if( (boolean_f != equalp(cell_get(((closureN)self_731128)->elements[0]), obj_char2obj(64))) ){ + return_closcall1(data, k_73587, quote_unquote_91splicing); +} else { + return_closcall1(data, k_73587, quote_unquote);} +; +} + +static void __lambda_93(void *data, int argc, object self_731129, object r_73564) { + +closureN_type c_731758; +c_731758.hdr.mark = gc_color_red; + c_731758.hdr.grayed = 0; +c_731758.tag = closureN_tag; + c_731758.fn = (function_type)__lambda_92; +c_731758.num_args = 1; +c_731758.num_elements = 2; +c_731758.elements = (object *)alloca(sizeof(object) * 2); +c_731758.elements[0] = ((closureN)self_731129)->elements[0]; +c_731758.elements[1] = ((closureN)self_731129)->elements[2]; + +return_closcall2(data, __glo__91_125tok_scheme_read, &c_731758, ((closureN)self_731129)->elements[1]);; +} + +static void __lambda_92(void *data, int argc, object self_731130, object r_73566) { + +closureN_type c_731760; +c_731760.hdr.mark = gc_color_red; + c_731760.hdr.grayed = 0; +c_731760.tag = closureN_tag; + c_731760.fn = (function_type)__lambda_91; +c_731760.num_args = 1; +c_731760.num_elements = 1; +c_731760.elements = (object *)alloca(sizeof(object) * 1); +c_731760.elements[0] = ((closureN)self_731130)->elements[0]; + +return_closcall3(data, __glo_add_91tok_scheme_read, &c_731760, r_73566, ((closureN)self_731130)->elements[1]);; +} + +static void __lambda_91(void *data, int argc, object self_731131, object r_73565) { + return_closcall1(data, ((closureN)self_731131)->elements[0], car(r_73565));; +} + +static void __lambda_90(void *data, int argc, object self_731132, object k_73590) { + if( (boolean_f != ((closureN)self_731132)->elements[0]) ){ + return_closcall1(data, k_73590, boolean_f); +} else { + return_closcall2(data, __glo_not_scheme_base, k_73590, Cyc_is_null(((closureN)self_731132)->elements[1]));} +; +} + +static void __lambda_89(void *data, int argc, object self_731133, object r_73547) { + if( (boolean_f != r_73547) ){ + +closureN_type c_731678; +c_731678.hdr.mark = gc_color_red; + c_731678.hdr.grayed = 0; +c_731678.tag = closureN_tag; + c_731678.fn = (function_type)__lambda_77; +c_731678.num_args = 1; +c_731678.num_elements = 3; +c_731678.elements = (object *)alloca(sizeof(object) * 3); +c_731678.elements[0] = ((closureN)self_731133)->elements[3]; +c_731678.elements[1] = ((closureN)self_731133)->elements[6]; +c_731678.elements[2] = ((closureN)self_731133)->elements[7]; + +return_closcall3(data, __glo_in_91port_117set_91buf_67_scheme_read, &c_731678, ((closureN)self_731133)->elements[5], ((closureN)self_731133)->elements[1]); +} else { + +closureN_type c_731692; +c_731692.hdr.mark = gc_color_red; + c_731692.hdr.grayed = 0; +c_731692.tag = closureN_tag; + c_731692.fn = (function_type)__lambda_88; +c_731692.num_args = 1; +c_731692.num_elements = 7; +c_731692.elements = (object *)alloca(sizeof(object) * 7); +c_731692.elements[0] = ((closureN)self_731133)->elements[0]; +c_731692.elements[1] = ((closureN)self_731133)->elements[2]; +c_731692.elements[2] = ((closureN)self_731133)->elements[3]; +c_731692.elements[3] = ((closureN)self_731133)->elements[4]; +c_731692.elements[4] = ((closureN)self_731133)->elements[5]; +c_731692.elements[5] = ((closureN)self_731133)->elements[6]; +c_731692.elements[6] = ((closureN)self_731133)->elements[7]; + +return_closcall1(data,(closure)&c_731692, NULL);} +; +} + +static void __lambda_88(void *data, int argc, object self_731134, object r_73558) { + +closureN_type c_731694; +c_731694.hdr.mark = gc_color_red; + c_731694.hdr.grayed = 0; +c_731694.tag = closureN_tag; + c_731694.fn = (function_type)__lambda_87; +c_731694.num_args = 1; +c_731694.num_elements = 8; +c_731694.elements = (object *)alloca(sizeof(object) * 8); +c_731694.elements[0] = ((closureN)self_731134)->elements[0]; +c_731694.elements[1] = ((closureN)self_731134)->elements[1]; +c_731694.elements[2] = ((closureN)self_731134)->elements[2]; +c_731694.elements[3] = ((closureN)self_731134)->elements[3]; +c_731694.elements[4] = ((closureN)self_731134)->elements[4]; +c_731694.elements[5] = r_73558; +c_731694.elements[6] = ((closureN)self_731134)->elements[5]; +c_731694.elements[7] = ((closureN)self_731134)->elements[6]; + +return_closcall1(data,(closure)&c_731694, NULL);; +} + +static void __lambda_87(void *data, int argc, object self_731135, object r_73559) { + +closureN_type c_731696; +c_731696.hdr.mark = gc_color_red; + c_731696.hdr.grayed = 0; +c_731696.tag = closureN_tag; + c_731696.fn = (function_type)__lambda_86; +c_731696.num_args = 1; +c_731696.num_elements = 7; +c_731696.elements = (object *)alloca(sizeof(object) * 7); +c_731696.elements[0] = ((closureN)self_731135)->elements[0]; +c_731696.elements[1] = ((closureN)self_731135)->elements[1]; +c_731696.elements[2] = ((closureN)self_731135)->elements[2]; +c_731696.elements[3] = ((closureN)self_731135)->elements[3]; +c_731696.elements[4] = ((closureN)self_731135)->elements[4]; +c_731696.elements[5] = ((closureN)self_731135)->elements[6]; +c_731696.elements[6] = ((closureN)self_731135)->elements[7]; + +return_closcall8(data, __glo_parse_scheme_read, &c_731696, ((closureN)self_731135)->elements[1], ((closureN)self_731135)->elements[5], r_73559, boolean_f, boolean_f, obj_int2obj(0), ((closureN)self_731135)->elements[4]);; +} + +static void __lambda_86(void *data, int argc, object self_731136, object sub_73229) { + +closureN_type c_731698; +c_731698.hdr.mark = gc_color_red; + c_731698.hdr.grayed = 0; +c_731698.tag = closureN_tag; + c_731698.fn = (function_type)__lambda_85; +c_731698.num_args = 1; +c_731698.num_elements = 8; +c_731698.elements = (object *)alloca(sizeof(object) * 8); +c_731698.elements[0] = ((closureN)self_731136)->elements[0]; +c_731698.elements[1] = ((closureN)self_731136)->elements[1]; +c_731698.elements[2] = ((closureN)self_731136)->elements[2]; +c_731698.elements[3] = ((closureN)self_731136)->elements[3]; +c_731698.elements[4] = ((closureN)self_731136)->elements[4]; +c_731698.elements[5] = sub_73229; +c_731698.elements[6] = ((closureN)self_731136)->elements[5]; +c_731698.elements[7] = ((closureN)self_731136)->elements[6]; + +return_closcall1(data,(closure)&c_731698, boolean_f);; +} + +static void __lambda_85(void *data, int argc, object self_731137, object new_91toks_73230) { + +closureN_type c_731700; +c_731700.hdr.mark = gc_color_red; + c_731700.hdr.grayed = 0; +c_731700.tag = closureN_tag; + c_731700.fn = (function_type)__lambda_84; +c_731700.num_args = 1; +c_731700.num_elements = 8; +c_731700.elements = (object *)alloca(sizeof(object) * 8); +c_731700.elements[0] = ((closureN)self_731137)->elements[0]; +c_731700.elements[1] = ((closureN)self_731137)->elements[1]; +c_731700.elements[2] = ((closureN)self_731137)->elements[2]; +c_731700.elements[3] = ((closureN)self_731137)->elements[3]; +c_731700.elements[4] = ((closureN)self_731137)->elements[4]; +c_731700.elements[5] = ((closureN)self_731137)->elements[5]; +c_731700.elements[6] = ((closureN)self_731137)->elements[6]; +c_731700.elements[7] = ((closureN)self_731137)->elements[7]; + + +make_cell(c_731739,new_91toks_73230); +return_closcall1(data,(closure)&c_731700, &c_731739);; +} + +static void __lambda_84(void *data, int argc, object self_731138, object new_91toks_73230) { + +closureN_type c_731702; +c_731702.hdr.mark = gc_color_red; + c_731702.hdr.grayed = 0; +c_731702.tag = closureN_tag; + c_731702.fn = (function_type)__lambda_83; +c_731702.num_args = 1; +c_731702.num_elements = 9; +c_731702.elements = (object *)alloca(sizeof(object) * 9); +c_731702.elements[0] = ((closureN)self_731138)->elements[0]; +c_731702.elements[1] = ((closureN)self_731138)->elements[1]; +c_731702.elements[2] = ((closureN)self_731138)->elements[2]; +c_731702.elements[3] = new_91toks_73230; +c_731702.elements[4] = ((closureN)self_731138)->elements[3]; +c_731702.elements[5] = ((closureN)self_731138)->elements[4]; +c_731702.elements[6] = ((closureN)self_731138)->elements[5]; +c_731702.elements[7] = ((closureN)self_731138)->elements[6]; +c_731702.elements[8] = ((closureN)self_731138)->elements[7]; + +return_closcall1(data,(closure)&c_731702, quote_quasiquote);; +} + +static void __lambda_83(void *data, int argc, object self_731139, object r_73557) { + +closureN_type c_731704; +c_731704.hdr.mark = gc_color_red; + c_731704.hdr.grayed = 0; +c_731704.tag = closureN_tag; + c_731704.fn = (function_type)__lambda_82; +c_731704.num_args = 1; +c_731704.num_elements = 8; +c_731704.elements = (object *)alloca(sizeof(object) * 8); +c_731704.elements[0] = ((closureN)self_731139)->elements[0]; +c_731704.elements[1] = ((closureN)self_731139)->elements[1]; +c_731704.elements[2] = ((closureN)self_731139)->elements[2]; +c_731704.elements[3] = ((closureN)self_731139)->elements[3]; +c_731704.elements[4] = ((closureN)self_731139)->elements[4]; +c_731704.elements[5] = ((closureN)self_731139)->elements[5]; +c_731704.elements[6] = ((closureN)self_731139)->elements[7]; +c_731704.elements[7] = ((closureN)self_731139)->elements[8]; + +return_closcall3(data, __glo__list_scheme_base, &c_731704, r_73557, ((closureN)self_731139)->elements[6]);; +} + +static void __lambda_82(void *data, int argc, object self_731140, object r_73555) { + +closureN_type c_731706; +c_731706.hdr.mark = gc_color_red; + c_731706.hdr.grayed = 0; +c_731706.tag = closureN_tag; + c_731706.fn = (function_type)__lambda_81; +c_731706.num_args = 1; +c_731706.num_elements = 7; +c_731706.elements = (object *)alloca(sizeof(object) * 7); +c_731706.elements[0] = ((closureN)self_731140)->elements[0]; +c_731706.elements[1] = ((closureN)self_731140)->elements[1]; +c_731706.elements[2] = ((closureN)self_731140)->elements[2]; +c_731706.elements[3] = ((closureN)self_731140)->elements[3]; +c_731706.elements[4] = ((closureN)self_731140)->elements[4]; +c_731706.elements[5] = ((closureN)self_731140)->elements[5]; +c_731706.elements[6] = r_73555; + +return_closcall3(data, __glo_get_91toks_scheme_read, &c_731706, ((closureN)self_731140)->elements[6], ((closureN)self_731140)->elements[7]);; +} + +static void __lambda_81(void *data, int argc, object self_731141, object r_73556) { + +closureN_type c_731708; +c_731708.hdr.mark = gc_color_red; + c_731708.hdr.grayed = 0; +c_731708.tag = closureN_tag; + c_731708.fn = (function_type)__lambda_80; +c_731708.num_args = 1; +c_731708.num_elements = 6; +c_731708.elements = (object *)alloca(sizeof(object) * 6); +c_731708.elements[0] = ((closureN)self_731141)->elements[0]; +c_731708.elements[1] = ((closureN)self_731141)->elements[1]; +c_731708.elements[2] = ((closureN)self_731141)->elements[2]; +c_731708.elements[3] = ((closureN)self_731141)->elements[3]; +c_731708.elements[4] = ((closureN)self_731141)->elements[4]; +c_731708.elements[5] = ((closureN)self_731141)->elements[5]; + +return_closcall3(data, __glo_add_91tok_scheme_read, &c_731708, ((closureN)self_731141)->elements[6], r_73556);; +} + +static void __lambda_80(void *data, int argc, object self_731142, object r_73554) { + +closureN_type c_731710; +c_731710.hdr.mark = gc_color_red; + c_731710.hdr.grayed = 0; +c_731710.tag = closureN_tag; + c_731710.fn = (function_type)__lambda_79; +c_731710.num_args = 1; +c_731710.num_elements = 6; +c_731710.elements = (object *)alloca(sizeof(object) * 6); +c_731710.elements[0] = ((closureN)self_731142)->elements[0]; +c_731710.elements[1] = ((closureN)self_731142)->elements[1]; +c_731710.elements[2] = ((closureN)self_731142)->elements[2]; +c_731710.elements[3] = ((closureN)self_731142)->elements[3]; +c_731710.elements[4] = ((closureN)self_731142)->elements[4]; +c_731710.elements[5] = ((closureN)self_731142)->elements[5]; + +return_closcall1(data,(closure)&c_731710, Cyc_set_car(data, ((closureN)self_731142)->elements[3], r_73554));; +} + +static void __lambda_79(void *data, int argc, object self_731143, object r_73552) { + if( (boolean_f != ((closureN)self_731143)->elements[0]) ){ + +closureN_type c_731713; +c_731713.hdr.mark = gc_color_red; + c_731713.hdr.grayed = 0; +c_731713.tag = closureN_tag; + c_731713.fn = (function_type)__lambda_78; +c_731713.num_args = 1; +c_731713.num_elements = 6; +c_731713.elements = (object *)alloca(sizeof(object) * 6); +c_731713.elements[0] = ((closureN)self_731143)->elements[0]; +c_731713.elements[1] = ((closureN)self_731143)->elements[1]; +c_731713.elements[2] = ((closureN)self_731143)->elements[2]; +c_731713.elements[3] = ((closureN)self_731143)->elements[3]; +c_731713.elements[4] = ((closureN)self_731143)->elements[4]; +c_731713.elements[5] = ((closureN)self_731143)->elements[5]; + +return_closcall1(data,(closure)&c_731713, NULL); +} else { + return_closcall1(data, ((closureN)self_731143)->elements[2], car(cell_get(((closureN)self_731143)->elements[3])));} +; +} + +static void __lambda_78(void *data, int argc, object self_731144, object r_73553) { + return_closcall8(data, __glo_parse_scheme_read, ((closureN)self_731144)->elements[2], ((closureN)self_731144)->elements[1], r_73553, cell_get(((closureN)self_731144)->elements[3]), ((closureN)self_731144)->elements[0], boolean_f, ((closureN)self_731144)->elements[4], ((closureN)self_731144)->elements[5]);; +} + +static void __lambda_77(void *data, int argc, object self_731145, object r_73548) { + +closureN_type c_731680; +c_731680.hdr.mark = gc_color_red; + c_731680.hdr.grayed = 0; +c_731680.tag = closureN_tag; + c_731680.fn = (function_type)__lambda_76; +c_731680.num_args = 1; +c_731680.num_elements = 2; +c_731680.elements = (object *)alloca(sizeof(object) * 2); +c_731680.elements[0] = ((closureN)self_731145)->elements[0]; +c_731680.elements[1] = ((closureN)self_731145)->elements[2]; + +return_closcall2(data, __glo__91_125tok_scheme_read, &c_731680, ((closureN)self_731145)->elements[1]);; +} + +static void __lambda_76(void *data, int argc, object self_731146, object r_73550) { + +closureN_type c_731682; +c_731682.hdr.mark = gc_color_red; + c_731682.hdr.grayed = 0; +c_731682.tag = closureN_tag; + c_731682.fn = (function_type)__lambda_75; +c_731682.num_args = 1; +c_731682.num_elements = 1; +c_731682.elements = (object *)alloca(sizeof(object) * 1); +c_731682.elements[0] = ((closureN)self_731146)->elements[0]; + +return_closcall3(data, __glo_add_91tok_scheme_read, &c_731682, r_73550, ((closureN)self_731146)->elements[1]);; +} + +static void __lambda_75(void *data, int argc, object self_731147, object r_73549) { + return_closcall1(data, ((closureN)self_731147)->elements[0], car(r_73549));; +} + +static void __lambda_74(void *data, int argc, object self_731148, object k_73560) { + if( (boolean_f != ((closureN)self_731148)->elements[0]) ){ + return_closcall1(data, k_73560, boolean_f); +} else { + return_closcall2(data, __glo_not_scheme_base, k_73560, Cyc_is_null(((closureN)self_731148)->elements[1]));} +; +} + +static void __lambda_73(void *data, int argc, object self_731149, object r_73531) { + if( (boolean_f != r_73531) ){ + +closureN_type c_731600; +c_731600.hdr.mark = gc_color_red; + c_731600.hdr.grayed = 0; +c_731600.tag = closureN_tag; + c_731600.fn = (function_type)__lambda_61; +c_731600.num_args = 1; +c_731600.num_elements = 3; +c_731600.elements = (object *)alloca(sizeof(object) * 3); +c_731600.elements[0] = ((closureN)self_731149)->elements[3]; +c_731600.elements[1] = ((closureN)self_731149)->elements[6]; +c_731600.elements[2] = ((closureN)self_731149)->elements[7]; + +return_closcall3(data, __glo_in_91port_117set_91buf_67_scheme_read, &c_731600, ((closureN)self_731149)->elements[5], ((closureN)self_731149)->elements[1]); +} else { + +closureN_type c_731614; +c_731614.hdr.mark = gc_color_red; + c_731614.hdr.grayed = 0; +c_731614.tag = closureN_tag; + c_731614.fn = (function_type)__lambda_72; +c_731614.num_args = 1; +c_731614.num_elements = 7; +c_731614.elements = (object *)alloca(sizeof(object) * 7); +c_731614.elements[0] = ((closureN)self_731149)->elements[0]; +c_731614.elements[1] = ((closureN)self_731149)->elements[2]; +c_731614.elements[2] = ((closureN)self_731149)->elements[3]; +c_731614.elements[3] = ((closureN)self_731149)->elements[4]; +c_731614.elements[4] = ((closureN)self_731149)->elements[5]; +c_731614.elements[5] = ((closureN)self_731149)->elements[6]; +c_731614.elements[6] = ((closureN)self_731149)->elements[7]; + +return_closcall1(data,(closure)&c_731614, NULL);} +; +} + +static void __lambda_72(void *data, int argc, object self_731150, object r_73542) { + +closureN_type c_731616; +c_731616.hdr.mark = gc_color_red; + c_731616.hdr.grayed = 0; +c_731616.tag = closureN_tag; + c_731616.fn = (function_type)__lambda_71; +c_731616.num_args = 1; +c_731616.num_elements = 8; +c_731616.elements = (object *)alloca(sizeof(object) * 8); +c_731616.elements[0] = ((closureN)self_731150)->elements[0]; +c_731616.elements[1] = ((closureN)self_731150)->elements[1]; +c_731616.elements[2] = ((closureN)self_731150)->elements[2]; +c_731616.elements[3] = ((closureN)self_731150)->elements[3]; +c_731616.elements[4] = ((closureN)self_731150)->elements[4]; +c_731616.elements[5] = r_73542; +c_731616.elements[6] = ((closureN)self_731150)->elements[5]; +c_731616.elements[7] = ((closureN)self_731150)->elements[6]; + +return_closcall1(data,(closure)&c_731616, NULL);; +} + +static void __lambda_71(void *data, int argc, object self_731151, object r_73543) { + +closureN_type c_731618; +c_731618.hdr.mark = gc_color_red; + c_731618.hdr.grayed = 0; +c_731618.tag = closureN_tag; + c_731618.fn = (function_type)__lambda_70; +c_731618.num_args = 1; +c_731618.num_elements = 7; +c_731618.elements = (object *)alloca(sizeof(object) * 7); +c_731618.elements[0] = ((closureN)self_731151)->elements[0]; +c_731618.elements[1] = ((closureN)self_731151)->elements[1]; +c_731618.elements[2] = ((closureN)self_731151)->elements[2]; +c_731618.elements[3] = ((closureN)self_731151)->elements[3]; +c_731618.elements[4] = ((closureN)self_731151)->elements[4]; +c_731618.elements[5] = ((closureN)self_731151)->elements[6]; +c_731618.elements[6] = ((closureN)self_731151)->elements[7]; + +return_closcall8(data, __glo_parse_scheme_read, &c_731618, ((closureN)self_731151)->elements[1], ((closureN)self_731151)->elements[5], r_73543, boolean_f, boolean_f, obj_int2obj(0), ((closureN)self_731151)->elements[4]);; +} + +static void __lambda_70(void *data, int argc, object self_731152, object sub_73231) { + +closureN_type c_731620; +c_731620.hdr.mark = gc_color_red; + c_731620.hdr.grayed = 0; +c_731620.tag = closureN_tag; + c_731620.fn = (function_type)__lambda_69; +c_731620.num_args = 1; +c_731620.num_elements = 8; +c_731620.elements = (object *)alloca(sizeof(object) * 8); +c_731620.elements[0] = ((closureN)self_731152)->elements[0]; +c_731620.elements[1] = ((closureN)self_731152)->elements[1]; +c_731620.elements[2] = ((closureN)self_731152)->elements[2]; +c_731620.elements[3] = ((closureN)self_731152)->elements[3]; +c_731620.elements[4] = ((closureN)self_731152)->elements[4]; +c_731620.elements[5] = sub_73231; +c_731620.elements[6] = ((closureN)self_731152)->elements[5]; +c_731620.elements[7] = ((closureN)self_731152)->elements[6]; + +return_closcall1(data,(closure)&c_731620, boolean_f);; +} + +static void __lambda_69(void *data, int argc, object self_731153, object new_91toks_73232) { + +closureN_type c_731622; +c_731622.hdr.mark = gc_color_red; + c_731622.hdr.grayed = 0; +c_731622.tag = closureN_tag; + c_731622.fn = (function_type)__lambda_68; +c_731622.num_args = 1; +c_731622.num_elements = 8; +c_731622.elements = (object *)alloca(sizeof(object) * 8); +c_731622.elements[0] = ((closureN)self_731153)->elements[0]; +c_731622.elements[1] = ((closureN)self_731153)->elements[1]; +c_731622.elements[2] = ((closureN)self_731153)->elements[2]; +c_731622.elements[3] = ((closureN)self_731153)->elements[3]; +c_731622.elements[4] = ((closureN)self_731153)->elements[4]; +c_731622.elements[5] = ((closureN)self_731153)->elements[5]; +c_731622.elements[6] = ((closureN)self_731153)->elements[6]; +c_731622.elements[7] = ((closureN)self_731153)->elements[7]; + + +make_cell(c_731661,new_91toks_73232); +return_closcall1(data,(closure)&c_731622, &c_731661);; +} + +static void __lambda_68(void *data, int argc, object self_731154, object new_91toks_73232) { + +closureN_type c_731624; +c_731624.hdr.mark = gc_color_red; + c_731624.hdr.grayed = 0; +c_731624.tag = closureN_tag; + c_731624.fn = (function_type)__lambda_67; +c_731624.num_args = 1; +c_731624.num_elements = 9; +c_731624.elements = (object *)alloca(sizeof(object) * 9); +c_731624.elements[0] = ((closureN)self_731154)->elements[0]; +c_731624.elements[1] = ((closureN)self_731154)->elements[1]; +c_731624.elements[2] = ((closureN)self_731154)->elements[2]; +c_731624.elements[3] = new_91toks_73232; +c_731624.elements[4] = ((closureN)self_731154)->elements[3]; +c_731624.elements[5] = ((closureN)self_731154)->elements[4]; +c_731624.elements[6] = ((closureN)self_731154)->elements[5]; +c_731624.elements[7] = ((closureN)self_731154)->elements[6]; +c_731624.elements[8] = ((closureN)self_731154)->elements[7]; + +return_closcall1(data,(closure)&c_731624, quote_quote);; +} + +static void __lambda_67(void *data, int argc, object self_731155, object r_73541) { + +closureN_type c_731626; +c_731626.hdr.mark = gc_color_red; + c_731626.hdr.grayed = 0; +c_731626.tag = closureN_tag; + c_731626.fn = (function_type)__lambda_66; +c_731626.num_args = 1; +c_731626.num_elements = 8; +c_731626.elements = (object *)alloca(sizeof(object) * 8); +c_731626.elements[0] = ((closureN)self_731155)->elements[0]; +c_731626.elements[1] = ((closureN)self_731155)->elements[1]; +c_731626.elements[2] = ((closureN)self_731155)->elements[2]; +c_731626.elements[3] = ((closureN)self_731155)->elements[3]; +c_731626.elements[4] = ((closureN)self_731155)->elements[4]; +c_731626.elements[5] = ((closureN)self_731155)->elements[5]; +c_731626.elements[6] = ((closureN)self_731155)->elements[7]; +c_731626.elements[7] = ((closureN)self_731155)->elements[8]; + +return_closcall3(data, __glo__list_scheme_base, &c_731626, r_73541, ((closureN)self_731155)->elements[6]);; +} + +static void __lambda_66(void *data, int argc, object self_731156, object r_73539) { + +closureN_type c_731628; +c_731628.hdr.mark = gc_color_red; + c_731628.hdr.grayed = 0; +c_731628.tag = closureN_tag; + c_731628.fn = (function_type)__lambda_65; +c_731628.num_args = 1; +c_731628.num_elements = 7; +c_731628.elements = (object *)alloca(sizeof(object) * 7); +c_731628.elements[0] = ((closureN)self_731156)->elements[0]; +c_731628.elements[1] = ((closureN)self_731156)->elements[1]; +c_731628.elements[2] = ((closureN)self_731156)->elements[2]; +c_731628.elements[3] = ((closureN)self_731156)->elements[3]; +c_731628.elements[4] = ((closureN)self_731156)->elements[4]; +c_731628.elements[5] = ((closureN)self_731156)->elements[5]; +c_731628.elements[6] = r_73539; + +return_closcall3(data, __glo_get_91toks_scheme_read, &c_731628, ((closureN)self_731156)->elements[6], ((closureN)self_731156)->elements[7]);; +} + +static void __lambda_65(void *data, int argc, object self_731157, object r_73540) { + +closureN_type c_731630; +c_731630.hdr.mark = gc_color_red; + c_731630.hdr.grayed = 0; +c_731630.tag = closureN_tag; + c_731630.fn = (function_type)__lambda_64; +c_731630.num_args = 1; +c_731630.num_elements = 6; +c_731630.elements = (object *)alloca(sizeof(object) * 6); +c_731630.elements[0] = ((closureN)self_731157)->elements[0]; +c_731630.elements[1] = ((closureN)self_731157)->elements[1]; +c_731630.elements[2] = ((closureN)self_731157)->elements[2]; +c_731630.elements[3] = ((closureN)self_731157)->elements[3]; +c_731630.elements[4] = ((closureN)self_731157)->elements[4]; +c_731630.elements[5] = ((closureN)self_731157)->elements[5]; + +return_closcall3(data, __glo_add_91tok_scheme_read, &c_731630, ((closureN)self_731157)->elements[6], r_73540);; +} + +static void __lambda_64(void *data, int argc, object self_731158, object r_73538) { + +closureN_type c_731632; +c_731632.hdr.mark = gc_color_red; + c_731632.hdr.grayed = 0; +c_731632.tag = closureN_tag; + c_731632.fn = (function_type)__lambda_63; +c_731632.num_args = 1; +c_731632.num_elements = 6; +c_731632.elements = (object *)alloca(sizeof(object) * 6); +c_731632.elements[0] = ((closureN)self_731158)->elements[0]; +c_731632.elements[1] = ((closureN)self_731158)->elements[1]; +c_731632.elements[2] = ((closureN)self_731158)->elements[2]; +c_731632.elements[3] = ((closureN)self_731158)->elements[3]; +c_731632.elements[4] = ((closureN)self_731158)->elements[4]; +c_731632.elements[5] = ((closureN)self_731158)->elements[5]; + +return_closcall1(data,(closure)&c_731632, Cyc_set_car(data, ((closureN)self_731158)->elements[3], r_73538));; +} + +static void __lambda_63(void *data, int argc, object self_731159, object r_73536) { + if( (boolean_f != ((closureN)self_731159)->elements[0]) ){ + +closureN_type c_731635; +c_731635.hdr.mark = gc_color_red; + c_731635.hdr.grayed = 0; +c_731635.tag = closureN_tag; + c_731635.fn = (function_type)__lambda_62; +c_731635.num_args = 1; +c_731635.num_elements = 6; +c_731635.elements = (object *)alloca(sizeof(object) * 6); +c_731635.elements[0] = ((closureN)self_731159)->elements[0]; +c_731635.elements[1] = ((closureN)self_731159)->elements[1]; +c_731635.elements[2] = ((closureN)self_731159)->elements[2]; +c_731635.elements[3] = ((closureN)self_731159)->elements[3]; +c_731635.elements[4] = ((closureN)self_731159)->elements[4]; +c_731635.elements[5] = ((closureN)self_731159)->elements[5]; + +return_closcall1(data,(closure)&c_731635, NULL); +} else { + return_closcall1(data, ((closureN)self_731159)->elements[2], car(cell_get(((closureN)self_731159)->elements[3])));} +; +} + +static void __lambda_62(void *data, int argc, object self_731160, object r_73537) { + return_closcall8(data, __glo_parse_scheme_read, ((closureN)self_731160)->elements[2], ((closureN)self_731160)->elements[1], r_73537, cell_get(((closureN)self_731160)->elements[3]), ((closureN)self_731160)->elements[0], boolean_f, ((closureN)self_731160)->elements[4], ((closureN)self_731160)->elements[5]);; +} + +static void __lambda_61(void *data, int argc, object self_731161, object r_73532) { + +closureN_type c_731602; +c_731602.hdr.mark = gc_color_red; + c_731602.hdr.grayed = 0; +c_731602.tag = closureN_tag; + c_731602.fn = (function_type)__lambda_60; +c_731602.num_args = 1; +c_731602.num_elements = 2; +c_731602.elements = (object *)alloca(sizeof(object) * 2); +c_731602.elements[0] = ((closureN)self_731161)->elements[0]; +c_731602.elements[1] = ((closureN)self_731161)->elements[2]; + +return_closcall2(data, __glo__91_125tok_scheme_read, &c_731602, ((closureN)self_731161)->elements[1]);; +} + +static void __lambda_60(void *data, int argc, object self_731162, object r_73534) { + +closureN_type c_731604; +c_731604.hdr.mark = gc_color_red; + c_731604.hdr.grayed = 0; +c_731604.tag = closureN_tag; + c_731604.fn = (function_type)__lambda_59; +c_731604.num_args = 1; +c_731604.num_elements = 1; +c_731604.elements = (object *)alloca(sizeof(object) * 1); +c_731604.elements[0] = ((closureN)self_731162)->elements[0]; + +return_closcall3(data, __glo_add_91tok_scheme_read, &c_731604, r_73534, ((closureN)self_731162)->elements[1]);; +} + +static void __lambda_59(void *data, int argc, object self_731163, object r_73533) { + return_closcall1(data, ((closureN)self_731163)->elements[0], car(r_73533));; +} + +static void __lambda_58(void *data, int argc, object self_731164, object k_73544) { + if( (boolean_f != ((closureN)self_731164)->elements[0]) ){ + return_closcall1(data, k_73544, boolean_f); +} else { + return_closcall2(data, __glo_not_scheme_base, k_73544, Cyc_is_null(((closureN)self_731164)->elements[1]));} +; +} + +static void __lambda_57(void *data, int argc, object self_731165, object r_73521) { + +closureN_type c_731558; +c_731558.hdr.mark = gc_color_red; + c_731558.hdr.grayed = 0; +c_731558.tag = closureN_tag; + c_731558.fn = (function_type)__lambda_55; +c_731558.num_args = 0; +c_731558.num_elements = 2; +c_731558.elements = (object *)alloca(sizeof(object) * 2); +c_731558.elements[0] = ((closureN)self_731165)->elements[1]; +c_731558.elements[1] = ((closureN)self_731165)->elements[5]; + + +closureN_type c_731565; +c_731565.hdr.mark = gc_color_red; + c_731565.hdr.grayed = 0; +c_731565.tag = closureN_tag; + c_731565.fn = (function_type)__lambda_56; +c_731565.num_args = 1; +c_731565.num_elements = 8; +c_731565.elements = (object *)alloca(sizeof(object) * 8); +c_731565.elements[0] = ((closureN)self_731165)->elements[0]; +c_731565.elements[1] = ((closureN)self_731165)->elements[1]; +c_731565.elements[2] = ((closureN)self_731165)->elements[2]; +c_731565.elements[3] = ((closureN)self_731165)->elements[3]; +c_731565.elements[4] = ((closureN)self_731165)->elements[4]; +c_731565.elements[5] = ((closureN)self_731165)->elements[5]; +c_731565.elements[6] = ((closureN)self_731165)->elements[6]; +c_731565.elements[7] = ((closureN)self_731165)->elements[7]; + +return_closcall1(data,(closure)&c_731558, &c_731565);; +} + +static void __lambda_56(void *data, int argc, object self_731166, object r_73522) { + return_closcall9(data, __glo_parse_95tok_scheme_read, ((closureN)self_731166)->elements[3], ((closureN)self_731166)->elements[2], ((closureN)self_731166)->elements[6], ((closureN)self_731166)->elements[7], ((closureN)self_731166)->elements[0], boolean_f, ((closureN)self_731166)->elements[4], ((closureN)self_731166)->elements[5], ((closureN)self_731166)->elements[1]);; +} + +static void __lambda_55(void *data, int argc, object self_731167, object k_73523) { + if( (boolean_f != equalp(((closureN)self_731167)->elements[0], obj_char2obj(10))) ){ + return_closcall3(data, __glo_in_91port_117set_91cnum_67_scheme_read, k_73523, ((closureN)self_731167)->elements[1], obj_int2obj(0)); +} else { + return_closcall1(data, k_73523, boolean_f);} +; +} + +static void __lambda_54(void *data, int argc, object self_731168, object k_73525) { + if( (boolean_f != equalp(((closureN)self_731168)->elements[0], obj_char2obj(10))) ){ + +closureN_type c_731545; +c_731545.hdr.mark = gc_color_red; + c_731545.hdr.grayed = 0; +c_731545.tag = closureN_tag; + c_731545.fn = (function_type)__lambda_53; +c_731545.num_args = 1; +c_731545.num_elements = 2; +c_731545.elements = (object *)alloca(sizeof(object) * 2); +c_731545.elements[0] = k_73525; +c_731545.elements[1] = ((closureN)self_731168)->elements[1]; + +return_closcall2(data, __glo_in_91port_117get_91lnum_scheme_read, &c_731545, ((closureN)self_731168)->elements[1]); +} else { + return_closcall1(data, k_73525, boolean_f);} +; +} + +static void __lambda_53(void *data, int argc, object self_731169, object r_73528) { + +closureN_type c_731547; +c_731547.hdr.mark = gc_color_red; + c_731547.hdr.grayed = 0; +c_731547.tag = closureN_tag; + c_731547.fn = (function_type)__lambda_52; +c_731547.num_args = 1; +c_731547.num_elements = 2; +c_731547.elements = (object *)alloca(sizeof(object) * 2); +c_731547.elements[0] = ((closureN)self_731169)->elements[0]; +c_731547.elements[1] = ((closureN)self_731169)->elements[1]; + + +object c_731553 = Cyc_sum(data,(closure)&c_731547,2,obj_int2obj(1), r_73528); +return_closcall1(data,(closure)&c_731547, c_731553);; +} + +static void __lambda_52(void *data, int argc, object self_731170, object r_73527) { + return_closcall3(data, __glo_in_91port_117set_91lnum_67_scheme_read, ((closureN)self_731170)->elements[0], ((closureN)self_731170)->elements[1], r_73527);; +} + +static void __lambda_51(void *data, int argc, object self_731171, object r_73519) { + return_closcall8(data, __glo_parse_scheme_read, ((closureN)self_731171)->elements[2], ((closureN)self_731171)->elements[1], r_73519, ((closureN)self_731171)->elements[5], ((closureN)self_731171)->elements[0], boolean_t, ((closureN)self_731171)->elements[3], ((closureN)self_731171)->elements[4]);; +} + +static void __lambda_50(void *data, int argc, object self_731172, object r_73518) { + +closureN_type c_731508; +c_731508.hdr.mark = gc_color_red; + c_731508.hdr.grayed = 0; +c_731508.tag = closureN_tag; + c_731508.fn = (function_type)__lambda_49; +c_731508.num_args = 1; +c_731508.num_elements = 6; +c_731508.elements = (object *)alloca(sizeof(object) * 6); +c_731508.elements[0] = ((closureN)self_731172)->elements[0]; +c_731508.elements[1] = ((closureN)self_731172)->elements[1]; +c_731508.elements[2] = ((closureN)self_731172)->elements[2]; +c_731508.elements[3] = ((closureN)self_731172)->elements[3]; +c_731508.elements[4] = ((closureN)self_731172)->elements[4]; +c_731508.elements[5] = ((closureN)self_731172)->elements[5]; + + +object c_731526 = Cyc_sum(data,(closure)&c_731508,2,obj_int2obj(1), r_73518); +return_closcall1(data,(closure)&c_731508, c_731526);; +} + +static void __lambda_49(void *data, int argc, object self_731173, object r_73517) { + +closureN_type c_731510; +c_731510.hdr.mark = gc_color_red; + c_731510.hdr.grayed = 0; +c_731510.tag = closureN_tag; + c_731510.fn = (function_type)__lambda_48; +c_731510.num_args = 1; +c_731510.num_elements = 6; +c_731510.elements = (object *)alloca(sizeof(object) * 6); +c_731510.elements[0] = ((closureN)self_731173)->elements[0]; +c_731510.elements[1] = ((closureN)self_731173)->elements[1]; +c_731510.elements[2] = ((closureN)self_731173)->elements[2]; +c_731510.elements[3] = ((closureN)self_731173)->elements[3]; +c_731510.elements[4] = ((closureN)self_731173)->elements[4]; +c_731510.elements[5] = ((closureN)self_731173)->elements[5]; + +return_closcall3(data, __glo_in_91port_117set_91lnum_67_scheme_read, &c_731510, ((closureN)self_731173)->elements[4], r_73517);; +} + +static void __lambda_48(void *data, int argc, object self_731174, object r_73514) { + +closureN_type c_731512; +c_731512.hdr.mark = gc_color_red; + c_731512.hdr.grayed = 0; +c_731512.tag = closureN_tag; + c_731512.fn = (function_type)__lambda_47; +c_731512.num_args = 1; +c_731512.num_elements = 6; +c_731512.elements = (object *)alloca(sizeof(object) * 6); +c_731512.elements[0] = ((closureN)self_731174)->elements[0]; +c_731512.elements[1] = ((closureN)self_731174)->elements[1]; +c_731512.elements[2] = ((closureN)self_731174)->elements[2]; +c_731512.elements[3] = ((closureN)self_731174)->elements[3]; +c_731512.elements[4] = ((closureN)self_731174)->elements[4]; +c_731512.elements[5] = ((closureN)self_731174)->elements[5]; + +return_closcall3(data, __glo_in_91port_117set_91cnum_67_scheme_read, &c_731512, ((closureN)self_731174)->elements[4], obj_int2obj(0));; +} + +static void __lambda_47(void *data, int argc, object self_731175, object r_73515) { + +closureN_type c_731514; +c_731514.hdr.mark = gc_color_red; + c_731514.hdr.grayed = 0; +c_731514.tag = closureN_tag; + c_731514.fn = (function_type)__lambda_46; +c_731514.num_args = 1; +c_731514.num_elements = 6; +c_731514.elements = (object *)alloca(sizeof(object) * 6); +c_731514.elements[0] = ((closureN)self_731175)->elements[0]; +c_731514.elements[1] = ((closureN)self_731175)->elements[1]; +c_731514.elements[2] = ((closureN)self_731175)->elements[2]; +c_731514.elements[3] = ((closureN)self_731175)->elements[3]; +c_731514.elements[4] = ((closureN)self_731175)->elements[4]; +c_731514.elements[5] = ((closureN)self_731175)->elements[5]; + +return_closcall1(data,(closure)&c_731514, NULL);; +} + +static void __lambda_46(void *data, int argc, object self_731176, object r_73516) { + return_closcall8(data, __glo_parse_scheme_read, ((closureN)self_731176)->elements[2], ((closureN)self_731176)->elements[1], r_73516, ((closureN)self_731176)->elements[5], ((closureN)self_731176)->elements[0], boolean_f, ((closureN)self_731176)->elements[3], ((closureN)self_731176)->elements[4]);; +} + +static void __lambda_45(void *data, int argc, object self_731177, object r_73504) { + if( (boolean_f != ((closureN)self_731177)->elements[0]) ){ + +closureN_type c_731477; +c_731477.hdr.mark = gc_color_red; + c_731477.hdr.grayed = 0; +c_731477.tag = closureN_tag; + c_731477.fn = (function_type)__lambda_42; +c_731477.num_args = 1; +c_731477.num_elements = 1; +c_731477.elements = (object *)alloca(sizeof(object) * 1); +c_731477.elements[0] = ((closureN)self_731177)->elements[2]; + +return_closcall3(data, __glo_get_91toks_scheme_read, &c_731477, ((closureN)self_731177)->elements[3], ((closureN)self_731177)->elements[4]); +} else { + +closureN_type c_731483; +c_731483.hdr.mark = gc_color_red; + c_731483.hdr.grayed = 0; +c_731483.tag = closureN_tag; + c_731483.fn = (function_type)__lambda_44; +c_731483.num_args = 1; +c_731483.num_elements = 2; +c_731483.elements = (object *)alloca(sizeof(object) * 2); +c_731483.elements[0] = ((closureN)self_731177)->elements[1]; +c_731483.elements[1] = ((closureN)self_731177)->elements[2]; + +return_closcall3(data, __glo_get_91toks_scheme_read, &c_731483, ((closureN)self_731177)->elements[3], ((closureN)self_731177)->elements[4]);} +; +} + +static void __lambda_44(void *data, int argc, object self_731178, object last_73233) { + +closureN_type c_731485; +c_731485.hdr.mark = gc_color_red; + c_731485.hdr.grayed = 0; +c_731485.tag = closureN_tag; + c_731485.fn = (function_type)__lambda_43; +c_731485.num_args = 1; +c_731485.num_elements = 3; +c_731485.elements = (object *)alloca(sizeof(object) * 3); +c_731485.elements[0] = ((closureN)self_731178)->elements[0]; +c_731485.elements[1] = ((closureN)self_731178)->elements[1]; +c_731485.elements[2] = last_73233; + + +object c_731496 = Cyc_num_gt(data,(closure)&c_731485,2,Cyc_length(data, last_73233), obj_int2obj(0)); +return_closcall1(data,(closure)&c_731485, c_731496);; +} + +static void __lambda_43(void *data, int argc, object self_731179, object r_73507) { + if( (boolean_f != r_73507) ){ + return_closcall1(data, ((closureN)self_731179)->elements[1], car(((closureN)self_731179)->elements[2])); +} else { + return_closcall1(data, ((closureN)self_731179)->elements[1], ((closureN)self_731179)->elements[0]);} +; +} + +static void __lambda_42(void *data, int argc, object self_731180, object r_73505) { + return_closcall2(data, __glo_reverse_scheme_base, ((closureN)self_731180)->elements[0], r_73505);; +} + +static void __lambda_41(void *data, int argc, object self_731181, object k_73509) { + +closureN_type c_731457; +c_731457.hdr.mark = gc_color_red; + c_731457.hdr.grayed = 0; +c_731457.tag = closureN_tag; + c_731457.fn = (function_type)__lambda_40; +c_731457.num_args = 1; +c_731457.num_elements = 2; +c_731457.elements = (object *)alloca(sizeof(object) * 2); +c_731457.elements[0] = k_73509; +c_731457.elements[1] = ((closureN)self_731181)->elements[1]; + + +object c_731472 = Cyc_num_gt(data,(closure)&c_731457,2,((closureN)self_731181)->elements[0], obj_int2obj(0)); +return_closcall1(data,(closure)&c_731457, c_731472);; +} + +static void __lambda_40(void *data, int argc, object self_731182, object r_73510) { + if( (boolean_f != r_73510) ){ + +closureN_type c_731459; +c_731459.hdr.mark = gc_color_red; + c_731459.hdr.grayed = 0; +c_731459.tag = closureN_tag; + c_731459.fn = (function_type)__lambda_39; +c_731459.num_args = 1; +c_731459.num_elements = 2; +c_731459.elements = (object *)alloca(sizeof(object) * 2); +c_731459.elements[0] = ((closureN)self_731182)->elements[0]; +c_731459.elements[1] = ((closureN)self_731182)->elements[1]; + +return_closcall2(data, __glo_in_91port_117get_91lnum_scheme_read, &c_731459, ((closureN)self_731182)->elements[1]); +} else { + return_closcall1(data, ((closureN)self_731182)->elements[0], boolean_f);} +; +} + +static void __lambda_39(void *data, int argc, object self_731183, object r_73511) { + +closureN_type c_731461; +c_731461.hdr.mark = gc_color_red; + c_731461.hdr.grayed = 0; +c_731461.tag = closureN_tag; + c_731461.fn = (function_type)__lambda_38; +c_731461.num_args = 1; +c_731461.num_elements = 2; +c_731461.elements = (object *)alloca(sizeof(object) * 2); +c_731461.elements[0] = ((closureN)self_731183)->elements[0]; +c_731461.elements[1] = r_73511; + +return_closcall2(data, __glo_in_91port_117get_91cnum_scheme_read, &c_731461, ((closureN)self_731183)->elements[1]);; +} + +static void __lambda_38(void *data, int argc, object self_731184, object r_73512) { + +make_string(c_731464, "missing closing parenthesis"); +return_closcall4(data, __glo_parse_91error_scheme_read, ((closureN)self_731184)->elements[0], &c_731464, ((closureN)self_731184)->elements[1], r_73512);; +} + +static void __lambda_37(void *data, int argc, object self_731185, object k_73745) { + +closureN_type c_731427; +c_731427.hdr.mark = gc_color_red; + c_731427.hdr.grayed = 0; +c_731427.tag = closureN_tag; + c_731427.fn = (function_type)__lambda_36; +c_731427.num_args = 1; +c_731427.num_elements = 3; +c_731427.elements = (object *)alloca(sizeof(object) * 3); +c_731427.elements[0] = ((closureN)self_731185)->elements[0]; +c_731427.elements[1] = k_73745; +c_731427.elements[2] = ((closureN)self_731185)->elements[1]; + +return_closcall2(data, __glo_in_91port_117get_91buf_scheme_read, &c_731427, ((closureN)self_731185)->elements[1]);; +} + +static void __lambda_36(void *data, int argc, object self_731186, object r_73746) { + if( (boolean_f != r_73746) ){ + return_closcall2(data, __glo_in_91port_117read_91buf_67_scheme_read, ((closureN)self_731186)->elements[1], ((closureN)self_731186)->elements[2]); +} else { + +object c_731435 = Cyc_io_read_char(data, ((closureN)self_731186)->elements[1],((closureN)self_731186)->elements[0]); +return_closcall1(data, ((closureN)self_731186)->elements[1], c_731435);} +; +} + +static void __lambda_35(void *data, int argc, closure _,object k_73751, object fp_73241, object tok_73240, object toks_73239, object all_127_73238, object comment_127_73237, object parens_73236, object ptbl_73235, object curr_91char_73234) { + Cyc_st_add(data, "scheme/read.sld:parse/tok"); +if( (boolean_f != Cyc_is_null(tok_73240)) ){ + +closureN_type c_731380; +c_731380.hdr.mark = gc_color_red; + c_731380.hdr.grayed = 0; +c_731380.tag = closureN_tag; + c_731380.fn = (function_type)__lambda_28; +c_731380.num_args = 1; +c_731380.num_elements = 7; +c_731380.elements = (object *)alloca(sizeof(object) * 7); +c_731380.elements[0] = all_127_73238; +c_731380.elements[1] = comment_127_73237; +c_731380.elements[2] = fp_73241; +c_731380.elements[3] = k_73751; +c_731380.elements[4] = parens_73236; +c_731380.elements[5] = ptbl_73235; +c_731380.elements[6] = toks_73239; + +return_closcall1(data,(closure)&c_731380, NULL); +} else { + if( (boolean_f != all_127_73238) ){ + +closureN_type c_731390; +c_731390.hdr.mark = gc_color_red; + c_731390.hdr.grayed = 0; +c_731390.tag = closureN_tag; + c_731390.fn = (function_type)__lambda_31; +c_731390.num_args = 1; +c_731390.num_elements = 8; +c_731390.elements = (object *)alloca(sizeof(object) * 8); +c_731390.elements[0] = all_127_73238; +c_731390.elements[1] = comment_127_73237; +c_731390.elements[2] = fp_73241; +c_731390.elements[3] = k_73751; +c_731390.elements[4] = parens_73236; +c_731390.elements[5] = ptbl_73235; +c_731390.elements[6] = tok_73240; +c_731390.elements[7] = toks_73239; + +return_closcall1(data,(closure)&c_731390, NULL); +} else { + +closureN_type c_731406; +c_731406.hdr.mark = gc_color_red; + c_731406.hdr.grayed = 0; +c_731406.tag = closureN_tag; + c_731406.fn = (function_type)__lambda_34; +c_731406.num_args = 1; +c_731406.num_elements = 3; +c_731406.elements = (object *)alloca(sizeof(object) * 3); +c_731406.elements[0] = k_73751; +c_731406.elements[1] = tok_73240; +c_731406.elements[2] = toks_73239; + +return_closcall3(data, __glo_in_91port_117set_91buf_67_scheme_read, &c_731406, ptbl_73235, curr_91char_73234);} +} +; +} + +static void __lambda_34(void *data, int argc, object self_731187, object r_73757) { + +closureN_type c_731408; +c_731408.hdr.mark = gc_color_red; + c_731408.hdr.grayed = 0; +c_731408.tag = closureN_tag; + c_731408.fn = (function_type)__lambda_33; +c_731408.num_args = 1; +c_731408.num_elements = 2; +c_731408.elements = (object *)alloca(sizeof(object) * 2); +c_731408.elements[0] = ((closureN)self_731187)->elements[0]; +c_731408.elements[1] = ((closureN)self_731187)->elements[2]; + +return_closcall2(data, __glo__91_125tok_scheme_read, &c_731408, ((closureN)self_731187)->elements[1]);; +} + +static void __lambda_33(void *data, int argc, object self_731188, object r_73759) { + +closureN_type c_731410; +c_731410.hdr.mark = gc_color_red; + c_731410.hdr.grayed = 0; +c_731410.tag = closureN_tag; + c_731410.fn = (function_type)__lambda_32; +c_731410.num_args = 1; +c_731410.num_elements = 1; +c_731410.elements = (object *)alloca(sizeof(object) * 1); +c_731410.elements[0] = ((closureN)self_731188)->elements[0]; + +return_closcall3(data, __glo_add_91tok_scheme_read, &c_731410, r_73759, ((closureN)self_731188)->elements[1]);; +} + +static void __lambda_32(void *data, int argc, object self_731189, object r_73758) { + return_closcall1(data, ((closureN)self_731189)->elements[0], car(r_73758));; +} + +static void __lambda_31(void *data, int argc, object self_731190, object r_73754) { + +closureN_type c_731392; +c_731392.hdr.mark = gc_color_red; + c_731392.hdr.grayed = 0; +c_731392.tag = closureN_tag; + c_731392.fn = (function_type)__lambda_30; +c_731392.num_args = 1; +c_731392.num_elements = 8; +c_731392.elements = (object *)alloca(sizeof(object) * 8); +c_731392.elements[0] = ((closureN)self_731190)->elements[0]; +c_731392.elements[1] = ((closureN)self_731190)->elements[1]; +c_731392.elements[2] = ((closureN)self_731190)->elements[2]; +c_731392.elements[3] = ((closureN)self_731190)->elements[3]; +c_731392.elements[4] = ((closureN)self_731190)->elements[4]; +c_731392.elements[5] = ((closureN)self_731190)->elements[5]; +c_731392.elements[6] = r_73754; +c_731392.elements[7] = ((closureN)self_731190)->elements[7]; + +return_closcall2(data, __glo__91_125tok_scheme_read, &c_731392, ((closureN)self_731190)->elements[6]);; +} + +static void __lambda_30(void *data, int argc, object self_731191, object r_73756) { + +closureN_type c_731394; +c_731394.hdr.mark = gc_color_red; + c_731394.hdr.grayed = 0; +c_731394.tag = closureN_tag; + c_731394.fn = (function_type)__lambda_29; +c_731394.num_args = 1; +c_731394.num_elements = 7; +c_731394.elements = (object *)alloca(sizeof(object) * 7); +c_731394.elements[0] = ((closureN)self_731191)->elements[0]; +c_731394.elements[1] = ((closureN)self_731191)->elements[1]; +c_731394.elements[2] = ((closureN)self_731191)->elements[2]; +c_731394.elements[3] = ((closureN)self_731191)->elements[3]; +c_731394.elements[4] = ((closureN)self_731191)->elements[4]; +c_731394.elements[5] = ((closureN)self_731191)->elements[5]; +c_731394.elements[6] = ((closureN)self_731191)->elements[6]; + +return_closcall3(data, __glo_add_91tok_scheme_read, &c_731394, r_73756, ((closureN)self_731191)->elements[7]);; +} + +static void __lambda_29(void *data, int argc, object self_731192, object r_73755) { + return_closcall8(data, __glo_parse_scheme_read, ((closureN)self_731192)->elements[3], ((closureN)self_731192)->elements[2], ((closureN)self_731192)->elements[6], r_73755, ((closureN)self_731192)->elements[0], ((closureN)self_731192)->elements[1], ((closureN)self_731192)->elements[4], ((closureN)self_731192)->elements[5]);; +} + +static void __lambda_28(void *data, int argc, object self_731193, object r_73753) { + return_closcall8(data, __glo_parse_scheme_read, ((closureN)self_731193)->elements[3], ((closureN)self_731193)->elements[2], r_73753, ((closureN)self_731193)->elements[6], ((closureN)self_731193)->elements[0], ((closureN)self_731193)->elements[1], ((closureN)self_731193)->elements[4], ((closureN)self_731193)->elements[5]);; +} + +static void __lambda_27(void *data, int argc, closure _,object k_73762, object msg_73244, object lnum_73243, object cnum_73242) { + Cyc_st_add(data, "scheme/read.sld:parse-error"); + +closureN_type c_731354; +c_731354.hdr.mark = gc_color_red; + c_731354.hdr.grayed = 0; +c_731354.tag = closureN_tag; + c_731354.fn = (function_type)__lambda_26; +c_731354.num_args = 1; +c_731354.num_elements = 3; +c_731354.elements = (object *)alloca(sizeof(object) * 3); +c_731354.elements[0] = cnum_73242; +c_731354.elements[1] = k_73762; +c_731354.elements[2] = msg_73244; + + +object c_731375 = Cyc_number2string2(data,(closure)&c_731354,1,lnum_73243); +return_closcall1(data,(closure)&c_731354, c_731375);; +} + +static void __lambda_26(void *data, int argc, object self_731194, object r_73764) { + +closureN_type c_731356; +c_731356.hdr.mark = gc_color_red; + c_731356.hdr.grayed = 0; +c_731356.tag = closureN_tag; + c_731356.fn = (function_type)__lambda_25; +c_731356.num_args = 1; +c_731356.num_elements = 3; +c_731356.elements = (object *)alloca(sizeof(object) * 3); +c_731356.elements[0] = ((closureN)self_731194)->elements[1]; +c_731356.elements[1] = ((closureN)self_731194)->elements[2]; +c_731356.elements[2] = r_73764; + + +object c_731371 = Cyc_number2string2(data,(closure)&c_731356,1,((closureN)self_731194)->elements[0]); +return_closcall1(data,(closure)&c_731356, c_731371);; +} + +static void __lambda_25(void *data, int argc, object self_731195, object r_73765) { + +closureN_type c_731358; +c_731358.hdr.mark = gc_color_red; + c_731358.hdr.grayed = 0; +c_731358.tag = closureN_tag; + c_731358.fn = (function_type)__lambda_24; +c_731358.num_args = 1; +c_731358.num_elements = 1; +c_731358.elements = (object *)alloca(sizeof(object) * 1); +c_731358.elements[0] = ((closureN)self_731195)->elements[0]; + + +make_string(c_731364, "Error (line "); + +make_string(c_731366, ", char "); + +make_string(c_731367, "): "); + +object c_731363 = Cyc_string_append(data,(closure)&c_731358,6,&c_731364, ((closureN)self_731195)->elements[2], &c_731366, r_73765, &c_731367, ((closureN)self_731195)->elements[1]); +return_closcall1(data,(closure)&c_731358, c_731363);; +} + +static void __lambda_24(void *data, int argc, object self_731196, object r_73763) { + return_closcall2(data, __glo_error_scheme_base, ((closureN)self_731196)->elements[0], r_73763);; +} + +static void __lambda_23(void *data, int argc, closure _,object k_73768, object lst_73245) { + Cyc_st_add(data, "scheme/read.sld:->dotted-list"); +if( (boolean_f != Cyc_is_null(lst_73245)) ){ + return_closcall1(data, k_73768, NULL); +} else { + make_string(c_731336, "."); +if( (boolean_f != equalp(car(lst_73245), Cyc_string2symbol(data, &c_731336))) ){ + return_closcall1(data, k_73768, cadr(lst_73245)); +} else { + +closureN_type c_731341; +c_731341.hdr.mark = gc_color_red; + c_731341.hdr.grayed = 0; +c_731341.tag = closureN_tag; + c_731341.fn = (function_type)__lambda_22; +c_731341.num_args = 1; +c_731341.num_elements = 2; +c_731341.elements = (object *)alloca(sizeof(object) * 2); +c_731341.elements[0] = k_73768; +c_731341.elements[1] = lst_73245; + +return_closcall2(data, __glo__91_125dotted_91list_scheme_read, &c_731341, cdr(lst_73245));} +} +; +} + +static void __lambda_22(void *data, int argc, object self_731197, object r_73772) { + +make_pair(c_731346,car(((closureN)self_731197)->elements[1]), r_73772); +return_closcall1(data, ((closureN)self_731197)->elements[0], &c_731346);; +} + +static void __lambda_21(void *data, int argc, closure _,object k_73778, object lst_73246) { + Cyc_st_add(data, "scheme/read.sld:dotted?"); + +closureN_type c_731306; +c_731306.hdr.mark = gc_color_red; + c_731306.hdr.grayed = 0; +c_731306.tag = closureN_tag; + c_731306.fn = (function_type)__lambda_20; +c_731306.num_args = 1; +c_731306.num_elements = 2; +c_731306.elements = (object *)alloca(sizeof(object) * 2); +c_731306.elements[0] = k_73778; +c_731306.elements[1] = lst_73246; + + +object c_731323 = Cyc_num_gt(data,(closure)&c_731306,2,Cyc_length(data, lst_73246), obj_int2obj(2)); +return_closcall1(data,(closure)&c_731306, c_731323);; +} + +static void __lambda_20(void *data, int argc, object self_731198, object r_73779) { + if( (boolean_f != r_73779) ){ + +closureN_type c_731308; +c_731308.hdr.mark = gc_color_red; + c_731308.hdr.grayed = 0; +c_731308.tag = closureN_tag; + c_731308.fn = (function_type)__lambda_19; +c_731308.num_args = 1; +c_731308.num_elements = 1; +c_731308.elements = (object *)alloca(sizeof(object) * 1); +c_731308.elements[0] = ((closureN)self_731198)->elements[0]; + +return_closcall2(data, __glo_reverse_scheme_base, &c_731308, ((closureN)self_731198)->elements[1]); +} else { + return_closcall1(data, ((closureN)self_731198)->elements[0], boolean_f);} +; +} + +static void __lambda_19(void *data, int argc, object self_731199, object r_73782) { + +make_string(c_731317, "."); +return_closcall1(data, ((closureN)self_731199)->elements[0], equalp(cadr(r_73782), Cyc_string2symbol(data, &c_731317)));; +} + +static void __lambda_18(void *data, int argc, closure _,object k_73786, object lst_73247) { + Cyc_st_add(data, "scheme/read.sld:->tok"); + +closureN_type c_731301; +c_731301.hdr.mark = gc_color_red; + c_731301.hdr.grayed = 0; +c_731301.tag = closureN_tag; + c_731301.fn = (function_type)__lambda_17; +c_731301.num_args = 1; +c_731301.num_elements = 1; +c_731301.elements = (object *)alloca(sizeof(object) * 1); +c_731301.elements[0] = k_73786; + +return_closcall2(data, __glo_reverse_scheme_base, &c_731301, lst_73247);; +} + +static void __lambda_17(void *data, int argc, object self_731200, object r_73787) { + return_closcall2(data, __glo_parse_91atom_scheme_read, ((closureN)self_731200)->elements[0], r_73787);; +} + +static void __lambda_16(void *data, int argc, closure _,object k_73790, object tok_73249, object toks_73248) { + Cyc_st_add(data, "scheme/read.sld:get-toks"); +if( (boolean_f != Cyc_is_null(tok_73249)) ){ + return_closcall1(data, k_73790, toks_73248); +} else { + +closureN_type c_731295; +c_731295.hdr.mark = gc_color_red; + c_731295.hdr.grayed = 0; +c_731295.tag = closureN_tag; + c_731295.fn = (function_type)__lambda_15; +c_731295.num_args = 1; +c_731295.num_elements = 2; +c_731295.elements = (object *)alloca(sizeof(object) * 2); +c_731295.elements[0] = k_73790; +c_731295.elements[1] = toks_73248; + +return_closcall2(data, __glo__91_125tok_scheme_read, &c_731295, tok_73249);} +; +} + +static void __lambda_15(void *data, int argc, object self_731201, object r_73792) { + return_closcall3(data, __glo_add_91tok_scheme_read, ((closureN)self_731201)->elements[0], r_73792, ((closureN)self_731201)->elements[1]);; +} + +static void __lambda_14(void *data, int argc, closure _,object k_73795, object tok_73251, object toks_73250) { + Cyc_st_add(data, "scheme/read.sld:add-tok"); + +make_pair(c_731289,tok_73251, toks_73250); +return_closcall1(data, k_73795, &c_731289);; +} + +static void __lambda_13(void *data, int argc, closure _,object k_73798, object ptbl_73253, object cnum_73252) { + Cyc_st_add(data, "scheme/read.sld:in-port:set-cnum!"); +return_closcall1(data, k_73798, Cyc_set_car(data, cdddr(ptbl_73253), cnum_73252));; +} + +static void __lambda_12(void *data, int argc, closure _,object k_73802, object ptbl_73254) { + Cyc_st_add(data, "scheme/read.sld:in-port:get-cnum"); +return_closcall1(data, k_73802, cadddr(ptbl_73254));; +} + +static void __lambda_11(void *data, int argc, closure _,object k_73805, object ptbl_73256, object lnum_73255) { + Cyc_st_add(data, "scheme/read.sld:in-port:set-lnum!"); +return_closcall1(data, k_73805, Cyc_set_car(data, cddr(ptbl_73256), lnum_73255));; +} + +static void __lambda_10(void *data, int argc, closure _,object k_73809, object ptbl_73257) { + Cyc_st_add(data, "scheme/read.sld:in-port:get-lnum"); +return_closcall1(data, k_73809, caddr(ptbl_73257));; +} + +static void __lambda_9(void *data, int argc, closure _,object k_73812, object ptbl_73259, object buf_73258) { + Cyc_st_add(data, "scheme/read.sld:in-port:set-buf!"); +return_closcall1(data, k_73812, Cyc_set_car(data, cdr(ptbl_73259), buf_73258));; +} + +static void __lambda_8(void *data, int argc, closure _,object k_73816, object ptbl_73260) { + Cyc_st_add(data, "scheme/read.sld:in-port:get-buf"); +return_closcall1(data, k_73816, cadr(ptbl_73260));; +} + +static void __lambda_7(void *data, int argc, closure _,object k_73819, object ptbl_73261) { + Cyc_st_add(data, "scheme/read.sld:in-port:read-buf!"); + +closureN_type c_731249; +c_731249.hdr.mark = gc_color_red; + c_731249.hdr.grayed = 0; +c_731249.tag = closureN_tag; + c_731249.fn = (function_type)__lambda_6; +c_731249.num_args = 1; +c_731249.num_elements = 2; +c_731249.elements = (object *)alloca(sizeof(object) * 2); +c_731249.elements[0] = k_73819; +c_731249.elements[1] = ptbl_73261; + +return_closcall3(data, __glo_in_91port_117set_91buf_67_scheme_read, &c_731249, ptbl_73261, boolean_f);; +} + +static void __lambda_6(void *data, int argc, object self_731202, object r_73821) { + return_closcall1(data, ((closureN)self_731202)->elements[0], cadr(((closureN)self_731202)->elements[1]));; +} + +static void __lambda_5(void *data, int argc, closure _,object k_73824, object fp_73263) { + Cyc_st_add(data, "scheme/read.sld:reg-port"); + +closureN_type c_731210; +c_731210.hdr.mark = gc_color_red; + c_731210.hdr.grayed = 0; +c_731210.tag = closureN_tag; + c_731210.fn = (function_type)__lambda_4; +c_731210.num_args = 1; +c_731210.num_elements = 2; +c_731210.elements = (object *)alloca(sizeof(object) * 2); +c_731210.elements[0] = fp_73263; +c_731210.elements[1] = k_73824; + +return_closcall1(data,(closure)&c_731210, assoc(data, fp_73263, __glo__85in_91port_91table_85_scheme_read));; +} + +static void __lambda_4(void *data, int argc, object self_731203, object r_73264) { + +closureN_type c_731212; +c_731212.hdr.mark = gc_color_red; + c_731212.hdr.grayed = 0; +c_731212.tag = closureN_tag; + c_731212.fn = (function_type)__lambda_3; +c_731212.num_args = 1; +c_731212.num_elements = 2; +c_731212.elements = (object *)alloca(sizeof(object) * 2); +c_731212.elements[0] = ((closureN)self_731203)->elements[0]; +c_731212.elements[1] = ((closureN)self_731203)->elements[1]; + + +make_cell(c_731244,r_73264); +return_closcall1(data,(closure)&c_731212, &c_731244);; +} + +static void __lambda_3(void *data, int argc, object self_731204, object r_73264) { + if( (boolean_f != cell_get(r_73264)) ){ + return_closcall1(data, ((closureN)self_731204)->elements[1], cell_get(r_73264)); +} else { + +closureN_type c_731220; +c_731220.hdr.mark = gc_color_red; + c_731220.hdr.grayed = 0; +c_731220.tag = closureN_tag; + c_731220.fn = (function_type)__lambda_2; +c_731220.num_args = 1; +c_731220.num_elements = 2; +c_731220.elements = (object *)alloca(sizeof(object) * 2); +c_731220.elements[0] = ((closureN)self_731204)->elements[1]; +c_731220.elements[1] = r_73264; + +return_closcall5(data, __glo__list_scheme_base, &c_731220, ((closureN)self_731204)->elements[0], boolean_f, obj_int2obj(1), obj_int2obj(0));} +; +} + +static void __lambda_2(void *data, int argc, object self_731205, object r_73829) { + +closureN_type c_731222; +c_731222.hdr.mark = gc_color_red; + c_731222.hdr.grayed = 0; +c_731222.tag = closureN_tag; + c_731222.fn = (function_type)__lambda_1; +c_731222.num_args = 1; +c_731222.num_elements = 2; +c_731222.elements = (object *)alloca(sizeof(object) * 2); +c_731222.elements[0] = ((closureN)self_731205)->elements[0]; +c_731222.elements[1] = ((closureN)self_731205)->elements[1]; + +return_closcall1(data,(closure)&c_731222, Cyc_set_car(data, ((closureN)self_731205)->elements[1], r_73829));; +} + +static void __lambda_1(void *data, int argc, object self_731206, object r_73826) { + +closureN_type c_731224; +c_731224.hdr.mark = gc_color_red; + c_731224.hdr.grayed = 0; +c_731224.tag = closureN_tag; + c_731224.fn = (function_type)__lambda_0; +c_731224.num_args = 1; +c_731224.num_elements = 2; +c_731224.elements = (object *)alloca(sizeof(object) * 2); +c_731224.elements[0] = ((closureN)self_731206)->elements[0]; +c_731224.elements[1] = ((closureN)self_731206)->elements[1]; + + +make_pair(c_731234,cell_get(((closureN)self_731206)->elements[1]), __glo__85in_91port_91table_85_scheme_read); +return_closcall1(data,(closure)&c_731224, global_set(__glo__85in_91port_91table_85_scheme_read, &c_731234));; +} + +static void __lambda_0(void *data, int argc, object self_731207, object r_73827) { + return_closcall1(data, ((closureN)self_731207)->elements[0], cell_get(((closureN)self_731207)->elements[1]));; +} + +void c_schemeread_entry_pt(data, argc, cont,value) void *data; int argc; closure cont; object value;{ + quote_DEBUG = find_or_add_symbol("DEBUG"); + quote_read = find_or_add_symbol("read"); + quote_unquote = find_or_add_symbol("unquote"); + quote_unquote_91splicing = find_or_add_symbol("unquote-splicing"); + quote_quasiquote = find_or_add_symbol("quasiquote"); + quote_quote = find_or_add_symbol("quote"); + + add_global((object *) &__glo_lib_91init_117schemeread_scheme_read); + add_global((object *) &__glo_read_91all_scheme_read); + add_global((object *) &__glo_cyc_91read_scheme_read); + add_global((object *) &__glo_hex_91digit_127_scheme_read); + add_global((object *) &__glo_parse_91number_91rec_scheme_read); + add_global((object *) &__glo_parse_91number_scheme_read); + add_global((object *) &__glo_parse_91li_91rec_scheme_read); + add_global((object *) &__glo_parse_91literal_91identifier_scheme_read); + add_global((object *) &__glo_read_91block_91terminator_scheme_read); + add_global((object *) &__glo_read_91block_91comment_scheme_read); + add_global((object *) &__glo_get_91next_91char_scheme_read); + add_global((object *) &__glo_parse_91atom_scheme_read); + add_global((object *) &__glo_token_91numeric_127_scheme_read); + add_global((object *) &__glo_sign_127_scheme_read); + add_global((object *) &__glo_read_91str_91esc_scheme_read); + add_global((object *) &__glo_read_91str_scheme_read); + add_global((object *) &__glo_read_91pound_scheme_read); + add_global((object *) &__glo_parse_scheme_read); + add_global((object *) &__glo_parse_95tok_scheme_read); + add_global((object *) &__glo_parse_91error_scheme_read); + add_global((object *) &__glo__91_125dotted_91list_scheme_read); + add_global((object *) &__glo_dotted_127_scheme_read); + add_global((object *) &__glo__91_125tok_scheme_read); + add_global((object *) &__glo_get_91toks_scheme_read); + add_global((object *) &__glo_add_91tok_scheme_read); + add_global((object *) &__glo_in_91port_117set_91cnum_67_scheme_read); + add_global((object *) &__glo_in_91port_117get_91cnum_scheme_read); + add_global((object *) &__glo_in_91port_117set_91lnum_67_scheme_read); + add_global((object *) &__glo_in_91port_117get_91lnum_scheme_read); + add_global((object *) &__glo_in_91port_117set_91buf_67_scheme_read); + add_global((object *) &__glo_in_91port_117get_91buf_scheme_read); + add_global((object *) &__glo_in_91port_117read_91buf_67_scheme_read); + add_global((object *) &__glo_reg_91port_scheme_read); + add_global((object *) &__glo__85in_91port_91table_85_scheme_read); + add_global((object *) &__glo_read_scheme_read); + add_symbol(quote_DEBUG); + add_symbol(quote_read); + add_symbol(quote_unquote); + add_symbol(quote_unquote_91splicing); + add_symbol(quote_quasiquote); + add_symbol(quote_quote); + mclosure0(c_733648, (function_type)__lambda_406);c_733648.num_args = 0; + __glo_lib_91init_117schemeread_scheme_read = &c_733648; + mclosure0(c_733596, (function_type)__lambda_403);c_733596.num_args = 0; + __glo_read_91all_scheme_read = &c_733596; + mclosure0(c_733572, (function_type)__lambda_393);c_733572.num_args = 0; + __glo_cyc_91read_scheme_read = &c_733572; + mclosure0(c_733550, (function_type)__lambda_387);c_733550.num_args = 1; + __glo_hex_91digit_127_scheme_read = &c_733550; + mclosure0(c_733442, (function_type)__lambda_382);c_733442.num_args = 4; + __glo_parse_91number_91rec_scheme_read = &c_733442; + mclosure0(c_733369, (function_type)__lambda_361);c_733369.num_args = 7; + __glo_parse_91number_scheme_read = &c_733369; + mclosure0(c_733317, (function_type)__lambda_349);c_733317.num_args = 3; + __glo_parse_91li_91rec_scheme_read = &c_733317; + mclosure0(c_733294, (function_type)__lambda_339);c_733294.num_args = 5; + __glo_parse_91literal_91identifier_scheme_read = &c_733294; + mclosure0(c_733277, (function_type)__lambda_335);c_733277.num_args = 2; + __glo_read_91block_91terminator_scheme_read = &c_733277; + mclosure0(c_733264, (function_type)__lambda_333);c_733264.num_args = 2; + __glo_read_91block_91comment_scheme_read = &c_733264; + mclosure0(c_733252, (function_type)__lambda_331);c_733252.num_args = 2; + __glo_get_91next_91char_scheme_read = &c_733252; + mclosure0(c_733228, (function_type)__lambda_329);c_733228.num_args = 1; + __glo_parse_91atom_scheme_read = &c_733228; + mclosure0(c_733160, (function_type)__lambda_325);c_733160.num_args = 1; + __glo_token_91numeric_127_scheme_read = &c_733160; + mclosure0(c_733151, (function_type)__lambda_316);c_733151.num_args = 1; + __glo_sign_127_scheme_read = &c_733151; + mclosure0(c_733078, (function_type)__lambda_315);c_733078.num_args = 3; + __glo_read_91str_91esc_scheme_read = &c_733078; + mclosure0(c_733031, (function_type)__lambda_304);c_733031.num_args = 3; + __glo_read_91str_scheme_read = &c_733031; + mclosure0(c_732719, (function_type)__lambda_298);c_732719.num_args = 2; + __glo_read_91pound_scheme_read = &c_732719; + mclosure0(c_731417, (function_type)__lambda_256);c_731417.num_args = 7; + __glo_parse_scheme_read = &c_731417; + mclosure0(c_731376, (function_type)__lambda_35);c_731376.num_args = 8; + __glo_parse_95tok_scheme_read = &c_731376; + mclosure0(c_731352, (function_type)__lambda_27);c_731352.num_args = 3; + __glo_parse_91error_scheme_read = &c_731352; + mclosure0(c_731326, (function_type)__lambda_23);c_731326.num_args = 1; + __glo__91_125dotted_91list_scheme_read = &c_731326; + mclosure0(c_731304, (function_type)__lambda_21);c_731304.num_args = 1; + __glo_dotted_127_scheme_read = &c_731304; + mclosure0(c_731299, (function_type)__lambda_18);c_731299.num_args = 1; + __glo__91_125tok_scheme_read = &c_731299; + mclosure0(c_731290, (function_type)__lambda_16);c_731290.num_args = 2; + __glo_get_91toks_scheme_read = &c_731290; + mclosure0(c_731285, (function_type)__lambda_14);c_731285.num_args = 2; + __glo_add_91tok_scheme_read = &c_731285; + mclosure0(c_731279, (function_type)__lambda_13);c_731279.num_args = 2; + __glo_in_91port_117set_91cnum_67_scheme_read = &c_731279; + mclosure0(c_731275, (function_type)__lambda_12);c_731275.num_args = 1; + __glo_in_91port_117get_91cnum_scheme_read = &c_731275; + mclosure0(c_731269, (function_type)__lambda_11);c_731269.num_args = 2; + __glo_in_91port_117set_91lnum_67_scheme_read = &c_731269; + mclosure0(c_731265, (function_type)__lambda_10);c_731265.num_args = 1; + __glo_in_91port_117get_91lnum_scheme_read = &c_731265; + mclosure0(c_731259, (function_type)__lambda_9);c_731259.num_args = 2; + __glo_in_91port_117set_91buf_67_scheme_read = &c_731259; + mclosure0(c_731255, (function_type)__lambda_8);c_731255.num_args = 1; + __glo_in_91port_117get_91buf_scheme_read = &c_731255; + mclosure0(c_731247, (function_type)__lambda_7);c_731247.num_args = 1; + __glo_in_91port_117read_91buf_67_scheme_read = &c_731247; + mclosure0(c_731208, (function_type)__lambda_5);c_731208.num_args = 1; + __glo_reg_91port_scheme_read = &c_731208; + __glo__85in_91port_91table_85_scheme_read = boolean_f; + __glo_read_scheme_read = boolean_f; + + make_cvar(cvar_733659, (object *)&__glo_lib_91init_117schemeread_scheme_read);make_pair(pair_733660, find_or_add_symbol("lib-init:schemeread"), &cvar_733659); + make_cvar(cvar_733661, (object *)&__glo_read_91all_scheme_read);make_pair(pair_733662, find_or_add_symbol("read-all"), &cvar_733661); + make_cvar(cvar_733663, (object *)&__glo_cyc_91read_scheme_read);make_pair(pair_733664, find_or_add_symbol("cyc-read"), &cvar_733663); + make_cvar(cvar_733665, (object *)&__glo_hex_91digit_127_scheme_read);make_pair(pair_733666, find_or_add_symbol("hex-digit?"), &cvar_733665); + make_cvar(cvar_733667, (object *)&__glo_parse_91number_91rec_scheme_read);make_pair(pair_733668, find_or_add_symbol("parse-number-rec"), &cvar_733667); + make_cvar(cvar_733669, (object *)&__glo_parse_91number_scheme_read);make_pair(pair_733670, find_or_add_symbol("parse-number"), &cvar_733669); + make_cvar(cvar_733671, (object *)&__glo_parse_91li_91rec_scheme_read);make_pair(pair_733672, find_or_add_symbol("parse-li-rec"), &cvar_733671); + make_cvar(cvar_733673, (object *)&__glo_parse_91literal_91identifier_scheme_read);make_pair(pair_733674, find_or_add_symbol("parse-literal-identifier"), &cvar_733673); + make_cvar(cvar_733675, (object *)&__glo_read_91block_91terminator_scheme_read);make_pair(pair_733676, find_or_add_symbol("read-block-terminator"), &cvar_733675); + make_cvar(cvar_733677, (object *)&__glo_read_91block_91comment_scheme_read);make_pair(pair_733678, find_or_add_symbol("read-block-comment"), &cvar_733677); + make_cvar(cvar_733679, (object *)&__glo_get_91next_91char_scheme_read);make_pair(pair_733680, find_or_add_symbol("get-next-char"), &cvar_733679); + make_cvar(cvar_733681, (object *)&__glo_parse_91atom_scheme_read);make_pair(pair_733682, find_or_add_symbol("parse-atom"), &cvar_733681); + make_cvar(cvar_733683, (object *)&__glo_token_91numeric_127_scheme_read);make_pair(pair_733684, find_or_add_symbol("token-numeric?"), &cvar_733683); + make_cvar(cvar_733685, (object *)&__glo_sign_127_scheme_read);make_pair(pair_733686, find_or_add_symbol("sign?"), &cvar_733685); + make_cvar(cvar_733687, (object *)&__glo_read_91str_91esc_scheme_read);make_pair(pair_733688, find_or_add_symbol("read-str-esc"), &cvar_733687); + make_cvar(cvar_733689, (object *)&__glo_read_91str_scheme_read);make_pair(pair_733690, find_or_add_symbol("read-str"), &cvar_733689); + make_cvar(cvar_733691, (object *)&__glo_read_91pound_scheme_read);make_pair(pair_733692, find_or_add_symbol("read-pound"), &cvar_733691); + make_cvar(cvar_733693, (object *)&__glo_parse_scheme_read);make_pair(pair_733694, find_or_add_symbol("parse"), &cvar_733693); + make_cvar(cvar_733695, (object *)&__glo_parse_95tok_scheme_read);make_pair(pair_733696, find_or_add_symbol("parse/tok"), &cvar_733695); + make_cvar(cvar_733697, (object *)&__glo_parse_91error_scheme_read);make_pair(pair_733698, find_or_add_symbol("parse-error"), &cvar_733697); + make_cvar(cvar_733699, (object *)&__glo__91_125dotted_91list_scheme_read);make_pair(pair_733700, find_or_add_symbol("->dotted-list"), &cvar_733699); + make_cvar(cvar_733701, (object *)&__glo_dotted_127_scheme_read);make_pair(pair_733702, find_or_add_symbol("dotted?"), &cvar_733701); + make_cvar(cvar_733703, (object *)&__glo__91_125tok_scheme_read);make_pair(pair_733704, find_or_add_symbol("->tok"), &cvar_733703); + make_cvar(cvar_733705, (object *)&__glo_get_91toks_scheme_read);make_pair(pair_733706, find_or_add_symbol("get-toks"), &cvar_733705); + make_cvar(cvar_733707, (object *)&__glo_add_91tok_scheme_read);make_pair(pair_733708, find_or_add_symbol("add-tok"), &cvar_733707); + make_cvar(cvar_733709, (object *)&__glo_in_91port_117set_91cnum_67_scheme_read);make_pair(pair_733710, find_or_add_symbol("in-port:set-cnum!"), &cvar_733709); + make_cvar(cvar_733711, (object *)&__glo_in_91port_117get_91cnum_scheme_read);make_pair(pair_733712, find_or_add_symbol("in-port:get-cnum"), &cvar_733711); + make_cvar(cvar_733713, (object *)&__glo_in_91port_117set_91lnum_67_scheme_read);make_pair(pair_733714, find_or_add_symbol("in-port:set-lnum!"), &cvar_733713); + make_cvar(cvar_733715, (object *)&__glo_in_91port_117get_91lnum_scheme_read);make_pair(pair_733716, find_or_add_symbol("in-port:get-lnum"), &cvar_733715); + make_cvar(cvar_733717, (object *)&__glo_in_91port_117set_91buf_67_scheme_read);make_pair(pair_733718, find_or_add_symbol("in-port:set-buf!"), &cvar_733717); + make_cvar(cvar_733719, (object *)&__glo_in_91port_117get_91buf_scheme_read);make_pair(pair_733720, find_or_add_symbol("in-port:get-buf"), &cvar_733719); + make_cvar(cvar_733721, (object *)&__glo_in_91port_117read_91buf_67_scheme_read);make_pair(pair_733722, find_or_add_symbol("in-port:read-buf!"), &cvar_733721); + make_cvar(cvar_733723, (object *)&__glo_reg_91port_scheme_read);make_pair(pair_733724, find_or_add_symbol("reg-port"), &cvar_733723); + make_cvar(cvar_733725, (object *)&__glo__85in_91port_91table_85_scheme_read);make_pair(pair_733726, find_or_add_symbol("*in-port-table*"), &cvar_733725); + make_cvar(cvar_733727, (object *)&__glo_read_scheme_read);make_pair(pair_733728, find_or_add_symbol("read"), &cvar_733727); +make_pair(c_733729, &pair_733660,Cyc_global_variables); +make_pair(c_733730, &pair_733662, &c_733729); +make_pair(c_733731, &pair_733664, &c_733730); +make_pair(c_733732, &pair_733666, &c_733731); +make_pair(c_733733, &pair_733668, &c_733732); +make_pair(c_733734, &pair_733670, &c_733733); +make_pair(c_733735, &pair_733672, &c_733734); +make_pair(c_733736, &pair_733674, &c_733735); +make_pair(c_733737, &pair_733676, &c_733736); +make_pair(c_733738, &pair_733678, &c_733737); +make_pair(c_733739, &pair_733680, &c_733738); +make_pair(c_733740, &pair_733682, &c_733739); +make_pair(c_733741, &pair_733684, &c_733740); +make_pair(c_733742, &pair_733686, &c_733741); +make_pair(c_733743, &pair_733688, &c_733742); +make_pair(c_733744, &pair_733690, &c_733743); +make_pair(c_733745, &pair_733692, &c_733744); +make_pair(c_733746, &pair_733694, &c_733745); +make_pair(c_733747, &pair_733696, &c_733746); +make_pair(c_733748, &pair_733698, &c_733747); +make_pair(c_733749, &pair_733700, &c_733748); +make_pair(c_733750, &pair_733702, &c_733749); +make_pair(c_733751, &pair_733704, &c_733750); +make_pair(c_733752, &pair_733706, &c_733751); +make_pair(c_733753, &pair_733708, &c_733752); +make_pair(c_733754, &pair_733710, &c_733753); +make_pair(c_733755, &pair_733712, &c_733754); +make_pair(c_733756, &pair_733714, &c_733755); +make_pair(c_733757, &pair_733716, &c_733756); +make_pair(c_733758, &pair_733718, &c_733757); +make_pair(c_733759, &pair_733720, &c_733758); +make_pair(c_733760, &pair_733722, &c_733759); +make_pair(c_733761, &pair_733724, &c_733760); +make_pair(c_733762, &pair_733726, &c_733761); +make_pair(c_733763, &pair_733728, &c_733762); +Cyc_global_variables = &c_733763; +cont = ((closure1_type *)cont)->element; +(((closure)__glo_lib_91init_117schemeread_scheme_read)->fn)(data, 1, cont, cont); +}