cyclone/debug/compilation/cyclone.c

/**
 ** This file was automatically generated by the Cyclone scheme compiler
 **
 ** (c) 2014-2016 Justin Ethier
 ** Version 0.0.4 (Pre-release)
 **
 **/

/* 
"---------------- input program:"
 */
/* 
((import (scheme base) (scheme case-lambda) (scheme eval) (scheme file) (scheme lazy) (scheme read) (scheme write) (scheme cyclone common) (scheme cyclone util) (scheme cyclone cgen) (scheme cyclone transforms) (scheme cyclone macros) (scheme cyclone libraries)) (cond-expand (chicken (define (Cyc-installation-dir . opt) (if (equal? (quote (inc)) opt) "/home/justin/Documents/cyclone/include" "/home/justin/Documents/cyclone")) (require-extension extras) (require-extension chicken-syntax) (require-extension srfi-1) (load (string-append (Cyc-installation-dir) "/scheme/cyclone/common.so")) (load (string-append (Cyc-installation-dir) "/scheme/parser.so")) (load (string-append (Cyc-installation-dir) "/scheme/cyclone/util.so")) (load (string-append (Cyc-installation-dir) "/scheme/cyclone/libraries.so")) (load (string-append (Cyc-installation-dir) "/scheme/cyclone/transforms.so")) (load (string-append (Cyc-installation-dir) "/scheme/cyclone/cgen.so"))) (else #f)) (define (c-compile-and-emit input-program lib-deps src-file) (call/cc (lambda (return) (define globals (quote ())) (define module-globals (quote ())) (define program? #t) (define imports (quote ())) (define imported-vars (quote ())) (define lib-name (quote ())) (define lib-exports (quote ())) (emit *c-file-header-comment*) (trace:info "---------------- input program:") (trace:info input-program) (cond ((library? (car input-program)) (let ((includes (lib:includes (car input-program)))) (set! program? #f) (set! lib-name (lib:name (car input-program))) (set! lib-exports (cons (lib:name->symbol lib-name) (lib:exports (car input-program)))) (set! imports (lib:imports (car input-program))) (set! input-program (lib:body (car input-program))) (if (not (null? includes)) (for-each (lambda (include) (set! input-program (append (read-file (string-append (lib:import->path lib-name) include)) input-program))) includes)))) ((tagged-list? (quote import) (car input-program)) (set! imports (cdar input-program)) (set! input-program (cdr input-program)))) (trace:info "imports:") (trace:info imports) (set! imported-vars (lib:resolve-imports imports)) (trace:info "resolved imports:") (trace:info imported-vars) (let ((meta (lib:resolve-meta imports))) (set! *defined-macros* (append meta *defined-macros*)) (trace:info "resolved macros:") (trace:info meta)) (let ((macros (filter (lambda (v) (macro? (Cyc-get-cvar (cdr v)))) (Cyc-global-vars)))) (set! *defined-macros* (append macros *defined-macros*))) (macro:load-env! *defined-macros* (create-environment (quote ()) (quote ()))) (set! input-program ((if program? expand-lambda-body expand) input-program (macro:get-env))) (trace:info "---------------- after macro expansion:") (trace:info input-program) (set! input-program (isolate-globals input-program program? lib-name)) (if (not (has-global? input-program (quote eval))) (set! input-program (filter-unused-variables input-program lib-exports))) (trace:info "---------------- after processing globals") (trace:info input-program) (set! module-globals (global-vars input-program)) (set! globals (append imported-vars module-globals)) (set! input-program (map (lambda (expr) (alpha-convert expr globals return)) input-program)) (trace:info "---------------- after alpha conversion:") (trace:info input-program) (let ((cps (map (lambda (expr) (cps-convert expr)) input-program))) (cond ((and library? (equal? lib-name (quote (scheme base)))) (set! globals (append (quote (call/cc)) globals)) (set! module-globals (append (quote (call/cc)) module-globals)) (set! input-program (cons (quote (define call/cc (lambda (k f) (f k (lambda (_ result) (k result)))))) cps))) (else (set! input-program cps)))) (trace:info "---------------- after CPS:") (trace:info input-program) (set! input-program (map (lambda (expr) (clear-mutables) (analyze-mutable-variables expr) (wrap-mutables expr globals)) input-program)) (trace:info "---------------- after wrap-mutables:") (trace:info input-program) (set! input-program (map (lambda (expr) (cond ((define? expr) (quasiquote (define (unquote (define->var expr)) (unquote-splicing (caddr (closure-convert (define->exp expr) globals)))))) ((define-c? expr) expr) (else (caddr (closure-convert expr globals))))) input-program)) (trace:info "---------------- after closure-convert:") (trace:info input-program) (when (not *do-code-gen*) (trace:error "DEBUG, existing program") (exit 0)) (trace:info "---------------- C code:") (mta:code-gen input-program program? lib-name lib-exports imported-vars module-globals lib-deps src-file) (return (quote ()))))) (define (get-data-path) ".") (define (get-lib filename) (string-append (get-data-path) "/" filename)) (define (read-file filename) (call-with-input-file filename (lambda (port) (read-all port)))) (define (run-compiler args cc?) (let* ((in-file (car args)) (in-prog (read-file in-file)) (program? (not (library? (car in-prog)))) (lib-deps (if (and program? (tagged-list? (quote import) (car in-prog))) (lib:get-all-import-deps (cdar in-prog)) (quote ()))) (exec-file (basename in-file)) (src-file (string-append exec-file ".c")) (meta-file (string-append exec-file ".meta")) (create-c-file (lambda (program) (with-output-to-file src-file (lambda () (c-compile-and-emit program lib-deps in-file))))) (result (create-c-file in-prog))) (cond (program? (letrec ((objs-str (apply string-append (map (lambda (i) (string-append " " (lib:import->filename i ".o") " ")) lib-deps))) (comp-prog-cmd (string-append "gcc " src-file " -g -c -o " exec-file ".o")) (comp-objs-cmd (string-append "gcc " exec-file ".o " objs-str " -pthread -lcyclone -lck -lm -g -o " exec-file))) (cond (cc? (if (equal? 0 (system comp-prog-cmd)) (system comp-objs-cmd))) (else (write comp-prog-cmd) (write comp-objs-cmd))))) (else (with-output-to-file meta-file (lambda () (display ";; This file was automatically generated by the Cyclone Scheme compiler") (newline) (write (macro:get-defined-macros)))) (let ((comp-lib-cmd (string-append "gcc " src-file " -g -c -o " exec-file ".o"))) (cond (cc? (system comp-lib-cmd)) (else (write comp-lib-cmd)))))))) (let* ((args (command-line-arguments)) (non-opts (filter (lambda (arg) (not (and (> (string-length arg) 1) (equal? #\- (string-ref arg 0))))) args)) (compile? #t)) (if (member "-t" args) (set! *trace-level* 4)) (if (member "-d" args) (set! compile? #f)) (cond ((< (length args) 1) (display "cyclone: no input file") (newline)) ((or (member "-h" args) (member "--help" args)) (display "
 -t              Show intermediate trace output in generated C files
 -d              Only generate intermediate C files, do not compile them
 -h, --help      Display usage information
 -v              Display version information
 --autogen       Cyclone developer use only, create autogen.out file
") (newline)) ((member "-v" args) (display *version-banner*)) ((member "--autogen" args) (autogen "autogen.out") (newline)) ((member "-v" args) (display *version-banner*)) ((member "--autogen" args) (autogen "autogen.out")) (else (run-compiler non-opts compile?)))))
 */
/* 
"imports:"
 */
/* 
((scheme base) (scheme case-lambda) (scheme eval) (scheme file) (scheme lazy) (scheme read) (scheme write) (scheme cyclone common) (scheme cyclone util) (scheme cyclone cgen) (scheme cyclone transforms) (scheme cyclone macros) (scheme cyclone libraries))
 */
/* 
"resolved imports:"
 */
/* 
(cons-source syntax-rules letrec* guard guard-aux receive abs max min modulo floor-remainder even? exact-integer? exact? inexact? odd? gcd lcm quotient remainder truncate-quotient truncate-remainder truncate/ floor-quotient floor-remainder floor/ square expt call-with-current-continuation call/cc call-with-values dynamic-wind values char=? char<? char>? char<=? char>=? string=? string<? string<=? string>? string>=? foldl foldr not list? zero? positive? negative? append list make-list list-copy map for-each list-tail list-ref list-set! reverse boolean=? symbol=? Cyc-obj=? vector vector-append vector-copy vector-copy! vector-fill! vector->list vector->string vector-map vector-for-each make-string string string-copy string-copy! string-fill! string->list string->vector string-map string-for-each make-parameter current-output-port current-input-port current-error-port call-with-port error raise raise-continuable with-exception-handler Cyc-add-exception-handler Cyc-remove-exception-handler newline write-char write-string flush-output-port read-line read-string input-port? output-port? input-port-open? output-port-open? features any every and or let let* letrec begin case cond cond-expand do when unless quasiquote floor ceiling truncate round exact inexact eof-object syntax-error case-lambda eval eval-from-c create-environment setup-environment call-with-input-file call-with-output-file with-input-from-file with-output-to-file delay force delay-force make-promise promise? read read-all display write *Cyc-version-banner* *version* *version-banner* *c-file-header-comment* tagged-list? if? begin? lambda? env:enclosing-environment env:first-frame env:the-empty-environment env:make-frame env:frame-variables env:frame-values env:add-binding-to-frame! env:extend-environment env:lookup env:lookup-variable-value env:_lookup-variable-value env:set-variable-value! env:define-variable! Cyc-er-rename Cyc-er-compare? mangle mangle-global gensym delete delete-duplicates list-insert-at! list-index2 filter mta:code-gen autogen autogen:defprimitives autogen:primitive-procedures emit emit* emits emits* emit-newline string-join *defined-macros* *do-code-gen* *trace-level* *primitives* get-macros built-in-syms trace trace:error trace:warn trace:info trace:debug cyc:error basename list-index symbol<? insert remove union difference reduce azip assq-remove-key assq-remove-keys const? ref? quote? let? let->bindings let->exp let->bound-vars let->args letrec? letrec->bindings letrec->exp letrec->bound-vars letrec->args lambda? lambda-varargs? lambda->formals lambda-varargs? lambda-varargs-var lambda-formals-type lambda-formals->list lambda-num-args list->lambda-formals pair->list list->pair lambda->exp if? if->condition if->then if-else? if->else app? app->fun app->args prim? precompute-prim-app? prim-call? begin? begin->exps define? define-lambda? define->lambda define->var define->exp define-c? set!? set!->var set!->exp closure? closure->lam closure->env closure->fv env-make? env-make->id env-make->fields env-make->values env-get? env-get->id env-get->field env-get->env set-cell!? set-cell!->cell set-cell!->value cell? cell->value cell-get? cell-get->cell expand expand-lambda-body let=>lambda isolate-globals has-global? global-vars filter-unused-variables free-vars clear-mutables mark-mutable is-mutable? analyze-mutable-variables wrap-mutables alpha-convert cps-convert pos-in-list closure-convert define-syntax? macro:macro? macro:expand macro:add! macro:load-env! macro:get-env macro:get-defined-macros library? lib:list->import-set lib:name lib:name->string lib:name->symbol lib:result lib:exports lib:imports lib:body lib:includes lib:import->filename lib:import->metalist lib:import->path lib:read-imports lib:import->export-list lib:resolve-imports lib:resolve-meta lib:get-all-import-deps lib:get-dep-list)
 */
/* 
"resolved macros:"
 */
/* 
()
 */
/* 
"---------------- after macro expansion:"
 */
/* 
(#f (define c-compile-and-emit (lambda (input-program lib-deps src-file) (call/cc (lambda (return) (define globals (quote ())) (define module-globals (quote ())) (define program? #t) (define imports (quote ())) (define imported-vars (quote ())) (define lib-name (quote ())) (define lib-exports (quote ())) (emit *c-file-header-comment*) (trace:info "---------------- input program:") (trace:info input-program) (if (library? (car input-program)) ((lambda () ((lambda (includes) (set! program? #f) (set! lib-name (lib:name (car input-program))) (set! lib-exports (cons (lib:name->symbol lib-name) (lib:exports (car input-program)))) (set! imports (lib:imports (car input-program))) (set! input-program (lib:body (car input-program))) (if (not (null? includes)) (for-each (lambda (include) (set! input-program (append (read-file (string-append (lib:import->path lib-name) include)) input-program))) includes) #f)) (lib:includes (car input-program))))) (if (tagged-list? (quote import) (car input-program)) ((lambda () (set! imports (cdar input-program)) (set! input-program (cdr input-program)))) #f)) (trace:info "imports:") (trace:info imports) (set! imported-vars (lib:resolve-imports imports)) (trace:info "resolved imports:") (trace:info imported-vars) ((lambda (meta) (set! *defined-macros* (append meta *defined-macros*)) (trace:info "resolved macros:") (trace:info meta)) (lib:resolve-meta imports)) ((lambda (macros) (set! *defined-macros* (append macros *defined-macros*))) (filter (lambda (v) (macro? (Cyc-get-cvar (cdr v)))) (Cyc-global-vars))) (macro:load-env! *defined-macros* (create-environment (quote ()) (quote ()))) (set! input-program ((if program? expand-lambda-body expand) input-program (macro:get-env))) (trace:info "---------------- after macro expansion:") (trace:info input-program) (set! input-program (isolate-globals input-program program? lib-name)) (if (not (has-global? input-program (quote eval))) (set! input-program (filter-unused-variables input-program lib-exports)) #f) (trace:info "---------------- after processing globals") (trace:info input-program) (set! module-globals (global-vars input-program)) (set! globals (append imported-vars module-globals)) (set! input-program (map (lambda (expr) (alpha-convert expr globals return)) input-program)) (trace:info "---------------- after alpha conversion:") (trace:info input-program) ((lambda (cps) (if (if library? (equal? lib-name (quote (scheme base))) #f) ((lambda () (set! globals (append (quote (call/cc)) globals)) (set! module-globals (append (quote (call/cc)) module-globals)) (set! input-program (cons (quote (define call/cc (lambda (k f) (f k (lambda (_ result) (k result)))))) cps)))) ((lambda () (set! input-program cps))))) (map (lambda (expr) (cps-convert expr)) input-program)) (trace:info "---------------- after CPS:") (trace:info input-program) (set! input-program (map (lambda (expr) (clear-mutables) (analyze-mutable-variables expr) (wrap-mutables expr globals)) input-program)) (trace:info "---------------- after wrap-mutables:") (trace:info input-program) (set! input-program (map (lambda (expr) (if (define? expr) ((lambda () (cons (quote define) (cons (define->var expr) (caddr (closure-convert (define->exp expr) globals)))))) (if (define-c? expr) ((lambda () expr)) ((lambda () (caddr (closure-convert expr globals))))))) input-program)) (trace:info "---------------- after closure-convert:") (trace:info input-program) (if (not *do-code-gen*) ((lambda () (trace:error "DEBUG, existing program") (exit 0))) #f) (trace:info "---------------- C code:") (mta:code-gen input-program program? lib-name lib-exports imported-vars module-globals lib-deps src-file) (return (quote ())))))) (define get-data-path (lambda () ".")) (define get-lib (lambda (filename) (string-append (get-data-path) "/" filename))) (define read-file (lambda (filename) (call-with-input-file filename (lambda (port) (read-all port))))) (define run-compiler (lambda (args cc?) ((lambda (in-file) ((lambda (in-prog) ((lambda (program?) ((lambda (lib-deps) ((lambda (exec-file) ((lambda (src-file) ((lambda (meta-file) ((lambda (create-c-file) ((lambda (result) ((lambda () (if program? ((lambda () ((lambda (objs-str comp-prog-cmd comp-objs-cmd) (set! objs-str (apply string-append (map (lambda (i) (string-append " " (lib:import->filename i ".o") " ")) lib-deps))) (set! comp-prog-cmd (string-append "gcc " src-file " -g -c -o " exec-file ".o")) (set! comp-objs-cmd (string-append "gcc " exec-file ".o " objs-str " -pthread -lcyclone -lck -lm -g -o " exec-file)) (if cc? ((lambda () (if (equal? 0 (system comp-prog-cmd)) (system comp-objs-cmd) #f))) ((lambda () (write comp-prog-cmd) (write comp-objs-cmd))))) #f #f #f))) ((lambda () (with-output-to-file meta-file (lambda () (display ";; This file was automatically generated by the Cyclone Scheme compiler") (newline) (write (macro:get-defined-macros)))) ((lambda (comp-lib-cmd) (if cc? ((lambda () (system comp-lib-cmd))) ((lambda () (write comp-lib-cmd))))) (string-append "gcc " src-file " -g -c -o " exec-file ".o")))))))) (create-c-file in-prog))) (lambda (program) (with-output-to-file src-file (lambda () (c-compile-and-emit program lib-deps in-file)))))) (string-append exec-file ".meta"))) (string-append exec-file ".c"))) (basename in-file))) (if (if program? (tagged-list? (quote import) (car in-prog)) #f) (lib:get-all-import-deps (cdar in-prog)) (quote ())))) (not (library? (car in-prog))))) (read-file in-file))) (car args)))) ((lambda (args) ((lambda (non-opts) ((lambda (compile?) ((lambda () (if (member "-t" args) (set! *trace-level* 4) #f) (if (member "-d" args) (set! compile? #f) #f) (if (< (length args) 1) ((lambda () (display "cyclone: no input file") (newline))) (if ((lambda (tmp) (if tmp tmp (member "--help" args))) (member "-h" args)) ((lambda () (display "
 -t              Show intermediate trace output in generated C files
 -d              Only generate intermediate C files, do not compile them
 -h, --help      Display usage information
 -v              Display version information
 --autogen       Cyclone developer use only, create autogen.out file
") (newline))) (if (member "-v" args) ((lambda () (display *version-banner*))) (if (member "--autogen" args) ((lambda () (autogen "autogen.out") (newline))) (if (member "-v" args) ((lambda () (display *version-banner*))) (if (member "--autogen" args) ((lambda () (autogen "autogen.out"))) ((lambda () (run-compiler non-opts compile?)))))))))))) #t)) (filter (lambda (arg) (not (if (> (string-length arg) 1) (equal? #\- (string-ref arg 0)) #f))) args))) (command-line-arguments)))
 */
/* 
"---------------- after processing globals"
 */
/* 
((define c-compile-and-emit (lambda (input-program lib-deps src-file) (call/cc (lambda (return) (define globals (quote ())) (define module-globals (quote ())) (define program? #t) (define imports (quote ())) (define imported-vars (quote ())) (define lib-name (quote ())) (define lib-exports (quote ())) (emit *c-file-header-comment*) (trace:info "---------------- input program:") (trace:info input-program) (if (library? (car input-program)) ((lambda () ((lambda (includes) (set! program? #f) (set! lib-name (lib:name (car input-program))) (set! lib-exports (cons (lib:name->symbol lib-name) (lib:exports (car input-program)))) (set! imports (lib:imports (car input-program))) (set! input-program (lib:body (car input-program))) (if (not (null? includes)) (for-each (lambda (include) (set! input-program (append (read-file (string-append (lib:import->path lib-name) include)) input-program))) includes) #f)) (lib:includes (car input-program))))) (if (tagged-list? (quote import) (car input-program)) ((lambda () (set! imports (cdar input-program)) (set! input-program (cdr input-program)))) #f)) (trace:info "imports:") (trace:info imports) (set! imported-vars (lib:resolve-imports imports)) (trace:info "resolved imports:") (trace:info imported-vars) ((lambda (meta) (set! *defined-macros* (append meta *defined-macros*)) (trace:info "resolved macros:") (trace:info meta)) (lib:resolve-meta imports)) ((lambda (macros) (set! *defined-macros* (append macros *defined-macros*))) (filter (lambda (v) (macro? (Cyc-get-cvar (cdr v)))) (Cyc-global-vars))) (macro:load-env! *defined-macros* (create-environment (quote ()) (quote ()))) (set! input-program ((if program? expand-lambda-body expand) input-program (macro:get-env))) (trace:info "---------------- after macro expansion:") (trace:info input-program) (set! input-program (isolate-globals input-program program? lib-name)) (if (not (has-global? input-program (quote eval))) (set! input-program (filter-unused-variables input-program lib-exports)) #f) (trace:info "---------------- after processing globals") (trace:info input-program) (set! module-globals (global-vars input-program)) (set! globals (append imported-vars module-globals)) (set! input-program (map (lambda (expr) (alpha-convert expr globals return)) input-program)) (trace:info "---------------- after alpha conversion:") (trace:info input-program) ((lambda (cps) (if (if library? (equal? lib-name (quote (scheme base))) #f) ((lambda () (set! globals (append (quote (call/cc)) globals)) (set! module-globals (append (quote (call/cc)) module-globals)) (set! input-program (cons (quote (define call/cc (lambda (k f) (f k (lambda (_ result) (k result)))))) cps)))) ((lambda () (set! input-program cps))))) (map (lambda (expr) (cps-convert expr)) input-program)) (trace:info "---------------- after CPS:") (trace:info input-program) (set! input-program (map (lambda (expr) (clear-mutables) (analyze-mutable-variables expr) (wrap-mutables expr globals)) input-program)) (trace:info "---------------- after wrap-mutables:") (trace:info input-program) (set! input-program (map (lambda (expr) (if (define? expr) ((lambda () (cons (quote define) (cons (define->var expr) (caddr (closure-convert (define->exp expr) globals)))))) (if (define-c? expr) ((lambda () expr)) ((lambda () (caddr (closure-convert expr globals))))))) input-program)) (trace:info "---------------- after closure-convert:") (trace:info input-program) (if (not *do-code-gen*) ((lambda () (trace:error "DEBUG, existing program") (exit 0))) #f) (trace:info "---------------- C code:") (mta:code-gen input-program program? lib-name lib-exports imported-vars module-globals lib-deps src-file) (return (quote ())))))) (define read-file (lambda (filename) (call-with-input-file filename (lambda (port) (read-all port))))) (define run-compiler (lambda (args cc?) ((lambda (in-file) ((lambda (in-prog) ((lambda (program?) ((lambda (lib-deps) ((lambda (exec-file) ((lambda (src-file) ((lambda (meta-file) ((lambda (create-c-file) ((lambda (result) ((lambda () (if program? ((lambda () ((lambda (objs-str comp-prog-cmd comp-objs-cmd) (set! objs-str (apply string-append (map (lambda (i) (string-append " " (lib:import->filename i ".o") " ")) lib-deps))) (set! comp-prog-cmd (string-append "gcc " src-file " -g -c -o " exec-file ".o")) (set! comp-objs-cmd (string-append "gcc " exec-file ".o " objs-str " -pthread -lcyclone -lck -lm -g -o " exec-file)) (if cc? ((lambda () (if (equal? 0 (system comp-prog-cmd)) (system comp-objs-cmd) #f))) ((lambda () (write comp-prog-cmd) (write comp-objs-cmd))))) #f #f #f))) ((lambda () (with-output-to-file meta-file (lambda () (display ";; This file was automatically generated by the Cyclone Scheme compiler") (newline) (write (macro:get-defined-macros)))) ((lambda (comp-lib-cmd) (if cc? ((lambda () (system comp-lib-cmd))) ((lambda () (write comp-lib-cmd))))) (string-append "gcc " src-file " -g -c -o " exec-file ".o")))))))) (create-c-file in-prog))) (lambda (program) (with-output-to-file src-file (lambda () (c-compile-and-emit program lib-deps in-file)))))) (string-append exec-file ".meta"))) (string-append exec-file ".c"))) (basename in-file))) (if (if program? (tagged-list? (quote import) (car in-prog)) #f) (lib:get-all-import-deps (cdar in-prog)) (quote ())))) (not (library? (car in-prog))))) (read-file in-file))) (car args)))) ((lambda () 0 #f ((lambda (args) ((lambda (non-opts) ((lambda (compile?) ((lambda () (if (member "-t" args) (set! *trace-level* 4) #f) (if (member "-d" args) (set! compile? #f) #f) (if (< (length args) 1) ((lambda () (display "cyclone: no input file") (newline))) (if ((lambda (tmp) (if tmp tmp (member "--help" args))) (member "-h" args)) ((lambda () (display "
 -t              Show intermediate trace output in generated C files
 -d              Only generate intermediate C files, do not compile them
 -h, --help      Display usage information
 -v              Display version information
 --autogen       Cyclone developer use only, create autogen.out file
") (newline))) (if (member "-v" args) ((lambda () (display *version-banner*))) (if (member "--autogen" args) ((lambda () (autogen "autogen.out") (newline))) (if (member "-v" args) ((lambda () (display *version-banner*))) (if (member "--autogen" args) ((lambda () (autogen "autogen.out"))) ((lambda () (run-compiler non-opts compile?)))))))))))) #t)) (filter (lambda (arg) (not (if (> (string-length arg) 1) (equal? #\- (string-ref arg 0)) #f))) args))) (command-line-arguments)))))
 */
/* 
"---------------- after alpha conversion:"
 */
/* 
((define c-compile-and-emit (lambda (input-program$73 lib-deps$72 src-file$71) ((lambda (globals$80 imported-vars$79 imports$78 lib-exports$77 lib-name$76 module-globals$75 program?$74) (call/cc (lambda (return$81) ((lambda (globals$88 module-globals$87 program?$86 imports$85 imported-vars$84 lib-name$83 lib-exports$82) (set! globals$88 (quote ())) (set! module-globals$87 (quote ())) (set! program?$86 #t) (set! imports$85 (quote ())) (set! imported-vars$84 (quote ())) (set! lib-name$83 (quote ())) (set! lib-exports$82 (quote ())) (emit *c-file-header-comment*) (trace:info "---------------- input program:") (trace:info input-program$73) (if (library? (car input-program$73)) ((lambda () ((lambda (includes$97) (set! program?$86 #f) (set! lib-name$83 (lib:name (car input-program$73))) (set! lib-exports$82 (cons (lib:name->symbol lib-name$83) (lib:exports (car input-program$73)))) (set! imports$85 (lib:imports (car input-program$73))) (set! input-program$73 (lib:body (car input-program$73))) (if (not (null? includes$97)) (for-each (lambda (include$98) (set! input-program$73 (append (read-file (string-append (lib:import->path lib-name$83) include$98)) input-program$73))) includes$97) #f)) (lib:includes (car input-program$73))))) (if (tagged-list? (quote import) (car input-program$73)) ((lambda () (set! imports$85 (cdar input-program$73)) (set! input-program$73 (cdr input-program$73)))) #f)) (trace:info "imports:") (trace:info imports$85) (set! imported-vars$84 (lib:resolve-imports imports$85)) (trace:info "resolved imports:") (trace:info imported-vars$84) ((lambda (meta$96) (set! *defined-macros* (append meta$96 *defined-macros*)) (trace:info "resolved macros:") (trace:info meta$96)) (lib:resolve-meta imports$85)) ((lambda (macros$95) (set! *defined-macros* (append macros$95 *defined-macros*))) (filter (lambda (v$94) (macro? (Cyc-get-cvar (cdr v$94)))) (Cyc-global-vars))) (macro:load-env! *defined-macros* (create-environment (quote ()) (quote ()))) (set! input-program$73 ((if program?$86 expand-lambda-body expand) input-program$73 (macro:get-env))) (trace:info "---------------- after macro expansion:") (trace:info input-program$73) (set! input-program$73 (isolate-globals input-program$73 program?$86 lib-name$83)) (if (not (has-global? input-program$73 (quote eval))) (set! input-program$73 (filter-unused-variables input-program$73 lib-exports$82)) #f) (trace:info "---------------- after processing globals") (trace:info input-program$73) (set! module-globals$87 (global-vars input-program$73)) (set! globals$88 (append imported-vars$84 module-globals$87)) (set! input-program$73 (map (lambda (expr$93) (alpha-convert expr$93 globals$88 return$81)) input-program$73)) (trace:info "---------------- after alpha conversion:") (trace:info input-program$73) ((lambda (cps$92) (if (if library? (equal? lib-name$83 (quote (scheme base))) #f) ((lambda () (set! globals$88 (append (quote (call/cc)) globals$88)) (set! module-globals$87 (append (quote (call/cc)) module-globals$87)) (set! input-program$73 (cons (quote (define call/cc (lambda (k f) (f k (lambda (_ result) (k result)))))) cps$92)))) ((lambda () (set! input-program$73 cps$92))))) (map (lambda (expr$91) (cps-convert expr$91)) input-program$73)) (trace:info "---------------- after CPS:") (trace:info input-program$73) (set! input-program$73 (map (lambda (expr$90) (clear-mutables) (analyze-mutable-variables expr$90) (wrap-mutables expr$90 globals$88)) input-program$73)) (trace:info "---------------- after wrap-mutables:") (trace:info input-program$73) (set! input-program$73 (map (lambda (expr$89) (if (define? expr$89) ((lambda () (cons (quote define) (cons (define->var expr$89) (caddr (closure-convert (define->exp expr$89) globals$88)))))) (if (define-c? expr$89) ((lambda () expr$89)) ((lambda () (caddr (closure-convert expr$89 globals$88))))))) input-program$73)) (trace:info "---------------- after closure-convert:") (trace:info input-program$73) (if (not *do-code-gen*) ((lambda () (trace:error "DEBUG, existing program") (exit 0))) #f) (trace:info "---------------- C code:") (mta:code-gen input-program$73 program?$86 lib-name$83 lib-exports$82 imported-vars$84 module-globals$87 lib-deps$72 src-file$71) (return$81 (quote ()))) #f #f #f #f #f #f #f)))) #f #f #f #f #f #f #f))) (define read-file (lambda (filename$69) (call-with-input-file filename$69 (lambda (port$70) (read-all port$70))))) (define run-compiler (lambda (args$53 cc?$52) ((lambda (in-file$54) ((lambda (in-prog$55) ((lambda (program?$56) ((lambda (lib-deps$57) ((lambda (exec-file$58) ((lambda (src-file$59) ((lambda (meta-file$60) ((lambda (create-c-file$62) ((lambda (result$63) ((lambda () (if program?$56 ((lambda () ((lambda (objs-str$67 comp-prog-cmd$66 comp-objs-cmd$65) (set! objs-str$67 (apply string-append (map (lambda (i$68) (string-append " " (lib:import->filename i$68 ".o") " ")) lib-deps$57))) (set! comp-prog-cmd$66 (string-append "gcc " src-file$59 " -g -c -o " exec-file$58 ".o")) (set! comp-objs-cmd$65 (string-append "gcc " exec-file$58 ".o " objs-str$67 " -pthread -lcyclone -lck -lm -g -o " exec-file$58)) (if cc?$52 ((lambda () (if (equal? 0 (system comp-prog-cmd$66)) (system comp-objs-cmd$65) #f))) ((lambda () (write comp-prog-cmd$66) (write comp-objs-cmd$65))))) #f #f #f))) ((lambda () (with-output-to-file meta-file$60 (lambda () (display ";; This file was automatically generated by the Cyclone Scheme compiler") (newline) (write (macro:get-defined-macros)))) ((lambda (comp-lib-cmd$64) (if cc?$52 ((lambda () (system comp-lib-cmd$64))) ((lambda () (write comp-lib-cmd$64))))) (string-append "gcc " src-file$59 " -g -c -o " exec-file$58 ".o")))))))) (create-c-file$62 in-prog$55))) (lambda (program$61) (with-output-to-file src-file$59 (lambda () (c-compile-and-emit program$61 lib-deps$57 in-file$54)))))) (string-append exec-file$58 ".meta"))) (string-append exec-file$58 ".c"))) (basename in-file$54))) (if (if program?$56 (tagged-list? (quote import) (car in-prog$55)) #f) (lib:get-all-import-deps (cdar in-prog$55)) (quote ())))) (not (library? (car in-prog$55))))) (read-file in-file$54))) (car args$53)))) ((lambda () 0 #f ((lambda (args$47) ((lambda (non-opts$49) ((lambda (compile?$50) ((lambda () (if (member "-t" args$47) (set! *trace-level* 4) #f) (if (member "-d" args$47) (set! compile?$50 #f) #f) (if (< (length args$47) 1) ((lambda () (display "cyclone: no input file") (newline))) (if ((lambda (tmp$51) (if tmp$51 tmp$51 (member "--help" args$47))) (member "-h" args$47)) ((lambda () (display "
 -t              Show intermediate trace output in generated C files
 -d              Only generate intermediate C files, do not compile them
 -h, --help      Display usage information
 -v              Display version information
 --autogen       Cyclone developer use only, create autogen.out file
") (newline))) (if (member "-v" args$47) ((lambda () (display *version-banner*))) (if (member "--autogen" args$47) ((lambda () (autogen "autogen.out") (newline))) (if (member "-v" args$47) ((lambda () (display *version-banner*))) (if (member "--autogen" args$47) ((lambda () (autogen "autogen.out"))) ((lambda () (run-compiler non-opts$49 compile?$50)))))))))))) #t)) (filter (lambda (arg$48) (not (if (> (string-length arg$48) 1) (equal? #\- (string-ref arg$48 0)) #f))) args$47))) (command-line-arguments)))))
 */
/* 
"---------------- after CPS:"
 */
/* 
((define c-compile-and-emit (lambda (k$178 input-program$73 lib-deps$72 src-file$71) ((lambda (globals$80 imported-vars$79 imports$78 lib-exports$77 lib-name$76 module-globals$75 program?$74) ((lambda (r$179) (call/cc k$178 r$179)) (lambda (k$180 return$81) ((lambda (globals$88 module-globals$87 program?$86 imports$85 imported-vars$84 lib-name$83 lib-exports$82) ((lambda (r$329) ((lambda (r$181) ((lambda (r$328) ((lambda (r$182) ((lambda (r$183) ((lambda (r$327) ((lambda (r$184) ((lambda (r$326) ((lambda (r$185) ((lambda (r$325) ((lambda (r$186) ((lambda (r$324) ((lambda (r$187) (emit (lambda (r$188) (trace:info (lambda (r$189) (trace:info (lambda (r$190) ((lambda (k$290) ((lambda (r$323) (library? (lambda (r$291) (if r$291 ((lambda () ((lambda (r$316) (lib:includes (lambda (r$292) ((lambda (includes$97) ((lambda (r$293) ((lambda (r$315) (lib:name (lambda (r$314) ((lambda (r$294) (lib:name->symbol (lambda (r$311) ((lambda (r$313) (lib:exports (lambda (r$312) ((lambda (r$310) ((lambda (r$295) ((lambda (r$309) (lib:imports (lambda (r$308) ((lambda (r$296) ((lambda (r$307) (lib:body (lambda (r$306) ((lambda (r$297) ((lambda (r$305) (not (lambda (r$298) (if r$298 ((lambda (r$299) (for-each k$290 r$299 includes$97)) (lambda (k$300 include$98) (lib:import->path (lambda (r$304) ((lambda (r$303) (read-file (lambda (r$302) (append (lambda (r$301) (k$300 (set! input-program$73 r$301))) r$302 input-program$73)) r$303)) (string-append r$304 include$98))) lib-name$83))) (k$290 #f))) r$305)) (null? includes$97))) (set! input-program$73 r$306))) r$307)) (car input-program$73))) (set! imports$85 r$308))) r$309)) (car input-program$73))) (set! lib-exports$82 r$310))) (cons r$311 r$312))) r$313)) (car input-program$73))) lib-name$83)) (set! lib-name$83 r$314))) r$315)) (car input-program$73))) (set! program?$86 #f))) r$292)) r$316)) (car input-program$73)))) ((lambda (r$321) ((lambda (r$322) (tagged-list? (lambda (r$317) (if r$317 ((lambda () ((lambda (r$320) ((lambda (r$318) ((lambda (r$319) (k$290 (set! input-program$73 r$319))) (cdr input-program$73))) (set! imports$85 r$320))) (cdar input-program$73)))) (k$290 #f))) r$321 r$322)) (car input-program$73))) (quote import)))) r$323)) (car input-program$73))) (lambda (r$191) (trace:info (lambda (r$192) (trace:info (lambda (r$193) (lib:resolve-imports (lambda (r$289) ((lambda (r$194) (trace:info (lambda (r$195) (trace:info (lambda (r$196) (lib:resolve-meta (lambda (r$285) ((lambda (meta$96) (append (lambda (r$288) ((lambda (r$286) (trace:info (lambda (r$287) (trace:info (lambda (r$197) ((lambda (r$280) ((lambda (r$281) (filter (lambda (r$278) ((lambda (macros$95) (append (lambda (r$279) ((lambda (r$198) ((lambda (r$276) ((lambda (r$277) (create-environment (lambda (r$275) (macro:load-env! (lambda (r$199) ((lambda (k$274) (if program?$86 (k$274 expand-lambda-body) (k$274 expand))) (lambda (r$272) (macro:get-env (lambda (r$273) (r$272 (lambda (r$271) ((lambda (r$200) (trace:info (lambda (r$201) (trace:info (lambda (r$202) (isolate-globals (lambda (r$270) ((lambda (r$203) ((lambda (k$265) ((lambda (r$269) (has-global? (lambda (r$268) (not (lambda (r$266) (if r$266 (filter-unused-variables (lambda (r$267) (k$265 (set! input-program$73 r$267))) input-program$73 lib-exports$82) (k$265 #f))) r$268)) input-program$73 r$269)) (quote eval))) (lambda (r$204) (trace:info (lambda (r$205) (trace:info (lambda (r$206) (global-vars (lambda (r$264) ((lambda (r$207) (append (lambda (r$263) ((lambda (r$208) ((lambda (r$261) (map (lambda (r$260) ((lambda (r$209) (trace:info (lambda (r$210) (trace:info (lambda (r$211) ((lambda (r$258) (map (lambda (r$245) ((lambda (cps$92) ((lambda (k$246) ((lambda (k$256) (if library? ((lambda (r$257) (k$256 (equal? lib-name$83 r$257))) (quote (scheme base))) (k$256 #f))) (lambda (r$247) (if r$247 ((lambda () ((lambda (r$255) (append (lambda (r$254) ((lambda (r$248) ((lambda (r$253) (append (lambda (r$252) ((lambda (r$249) ((lambda (r$251) ((lambda (r$250) (k$246 (set! input-program$73 r$250))) (cons r$251 cps$92))) (quote (define call/cc (lambda (k f) (f k (lambda (_ result) (k result)))))))) (set! module-globals$87 r$252))) r$253 module-globals$87)) (quote (call/cc)))) (set! globals$88 r$254))) r$255 globals$88)) (quote (call/cc))))) ((lambda () (k$246 (set! input-program$73 cps$92)))))))) (lambda (r$212) (trace:info (lambda (r$213) (trace:info (lambda (r$214) ((lambda (r$241) (map (lambda (r$240) ((lambda (r$215) (trace:info (lambda (r$216) (trace:info (lambda (r$217) ((lambda (r$229) (map (lambda (r$228) ((lambda (r$218) (trace:info (lambda (r$219) (trace:info (lambda (r$220) ((lambda (k$225) (not (lambda (r$226) (if r$226 ((lambda () (trace:error (lambda (r$227) (k$225 (exit 0))) "DEBUG, existing program"))) (k$225 #f))) *do-code-gen*)) (lambda (r$221) (trace:info (lambda (r$222) (mta:code-gen (lambda (r$223) ((lambda (r$224) (return$81 k$180 r$224)) (quote ()))) input-program$73 program?$86 lib-name$83 lib-exports$82 imported-vars$84 module-globals$87 lib-deps$72 src-file$71)) "---------------- C code:")))) input-program$73)) "---------------- after closure-convert:")) (set! input-program$73 r$228))) r$229 input-program$73)) (lambda (k$230 expr$89) (define? (lambda (r$231) (if r$231 ((lambda () ((lambda (r$232) (define->var (lambda (r$234) (define->exp (lambda (r$237) (closure-convert (lambda (r$236) ((lambda (r$235) ((lambda (r$233) (k$230 (cons r$232 r$233))) (cons r$234 r$235))) (caddr r$236))) r$237 globals$88)) expr$89)) expr$89)) (quote define)))) (define-c? (lambda (r$238) (if r$238 ((lambda () (k$230 expr$89))) ((lambda () (closure-convert (lambda (r$239) (k$230 (caddr r$239))) expr$89 globals$88))))) expr$89))) expr$89)))) input-program$73)) "---------------- after wrap-mutables:")) (set! input-program$73 r$240))) r$241 input-program$73)) (lambda (k$242 expr$90) (clear-mutables (lambda (r$243) (analyze-mutable-variables (lambda (r$244) (wrap-mutables k$242 expr$90 globals$88)) expr$90)))))) input-program$73)) "---------------- after CPS:")))) r$245)) r$258 input-program$73)) (lambda (k$259 expr$91) (cps-convert k$259 expr$91)))) input-program$73)) "---------------- after alpha conversion:")) (set! input-program$73 r$260))) r$261 input-program$73)) (lambda (k$262 expr$93) (alpha-convert k$262 expr$93 globals$88 return$81)))) (set! globals$88 r$263))) imported-vars$84 module-globals$87)) (set! module-globals$87 r$264))) input-program$73)) input-program$73)) "---------------- after processing globals")))) (set! input-program$73 r$270))) input-program$73 program?$86 lib-name$83)) input-program$73)) "---------------- after macro expansion:")) (set! input-program$73 r$271))) input-program$73 r$273)))))) *defined-macros* r$275)) r$276 r$277)) (quote ()))) (quote ()))) (set! *defined-macros* r$279))) macros$95 *defined-macros*)) r$278)) r$280 r$281)) (Cyc-global-vars))) (lambda (k$282 v$94) ((lambda (r$284) ((lambda (r$283) (k$282 (macro? r$283))) (Cyc-get-cvar r$284))) (cdr v$94))))) meta$96)) "resolved macros:")) (set! *defined-macros* r$288))) meta$96 *defined-macros*)) r$285)) imports$85)) imported-vars$84)) "resolved imports:")) (set! imported-vars$84 r$289))) imports$85)) imports$85)) "imports:")))) input-program$73)) "---------------- input program:")) *c-file-header-comment*)) (set! lib-exports$82 r$324))) (quote ()))) (set! lib-name$83 r$325))) (quote ()))) (set! imported-vars$84 r$326))) (quote ()))) (set! imports$85 r$327))) (quote ()))) (set! program?$86 #t))) (set! module-globals$87 r$328))) (quote ()))) (set! globals$88 r$329))) (quote ()))) #f #f #f #f #f #f #f)))) #f #f #f #f #f #f #f))) (define read-file (lambda (k$173 filename$69) ((lambda (r$174) (call-with-input-file k$173 filename$69 r$174)) (lambda (k$175 port$70) (read-all k$175 port$70))))) (define run-compiler (lambda (k$130 args$53 cc?$52) ((lambda (r$131) ((lambda (in-file$54) (read-file (lambda (r$132) ((lambda (in-prog$55) ((lambda (r$170) (library? (lambda (r$169) (not (lambda (r$133) ((lambda (program?$56) ((lambda (k$163) ((lambda (k$166) (if program?$56 ((lambda (r$167) ((lambda (r$168) (tagged-list? k$166 r$167 r$168)) (car in-prog$55))) (quote import)) (k$166 #f))) (lambda (r$164) (if r$164 ((lambda (r$165) (lib:get-all-import-deps k$163 r$165)) (cdar in-prog$55)) (k$163 (quote ())))))) (lambda (r$134) ((lambda (lib-deps$57) (basename (lambda (r$135) ((lambda (exec-file$58) ((lambda (r$136) ((lambda (src-file$59) ((lambda (r$137) ((lambda (meta-file$60) ((lambda (r$138) ((lambda (create-c-file$62) (create-c-file$62 (lambda (r$139) ((lambda (result$63) ((lambda () (if program?$56 ((lambda () ((lambda (objs-str$67 comp-prog-cmd$66 comp-objs-cmd$65) ((lambda (r$150) (map (lambda (r$149) ((lambda (r$148) ((lambda (r$140) ((lambda (r$147) ((lambda (r$141) ((lambda (r$146) ((lambda (r$142) (if cc?$52 ((lambda () ((lambda (r$144) ((lambda (r$143) (if r$143 (k$130 (system comp-objs-cmd$65)) (k$130 #f))) (equal? 0 r$144))) (system comp-prog-cmd$66)))) ((lambda () (write (lambda (r$145) (write k$130 comp-objs-cmd$65)) comp-prog-cmd$66))))) (set! comp-objs-cmd$65 r$146))) (string-append "gcc " exec-file$58 ".o " objs-str$67 " -pthread -lcyclone -lck -lm -g -o " exec-file$58))) (set! comp-prog-cmd$66 r$147))) (string-append "gcc " src-file$59 " -g -c -o " exec-file$58 ".o"))) (set! objs-str$67 r$148))) (apply string-append r$149))) r$150 lib-deps$57)) (lambda (k$151 i$68) (lib:import->filename (lambda (r$152) (k$151 (string-append " " r$152 " "))) i$68 ".o")))) #f #f #f))) ((lambda () ((lambda (r$155) (with-output-to-file (lambda (r$153) ((lambda (r$154) ((lambda (comp-lib-cmd$64) (if cc?$52 ((lambda () (k$130 (system comp-lib-cmd$64)))) ((lambda () (write k$130 comp-lib-cmd$64))))) r$154)) (string-append "gcc " src-file$59 " -g -c -o " exec-file$58 ".o"))) meta-file$60 r$155)) (lambda (k$156) (display (lambda (r$157) (newline (lambda (r$158) (macro:get-defined-macros (lambda (r$159) (write k$156 r$159)))))) ";; This file was automatically generated by the Cyclone Scheme compiler"))))))))) r$139)) in-prog$55)) r$138)) (lambda (k$160 program$61) ((lambda (r$161) (with-output-to-file k$160 src-file$59 r$161)) (lambda (k$162) (c-compile-and-emit k$162 program$61 lib-deps$57 in-file$54)))))) r$137)) (string-append exec-file$58 ".meta"))) r$136)) (string-append exec-file$58 ".c"))) r$135)) in-file$54)) r$134)))) r$133)) r$169)) r$170)) (car in-prog$55))) r$132)) in-file$54)) r$131)) (car args$53)))) ((lambda () ((lambda (r$99) ((lambda (r$100) ((lambda (r$101) ((lambda (args$47) ((lambda (r$121) (filter (lambda (r$102) ((lambda (non-opts$49) ((lambda (compile?$50) ((lambda () ((lambda (k$119) ((lambda (r$120) (if r$120 (k$119 (set! *trace-level* 4)) (k$119 #f))) (member "-t" args$47))) (lambda (r$103) ((lambda (k$117) ((lambda (r$118) (if r$118 (k$117 (set! compile?$50 #f)) (k$117 #f))) (member "-d" args$47))) (lambda (r$104) ((lambda (r$116) ((lambda (r$105) (if r$105 ((lambda () (display (lambda (r$106) (newline %halt)) "cyclone: no input file"))) ((lambda (r$114) ((lambda (tmp$51) ((lambda (k$115) (if tmp$51 (k$115 tmp$51) (k$115 (member "--help" args$47)))) (lambda (r$107) (if r$107 ((lambda () (display (lambda (r$108) (newline %halt)) "
 -t              Show intermediate trace output in generated C files
 -d              Only generate intermediate C files, do not compile them
 -h, --help      Display usage information
 -v              Display version information
 --autogen       Cyclone developer use only, create autogen.out file
"))) ((lambda (r$109) (if r$109 ((lambda () (display %halt *version-banner*))) ((lambda (r$110) (if r$110 ((lambda () (autogen (lambda (r$111) (newline %halt)) "autogen.out"))) ((lambda (r$112) (if r$112 ((lambda () (display %halt *version-banner*))) ((lambda (r$113) (if r$113 ((lambda () (autogen %halt "autogen.out"))) ((lambda () (run-compiler %halt non-opts$49 compile?$50))))) (member "--autogen" args$47)))) (member "-v" args$47)))) (member "--autogen" args$47)))) (member "-v" args$47)))))) r$114)) (member "-h" args$47)))) (< r$116 1))) (length args$47))))))))) #t)) r$102)) r$121 args$47)) (lambda (k$122 arg$48) ((lambda (k$124) ((lambda (r$127) ((lambda (r$125) (if r$125 ((lambda (r$126) (k$124 (equal? #\- r$126))) (string-ref arg$48 0)) (k$124 #f))) (> r$127 1))) (string-length arg$48))) (lambda (r$123) (not k$122 r$123)))))) r$101)) (command-line-arguments))) #f)) 0))))
 */
/* 
"---------------- after wrap-mutables:"
 */
/* 
((define c-compile-and-emit (lambda (k$178 input-program$73 lib-deps$72 src-file$71) ((lambda (input-program$73) ((lambda (globals$80 imported-vars$79 imports$78 lib-exports$77 lib-name$76 module-globals$75 program?$74) ((lambda (r$179) (call/cc k$178 r$179)) (lambda (k$180 return$81) ((lambda (globals$88 module-globals$87 program?$86 imports$85 imported-vars$84 lib-name$83 lib-exports$82) ((lambda (globals$88) ((lambda (module-globals$87) ((lambda (program?$86) ((lambda (imports$85) ((lambda (imported-vars$84) ((lambda (lib-name$83) ((lambda (lib-exports$82) ((lambda (r$329) ((lambda (r$181) ((lambda (r$328) ((lambda (r$182) ((lambda (r$183) ((lambda (r$327) ((lambda (r$184) ((lambda (r$326) ((lambda (r$185) ((lambda (r$325) ((lambda (r$186) ((lambda (r$324) ((lambda (r$187) (emit (lambda (r$188) (trace:info (lambda (r$189) (trace:info (lambda (r$190) ((lambda (k$290) ((lambda (r$323) (library? (lambda (r$291) (if r$291 ((lambda () ((lambda (r$316) (lib:includes (lambda (r$292) ((lambda (includes$97) ((lambda (r$293) ((lambda (r$315) (lib:name (lambda (r$314) ((lambda (r$294) (lib:name->symbol (lambda (r$311) ((lambda (r$313) (lib:exports (lambda (r$312) ((lambda (r$310) ((lambda (r$295) ((lambda (r$309) (lib:imports (lambda (r$308) ((lambda (r$296) ((lambda (r$307) (lib:body (lambda (r$306) ((lambda (r$297) ((lambda (r$305) (not (lambda (r$298) (if r$298 ((lambda (r$299) (for-each k$290 r$299 includes$97)) (lambda (k$300 include$98) (lib:import->path (lambda (r$304) ((lambda (r$303) (read-file (lambda (r$302) (append (lambda (r$301) (k$300 (set-cell! input-program$73 r$301))) r$302 (cell-get input-program$73))) r$303)) (string-append r$304 include$98))) (cell-get lib-name$83)))) (k$290 #f))) r$305)) (null? includes$97))) (set-cell! input-program$73 r$306))) r$307)) (car (cell-get input-program$73)))) (set-cell! imports$85 r$308))) r$309)) (car (cell-get input-program$73)))) (set-cell! lib-exports$82 r$310))) (cons r$311 r$312))) r$313)) (car (cell-get input-program$73)))) (cell-get lib-name$83))) (set-cell! lib-name$83 r$314))) r$315)) (car (cell-get input-program$73)))) (set-cell! program?$86 #f))) r$292)) r$316)) (car (cell-get input-program$73))))) ((lambda (r$321) ((lambda (r$322) (tagged-list? (lambda (r$317) (if r$317 ((lambda () ((lambda (r$320) ((lambda (r$318) ((lambda (r$319) (k$290 (set-cell! input-program$73 r$319))) (cdr (cell-get input-program$73)))) (set-cell! imports$85 r$320))) (cdar (cell-get input-program$73))))) (k$290 #f))) r$321 r$322)) (car (cell-get input-program$73)))) (quote import)))) r$323)) (car (cell-get input-program$73)))) (lambda (r$191) (trace:info (lambda (r$192) (trace:info (lambda (r$193) (lib:resolve-imports (lambda (r$289) ((lambda (r$194) (trace:info (lambda (r$195) (trace:info (lambda (r$196) (lib:resolve-meta (lambda (r$285) ((lambda (meta$96) (append (lambda (r$288) ((lambda (r$286) (trace:info (lambda (r$287) (trace:info (lambda (r$197) ((lambda (r$280) ((lambda (r$281) (filter (lambda (r$278) ((lambda (macros$95) (append (lambda (r$279) ((lambda (r$198) ((lambda (r$276) ((lambda (r$277) (create-environment (lambda (r$275) (macro:load-env! (lambda (r$199) ((lambda (k$274) (if (cell-get program?$86) (k$274 expand-lambda-body) (k$274 expand))) (lambda (r$272) (macro:get-env (lambda (r$273) (r$272 (lambda (r$271) ((lambda (r$200) (trace:info (lambda (r$201) (trace:info (lambda (r$202) (isolate-globals (lambda (r$270) ((lambda (r$203) ((lambda (k$265) ((lambda (r$269) (has-global? (lambda (r$268) (not (lambda (r$266) (if r$266 (filter-unused-variables (lambda (r$267) (k$265 (set-cell! input-program$73 r$267))) (cell-get input-program$73) (cell-get lib-exports$82)) (k$265 #f))) r$268)) (cell-get input-program$73) r$269)) (quote eval))) (lambda (r$204) (trace:info (lambda (r$205) (trace:info (lambda (r$206) (global-vars (lambda (r$264) ((lambda (r$207) (append (lambda (r$263) ((lambda (r$208) ((lambda (r$261) (map (lambda (r$260) ((lambda (r$209) (trace:info (lambda (r$210) (trace:info (lambda (r$211) ((lambda (r$258) (map (lambda (r$245) ((lambda (cps$92) ((lambda (k$246) ((lambda (k$256) (if library? ((lambda (r$257) (k$256 (equal? (cell-get lib-name$83) r$257))) (quote (scheme base))) (k$256 #f))) (lambda (r$247) (if r$247 ((lambda () ((lambda (r$255) (append (lambda (r$254) ((lambda (r$248) ((lambda (r$253) (append (lambda (r$252) ((lambda (r$249) ((lambda (r$251) ((lambda (r$250) (k$246 (set-cell! input-program$73 r$250))) (cons r$251 cps$92))) (quote (define call/cc (lambda (k f) (f k (lambda (_ result) (k result)))))))) (set-cell! module-globals$87 r$252))) r$253 (cell-get module-globals$87))) (quote (call/cc)))) (set-cell! globals$88 r$254))) r$255 (cell-get globals$88))) (quote (call/cc))))) ((lambda () (k$246 (set-cell! input-program$73 cps$92)))))))) (lambda (r$212) (trace:info (lambda (r$213) (trace:info (lambda (r$214) ((lambda (r$241) (map (lambda (r$240) ((lambda (r$215) (trace:info (lambda (r$216) (trace:info (lambda (r$217) ((lambda (r$229) (map (lambda (r$228) ((lambda (r$218) (trace:info (lambda (r$219) (trace:info (lambda (r$220) ((lambda (k$225) (not (lambda (r$226) (if r$226 ((lambda () (trace:error (lambda (r$227) (k$225 (exit 0))) "DEBUG, existing program"))) (k$225 #f))) *do-code-gen*)) (lambda (r$221) (trace:info (lambda (r$222) (mta:code-gen (lambda (r$223) ((lambda (r$224) (return$81 k$180 r$224)) (quote ()))) (cell-get input-program$73) (cell-get program?$86) (cell-get lib-name$83) (cell-get lib-exports$82) (cell-get imported-vars$84) (cell-get module-globals$87) lib-deps$72 src-file$71)) "---------------- C code:")))) (cell-get input-program$73))) "---------------- after closure-convert:")) (set-cell! input-program$73 r$228))) r$229 (cell-get input-program$73))) (lambda (k$230 expr$89) (define? (lambda (r$231) (if r$231 ((lambda () ((lambda (r$232) (define->var (lambda (r$234) (define->exp (lambda (r$237) (closure-convert (lambda (r$236) ((lambda (r$235) ((lambda (r$233) (k$230 (cons r$232 r$233))) (cons r$234 r$235))) (caddr r$236))) r$237 (cell-get globals$88))) expr$89)) expr$89)) (quote define)))) (define-c? (lambda (r$238) (if r$238 ((lambda () (k$230 expr$89))) ((lambda () (closure-convert (lambda (r$239) (k$230 (caddr r$239))) expr$89 (cell-get globals$88)))))) expr$89))) expr$89)))) (cell-get input-program$73))) "---------------- after wrap-mutables:")) (set-cell! input-program$73 r$240))) r$241 (cell-get input-program$73))) (lambda (k$242 expr$90) (clear-mutables (lambda (r$243) (analyze-mutable-variables (lambda (r$244) (wrap-mutables k$242 expr$90 (cell-get globals$88))) expr$90)))))) (cell-get input-program$73))) "---------------- after CPS:")))) r$245)) r$258 (cell-get input-program$73))) (lambda (k$259 expr$91) (cps-convert k$259 expr$91)))) (cell-get input-program$73))) "---------------- after alpha conversion:")) (set-cell! input-program$73 r$260))) r$261 (cell-get input-program$73))) (lambda (k$262 expr$93) (alpha-convert k$262 expr$93 (cell-get globals$88) return$81)))) (set-cell! globals$88 r$263))) (cell-get imported-vars$84) (cell-get module-globals$87))) (set-cell! module-globals$87 r$264))) (cell-get input-program$73))) (cell-get input-program$73))) "---------------- after processing globals")))) (set-cell! input-program$73 r$270))) (cell-get input-program$73) (cell-get program?$86) (cell-get lib-name$83))) (cell-get input-program$73))) "---------------- after macro expansion:")) (set-cell! input-program$73 r$271))) (cell-get input-program$73) r$273)))))) *defined-macros* r$275)) r$276 r$277)) (quote ()))) (quote ()))) (set-global! *defined-macros* r$279))) macros$95 *defined-macros*)) r$278)) r$280 r$281)) (Cyc-global-vars))) (lambda (k$282 v$94) ((lambda (r$284) ((lambda (r$283) (k$282 (macro? r$283))) (Cyc-get-cvar r$284))) (cdr v$94))))) meta$96)) "resolved macros:")) (set-global! *defined-macros* r$288))) meta$96 *defined-macros*)) r$285)) (cell-get imports$85))) (cell-get imported-vars$84))) "resolved imports:")) (set-cell! imported-vars$84 r$289))) (cell-get imports$85))) (cell-get imports$85))) "imports:")))) (cell-get input-program$73))) "---------------- input program:")) *c-file-header-comment*)) (set-cell! lib-exports$82 r$324))) (quote ()))) (set-cell! lib-name$83 r$325))) (quote ()))) (set-cell! imported-vars$84 r$326))) (quote ()))) (set-cell! imports$85 r$327))) (quote ()))) (set-cell! program?$86 #t))) (set-cell! module-globals$87 r$328))) (quote ()))) (set-cell! globals$88 r$329))) (quote ()))) (cell lib-exports$82))) (cell lib-name$83))) (cell imported-vars$84))) (cell imports$85))) (cell program?$86))) (cell module-globals$87))) (cell globals$88))) #f #f #f #f #f #f #f)))) #f #f #f #f #f #f #f)) (cell input-program$73)))) (define read-file (lambda (k$173 filename$69) ((lambda (r$174) (call-with-input-file k$173 filename$69 r$174)) (lambda (k$175 port$70) (read-all k$175 port$70))))) (define run-compiler (lambda (k$130 args$53 cc?$52) ((lambda (r$131) ((lambda (in-file$54) (read-file (lambda (r$132) ((lambda (in-prog$55) ((lambda (r$170) (library? (lambda (r$169) (not (lambda (r$133) ((lambda (program?$56) ((lambda (k$163) ((lambda (k$166) (if program?$56 ((lambda (r$167) ((lambda (r$168) (tagged-list? k$166 r$167 r$168)) (car in-prog$55))) (quote import)) (k$166 #f))) (lambda (r$164) (if r$164 ((lambda (r$165) (lib:get-all-import-deps k$163 r$165)) (cdar in-prog$55)) (k$163 (quote ())))))) (lambda (r$134) ((lambda (lib-deps$57) (basename (lambda (r$135) ((lambda (exec-file$58) ((lambda (r$136) ((lambda (src-file$59) ((lambda (r$137) ((lambda (meta-file$60) ((lambda (r$138) ((lambda (create-c-file$62) (create-c-file$62 (lambda (r$139) ((lambda (result$63) ((lambda () (if program?$56 ((lambda () ((lambda (objs-str$67 comp-prog-cmd$66 comp-objs-cmd$65) ((lambda (objs-str$67) ((lambda (comp-prog-cmd$66) ((lambda (comp-objs-cmd$65) ((lambda (r$150) (map (lambda (r$149) ((lambda (r$148) ((lambda (r$140) ((lambda (r$147) ((lambda (r$141) ((lambda (r$146) ((lambda (r$142) (if cc?$52 ((lambda () ((lambda (r$144) ((lambda (r$143) (if r$143 (k$130 (system (cell-get comp-objs-cmd$65))) (k$130 #f))) (equal? 0 r$144))) (system (cell-get comp-prog-cmd$66))))) ((lambda () (write (lambda (r$145) (write k$130 (cell-get comp-objs-cmd$65))) (cell-get comp-prog-cmd$66)))))) (set-cell! comp-objs-cmd$65 r$146))) (string-append "gcc " exec-file$58 ".o " (cell-get objs-str$67) " -pthread -lcyclone -lck -lm -g -o " exec-file$58))) (set-cell! comp-prog-cmd$66 r$147))) (string-append "gcc " src-file$59 " -g -c -o " exec-file$58 ".o"))) (set-cell! objs-str$67 r$148))) (apply string-append r$149))) r$150 lib-deps$57)) (lambda (k$151 i$68) (lib:import->filename (lambda (r$152) (k$151 (string-append " " r$152 " "))) i$68 ".o")))) (cell comp-objs-cmd$65))) (cell comp-prog-cmd$66))) (cell objs-str$67))) #f #f #f))) ((lambda () ((lambda (r$155) (with-output-to-file (lambda (r$153) ((lambda (r$154) ((lambda (comp-lib-cmd$64) (if cc?$52 ((lambda () (k$130 (system comp-lib-cmd$64)))) ((lambda () (write k$130 comp-lib-cmd$64))))) r$154)) (string-append "gcc " src-file$59 " -g -c -o " exec-file$58 ".o"))) meta-file$60 r$155)) (lambda (k$156) (display (lambda (r$157) (newline (lambda (r$158) (macro:get-defined-macros (lambda (r$159) (write k$156 r$159)))))) ";; This file was automatically generated by the Cyclone Scheme compiler"))))))))) r$139)) in-prog$55)) r$138)) (lambda (k$160 program$61) ((lambda (r$161) (with-output-to-file k$160 src-file$59 r$161)) (lambda (k$162) (c-compile-and-emit k$162 program$61 lib-deps$57 in-file$54)))))) r$137)) (string-append exec-file$58 ".meta"))) r$136)) (string-append exec-file$58 ".c"))) r$135)) in-file$54)) r$134)))) r$133)) r$169)) r$170)) (car in-prog$55))) r$132)) in-file$54)) r$131)) (car args$53)))) ((lambda () ((lambda (r$99) ((lambda (r$100) ((lambda (r$101) ((lambda (args$47) ((lambda (r$121) (filter (lambda (r$102) ((lambda (non-opts$49) ((lambda (compile?$50) ((lambda (compile?$50) ((lambda () ((lambda (k$119) ((lambda (r$120) (if r$120 (k$119 (set-global! *trace-level* 4)) (k$119 #f))) (member "-t" args$47))) (lambda (r$103) ((lambda (k$117) ((lambda (r$118) (if r$118 (k$117 (set-cell! compile?$50 #f)) (k$117 #f))) (member "-d" args$47))) (lambda (r$104) ((lambda (r$116) ((lambda (r$105) (if r$105 ((lambda () (display (lambda (r$106) (newline %halt)) "cyclone: no input file"))) ((lambda (r$114) ((lambda (tmp$51) ((lambda (k$115) (if tmp$51 (k$115 tmp$51) (k$115 (member "--help" args$47)))) (lambda (r$107) (if r$107 ((lambda () (display (lambda (r$108) (newline %halt)) "
 -t              Show intermediate trace output in generated C files
 -d              Only generate intermediate C files, do not compile them
 -h, --help      Display usage information
 -v              Display version information
 --autogen       Cyclone developer use only, create autogen.out file
"))) ((lambda (r$109) (if r$109 ((lambda () (display %halt *version-banner*))) ((lambda (r$110) (if r$110 ((lambda () (autogen (lambda (r$111) (newline %halt)) "autogen.out"))) ((lambda (r$112) (if r$112 ((lambda () (display %halt *version-banner*))) ((lambda (r$113) (if r$113 ((lambda () (autogen %halt "autogen.out"))) ((lambda () (run-compiler %halt non-opts$49 (cell-get compile?$50)))))) (member "--autogen" args$47)))) (member "-v" args$47)))) (member "--autogen" args$47)))) (member "-v" args$47)))))) r$114)) (member "-h" args$47)))) (< r$116 1))) (length args$47))))))))) (cell compile?$50))) #t)) r$102)) r$121 args$47)) (lambda (k$122 arg$48) ((lambda (k$124) ((lambda (r$127) ((lambda (r$125) (if r$125 ((lambda (r$126) (k$124 (equal? #\- r$126))) (string-ref arg$48 0)) (k$124 #f))) (> r$127 1))) (string-length arg$48))) (lambda (r$123) (not k$122 r$123)))))) r$101)) (command-line-arguments))) #f)) 0))))
 */
/* 
"---------------- after closure-convert:"
 */
/* 
((define c-compile-and-emit (lambda (k$178 input-program$73 lib-deps$72 src-file$71) ((%closure (lambda (self$425 input-program$73) ((%closure (lambda (self$426 globals$80 imported-vars$79 imports$78 lib-exports$77 lib-name$76 module-globals$75 program?$74) ((%closure (lambda (self$596 r$179) ((%closure-ref call/cc 0) call/cc (%closure-ref self$596 1) r$179)) (%closure-ref self$426 2)) (%closure (lambda (self$427 k$180 return$81) ((%closure (lambda (self$428 globals$88 module-globals$87 program?$86 imports$85 imported-vars$84 lib-name$83 lib-exports$82) ((%closure (lambda (self$429 globals$88) ((%closure (lambda (self$430 module-globals$87) ((%closure (lambda (self$431 program?$86) ((%closure (lambda (self$432 imports$85) ((%closure (lambda (self$433 imported-vars$84) ((%closure (lambda (self$434 lib-name$83) ((%closure (lambda (self$435 lib-exports$82) ((%closure (lambda (self$436 r$329) ((%closure (lambda (self$437 r$181) ((%closure (lambda (self$438 r$328) ((%closure (lambda (self$439 r$182) ((%closure (lambda (self$440 r$183) ((%closure (lambda (self$441 r$327) ((%closure (lambda (self$442 r$184) ((%closure (lambda (self$443 r$326) ((%closure (lambda (self$444 r$185) ((%closure (lambda (self$445 r$325) ((%closure (lambda (self$446 r$186) ((%closure (lambda (self$447 r$324) ((%closure (lambda (self$448 r$187) ((%closure-ref emit 0) emit (%closure (lambda (self$449 r$188) ((%closure-ref trace:info 0) trace:info (%closure (lambda (self$450 r$189) ((%closure-ref trace:info 0) trace:info (%closure (lambda (self$451 r$190) ((%closure (lambda (self$559 k$290) ((%closure (lambda (self$560 r$323) ((%closure-ref library? 0) library? (%closure (lambda (self$561 r$291) (if r$291 ((%closure (lambda (self$569) ((%closure (lambda (self$570 r$316) ((%closure-ref lib:includes 0) lib:includes (%closure (lambda (self$571 r$292) ((%closure (lambda (self$572 includes$97) ((%closure (lambda (self$573 r$293) ((%closure (lambda (self$574 r$315) ((%closure-ref lib:name 0) lib:name (%closure (lambda (self$575 r$314) ((%closure (lambda (self$576 r$294) ((%closure-ref lib:name->symbol 0) lib:name->symbol (%closure (lambda (self$577 r$311) ((%closure (lambda (self$578 r$313) ((%closure-ref lib:exports 0) lib:exports (%closure (lambda (self$579 r$312) ((%closure (lambda (self$580 r$310) ((%closure (lambda (self$581 r$295) ((%closure (lambda (self$582 r$309) ((%closure-ref lib:imports 0) lib:imports (%closure (lambda (self$583 r$308) ((%closure (lambda (self$584 r$296) ((%closure (lambda (self$585 r$307) ((%closure-ref lib:body 0) lib:body (%closure (lambda (self$586 r$306) ((%closure (lambda (self$587 r$297) ((%closure (lambda (self$588 r$305) ((%closure-ref not 0) not (%closure (lambda (self$589 r$298) (if r$298 ((%closure (lambda (self$595 r$299) ((%closure-ref for-each 0) for-each (%closure-ref self$595 2) r$299 (%closure-ref self$595 1))) (%closure-ref self$589 1) (%closure-ref self$589 3)) (%closure (lambda (self$590 k$300 include$98) ((%closure-ref lib:import->path 0) lib:import->path (%closure (lambda (self$591 r$304) ((%closure (lambda (self$592 r$303) ((%closure-ref read-file 0) read-file (%closure (lambda (self$593 r$302) ((%closure-ref append 0) append (%closure (lambda (self$594 r$301) ((%closure-ref (%closure-ref self$594 2) 0) (%closure-ref self$594 2) (set-cell! (%closure-ref self$594 1) r$301))) (%closure-ref self$593 1) (%closure-ref self$593 2)) r$302 (cell-get (%closure-ref self$593 1)))) (%closure-ref self$592 1) (%closure-ref self$592 2)) r$303)) (%closure-ref self$591 2) (%closure-ref self$591 3)) (string-append r$304 (%closure-ref self$591 1)))) include$98 (%closure-ref self$590 1) k$300) (cell-get (%closure-ref self$590 2)))) (%closure-ref self$589 2) (%closure-ref self$589 4))) ((%closure-ref (%closure-ref self$589 3) 0) (%closure-ref self$589 3) #f))) (%closure-ref self$588 1) (%closure-ref self$588 2) (%closure-ref self$588 3) (%closure-ref self$588 4)) r$305)) (%closure-ref self$587 1) (%closure-ref self$587 2) (%closure-ref self$587 3) (%closure-ref self$587 4)) (null? (%closure-ref self$587 1)))) (%closure-ref self$586 1) (%closure-ref self$586 2) (%closure-ref self$586 3) (%closure-ref self$586 4)) (set-cell! (%closure-ref self$586 2) r$306))) (%closure-ref self$585 1) (%closure-ref self$585 2) (%closure-ref self$585 3) (%closure-ref self$585 4)) r$307)) (%closure-ref self$584 1) (%closure-ref self$584 2) (%closure-ref self$584 3) (%closure-ref self$584 4)) (car (cell-get (%closure-ref self$584 2))))) (%closure-ref self$583 2) (%closure-ref self$583 3) (%closure-ref self$583 4) (%closure-ref self$583 5)) (set-cell! (%closure-ref self$583 1) r$308))) (%closure-ref self$582 1) (%closure-ref self$582 2) (%closure-ref self$582 3) (%closure-ref self$582 4) (%closure-ref self$582 5)) r$309)) (%closure-ref self$581 1) (%closure-ref self$581 2) (%closure-ref self$581 3) (%closure-ref self$581 4) (%closure-ref self$581 5)) (car (cell-get (%closure-ref self$581 3))))) (%closure-ref self$580 1) (%closure-ref self$580 2) (%closure-ref self$580 3) (%closure-ref self$580 4) (%closure-ref self$580 6)) (set-cell! (%closure-ref self$580 5) r$310))) (%closure-ref self$579 1) (%closure-ref self$579 2) (%closure-ref self$579 3) (%closure-ref self$579 4) (%closure-ref self$579 5) (%closure-ref self$579 6)) (cons (%closure-ref self$579 7) r$312))) (%closure-ref self$578 1) (%closure-ref self$578 2) (%closure-ref self$578 3) (%closure-ref self$578 4) (%closure-ref self$578 5) (%closure-ref self$578 6) (%closure-ref self$578 7)) r$313)) (%closure-ref self$577 1) (%closure-ref self$577 2) (%closure-ref self$577 3) (%closure-ref self$577 4) (%closure-ref self$577 5) (%closure-ref self$577 6) r$311) (car (cell-get (%closure-ref self$577 3))))) (%closure-ref self$576 1) (%closure-ref self$576 2) (%closure-ref self$576 3) (%closure-ref self$576 4) (%closure-ref self$576 5) (%closure-ref self$576 6)) (cell-get (%closure-ref self$576 6)))) (%closure-ref self$575 1) (%closure-ref self$575 2) (%closure-ref self$575 3) (%closure-ref self$575 4) (%closure-ref self$575 5) (%closure-ref self$575 6)) (set-cell! (%closure-ref self$575 6) r$314))) (%closure-ref self$574 1) (%closure-ref self$574 2) (%closure-ref self$574 3) (%closure-ref self$574 4) (%closure-ref self$574 5) (%closure-ref self$574 6)) r$315)) (%closure-ref self$573 1) (%closure-ref self$573 2) (%closure-ref self$573 3) (%closure-ref self$573 4) (%closure-ref self$573 5) (%closure-ref self$573 6)) (car (cell-get (%closure-ref self$573 3))))) (%closure-ref self$572 1) includes$97 (%closure-ref self$572 2) (%closure-ref self$572 3) (%closure-ref self$572 4) (%closure-ref self$572 5)) (set-cell! (%closure-ref self$572 6) #f))) (%closure-ref self$571 1) (%closure-ref self$571 2) (%closure-ref self$571 3) (%closure-ref self$571 4) (%closure-ref self$571 5) (%closure-ref self$571 6)) r$292)) (%closure-ref self$570 1) (%closure-ref self$570 2) (%closure-ref self$570 3) (%closure-ref self$570 4) (%closure-ref self$570 5) (%closure-ref self$570 6)) r$316)) (%closure-ref self$569 1) (%closure-ref self$569 2) (%closure-ref self$569 3) (%closure-ref self$569 4) (%closure-ref self$569 5) (%closure-ref self$569 6)) (car (cell-get (%closure-ref self$569 2))))) (%closure-ref self$561 1) (%closure-ref self$561 2) (%closure-ref self$561 3) (%closure-ref self$561 4) (%closure-ref self$561 5) (%closure-ref self$561 6))) ((%closure (lambda (self$562 r$321) ((%closure (lambda (self$563 r$322) ((%closure-ref tagged-list? 0) tagged-list? (%closure (lambda (self$564 r$317) (if r$317 ((%closure (lambda (self$565) ((%closure (lambda (self$566 r$320) ((%closure (lambda (self$567 r$318) ((%closure (lambda (self$568 r$319) ((%closure-ref (%closure-ref self$568 2) 0) (%closure-ref self$568 2) (set-cell! (%closure-ref self$568 1) r$319))) (%closure-ref self$567 1) (%closure-ref self$567 2)) (cdr (cell-get (%closure-ref self$567 1))))) (%closure-ref self$566 2) (%closure-ref self$566 3)) (set-cell! (%closure-ref self$566 1) r$320))) (%closure-ref self$565 1) (%closure-ref self$565 2) (%closure-ref self$565 3)) (cdar (cell-get (%closure-ref self$565 2))))) (%closure-ref self$564 1) (%closure-ref self$564 2) (%closure-ref self$564 3))) ((%closure-ref (%closure-ref self$564 3) 0) (%closure-ref self$564 3) #f))) (%closure-ref self$563 1) (%closure-ref self$563 2) (%closure-ref self$563 3)) (%closure-ref self$563 4) r$322)) (%closure-ref self$562 1) (%closure-ref self$562 2) (%closure-ref self$562 3) r$321) (car (cell-get (%closure-ref self$562 2))))) (%closure-ref self$561 1) (%closure-ref self$561 2) (%closure-ref self$561 3)) (quote import)))) (%closure-ref self$560 1) (%closure-ref self$560 2) (%closure-ref self$560 3) (%closure-ref self$560 4) (%closure-ref self$560 5) (%closure-ref self$560 6)) r$323)) (%closure-ref self$559 1) (%closure-ref self$559 2) k$290 (%closure-ref self$559 3) (%closure-ref self$559 4) (%closure-ref self$559 5)) (car (cell-get (%closure-ref self$559 2))))) (%closure-ref self$451 3) (%closure-ref self$451 4) (%closure-ref self$451 7) (%closure-ref self$451 8) (%closure-ref self$451 10)) (%closure (lambda (self$452 r$191) ((%closure-ref trace:info 0) trace:info (%closure (lambda (self$453 r$192) ((%closure-ref trace:info 0) trace:info (%closure (lambda (self$454 r$193) ((%closure-ref lib:resolve-imports 0) lib:resolve-imports (%closure (lambda (self$455 r$289) ((%closure (lambda (self$456 r$194) ((%closure-ref trace:info 0) trace:info (%closure (lambda (self$457 r$195) ((%closure-ref trace:info 0) trace:info (%closure (lambda (self$458 r$196) ((%closure-ref lib:resolve-meta 0) lib:resolve-meta (%closure (lambda (self$459 r$285) ((%closure (lambda (self$460 meta$96) ((%closure-ref append 0) append (%closure (lambda (self$461 r$288) ((%closure (lambda (self$462 r$286) ((%closure-ref trace:info 0) trace:info (%closure (lambda (self$463 r$287) ((%closure-ref trace:info 0) trace:info (%closure (lambda (self$464 r$197) ((%closure (lambda (self$468 r$280) ((%closure (lambda (self$469 r$281) ((%closure-ref filter 0) filter (%closure (lambda (self$470 r$278) ((%closure (lambda (self$471 macros$95) ((%closure-ref append 0) append (%closure (lambda (self$472 r$279) ((%closure (lambda (self$473 r$198) ((%closure (lambda (self$474 r$276) ((%closure (lambda (self$475 r$277) ((%closure-ref create-environment 0) create-environment (%closure (lambda (self$476 r$275) ((%closure-ref macro:load-env! 0) macro:load-env! (%closure (lambda (self$477 r$199) ((%closure (lambda (self$558 k$274) (if (cell-get (%closure-ref self$558 1)) ((%closure-ref k$274 0) k$274 expand-lambda-body) ((%closure-ref k$274 0) k$274 expand))) (%closure-ref self$477 9)) (%closure (lambda (self$478 r$272) ((%closure-ref macro:get-env 0) macro:get-env (%closure (lambda (self$479 r$273) ((%closure-ref (%closure-ref self$479 10) 0) (%closure-ref self$479 10) (%closure (lambda (self$480 r$271) ((%closure (lambda (self$481 r$200) ((%closure-ref trace:info 0) trace:info (%closure (lambda (self$482 r$201) ((%closure-ref trace:info 0) trace:info (%closure (lambda (self$483 r$202) ((%closure-ref isolate-globals 0) isolate-globals (%closure (lambda (self$484 r$270) ((%closure (lambda (self$485 r$203) ((%closure (lambda (self$553 k$265) ((%closure (lambda (self$554 r$269) ((%closure-ref has-global? 0) has-global? (%closure (lambda (self$555 r$268) ((%closure-ref not 0) not (%closure (lambda (self$556 r$266) (if r$266 ((%closure-ref filter-unused-variables 0) filter-unused-variables (%closure (lambda (self$557 r$267) ((%closure-ref (%closure-ref self$557 2) 0) (%closure-ref self$557 2) (set-cell! (%closure-ref self$557 1) r$267))) (%closure-ref self$556 1) (%closure-ref self$556 2)) (cell-get (%closure-ref self$556 1)) (cell-get (%closure-ref self$556 3))) ((%closure-ref (%closure-ref self$556 2) 0) (%closure-ref self$556 2) #f))) (%closure-ref self$555 1) (%closure-ref self$555 2) (%closure-ref self$555 3)) r$268)) (%closure-ref self$554 1) (%closure-ref self$554 2) (%closure-ref self$554 3)) (cell-get (%closure-ref self$554 1)) r$269)) (%closure-ref self$553 1) k$265 (%closure-ref self$553 2)) (quote eval))) (%closure-ref self$485 3) (%closure-ref self$485 6)) (%closure (lambda (self$486 r$204) ((%closure-ref trace:info 0) trace:info (%closure (lambda (self$487 r$205) ((%closure-ref trace:info 0) trace:info (%closure (lambda (self$488 r$206) ((%closure-ref global-vars 0) global-vars (%closure (lambda (self$489 r$264) ((%closure (lambda (self$490 r$207) ((%closure-ref append 0) append (%closure (lambda (self$491 r$263) ((%closure (lambda (self$492 r$208) ((%closure (lambda (self$494 r$261) ((%closure-ref map 0) map (%closure (lambda (self$495 r$260) ((%closure (lambda (self$496 r$209) ((%closure-ref trace:info 0) trace:info (%closure (lambda (self$497 r$210) ((%closure-ref trace:info 0) trace:info (%closure (lambda (self$498 r$211) ((%closure (lambda (self$500 r$258) ((%closure-ref map 0) map (%closure (lambda (self$501 r$245) ((%closure (lambda (self$502 cps$92) ((%closure (lambda (self$539 k$246) ((%closure (lambda (self$551 k$256) (if library? ((%closure (lambda (self$552 r$257) ((%closure-ref (%closure-ref self$552 1) 0) (%closure-ref self$552 1) (equal? (cell-get (%closure-ref self$552 2)) r$257))) k$256 (%closure-ref self$551 1)) (quote (scheme base))) ((%closure-ref k$256 0) k$256 #f))) (%closure-ref self$539 4)) (%closure (lambda (self$540 r$247) (if r$247 ((%closure (lambda (self$542) ((%closure (lambda (self$543 r$255) ((%closure-ref append 0) append (%closure (lambda (self$544 r$254) ((%closure (lambda (self$545 r$248) ((%closure (lambda (self$546 r$253) ((%closure-ref append 0) append (%closure (lambda (self$547 r$252) ((%closure (lambda (self$548 r$249) ((%closure (lambda (self$549 r$251) ((%closure (lambda (self$550 r$250) ((%closure-ref (%closure-ref self$550 2) 0) (%closure-ref self$550 2) (set-cell! (%closure-ref self$550 1) r$250))) (%closure-ref self$549 2) (%closure-ref self$549 3)) (cons r$251 (%closure-ref self$549 1)))) (%closure-ref self$548 1) (%closure-ref self$548 2) (%closure-ref self$548 3)) (quote (define call/cc (lambda (k f) (f k (lambda (_ result) (k result)))))))) (%closure-ref self$547 1) (%closure-ref self$547 2) (%closure-ref self$547 3)) (set-cell! (%closure-ref self$547 4) r$252))) (%closure-ref self$546 1) (%closure-ref self$546 2) (%closure-ref self$546 3) (%closure-ref self$546 4)) r$253 (cell-get (%closure-ref self$546 4)))) (%closure-ref self$545 1) (%closure-ref self$545 2) (%closure-ref self$545 3) (%closure-ref self$545 4)) (quote (call/cc)))) (%closure-ref self$544 1) (%closure-ref self$544 3) (%closure-ref self$544 4) (%closure-ref self$544 5)) (set-cell! (%closure-ref self$544 2) r$254))) (%closure-ref self$543 1) (%closure-ref self$543 2) (%closure-ref self$543 3) (%closure-ref self$543 4) (%closure-ref self$543 5)) r$255 (cell-get (%closure-ref self$543 2)))) (%closure-ref self$542 1) (%closure-ref self$542 2) (%closure-ref self$542 3) (%closure-ref self$542 4) (%closure-ref self$542 5)) (quote (call/cc)))) (%closure-ref self$540 1) (%closure-ref self$540 2) (%closure-ref self$540 3) (%closure-ref self$540 4) (%closure-ref self$540 5))) ((%closure (lambda (self$541) ((%closure-ref (%closure-ref self$541 3) 0) (%closure-ref self$541 3) (set-cell! (%closure-ref self$541 2) (%closure-ref self$541 1)))) (%closure-ref self$540 1) (%closure-ref self$540 3) (%closure-ref self$540 4))))) (%closure-ref self$539 1) (%closure-ref self$539 2) (%closure-ref self$539 3) k$246 (%closure-ref self$539 5)))) cps$92 (%closure-ref self$502 1) (%closure-ref self$502 3) (%closure-ref self$502 7) (%closure-ref self$502 8)) (%closure (lambda (self$503 r$212) ((%closure-ref trace:info 0) trace:info (%closure (lambda (self$504 r$213) ((%closure-ref trace:info 0) trace:info (%closure (lambda (self$505 r$214) ((%closure (lambda (self$509 r$241) ((%closure-ref map 0) map (%closure (lambda (self$510 r$240) ((%closure (lambda (self$511 r$215) ((%closure-ref trace:info 0) trace:info (%closure (lambda (self$512 r$216) ((%closure-ref trace:info 0) trace:info (%closure (lambda (self$513 r$217) ((%closure (lambda (self$527 r$229) ((%closure-ref map 0) map (%closure (lambda (self$528 r$228) ((%closure (lambda (self$529 r$218) ((%closure-ref trace:info 0) trace:info (%closure (lambda (self$530 r$219) ((%closure-ref trace:info 0) trace:info (%closure (lambda (self$531 r$220) ((lambda (k$225) ((%closure-ref not 0) not (%closure (lambda (self$536 r$226) (if r$226 ((%closure (lambda (self$537) ((%closure-ref trace:error 0) trace:error (%closure (lambda (self$538 r$227) ((%closure-ref (%closure-ref self$538 1) 0) (%closure-ref self$538 1) (exit 0))) (%closure-ref self$537 1)) "DEBUG, existing program")) (%closure-ref self$536 1))) ((%closure-ref (%closure-ref self$536 1) 0) (%closure-ref self$536 1) #f))) k$225) *do-code-gen*)) (%closure (lambda (self$532 r$221) ((%closure-ref trace:info 0) trace:info (%closure (lambda (self$533 r$222) ((%closure-ref mta:code-gen 0) mta:code-gen (%closure (lambda (self$534 r$223) ((%closure (lambda (self$535 r$224) ((%closure-ref (%closure-ref self$535 2) 0) (%closure-ref self$535 2) (%closure-ref self$535 1) r$224)) (%closure-ref self$534 1) (%closure-ref self$534 2)) (quote ()))) (%closure-ref self$533 3) (%closure-ref self$533 9)) (cell-get (%closure-ref self$533 2)) (cell-get (%closure-ref self$533 8)) (cell-get (%closure-ref self$533 6)) (cell-get (%closure-ref self$533 5)) (cell-get (%closure-ref self$533 1)) (cell-get (%closure-ref self$533 7)) (%closure-ref self$533 4) (%closure-ref self$533 10))) (%closure-ref self$532 1) (%closure-ref self$532 2) (%closure-ref self$532 3) (%closure-ref self$532 4) (%closure-ref self$532 5) (%closure-ref self$532 6) (%closure-ref self$532 7) (%closure-ref self$532 8) (%closure-ref self$532 9) (%closure-ref self$532 10)) "---------------- C code:")) (%closure-ref self$531 1) (%closure-ref self$531 2) (%closure-ref self$531 3) (%closure-ref self$531 4) (%closure-ref self$531 5) (%closure-ref self$531 6) (%closure-ref self$531 7) (%closure-ref self$531 8) (%closure-ref self$531 9) (%closure-ref self$531 10)))) (%closure-ref self$530 1) (%closure-ref self$530 2) (%closure-ref self$530 3) (%closure-ref self$530 4) (%closure-ref self$530 5) (%closure-ref self$530 6) (%closure-ref self$530 7) (%closure-ref self$530 8) (%closure-ref self$530 9) (%closure-ref self$530 10)) (cell-get (%closure-ref self$530 2)))) (%closure-ref self$529 1) (%closure-ref self$529 2) (%closure-ref self$529 3) (%closure-ref self$529 4) (%closure-ref self$529 5) (%closure-ref self$529 6) (%closure-ref self$529 7) (%closure-ref self$529 8) (%closure-ref self$529 9) (%closure-ref self$529 10)) "---------------- after closure-convert:")) (%closure-ref self$528 1) (%closure-ref self$528 2) (%closure-ref self$528 3) (%closure-ref self$528 4) (%closure-ref self$528 5) (%closure-ref self$528 6) (%closure-ref self$528 7) (%closure-ref self$528 8) (%closure-ref self$528 9) (%closure-ref self$528 10)) (set-cell! (%closure-ref self$528 2) r$228))) (%closure-ref self$527 1) (%closure-ref self$527 2) (%closure-ref self$527 3) (%closure-ref self$527 4) (%closure-ref self$527 5) (%closure-ref self$527 6) (%closure-ref self$527 7) (%closure-ref self$527 8) (%closure-ref self$527 9) (%closure-ref self$527 10)) r$229 (cell-get (%closure-ref self$527 2)))) (%closure-ref self$513 2) (%closure-ref self$513 3) (%closure-ref self$513 4) (%closure-ref self$513 5) (%closure-ref self$513 6) (%closure-ref self$513 7) (%closure-ref self$513 8) (%closure-ref self$513 9) (%closure-ref self$513 10) (%closure-ref self$513 11)) (%closure (lambda (self$514 k$230 expr$89) ((%closure-ref define? 0) define? (%closure (lambda (self$515 r$231) (if r$231 ((%closure (lambda (self$520) ((%closure (lambda (self$521 r$232) ((%closure-ref define->var 0) define->var (%closure (lambda (self$522 r$234) ((%closure-ref define->exp 0) define->exp (%closure (lambda (self$523 r$237) ((%closure-ref closure-convert 0) closure-convert (%closure (lambda (self$524 r$236) ((%closure (lambda (self$525 r$235) ((%closure (lambda (self$526 r$233) ((%closure-ref (%closure-ref self$526 1) 0) (%closure-ref self$526 1) (cons (%closure-ref self$526 2) r$233))) (%closure-ref self$525 1) (%closure-ref self$525 2)) (cons (%closure-ref self$525 3) r$235))) (%closure-ref self$524 1) (%closure-ref self$524 2) (%closure-ref self$524 3)) (caddr r$236))) (%closure-ref self$523 2) (%closure-ref self$523 3) (%closure-ref self$523 4)) r$237 (cell-get (%closure-ref self$523 1)))) (%closure-ref self$522 2) (%closure-ref self$522 3) (%closure-ref self$522 4) r$234) (%closure-ref self$522 1))) (%closure-ref self$521 1) (%closure-ref self$521 2) (%closure-ref self$521 3) r$232) (%closure-ref self$521 1))) (%closure-ref self$520 1) (%closure-ref self$520 2) (%closure-ref self$520 3)) (quote define))) (%closure-ref self$515 1) (%closure-ref self$515 2) (%closure-ref self$515 3))) ((%closure-ref define-c? 0) define-c? (%closure (lambda (self$516 r$238) (if r$238 ((%closure (lambda (self$519) ((%closure-ref (%closure-ref self$519 2) 0) (%closure-ref self$519 2) (%closure-ref self$519 1))) (%closure-ref self$516 1) (%closure-ref self$516 3))) ((%closure (lambda (self$517) ((%closure-ref closure-convert 0) closure-convert (%closure (lambda (self$518 r$239) ((%closure-ref (%closure-ref self$518 1) 0) (%closure-ref self$518 1) (caddr r$239))) (%closure-ref self$517 3)) (%closure-ref self$517 1) (cell-get (%closure-ref self$517 2)))) (%closure-ref self$516 1) (%closure-ref self$516 2) (%closure-ref self$516 3))))) (%closure-ref self$515 1) (%closure-ref self$515 2) (%closure-ref self$515 3)) (%closure-ref self$515 1)))) expr$89 (%closure-ref self$514 1) k$230) expr$89)) (%closure-ref self$513 1)))) (%closure-ref self$512 1) (%closure-ref self$512 2) (%closure-ref self$512 3) (%closure-ref self$512 4) (%closure-ref self$512 5) (%closure-ref self$512 6) (%closure-ref self$512 7) (%closure-ref self$512 8) (%closure-ref self$512 9) (%closure-ref self$512 10) (%closure-ref self$512 11)) (cell-get (%closure-ref self$512 3)))) (%closure-ref self$511 1) (%closure-ref self$511 2) (%closure-ref self$511 3) (%closure-ref self$511 4) (%closure-ref self$511 5) (%closure-ref self$511 6) (%closure-ref self$511 7) (%closure-ref self$511 8) (%closure-ref self$511 9) (%closure-ref self$511 10) (%closure-ref self$511 11)) "---------------- after wrap-mutables:")) (%closure-ref self$510 1) (%closure-ref self$510 2) (%closure-ref self$510 3) (%closure-ref self$510 4) (%closure-ref self$510 5) (%closure-ref self$510 6) (%closure-ref self$510 7) (%closure-ref self$510 8) (%closure-ref self$510 9) (%closure-ref self$510 10) (%closure-ref self$510 11)) (set-cell! (%closure-ref self$510 3) r$240))) (%closure-ref self$509 1) (%closure-ref self$509 2) (%closure-ref self$509 3) (%closure-ref self$509 4) (%closure-ref self$509 5) (%closure-ref self$509 6) (%closure-ref self$509 7) (%closure-ref self$509 8) (%closure-ref self$509 9) (%closure-ref self$509 10) (%closure-ref self$509 11)) r$241 (cell-get (%closure-ref self$509 3)))) (%closure-ref self$505 1) (%closure-ref self$505 2) (%closure-ref self$505 3) (%closure-ref self$505 4) (%closure-ref self$505 5) (%closure-ref self$505 6) (%closure-ref self$505 7) (%closure-ref self$505 8) (%closure-ref self$505 9) (%closure-ref self$505 10) (%closure-ref self$505 11)) (%closure (lambda (self$506 k$242 expr$90) ((%closure-ref clear-mutables 0) clear-mutables (%closure (lambda (self$507 r$243) ((%closure-ref analyze-mutable-variables 0) analyze-mutable-variables (%closure (lambda (self$508 r$244) ((%closure-ref wrap-mutables 0) wrap-mutables (%closure-ref self$508 3) (%closure-ref self$508 1) (cell-get (%closure-ref self$508 2)))) (%closure-ref self$507 1) (%closure-ref self$507 2) (%closure-ref self$507 3)) (%closure-ref self$507 1))) expr$90 (%closure-ref self$506 1) k$242))) (%closure-ref self$505 1)))) (%closure-ref self$504 1) (%closure-ref self$504 2) (%closure-ref self$504 3) (%closure-ref self$504 4) (%closure-ref self$504 5) (%closure-ref self$504 6) (%closure-ref self$504 7) (%closure-ref self$504 8) (%closure-ref self$504 9) (%closure-ref self$504 10) (%closure-ref self$504 11)) (cell-get (%closure-ref self$504 3)))) (%closure-ref self$503 1) (%closure-ref self$503 2) (%closure-ref self$503 3) (%closure-ref self$503 4) (%closure-ref self$503 5) (%closure-ref self$503 6) (%closure-ref self$503 7) (%closure-ref self$503 8) (%closure-ref self$503 9) (%closure-ref self$503 10) (%closure-ref self$503 11)) "---------------- after CPS:")) (%closure-ref self$502 1) (%closure-ref self$502 2) (%closure-ref self$502 3) (%closure-ref self$502 4) (%closure-ref self$502 5) (%closure-ref self$502 6) (%closure-ref self$502 7) (%closure-ref self$502 8) (%closure-ref self$502 9) (%closure-ref self$502 10) (%closure-ref self$502 11)))) (%closure-ref self$501 1) (%closure-ref self$501 2) (%closure-ref self$501 3) (%closure-ref self$501 4) (%closure-ref self$501 5) (%closure-ref self$501 6) (%closure-ref self$501 7) (%closure-ref self$501 8) (%closure-ref self$501 9) (%closure-ref self$501 10) (%closure-ref self$501 11)) r$245)) (%closure-ref self$500 1) (%closure-ref self$500 2) (%closure-ref self$500 3) (%closure-ref self$500 4) (%closure-ref self$500 5) (%closure-ref self$500 6) (%closure-ref self$500 7) (%closure-ref self$500 8) (%closure-ref self$500 9) (%closure-ref self$500 10) (%closure-ref self$500 11)) r$258 (cell-get (%closure-ref self$500 3)))) (%closure-ref self$498 1) (%closure-ref self$498 2) (%closure-ref self$498 3) (%closure-ref self$498 4) (%closure-ref self$498 5) (%closure-ref self$498 6) (%closure-ref self$498 7) (%closure-ref self$498 8) (%closure-ref self$498 9) (%closure-ref self$498 10) (%closure-ref self$498 11)) (%closure (lambda (self$499 k$259 expr$91) ((%closure-ref cps-convert 0) cps-convert k$259 expr$91))))) (%closure-ref self$497 1) (%closure-ref self$497 2) (%closure-ref self$497 3) (%closure-ref self$497 4) (%closure-ref self$497 5) (%closure-ref self$497 6) (%closure-ref self$497 7) (%closure-ref self$497 8) (%closure-ref self$497 9) (%closure-ref self$497 10) (%closure-ref self$497 11)) (cell-get (%closure-ref self$497 3)))) (%closure-ref self$496 1) (%closure-ref self$496 2) (%closure-ref self$496 3) (%closure-ref self$496 4) (%closure-ref self$496 5) (%closure-ref self$496 6) (%closure-ref self$496 7) (%closure-ref self$496 8) (%closure-ref self$496 9) (%closure-ref self$496 10) (%closure-ref self$496 11)) "---------------- after alpha conversion:")) (%closure-ref self$495 1) (%closure-ref self$495 2) (%closure-ref self$495 3) (%closure-ref self$495 4) (%closure-ref self$495 5) (%closure-ref self$495 6) (%closure-ref self$495 7) (%closure-ref self$495 8) (%closure-ref self$495 9) (%closure-ref self$495 10) (%closure-ref self$495 11)) (set-cell! (%closure-ref self$495 3) r$260))) (%closure-ref self$494 1) (%closure-ref self$494 2) (%closure-ref self$494 3) (%closure-ref self$494 4) (%closure-ref self$494 5) (%closure-ref self$494 6) (%closure-ref self$494 7) (%closure-ref self$494 8) (%closure-ref self$494 9) (%closure-ref self$494 10) (%closure-ref self$494 11)) r$261 (cell-get (%closure-ref self$494 3)))) (%closure-ref self$492 1) (%closure-ref self$492 2) (%closure-ref self$492 3) (%closure-ref self$492 4) (%closure-ref self$492 5) (%closure-ref self$492 6) (%closure-ref self$492 7) (%closure-ref self$492 8) (%closure-ref self$492 9) (%closure-ref self$492 10) (%closure-ref self$492 11)) (%closure (lambda (self$493 k$262 expr$93) ((%closure-ref alpha-convert 0) alpha-convert k$262 expr$93 (cell-get (%closure-ref self$493 1)) (%closure-ref self$493 2))) (%closure-ref self$492 1) (%closure-ref self$492 10)))) (%closure-ref self$491 1) (%closure-ref self$491 2) (%closure-ref self$491 3) (%closure-ref self$491 4) (%closure-ref self$491 5) (%closure-ref self$491 6) (%closure-ref self$491 7) (%closure-ref self$491 8) (%closure-ref self$491 9) (%closure-ref self$491 10) (%closure-ref self$491 11)) (set-cell! (%closure-ref self$491 1) r$263))) (%closure-ref self$490 1) (%closure-ref self$490 2) (%closure-ref self$490 3) (%closure-ref self$490 4) (%closure-ref self$490 5) (%closure-ref self$490 6) (%closure-ref self$490 7) (%closure-ref self$490 8) (%closure-ref self$490 9) (%closure-ref self$490 10) (%closure-ref self$490 11)) (cell-get (%closure-ref self$490 2)) (cell-get (%closure-ref self$490 8)))) (%closure-ref self$489 1) (%closure-ref self$489 2) (%closure-ref self$489 3) (%closure-ref self$489 4) (%closure-ref self$489 5) (%closure-ref self$489 6) (%closure-ref self$489 7) (%closure-ref self$489 8) (%closure-ref self$489 9) (%closure-ref self$489 10) (%closure-ref self$489 11)) (set-cell! (%closure-ref self$489 8) r$264))) (%closure-ref self$488 1) (%closure-ref self$488 2) (%closure-ref self$488 3) (%closure-ref self$488 4) (%closure-ref self$488 5) (%closure-ref self$488 6) (%closure-ref self$488 7) (%closure-ref self$488 8) (%closure-ref self$488 9) (%closure-ref self$488 10) (%closure-ref self$488 11)) (cell-get (%closure-ref self$488 3)))) (%closure-ref self$487 1) (%closure-ref self$487 2) (%closure-ref self$487 3) (%closure-ref self$487 4) (%closure-ref self$487 5) (%closure-ref self$487 6) (%closure-ref self$487 7) (%closure-ref self$487 8) (%closure-ref self$487 9) (%closure-ref self$487 10) (%closure-ref self$487 11)) (cell-get (%closure-ref self$487 3)))) (%closure-ref self$486 1) (%closure-ref self$486 2) (%closure-ref self$486 3) (%closure-ref self$486 4) (%closure-ref self$486 5) (%closure-ref self$486 6) (%closure-ref self$486 7) (%closure-ref self$486 8) (%closure-ref self$486 9) (%closure-ref self$486 10) (%closure-ref self$486 11)) "---------------- after processing globals")) (%closure-ref self$485 1) (%closure-ref self$485 2) (%closure-ref self$485 3) (%closure-ref self$485 4) (%closure-ref self$485 5) (%closure-ref self$485 6) (%closure-ref self$485 7) (%closure-ref self$485 8) (%closure-ref self$485 9) (%closure-ref self$485 10) (%closure-ref self$485 11)))) (%closure-ref self$484 1) (%closure-ref self$484 2) (%closure-ref self$484 3) (%closure-ref self$484 4) (%closure-ref self$484 5) (%closure-ref self$484 6) (%closure-ref self$484 7) (%closure-ref self$484 8) (%closure-ref self$484 9) (%closure-ref self$484 10) (%closure-ref self$484 11)) (set-cell! (%closure-ref self$484 3) r$270))) (%closure-ref self$483 1) (%closure-ref self$483 2) (%closure-ref self$483 3) (%closure-ref self$483 4) (%closure-ref self$483 5) (%closure-ref self$483 6) (%closure-ref self$483 7) (%closure-ref self$483 8) (%closure-ref self$483 9) (%closure-ref self$483 10) (%closure-ref self$483 11)) (cell-get (%closure-ref self$483 3)) (cell-get (%closure-ref self$483 9)) (cell-get (%closure-ref self$483 7)))) (%closure-ref self$482 1) (%closure-ref self$482 2) (%closure-ref self$482 3) (%closure-ref self$482 4) (%closure-ref self$482 5) (%closure-ref self$482 6) (%closure-ref self$482 7) (%closure-ref self$482 8) (%closure-ref self$482 9) (%closure-ref self$482 10) (%closure-ref self$482 11)) (cell-get (%closure-ref self$482 3)))) (%closure-ref self$481 1) (%closure-ref self$481 2) (%closure-ref self$481 3) (%closure-ref self$481 4) (%closure-ref self$481 5) (%closure-ref self$481 6) (%closure-ref self$481 7) (%closure-ref self$481 8) (%closure-ref self$481 9) (%closure-ref self$481 10) (%closure-ref self$481 11)) "---------------- after macro expansion:")) (%closure-ref self$480 1) (%closure-ref self$480 2) (%closure-ref self$480 3) (%closure-ref self$480 4) (%closure-ref self$480 5) (%closure-ref self$480 6) (%closure-ref self$480 7) (%closure-ref self$480 8) (%closure-ref self$480 9) (%closure-ref self$480 10) (%closure-ref self$480 11)) (set-cell! (%closure-ref self$480 3) r$271))) (%closure-ref self$479 1) (%closure-ref self$479 2) (%closure-ref self$479 3) (%closure-ref self$479 4) (%closure-ref self$479 5) (%closure-ref self$479 6) (%closure-ref self$479 7) (%closure-ref self$479 8) (%closure-ref self$479 9) (%closure-ref self$479 11) (%closure-ref self$479 12)) (cell-get (%closure-ref self$479 3)) r$273)) (%closure-ref self$478 1) (%closure-ref self$478 2) (%closure-ref self$478 3) (%closure-ref self$478 4) (%closure-ref self$478 5) (%closure-ref self$478 6) (%closure-ref self$478 7) (%closure-ref self$478 8) (%closure-ref self$478 9) r$272 (%closure-ref self$478 10) (%closure-ref self$478 11)))) (%closure-ref self$477 1) (%closure-ref self$477 2) (%closure-ref self$477 3) (%closure-ref self$477 4) (%closure-ref self$477 5) (%closure-ref self$477 6) (%closure-ref self$477 7) (%closure-ref self$477 8) (%closure-ref self$477 9) (%closure-ref self$477 10) (%closure-ref self$477 11)))) (%closure-ref self$476 1) (%closure-ref self$476 2) (%closure-ref self$476 3) (%closure-ref self$476 4) (%closure-ref self$476 5) (%closure-ref self$476 6) (%closure-ref self$476 7) (%closure-ref self$476 8) (%closure-ref self$476 9) (%closure-ref self$476 10) (%closure-ref self$476 11)) *defined-macros* r$275)) (%closure-ref self$475 1) (%closure-ref self$475 2) (%closure-ref self$475 3) (%closure-ref self$475 4) (%closure-ref self$475 5) (%closure-ref self$475 6) (%closure-ref self$475 7) (%closure-ref self$475 8) (%closure-ref self$475 9) (%closure-ref self$475 11) (%closure-ref self$475 12)) (%closure-ref self$475 10) r$277)) (%closure-ref self$474 1) (%closure-ref self$474 2) (%closure-ref self$474 3) (%closure-ref self$474 4) (%closure-ref self$474 5) (%closure-ref self$474 6) (%closure-ref self$474 7) (%closure-ref self$474 8) (%closure-ref self$474 9) r$276 (%closure-ref self$474 10) (%closure-ref self$474 11)) (quote ()))) (%closure-ref self$473 1) (%closure-ref self$473 2) (%closure-ref self$473 3) (%closure-ref self$473 4) (%closure-ref self$473 5) (%closure-ref self$473 6) (%closure-ref self$473 7) (%closure-ref self$473 8) (%closure-ref self$473 9) (%closure-ref self$473 10) (%closure-ref self$473 11)) (quote ()))) (%closure-ref self$472 1) (%closure-ref self$472 2) (%closure-ref self$472 3) (%closure-ref self$472 4) (%closure-ref self$472 5) (%closure-ref self$472 6) (%closure-ref self$472 7) (%closure-ref self$472 8) (%closure-ref self$472 9) (%closure-ref self$472 10) (%closure-ref self$472 11)) (set-global! *defined-macros* r$279))) (%closure-ref self$471 1) (%closure-ref self$471 2) (%closure-ref self$471 3) (%closure-ref self$471 4) (%closure-ref self$471 5) (%closure-ref self$471 6) (%closure-ref self$471 7) (%closure-ref self$471 8) (%closure-ref self$471 9) (%closure-ref self$471 10) (%closure-ref self$471 11)) macros$95 *defined-macros*)) (%closure-ref self$470 1) (%closure-ref self$470 2) (%closure-ref self$470 3) (%closure-ref self$470 4) (%closure-ref self$470 5) (%closure-ref self$470 6) (%closure-ref self$470 7) (%closure-ref self$470 8) (%closure-ref self$470 9) (%closure-ref self$470 10) (%closure-ref self$470 11)) r$278)) (%closure-ref self$469 1) (%closure-ref self$469 2) (%closure-ref self$469 3) (%closure-ref self$469 4) (%closure-ref self$469 5) (%closure-ref self$469 6) (%closure-ref self$469 7) (%closure-ref self$469 8) (%closure-ref self$469 9) (%closure-ref self$469 11) (%closure-ref self$469 12)) (%closure-ref self$469 10) r$281)) (%closure-ref self$468 1) (%closure-ref self$468 2) (%closure-ref self$468 3) (%closure-ref self$468 4) (%closure-ref self$468 5) (%closure-ref self$468 6) (%closure-ref self$468 7) (%closure-ref self$468 8) (%closure-ref self$468 9) r$280 (%closure-ref self$468 10) (%closure-ref self$468 11)) (Cyc-global-vars))) (%closure-ref self$464 1) (%closure-ref self$464 2) (%closure-ref self$464 3) (%closure-ref self$464 4) (%closure-ref self$464 5) (%closure-ref self$464 6) (%closure-ref self$464 7) (%closure-ref self$464 8) (%closure-ref self$464 9) (%closure-ref self$464 10) (%closure-ref self$464 11)) (%closure (lambda (self$465 k$282 v$94) ((%closure (lambda (self$466 r$284) ((%closure (lambda (self$467 r$283) ((%closure-ref (%closure-ref self$467 1) 0) (%closure-ref self$467 1) (macro? r$283))) (%closure-ref self$466 1)) (Cyc-get-cvar r$284))) k$282) (cdr v$94)))))) (%closure-ref self$463 1) (%closure-ref self$463 2) (%closure-ref self$463 3) (%closure-ref self$463 4) (%closure-ref self$463 5) (%closure-ref self$463 6) (%closure-ref self$463 7) (%closure-ref self$463 9) (%closure-ref self$463 10) (%closure-ref self$463 11) (%closure-ref self$463 12)) (%closure-ref self$463 8))) (%closure-ref self$462 1) (%closure-ref self$462 2) (%closure-ref self$462 3) (%closure-ref self$462 4) (%closure-ref self$462 5) (%closure-ref self$462 6) (%closure-ref self$462 7) (%closure-ref self$462 8) (%closure-ref self$462 9) (%closure-ref self$462 10) (%closure-ref self$462 11) (%closure-ref self$462 12)) "resolved macros:")) (%closure-ref self$461 1) (%closure-ref self$461 2) (%closure-ref self$461 3) (%closure-ref self$461 4) (%closure-ref self$461 5) (%closure-ref self$461 6) (%closure-ref self$461 7) (%closure-ref self$461 8) (%closure-ref self$461 9) (%closure-ref self$461 10) (%closure-ref self$461 11) (%closure-ref self$461 12)) (set-global! *defined-macros* r$288))) (%closure-ref self$460 1) (%closure-ref self$460 2) (%closure-ref self$460 3) (%closure-ref self$460 4) (%closure-ref self$460 5) (%closure-ref self$460 6) (%closure-ref self$460 7) meta$96 (%closure-ref self$460 8) (%closure-ref self$460 9) (%closure-ref self$460 10) (%closure-ref self$460 11)) meta$96 *defined-macros*)) (%closure-ref self$459 1) (%closure-ref self$459 2) (%closure-ref self$459 3) (%closure-ref self$459 4) (%closure-ref self$459 5) (%closure-ref self$459 6) (%closure-ref self$459 7) (%closure-ref self$459 8) (%closure-ref self$459 9) (%closure-ref self$459 10) (%closure-ref self$459 11)) r$285)) (%closure-ref self$458 1) (%closure-ref self$458 2) (%closure-ref self$458 4) (%closure-ref self$458 5) (%closure-ref self$458 6) (%closure-ref self$458 7) (%closure-ref self$458 8) (%closure-ref self$458 9) (%closure-ref self$458 10) (%closure-ref self$458 11) (%closure-ref self$458 12)) (cell-get (%closure-ref self$458 3)))) (%closure-ref self$457 1) (%closure-ref self$457 2) (%closure-ref self$457 3) (%closure-ref self$457 4) (%closure-ref self$457 5) (%closure-ref self$457 6) (%closure-ref self$457 7) (%closure-ref self$457 8) (%closure-ref self$457 9) (%closure-ref self$457 10) (%closure-ref self$457 11) (%closure-ref self$457 12)) (cell-get (%closure-ref self$457 2)))) (%closure-ref self$456 1) (%closure-ref self$456 2) (%closure-ref self$456 3) (%closure-ref self$456 4) (%closure-ref self$456 5) (%closure-ref self$456 6) (%closure-ref self$456 7) (%closure-ref self$456 8) (%closure-ref self$456 9) (%closure-ref self$456 10) (%closure-ref self$456 11) (%closure-ref self$456 12)) "resolved imports:")) (%closure-ref self$455 1) (%closure-ref self$455 2) (%closure-ref self$455 3) (%closure-ref self$455 4) (%closure-ref self$455 5) (%closure-ref self$455 6) (%closure-ref self$455 7) (%closure-ref self$455 8) (%closure-ref self$455 9) (%closure-ref self$455 10) (%closure-ref self$455 11) (%closure-ref self$455 12)) (set-cell! (%closure-ref self$455 2) r$289))) (%closure-ref self$454 1) (%closure-ref self$454 2) (%closure-ref self$454 3) (%closure-ref self$454 4) (%closure-ref self$454 5) (%closure-ref self$454 6) (%closure-ref self$454 7) (%closure-ref self$454 8) (%closure-ref self$454 9) (%closure-ref self$454 10) (%closure-ref self$454 11) (%closure-ref self$454 12)) (cell-get (%closure-ref self$454 3)))) (%closure-ref self$453 1) (%closure-ref self$453 2) (%closure-ref self$453 3) (%closure-ref self$453 4) (%closure-ref self$453 5) (%closure-ref self$453 6) (%closure-ref self$453 7) (%closure-ref self$453 8) (%closure-ref self$453 9) (%closure-ref self$453 10) (%closure-ref self$453 11) (%closure-ref self$453 12)) (cell-get (%closure-ref self$453 3)))) (%closure-ref self$452 1) (%closure-ref self$452 2) (%closure-ref self$452 3) (%closure-ref self$452 4) (%closure-ref self$452 5) (%closure-ref self$452 6) (%closure-ref self$452 7) (%closure-ref self$452 8) (%closure-ref self$452 9) (%closure-ref self$452 10) (%closure-ref self$452 11) (%closure-ref self$452 12)) "imports:")) (%closure-ref self$451 1) (%closure-ref self$451 2) (%closure-ref self$451 3) (%closure-ref self$451 4) (%closure-ref self$451 5) (%closure-ref self$451 6) (%closure-ref self$451 7) (%closure-ref self$451 8) (%closure-ref self$451 9) (%closure-ref self$451 10) (%closure-ref self$451 11) (%closure-ref self$451 12)))) (%closure-ref self$450 1) (%closure-ref self$450 2) (%closure-ref self$450 3) (%closure-ref self$450 4) (%closure-ref self$450 5) (%closure-ref self$450 6) (%closure-ref self$450 7) (%closure-ref self$450 8) (%closure-ref self$450 9) (%closure-ref self$450 10) (%closure-ref self$450 11) (%closure-ref self$450 12)) (cell-get (%closure-ref self$450 4)))) (%closure-ref self$449 1) (%closure-ref self$449 2) (%closure-ref self$449 3) (%closure-ref self$449 4) (%closure-ref self$449 5) (%closure-ref self$449 6) (%closure-ref self$449 7) (%closure-ref self$449 8) (%closure-ref self$449 9) (%closure-ref self$449 10) (%closure-ref self$449 11) (%closure-ref self$449 12)) "---------------- input program:")) (%closure-ref self$448 1) (%closure-ref self$448 2) (%closure-ref self$448 3) (%closure-ref self$448 4) (%closure-ref self$448 5) (%closure-ref self$448 6) (%closure-ref self$448 7) (%closure-ref self$448 8) (%closure-ref self$448 9) (%closure-ref self$448 10) (%closure-ref self$448 11) (%closure-ref self$448 12)) *c-file-header-comment*)) (%closure-ref self$447 1) (%closure-ref self$447 2) (%closure-ref self$447 3) (%closure-ref self$447 4) (%closure-ref self$447 5) (%closure-ref self$447 6) (%closure-ref self$447 7) (%closure-ref self$447 8) (%closure-ref self$447 9) (%closure-ref self$447 10) (%closure-ref self$447 11) (%closure-ref self$447 12)) (set-cell! (%closure-ref self$447 7) r$324))) (%closure-ref self$446 1) (%closure-ref self$446 2) (%closure-ref self$446 3) (%closure-ref self$446 4) (%closure-ref self$446 5) (%closure-ref self$446 6) (%closure-ref self$446 7) (%closure-ref self$446 8) (%closure-ref self$446 9) (%closure-ref self$446 10) (%closure-ref self$446 11) (%closure-ref self$446 12)) (quote ()))) (%closure-ref self$445 1) (%closure-ref self$445 2) (%closure-ref self$445 3) (%closure-ref self$445 4) (%closure-ref self$445 5) (%closure-ref self$445 6) (%closure-ref self$445 7) (%closure-ref self$445 8) (%closure-ref self$445 9) (%closure-ref self$445 10) (%closure-ref self$445 11) (%closure-ref self$445 12)) (set-cell! (%closure-ref self$445 8) r$325))) (%closure-ref self$444 1) (%closure-ref self$444 2) (%closure-ref self$444 3) (%closure-ref self$444 4) (%closure-ref self$444 5) (%closure-ref self$444 6) (%closure-ref self$444 7) (%closure-ref self$444 8) (%closure-ref self$444 9) (%closure-ref self$444 10) (%closure-ref self$444 11) (%closure-ref self$444 12)) (quote ()))) (%closure-ref self$443 1) (%closure-ref self$443 2) (%closure-ref self$443 3) (%closure-ref self$443 4) (%closure-ref self$443 5) (%closure-ref self$443 6) (%closure-ref self$443 7) (%closure-ref self$443 8) (%closure-ref self$443 9) (%closure-ref self$443 10) (%closure-ref self$443 11) (%closure-ref self$443 12)) (set-cell! (%closure-ref self$443 2) r$326))) (%closure-ref self$442 1) (%closure-ref self$442 2) (%closure-ref self$442 3) (%closure-ref self$442 4) (%closure-ref self$442 5) (%closure-ref self$442 6) (%closure-ref self$442 7) (%closure-ref self$442 8) (%closure-ref self$442 9) (%closure-ref self$442 10) (%closure-ref self$442 11) (%closure-ref self$442 12)) (quote ()))) (%closure-ref self$441 1) (%closure-ref self$441 2) (%closure-ref self$441 3) (%closure-ref self$441 4) (%closure-ref self$441 5) (%closure-ref self$441 6) (%closure-ref self$441 7) (%closure-ref self$441 8) (%closure-ref self$441 9) (%closure-ref self$441 10) (%closure-ref self$441 11) (%closure-ref self$441 12)) (set-cell! (%closure-ref self$441 3) r$327))) (%closure-ref self$440 1) (%closure-ref self$440 2) (%closure-ref self$440 3) (%closure-ref self$440 4) (%closure-ref self$440 5) (%closure-ref self$440 6) (%closure-ref self$440 7) (%closure-ref self$440 8) (%closure-ref self$440 9) (%closure-ref self$440 10) (%closure-ref self$440 11) (%closure-ref self$440 12)) (quote ()))) (%closure-ref self$439 1) (%closure-ref self$439 2) (%closure-ref self$439 3) (%closure-ref self$439 4) (%closure-ref self$439 5) (%closure-ref self$439 6) (%closure-ref self$439 7) (%closure-ref self$439 8) (%closure-ref self$439 9) (%closure-ref self$439 10) (%closure-ref self$439 11) (%closure-ref self$439 12)) (set-cell! (%closure-ref self$439 10) #t))) (%closure-ref self$438 1) (%closure-ref self$438 2) (%closure-ref self$438 3) (%closure-ref self$438 4) (%closure-ref self$438 5) (%closure-ref self$438 6) (%closure-ref self$438 7) (%closure-ref self$438 8) (%closure-ref self$438 9) (%closure-ref self$438 10) (%closure-ref self$438 11) (%closure-ref self$438 12)) (set-cell! (%closure-ref self$438 9) r$328))) (%closure-ref self$437 1) (%closure-ref self$437 2) (%closure-ref self$437 3) (%closure-ref self$437 4) (%closure-ref self$437 5) (%closure-ref self$437 6) (%closure-ref self$437 7) (%closure-ref self$437 8) (%closure-ref self$437 9) (%closure-ref self$437 10) (%closure-ref self$437 11) (%closure-ref self$437 12)) (quote ()))) (%closure-ref self$436 1) (%closure-ref self$436 2) (%closure-ref self$436 3) (%closure-ref self$436 4) (%closure-ref self$436 5) (%closure-ref self$436 6) (%closure-ref self$436 7) (%closure-ref self$436 8) (%closure-ref self$436 9) (%closure-ref self$436 10) (%closure-ref self$436 11) (%closure-ref self$436 12)) (set-cell! (%closure-ref self$436 1) r$329))) (%closure-ref self$435 1) (%closure-ref self$435 2) (%closure-ref self$435 3) (%closure-ref self$435 4) (%closure-ref self$435 5) (%closure-ref self$435 6) lib-exports$82 (%closure-ref self$435 7) (%closure-ref self$435 8) (%closure-ref self$435 9) (%closure-ref self$435 10) (%closure-ref self$435 11)) (quote ()))) (%closure-ref self$434 1) (%closure-ref self$434 2) (%closure-ref self$434 3) (%closure-ref self$434 4) (%closure-ref self$434 5) (%closure-ref self$434 6) lib-name$83 (%closure-ref self$434 8) (%closure-ref self$434 9) (%closure-ref self$434 10) (%closure-ref self$434 11)) (cell (%closure-ref self$434 7)))) (%closure-ref self$433 1) imported-vars$84 (%closure-ref self$433 2) (%closure-ref self$433 3) (%closure-ref self$433 4) (%closure-ref self$433 5) (%closure-ref self$433 6) (%closure-ref self$433 8) (%closure-ref self$433 9) (%closure-ref self$433 10) (%closure-ref self$433 11)) (cell (%closure-ref self$433 7)))) (%closure-ref self$432 1) imports$85 (%closure-ref self$432 3) (%closure-ref self$432 4) (%closure-ref self$432 5) (%closure-ref self$432 6) (%closure-ref self$432 7) (%closure-ref self$432 8) (%closure-ref self$432 9) (%closure-ref self$432 10) (%closure-ref self$432 11)) (cell (%closure-ref self$432 2)))) (%closure-ref self$431 1) (%closure-ref self$431 2) (%closure-ref self$431 4) (%closure-ref self$431 5) (%closure-ref self$431 6) (%closure-ref self$431 7) (%closure-ref self$431 8) (%closure-ref self$431 9) program?$86 (%closure-ref self$431 10) (%closure-ref self$431 11)) (cell (%closure-ref self$431 3)))) (%closure-ref self$430 1) (%closure-ref self$430 2) (%closure-ref self$430 3) (%closure-ref self$430 4) (%closure-ref self$430 5) (%closure-ref self$430 6) (%closure-ref self$430 7) (%closure-ref self$430 8) module-globals$87 (%closure-ref self$430 10) (%closure-ref self$430 11)) (cell (%closure-ref self$430 9)))) globals$88 (%closure-ref self$429 1) (%closure-ref self$429 2) (%closure-ref self$429 3) (%closure-ref self$429 4) (%closure-ref self$429 5) (%closure-ref self$429 6) (%closure-ref self$429 7) (%closure-ref self$429 9) (%closure-ref self$429 10) (%closure-ref self$429 11)) (cell (%closure-ref self$429 8)))) imported-vars$84 imports$85 (%closure-ref self$428 1) (%closure-ref self$428 2) (%closure-ref self$428 3) lib-exports$82 lib-name$83 module-globals$87 program?$86 (%closure-ref self$428 4) (%closure-ref self$428 5)) (cell globals$88))) (%closure-ref self$427 1) k$180 (%closure-ref self$427 2) return$81 (%closure-ref self$427 3)) #f #f #f #f #f #f #f)) (%closure-ref self$426 1) (%closure-ref self$426 3) (%closure-ref self$426 4)))) input-program$73 (%closure-ref self$425 1) (%closure-ref self$425 2) (%closure-ref self$425 3)) #f #f #f #f #f #f #f)) k$178 lib-deps$72 src-file$71) (cell input-program$73)))) (define read-file (lambda (k$173 filename$69) ((%closure (lambda (self$424 r$174) ((%closure-ref call-with-input-file 0) call-with-input-file (%closure-ref self$424 2) (%closure-ref self$424 1) r$174)) filename$69 k$173) (%closure (lambda (self$423 k$175 port$70) ((%closure-ref read-all 0) read-all k$175 port$70)))))) (define run-compiler (lambda (k$130 args$53 cc?$52) ((%closure (lambda (self$362 r$131) ((%closure (lambda (self$363 in-file$54) ((%closure-ref read-file 0) read-file (%closure (lambda (self$364 r$132) ((%closure (lambda (self$365 in-prog$55) ((%closure (lambda (self$366 r$170) ((%closure-ref library? 0) library? (%closure (lambda (self$367 r$169) ((%closure-ref not 0) not (%closure (lambda (self$368 r$133) ((%closure (lambda (self$369 program?$56) ((%closure (lambda (self$417 k$163) ((%closure (lambda (self$420 k$166) (if (%closure-ref self$420 2) ((%closure (lambda (self$421 r$167) ((%closure (lambda (self$422 r$168) ((%closure-ref tagged-list? 0) tagged-list? (%closure-ref self$422 1) (%closure-ref self$422 2) r$168)) (%closure-ref self$421 2) r$167) (car (%closure-ref self$421 1)))) (%closure-ref self$420 1) k$166) (quote import)) ((%closure-ref k$166 0) k$166 #f))) (%closure-ref self$417 1) (%closure-ref self$417 2)) (%closure (lambda (self$418 r$164) (if r$164 ((%closure (lambda (self$419 r$165) ((%closure-ref lib:get-all-import-deps 0) lib:get-all-import-deps (%closure-ref self$419 1) r$165)) (%closure-ref self$418 2)) (cdar (%closure-ref self$418 1))) ((%closure-ref (%closure-ref self$418 2) 0) (%closure-ref self$418 2) (quote ())))) (%closure-ref self$417 1) k$163))) (%closure-ref self$369 3) program?$56) (%closure (lambda (self$370 r$134) ((%closure (lambda (self$371 lib-deps$57) ((%closure-ref basename 0) basename (%closure (lambda (self$372 r$135) ((%closure (lambda (self$373 exec-file$58) ((%closure (lambda (self$374 r$136) ((%closure (lambda (self$375 src-file$59) ((%closure (lambda (self$376 r$137) ((%closure (lambda (self$377 meta-file$60) ((%closure (lambda (self$381 r$138) ((%closure (lambda (self$382 create-c-file$62) ((%closure-ref create-c-file$62 0) create-c-file$62 (%closure (lambda (self$383 r$139) ((%closure (lambda (self$384 result$63) ((%closure (lambda (self$385) (if (%closure-ref self$385 6) ((%closure (lambda (self$397) ((%closure (lambda (self$398 objs-str$67 comp-prog-cmd$66 comp-objs-cmd$65) ((%closure (lambda (self$399 objs-str$67) ((%closure (lambda (self$400 comp-prog-cmd$66) ((%closure (lambda (self$401 comp-objs-cmd$65) ((%closure (lambda (self$404 r$150) ((%closure-ref map 0) map (%closure (lambda (self$405 r$149) ((%closure (lambda (self$406 r$148) ((%closure (lambda (self$407 r$140) ((%closure (lambda (self$408 r$147) ((%closure (lambda (self$409 r$141) ((%closure (lambda (self$410 r$146) ((%closure (lambda (self$411 r$142) (if (%closure-ref self$411 1) ((%closure (lambda (self$414) ((%closure (lambda (self$415 r$144) ((%closure (lambda (self$416 r$143) (if r$143 ((%closure-ref (%closure-ref self$416 2) 0) (%closure-ref self$416 2) (system (cell-get (%closure-ref self$416 1)))) ((%closure-ref (%closure-ref self$416 2) 0) (%closure-ref self$416 2) #f))) (%closure-ref self$415 1) (%closure-ref self$415 2)) (equal? 0 r$144))) (%closure-ref self$414 1) (%closure-ref self$414 3)) (system (cell-get (%closure-ref self$414 2))))) (%closure-ref self$411 2) (%closure-ref self$411 3) (%closure-ref self$411 4))) ((%closure (lambda (self$412) ((%closure-ref write 0) write (%closure (lambda (self$413 r$145) ((%closure-ref write 0) write (%closure-ref self$413 2) (cell-get (%closure-ref self$413 1)))) (%closure-ref self$412 1) (%closure-ref self$412 3)) (cell-get (%closure-ref self$412 2)))) (%closure-ref self$411 2) (%closure-ref self$411 3) (%closure-ref self$411 4))))) (%closure-ref self$410 1) (%closure-ref self$410 2) (%closure-ref self$410 3) (%closure-ref self$410 4)) (set-cell! (%closure-ref self$410 2) r$146))) (%closure-ref self$409 1) (%closure-ref self$409 2) (%closure-ref self$409 3) (%closure-ref self$409 5)) (string-append "gcc " (%closure-ref self$409 4) ".o " (cell-get (%closure-ref self$409 6)) " -pthread -lcyclone -lck -lm -g -o " (%closure-ref self$409 4)))) (%closure-ref self$408 1) (%closure-ref self$408 2) (%closure-ref self$408 3) (%closure-ref self$408 4) (%closure-ref self$408 5) (%closure-ref self$408 6)) (set-cell! (%closure-ref self$408 3) r$147))) (%closure-ref self$407 1) (%closure-ref self$407 2) (%closure-ref self$407 3) (%closure-ref self$407 4) (%closure-ref self$407 5) (%closure-ref self$407 6)) (string-append "gcc " (%closure-ref self$407 7) " -g -c -o " (%closure-ref self$407 4) ".o"))) (%closure-ref self$406 1) (%closure-ref self$406 2) (%closure-ref self$406 3) (%closure-ref self$406 4) (%closure-ref self$406 5) (%closure-ref self$406 6) (%closure-ref self$406 7)) (set-cell! (%closure-ref self$406 6) r$148))) (%closure-ref self$405 1) (%closure-ref self$405 2) (%closure-ref self$405 3) (%closure-ref self$405 4) (%closure-ref self$405 5) (%closure-ref self$405 6) (%closure-ref self$405 7)) (apply string-append r$149))) (%closure-ref self$404 1) (%closure-ref self$404 2) (%closure-ref self$404 3) (%closure-ref self$404 4) (%closure-ref self$404 5) (%closure-ref self$404 7) (%closure-ref self$404 8)) r$150 (%closure-ref self$404 6))) (%closure-ref self$401 1) comp-objs-cmd$65 (%closure-ref self$401 2) (%closure-ref self$401 3) (%closure-ref self$401 4) (%closure-ref self$401 5) (%closure-ref self$401 6) (%closure-ref self$401 7)) (%closure (lambda (self$402 k$151 i$68) ((%closure-ref lib:import->filename 0) lib:import->filename (%closure (lambda (self$403 r$152) ((%closure-ref (%closure-ref self$403 1) 0) (%closure-ref self$403 1) (string-append " " r$152 " "))) k$151) i$68 ".o"))))) (%closure-ref self$400 1) comp-prog-cmd$66 (%closure-ref self$400 3) (%closure-ref self$400 4) (%closure-ref self$400 5) (%closure-ref self$400 6) (%closure-ref self$400 7)) (cell (%closure-ref self$400 2)))) (%closure-ref self$399 1) (%closure-ref self$399 2) (%closure-ref self$399 4) (%closure-ref self$399 5) (%closure-ref self$399 6) objs-str$67 (%closure-ref self$399 7)) (cell (%closure-ref self$399 3)))) (%closure-ref self$398 1) comp-objs-cmd$65 comp-prog-cmd$66 (%closure-ref self$398 2) (%closure-ref self$398 3) (%closure-ref self$398 4) (%closure-ref self$398 5)) (cell objs-str$67))) (%closure-ref self$397 1) (%closure-ref self$397 2) (%closure-ref self$397 3) (%closure-ref self$397 4) (%closure-ref self$397 5)) #f #f #f)) (%closure-ref self$385 1) (%closure-ref self$385 2) (%closure-ref self$385 3) (%closure-ref self$385 4) (%closure-ref self$385 7))) ((%closure (lambda (self$386) ((%closure (lambda (self$391 r$155) ((%closure-ref with-output-to-file 0) with-output-to-file (%closure (lambda (self$392 r$153) ((%closure (lambda (self$393 r$154) ((%closure (lambda (self$394 comp-lib-cmd$64) (if (%closure-ref self$394 1) ((%closure (lambda (self$396) ((%closure-ref (%closure-ref self$396 2) 0) (%closure-ref self$396 2) (system (%closure-ref self$396 1)))) comp-lib-cmd$64 (%closure-ref self$394 2))) ((%closure (lambda (self$395) ((%closure-ref write 0) write (%closure-ref self$395 2) (%closure-ref self$395 1))) comp-lib-cmd$64 (%closure-ref self$394 2))))) (%closure-ref self$393 1) (%closure-ref self$393 2)) r$154)) (%closure-ref self$392 1) (%closure-ref self$392 3)) (string-append "gcc " (%closure-ref self$392 4) " -g -c -o " (%closure-ref self$392 2) ".o"))) (%closure-ref self$391 1) (%closure-ref self$391 2) (%closure-ref self$391 3) (%closure-ref self$391 5)) (%closure-ref self$391 4) r$155)) (%closure-ref self$386 1) (%closure-ref self$386 2) (%closure-ref self$386 3) (%closure-ref self$386 4) (%closure-ref self$386 5)) (%closure (lambda (self$387 k$156) ((%closure-ref display 0) display (%closure (lambda (self$388 r$157) ((%closure-ref newline 0) newline (%closure (lambda (self$389 r$158) ((%closure-ref macro:get-defined-macros 0) macro:get-defined-macros (%closure (lambda (self$390 r$159) ((%closure-ref write 0) write (%closure-ref self$390 1) r$159)) (%closure-ref self$389 1)))) (%closure-ref self$388 1)))) k$156) ";; This file was automatically generated by the Cyclone Scheme compiler"))))) (%closure-ref self$385 1) (%closure-ref self$385 2) (%closure-ref self$385 3) (%closure-ref self$385 5) (%closure-ref self$385 7))))) (%closure-ref self$384 1) (%closure-ref self$384 2) (%closure-ref self$384 3) (%closure-ref self$384 4) (%closure-ref self$384 5) (%closure-ref self$384 6) (%closure-ref self$384 7)))) (%closure-ref self$383 1) (%closure-ref self$383 2) (%closure-ref self$383 3) (%closure-ref self$383 4) (%closure-ref self$383 5) (%closure-ref self$383 6) (%closure-ref self$383 7)) r$139)) (%closure-ref self$382 1) (%closure-ref self$382 2) (%closure-ref self$382 4) (%closure-ref self$382 5) (%closure-ref self$382 6) (%closure-ref self$382 7) (%closure-ref self$382 8)) (%closure-ref self$382 3))) (%closure-ref self$381 1) (%closure-ref self$381 2) (%closure-ref self$381 3) (%closure-ref self$381 4) (%closure-ref self$381 5) (%closure-ref self$381 6) (%closure-ref self$381 7) (%closure-ref self$381 8)) r$138)) (%closure-ref self$377 1) (%closure-ref self$377 2) (%closure-ref self$377 4) (%closure-ref self$377 5) (%closure-ref self$377 6) meta-file$60 (%closure-ref self$377 7) (%closure-ref self$377 8)) (%closure (lambda (self$378 k$160 program$61) ((%closure (lambda (self$380 r$161) ((%closure-ref with-output-to-file 0) with-output-to-file (%closure-ref self$380 1) (%closure-ref self$380 2) r$161)) k$160 (%closure-ref self$378 3)) (%closure (lambda (self$379 k$162) ((%closure-ref c-compile-and-emit 0) c-compile-and-emit k$162 (%closure-ref self$379 3) (%closure-ref self$379 2) (%closure-ref self$379 1))) (%closure-ref self$378 1) (%closure-ref self$378 2) program$61))) (%closure-ref self$377 3) (%closure-ref self$377 6) (%closure-ref self$377 8)))) (%closure-ref self$376 1) (%closure-ref self$376 2) (%closure-ref self$376 3) (%closure-ref self$376 4) (%closure-ref self$376 5) (%closure-ref self$376 6) (%closure-ref self$376 7) (%closure-ref self$376 8)) r$137)) (%closure-ref self$375 1) (%closure-ref self$375 2) (%closure-ref self$375 3) (%closure-ref self$375 4) (%closure-ref self$375 5) (%closure-ref self$375 6) (%closure-ref self$375 7) src-file$59) (string-append (%closure-ref self$375 2) ".meta"))) (%closure-ref self$374 1) (%closure-ref self$374 2) (%closure-ref self$374 3) (%closure-ref self$374 4) (%closure-ref self$374 5) (%closure-ref self$374 6) (%closure-ref self$374 7)) r$136)) (%closure-ref self$373 1) exec-file$58 (%closure-ref self$373 2) (%closure-ref self$373 3) (%closure-ref self$373 4) (%closure-ref self$373 5) (%closure-ref self$373 6)) (string-append exec-file$58 ".c"))) (%closure-ref self$372 1) (%closure-ref self$372 2) (%closure-ref self$372 3) (%closure-ref self$372 4) (%closure-ref self$372 5) (%closure-ref self$372 6)) r$135)) (%closure-ref self$371 1) (%closure-ref self$371 2) (%closure-ref self$371 3) (%closure-ref self$371 4) lib-deps$57 (%closure-ref self$371 5)) (%closure-ref self$371 2))) (%closure-ref self$370 1) (%closure-ref self$370 2) (%closure-ref self$370 3) (%closure-ref self$370 4) (%closure-ref self$370 5)) r$134)) (%closure-ref self$369 1) (%closure-ref self$369 2) (%closure-ref self$369 3) (%closure-ref self$369 4) program?$56))) (%closure-ref self$368 1) (%closure-ref self$368 2) (%closure-ref self$368 3) (%closure-ref self$368 4)) r$133)) (%closure-ref self$367 1) (%closure-ref self$367 2) (%closure-ref self$367 3) (%closure-ref self$367 4)) r$169)) (%closure-ref self$366 1) (%closure-ref self$366 2) (%closure-ref self$366 3) (%closure-ref self$366 4)) r$170)) (%closure-ref self$365 1) (%closure-ref self$365 2) in-prog$55 (%closure-ref self$365 3)) (car in-prog$55))) (%closure-ref self$364 1) (%closure-ref self$364 2) (%closure-ref self$364 3)) r$132)) (%closure-ref self$363 1) in-file$54 (%closure-ref self$363 2)) in-file$54)) (%closure-ref self$362 1) (%closure-ref self$362 2)) r$131)) cc?$52 k$130) (car args$53)))) ((lambda () ((lambda (r$99) ((lambda (r$100) ((lambda (r$101) ((lambda (args$47) ((%closure (lambda (self$336 r$121) ((%closure-ref filter 0) filter (%closure (lambda (self$337 r$102) ((%closure (lambda (self$338 non-opts$49) ((%closure (lambda (self$339 compile?$50) ((%closure (lambda (self$340 compile?$50) ((%closure (lambda (self$341) ((%closure (lambda (self$360 k$119) ((%closure (lambda (self$361 r$120) (if r$120 ((%closure-ref (%closure-ref self$361 1) 0) (%closure-ref self$361 1) (set-global! *trace-level* 4)) ((%closure-ref (%closure-ref self$361 1) 0) (%closure-ref self$361 1) #f))) k$119) (member "-t" (%closure-ref self$360 1)))) (%closure-ref self$341 1)) (%closure (lambda (self$342 r$103) ((%closure (lambda (self$358 k$117) ((%closure (lambda (self$359 r$118) (if r$118 ((%closure-ref (%closure-ref self$359 2) 0) (%closure-ref self$359 2) (set-cell! (%closure-ref self$359 1) #f)) ((%closure-ref (%closure-ref self$359 2) 0) (%closure-ref self$359 2) #f))) (%closure-ref self$358 2) k$117) (member "-d" (%closure-ref self$358 1)))) (%closure-ref self$342 1) (%closure-ref self$342 2)) (%closure (lambda (self$343 r$104) ((%closure (lambda (self$344 r$116) ((%closure (lambda (self$345 r$105) (if r$105 ((lambda () ((%closure-ref display 0) display (%closure (lambda (self$357 r$106) ((%closure-ref newline 0) newline %halt))) "cyclone: no input file"))) ((%closure (lambda (self$346 r$114) ((%closure (lambda (self$347 tmp$51) ((%closure (lambda (self$356 k$115) (if (%closure-ref self$356 2) ((%closure-ref k$115 0) k$115 (%closure-ref self$356 2)) ((%closure-ref k$115 0) k$115 (member "--help" (%closure-ref self$356 1))))) (%closure-ref self$347 1) tmp$51) (%closure (lambda (self$348 r$107) (if r$107 ((lambda () ((%closure-ref display 0) display (%closure (lambda (self$355 r$108) ((%closure-ref newline 0) newline %halt))) "
 -t              Show intermediate trace output in generated C files
 -d              Only generate intermediate C files, do not compile them
 -h, --help      Display usage information
 -v              Display version information
 --autogen       Cyclone developer use only, create autogen.out file
"))) ((%closure (lambda (self$349 r$109) (if r$109 ((lambda () ((%closure-ref display 0) display %halt *version-banner*))) ((%closure (lambda (self$350 r$110) (if r$110 ((lambda () ((%closure-ref autogen 0) autogen (%closure (lambda (self$354 r$111) ((%closure-ref newline 0) newline %halt))) "autogen.out"))) ((%closure (lambda (self$351 r$112) (if r$112 ((lambda () ((%closure-ref display 0) display %halt *version-banner*))) ((%closure (lambda (self$352 r$113) (if r$113 ((lambda () ((%closure-ref autogen 0) autogen %halt "autogen.out"))) ((%closure (lambda (self$353) ((%closure-ref run-compiler 0) run-compiler %halt (%closure-ref self$353 2) (cell-get (%closure-ref self$353 1)))) (%closure-ref self$352 1) (%closure-ref self$352 2))))) (%closure-ref self$351 2) (%closure-ref self$351 3)) (member "--autogen" (%closure-ref self$351 1))))) (%closure-ref self$350 1) (%closure-ref self$350 2) (%closure-ref self$350 3)) (member "-v" (%closure-ref self$350 1))))) (%closure-ref self$349 1) (%closure-ref self$349 2) (%closure-ref self$349 3)) (member "--autogen" (%closure-ref self$349 1))))) (%closure-ref self$348 1) (%closure-ref self$348 2) (%closure-ref self$348 3)) (member "-v" (%closure-ref self$348 1))))) (%closure-ref self$347 1) (%closure-ref self$347 2) (%closure-ref self$347 3)))) (%closure-ref self$346 1) (%closure-ref self$346 2) (%closure-ref self$346 3)) r$114)) (%closure-ref self$345 1) (%closure-ref self$345 2) (%closure-ref self$345 3)) (member "-h" (%closure-ref self$345 1))))) (%closure-ref self$344 1) (%closure-ref self$344 2) (%closure-ref self$344 3)) (< r$116 1))) (%closure-ref self$343 1) (%closure-ref self$343 2) (%closure-ref self$343 3)) (length (%closure-ref self$343 1)))) (%closure-ref self$342 1) (%closure-ref self$342 2) (%closure-ref self$342 3)))) (%closure-ref self$341 1) (%closure-ref self$341 2) (%closure-ref self$341 3)))) (%closure-ref self$340 1) compile?$50 (%closure-ref self$340 2)))) (%closure-ref self$339 1) (%closure-ref self$339 2)) (cell compile?$50))) (%closure-ref self$338 1) non-opts$49) #t)) (%closure-ref self$337 1)) r$102)) (%closure-ref self$336 1)) r$121 (%closure-ref self$336 1))) args$47) (%closure (lambda (self$330 k$122 arg$48) ((%closure (lambda (self$332 k$124) ((%closure (lambda (self$333 r$127) ((%closure (lambda (self$334 r$125) (if r$125 ((%closure (lambda (self$335 r$126) ((%closure-ref (%closure-ref self$335 1) 0) (%closure-ref self$335 1) (equal? #\- r$126))) (%closure-ref self$334 2)) (string-ref (%closure-ref self$334 1) 0)) ((%closure-ref (%closure-ref self$334 2) 0) (%closure-ref self$334 2) #f))) (%closure-ref self$333 1) (%closure-ref self$333 2)) (> r$127 1))) (%closure-ref self$332 1) k$124) (string-length (%closure-ref self$332 1)))) arg$48) (%closure (lambda (self$331 r$123) ((%closure-ref not 0) not (%closure-ref self$331 1) r$123)) k$122)))))) r$101)) (command-line-arguments))) #f)) 0))))
 */
/* 
"---------------- C code:"
 */
#define closcall0(td,cfn) ((cfn)->fn)(td,0,cfn)
/* Check for GC, then call given continuation closure */
#define return_closcall0(td,cfn) \
{char stack; \
 if (check_overflow(&stack,(((gc_thread_data *)data)->stack_limit))) { \
     object buf[0]; \
     GC(td,cfn,buf,0); return; \
 } else {closcall0(td,(closure) (cfn)); return;}}

/* Check for GC, then call C function directly */
#define return_direct0(td,_fn) { \
 char stack; \
 if (check_overflow(&stack,(((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,cfn,a1) if (type_of(cfn) == cons_tag || prim(cfn)) { Cyc_apply(td,0, (closure)(a1), cfn); } else { ((cfn)->fn)(td,1,cfn,a1);}
/* Check for GC, then call given continuation closure */
#define return_closcall1(td,cfn,a1) \
{char stack; \
 if (check_overflow(&stack,(((gc_thread_data *)data)->stack_limit))) { \
     object buf[1]; buf[0] = a1;\
     GC(td,cfn,buf,1); return; \
 } else {closcall1(td,(closure) (cfn),a1); return;}}

/* Check for GC, then call C function directly */
#define return_direct1(td,_fn,a1) { \
 char stack; \
 if (check_overflow(&stack,(((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,cfn,a1,a2) if (type_of(cfn) == cons_tag || prim(cfn)) { Cyc_apply(td,1, (closure)(a1), cfn,a2); } else { ((cfn)->fn)(td,2,cfn,a1,a2);}
/* Check for GC, then call given continuation closure */
#define return_closcall2(td,cfn,a1,a2) \
{char stack; \
 if (check_overflow(&stack,(((gc_thread_data *)data)->stack_limit))) { \
     object buf[2]; buf[0] = a1;buf[1] = a2;\
     GC(td,cfn,buf,2); return; \
 } else {closcall2(td,(closure) (cfn),a1,a2); return;}}

/* Check for GC, then call C function directly */
#define return_direct2(td,_fn,a1,a2) { \
 char stack; \
 if (check_overflow(&stack,(((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,cfn,a1,a2,a3) if (type_of(cfn) == cons_tag || prim(cfn)) { Cyc_apply(td,2, (closure)(a1), cfn,a2,a3); } else { ((cfn)->fn)(td,3,cfn,a1,a2,a3);}
/* Check for GC, then call given continuation closure */
#define return_closcall3(td,cfn,a1,a2,a3) \
{char stack; \
 if (check_overflow(&stack,(((gc_thread_data *)data)->stack_limit))) { \
     object buf[3]; buf[0] = a1;buf[1] = a2;buf[2] = a3;\
     GC(td,cfn,buf,3); return; \
 } else {closcall3(td,(closure) (cfn),a1,a2,a3); return;}}

/* Check for GC, then call C function directly */
#define return_direct3(td,_fn,a1,a2,a3) { \
 char stack; \
 if (check_overflow(&stack,(((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,cfn,a1,a2,a3,a4) if (type_of(cfn) == cons_tag || prim(cfn)) { Cyc_apply(td,3, (closure)(a1), cfn,a2,a3,a4); } else { ((cfn)->fn)(td,4,cfn,a1,a2,a3,a4);}
/* Check for GC, then call given continuation closure */
#define return_closcall4(td,cfn,a1,a2,a3,a4) \
{char stack; \
 if (check_overflow(&stack,(((gc_thread_data *)data)->stack_limit))) { \
     object buf[4]; buf[0] = a1;buf[1] = a2;buf[2] = a3;buf[3] = a4;\
     GC(td,cfn,buf,4); return; \
 } else {closcall4(td,(closure) (cfn),a1,a2,a3,a4); return;}}

/* Check for GC, then call C function directly */
#define return_direct4(td,_fn,a1,a2,a3,a4) { \
 char stack; \
 if (check_overflow(&stack,(((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 closcall7(td,cfn,a1,a2,a3,a4,a5,a6,a7) if (type_of(cfn) == cons_tag || prim(cfn)) { Cyc_apply(td,6, (closure)(a1), cfn,a2,a3,a4,a5,a6,a7); } else { ((cfn)->fn)(td,7,cfn,a1,a2,a3,a4,a5,a6,a7);}
/* Check for GC, then call given continuation closure */
#define return_closcall7(td,cfn,a1,a2,a3,a4,a5,a6,a7) \
{char stack; \
 if (check_overflow(&stack,(((gc_thread_data *)data)->stack_limit))) { \
     object buf[7]; buf[0] = a1;buf[1] = a2;buf[2] = a3;buf[3] = a4;buf[4] = a5;buf[5] = a6;buf[6] = a7;\
     GC(td,cfn,buf,7); return; \
 } else {closcall7(td,(closure) (cfn),a1,a2,a3,a4,a5,a6,a7); return;}}

/* Check for GC, then call C function directly */
#define return_direct7(td,_fn,a1,a2,a3,a4,a5,a6,a7) { \
 char stack; \
 if (check_overflow(&stack,(((gc_thread_data *)data)->stack_limit))) { \
     object buf[7]; buf[0] = a1;buf[1] = a2;buf[2] = a3;buf[3] = a4;buf[4] = a5;buf[5] = a6;buf[6] = a7; \
     mclosure0(c1, _fn); \
     GC(td,&c1, buf, 7); return; \
 } else { (_fn)(td,7,(closure)_fn,a1,a2,a3,a4,a5,a6,a7); }}

#define closcall9(td,cfn,a1,a2,a3,a4,a5,a6,a7,a8,a9) if (type_of(cfn) == cons_tag || prim(cfn)) { Cyc_apply(td,8, (closure)(a1), cfn,a2,a3,a4,a5,a6,a7,a8,a9); } else { ((cfn)->fn)(td,9,cfn,a1,a2,a3,a4,a5,a6,a7,a8,a9);}
/* Check for GC, then call given continuation closure */
#define return_closcall9(td,cfn,a1,a2,a3,a4,a5,a6,a7,a8,a9) \
{char stack; \
 if (check_overflow(&stack,(((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,cfn,buf,9); return; \
 } else {closcall9(td,(closure) (cfn),a1,a2,a3,a4,a5,a6,a7,a8,a9); return;}}

/* Check for GC, then call C function directly */
#define return_direct9(td,_fn,a1,a2,a3,a4,a5,a6,a7,a8,a9) { \
 char stack; \
 if (check_overflow(&stack,(((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_run_91compiler = nil;
object __glo_read_91file = nil;
object __glo_c_91compile_91and_91emit = nil;
extern object __glo_cons_91source;
extern object __glo_syntax_91rules;
extern object __glo_letrec_85;
extern object __glo_guard;
extern object __glo_guard_91aux;
extern object __glo_receive;
extern object __glo_abs;
extern object __glo_max;
extern object __glo_min;
extern object __glo_modulo;
extern object __glo_floor_91remainder;
extern object __glo_even_127;
extern object __glo_exact_91integer_127;
extern object __glo_exact_127;
extern object __glo_inexact_127;
extern object __glo_odd_127;
extern object __glo_gcd;
extern object __glo_lcm;
extern object __glo_quotient;
extern object __glo_remainder;
extern object __glo_truncate_91quotient;
extern object __glo_truncate_91remainder;
extern object __glo_truncate_95;
extern object __glo_floor_91quotient;
extern object __glo_floor_91remainder;
extern object __glo_floor_95;
extern object __glo_square;
extern object __glo_expt;
extern object __glo_call_91with_91current_91continuation;
extern object __glo_call_95cc;
extern object __glo_call_91with_91values;
extern object __glo_dynamic_91wind;
extern object __glo_values;
extern object __glo_char_123_127;
extern object __glo_char_121_127;
extern object __glo_char_125_127;
extern object __glo_char_121_123_127;
extern object __glo_char_125_123_127;
extern object __glo_string_123_127;
extern object __glo_string_121_127;
extern object __glo_string_121_123_127;
extern object __glo_string_125_127;
extern object __glo_string_125_123_127;
extern object __glo_foldl;
extern object __glo_foldr;
extern object __glo_not;
extern object __glo_list_127;
extern object __glo_zero_127;
extern object __glo_positive_127;
extern object __glo_negative_127;
extern object __glo_append;
extern object __glo__list;
extern object __glo_make_91list;
extern object __glo_list_91copy;
extern object __glo_map;
extern object __glo_for_91each;
extern object __glo_list_91tail;
extern object __glo_list_91ref;
extern object __glo_list_91set_67;
extern object __glo_reverse;
extern object __glo_boolean_123_127;
extern object __glo_symbol_123_127;
extern object __glo_Cyc_91obj_123_127;
extern object __glo_vector;
extern object __glo_vector_91append;
extern object __glo_vector_91copy;
extern object __glo_vector_91copy_67;
extern object __glo_vector_91fill_67;
extern object __glo_vector_91_125list;
extern object __glo_vector_91_125string;
extern object __glo_vector_91map;
extern object __glo_vector_91for_91each;
extern object __glo_make_91string;
extern object __glo_string;
extern object __glo_string_91copy;
extern object __glo_string_91copy_67;
extern object __glo_string_91fill_67;
extern object __glo_string_91_125list;
extern object __glo_string_91_125vector;
extern object __glo_string_91map;
extern object __glo_string_91for_91each;
extern object __glo_make_91parameter;
extern object __glo_current_91output_91port;
extern object __glo_current_91input_91port;
extern object __glo_current_91error_91port;
extern object __glo_call_91with_91port;
extern object __glo_error;
extern object __glo_raise;
extern object __glo_raise_91continuable;
extern object __glo_with_91exception_91handler;
extern object __glo_Cyc_91add_91exception_91handler;
extern object __glo_Cyc_91remove_91exception_91handler;
extern object __glo_newline;
extern object __glo_write_91char;
extern object __glo_write_91string;
extern object __glo_flush_91output_91port;
extern object __glo_read_91line;
extern object __glo_read_91string;
extern object __glo_input_91port_127;
extern object __glo_output_91port_127;
extern object __glo_input_91port_91open_127;
extern object __glo_output_91port_91open_127;
extern object __glo_features;
extern object __glo_any;
extern object __glo_every;
extern object __glo_and;
extern object __glo_or;
extern object __glo_let;
extern object __glo_let_85;
extern object __glo_letrec;
extern object __glo_begin;
extern object __glo__case;
extern object __glo_cond;
extern object __glo_cond_91expand;
extern object __glo__do;
extern object __glo_when;
extern object __glo_unless;
extern object __glo_quasiquote;
extern object __glo_floor;
extern object __glo_ceiling;
extern object __glo_truncate;
extern object __glo_round;
extern object __glo_exact;
extern object __glo_inexact;
extern object __glo_eof_91object;
extern object __glo_syntax_91error;
extern object __glo_case_91lambda;
extern object __glo_eval;
extern object __glo_eval_91from_91c;
extern object __glo_create_91environment;
extern object __glo_setup_91environment;
extern object __glo_call_91with_91input_91file;
extern object __glo_call_91with_91output_91file;
extern object __glo_with_91input_91from_91file;
extern object __glo_with_91output_91to_91file;
extern object __glo_delay;
extern object __glo_force;
extern object __glo_delay_91force;
extern object __glo_make_91promise;
extern object __glo_promise_127;
extern object __glo_read;
extern object __glo_read_91all;
extern object __glo_display;
extern object __glo_write;
extern object __glo__85Cyc_91version_91banner_85;
extern object __glo__85version_85;
extern object __glo__85version_91banner_85;
extern object __glo__85c_91file_91header_91comment_85;
extern object __glo_tagged_91list_127;
extern object __glo_if_127;
extern object __glo_begin_127;
extern object __glo_lambda_127;
extern object __glo_env_117enclosing_91environment;
extern object __glo_env_117first_91frame;
extern object __glo_env_117the_91empty_91environment;
extern object __glo_env_117make_91frame;
extern object __glo_env_117frame_91variables;
extern object __glo_env_117frame_91values;
extern object __glo_env_117add_91binding_91to_91frame_67;
extern object __glo_env_117extend_91environment;
extern object __glo_env_117lookup;
extern object __glo_env_117lookup_91variable_91value;
extern object __glo_env_117_191lookup_91variable_91value;
extern object __glo_env_117set_91variable_91value_67;
extern object __glo_env_117define_91variable_67;
extern object __glo_Cyc_91er_91rename;
extern object __glo_Cyc_91er_91compare_127;
extern object __glo_mangle;
extern object __glo_mangle_91global;
extern object __glo_gensym;
extern object __glo_delete;
extern object __glo_delete_91duplicates;
extern object __glo_list_91insert_91at_67;
extern object __glo_list_91index2;
extern object __glo_filter;
extern object __glo_mta_117code_91gen;
extern object __glo_autogen;
extern object __glo_autogen_117defprimitives;
extern object __glo_autogen_117primitive_91procedures;
extern object __glo_emit;
extern object __glo_emit_85;
extern object __glo_emits;
extern object __glo_emits_85;
extern object __glo_emit_91newline;
extern object __glo_string_91join;
extern object __glo__85defined_91macros_85;
extern object __glo__85do_91code_91gen_85;
extern object __glo__85trace_91level_85;
extern object __glo__85primitives_85;
extern object __glo_get_91macros;
extern object __glo_built_91in_91syms;
extern object __glo_trace;
extern object __glo_trace_117error;
extern object __glo_trace_117warn;
extern object __glo_trace_117info;
extern object __glo_trace_117debug;
extern object __glo_cyc_117error;
extern object __glo_basename;
extern object __glo_list_91index;
extern object __glo_symbol_121_127;
extern object __glo_insert;
extern object __glo_remove;
extern object __glo__union;
extern object __glo_difference;
extern object __glo_reduce;
extern object __glo_azip;
extern object __glo_assq_91remove_91key;
extern object __glo_assq_91remove_91keys;
extern object __glo_const_127;
extern object __glo_ref_127;
extern object __glo_quote_127;
extern object __glo_let_127;
extern object __glo_let_91_125bindings;
extern object __glo_let_91_125exp;
extern object __glo_let_91_125bound_91vars;
extern object __glo_let_91_125args;
extern object __glo_letrec_127;
extern object __glo_letrec_91_125bindings;
extern object __glo_letrec_91_125exp;
extern object __glo_letrec_91_125bound_91vars;
extern object __glo_letrec_91_125args;
extern object __glo_lambda_127;
extern object __glo_lambda_91varargs_127;
extern object __glo_lambda_91_125formals;
extern object __glo_lambda_91varargs_127;
extern object __glo_lambda_91varargs_91var;
extern object __glo_lambda_91formals_91type;
extern object __glo_lambda_91formals_91_125list;
extern object __glo_lambda_91num_91args;
extern object __glo_list_91_125lambda_91formals;
extern object __glo_pair_91_125list;
extern object __glo_list_91_125pair;
extern object __glo_lambda_91_125exp;
extern object __glo_if_127;
extern object __glo_if_91_125condition;
extern object __glo_if_91_125then;
extern object __glo_if_91else_127;
extern object __glo_if_91_125else;
extern object __glo_app_127;
extern object __glo_app_91_125fun;
extern object __glo_app_91_125args;
extern object __glo_prim_127;
extern object __glo_precompute_91prim_91app_127;
extern object __glo_prim_91call_127;
extern object __glo_begin_127;
extern object __glo_begin_91_125exps;
extern object __glo_define_127;
extern object __glo_define_91lambda_127;
extern object __glo_define_91_125lambda;
extern object __glo_define_91_125var;
extern object __glo_define_91_125exp;
extern object __glo_define_91c_127;
extern object __glo_set_67_127;
extern object __glo_set_67_91_125var;
extern object __glo_set_67_91_125exp;
extern object __glo_closure_127;
extern object __glo_closure_91_125lam;
extern object __glo_closure_91_125env;
extern object __glo_closure_91_125fv;
extern object __glo_env_91make_127;
extern object __glo_env_91make_91_125id;
extern object __glo_env_91make_91_125fields;
extern object __glo_env_91make_91_125values;
extern object __glo_env_91get_127;
extern object __glo_env_91get_91_125id;
extern object __glo_env_91get_91_125field;
extern object __glo_env_91get_91_125env;
extern object __glo_set_91cell_67_127;
extern object __glo_set_91cell_67_91_125cell;
extern object __glo_set_91cell_67_91_125value;
extern object __glo_cell_127;
extern object __glo_cell_91_125value;
extern object __glo_cell_91get_127;
extern object __glo_cell_91get_91_125cell;
extern object __glo_expand;
extern object __glo_expand_91lambda_91body;
extern object __glo_let_123_125lambda;
extern object __glo_isolate_91globals;
extern object __glo_has_91global_127;
extern object __glo_global_91vars;
extern object __glo_filter_91unused_91variables;
extern object __glo_free_91vars;
extern object __glo_clear_91mutables;
extern object __glo_mark_91mutable;
extern object __glo_is_91mutable_127;
extern object __glo_analyze_91mutable_91variables;
extern object __glo_wrap_91mutables;
extern object __glo_alpha_91convert;
extern object __glo_cps_91convert;
extern object __glo_pos_91in_91list;
extern object __glo_closure_91convert;
extern object __glo_define_91syntax_127;
extern object __glo_macro_117macro_127;
extern object __glo_macro_117expand;
extern object __glo_macro_117add_67;
extern object __glo_macro_117load_91env_67;
extern object __glo_macro_117get_91env;
extern object __glo_macro_117get_91defined_91macros;
extern object __glo_library_127;
extern object __glo_lib_117list_91_125import_91set;
extern object __glo_lib_117name;
extern object __glo_lib_117name_91_125string;
extern object __glo_lib_117name_91_125symbol;
extern object __glo_lib_117result;
extern object __glo_lib_117exports;
extern object __glo_lib_117imports;
extern object __glo_lib_117body;
extern object __glo_lib_117includes;
extern object __glo_lib_117import_91_125filename;
extern object __glo_lib_117import_91_125metalist;
extern object __glo_lib_117import_91_125path;
extern object __glo_lib_117read_91imports;
extern object __glo_lib_117import_91_125export_91list;
extern object __glo_lib_117resolve_91imports;
extern object __glo_lib_117resolve_91meta;
extern object __glo_lib_117get_91all_91import_91deps;
extern object __glo_lib_117get_91dep_91list;
#include "cyclone/runtime.h"
#include "cyclone/runtime-main.h"
defsymbol(result);
defsymbol(_191);
defsymbol(f);
defsymbol(k);
defsymbol(lambda);
defsymbol(call_95cc);
defsymbol(define);
defsymbol(base);
defsymbol(scheme);
defsymbol(eval);
defsymbol(import);
static void __lambda_281(void *data, int argc, closure _) ;
static void __lambda_280(void *data, int argc, closure _,object r_7399) ;
static void __lambda_279(void *data, int argc, closure _,object r_73100) ;
static void __lambda_278(void *data, int argc, closure _,object r_73101) ;
static void __lambda_277(void *data, int argc, closure _,object args_7347) ;
static void __lambda_276(void *data, int argc, object self_73330, object k_73122, object arg_7348) ;
static void __lambda_275(void *data, int argc, object self_73331, object r_73123) ;
static void __lambda_274(void *data, int argc, object self_73332, object k_73124) ;
static void __lambda_273(void *data, int argc, object self_73333, object r_73127) ;
static void __lambda_272(void *data, int argc, object self_73334, object r_73125) ;
static void __lambda_271(void *data, int argc, object self_73335, object r_73126) ;
static void __lambda_270(void *data, int argc, object self_73336, object r_73121) ;
static void __lambda_269(void *data, int argc, object self_73337, object r_73102) ;
static void __lambda_268(void *data, int argc, object self_73338, object non_91opts_7349) ;
static void __lambda_267(void *data, int argc, object self_73339, object compile_127_7350) ;
static void __lambda_266(void *data, int argc, object self_73340, object compile_127_7350) ;
static void __lambda_265(void *data, int argc, object self_73341) ;
static void __lambda_264(void *data, int argc, object self_73342, object r_73103) ;
static void __lambda_263(void *data, int argc, object self_73343, object r_73104) ;
static void __lambda_262(void *data, int argc, object self_73344, object r_73116) ;
static void __lambda_261(void *data, int argc, object self_73345, object r_73105) ;
static void __lambda_260(void *data, int argc, object self_73346, object r_73114) ;
static void __lambda_259(void *data, int argc, object self_73347, object tmp_7351) ;
static void __lambda_258(void *data, int argc, object self_73348, object r_73107) ;
static void __lambda_257(void *data, int argc, object self_73349, object r_73109) ;
static void __lambda_256(void *data, int argc, object self_73350, object r_73110) ;
static void __lambda_255(void *data, int argc, object self_73351, object r_73112) ;
static void __lambda_254(void *data, int argc, object self_73352, object r_73113) ;
static void __lambda_253(void *data, int argc, object self_73353) ;
static void __lambda_252(void *data, int argc, closure _) ;
static void __lambda_251(void *data, int argc, closure _) ;
static void __lambda_250(void *data, int argc, closure _) ;
static void __lambda_249(void *data, int argc, object self_73354, object r_73111) ;
static void __lambda_248(void *data, int argc, closure _) ;
static void __lambda_247(void *data, int argc, closure _) ;
static void __lambda_246(void *data, int argc, object self_73355, object r_73108) ;
static void __lambda_245(void *data, int argc, object self_73356, object k_73115) ;
static void __lambda_244(void *data, int argc, closure _) ;
static void __lambda_243(void *data, int argc, object self_73357, object r_73106) ;
static void __lambda_242(void *data, int argc, object self_73358, object k_73117) ;
static void __lambda_241(void *data, int argc, object self_73359, object r_73118) ;
static void __lambda_240(void *data, int argc, object self_73360, object k_73119) ;
static void __lambda_239(void *data, int argc, object self_73361, object r_73120) ;
static void __lambda_238(void *data, int argc, closure _,object k_73130, object args_7353, object cc_127_7352) ;
static void __lambda_237(void *data, int argc, object self_73362, object r_73131) ;
static void __lambda_236(void *data, int argc, object self_73363, object in_91file_7354) ;
static void __lambda_235(void *data, int argc, object self_73364, object r_73132) ;
static void __lambda_234(void *data, int argc, object self_73365, object in_91prog_7355) ;
static void __lambda_233(void *data, int argc, object self_73366, object r_73170) ;
static void __lambda_232(void *data, int argc, object self_73367, object r_73169) ;
static void __lambda_231(void *data, int argc, object self_73368, object r_73133) ;
static void __lambda_230(void *data, int argc, object self_73369, object program_127_7356) ;
static void __lambda_229(void *data, int argc, object self_73370, object r_73134) ;
static void __lambda_228(void *data, int argc, object self_73371, object lib_91deps_7357) ;
static void __lambda_227(void *data, int argc, object self_73372, object r_73135) ;
static void __lambda_226(void *data, int argc, object self_73373, object exec_91file_7358) ;
static void __lambda_225(void *data, int argc, object self_73374, object r_73136) ;
static void __lambda_224(void *data, int argc, object self_73375, object src_91file_7359) ;
static void __lambda_223(void *data, int argc, object self_73376, object r_73137) ;
static void __lambda_222(void *data, int argc, object self_73377, object meta_91file_7360) ;
static void __lambda_221(void *data, int argc, object self_73378, object k_73160, object program_7361) ;
static void __lambda_220(void *data, int argc, object self_73379, object k_73162) ;
static void __lambda_219(void *data, int argc, object self_73380, object r_73161) ;
static void __lambda_218(void *data, int argc, object self_73381, object r_73138) ;
static void __lambda_217(void *data, int argc, object self_73382, object create_91c_91file_7362) ;
static void __lambda_216(void *data, int argc, object self_73383, object r_73139) ;
static void __lambda_215(void *data, int argc, object self_73384, object result_7363) ;
static void __lambda_214(void *data, int argc, object self_73385) ;
static void __lambda_213(void *data, int argc, object self_73386) ;
static void __lambda_212(void *data, int argc, object self_73387, object k_73156) ;
static void __lambda_211(void *data, int argc, object self_73388, object r_73157) ;
static void __lambda_210(void *data, int argc, object self_73389, object r_73158) ;
static void __lambda_209(void *data, int argc, object self_73390, object r_73159) ;
static void __lambda_208(void *data, int argc, object self_73391, object r_73155) ;
static void __lambda_207(void *data, int argc, object self_73392, object r_73153) ;
static void __lambda_206(void *data, int argc, object self_73393, object r_73154) ;
static void __lambda_205(void *data, int argc, object self_73394, object comp_91lib_91cmd_7364) ;
static void __lambda_204(void *data, int argc, object self_73395) ;
static void __lambda_203(void *data, int argc, object self_73396) ;
static void __lambda_202(void *data, int argc, object self_73397) ;
static void __lambda_201(void *data, int argc, object self_73398, object objs_91str_7367, object comp_91prog_91cmd_7366, object comp_91objs_91cmd_7365) ;
static void __lambda_200(void *data, int argc, object self_73399, object objs_91str_7367) ;
static void __lambda_199(void *data, int argc, object self_73400, object comp_91prog_91cmd_7366) ;
static void __lambda_198(void *data, int argc, object self_73401, object comp_91objs_91cmd_7365) ;
static void __lambda_197(void *data, int argc, object self_73402, object k_73151, object i_7368) ;
static void __lambda_196(void *data, int argc, object self_73403, object r_73152) ;
static void __lambda_195(void *data, int argc, object self_73404, object r_73150) ;
static void __lambda_194(void *data, int argc, object self_73405, object r_73149) ;
static void __lambda_193(void *data, int argc, object self_73406, object r_73148) ;
static void __lambda_192(void *data, int argc, object self_73407, object r_73140) ;
static void __lambda_191(void *data, int argc, object self_73408, object r_73147) ;
static void __lambda_190(void *data, int argc, object self_73409, object r_73141) ;
static void __lambda_189(void *data, int argc, object self_73410, object r_73146) ;
static void __lambda_188(void *data, int argc, object self_73411, object r_73142) ;
static void __lambda_187(void *data, int argc, object self_73412) ;
static void __lambda_186(void *data, int argc, object self_73413, object r_73145) ;
static void __lambda_185(void *data, int argc, object self_73414) ;
static void __lambda_184(void *data, int argc, object self_73415, object r_73144) ;
static void __lambda_183(void *data, int argc, object self_73416, object r_73143) ;
static void __lambda_182(void *data, int argc, object self_73417, object k_73163) ;
static void __lambda_181(void *data, int argc, object self_73418, object r_73164) ;
static void __lambda_180(void *data, int argc, object self_73419, object r_73165) ;
static void __lambda_179(void *data, int argc, object self_73420, object k_73166) ;
static void __lambda_178(void *data, int argc, object self_73421, object r_73167) ;
static void __lambda_177(void *data, int argc, object self_73422, object r_73168) ;
static void __lambda_176(void *data, int argc, closure _,object k_73173, object filename_7369) ;
static void __lambda_175(void *data, int argc, object self_73423, object k_73175, object port_7370) ;
static void __lambda_174(void *data, int argc, object self_73424, object r_73174) ;
static void __lambda_173(void *data, int argc, closure _,object k_73178, object input_91program_7373, object lib_91deps_7372, object src_91file_7371) ;
static void __lambda_172(void *data, int argc, object self_73425, object input_91program_7373) ;
static void __lambda_171(void *data, int argc, object self_73426, object globals_7380, object imported_91vars_7379, object imports_7378, object lib_91exports_7377, object lib_91name_7376, object module_91globals_7375, object program_127_7374) ;
static void __lambda_170(void *data, int argc, object self_73427, object k_73180, object return_7381) ;
static void __lambda_169(void *data, int argc, object self_73428, object globals_7388, object module_91globals_7387, object program_127_7386, object imports_7385, object imported_91vars_7384, object lib_91name_7383, object lib_91exports_7382) ;
static void __lambda_168(void *data, int argc, object self_73429, object globals_7388) ;
static void __lambda_167(void *data, int argc, object self_73430, object module_91globals_7387) ;
static void __lambda_166(void *data, int argc, object self_73431, object program_127_7386) ;
static void __lambda_165(void *data, int argc, object self_73432, object imports_7385) ;
static void __lambda_164(void *data, int argc, object self_73433, object imported_91vars_7384) ;
static void __lambda_163(void *data, int argc, object self_73434, object lib_91name_7383) ;
static void __lambda_162(void *data, int argc, object self_73435, object lib_91exports_7382) ;
static void __lambda_161(void *data, int argc, object self_73436, object r_73329) ;
static void __lambda_160(void *data, int argc, object self_73437, object r_73181) ;
static void __lambda_159(void *data, int argc, object self_73438, object r_73328) ;
static void __lambda_158(void *data, int argc, object self_73439, object r_73182) ;
static void __lambda_157(void *data, int argc, object self_73440, object r_73183) ;
static void __lambda_156(void *data, int argc, object self_73441, object r_73327) ;
static void __lambda_155(void *data, int argc, object self_73442, object r_73184) ;
static void __lambda_154(void *data, int argc, object self_73443, object r_73326) ;
static void __lambda_153(void *data, int argc, object self_73444, object r_73185) ;
static void __lambda_152(void *data, int argc, object self_73445, object r_73325) ;
static void __lambda_151(void *data, int argc, object self_73446, object r_73186) ;
static void __lambda_150(void *data, int argc, object self_73447, object r_73324) ;
static void __lambda_149(void *data, int argc, object self_73448, object r_73187) ;
static void __lambda_148(void *data, int argc, object self_73449, object r_73188) ;
static void __lambda_147(void *data, int argc, object self_73450, object r_73189) ;
static void __lambda_146(void *data, int argc, object self_73451, object r_73190) ;
static void __lambda_145(void *data, int argc, object self_73452, object r_73191) ;
static void __lambda_144(void *data, int argc, object self_73453, object r_73192) ;
static void __lambda_143(void *data, int argc, object self_73454, object r_73193) ;
static void __lambda_142(void *data, int argc, object self_73455, object r_73289) ;
static void __lambda_141(void *data, int argc, object self_73456, object r_73194) ;
static void __lambda_140(void *data, int argc, object self_73457, object r_73195) ;
static void __lambda_139(void *data, int argc, object self_73458, object r_73196) ;
static void __lambda_138(void *data, int argc, object self_73459, object r_73285) ;
static void __lambda_137(void *data, int argc, object self_73460, object meta_7396) ;
static void __lambda_136(void *data, int argc, object self_73461, object r_73288) ;
static void __lambda_135(void *data, int argc, object self_73462, object r_73286) ;
static void __lambda_134(void *data, int argc, object self_73463, object r_73287) ;
static void __lambda_133(void *data, int argc, object self_73464, object r_73197) ;
static void __lambda_132(void *data, int argc, object self_73465, object k_73282, object v_7394) ;
static void __lambda_131(void *data, int argc, object self_73466, object r_73284) ;
static void __lambda_130(void *data, int argc, object self_73467, object r_73283) ;
static void __lambda_129(void *data, int argc, object self_73468, object r_73280) ;
static void __lambda_128(void *data, int argc, object self_73469, object r_73281) ;
static void __lambda_127(void *data, int argc, object self_73470, object r_73278) ;
static void __lambda_126(void *data, int argc, object self_73471, object macros_7395) ;
static void __lambda_125(void *data, int argc, object self_73472, object r_73279) ;
static void __lambda_124(void *data, int argc, object self_73473, object r_73198) ;
static void __lambda_123(void *data, int argc, object self_73474, object r_73276) ;
static void __lambda_122(void *data, int argc, object self_73475, object r_73277) ;
static void __lambda_121(void *data, int argc, object self_73476, object r_73275) ;
static void __lambda_120(void *data, int argc, object self_73477, object r_73199) ;
static void __lambda_119(void *data, int argc, object self_73478, object r_73272) ;
static void __lambda_118(void *data, int argc, object self_73479, object r_73273) ;
static void __lambda_117(void *data, int argc, object self_73480, object r_73271) ;
static void __lambda_116(void *data, int argc, object self_73481, object r_73200) ;
static void __lambda_115(void *data, int argc, object self_73482, object r_73201) ;
static void __lambda_114(void *data, int argc, object self_73483, object r_73202) ;
static void __lambda_113(void *data, int argc, object self_73484, object r_73270) ;
static void __lambda_112(void *data, int argc, object self_73485, object r_73203) ;
static void __lambda_111(void *data, int argc, object self_73486, object r_73204) ;
static void __lambda_110(void *data, int argc, object self_73487, object r_73205) ;
static void __lambda_109(void *data, int argc, object self_73488, object r_73206) ;
static void __lambda_108(void *data, int argc, object self_73489, object r_73264) ;
static void __lambda_107(void *data, int argc, object self_73490, object r_73207) ;
static void __lambda_106(void *data, int argc, object self_73491, object r_73263) ;
static void __lambda_105(void *data, int argc, object self_73492, object r_73208) ;
static void __lambda_104(void *data, int argc, object self_73493, object k_73262, object expr_7393) ;
static void __lambda_103(void *data, int argc, object self_73494, object r_73261) ;
static void __lambda_102(void *data, int argc, object self_73495, object r_73260) ;
static void __lambda_101(void *data, int argc, object self_73496, object r_73209) ;
static void __lambda_100(void *data, int argc, object self_73497, object r_73210) ;
static void __lambda_99(void *data, int argc, object self_73498, object r_73211) ;
static void __lambda_98(void *data, int argc, object self_73499, object k_73259, object expr_7391) ;
static void __lambda_97(void *data, int argc, object self_73500, object r_73258) ;
static void __lambda_96(void *data, int argc, object self_73501, object r_73245) ;
static void __lambda_95(void *data, int argc, object self_73502, object cps_7392) ;
static void __lambda_94(void *data, int argc, object self_73503, object r_73212) ;
static void __lambda_93(void *data, int argc, object self_73504, object r_73213) ;
static void __lambda_92(void *data, int argc, object self_73505, object r_73214) ;
static void __lambda_91(void *data, int argc, object self_73506, object k_73242, object expr_7390) ;
static void __lambda_90(void *data, int argc, object self_73507, object r_73243) ;
static void __lambda_89(void *data, int argc, object self_73508, object r_73244) ;
static void __lambda_88(void *data, int argc, object self_73509, object r_73241) ;
static void __lambda_87(void *data, int argc, object self_73510, object r_73240) ;
static void __lambda_86(void *data, int argc, object self_73511, object r_73215) ;
static void __lambda_85(void *data, int argc, object self_73512, object r_73216) ;
static void __lambda_84(void *data, int argc, object self_73513, object r_73217) ;
static void __lambda_83(void *data, int argc, object self_73514, object k_73230, object expr_7389) ;
static void __lambda_82(void *data, int argc, object self_73515, object r_73231) ;
static void __lambda_81(void *data, int argc, object self_73516, object r_73238) ;
static void __lambda_80(void *data, int argc, object self_73517) ;
static void __lambda_79(void *data, int argc, object self_73518, object r_73239) ;
static void __lambda_78(void *data, int argc, object self_73519) ;
static void __lambda_77(void *data, int argc, object self_73520) ;
static void __lambda_76(void *data, int argc, object self_73521, object r_73232) ;
static void __lambda_75(void *data, int argc, object self_73522, object r_73234) ;
static void __lambda_74(void *data, int argc, object self_73523, object r_73237) ;
static void __lambda_73(void *data, int argc, object self_73524, object r_73236) ;
static void __lambda_72(void *data, int argc, object self_73525, object r_73235) ;
static void __lambda_71(void *data, int argc, object self_73526, object r_73233) ;
static void __lambda_70(void *data, int argc, object self_73527, object r_73229) ;
static void __lambda_69(void *data, int argc, object self_73528, object r_73228) ;
static void __lambda_68(void *data, int argc, object self_73529, object r_73218) ;
static void __lambda_67(void *data, int argc, object self_73530, object r_73219) ;
static void __lambda_66(void *data, int argc, object self_73531, object r_73220) ;
static void __lambda_65(void *data, int argc, object self_73532, object r_73221) ;
static void __lambda_64(void *data, int argc, object self_73533, object r_73222) ;
static void __lambda_63(void *data, int argc, object self_73534, object r_73223) ;
static void __lambda_62(void *data, int argc, object self_73535, object r_73224) ;
static void __lambda_61(void *data, int argc, closure _,object k_73225) ;
static void __lambda_60(void *data, int argc, object self_73536, object r_73226) ;
static void __lambda_59(void *data, int argc, object self_73537) ;
static void __lambda_58(void *data, int argc, object self_73538, object r_73227) ;
static void __lambda_57(void *data, int argc, object self_73539, object k_73246) ;
static void __lambda_56(void *data, int argc, object self_73540, object r_73247) ;
static void __lambda_55(void *data, int argc, object self_73541) ;
static void __lambda_54(void *data, int argc, object self_73542) ;
static void __lambda_53(void *data, int argc, object self_73543, object r_73255) ;
static void __lambda_52(void *data, int argc, object self_73544, object r_73254) ;
static void __lambda_51(void *data, int argc, object self_73545, object r_73248) ;
static void __lambda_50(void *data, int argc, object self_73546, object r_73253) ;
static void __lambda_49(void *data, int argc, object self_73547, object r_73252) ;
static void __lambda_48(void *data, int argc, object self_73548, object r_73249) ;
static void __lambda_47(void *data, int argc, object self_73549, object r_73251) ;
static void __lambda_46(void *data, int argc, object self_73550, object r_73250) ;
static void __lambda_45(void *data, int argc, object self_73551, object k_73256) ;
static void __lambda_44(void *data, int argc, object self_73552, object r_73257) ;
static void __lambda_43(void *data, int argc, object self_73553, object k_73265) ;
static void __lambda_42(void *data, int argc, object self_73554, object r_73269) ;
static void __lambda_41(void *data, int argc, object self_73555, object r_73268) ;
static void __lambda_40(void *data, int argc, object self_73556, object r_73266) ;
static void __lambda_39(void *data, int argc, object self_73557, object r_73267) ;
static void __lambda_38(void *data, int argc, object self_73558, object k_73274) ;
static void __lambda_37(void *data, int argc, object self_73559, object k_73290) ;
static void __lambda_36(void *data, int argc, object self_73560, object r_73323) ;
static void __lambda_35(void *data, int argc, object self_73561, object r_73291) ;
static void __lambda_34(void *data, int argc, object self_73562, object r_73321) ;
static void __lambda_33(void *data, int argc, object self_73563, object r_73322) ;
static void __lambda_32(void *data, int argc, object self_73564, object r_73317) ;
static void __lambda_31(void *data, int argc, object self_73565) ;
static void __lambda_30(void *data, int argc, object self_73566, object r_73320) ;
static void __lambda_29(void *data, int argc, object self_73567, object r_73318) ;
static void __lambda_28(void *data, int argc, object self_73568, object r_73319) ;
static void __lambda_27(void *data, int argc, object self_73569) ;
static void __lambda_26(void *data, int argc, object self_73570, object r_73316) ;
static void __lambda_25(void *data, int argc, object self_73571, object r_73292) ;
static void __lambda_24(void *data, int argc, object self_73572, object includes_7397) ;
static void __lambda_23(void *data, int argc, object self_73573, object r_73293) ;
static void __lambda_22(void *data, int argc, object self_73574, object r_73315) ;
static void __lambda_21(void *data, int argc, object self_73575, object r_73314) ;
static void __lambda_20(void *data, int argc, object self_73576, object r_73294) ;
static void __lambda_19(void *data, int argc, object self_73577, object r_73311) ;
static void __lambda_18(void *data, int argc, object self_73578, object r_73313) ;
static void __lambda_17(void *data, int argc, object self_73579, object r_73312) ;
static void __lambda_16(void *data, int argc, object self_73580, object r_73310) ;
static void __lambda_15(void *data, int argc, object self_73581, object r_73295) ;
static void __lambda_14(void *data, int argc, object self_73582, object r_73309) ;
static void __lambda_13(void *data, int argc, object self_73583, object r_73308) ;
static void __lambda_12(void *data, int argc, object self_73584, object r_73296) ;
static void __lambda_11(void *data, int argc, object self_73585, object r_73307) ;
static void __lambda_10(void *data, int argc, object self_73586, object r_73306) ;
static void __lambda_9(void *data, int argc, object self_73587, object r_73297) ;
static void __lambda_8(void *data, int argc, object self_73588, object r_73305) ;
static void __lambda_7(void *data, int argc, object self_73589, object r_73298) ;
static void __lambda_6(void *data, int argc, object self_73590, object k_73300, object include_7398) ;
static void __lambda_5(void *data, int argc, object self_73591, object r_73304) ;
static void __lambda_4(void *data, int argc, object self_73592, object r_73303) ;
static void __lambda_3(void *data, int argc, object self_73593, object r_73302) ;
static void __lambda_2(void *data, int argc, object self_73594, object r_73301) ;
static void __lambda_1(void *data, int argc, object self_73595, object r_73299) ;
static void __lambda_0(void *data, int argc, object self_73596, object r_73179) ;

static void __lambda_281(void *data, int argc, closure _) {
  make_int(c_731786, 0);
return_direct1(data,__lambda_280,&c_731786);; 
}

static void __lambda_280(void *data, int argc, closure _,object r_7399) {
  return_direct1(data,__lambda_279,boolean_f);; 
}

static void __lambda_279(void *data, int argc, closure _,object r_73100) {
  mclosure0(c_731784,__lambda_278); object c_731785 = Cyc_command_line_arguments(data,&c_731784);
return_direct1(data,__lambda_278,c_731785);; 
}

static void __lambda_278(void *data, int argc, closure _,object r_73101) {
  return_direct1(data,__lambda_277,r_73101);; 
}

static void __lambda_277(void *data, int argc, closure _,object args_7347) {
  
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_270;
c_731624.num_args = 1;
c_731624.num_elt = 1;
c_731624.elts = (object *)alloca(sizeof(object) * 1);
c_731624.elts[0] = args_7347;


mclosure0(c_731754, (function_type)__lambda_276);c_731754.num_args = 1;
return_closcall1(data,(closure)&c_731624,  &c_731754);; 
}

static void __lambda_276(void *data, int argc, object self_73330, object k_73122, object arg_7348) {
  
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_274;
c_731756.num_args = 0;
c_731756.num_elt = 1;
c_731756.elts = (object *)alloca(sizeof(object) * 1);
c_731756.elts[0] = arg_7348;


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_275;
c_731780.num_args = 1;
c_731780.num_elt = 1;
c_731780.elts = (object *)alloca(sizeof(object) * 1);
c_731780.elts[0] = k_73122;

return_closcall1(data,(closure)&c_731756,  &c_731780);; 
}

static void __lambda_275(void *data, int argc, object self_73331, object r_73123) {
  return_closcall2(data,  __glo_not,  ((closureN)self_73331)->elts[0], r_73123);; 
}

static void __lambda_274(void *data, int argc, object self_73332, object k_73124) {
  
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_273;
c_731758.num_args = 1;
c_731758.num_elt = 2;
c_731758.elts = (object *)alloca(sizeof(object) * 2);
c_731758.elts[0] = ((closureN)self_73332)->elts[0];
c_731758.elts[1] = k_73124;


integer_type c_731778 = Cyc_string_length(data,((closureN)self_73332)->elts[0]);
return_closcall1(data,(closure)&c_731758,  &c_731778);; 
}

static void __lambda_273(void *data, int argc, object self_73333, object r_73127) {
  
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_272;
c_731760.num_args = 1;
c_731760.num_elt = 2;
c_731760.elts = (object *)alloca(sizeof(object) * 2);
c_731760.elts[0] = ((closureN)self_73333)->elts[0];
c_731760.elts[1] = ((closureN)self_73333)->elts[1];


make_int(c_731775, 1);
return_closcall1(data,(closure)&c_731760,  __num_gt(data, r_73127, &c_731775));; 
}

static void __lambda_272(void *data, int argc, object self_73334, object r_73125) {
  if( !eq(boolean_f, r_73125) ){ 
  
closureN_type c_731762;
c_731762.hdr.mark = gc_color_red;
 c_731762.hdr.grayed = 0;
c_731762.tag = closureN_tag;
 c_731762.fn = (function_type)__lambda_271;
c_731762.num_args = 1;
c_731762.num_elt = 1;
c_731762.elts = (object *)alloca(sizeof(object) * 1);
c_731762.elts[0] = ((closureN)self_73334)->elts[1];


make_int(c_731770, 0);
return_closcall1(data,(closure)&c_731762,  Cyc_string_ref(data, ((closureN)self_73334)->elts[0], &c_731770));
} else { 
  return_closcall1(data,  ((closureN)self_73334)->elts[1],  boolean_f);}
; 
}

static void __lambda_271(void *data, int argc, object self_73335, object r_73126) {
  return_closcall1(data,  ((closureN)self_73335)->elts[0],  equalp(obj_char2obj(45), r_73126));; 
}

static void __lambda_270(void *data, int argc, object self_73336, object r_73121) {
  
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_269;
c_731626.num_args = 1;
c_731626.num_elt = 1;
c_731626.elts = (object *)alloca(sizeof(object) * 1);
c_731626.elts[0] = ((closureN)self_73336)->elts[0];

return_closcall3(data,  __glo_filter,  &c_731626, r_73121, ((closureN)self_73336)->elts[0]);; 
}

static void __lambda_269(void *data, int argc, object self_73337, object r_73102) {
  
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_268;
c_731628.num_args = 1;
c_731628.num_elt = 1;
c_731628.elts = (object *)alloca(sizeof(object) * 1);
c_731628.elts[0] = ((closureN)self_73337)->elts[0];

return_closcall1(data,(closure)&c_731628,  r_73102);; 
}

static void __lambda_268(void *data, int argc, object self_73338, object non_91opts_7349) {
  
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_267;
c_731630.num_args = 1;
c_731630.num_elt = 2;
c_731630.elts = (object *)alloca(sizeof(object) * 2);
c_731630.elts[0] = ((closureN)self_73338)->elts[0];
c_731630.elts[1] = non_91opts_7349;

return_closcall1(data,(closure)&c_731630,  boolean_t);; 
}

static void __lambda_267(void *data, int argc, object self_73339, object compile_127_7350) {
  
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_266;
c_731632.num_args = 1;
c_731632.num_elt = 2;
c_731632.elts = (object *)alloca(sizeof(object) * 2);
c_731632.elts[0] = ((closureN)self_73339)->elts[0];
c_731632.elts[1] = ((closureN)self_73339)->elts[1];


make_cell(c_731752,compile_127_7350);
return_closcall1(data,(closure)&c_731632,  &c_731752);; 
}

static void __lambda_266(void *data, int argc, object self_73340, object compile_127_7350) {
  
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_265;
c_731634.num_args = 0;
c_731634.num_elt = 3;
c_731634.elts = (object *)alloca(sizeof(object) * 3);
c_731634.elts[0] = ((closureN)self_73340)->elts[0];
c_731634.elts[1] = compile_127_7350;
c_731634.elts[2] = ((closureN)self_73340)->elts[1];

return_closcall0(data,(closure)&c_731634);; 
}

static void __lambda_265(void *data, int argc, object self_73341) {
  
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_240;
c_731636.num_args = 0;
c_731636.num_elt = 1;
c_731636.elts = (object *)alloca(sizeof(object) * 1);
c_731636.elts[0] = ((closureN)self_73341)->elts[0];


closureN_type c_731650;
c_731650.hdr.mark = gc_color_red;
 c_731650.hdr.grayed = 0;
c_731650.tag = closureN_tag;
 c_731650.fn = (function_type)__lambda_264;
c_731650.num_args = 1;
c_731650.num_elt = 3;
c_731650.elts = (object *)alloca(sizeof(object) * 3);
c_731650.elts[0] = ((closureN)self_73341)->elts[0];
c_731650.elts[1] = ((closureN)self_73341)->elts[1];
c_731650.elts[2] = ((closureN)self_73341)->elts[2];

return_closcall1(data,(closure)&c_731636,  &c_731650);; 
}

static void __lambda_264(void *data, int argc, object self_73342, object r_73103) {
  
closureN_type c_731652;
c_731652.hdr.mark = gc_color_red;
 c_731652.hdr.grayed = 0;
c_731652.tag = closureN_tag;
 c_731652.fn = (function_type)__lambda_242;
c_731652.num_args = 0;
c_731652.num_elt = 2;
c_731652.elts = (object *)alloca(sizeof(object) * 2);
c_731652.elts[0] = ((closureN)self_73342)->elts[0];
c_731652.elts[1] = ((closureN)self_73342)->elts[1];


closureN_type c_731666;
c_731666.hdr.mark = gc_color_red;
 c_731666.hdr.grayed = 0;
c_731666.tag = closureN_tag;
 c_731666.fn = (function_type)__lambda_263;
c_731666.num_args = 1;
c_731666.num_elt = 3;
c_731666.elts = (object *)alloca(sizeof(object) * 3);
c_731666.elts[0] = ((closureN)self_73342)->elts[0];
c_731666.elts[1] = ((closureN)self_73342)->elts[1];
c_731666.elts[2] = ((closureN)self_73342)->elts[2];

return_closcall1(data,(closure)&c_731652,  &c_731666);; 
}

static void __lambda_263(void *data, int argc, object self_73343, object r_73104) {
  
closureN_type c_731668;
c_731668.hdr.mark = gc_color_red;
 c_731668.hdr.grayed = 0;
c_731668.tag = closureN_tag;
 c_731668.fn = (function_type)__lambda_262;
c_731668.num_args = 1;
c_731668.num_elt = 3;
c_731668.elts = (object *)alloca(sizeof(object) * 3);
c_731668.elts[0] = ((closureN)self_73343)->elts[0];
c_731668.elts[1] = ((closureN)self_73343)->elts[1];
c_731668.elts[2] = ((closureN)self_73343)->elts[2];


integer_type c_731748 = Cyc_length(data,((closureN)self_73343)->elts[0]);
return_closcall1(data,(closure)&c_731668,  &c_731748);; 
}

static void __lambda_262(void *data, int argc, object self_73344, object r_73116) {
  
closureN_type c_731670;
c_731670.hdr.mark = gc_color_red;
 c_731670.hdr.grayed = 0;
c_731670.tag = closureN_tag;
 c_731670.fn = (function_type)__lambda_261;
c_731670.num_args = 1;
c_731670.num_elt = 3;
c_731670.elts = (object *)alloca(sizeof(object) * 3);
c_731670.elts[0] = ((closureN)self_73344)->elts[0];
c_731670.elts[1] = ((closureN)self_73344)->elts[1];
c_731670.elts[2] = ((closureN)self_73344)->elts[2];


make_int(c_731745, 1);
return_closcall1(data,(closure)&c_731670,  __num_lt(data, r_73116, &c_731745));; 
}

static void __lambda_261(void *data, int argc, object self_73345, object r_73105) {
  if( !eq(boolean_f, r_73105) ){ 
  return_direct0(data,__lambda_244);
} else { 
  
closureN_type c_731677;
c_731677.hdr.mark = gc_color_red;
 c_731677.hdr.grayed = 0;
c_731677.tag = closureN_tag;
 c_731677.fn = (function_type)__lambda_260;
c_731677.num_args = 1;
c_731677.num_elt = 3;
c_731677.elts = (object *)alloca(sizeof(object) * 3);
c_731677.elts[0] = ((closureN)self_73345)->elts[0];
c_731677.elts[1] = ((closureN)self_73345)->elts[1];
c_731677.elts[2] = ((closureN)self_73345)->elts[2];


make_string(c_731741, "-h");
return_closcall1(data,(closure)&c_731677,  memberp(data, &c_731741, ((closureN)self_73345)->elts[0]));}
; 
}

static void __lambda_260(void *data, int argc, object self_73346, object r_73114) {
  
closureN_type c_731679;
c_731679.hdr.mark = gc_color_red;
 c_731679.hdr.grayed = 0;
c_731679.tag = closureN_tag;
 c_731679.fn = (function_type)__lambda_259;
c_731679.num_args = 1;
c_731679.num_elt = 3;
c_731679.elts = (object *)alloca(sizeof(object) * 3);
c_731679.elts[0] = ((closureN)self_73346)->elts[0];
c_731679.elts[1] = ((closureN)self_73346)->elts[1];
c_731679.elts[2] = ((closureN)self_73346)->elts[2];

return_closcall1(data,(closure)&c_731679,  r_73114);; 
}

static void __lambda_259(void *data, int argc, object self_73347, object tmp_7351) {
  
closureN_type c_731681;
c_731681.hdr.mark = gc_color_red;
 c_731681.hdr.grayed = 0;
c_731681.tag = closureN_tag;
 c_731681.fn = (function_type)__lambda_245;
c_731681.num_args = 0;
c_731681.num_elt = 2;
c_731681.elts = (object *)alloca(sizeof(object) * 2);
c_731681.elts[0] = ((closureN)self_73347)->elts[0];
c_731681.elts[1] = tmp_7351;


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_258;
c_731690.num_args = 1;
c_731690.num_elt = 3;
c_731690.elts = (object *)alloca(sizeof(object) * 3);
c_731690.elts[0] = ((closureN)self_73347)->elts[0];
c_731690.elts[1] = ((closureN)self_73347)->elts[1];
c_731690.elts[2] = ((closureN)self_73347)->elts[2];

return_closcall1(data,(closure)&c_731681,  &c_731690);; 
}

static void __lambda_258(void *data, int argc, object self_73348, object r_73107) {
  if( !eq(boolean_f, r_73107) ){ 
  return_direct0(data,__lambda_247);
} else { 
  
closureN_type c_731697;
c_731697.hdr.mark = gc_color_red;
 c_731697.hdr.grayed = 0;
c_731697.tag = closureN_tag;
 c_731697.fn = (function_type)__lambda_257;
c_731697.num_args = 1;
c_731697.num_elt = 3;
c_731697.elts = (object *)alloca(sizeof(object) * 3);
c_731697.elts[0] = ((closureN)self_73348)->elts[0];
c_731697.elts[1] = ((closureN)self_73348)->elts[1];
c_731697.elts[2] = ((closureN)self_73348)->elts[2];


make_string(c_731737, "-v");
return_closcall1(data,(closure)&c_731697,  memberp(data, &c_731737, ((closureN)self_73348)->elts[0]));}
; 
}

static void __lambda_257(void *data, int argc, object self_73349, object r_73109) {
  if( !eq(boolean_f, r_73109) ){ 
  return_direct0(data,__lambda_248);
} else { 
  
closureN_type c_731701;
c_731701.hdr.mark = gc_color_red;
 c_731701.hdr.grayed = 0;
c_731701.tag = closureN_tag;
 c_731701.fn = (function_type)__lambda_256;
c_731701.num_args = 1;
c_731701.num_elt = 3;
c_731701.elts = (object *)alloca(sizeof(object) * 3);
c_731701.elts[0] = ((closureN)self_73349)->elts[0];
c_731701.elts[1] = ((closureN)self_73349)->elts[1];
c_731701.elts[2] = ((closureN)self_73349)->elts[2];


make_string(c_731733, "--autogen");
return_closcall1(data,(closure)&c_731701,  memberp(data, &c_731733, ((closureN)self_73349)->elts[0]));}
; 
}

static void __lambda_256(void *data, int argc, object self_73350, object r_73110) {
  if( !eq(boolean_f, r_73110) ){ 
  return_direct0(data,__lambda_250);
} else { 
  
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_255;
c_731708.num_args = 1;
c_731708.num_elt = 3;
c_731708.elts = (object *)alloca(sizeof(object) * 3);
c_731708.elts[0] = ((closureN)self_73350)->elts[0];
c_731708.elts[1] = ((closureN)self_73350)->elts[1];
c_731708.elts[2] = ((closureN)self_73350)->elts[2];


make_string(c_731729, "-v");
return_closcall1(data,(closure)&c_731708,  memberp(data, &c_731729, ((closureN)self_73350)->elts[0]));}
; 
}

static void __lambda_255(void *data, int argc, object self_73351, object r_73112) {
  if( !eq(boolean_f, r_73112) ){ 
  return_direct0(data,__lambda_251);
} else { 
  
closureN_type c_731712;
c_731712.hdr.mark = gc_color_red;
 c_731712.hdr.grayed = 0;
c_731712.tag = closureN_tag;
 c_731712.fn = (function_type)__lambda_254;
c_731712.num_args = 1;
c_731712.num_elt = 2;
c_731712.elts = (object *)alloca(sizeof(object) * 2);
c_731712.elts[0] = ((closureN)self_73351)->elts[1];
c_731712.elts[1] = ((closureN)self_73351)->elts[2];


make_string(c_731725, "--autogen");
return_closcall1(data,(closure)&c_731712,  memberp(data, &c_731725, ((closureN)self_73351)->elts[0]));}
; 
}

static void __lambda_254(void *data, int argc, object self_73352, object r_73113) {
  if( !eq(boolean_f, r_73113) ){ 
  return_direct0(data,__lambda_252);
} else { 
  
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_253;
c_731717.num_args = 0;
c_731717.num_elt = 2;
c_731717.elts = (object *)alloca(sizeof(object) * 2);
c_731717.elts[0] = ((closureN)self_73352)->elts[0];
c_731717.elts[1] = ((closureN)self_73352)->elts[1];

return_closcall0(data,(closure)&c_731717);}
; 
}

static void __lambda_253(void *data, int argc, object self_73353) {
  return_closcall3(data,  __glo_run_91compiler,  primitive__75halt, ((closureN)self_73353)->elts[1], cell_get(((closureN)self_73353)->elts[0]));; 
}

static void __lambda_252(void *data, int argc, closure _) {
  
make_string(c_731715, "autogen.out");
return_closcall2(data,  __glo_autogen,  primitive__75halt, &c_731715);; 
}

static void __lambda_251(void *data, int argc, closure _) {
  return_closcall2(data,  __glo_display,  primitive__75halt, __glo__85version_91banner_85);; 
}

static void __lambda_250(void *data, int argc, closure _) {
  
mclosure0(c_731704, (function_type)__lambda_249);c_731704.num_args = 1;

make_string(c_731706, "autogen.out");
return_closcall2(data,  __glo_autogen,  &c_731704, &c_731706);; 
}

static void __lambda_249(void *data, int argc, object self_73354, object r_73111) {
  return_closcall1(data,  __glo_newline,  primitive__75halt);; 
}

static void __lambda_248(void *data, int argc, closure _) {
  return_closcall2(data,  __glo_display,  primitive__75halt, __glo__85version_91banner_85);; 
}

static void __lambda_247(void *data, int argc, closure _) {
  
mclosure0(c_731693, (function_type)__lambda_246);c_731693.num_args = 1;

make_string(c_731695, "\n -t              Show intermediate trace output in generated C files\n -d              Only generate intermediate C files, do not compile them\n -h, --help      Display usage information\n -v              Display version information\n --autogen       Cyclone developer use only, create autogen.out file\n");
return_closcall2(data,  __glo_display,  &c_731693, &c_731695);; 
}

static void __lambda_246(void *data, int argc, object self_73355, object r_73108) {
  return_closcall1(data,  __glo_newline,  primitive__75halt);; 
}

static void __lambda_245(void *data, int argc, object self_73356, object k_73115) {
  if( !eq(boolean_f, ((closureN)self_73356)->elts[1]) ){ 
  return_closcall1(data,  k_73115,  ((closureN)self_73356)->elts[1]);
} else { 
  
make_string(c_731688, "--help");
return_closcall1(data,  k_73115,  memberp(data, &c_731688, ((closureN)self_73356)->elts[0]));}
; 
}

static void __lambda_244(void *data, int argc, closure _) {
  
mclosure0(c_731673, (function_type)__lambda_243);c_731673.num_args = 1;

make_string(c_731675, "cyclone: no input file");
return_closcall2(data,  __glo_display,  &c_731673, &c_731675);; 
}

static void __lambda_243(void *data, int argc, object self_73357, object r_73106) {
  return_closcall1(data,  __glo_newline,  primitive__75halt);; 
}

static void __lambda_242(void *data, int argc, object self_73358, object k_73117) {
  
closureN_type c_731654;
c_731654.hdr.mark = gc_color_red;
 c_731654.hdr.grayed = 0;
c_731654.tag = closureN_tag;
 c_731654.fn = (function_type)__lambda_241;
c_731654.num_args = 1;
c_731654.num_elt = 2;
c_731654.elts = (object *)alloca(sizeof(object) * 2);
c_731654.elts[0] = ((closureN)self_73358)->elts[1];
c_731654.elts[1] = k_73117;


make_string(c_731664, "-d");
return_closcall1(data,(closure)&c_731654,  memberp(data, &c_731664, ((closureN)self_73358)->elts[0]));; 
}

static void __lambda_241(void *data, int argc, object self_73359, object r_73118) {
  if( !eq(boolean_f, r_73118) ){ 
  return_closcall1(data,  ((closureN)self_73359)->elts[1],  Cyc_set_car(data, ((closureN)self_73359)->elts[0], boolean_f));
} else { 
  return_closcall1(data,  ((closureN)self_73359)->elts[1],  boolean_f);}
; 
}

static void __lambda_240(void *data, int argc, object self_73360, object k_73119) {
  
closureN_type c_731638;
c_731638.hdr.mark = gc_color_red;
 c_731638.hdr.grayed = 0;
c_731638.tag = closureN_tag;
 c_731638.fn = (function_type)__lambda_239;
c_731638.num_args = 1;
c_731638.num_elt = 1;
c_731638.elts = (object *)alloca(sizeof(object) * 1);
c_731638.elts[0] = k_73119;


make_string(c_731648, "-t");
return_closcall1(data,(closure)&c_731638,  memberp(data, &c_731648, ((closureN)self_73360)->elts[0]));; 
}

static void __lambda_239(void *data, int argc, object self_73361, object r_73120) {
  if( !eq(boolean_f, r_73120) ){ 
  
make_int(c_731643, 4);
return_closcall1(data,  ((closureN)self_73361)->elts[0],  global_set(__glo__85trace_91level_85, &c_731643));
} else { 
  return_closcall1(data,  ((closureN)self_73361)->elts[0],  boolean_f);}
; 
}

static void __lambda_238(void *data, int argc, closure _,object k_73130, object args_7353, object cc_127_7352) {
  Cyc_st_add(data, "cyclone.scm:run-compiler");

closureN_type c_731364;
c_731364.hdr.mark = gc_color_red;
 c_731364.hdr.grayed = 0;
c_731364.tag = closureN_tag;
 c_731364.fn = (function_type)__lambda_237;
c_731364.num_args = 1;
c_731364.num_elt = 2;
c_731364.elts = (object *)alloca(sizeof(object) * 2);
c_731364.elts[0] = cc_127_7352;
c_731364.elts[1] = k_73130;

return_closcall1(data,(closure)&c_731364,  car(args_7353));; 
}

static void __lambda_237(void *data, int argc, object self_73362, object r_73131) {
  
closureN_type c_731366;
c_731366.hdr.mark = gc_color_red;
 c_731366.hdr.grayed = 0;
c_731366.tag = closureN_tag;
 c_731366.fn = (function_type)__lambda_236;
c_731366.num_args = 1;
c_731366.num_elt = 2;
c_731366.elts = (object *)alloca(sizeof(object) * 2);
c_731366.elts[0] = ((closureN)self_73362)->elts[0];
c_731366.elts[1] = ((closureN)self_73362)->elts[1];

return_closcall1(data,(closure)&c_731366,  r_73131);; 
}

static void __lambda_236(void *data, int argc, object self_73363, object in_91file_7354) {
  
closureN_type c_731368;
c_731368.hdr.mark = gc_color_red;
 c_731368.hdr.grayed = 0;
c_731368.tag = closureN_tag;
 c_731368.fn = (function_type)__lambda_235;
c_731368.num_args = 1;
c_731368.num_elt = 3;
c_731368.elts = (object *)alloca(sizeof(object) * 3);
c_731368.elts[0] = ((closureN)self_73363)->elts[0];
c_731368.elts[1] = in_91file_7354;
c_731368.elts[2] = ((closureN)self_73363)->elts[1];

return_closcall2(data,  __glo_read_91file,  &c_731368, in_91file_7354);; 
}

static void __lambda_235(void *data, int argc, object self_73364, object r_73132) {
  
closureN_type c_731370;
c_731370.hdr.mark = gc_color_red;
 c_731370.hdr.grayed = 0;
c_731370.tag = closureN_tag;
 c_731370.fn = (function_type)__lambda_234;
c_731370.num_args = 1;
c_731370.num_elt = 3;
c_731370.elts = (object *)alloca(sizeof(object) * 3);
c_731370.elts[0] = ((closureN)self_73364)->elts[0];
c_731370.elts[1] = ((closureN)self_73364)->elts[1];
c_731370.elts[2] = ((closureN)self_73364)->elts[2];

return_closcall1(data,(closure)&c_731370,  r_73132);; 
}

static void __lambda_234(void *data, int argc, object self_73365, object in_91prog_7355) {
  
closureN_type c_731372;
c_731372.hdr.mark = gc_color_red;
 c_731372.hdr.grayed = 0;
c_731372.tag = closureN_tag;
 c_731372.fn = (function_type)__lambda_233;
c_731372.num_args = 1;
c_731372.num_elt = 4;
c_731372.elts = (object *)alloca(sizeof(object) * 4);
c_731372.elts[0] = ((closureN)self_73365)->elts[0];
c_731372.elts[1] = ((closureN)self_73365)->elts[1];
c_731372.elts[2] = in_91prog_7355;
c_731372.elts[3] = ((closureN)self_73365)->elts[2];

return_closcall1(data,(closure)&c_731372,  car(in_91prog_7355));; 
}

static void __lambda_233(void *data, int argc, object self_73366, object r_73170) {
  
closureN_type c_731374;
c_731374.hdr.mark = gc_color_red;
 c_731374.hdr.grayed = 0;
c_731374.tag = closureN_tag;
 c_731374.fn = (function_type)__lambda_232;
c_731374.num_args = 1;
c_731374.num_elt = 4;
c_731374.elts = (object *)alloca(sizeof(object) * 4);
c_731374.elts[0] = ((closureN)self_73366)->elts[0];
c_731374.elts[1] = ((closureN)self_73366)->elts[1];
c_731374.elts[2] = ((closureN)self_73366)->elts[2];
c_731374.elts[3] = ((closureN)self_73366)->elts[3];

return_closcall2(data,  __glo_library_127,  &c_731374, r_73170);; 
}

static void __lambda_232(void *data, int argc, object self_73367, object r_73169) {
  
closureN_type c_731376;
c_731376.hdr.mark = gc_color_red;
 c_731376.hdr.grayed = 0;
c_731376.tag = closureN_tag;
 c_731376.fn = (function_type)__lambda_231;
c_731376.num_args = 1;
c_731376.num_elt = 4;
c_731376.elts = (object *)alloca(sizeof(object) * 4);
c_731376.elts[0] = ((closureN)self_73367)->elts[0];
c_731376.elts[1] = ((closureN)self_73367)->elts[1];
c_731376.elts[2] = ((closureN)self_73367)->elts[2];
c_731376.elts[3] = ((closureN)self_73367)->elts[3];

return_closcall2(data,  __glo_not,  &c_731376, r_73169);; 
}

static void __lambda_231(void *data, int argc, object self_73368, object r_73133) {
  
closureN_type c_731378;
c_731378.hdr.mark = gc_color_red;
 c_731378.hdr.grayed = 0;
c_731378.tag = closureN_tag;
 c_731378.fn = (function_type)__lambda_230;
c_731378.num_args = 1;
c_731378.num_elt = 4;
c_731378.elts = (object *)alloca(sizeof(object) * 4);
c_731378.elts[0] = ((closureN)self_73368)->elts[0];
c_731378.elts[1] = ((closureN)self_73368)->elts[1];
c_731378.elts[2] = ((closureN)self_73368)->elts[2];
c_731378.elts[3] = ((closureN)self_73368)->elts[3];

return_closcall1(data,(closure)&c_731378,  r_73133);; 
}

static void __lambda_230(void *data, int argc, object self_73369, object program_127_7356) {
  
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_182;
c_731380.num_args = 0;
c_731380.num_elt = 2;
c_731380.elts = (object *)alloca(sizeof(object) * 2);
c_731380.elts[0] = ((closureN)self_73369)->elts[2];
c_731380.elts[1] = program_127_7356;


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_229;
c_731405.num_args = 1;
c_731405.num_elt = 5;
c_731405.elts = (object *)alloca(sizeof(object) * 5);
c_731405.elts[0] = ((closureN)self_73369)->elts[0];
c_731405.elts[1] = ((closureN)self_73369)->elts[1];
c_731405.elts[2] = ((closureN)self_73369)->elts[2];
c_731405.elts[3] = ((closureN)self_73369)->elts[3];
c_731405.elts[4] = program_127_7356;

return_closcall1(data,(closure)&c_731380,  &c_731405);; 
}

static void __lambda_229(void *data, int argc, object self_73370, object r_73134) {
  
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_228;
c_731407.num_args = 1;
c_731407.num_elt = 5;
c_731407.elts = (object *)alloca(sizeof(object) * 5);
c_731407.elts[0] = ((closureN)self_73370)->elts[0];
c_731407.elts[1] = ((closureN)self_73370)->elts[1];
c_731407.elts[2] = ((closureN)self_73370)->elts[2];
c_731407.elts[3] = ((closureN)self_73370)->elts[3];
c_731407.elts[4] = ((closureN)self_73370)->elts[4];

return_closcall1(data,(closure)&c_731407,  r_73134);; 
}

static void __lambda_228(void *data, int argc, object self_73371, object lib_91deps_7357) {
  
closureN_type c_731409;
c_731409.hdr.mark = gc_color_red;
 c_731409.hdr.grayed = 0;
c_731409.tag = closureN_tag;
 c_731409.fn = (function_type)__lambda_227;
c_731409.num_args = 1;
c_731409.num_elt = 6;
c_731409.elts = (object *)alloca(sizeof(object) * 6);
c_731409.elts[0] = ((closureN)self_73371)->elts[0];
c_731409.elts[1] = ((closureN)self_73371)->elts[1];
c_731409.elts[2] = ((closureN)self_73371)->elts[2];
c_731409.elts[3] = ((closureN)self_73371)->elts[3];
c_731409.elts[4] = lib_91deps_7357;
c_731409.elts[5] = ((closureN)self_73371)->elts[4];

return_closcall2(data,  __glo_basename,  &c_731409, ((closureN)self_73371)->elts[1]);; 
}

static void __lambda_227(void *data, int argc, object self_73372, object r_73135) {
  
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_226;
c_731411.num_args = 1;
c_731411.num_elt = 6;
c_731411.elts = (object *)alloca(sizeof(object) * 6);
c_731411.elts[0] = ((closureN)self_73372)->elts[0];
c_731411.elts[1] = ((closureN)self_73372)->elts[1];
c_731411.elts[2] = ((closureN)self_73372)->elts[2];
c_731411.elts[3] = ((closureN)self_73372)->elts[3];
c_731411.elts[4] = ((closureN)self_73372)->elts[4];
c_731411.elts[5] = ((closureN)self_73372)->elts[5];

return_closcall1(data,(closure)&c_731411,  r_73135);; 
}

static void __lambda_226(void *data, int argc, object self_73373, object exec_91file_7358) {
  
closureN_type c_731413;
c_731413.hdr.mark = gc_color_red;
 c_731413.hdr.grayed = 0;
c_731413.tag = closureN_tag;
 c_731413.fn = (function_type)__lambda_225;
c_731413.num_args = 1;
c_731413.num_elt = 7;
c_731413.elts = (object *)alloca(sizeof(object) * 7);
c_731413.elts[0] = ((closureN)self_73373)->elts[0];
c_731413.elts[1] = exec_91file_7358;
c_731413.elts[2] = ((closureN)self_73373)->elts[1];
c_731413.elts[3] = ((closureN)self_73373)->elts[2];
c_731413.elts[4] = ((closureN)self_73373)->elts[3];
c_731413.elts[5] = ((closureN)self_73373)->elts[4];
c_731413.elts[6] = ((closureN)self_73373)->elts[5];


make_string(c_731612, ".c");

object c_731611 = Cyc_string_append(data,(closure)&c_731413,2,exec_91file_7358, &c_731612);
return_closcall1(data,(closure)&c_731413,  c_731611);; 
}

static void __lambda_225(void *data, int argc, object self_73374, object r_73136) {
  
closureN_type c_731415;
c_731415.hdr.mark = gc_color_red;
 c_731415.hdr.grayed = 0;
c_731415.tag = closureN_tag;
 c_731415.fn = (function_type)__lambda_224;
c_731415.num_args = 1;
c_731415.num_elt = 7;
c_731415.elts = (object *)alloca(sizeof(object) * 7);
c_731415.elts[0] = ((closureN)self_73374)->elts[0];
c_731415.elts[1] = ((closureN)self_73374)->elts[1];
c_731415.elts[2] = ((closureN)self_73374)->elts[2];
c_731415.elts[3] = ((closureN)self_73374)->elts[3];
c_731415.elts[4] = ((closureN)self_73374)->elts[4];
c_731415.elts[5] = ((closureN)self_73374)->elts[5];
c_731415.elts[6] = ((closureN)self_73374)->elts[6];

return_closcall1(data,(closure)&c_731415,  r_73136);; 
}

static void __lambda_224(void *data, int argc, object self_73375, object src_91file_7359) {
  
closureN_type c_731417;
c_731417.hdr.mark = gc_color_red;
 c_731417.hdr.grayed = 0;
c_731417.tag = closureN_tag;
 c_731417.fn = (function_type)__lambda_223;
c_731417.num_args = 1;
c_731417.num_elt = 8;
c_731417.elts = (object *)alloca(sizeof(object) * 8);
c_731417.elts[0] = ((closureN)self_73375)->elts[0];
c_731417.elts[1] = ((closureN)self_73375)->elts[1];
c_731417.elts[2] = ((closureN)self_73375)->elts[2];
c_731417.elts[3] = ((closureN)self_73375)->elts[3];
c_731417.elts[4] = ((closureN)self_73375)->elts[4];
c_731417.elts[5] = ((closureN)self_73375)->elts[5];
c_731417.elts[6] = ((closureN)self_73375)->elts[6];
c_731417.elts[7] = src_91file_7359;


make_string(c_731608, ".meta");

object c_731606 = Cyc_string_append(data,(closure)&c_731417,2,((closureN)self_73375)->elts[1], &c_731608);
return_closcall1(data,(closure)&c_731417,  c_731606);; 
}

static void __lambda_223(void *data, int argc, object self_73376, object r_73137) {
  
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_222;
c_731419.num_args = 1;
c_731419.num_elt = 8;
c_731419.elts = (object *)alloca(sizeof(object) * 8);
c_731419.elts[0] = ((closureN)self_73376)->elts[0];
c_731419.elts[1] = ((closureN)self_73376)->elts[1];
c_731419.elts[2] = ((closureN)self_73376)->elts[2];
c_731419.elts[3] = ((closureN)self_73376)->elts[3];
c_731419.elts[4] = ((closureN)self_73376)->elts[4];
c_731419.elts[5] = ((closureN)self_73376)->elts[5];
c_731419.elts[6] = ((closureN)self_73376)->elts[6];
c_731419.elts[7] = ((closureN)self_73376)->elts[7];

return_closcall1(data,(closure)&c_731419,  r_73137);; 
}

static void __lambda_222(void *data, int argc, object self_73377, object meta_91file_7360) {
  
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_218;
c_731421.num_args = 1;
c_731421.num_elt = 8;
c_731421.elts = (object *)alloca(sizeof(object) * 8);
c_731421.elts[0] = ((closureN)self_73377)->elts[0];
c_731421.elts[1] = ((closureN)self_73377)->elts[1];
c_731421.elts[2] = ((closureN)self_73377)->elts[3];
c_731421.elts[3] = ((closureN)self_73377)->elts[4];
c_731421.elts[4] = ((closureN)self_73377)->elts[5];
c_731421.elts[5] = meta_91file_7360;
c_731421.elts[6] = ((closureN)self_73377)->elts[6];
c_731421.elts[7] = ((closureN)self_73377)->elts[7];


closureN_type c_731593;
c_731593.hdr.mark = gc_color_red;
 c_731593.hdr.grayed = 0;
c_731593.tag = closureN_tag;
 c_731593.fn = (function_type)__lambda_221;
c_731593.num_args = 1;
c_731593.num_elt = 3;
c_731593.elts = (object *)alloca(sizeof(object) * 3);
c_731593.elts[0] = ((closureN)self_73377)->elts[2];
c_731593.elts[1] = ((closureN)self_73377)->elts[5];
c_731593.elts[2] = ((closureN)self_73377)->elts[7];

return_closcall1(data,(closure)&c_731421,  &c_731593);; 
}

static void __lambda_221(void *data, int argc, object self_73378, object k_73160, object program_7361) {
  
closureN_type c_731595;
c_731595.hdr.mark = gc_color_red;
 c_731595.hdr.grayed = 0;
c_731595.tag = closureN_tag;
 c_731595.fn = (function_type)__lambda_219;
c_731595.num_args = 1;
c_731595.num_elt = 2;
c_731595.elts = (object *)alloca(sizeof(object) * 2);
c_731595.elts[0] = k_73160;
c_731595.elts[1] = ((closureN)self_73378)->elts[2];


closureN_type c_731599;
c_731599.hdr.mark = gc_color_red;
 c_731599.hdr.grayed = 0;
c_731599.tag = closureN_tag;
 c_731599.fn = (function_type)__lambda_220;
c_731599.num_args = 0;
c_731599.num_elt = 3;
c_731599.elts = (object *)alloca(sizeof(object) * 3);
c_731599.elts[0] = ((closureN)self_73378)->elts[0];
c_731599.elts[1] = ((closureN)self_73378)->elts[1];
c_731599.elts[2] = program_7361;

return_closcall1(data,(closure)&c_731595,  &c_731599);; 
}

static void __lambda_220(void *data, int argc, object self_73379, object k_73162) {
  return_closcall4(data,  __glo_c_91compile_91and_91emit,  k_73162, ((closureN)self_73379)->elts[2], ((closureN)self_73379)->elts[1], ((closureN)self_73379)->elts[0]);; 
}

static void __lambda_219(void *data, int argc, object self_73380, object r_73161) {
  return_closcall3(data,  __glo_with_91output_91to_91file,  ((closureN)self_73380)->elts[0], ((closureN)self_73380)->elts[1], r_73161);; 
}

static void __lambda_218(void *data, int argc, object self_73381, object r_73138) {
  
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_217;
c_731423.num_args = 1;
c_731423.num_elt = 8;
c_731423.elts = (object *)alloca(sizeof(object) * 8);
c_731423.elts[0] = ((closureN)self_73381)->elts[0];
c_731423.elts[1] = ((closureN)self_73381)->elts[1];
c_731423.elts[2] = ((closureN)self_73381)->elts[2];
c_731423.elts[3] = ((closureN)self_73381)->elts[3];
c_731423.elts[4] = ((closureN)self_73381)->elts[4];
c_731423.elts[5] = ((closureN)self_73381)->elts[5];
c_731423.elts[6] = ((closureN)self_73381)->elts[6];
c_731423.elts[7] = ((closureN)self_73381)->elts[7];

return_closcall1(data,(closure)&c_731423,  r_73138);; 
}

static void __lambda_217(void *data, int argc, object self_73382, object create_91c_91file_7362) {
  
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_216;
c_731425.num_args = 1;
c_731425.num_elt = 7;
c_731425.elts = (object *)alloca(sizeof(object) * 7);
c_731425.elts[0] = ((closureN)self_73382)->elts[0];
c_731425.elts[1] = ((closureN)self_73382)->elts[1];
c_731425.elts[2] = ((closureN)self_73382)->elts[3];
c_731425.elts[3] = ((closureN)self_73382)->elts[4];
c_731425.elts[4] = ((closureN)self_73382)->elts[5];
c_731425.elts[5] = ((closureN)self_73382)->elts[6];
c_731425.elts[6] = ((closureN)self_73382)->elts[7];

return_closcall2(data,  create_91c_91file_7362,  &c_731425, ((closureN)self_73382)->elts[2]);; 
}

static void __lambda_216(void *data, int argc, object self_73383, object r_73139) {
  
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_215;
c_731427.num_args = 1;
c_731427.num_elt = 7;
c_731427.elts = (object *)alloca(sizeof(object) * 7);
c_731427.elts[0] = ((closureN)self_73383)->elts[0];
c_731427.elts[1] = ((closureN)self_73383)->elts[1];
c_731427.elts[2] = ((closureN)self_73383)->elts[2];
c_731427.elts[3] = ((closureN)self_73383)->elts[3];
c_731427.elts[4] = ((closureN)self_73383)->elts[4];
c_731427.elts[5] = ((closureN)self_73383)->elts[5];
c_731427.elts[6] = ((closureN)self_73383)->elts[6];

return_closcall1(data,(closure)&c_731427,  r_73139);; 
}

static void __lambda_215(void *data, int argc, object self_73384, object result_7363) {
  
closureN_type c_731429;
c_731429.hdr.mark = gc_color_red;
 c_731429.hdr.grayed = 0;
c_731429.tag = closureN_tag;
 c_731429.fn = (function_type)__lambda_214;
c_731429.num_args = 0;
c_731429.num_elt = 7;
c_731429.elts = (object *)alloca(sizeof(object) * 7);
c_731429.elts[0] = ((closureN)self_73384)->elts[0];
c_731429.elts[1] = ((closureN)self_73384)->elts[1];
c_731429.elts[2] = ((closureN)self_73384)->elts[2];
c_731429.elts[3] = ((closureN)self_73384)->elts[3];
c_731429.elts[4] = ((closureN)self_73384)->elts[4];
c_731429.elts[5] = ((closureN)self_73384)->elts[5];
c_731429.elts[6] = ((closureN)self_73384)->elts[6];

return_closcall0(data,(closure)&c_731429);; 
}

static void __lambda_214(void *data, int argc, object self_73385) {
  if( !eq(boolean_f, ((closureN)self_73385)->elts[5]) ){ 
  
closureN_type c_731432;
c_731432.hdr.mark = gc_color_red;
 c_731432.hdr.grayed = 0;
c_731432.tag = closureN_tag;
 c_731432.fn = (function_type)__lambda_202;
c_731432.num_args = 0;
c_731432.num_elt = 5;
c_731432.elts = (object *)alloca(sizeof(object) * 5);
c_731432.elts[0] = ((closureN)self_73385)->elts[0];
c_731432.elts[1] = ((closureN)self_73385)->elts[1];
c_731432.elts[2] = ((closureN)self_73385)->elts[2];
c_731432.elts[3] = ((closureN)self_73385)->elts[3];
c_731432.elts[4] = ((closureN)self_73385)->elts[6];

return_closcall0(data,(closure)&c_731432);
} else { 
  
closureN_type c_731550;
c_731550.hdr.mark = gc_color_red;
 c_731550.hdr.grayed = 0;
c_731550.tag = closureN_tag;
 c_731550.fn = (function_type)__lambda_213;
c_731550.num_args = 0;
c_731550.num_elt = 5;
c_731550.elts = (object *)alloca(sizeof(object) * 5);
c_731550.elts[0] = ((closureN)self_73385)->elts[0];
c_731550.elts[1] = ((closureN)self_73385)->elts[1];
c_731550.elts[2] = ((closureN)self_73385)->elts[2];
c_731550.elts[3] = ((closureN)self_73385)->elts[4];
c_731550.elts[4] = ((closureN)self_73385)->elts[6];

return_closcall0(data,(closure)&c_731550);}
; 
}

static void __lambda_213(void *data, int argc, object self_73386) {
  
closureN_type c_731552;
c_731552.hdr.mark = gc_color_red;
 c_731552.hdr.grayed = 0;
c_731552.tag = closureN_tag;
 c_731552.fn = (function_type)__lambda_208;
c_731552.num_args = 1;
c_731552.num_elt = 5;
c_731552.elts = (object *)alloca(sizeof(object) * 5);
c_731552.elts[0] = ((closureN)self_73386)->elts[0];
c_731552.elts[1] = ((closureN)self_73386)->elts[1];
c_731552.elts[2] = ((closureN)self_73386)->elts[2];
c_731552.elts[3] = ((closureN)self_73386)->elts[3];
c_731552.elts[4] = ((closureN)self_73386)->elts[4];


mclosure0(c_731582, (function_type)__lambda_212);c_731582.num_args = 0;
return_closcall1(data,(closure)&c_731552,  &c_731582);; 
}

static void __lambda_212(void *data, int argc, object self_73387, object k_73156) {
  
closureN_type c_731584;
c_731584.hdr.mark = gc_color_red;
 c_731584.hdr.grayed = 0;
c_731584.tag = closureN_tag;
 c_731584.fn = (function_type)__lambda_211;
c_731584.num_args = 1;
c_731584.num_elt = 1;
c_731584.elts = (object *)alloca(sizeof(object) * 1);
c_731584.elts[0] = k_73156;


make_string(c_731591, ";; This file was automatically generated by the Cyclone Scheme compiler");
return_closcall2(data,  __glo_display,  &c_731584, &c_731591);; 
}

static void __lambda_211(void *data, int argc, object self_73388, object r_73157) {
  
closureN_type c_731586;
c_731586.hdr.mark = gc_color_red;
 c_731586.hdr.grayed = 0;
c_731586.tag = closureN_tag;
 c_731586.fn = (function_type)__lambda_210;
c_731586.num_args = 1;
c_731586.num_elt = 1;
c_731586.elts = (object *)alloca(sizeof(object) * 1);
c_731586.elts[0] = ((closureN)self_73388)->elts[0];

return_closcall1(data,  __glo_newline,  &c_731586);; 
}

static void __lambda_210(void *data, int argc, object self_73389, object r_73158) {
  
closureN_type c_731588;
c_731588.hdr.mark = gc_color_red;
 c_731588.hdr.grayed = 0;
c_731588.tag = closureN_tag;
 c_731588.fn = (function_type)__lambda_209;
c_731588.num_args = 1;
c_731588.num_elt = 1;
c_731588.elts = (object *)alloca(sizeof(object) * 1);
c_731588.elts[0] = ((closureN)self_73389)->elts[0];

return_closcall1(data,  __glo_macro_117get_91defined_91macros,  &c_731588);; 
}

static void __lambda_209(void *data, int argc, object self_73390, object r_73159) {
  return_closcall2(data,  __glo_write,  ((closureN)self_73390)->elts[0], r_73159);; 
}

static void __lambda_208(void *data, int argc, object self_73391, object r_73155) {
  
closureN_type c_731554;
c_731554.hdr.mark = gc_color_red;
 c_731554.hdr.grayed = 0;
c_731554.tag = closureN_tag;
 c_731554.fn = (function_type)__lambda_207;
c_731554.num_args = 1;
c_731554.num_elt = 4;
c_731554.elts = (object *)alloca(sizeof(object) * 4);
c_731554.elts[0] = ((closureN)self_73391)->elts[0];
c_731554.elts[1] = ((closureN)self_73391)->elts[1];
c_731554.elts[2] = ((closureN)self_73391)->elts[2];
c_731554.elts[3] = ((closureN)self_73391)->elts[4];

return_closcall3(data,  __glo_with_91output_91to_91file,  &c_731554, ((closureN)self_73391)->elts[3], r_73155);; 
}

static void __lambda_207(void *data, int argc, object self_73392, object r_73153) {
  
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_206;
c_731556.num_args = 1;
c_731556.num_elt = 2;
c_731556.elts = (object *)alloca(sizeof(object) * 2);
c_731556.elts[0] = ((closureN)self_73392)->elts[0];
c_731556.elts[1] = ((closureN)self_73392)->elts[2];


make_string(c_731576, "gcc ");

make_string(c_731578, " -g -c -o ");

make_string(c_731580, ".o");

object c_731575 = Cyc_string_append(data,(closure)&c_731556,5,&c_731576, ((closureN)self_73392)->elts[3], &c_731578, ((closureN)self_73392)->elts[1], &c_731580);
return_closcall1(data,(closure)&c_731556,  c_731575);; 
}

static void __lambda_206(void *data, int argc, object self_73393, object r_73154) {
  
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_205;
c_731558.num_args = 1;
c_731558.num_elt = 2;
c_731558.elts = (object *)alloca(sizeof(object) * 2);
c_731558.elts[0] = ((closureN)self_73393)->elts[0];
c_731558.elts[1] = ((closureN)self_73393)->elts[1];

return_closcall1(data,(closure)&c_731558,  r_73154);; 
}

static void __lambda_205(void *data, int argc, object self_73394, object comp_91lib_91cmd_7364) {
  if( !eq(boolean_f, ((closureN)self_73394)->elts[0]) ){ 
  
closureN_type c_731561;
c_731561.hdr.mark = gc_color_red;
 c_731561.hdr.grayed = 0;
c_731561.tag = closureN_tag;
 c_731561.fn = (function_type)__lambda_203;
c_731561.num_args = 0;
c_731561.num_elt = 2;
c_731561.elts = (object *)alloca(sizeof(object) * 2);
c_731561.elts[0] = comp_91lib_91cmd_7364;
c_731561.elts[1] = ((closureN)self_73394)->elts[1];

return_closcall0(data,(closure)&c_731561);
} else { 
  
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_204;
c_731569.num_args = 0;
c_731569.num_elt = 2;
c_731569.elts = (object *)alloca(sizeof(object) * 2);
c_731569.elts[0] = comp_91lib_91cmd_7364;
c_731569.elts[1] = ((closureN)self_73394)->elts[1];

return_closcall0(data,(closure)&c_731569);}
; 
}

static void __lambda_204(void *data, int argc, object self_73395) {
  return_closcall2(data,  __glo_write,  ((closureN)self_73395)->elts[1], ((closureN)self_73395)->elts[0]);; 
}

static void __lambda_203(void *data, int argc, object self_73396) {
  
integer_type c_731566 = Cyc_system(((closureN)self_73396)->elts[0]);
return_closcall1(data,  ((closureN)self_73396)->elts[1],  &c_731566);; 
}

static void __lambda_202(void *data, int argc, object self_73397) {
  
closureN_type c_731434;
c_731434.hdr.mark = gc_color_red;
 c_731434.hdr.grayed = 0;
c_731434.tag = closureN_tag;
 c_731434.fn = (function_type)__lambda_201;
c_731434.num_args = 3;
c_731434.num_elt = 5;
c_731434.elts = (object *)alloca(sizeof(object) * 5);
c_731434.elts[0] = ((closureN)self_73397)->elts[0];
c_731434.elts[1] = ((closureN)self_73397)->elts[1];
c_731434.elts[2] = ((closureN)self_73397)->elts[2];
c_731434.elts[3] = ((closureN)self_73397)->elts[3];
c_731434.elts[4] = ((closureN)self_73397)->elts[4];

return_closcall3(data,(closure)&c_731434,  boolean_f, boolean_f, boolean_f);; 
}

static void __lambda_201(void *data, int argc, object self_73398, object objs_91str_7367, object comp_91prog_91cmd_7366, object comp_91objs_91cmd_7365) {
  
closureN_type c_731436;
c_731436.hdr.mark = gc_color_red;
 c_731436.hdr.grayed = 0;
c_731436.tag = closureN_tag;
 c_731436.fn = (function_type)__lambda_200;
c_731436.num_args = 1;
c_731436.num_elt = 7;
c_731436.elts = (object *)alloca(sizeof(object) * 7);
c_731436.elts[0] = ((closureN)self_73398)->elts[0];
c_731436.elts[1] = comp_91objs_91cmd_7365;
c_731436.elts[2] = comp_91prog_91cmd_7366;
c_731436.elts[3] = ((closureN)self_73398)->elts[1];
c_731436.elts[4] = ((closureN)self_73398)->elts[2];
c_731436.elts[5] = ((closureN)self_73398)->elts[3];
c_731436.elts[6] = ((closureN)self_73398)->elts[4];


make_cell(c_731548,objs_91str_7367);
return_closcall1(data,(closure)&c_731436,  &c_731548);; 
}

static void __lambda_200(void *data, int argc, object self_73399, object objs_91str_7367) {
  
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_199;
c_731438.num_args = 1;
c_731438.num_elt = 7;
c_731438.elts = (object *)alloca(sizeof(object) * 7);
c_731438.elts[0] = ((closureN)self_73399)->elts[0];
c_731438.elts[1] = ((closureN)self_73399)->elts[1];
c_731438.elts[2] = ((closureN)self_73399)->elts[3];
c_731438.elts[3] = ((closureN)self_73399)->elts[4];
c_731438.elts[4] = ((closureN)self_73399)->elts[5];
c_731438.elts[5] = objs_91str_7367;
c_731438.elts[6] = ((closureN)self_73399)->elts[6];


make_cell(c_731544,((closureN)self_73399)->elts[2]);
return_closcall1(data,(closure)&c_731438,  &c_731544);; 
}

static void __lambda_199(void *data, int argc, object self_73400, object comp_91prog_91cmd_7366) {
  
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_198;
c_731440.num_args = 1;
c_731440.num_elt = 7;
c_731440.elts = (object *)alloca(sizeof(object) * 7);
c_731440.elts[0] = ((closureN)self_73400)->elts[0];
c_731440.elts[1] = comp_91prog_91cmd_7366;
c_731440.elts[2] = ((closureN)self_73400)->elts[2];
c_731440.elts[3] = ((closureN)self_73400)->elts[3];
c_731440.elts[4] = ((closureN)self_73400)->elts[4];
c_731440.elts[5] = ((closureN)self_73400)->elts[5];
c_731440.elts[6] = ((closureN)self_73400)->elts[6];


make_cell(c_731540,((closureN)self_73400)->elts[1]);
return_closcall1(data,(closure)&c_731440,  &c_731540);; 
}

static void __lambda_198(void *data, int argc, object self_73401, object comp_91objs_91cmd_7365) {
  
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_195;
c_731442.num_args = 1;
c_731442.num_elt = 8;
c_731442.elts = (object *)alloca(sizeof(object) * 8);
c_731442.elts[0] = ((closureN)self_73401)->elts[0];
c_731442.elts[1] = comp_91objs_91cmd_7365;
c_731442.elts[2] = ((closureN)self_73401)->elts[1];
c_731442.elts[3] = ((closureN)self_73401)->elts[2];
c_731442.elts[4] = ((closureN)self_73401)->elts[3];
c_731442.elts[5] = ((closureN)self_73401)->elts[4];
c_731442.elts[6] = ((closureN)self_73401)->elts[5];
c_731442.elts[7] = ((closureN)self_73401)->elts[6];


mclosure0(c_731527, (function_type)__lambda_197);c_731527.num_args = 1;
return_closcall1(data,(closure)&c_731442,  &c_731527);; 
}

static void __lambda_197(void *data, int argc, object self_73402, object k_73151, object i_7368) {
  
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_196;
c_731529.num_args = 1;
c_731529.num_elt = 1;
c_731529.elts = (object *)alloca(sizeof(object) * 1);
c_731529.elts[0] = k_73151;


make_string(c_731537, ".o");
return_closcall3(data,  __glo_lib_117import_91_125filename,  &c_731529, i_7368, &c_731537);; 
}

static void __lambda_196(void *data, int argc, object self_73403, object r_73152) {
  
make_string(c_731535, " ");

make_string(c_731536, " ");

object c_731534 = Cyc_string_append(data,  ((closureN)self_73403)->elts[0],3,&c_731535, r_73152, &c_731536);
return_closcall1(data,  ((closureN)self_73403)->elts[0],  c_731534);; 
}

static void __lambda_195(void *data, int argc, object self_73404, object r_73150) {
  
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_194;
c_731444.num_args = 1;
c_731444.num_elt = 7;
c_731444.elts = (object *)alloca(sizeof(object) * 7);
c_731444.elts[0] = ((closureN)self_73404)->elts[0];
c_731444.elts[1] = ((closureN)self_73404)->elts[1];
c_731444.elts[2] = ((closureN)self_73404)->elts[2];
c_731444.elts[3] = ((closureN)self_73404)->elts[3];
c_731444.elts[4] = ((closureN)self_73404)->elts[4];
c_731444.elts[5] = ((closureN)self_73404)->elts[6];
c_731444.elts[6] = ((closureN)self_73404)->elts[7];

return_closcall3(data,  __glo_map,  &c_731444, r_73150, ((closureN)self_73404)->elts[5]);; 
}

static void __lambda_194(void *data, int argc, object self_73405, object r_73149) {
  
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_193;
c_731446.num_args = 1;
c_731446.num_elt = 7;
c_731446.elts = (object *)alloca(sizeof(object) * 7);
c_731446.elts[0] = ((closureN)self_73405)->elts[0];
c_731446.elts[1] = ((closureN)self_73405)->elts[1];
c_731446.elts[2] = ((closureN)self_73405)->elts[2];
c_731446.elts[3] = ((closureN)self_73405)->elts[3];
c_731446.elts[4] = ((closureN)self_73405)->elts[4];
c_731446.elts[5] = ((closureN)self_73405)->elts[5];
c_731446.elts[6] = ((closureN)self_73405)->elts[6];


object c_731525 = apply(data,(closure)&c_731446,primitive_string_91append, r_73149);
return_closcall1(data,(closure)&c_731446,  c_731525);; 
}

static void __lambda_193(void *data, int argc, object self_73406, object r_73148) {
  
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_192;
c_731448.num_args = 1;
c_731448.num_elt = 7;
c_731448.elts = (object *)alloca(sizeof(object) * 7);
c_731448.elts[0] = ((closureN)self_73406)->elts[0];
c_731448.elts[1] = ((closureN)self_73406)->elts[1];
c_731448.elts[2] = ((closureN)self_73406)->elts[2];
c_731448.elts[3] = ((closureN)self_73406)->elts[3];
c_731448.elts[4] = ((closureN)self_73406)->elts[4];
c_731448.elts[5] = ((closureN)self_73406)->elts[5];
c_731448.elts[6] = ((closureN)self_73406)->elts[6];

return_closcall1(data,(closure)&c_731448,  Cyc_set_car(data, ((closureN)self_73406)->elts[5], r_73148));; 
}

static void __lambda_192(void *data, int argc, object self_73407, object r_73140) {
  
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_191;
c_731450.num_args = 1;
c_731450.num_elt = 6;
c_731450.elts = (object *)alloca(sizeof(object) * 6);
c_731450.elts[0] = ((closureN)self_73407)->elts[0];
c_731450.elts[1] = ((closureN)self_73407)->elts[1];
c_731450.elts[2] = ((closureN)self_73407)->elts[2];
c_731450.elts[3] = ((closureN)self_73407)->elts[3];
c_731450.elts[4] = ((closureN)self_73407)->elts[4];
c_731450.elts[5] = ((closureN)self_73407)->elts[5];


make_string(c_731515, "gcc ");

make_string(c_731517, " -g -c -o ");

make_string(c_731519, ".o");

object c_731514 = Cyc_string_append(data,(closure)&c_731450,5,&c_731515, ((closureN)self_73407)->elts[6], &c_731517, ((closureN)self_73407)->elts[3], &c_731519);
return_closcall1(data,(closure)&c_731450,  c_731514);; 
}

static void __lambda_191(void *data, int argc, object self_73408, object r_73147) {
  
closureN_type c_731452;
c_731452.hdr.mark = gc_color_red;
 c_731452.hdr.grayed = 0;
c_731452.tag = closureN_tag;
 c_731452.fn = (function_type)__lambda_190;
c_731452.num_args = 1;
c_731452.num_elt = 6;
c_731452.elts = (object *)alloca(sizeof(object) * 6);
c_731452.elts[0] = ((closureN)self_73408)->elts[0];
c_731452.elts[1] = ((closureN)self_73408)->elts[1];
c_731452.elts[2] = ((closureN)self_73408)->elts[2];
c_731452.elts[3] = ((closureN)self_73408)->elts[3];
c_731452.elts[4] = ((closureN)self_73408)->elts[4];
c_731452.elts[5] = ((closureN)self_73408)->elts[5];

return_closcall1(data,(closure)&c_731452,  Cyc_set_car(data, ((closureN)self_73408)->elts[2], r_73147));; 
}

static void __lambda_190(void *data, int argc, object self_73409, object r_73141) {
  
closureN_type c_731454;
c_731454.hdr.mark = gc_color_red;
 c_731454.hdr.grayed = 0;
c_731454.tag = closureN_tag;
 c_731454.fn = (function_type)__lambda_189;
c_731454.num_args = 1;
c_731454.num_elt = 4;
c_731454.elts = (object *)alloca(sizeof(object) * 4);
c_731454.elts[0] = ((closureN)self_73409)->elts[0];
c_731454.elts[1] = ((closureN)self_73409)->elts[1];
c_731454.elts[2] = ((closureN)self_73409)->elts[2];
c_731454.elts[3] = ((closureN)self_73409)->elts[4];


make_string(c_731501, "gcc ");

make_string(c_731503, ".o ");

make_string(c_731507, " -pthread -lcyclone -lck -lm -g -o ");

object c_731500 = Cyc_string_append(data,(closure)&c_731454,6,&c_731501, ((closureN)self_73409)->elts[3], &c_731503, cell_get(((closureN)self_73409)->elts[5]), &c_731507, ((closureN)self_73409)->elts[3]);
return_closcall1(data,(closure)&c_731454,  c_731500);; 
}

static void __lambda_189(void *data, int argc, object self_73410, object r_73146) {
  
closureN_type c_731456;
c_731456.hdr.mark = gc_color_red;
 c_731456.hdr.grayed = 0;
c_731456.tag = closureN_tag;
 c_731456.fn = (function_type)__lambda_188;
c_731456.num_args = 1;
c_731456.num_elt = 4;
c_731456.elts = (object *)alloca(sizeof(object) * 4);
c_731456.elts[0] = ((closureN)self_73410)->elts[0];
c_731456.elts[1] = ((closureN)self_73410)->elts[1];
c_731456.elts[2] = ((closureN)self_73410)->elts[2];
c_731456.elts[3] = ((closureN)self_73410)->elts[3];

return_closcall1(data,(closure)&c_731456,  Cyc_set_car(data, ((closureN)self_73410)->elts[1], r_73146));; 
}

static void __lambda_188(void *data, int argc, object self_73411, object r_73142) {
  if( !eq(boolean_f, ((closureN)self_73411)->elts[0]) ){ 
  
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_185;
c_731459.num_args = 0;
c_731459.num_elt = 3;
c_731459.elts = (object *)alloca(sizeof(object) * 3);
c_731459.elts[0] = ((closureN)self_73411)->elts[1];
c_731459.elts[1] = ((closureN)self_73411)->elts[2];
c_731459.elts[2] = ((closureN)self_73411)->elts[3];

return_closcall0(data,(closure)&c_731459);
} else { 
  
closureN_type c_731484;
c_731484.hdr.mark = gc_color_red;
 c_731484.hdr.grayed = 0;
c_731484.tag = closureN_tag;
 c_731484.fn = (function_type)__lambda_187;
c_731484.num_args = 0;
c_731484.num_elt = 3;
c_731484.elts = (object *)alloca(sizeof(object) * 3);
c_731484.elts[0] = ((closureN)self_73411)->elts[1];
c_731484.elts[1] = ((closureN)self_73411)->elts[2];
c_731484.elts[2] = ((closureN)self_73411)->elts[3];

return_closcall0(data,(closure)&c_731484);}
; 
}

static void __lambda_187(void *data, int argc, object self_73412) {
  
closureN_type c_731486;
c_731486.hdr.mark = gc_color_red;
 c_731486.hdr.grayed = 0;
c_731486.tag = closureN_tag;
 c_731486.fn = (function_type)__lambda_186;
c_731486.num_args = 1;
c_731486.num_elt = 2;
c_731486.elts = (object *)alloca(sizeof(object) * 2);
c_731486.elts[0] = ((closureN)self_73412)->elts[0];
c_731486.elts[1] = ((closureN)self_73412)->elts[2];

return_closcall2(data,  __glo_write,  &c_731486, cell_get(((closureN)self_73412)->elts[1]));; 
}

static void __lambda_186(void *data, int argc, object self_73413, object r_73145) {
  return_closcall2(data,  __glo_write,  ((closureN)self_73413)->elts[1], cell_get(((closureN)self_73413)->elts[0]));; 
}

static void __lambda_185(void *data, int argc, object self_73414) {
  
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_184;
c_731461.num_args = 1;
c_731461.num_elt = 2;
c_731461.elts = (object *)alloca(sizeof(object) * 2);
c_731461.elts[0] = ((closureN)self_73414)->elts[0];
c_731461.elts[1] = ((closureN)self_73414)->elts[2];


integer_type c_731479 = Cyc_system(cell_get(((closureN)self_73414)->elts[1]));
return_closcall1(data,(closure)&c_731461,  &c_731479);; 
}

static void __lambda_184(void *data, int argc, object self_73415, object r_73144) {
  
closureN_type c_731463;
c_731463.hdr.mark = gc_color_red;
 c_731463.hdr.grayed = 0;
c_731463.tag = closureN_tag;
 c_731463.fn = (function_type)__lambda_183;
c_731463.num_args = 1;
c_731463.num_elt = 2;
c_731463.elts = (object *)alloca(sizeof(object) * 2);
c_731463.elts[0] = ((closureN)self_73415)->elts[0];
c_731463.elts[1] = ((closureN)self_73415)->elts[1];


make_int(c_731476, 0);
return_closcall1(data,(closure)&c_731463,  equalp(&c_731476, r_73144));; 
}

static void __lambda_183(void *data, int argc, object self_73416, object r_73143) {
  if( !eq(boolean_f, r_73143) ){ 
  
integer_type c_731468 = Cyc_system(cell_get(((closureN)self_73416)->elts[0]));
return_closcall1(data,  ((closureN)self_73416)->elts[1],  &c_731468);
} else { 
  return_closcall1(data,  ((closureN)self_73416)->elts[1],  boolean_f);}
; 
}

static void __lambda_182(void *data, int argc, object self_73417, object k_73163) {
  
closureN_type c_731382;
c_731382.hdr.mark = gc_color_red;
 c_731382.hdr.grayed = 0;
c_731382.tag = closureN_tag;
 c_731382.fn = (function_type)__lambda_179;
c_731382.num_args = 0;
c_731382.num_elt = 2;
c_731382.elts = (object *)alloca(sizeof(object) * 2);
c_731382.elts[0] = ((closureN)self_73417)->elts[0];
c_731382.elts[1] = ((closureN)self_73417)->elts[1];


closureN_type c_731395;
c_731395.hdr.mark = gc_color_red;
 c_731395.hdr.grayed = 0;
c_731395.tag = closureN_tag;
 c_731395.fn = (function_type)__lambda_181;
c_731395.num_args = 1;
c_731395.num_elt = 2;
c_731395.elts = (object *)alloca(sizeof(object) * 2);
c_731395.elts[0] = ((closureN)self_73417)->elts[0];
c_731395.elts[1] = k_73163;

return_closcall1(data,(closure)&c_731382,  &c_731395);; 
}

static void __lambda_181(void *data, int argc, object self_73418, object r_73164) {
  if( !eq(boolean_f, r_73164) ){ 
  
closureN_type c_731397;
c_731397.hdr.mark = gc_color_red;
 c_731397.hdr.grayed = 0;
c_731397.tag = closureN_tag;
 c_731397.fn = (function_type)__lambda_180;
c_731397.num_args = 1;
c_731397.num_elt = 1;
c_731397.elts = (object *)alloca(sizeof(object) * 1);
c_731397.elts[0] = ((closureN)self_73418)->elts[1];

return_closcall1(data,(closure)&c_731397,  cdar(((closureN)self_73418)->elts[0]));
} else { 
  return_closcall1(data,  ((closureN)self_73418)->elts[1],  nil);}
; 
}

static void __lambda_180(void *data, int argc, object self_73419, object r_73165) {
  return_closcall2(data,  __glo_lib_117get_91all_91import_91deps,  ((closureN)self_73419)->elts[0], r_73165);; 
}

static void __lambda_179(void *data, int argc, object self_73420, object k_73166) {
  if( !eq(boolean_f, ((closureN)self_73420)->elts[1]) ){ 
  
closureN_type c_731385;
c_731385.hdr.mark = gc_color_red;
 c_731385.hdr.grayed = 0;
c_731385.tag = closureN_tag;
 c_731385.fn = (function_type)__lambda_178;
c_731385.num_args = 1;
c_731385.num_elt = 2;
c_731385.elts = (object *)alloca(sizeof(object) * 2);
c_731385.elts[0] = ((closureN)self_73420)->elts[0];
c_731385.elts[1] = k_73166;

return_closcall1(data,(closure)&c_731385,  quote_import);
} else { 
  return_closcall1(data,  k_73166,  boolean_f);}
; 
}

static void __lambda_178(void *data, int argc, object self_73421, object r_73167) {
  
closureN_type c_731387;
c_731387.hdr.mark = gc_color_red;
 c_731387.hdr.grayed = 0;
c_731387.tag = closureN_tag;
 c_731387.fn = (function_type)__lambda_177;
c_731387.num_args = 1;
c_731387.num_elt = 2;
c_731387.elts = (object *)alloca(sizeof(object) * 2);
c_731387.elts[0] = ((closureN)self_73421)->elts[1];
c_731387.elts[1] = r_73167;

return_closcall1(data,(closure)&c_731387,  car(((closureN)self_73421)->elts[0]));; 
}

static void __lambda_177(void *data, int argc, object self_73422, object r_73168) {
  return_closcall3(data,  __glo_tagged_91list_127,  ((closureN)self_73422)->elts[0], ((closureN)self_73422)->elts[1], r_73168);; 
}

static void __lambda_176(void *data, int argc, closure _,object k_73173, object filename_7369) {
  Cyc_st_add(data, "cyclone.scm:read-file");

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_174;
c_731356.num_args = 1;
c_731356.num_elt = 2;
c_731356.elts = (object *)alloca(sizeof(object) * 2);
c_731356.elts[0] = filename_7369;
c_731356.elts[1] = k_73173;


mclosure0(c_731360, (function_type)__lambda_175);c_731360.num_args = 1;
return_closcall1(data,(closure)&c_731356,  &c_731360);; 
}

static void __lambda_175(void *data, int argc, object self_73423, object k_73175, object port_7370) {
  return_closcall2(data,  __glo_read_91all,  k_73175, port_7370);; 
}

static void __lambda_174(void *data, int argc, object self_73424, object r_73174) {
  return_closcall3(data,  __glo_call_91with_91input_91file,  ((closureN)self_73424)->elts[1], ((closureN)self_73424)->elts[0], r_73174);; 
}

static void __lambda_173(void *data, int argc, closure _,object k_73178, object input_91program_7373, object lib_91deps_7372, object src_91file_7371) {
  Cyc_st_add(data, "cyclone.scm:c-compile-and-emit");

closureN_type c_73599;
c_73599.hdr.mark = gc_color_red;
 c_73599.hdr.grayed = 0;
c_73599.tag = closureN_tag;
 c_73599.fn = (function_type)__lambda_172;
c_73599.num_args = 1;
c_73599.num_elt = 3;
c_73599.elts = (object *)alloca(sizeof(object) * 3);
c_73599.elts[0] = k_73178;
c_73599.elts[1] = lib_91deps_7372;
c_73599.elts[2] = src_91file_7371;


make_cell(c_731353,input_91program_7373);
return_closcall1(data,(closure)&c_73599,  &c_731353);; 
}

static void __lambda_172(void *data, int argc, object self_73425, object input_91program_7373) {
  
closureN_type c_73601;
c_73601.hdr.mark = gc_color_red;
 c_73601.hdr.grayed = 0;
c_73601.tag = closureN_tag;
 c_73601.fn = (function_type)__lambda_171;
c_73601.num_args = 7;
c_73601.num_elt = 4;
c_73601.elts = (object *)alloca(sizeof(object) * 4);
c_73601.elts[0] = input_91program_7373;
c_73601.elts[1] = ((closureN)self_73425)->elts[0];
c_73601.elts[2] = ((closureN)self_73425)->elts[1];
c_73601.elts[3] = ((closureN)self_73425)->elts[2];

return_closcall7(data,(closure)&c_73601,  boolean_f, boolean_f, boolean_f, boolean_f, boolean_f, boolean_f, boolean_f);; 
}

static void __lambda_171(void *data, int argc, object self_73426, object globals_7380, object imported_91vars_7379, object imports_7378, object lib_91exports_7377, object lib_91name_7376, object module_91globals_7375, object program_127_7374) {
  
closureN_type c_73603;
c_73603.hdr.mark = gc_color_red;
 c_73603.hdr.grayed = 0;
c_73603.tag = closureN_tag;
 c_73603.fn = (function_type)__lambda_0;
c_73603.num_args = 1;
c_73603.num_elt = 1;
c_73603.elts = (object *)alloca(sizeof(object) * 1);
c_73603.elts[0] = ((closureN)self_73426)->elts[1];


closureN_type c_73606;
c_73606.hdr.mark = gc_color_red;
 c_73606.hdr.grayed = 0;
c_73606.tag = closureN_tag;
 c_73606.fn = (function_type)__lambda_170;
c_73606.num_args = 1;
c_73606.num_elt = 3;
c_73606.elts = (object *)alloca(sizeof(object) * 3);
c_73606.elts[0] = ((closureN)self_73426)->elts[0];
c_73606.elts[1] = ((closureN)self_73426)->elts[2];
c_73606.elts[2] = ((closureN)self_73426)->elts[3];

return_closcall1(data,(closure)&c_73603,  &c_73606);; 
}

static void __lambda_170(void *data, int argc, object self_73427, object k_73180, object return_7381) {
  
closureN_type c_73608;
c_73608.hdr.mark = gc_color_red;
 c_73608.hdr.grayed = 0;
c_73608.tag = closureN_tag;
 c_73608.fn = (function_type)__lambda_169;
c_73608.num_args = 7;
c_73608.num_elt = 5;
c_73608.elts = (object *)alloca(sizeof(object) * 5);
c_73608.elts[0] = ((closureN)self_73427)->elts[0];
c_73608.elts[1] = k_73180;
c_73608.elts[2] = ((closureN)self_73427)->elts[1];
c_73608.elts[3] = return_7381;
c_73608.elts[4] = ((closureN)self_73427)->elts[2];

return_closcall7(data,(closure)&c_73608,  boolean_f, boolean_f, boolean_f, boolean_f, boolean_f, boolean_f, boolean_f);; 
}

static void __lambda_169(void *data, int argc, object self_73428, object globals_7388, object module_91globals_7387, object program_127_7386, object imports_7385, object imported_91vars_7384, object lib_91name_7383, object lib_91exports_7382) {
  
closureN_type c_73610;
c_73610.hdr.mark = gc_color_red;
 c_73610.hdr.grayed = 0;
c_73610.tag = closureN_tag;
 c_73610.fn = (function_type)__lambda_168;
c_73610.num_args = 1;
c_73610.num_elt = 11;
c_73610.elts = (object *)alloca(sizeof(object) * 11);
c_73610.elts[0] = imported_91vars_7384;
c_73610.elts[1] = imports_7385;
c_73610.elts[2] = ((closureN)self_73428)->elts[0];
c_73610.elts[3] = ((closureN)self_73428)->elts[1];
c_73610.elts[4] = ((closureN)self_73428)->elts[2];
c_73610.elts[5] = lib_91exports_7382;
c_73610.elts[6] = lib_91name_7383;
c_73610.elts[7] = module_91globals_7387;
c_73610.elts[8] = program_127_7386;
c_73610.elts[9] = ((closureN)self_73428)->elts[3];
c_73610.elts[10] = ((closureN)self_73428)->elts[4];


make_cell(c_731350,globals_7388);
return_closcall1(data,(closure)&c_73610,  &c_731350);; 
}

static void __lambda_168(void *data, int argc, object self_73429, object globals_7388) {
  
closureN_type c_73612;
c_73612.hdr.mark = gc_color_red;
 c_73612.hdr.grayed = 0;
c_73612.tag = closureN_tag;
 c_73612.fn = (function_type)__lambda_167;
c_73612.num_args = 1;
c_73612.num_elt = 11;
c_73612.elts = (object *)alloca(sizeof(object) * 11);
c_73612.elts[0] = globals_7388;
c_73612.elts[1] = ((closureN)self_73429)->elts[0];
c_73612.elts[2] = ((closureN)self_73429)->elts[1];
c_73612.elts[3] = ((closureN)self_73429)->elts[2];
c_73612.elts[4] = ((closureN)self_73429)->elts[3];
c_73612.elts[5] = ((closureN)self_73429)->elts[4];
c_73612.elts[6] = ((closureN)self_73429)->elts[5];
c_73612.elts[7] = ((closureN)self_73429)->elts[6];
c_73612.elts[8] = ((closureN)self_73429)->elts[8];
c_73612.elts[9] = ((closureN)self_73429)->elts[9];
c_73612.elts[10] = ((closureN)self_73429)->elts[10];


make_cell(c_731346,((closureN)self_73429)->elts[7]);
return_closcall1(data,(closure)&c_73612,  &c_731346);; 
}

static void __lambda_167(void *data, int argc, object self_73430, object module_91globals_7387) {
  
closureN_type c_73614;
c_73614.hdr.mark = gc_color_red;
 c_73614.hdr.grayed = 0;
c_73614.tag = closureN_tag;
 c_73614.fn = (function_type)__lambda_166;
c_73614.num_args = 1;
c_73614.num_elt = 11;
c_73614.elts = (object *)alloca(sizeof(object) * 11);
c_73614.elts[0] = ((closureN)self_73430)->elts[0];
c_73614.elts[1] = ((closureN)self_73430)->elts[1];
c_73614.elts[2] = ((closureN)self_73430)->elts[2];
c_73614.elts[3] = ((closureN)self_73430)->elts[3];
c_73614.elts[4] = ((closureN)self_73430)->elts[4];
c_73614.elts[5] = ((closureN)self_73430)->elts[5];
c_73614.elts[6] = ((closureN)self_73430)->elts[6];
c_73614.elts[7] = ((closureN)self_73430)->elts[7];
c_73614.elts[8] = module_91globals_7387;
c_73614.elts[9] = ((closureN)self_73430)->elts[9];
c_73614.elts[10] = ((closureN)self_73430)->elts[10];


make_cell(c_731342,((closureN)self_73430)->elts[8]);
return_closcall1(data,(closure)&c_73614,  &c_731342);; 
}

static void __lambda_166(void *data, int argc, object self_73431, object program_127_7386) {
  
closureN_type c_73616;
c_73616.hdr.mark = gc_color_red;
 c_73616.hdr.grayed = 0;
c_73616.tag = closureN_tag;
 c_73616.fn = (function_type)__lambda_165;
c_73616.num_args = 1;
c_73616.num_elt = 11;
c_73616.elts = (object *)alloca(sizeof(object) * 11);
c_73616.elts[0] = ((closureN)self_73431)->elts[0];
c_73616.elts[1] = ((closureN)self_73431)->elts[1];
c_73616.elts[2] = ((closureN)self_73431)->elts[3];
c_73616.elts[3] = ((closureN)self_73431)->elts[4];
c_73616.elts[4] = ((closureN)self_73431)->elts[5];
c_73616.elts[5] = ((closureN)self_73431)->elts[6];
c_73616.elts[6] = ((closureN)self_73431)->elts[7];
c_73616.elts[7] = ((closureN)self_73431)->elts[8];
c_73616.elts[8] = program_127_7386;
c_73616.elts[9] = ((closureN)self_73431)->elts[9];
c_73616.elts[10] = ((closureN)self_73431)->elts[10];


make_cell(c_731338,((closureN)self_73431)->elts[2]);
return_closcall1(data,(closure)&c_73616,  &c_731338);; 
}

static void __lambda_165(void *data, int argc, object self_73432, object imports_7385) {
  
closureN_type c_73618;
c_73618.hdr.mark = gc_color_red;
 c_73618.hdr.grayed = 0;
c_73618.tag = closureN_tag;
 c_73618.fn = (function_type)__lambda_164;
c_73618.num_args = 1;
c_73618.num_elt = 11;
c_73618.elts = (object *)alloca(sizeof(object) * 11);
c_73618.elts[0] = ((closureN)self_73432)->elts[0];
c_73618.elts[1] = imports_7385;
c_73618.elts[2] = ((closureN)self_73432)->elts[2];
c_73618.elts[3] = ((closureN)self_73432)->elts[3];
c_73618.elts[4] = ((closureN)self_73432)->elts[4];
c_73618.elts[5] = ((closureN)self_73432)->elts[5];
c_73618.elts[6] = ((closureN)self_73432)->elts[6];
c_73618.elts[7] = ((closureN)self_73432)->elts[7];
c_73618.elts[8] = ((closureN)self_73432)->elts[8];
c_73618.elts[9] = ((closureN)self_73432)->elts[9];
c_73618.elts[10] = ((closureN)self_73432)->elts[10];


make_cell(c_731334,((closureN)self_73432)->elts[1]);
return_closcall1(data,(closure)&c_73618,  &c_731334);; 
}

static void __lambda_164(void *data, int argc, object self_73433, object imported_91vars_7384) {
  
closureN_type c_73620;
c_73620.hdr.mark = gc_color_red;
 c_73620.hdr.grayed = 0;
c_73620.tag = closureN_tag;
 c_73620.fn = (function_type)__lambda_163;
c_73620.num_args = 1;
c_73620.num_elt = 11;
c_73620.elts = (object *)alloca(sizeof(object) * 11);
c_73620.elts[0] = ((closureN)self_73433)->elts[0];
c_73620.elts[1] = imported_91vars_7384;
c_73620.elts[2] = ((closureN)self_73433)->elts[1];
c_73620.elts[3] = ((closureN)self_73433)->elts[2];
c_73620.elts[4] = ((closureN)self_73433)->elts[3];
c_73620.elts[5] = ((closureN)self_73433)->elts[4];
c_73620.elts[6] = ((closureN)self_73433)->elts[5];
c_73620.elts[7] = ((closureN)self_73433)->elts[7];
c_73620.elts[8] = ((closureN)self_73433)->elts[8];
c_73620.elts[9] = ((closureN)self_73433)->elts[9];
c_73620.elts[10] = ((closureN)self_73433)->elts[10];


make_cell(c_731330,((closureN)self_73433)->elts[6]);
return_closcall1(data,(closure)&c_73620,  &c_731330);; 
}

static void __lambda_163(void *data, int argc, object self_73434, object lib_91name_7383) {
  
closureN_type c_73622;
c_73622.hdr.mark = gc_color_red;
 c_73622.hdr.grayed = 0;
c_73622.tag = closureN_tag;
 c_73622.fn = (function_type)__lambda_162;
c_73622.num_args = 1;
c_73622.num_elt = 11;
c_73622.elts = (object *)alloca(sizeof(object) * 11);
c_73622.elts[0] = ((closureN)self_73434)->elts[0];
c_73622.elts[1] = ((closureN)self_73434)->elts[1];
c_73622.elts[2] = ((closureN)self_73434)->elts[2];
c_73622.elts[3] = ((closureN)self_73434)->elts[3];
c_73622.elts[4] = ((closureN)self_73434)->elts[4];
c_73622.elts[5] = ((closureN)self_73434)->elts[5];
c_73622.elts[6] = lib_91name_7383;
c_73622.elts[7] = ((closureN)self_73434)->elts[7];
c_73622.elts[8] = ((closureN)self_73434)->elts[8];
c_73622.elts[9] = ((closureN)self_73434)->elts[9];
c_73622.elts[10] = ((closureN)self_73434)->elts[10];


make_cell(c_731326,((closureN)self_73434)->elts[6]);
return_closcall1(data,(closure)&c_73622,  &c_731326);; 
}

static void __lambda_162(void *data, int argc, object self_73435, object lib_91exports_7382) {
  
closureN_type c_73624;
c_73624.hdr.mark = gc_color_red;
 c_73624.hdr.grayed = 0;
c_73624.tag = closureN_tag;
 c_73624.fn = (function_type)__lambda_161;
c_73624.num_args = 1;
c_73624.num_elt = 12;
c_73624.elts = (object *)alloca(sizeof(object) * 12);
c_73624.elts[0] = ((closureN)self_73435)->elts[0];
c_73624.elts[1] = ((closureN)self_73435)->elts[1];
c_73624.elts[2] = ((closureN)self_73435)->elts[2];
c_73624.elts[3] = ((closureN)self_73435)->elts[3];
c_73624.elts[4] = ((closureN)self_73435)->elts[4];
c_73624.elts[5] = ((closureN)self_73435)->elts[5];
c_73624.elts[6] = lib_91exports_7382;
c_73624.elts[7] = ((closureN)self_73435)->elts[6];
c_73624.elts[8] = ((closureN)self_73435)->elts[7];
c_73624.elts[9] = ((closureN)self_73435)->elts[8];
c_73624.elts[10] = ((closureN)self_73435)->elts[9];
c_73624.elts[11] = ((closureN)self_73435)->elts[10];

return_closcall1(data,(closure)&c_73624,  nil);; 
}

static void __lambda_161(void *data, int argc, object self_73436, object r_73329) {
  
closureN_type c_73626;
c_73626.hdr.mark = gc_color_red;
 c_73626.hdr.grayed = 0;
c_73626.tag = closureN_tag;
 c_73626.fn = (function_type)__lambda_160;
c_73626.num_args = 1;
c_73626.num_elt = 12;
c_73626.elts = (object *)alloca(sizeof(object) * 12);
c_73626.elts[0] = ((closureN)self_73436)->elts[0];
c_73626.elts[1] = ((closureN)self_73436)->elts[1];
c_73626.elts[2] = ((closureN)self_73436)->elts[2];
c_73626.elts[3] = ((closureN)self_73436)->elts[3];
c_73626.elts[4] = ((closureN)self_73436)->elts[4];
c_73626.elts[5] = ((closureN)self_73436)->elts[5];
c_73626.elts[6] = ((closureN)self_73436)->elts[6];
c_73626.elts[7] = ((closureN)self_73436)->elts[7];
c_73626.elts[8] = ((closureN)self_73436)->elts[8];
c_73626.elts[9] = ((closureN)self_73436)->elts[9];
c_73626.elts[10] = ((closureN)self_73436)->elts[10];
c_73626.elts[11] = ((closureN)self_73436)->elts[11];

return_closcall1(data,(closure)&c_73626,  Cyc_set_car(data, ((closureN)self_73436)->elts[0], r_73329));; 
}

static void __lambda_160(void *data, int argc, object self_73437, object r_73181) {
  
closureN_type c_73628;
c_73628.hdr.mark = gc_color_red;
 c_73628.hdr.grayed = 0;
c_73628.tag = closureN_tag;
 c_73628.fn = (function_type)__lambda_159;
c_73628.num_args = 1;
c_73628.num_elt = 12;
c_73628.elts = (object *)alloca(sizeof(object) * 12);
c_73628.elts[0] = ((closureN)self_73437)->elts[0];
c_73628.elts[1] = ((closureN)self_73437)->elts[1];
c_73628.elts[2] = ((closureN)self_73437)->elts[2];
c_73628.elts[3] = ((closureN)self_73437)->elts[3];
c_73628.elts[4] = ((closureN)self_73437)->elts[4];
c_73628.elts[5] = ((closureN)self_73437)->elts[5];
c_73628.elts[6] = ((closureN)self_73437)->elts[6];
c_73628.elts[7] = ((closureN)self_73437)->elts[7];
c_73628.elts[8] = ((closureN)self_73437)->elts[8];
c_73628.elts[9] = ((closureN)self_73437)->elts[9];
c_73628.elts[10] = ((closureN)self_73437)->elts[10];
c_73628.elts[11] = ((closureN)self_73437)->elts[11];

return_closcall1(data,(closure)&c_73628,  nil);; 
}

static void __lambda_159(void *data, int argc, object self_73438, object r_73328) {
  
closureN_type c_73630;
c_73630.hdr.mark = gc_color_red;
 c_73630.hdr.grayed = 0;
c_73630.tag = closureN_tag;
 c_73630.fn = (function_type)__lambda_158;
c_73630.num_args = 1;
c_73630.num_elt = 12;
c_73630.elts = (object *)alloca(sizeof(object) * 12);
c_73630.elts[0] = ((closureN)self_73438)->elts[0];
c_73630.elts[1] = ((closureN)self_73438)->elts[1];
c_73630.elts[2] = ((closureN)self_73438)->elts[2];
c_73630.elts[3] = ((closureN)self_73438)->elts[3];
c_73630.elts[4] = ((closureN)self_73438)->elts[4];
c_73630.elts[5] = ((closureN)self_73438)->elts[5];
c_73630.elts[6] = ((closureN)self_73438)->elts[6];
c_73630.elts[7] = ((closureN)self_73438)->elts[7];
c_73630.elts[8] = ((closureN)self_73438)->elts[8];
c_73630.elts[9] = ((closureN)self_73438)->elts[9];
c_73630.elts[10] = ((closureN)self_73438)->elts[10];
c_73630.elts[11] = ((closureN)self_73438)->elts[11];

return_closcall1(data,(closure)&c_73630,  Cyc_set_car(data, ((closureN)self_73438)->elts[8], r_73328));; 
}

static void __lambda_158(void *data, int argc, object self_73439, object r_73182) {
  
closureN_type c_73632;
c_73632.hdr.mark = gc_color_red;
 c_73632.hdr.grayed = 0;
c_73632.tag = closureN_tag;
 c_73632.fn = (function_type)__lambda_157;
c_73632.num_args = 1;
c_73632.num_elt = 12;
c_73632.elts = (object *)alloca(sizeof(object) * 12);
c_73632.elts[0] = ((closureN)self_73439)->elts[0];
c_73632.elts[1] = ((closureN)self_73439)->elts[1];
c_73632.elts[2] = ((closureN)self_73439)->elts[2];
c_73632.elts[3] = ((closureN)self_73439)->elts[3];
c_73632.elts[4] = ((closureN)self_73439)->elts[4];
c_73632.elts[5] = ((closureN)self_73439)->elts[5];
c_73632.elts[6] = ((closureN)self_73439)->elts[6];
c_73632.elts[7] = ((closureN)self_73439)->elts[7];
c_73632.elts[8] = ((closureN)self_73439)->elts[8];
c_73632.elts[9] = ((closureN)self_73439)->elts[9];
c_73632.elts[10] = ((closureN)self_73439)->elts[10];
c_73632.elts[11] = ((closureN)self_73439)->elts[11];

return_closcall1(data,(closure)&c_73632,  Cyc_set_car(data, ((closureN)self_73439)->elts[9], boolean_t));; 
}

static void __lambda_157(void *data, int argc, object self_73440, object r_73183) {
  
closureN_type c_73634;
c_73634.hdr.mark = gc_color_red;
 c_73634.hdr.grayed = 0;
c_73634.tag = closureN_tag;
 c_73634.fn = (function_type)__lambda_156;
c_73634.num_args = 1;
c_73634.num_elt = 12;
c_73634.elts = (object *)alloca(sizeof(object) * 12);
c_73634.elts[0] = ((closureN)self_73440)->elts[0];
c_73634.elts[1] = ((closureN)self_73440)->elts[1];
c_73634.elts[2] = ((closureN)self_73440)->elts[2];
c_73634.elts[3] = ((closureN)self_73440)->elts[3];
c_73634.elts[4] = ((closureN)self_73440)->elts[4];
c_73634.elts[5] = ((closureN)self_73440)->elts[5];
c_73634.elts[6] = ((closureN)self_73440)->elts[6];
c_73634.elts[7] = ((closureN)self_73440)->elts[7];
c_73634.elts[8] = ((closureN)self_73440)->elts[8];
c_73634.elts[9] = ((closureN)self_73440)->elts[9];
c_73634.elts[10] = ((closureN)self_73440)->elts[10];
c_73634.elts[11] = ((closureN)self_73440)->elts[11];

return_closcall1(data,(closure)&c_73634,  nil);; 
}

static void __lambda_156(void *data, int argc, object self_73441, object r_73327) {
  
closureN_type c_73636;
c_73636.hdr.mark = gc_color_red;
 c_73636.hdr.grayed = 0;
c_73636.tag = closureN_tag;
 c_73636.fn = (function_type)__lambda_155;
c_73636.num_args = 1;
c_73636.num_elt = 12;
c_73636.elts = (object *)alloca(sizeof(object) * 12);
c_73636.elts[0] = ((closureN)self_73441)->elts[0];
c_73636.elts[1] = ((closureN)self_73441)->elts[1];
c_73636.elts[2] = ((closureN)self_73441)->elts[2];
c_73636.elts[3] = ((closureN)self_73441)->elts[3];
c_73636.elts[4] = ((closureN)self_73441)->elts[4];
c_73636.elts[5] = ((closureN)self_73441)->elts[5];
c_73636.elts[6] = ((closureN)self_73441)->elts[6];
c_73636.elts[7] = ((closureN)self_73441)->elts[7];
c_73636.elts[8] = ((closureN)self_73441)->elts[8];
c_73636.elts[9] = ((closureN)self_73441)->elts[9];
c_73636.elts[10] = ((closureN)self_73441)->elts[10];
c_73636.elts[11] = ((closureN)self_73441)->elts[11];

return_closcall1(data,(closure)&c_73636,  Cyc_set_car(data, ((closureN)self_73441)->elts[2], r_73327));; 
}

static void __lambda_155(void *data, int argc, object self_73442, object r_73184) {
  
closureN_type c_73638;
c_73638.hdr.mark = gc_color_red;
 c_73638.hdr.grayed = 0;
c_73638.tag = closureN_tag;
 c_73638.fn = (function_type)__lambda_154;
c_73638.num_args = 1;
c_73638.num_elt = 12;
c_73638.elts = (object *)alloca(sizeof(object) * 12);
c_73638.elts[0] = ((closureN)self_73442)->elts[0];
c_73638.elts[1] = ((closureN)self_73442)->elts[1];
c_73638.elts[2] = ((closureN)self_73442)->elts[2];
c_73638.elts[3] = ((closureN)self_73442)->elts[3];
c_73638.elts[4] = ((closureN)self_73442)->elts[4];
c_73638.elts[5] = ((closureN)self_73442)->elts[5];
c_73638.elts[6] = ((closureN)self_73442)->elts[6];
c_73638.elts[7] = ((closureN)self_73442)->elts[7];
c_73638.elts[8] = ((closureN)self_73442)->elts[8];
c_73638.elts[9] = ((closureN)self_73442)->elts[9];
c_73638.elts[10] = ((closureN)self_73442)->elts[10];
c_73638.elts[11] = ((closureN)self_73442)->elts[11];

return_closcall1(data,(closure)&c_73638,  nil);; 
}

static void __lambda_154(void *data, int argc, object self_73443, object r_73326) {
  
closureN_type c_73640;
c_73640.hdr.mark = gc_color_red;
 c_73640.hdr.grayed = 0;
c_73640.tag = closureN_tag;
 c_73640.fn = (function_type)__lambda_153;
c_73640.num_args = 1;
c_73640.num_elt = 12;
c_73640.elts = (object *)alloca(sizeof(object) * 12);
c_73640.elts[0] = ((closureN)self_73443)->elts[0];
c_73640.elts[1] = ((closureN)self_73443)->elts[1];
c_73640.elts[2] = ((closureN)self_73443)->elts[2];
c_73640.elts[3] = ((closureN)self_73443)->elts[3];
c_73640.elts[4] = ((closureN)self_73443)->elts[4];
c_73640.elts[5] = ((closureN)self_73443)->elts[5];
c_73640.elts[6] = ((closureN)self_73443)->elts[6];
c_73640.elts[7] = ((closureN)self_73443)->elts[7];
c_73640.elts[8] = ((closureN)self_73443)->elts[8];
c_73640.elts[9] = ((closureN)self_73443)->elts[9];
c_73640.elts[10] = ((closureN)self_73443)->elts[10];
c_73640.elts[11] = ((closureN)self_73443)->elts[11];

return_closcall1(data,(closure)&c_73640,  Cyc_set_car(data, ((closureN)self_73443)->elts[1], r_73326));; 
}

static void __lambda_153(void *data, int argc, object self_73444, object r_73185) {
  
closureN_type c_73642;
c_73642.hdr.mark = gc_color_red;
 c_73642.hdr.grayed = 0;
c_73642.tag = closureN_tag;
 c_73642.fn = (function_type)__lambda_152;
c_73642.num_args = 1;
c_73642.num_elt = 12;
c_73642.elts = (object *)alloca(sizeof(object) * 12);
c_73642.elts[0] = ((closureN)self_73444)->elts[0];
c_73642.elts[1] = ((closureN)self_73444)->elts[1];
c_73642.elts[2] = ((closureN)self_73444)->elts[2];
c_73642.elts[3] = ((closureN)self_73444)->elts[3];
c_73642.elts[4] = ((closureN)self_73444)->elts[4];
c_73642.elts[5] = ((closureN)self_73444)->elts[5];
c_73642.elts[6] = ((closureN)self_73444)->elts[6];
c_73642.elts[7] = ((closureN)self_73444)->elts[7];
c_73642.elts[8] = ((closureN)self_73444)->elts[8];
c_73642.elts[9] = ((closureN)self_73444)->elts[9];
c_73642.elts[10] = ((closureN)self_73444)->elts[10];
c_73642.elts[11] = ((closureN)self_73444)->elts[11];

return_closcall1(data,(closure)&c_73642,  nil);; 
}

static void __lambda_152(void *data, int argc, object self_73445, object r_73325) {
  
closureN_type c_73644;
c_73644.hdr.mark = gc_color_red;
 c_73644.hdr.grayed = 0;
c_73644.tag = closureN_tag;
 c_73644.fn = (function_type)__lambda_151;
c_73644.num_args = 1;
c_73644.num_elt = 12;
c_73644.elts = (object *)alloca(sizeof(object) * 12);
c_73644.elts[0] = ((closureN)self_73445)->elts[0];
c_73644.elts[1] = ((closureN)self_73445)->elts[1];
c_73644.elts[2] = ((closureN)self_73445)->elts[2];
c_73644.elts[3] = ((closureN)self_73445)->elts[3];
c_73644.elts[4] = ((closureN)self_73445)->elts[4];
c_73644.elts[5] = ((closureN)self_73445)->elts[5];
c_73644.elts[6] = ((closureN)self_73445)->elts[6];
c_73644.elts[7] = ((closureN)self_73445)->elts[7];
c_73644.elts[8] = ((closureN)self_73445)->elts[8];
c_73644.elts[9] = ((closureN)self_73445)->elts[9];
c_73644.elts[10] = ((closureN)self_73445)->elts[10];
c_73644.elts[11] = ((closureN)self_73445)->elts[11];

return_closcall1(data,(closure)&c_73644,  Cyc_set_car(data, ((closureN)self_73445)->elts[7], r_73325));; 
}

static void __lambda_151(void *data, int argc, object self_73446, object r_73186) {
  
closureN_type c_73646;
c_73646.hdr.mark = gc_color_red;
 c_73646.hdr.grayed = 0;
c_73646.tag = closureN_tag;
 c_73646.fn = (function_type)__lambda_150;
c_73646.num_args = 1;
c_73646.num_elt = 12;
c_73646.elts = (object *)alloca(sizeof(object) * 12);
c_73646.elts[0] = ((closureN)self_73446)->elts[0];
c_73646.elts[1] = ((closureN)self_73446)->elts[1];
c_73646.elts[2] = ((closureN)self_73446)->elts[2];
c_73646.elts[3] = ((closureN)self_73446)->elts[3];
c_73646.elts[4] = ((closureN)self_73446)->elts[4];
c_73646.elts[5] = ((closureN)self_73446)->elts[5];
c_73646.elts[6] = ((closureN)self_73446)->elts[6];
c_73646.elts[7] = ((closureN)self_73446)->elts[7];
c_73646.elts[8] = ((closureN)self_73446)->elts[8];
c_73646.elts[9] = ((closureN)self_73446)->elts[9];
c_73646.elts[10] = ((closureN)self_73446)->elts[10];
c_73646.elts[11] = ((closureN)self_73446)->elts[11];

return_closcall1(data,(closure)&c_73646,  nil);; 
}

static void __lambda_150(void *data, int argc, object self_73447, object r_73324) {
  
closureN_type c_73648;
c_73648.hdr.mark = gc_color_red;
 c_73648.hdr.grayed = 0;
c_73648.tag = closureN_tag;
 c_73648.fn = (function_type)__lambda_149;
c_73648.num_args = 1;
c_73648.num_elt = 12;
c_73648.elts = (object *)alloca(sizeof(object) * 12);
c_73648.elts[0] = ((closureN)self_73447)->elts[0];
c_73648.elts[1] = ((closureN)self_73447)->elts[1];
c_73648.elts[2] = ((closureN)self_73447)->elts[2];
c_73648.elts[3] = ((closureN)self_73447)->elts[3];
c_73648.elts[4] = ((closureN)self_73447)->elts[4];
c_73648.elts[5] = ((closureN)self_73447)->elts[5];
c_73648.elts[6] = ((closureN)self_73447)->elts[6];
c_73648.elts[7] = ((closureN)self_73447)->elts[7];
c_73648.elts[8] = ((closureN)self_73447)->elts[8];
c_73648.elts[9] = ((closureN)self_73447)->elts[9];
c_73648.elts[10] = ((closureN)self_73447)->elts[10];
c_73648.elts[11] = ((closureN)self_73447)->elts[11];

return_closcall1(data,(closure)&c_73648,  Cyc_set_car(data, ((closureN)self_73447)->elts[6], r_73324));; 
}

static void __lambda_149(void *data, int argc, object self_73448, object r_73187) {
  
closureN_type c_73650;
c_73650.hdr.mark = gc_color_red;
 c_73650.hdr.grayed = 0;
c_73650.tag = closureN_tag;
 c_73650.fn = (function_type)__lambda_148;
c_73650.num_args = 1;
c_73650.num_elt = 12;
c_73650.elts = (object *)alloca(sizeof(object) * 12);
c_73650.elts[0] = ((closureN)self_73448)->elts[0];
c_73650.elts[1] = ((closureN)self_73448)->elts[1];
c_73650.elts[2] = ((closureN)self_73448)->elts[2];
c_73650.elts[3] = ((closureN)self_73448)->elts[3];
c_73650.elts[4] = ((closureN)self_73448)->elts[4];
c_73650.elts[5] = ((closureN)self_73448)->elts[5];
c_73650.elts[6] = ((closureN)self_73448)->elts[6];
c_73650.elts[7] = ((closureN)self_73448)->elts[7];
c_73650.elts[8] = ((closureN)self_73448)->elts[8];
c_73650.elts[9] = ((closureN)self_73448)->elts[9];
c_73650.elts[10] = ((closureN)self_73448)->elts[10];
c_73650.elts[11] = ((closureN)self_73448)->elts[11];

return_closcall2(data,  __glo_emit,  &c_73650, __glo__85c_91file_91header_91comment_85);; 
}

static void __lambda_148(void *data, int argc, object self_73449, object r_73188) {
  
closureN_type c_73652;
c_73652.hdr.mark = gc_color_red;
 c_73652.hdr.grayed = 0;
c_73652.tag = closureN_tag;
 c_73652.fn = (function_type)__lambda_147;
c_73652.num_args = 1;
c_73652.num_elt = 12;
c_73652.elts = (object *)alloca(sizeof(object) * 12);
c_73652.elts[0] = ((closureN)self_73449)->elts[0];
c_73652.elts[1] = ((closureN)self_73449)->elts[1];
c_73652.elts[2] = ((closureN)self_73449)->elts[2];
c_73652.elts[3] = ((closureN)self_73449)->elts[3];
c_73652.elts[4] = ((closureN)self_73449)->elts[4];
c_73652.elts[5] = ((closureN)self_73449)->elts[5];
c_73652.elts[6] = ((closureN)self_73449)->elts[6];
c_73652.elts[7] = ((closureN)self_73449)->elts[7];
c_73652.elts[8] = ((closureN)self_73449)->elts[8];
c_73652.elts[9] = ((closureN)self_73449)->elts[9];
c_73652.elts[10] = ((closureN)self_73449)->elts[10];
c_73652.elts[11] = ((closureN)self_73449)->elts[11];


make_string(c_731302, "---------------- input program:");
return_closcall2(data,  __glo_trace_117info,  &c_73652, &c_731302);; 
}

static void __lambda_147(void *data, int argc, object self_73450, object r_73189) {
  
closureN_type c_73654;
c_73654.hdr.mark = gc_color_red;
 c_73654.hdr.grayed = 0;
c_73654.tag = closureN_tag;
 c_73654.fn = (function_type)__lambda_146;
c_73654.num_args = 1;
c_73654.num_elt = 12;
c_73654.elts = (object *)alloca(sizeof(object) * 12);
c_73654.elts[0] = ((closureN)self_73450)->elts[0];
c_73654.elts[1] = ((closureN)self_73450)->elts[1];
c_73654.elts[2] = ((closureN)self_73450)->elts[2];
c_73654.elts[3] = ((closureN)self_73450)->elts[3];
c_73654.elts[4] = ((closureN)self_73450)->elts[4];
c_73654.elts[5] = ((closureN)self_73450)->elts[5];
c_73654.elts[6] = ((closureN)self_73450)->elts[6];
c_73654.elts[7] = ((closureN)self_73450)->elts[7];
c_73654.elts[8] = ((closureN)self_73450)->elts[8];
c_73654.elts[9] = ((closureN)self_73450)->elts[9];
c_73654.elts[10] = ((closureN)self_73450)->elts[10];
c_73654.elts[11] = ((closureN)self_73450)->elts[11];

return_closcall2(data,  __glo_trace_117info,  &c_73654, cell_get(((closureN)self_73450)->elts[3]));; 
}

static void __lambda_146(void *data, int argc, object self_73451, object r_73190) {
  
closureN_type c_73656;
c_73656.hdr.mark = gc_color_red;
 c_73656.hdr.grayed = 0;
c_73656.tag = closureN_tag;
 c_73656.fn = (function_type)__lambda_37;
c_73656.num_args = 0;
c_73656.num_elt = 5;
c_73656.elts = (object *)alloca(sizeof(object) * 5);
c_73656.elts[0] = ((closureN)self_73451)->elts[2];
c_73656.elts[1] = ((closureN)self_73451)->elts[3];
c_73656.elts[2] = ((closureN)self_73451)->elts[6];
c_73656.elts[3] = ((closureN)self_73451)->elts[7];
c_73656.elts[4] = ((closureN)self_73451)->elts[9];


closureN_type c_73829;
c_73829.hdr.mark = gc_color_red;
 c_73829.hdr.grayed = 0;
c_73829.tag = closureN_tag;
 c_73829.fn = (function_type)__lambda_145;
c_73829.num_args = 1;
c_73829.num_elt = 12;
c_73829.elts = (object *)alloca(sizeof(object) * 12);
c_73829.elts[0] = ((closureN)self_73451)->elts[0];
c_73829.elts[1] = ((closureN)self_73451)->elts[1];
c_73829.elts[2] = ((closureN)self_73451)->elts[2];
c_73829.elts[3] = ((closureN)self_73451)->elts[3];
c_73829.elts[4] = ((closureN)self_73451)->elts[4];
c_73829.elts[5] = ((closureN)self_73451)->elts[5];
c_73829.elts[6] = ((closureN)self_73451)->elts[6];
c_73829.elts[7] = ((closureN)self_73451)->elts[7];
c_73829.elts[8] = ((closureN)self_73451)->elts[8];
c_73829.elts[9] = ((closureN)self_73451)->elts[9];
c_73829.elts[10] = ((closureN)self_73451)->elts[10];
c_73829.elts[11] = ((closureN)self_73451)->elts[11];

return_closcall1(data,(closure)&c_73656,  &c_73829);; 
}

static void __lambda_145(void *data, int argc, object self_73452, object r_73191) {
  
closureN_type c_73831;
c_73831.hdr.mark = gc_color_red;
 c_73831.hdr.grayed = 0;
c_73831.tag = closureN_tag;
 c_73831.fn = (function_type)__lambda_144;
c_73831.num_args = 1;
c_73831.num_elt = 12;
c_73831.elts = (object *)alloca(sizeof(object) * 12);
c_73831.elts[0] = ((closureN)self_73452)->elts[0];
c_73831.elts[1] = ((closureN)self_73452)->elts[1];
c_73831.elts[2] = ((closureN)self_73452)->elts[2];
c_73831.elts[3] = ((closureN)self_73452)->elts[3];
c_73831.elts[4] = ((closureN)self_73452)->elts[4];
c_73831.elts[5] = ((closureN)self_73452)->elts[5];
c_73831.elts[6] = ((closureN)self_73452)->elts[6];
c_73831.elts[7] = ((closureN)self_73452)->elts[7];
c_73831.elts[8] = ((closureN)self_73452)->elts[8];
c_73831.elts[9] = ((closureN)self_73452)->elts[9];
c_73831.elts[10] = ((closureN)self_73452)->elts[10];
c_73831.elts[11] = ((closureN)self_73452)->elts[11];


make_string(c_731298, "imports:");
return_closcall2(data,  __glo_trace_117info,  &c_73831, &c_731298);; 
}

static void __lambda_144(void *data, int argc, object self_73453, object r_73192) {
  
closureN_type c_73833;
c_73833.hdr.mark = gc_color_red;
 c_73833.hdr.grayed = 0;
c_73833.tag = closureN_tag;
 c_73833.fn = (function_type)__lambda_143;
c_73833.num_args = 1;
c_73833.num_elt = 12;
c_73833.elts = (object *)alloca(sizeof(object) * 12);
c_73833.elts[0] = ((closureN)self_73453)->elts[0];
c_73833.elts[1] = ((closureN)self_73453)->elts[1];
c_73833.elts[2] = ((closureN)self_73453)->elts[2];
c_73833.elts[3] = ((closureN)self_73453)->elts[3];
c_73833.elts[4] = ((closureN)self_73453)->elts[4];
c_73833.elts[5] = ((closureN)self_73453)->elts[5];
c_73833.elts[6] = ((closureN)self_73453)->elts[6];
c_73833.elts[7] = ((closureN)self_73453)->elts[7];
c_73833.elts[8] = ((closureN)self_73453)->elts[8];
c_73833.elts[9] = ((closureN)self_73453)->elts[9];
c_73833.elts[10] = ((closureN)self_73453)->elts[10];
c_73833.elts[11] = ((closureN)self_73453)->elts[11];

return_closcall2(data,  __glo_trace_117info,  &c_73833, cell_get(((closureN)self_73453)->elts[2]));; 
}

static void __lambda_143(void *data, int argc, object self_73454, object r_73193) {
  
closureN_type c_73835;
c_73835.hdr.mark = gc_color_red;
 c_73835.hdr.grayed = 0;
c_73835.tag = closureN_tag;
 c_73835.fn = (function_type)__lambda_142;
c_73835.num_args = 1;
c_73835.num_elt = 12;
c_73835.elts = (object *)alloca(sizeof(object) * 12);
c_73835.elts[0] = ((closureN)self_73454)->elts[0];
c_73835.elts[1] = ((closureN)self_73454)->elts[1];
c_73835.elts[2] = ((closureN)self_73454)->elts[2];
c_73835.elts[3] = ((closureN)self_73454)->elts[3];
c_73835.elts[4] = ((closureN)self_73454)->elts[4];
c_73835.elts[5] = ((closureN)self_73454)->elts[5];
c_73835.elts[6] = ((closureN)self_73454)->elts[6];
c_73835.elts[7] = ((closureN)self_73454)->elts[7];
c_73835.elts[8] = ((closureN)self_73454)->elts[8];
c_73835.elts[9] = ((closureN)self_73454)->elts[9];
c_73835.elts[10] = ((closureN)self_73454)->elts[10];
c_73835.elts[11] = ((closureN)self_73454)->elts[11];

return_closcall2(data,  __glo_lib_117resolve_91imports,  &c_73835, cell_get(((closureN)self_73454)->elts[2]));; 
}

static void __lambda_142(void *data, int argc, object self_73455, object r_73289) {
  
closureN_type c_73837;
c_73837.hdr.mark = gc_color_red;
 c_73837.hdr.grayed = 0;
c_73837.tag = closureN_tag;
 c_73837.fn = (function_type)__lambda_141;
c_73837.num_args = 1;
c_73837.num_elt = 12;
c_73837.elts = (object *)alloca(sizeof(object) * 12);
c_73837.elts[0] = ((closureN)self_73455)->elts[0];
c_73837.elts[1] = ((closureN)self_73455)->elts[1];
c_73837.elts[2] = ((closureN)self_73455)->elts[2];
c_73837.elts[3] = ((closureN)self_73455)->elts[3];
c_73837.elts[4] = ((closureN)self_73455)->elts[4];
c_73837.elts[5] = ((closureN)self_73455)->elts[5];
c_73837.elts[6] = ((closureN)self_73455)->elts[6];
c_73837.elts[7] = ((closureN)self_73455)->elts[7];
c_73837.elts[8] = ((closureN)self_73455)->elts[8];
c_73837.elts[9] = ((closureN)self_73455)->elts[9];
c_73837.elts[10] = ((closureN)self_73455)->elts[10];
c_73837.elts[11] = ((closureN)self_73455)->elts[11];

return_closcall1(data,(closure)&c_73837,  Cyc_set_car(data, ((closureN)self_73455)->elts[1], r_73289));; 
}

static void __lambda_141(void *data, int argc, object self_73456, object r_73194) {
  
closureN_type c_73839;
c_73839.hdr.mark = gc_color_red;
 c_73839.hdr.grayed = 0;
c_73839.tag = closureN_tag;
 c_73839.fn = (function_type)__lambda_140;
c_73839.num_args = 1;
c_73839.num_elt = 12;
c_73839.elts = (object *)alloca(sizeof(object) * 12);
c_73839.elts[0] = ((closureN)self_73456)->elts[0];
c_73839.elts[1] = ((closureN)self_73456)->elts[1];
c_73839.elts[2] = ((closureN)self_73456)->elts[2];
c_73839.elts[3] = ((closureN)self_73456)->elts[3];
c_73839.elts[4] = ((closureN)self_73456)->elts[4];
c_73839.elts[5] = ((closureN)self_73456)->elts[5];
c_73839.elts[6] = ((closureN)self_73456)->elts[6];
c_73839.elts[7] = ((closureN)self_73456)->elts[7];
c_73839.elts[8] = ((closureN)self_73456)->elts[8];
c_73839.elts[9] = ((closureN)self_73456)->elts[9];
c_73839.elts[10] = ((closureN)self_73456)->elts[10];
c_73839.elts[11] = ((closureN)self_73456)->elts[11];


make_string(c_731288, "resolved imports:");
return_closcall2(data,  __glo_trace_117info,  &c_73839, &c_731288);; 
}

static void __lambda_140(void *data, int argc, object self_73457, object r_73195) {
  
closureN_type c_73841;
c_73841.hdr.mark = gc_color_red;
 c_73841.hdr.grayed = 0;
c_73841.tag = closureN_tag;
 c_73841.fn = (function_type)__lambda_139;
c_73841.num_args = 1;
c_73841.num_elt = 12;
c_73841.elts = (object *)alloca(sizeof(object) * 12);
c_73841.elts[0] = ((closureN)self_73457)->elts[0];
c_73841.elts[1] = ((closureN)self_73457)->elts[1];
c_73841.elts[2] = ((closureN)self_73457)->elts[2];
c_73841.elts[3] = ((closureN)self_73457)->elts[3];
c_73841.elts[4] = ((closureN)self_73457)->elts[4];
c_73841.elts[5] = ((closureN)self_73457)->elts[5];
c_73841.elts[6] = ((closureN)self_73457)->elts[6];
c_73841.elts[7] = ((closureN)self_73457)->elts[7];
c_73841.elts[8] = ((closureN)self_73457)->elts[8];
c_73841.elts[9] = ((closureN)self_73457)->elts[9];
c_73841.elts[10] = ((closureN)self_73457)->elts[10];
c_73841.elts[11] = ((closureN)self_73457)->elts[11];

return_closcall2(data,  __glo_trace_117info,  &c_73841, cell_get(((closureN)self_73457)->elts[1]));; 
}

static void __lambda_139(void *data, int argc, object self_73458, object r_73196) {
  
closureN_type c_73843;
c_73843.hdr.mark = gc_color_red;
 c_73843.hdr.grayed = 0;
c_73843.tag = closureN_tag;
 c_73843.fn = (function_type)__lambda_138;
c_73843.num_args = 1;
c_73843.num_elt = 11;
c_73843.elts = (object *)alloca(sizeof(object) * 11);
c_73843.elts[0] = ((closureN)self_73458)->elts[0];
c_73843.elts[1] = ((closureN)self_73458)->elts[1];
c_73843.elts[2] = ((closureN)self_73458)->elts[3];
c_73843.elts[3] = ((closureN)self_73458)->elts[4];
c_73843.elts[4] = ((closureN)self_73458)->elts[5];
c_73843.elts[5] = ((closureN)self_73458)->elts[6];
c_73843.elts[6] = ((closureN)self_73458)->elts[7];
c_73843.elts[7] = ((closureN)self_73458)->elts[8];
c_73843.elts[8] = ((closureN)self_73458)->elts[9];
c_73843.elts[9] = ((closureN)self_73458)->elts[10];
c_73843.elts[10] = ((closureN)self_73458)->elts[11];

return_closcall2(data,  __glo_lib_117resolve_91meta,  &c_73843, cell_get(((closureN)self_73458)->elts[2]));; 
}

static void __lambda_138(void *data, int argc, object self_73459, object r_73285) {
  
closureN_type c_73845;
c_73845.hdr.mark = gc_color_red;
 c_73845.hdr.grayed = 0;
c_73845.tag = closureN_tag;
 c_73845.fn = (function_type)__lambda_137;
c_73845.num_args = 1;
c_73845.num_elt = 11;
c_73845.elts = (object *)alloca(sizeof(object) * 11);
c_73845.elts[0] = ((closureN)self_73459)->elts[0];
c_73845.elts[1] = ((closureN)self_73459)->elts[1];
c_73845.elts[2] = ((closureN)self_73459)->elts[2];
c_73845.elts[3] = ((closureN)self_73459)->elts[3];
c_73845.elts[4] = ((closureN)self_73459)->elts[4];
c_73845.elts[5] = ((closureN)self_73459)->elts[5];
c_73845.elts[6] = ((closureN)self_73459)->elts[6];
c_73845.elts[7] = ((closureN)self_73459)->elts[7];
c_73845.elts[8] = ((closureN)self_73459)->elts[8];
c_73845.elts[9] = ((closureN)self_73459)->elts[9];
c_73845.elts[10] = ((closureN)self_73459)->elts[10];

return_closcall1(data,(closure)&c_73845,  r_73285);; 
}

static void __lambda_137(void *data, int argc, object self_73460, object meta_7396) {
  
closureN_type c_73847;
c_73847.hdr.mark = gc_color_red;
 c_73847.hdr.grayed = 0;
c_73847.tag = closureN_tag;
 c_73847.fn = (function_type)__lambda_136;
c_73847.num_args = 1;
c_73847.num_elt = 12;
c_73847.elts = (object *)alloca(sizeof(object) * 12);
c_73847.elts[0] = ((closureN)self_73460)->elts[0];
c_73847.elts[1] = ((closureN)self_73460)->elts[1];
c_73847.elts[2] = ((closureN)self_73460)->elts[2];
c_73847.elts[3] = ((closureN)self_73460)->elts[3];
c_73847.elts[4] = ((closureN)self_73460)->elts[4];
c_73847.elts[5] = ((closureN)self_73460)->elts[5];
c_73847.elts[6] = ((closureN)self_73460)->elts[6];
c_73847.elts[7] = meta_7396;
c_73847.elts[8] = ((closureN)self_73460)->elts[7];
c_73847.elts[9] = ((closureN)self_73460)->elts[8];
c_73847.elts[10] = ((closureN)self_73460)->elts[9];
c_73847.elts[11] = ((closureN)self_73460)->elts[10];

return_closcall3(data,  __glo_append,  &c_73847, meta_7396, __glo__85defined_91macros_85);; 
}

static void __lambda_136(void *data, int argc, object self_73461, object r_73288) {
  
closureN_type c_73849;
c_73849.hdr.mark = gc_color_red;
 c_73849.hdr.grayed = 0;
c_73849.tag = closureN_tag;
 c_73849.fn = (function_type)__lambda_135;
c_73849.num_args = 1;
c_73849.num_elt = 12;
c_73849.elts = (object *)alloca(sizeof(object) * 12);
c_73849.elts[0] = ((closureN)self_73461)->elts[0];
c_73849.elts[1] = ((closureN)self_73461)->elts[1];
c_73849.elts[2] = ((closureN)self_73461)->elts[2];
c_73849.elts[3] = ((closureN)self_73461)->elts[3];
c_73849.elts[4] = ((closureN)self_73461)->elts[4];
c_73849.elts[5] = ((closureN)self_73461)->elts[5];
c_73849.elts[6] = ((closureN)self_73461)->elts[6];
c_73849.elts[7] = ((closureN)self_73461)->elts[7];
c_73849.elts[8] = ((closureN)self_73461)->elts[8];
c_73849.elts[9] = ((closureN)self_73461)->elts[9];
c_73849.elts[10] = ((closureN)self_73461)->elts[10];
c_73849.elts[11] = ((closureN)self_73461)->elts[11];

return_closcall1(data,(closure)&c_73849,  global_set(__glo__85defined_91macros_85, r_73288));; 
}

static void __lambda_135(void *data, int argc, object self_73462, object r_73286) {
  
closureN_type c_73851;
c_73851.hdr.mark = gc_color_red;
 c_73851.hdr.grayed = 0;
c_73851.tag = closureN_tag;
 c_73851.fn = (function_type)__lambda_134;
c_73851.num_args = 1;
c_73851.num_elt = 12;
c_73851.elts = (object *)alloca(sizeof(object) * 12);
c_73851.elts[0] = ((closureN)self_73462)->elts[0];
c_73851.elts[1] = ((closureN)self_73462)->elts[1];
c_73851.elts[2] = ((closureN)self_73462)->elts[2];
c_73851.elts[3] = ((closureN)self_73462)->elts[3];
c_73851.elts[4] = ((closureN)self_73462)->elts[4];
c_73851.elts[5] = ((closureN)self_73462)->elts[5];
c_73851.elts[6] = ((closureN)self_73462)->elts[6];
c_73851.elts[7] = ((closureN)self_73462)->elts[7];
c_73851.elts[8] = ((closureN)self_73462)->elts[8];
c_73851.elts[9] = ((closureN)self_73462)->elts[9];
c_73851.elts[10] = ((closureN)self_73462)->elts[10];
c_73851.elts[11] = ((closureN)self_73462)->elts[11];


make_string(c_731279, "resolved macros:");
return_closcall2(data,  __glo_trace_117info,  &c_73851, &c_731279);; 
}

static void __lambda_134(void *data, int argc, object self_73463, object r_73287) {
  
closureN_type c_73853;
c_73853.hdr.mark = gc_color_red;
 c_73853.hdr.grayed = 0;
c_73853.tag = closureN_tag;
 c_73853.fn = (function_type)__lambda_133;
c_73853.num_args = 1;
c_73853.num_elt = 11;
c_73853.elts = (object *)alloca(sizeof(object) * 11);
c_73853.elts[0] = ((closureN)self_73463)->elts[0];
c_73853.elts[1] = ((closureN)self_73463)->elts[1];
c_73853.elts[2] = ((closureN)self_73463)->elts[2];
c_73853.elts[3] = ((closureN)self_73463)->elts[3];
c_73853.elts[4] = ((closureN)self_73463)->elts[4];
c_73853.elts[5] = ((closureN)self_73463)->elts[5];
c_73853.elts[6] = ((closureN)self_73463)->elts[6];
c_73853.elts[7] = ((closureN)self_73463)->elts[8];
c_73853.elts[8] = ((closureN)self_73463)->elts[9];
c_73853.elts[9] = ((closureN)self_73463)->elts[10];
c_73853.elts[10] = ((closureN)self_73463)->elts[11];

return_closcall2(data,  __glo_trace_117info,  &c_73853, ((closureN)self_73463)->elts[7]);; 
}

static void __lambda_133(void *data, int argc, object self_73464, object r_73197) {
  
closureN_type c_73855;
c_73855.hdr.mark = gc_color_red;
 c_73855.hdr.grayed = 0;
c_73855.tag = closureN_tag;
 c_73855.fn = (function_type)__lambda_129;
c_73855.num_args = 1;
c_73855.num_elt = 11;
c_73855.elts = (object *)alloca(sizeof(object) * 11);
c_73855.elts[0] = ((closureN)self_73464)->elts[0];
c_73855.elts[1] = ((closureN)self_73464)->elts[1];
c_73855.elts[2] = ((closureN)self_73464)->elts[2];
c_73855.elts[3] = ((closureN)self_73464)->elts[3];
c_73855.elts[4] = ((closureN)self_73464)->elts[4];
c_73855.elts[5] = ((closureN)self_73464)->elts[5];
c_73855.elts[6] = ((closureN)self_73464)->elts[6];
c_73855.elts[7] = ((closureN)self_73464)->elts[7];
c_73855.elts[8] = ((closureN)self_73464)->elts[8];
c_73855.elts[9] = ((closureN)self_73464)->elts[9];
c_73855.elts[10] = ((closureN)self_73464)->elts[10];


mclosure0(c_731265, (function_type)__lambda_132);c_731265.num_args = 1;
return_closcall1(data,(closure)&c_73855,  &c_731265);; 
}

static void __lambda_132(void *data, int argc, object self_73465, object k_73282, object v_7394) {
  
closureN_type c_731267;
c_731267.hdr.mark = gc_color_red;
 c_731267.hdr.grayed = 0;
c_731267.tag = closureN_tag;
 c_731267.fn = (function_type)__lambda_131;
c_731267.num_args = 1;
c_731267.num_elt = 1;
c_731267.elts = (object *)alloca(sizeof(object) * 1);
c_731267.elts[0] = k_73282;

return_closcall1(data,(closure)&c_731267,  cdr(v_7394));; 
}

static void __lambda_131(void *data, int argc, object self_73466, object r_73284) {
  
closureN_type c_731269;
c_731269.hdr.mark = gc_color_red;
 c_731269.hdr.grayed = 0;
c_731269.tag = closureN_tag;
 c_731269.fn = (function_type)__lambda_130;
c_731269.num_args = 1;
c_731269.num_elt = 1;
c_731269.elts = (object *)alloca(sizeof(object) * 1);
c_731269.elts[0] = ((closureN)self_73466)->elts[0];

return_closcall1(data,(closure)&c_731269,  Cyc_get_cvar(r_73284));; 
}

static void __lambda_130(void *data, int argc, object self_73467, object r_73283) {
  return_closcall1(data,  ((closureN)self_73467)->elts[0],  Cyc_is_macro(r_73283));; 
}

static void __lambda_129(void *data, int argc, object self_73468, object r_73280) {
  
closureN_type c_73857;
c_73857.hdr.mark = gc_color_red;
 c_73857.hdr.grayed = 0;
c_73857.tag = closureN_tag;
 c_73857.fn = (function_type)__lambda_128;
c_73857.num_args = 1;
c_73857.num_elt = 12;
c_73857.elts = (object *)alloca(sizeof(object) * 12);
c_73857.elts[0] = ((closureN)self_73468)->elts[0];
c_73857.elts[1] = ((closureN)self_73468)->elts[1];
c_73857.elts[2] = ((closureN)self_73468)->elts[2];
c_73857.elts[3] = ((closureN)self_73468)->elts[3];
c_73857.elts[4] = ((closureN)self_73468)->elts[4];
c_73857.elts[5] = ((closureN)self_73468)->elts[5];
c_73857.elts[6] = ((closureN)self_73468)->elts[6];
c_73857.elts[7] = ((closureN)self_73468)->elts[7];
c_73857.elts[8] = ((closureN)self_73468)->elts[8];
c_73857.elts[9] = r_73280;
c_73857.elts[10] = ((closureN)self_73468)->elts[9];
c_73857.elts[11] = ((closureN)self_73468)->elts[10];

return_closcall1(data,(closure)&c_73857,  Cyc_get_global_variables());; 
}

static void __lambda_128(void *data, int argc, object self_73469, object r_73281) {
  
closureN_type c_73859;
c_73859.hdr.mark = gc_color_red;
 c_73859.hdr.grayed = 0;
c_73859.tag = closureN_tag;
 c_73859.fn = (function_type)__lambda_127;
c_73859.num_args = 1;
c_73859.num_elt = 11;
c_73859.elts = (object *)alloca(sizeof(object) * 11);
c_73859.elts[0] = ((closureN)self_73469)->elts[0];
c_73859.elts[1] = ((closureN)self_73469)->elts[1];
c_73859.elts[2] = ((closureN)self_73469)->elts[2];
c_73859.elts[3] = ((closureN)self_73469)->elts[3];
c_73859.elts[4] = ((closureN)self_73469)->elts[4];
c_73859.elts[5] = ((closureN)self_73469)->elts[5];
c_73859.elts[6] = ((closureN)self_73469)->elts[6];
c_73859.elts[7] = ((closureN)self_73469)->elts[7];
c_73859.elts[8] = ((closureN)self_73469)->elts[8];
c_73859.elts[9] = ((closureN)self_73469)->elts[10];
c_73859.elts[10] = ((closureN)self_73469)->elts[11];

return_closcall3(data,  __glo_filter,  &c_73859, ((closureN)self_73469)->elts[9], r_73281);; 
}

static void __lambda_127(void *data, int argc, object self_73470, object r_73278) {
  
closureN_type c_73861;
c_73861.hdr.mark = gc_color_red;
 c_73861.hdr.grayed = 0;
c_73861.tag = closureN_tag;
 c_73861.fn = (function_type)__lambda_126;
c_73861.num_args = 1;
c_73861.num_elt = 11;
c_73861.elts = (object *)alloca(sizeof(object) * 11);
c_73861.elts[0] = ((closureN)self_73470)->elts[0];
c_73861.elts[1] = ((closureN)self_73470)->elts[1];
c_73861.elts[2] = ((closureN)self_73470)->elts[2];
c_73861.elts[3] = ((closureN)self_73470)->elts[3];
c_73861.elts[4] = ((closureN)self_73470)->elts[4];
c_73861.elts[5] = ((closureN)self_73470)->elts[5];
c_73861.elts[6] = ((closureN)self_73470)->elts[6];
c_73861.elts[7] = ((closureN)self_73470)->elts[7];
c_73861.elts[8] = ((closureN)self_73470)->elts[8];
c_73861.elts[9] = ((closureN)self_73470)->elts[9];
c_73861.elts[10] = ((closureN)self_73470)->elts[10];

return_closcall1(data,(closure)&c_73861,  r_73278);; 
}

static void __lambda_126(void *data, int argc, object self_73471, object macros_7395) {
  
closureN_type c_73863;
c_73863.hdr.mark = gc_color_red;
 c_73863.hdr.grayed = 0;
c_73863.tag = closureN_tag;
 c_73863.fn = (function_type)__lambda_125;
c_73863.num_args = 1;
c_73863.num_elt = 11;
c_73863.elts = (object *)alloca(sizeof(object) * 11);
c_73863.elts[0] = ((closureN)self_73471)->elts[0];
c_73863.elts[1] = ((closureN)self_73471)->elts[1];
c_73863.elts[2] = ((closureN)self_73471)->elts[2];
c_73863.elts[3] = ((closureN)self_73471)->elts[3];
c_73863.elts[4] = ((closureN)self_73471)->elts[4];
c_73863.elts[5] = ((closureN)self_73471)->elts[5];
c_73863.elts[6] = ((closureN)self_73471)->elts[6];
c_73863.elts[7] = ((closureN)self_73471)->elts[7];
c_73863.elts[8] = ((closureN)self_73471)->elts[8];
c_73863.elts[9] = ((closureN)self_73471)->elts[9];
c_73863.elts[10] = ((closureN)self_73471)->elts[10];

return_closcall3(data,  __glo_append,  &c_73863, macros_7395, __glo__85defined_91macros_85);; 
}

static void __lambda_125(void *data, int argc, object self_73472, object r_73279) {
  
closureN_type c_73865;
c_73865.hdr.mark = gc_color_red;
 c_73865.hdr.grayed = 0;
c_73865.tag = closureN_tag;
 c_73865.fn = (function_type)__lambda_124;
c_73865.num_args = 1;
c_73865.num_elt = 11;
c_73865.elts = (object *)alloca(sizeof(object) * 11);
c_73865.elts[0] = ((closureN)self_73472)->elts[0];
c_73865.elts[1] = ((closureN)self_73472)->elts[1];
c_73865.elts[2] = ((closureN)self_73472)->elts[2];
c_73865.elts[3] = ((closureN)self_73472)->elts[3];
c_73865.elts[4] = ((closureN)self_73472)->elts[4];
c_73865.elts[5] = ((closureN)self_73472)->elts[5];
c_73865.elts[6] = ((closureN)self_73472)->elts[6];
c_73865.elts[7] = ((closureN)self_73472)->elts[7];
c_73865.elts[8] = ((closureN)self_73472)->elts[8];
c_73865.elts[9] = ((closureN)self_73472)->elts[9];
c_73865.elts[10] = ((closureN)self_73472)->elts[10];

return_closcall1(data,(closure)&c_73865,  global_set(__glo__85defined_91macros_85, r_73279));; 
}

static void __lambda_124(void *data, int argc, object self_73473, object r_73198) {
  
closureN_type c_73867;
c_73867.hdr.mark = gc_color_red;
 c_73867.hdr.grayed = 0;
c_73867.tag = closureN_tag;
 c_73867.fn = (function_type)__lambda_123;
c_73867.num_args = 1;
c_73867.num_elt = 11;
c_73867.elts = (object *)alloca(sizeof(object) * 11);
c_73867.elts[0] = ((closureN)self_73473)->elts[0];
c_73867.elts[1] = ((closureN)self_73473)->elts[1];
c_73867.elts[2] = ((closureN)self_73473)->elts[2];
c_73867.elts[3] = ((closureN)self_73473)->elts[3];
c_73867.elts[4] = ((closureN)self_73473)->elts[4];
c_73867.elts[5] = ((closureN)self_73473)->elts[5];
c_73867.elts[6] = ((closureN)self_73473)->elts[6];
c_73867.elts[7] = ((closureN)self_73473)->elts[7];
c_73867.elts[8] = ((closureN)self_73473)->elts[8];
c_73867.elts[9] = ((closureN)self_73473)->elts[9];
c_73867.elts[10] = ((closureN)self_73473)->elts[10];

return_closcall1(data,(closure)&c_73867,  nil);; 
}

static void __lambda_123(void *data, int argc, object self_73474, object r_73276) {
  
closureN_type c_73869;
c_73869.hdr.mark = gc_color_red;
 c_73869.hdr.grayed = 0;
c_73869.tag = closureN_tag;
 c_73869.fn = (function_type)__lambda_122;
c_73869.num_args = 1;
c_73869.num_elt = 12;
c_73869.elts = (object *)alloca(sizeof(object) * 12);
c_73869.elts[0] = ((closureN)self_73474)->elts[0];
c_73869.elts[1] = ((closureN)self_73474)->elts[1];
c_73869.elts[2] = ((closureN)self_73474)->elts[2];
c_73869.elts[3] = ((closureN)self_73474)->elts[3];
c_73869.elts[4] = ((closureN)self_73474)->elts[4];
c_73869.elts[5] = ((closureN)self_73474)->elts[5];
c_73869.elts[6] = ((closureN)self_73474)->elts[6];
c_73869.elts[7] = ((closureN)self_73474)->elts[7];
c_73869.elts[8] = ((closureN)self_73474)->elts[8];
c_73869.elts[9] = r_73276;
c_73869.elts[10] = ((closureN)self_73474)->elts[9];
c_73869.elts[11] = ((closureN)self_73474)->elts[10];

return_closcall1(data,(closure)&c_73869,  nil);; 
}

static void __lambda_122(void *data, int argc, object self_73475, object r_73277) {
  
closureN_type c_73871;
c_73871.hdr.mark = gc_color_red;
 c_73871.hdr.grayed = 0;
c_73871.tag = closureN_tag;
 c_73871.fn = (function_type)__lambda_121;
c_73871.num_args = 1;
c_73871.num_elt = 11;
c_73871.elts = (object *)alloca(sizeof(object) * 11);
c_73871.elts[0] = ((closureN)self_73475)->elts[0];
c_73871.elts[1] = ((closureN)self_73475)->elts[1];
c_73871.elts[2] = ((closureN)self_73475)->elts[2];
c_73871.elts[3] = ((closureN)self_73475)->elts[3];
c_73871.elts[4] = ((closureN)self_73475)->elts[4];
c_73871.elts[5] = ((closureN)self_73475)->elts[5];
c_73871.elts[6] = ((closureN)self_73475)->elts[6];
c_73871.elts[7] = ((closureN)self_73475)->elts[7];
c_73871.elts[8] = ((closureN)self_73475)->elts[8];
c_73871.elts[9] = ((closureN)self_73475)->elts[10];
c_73871.elts[10] = ((closureN)self_73475)->elts[11];

return_closcall3(data,  __glo_create_91environment,  &c_73871, ((closureN)self_73475)->elts[9], r_73277);; 
}

static void __lambda_121(void *data, int argc, object self_73476, object r_73275) {
  
closureN_type c_73873;
c_73873.hdr.mark = gc_color_red;
 c_73873.hdr.grayed = 0;
c_73873.tag = closureN_tag;
 c_73873.fn = (function_type)__lambda_120;
c_73873.num_args = 1;
c_73873.num_elt = 11;
c_73873.elts = (object *)alloca(sizeof(object) * 11);
c_73873.elts[0] = ((closureN)self_73476)->elts[0];
c_73873.elts[1] = ((closureN)self_73476)->elts[1];
c_73873.elts[2] = ((closureN)self_73476)->elts[2];
c_73873.elts[3] = ((closureN)self_73476)->elts[3];
c_73873.elts[4] = ((closureN)self_73476)->elts[4];
c_73873.elts[5] = ((closureN)self_73476)->elts[5];
c_73873.elts[6] = ((closureN)self_73476)->elts[6];
c_73873.elts[7] = ((closureN)self_73476)->elts[7];
c_73873.elts[8] = ((closureN)self_73476)->elts[8];
c_73873.elts[9] = ((closureN)self_73476)->elts[9];
c_73873.elts[10] = ((closureN)self_73476)->elts[10];

return_closcall3(data,  __glo_macro_117load_91env_67,  &c_73873, __glo__85defined_91macros_85, r_73275);; 
}

static void __lambda_120(void *data, int argc, object self_73477, object r_73199) {
  
closureN_type c_73875;
c_73875.hdr.mark = gc_color_red;
 c_73875.hdr.grayed = 0;
c_73875.tag = closureN_tag;
 c_73875.fn = (function_type)__lambda_38;
c_73875.num_args = 0;
c_73875.num_elt = 1;
c_73875.elts = (object *)alloca(sizeof(object) * 1);
c_73875.elts[0] = ((closureN)self_73477)->elts[8];


closureN_type c_73881;
c_73881.hdr.mark = gc_color_red;
 c_73881.hdr.grayed = 0;
c_73881.tag = closureN_tag;
 c_73881.fn = (function_type)__lambda_119;
c_73881.num_args = 1;
c_73881.num_elt = 11;
c_73881.elts = (object *)alloca(sizeof(object) * 11);
c_73881.elts[0] = ((closureN)self_73477)->elts[0];
c_73881.elts[1] = ((closureN)self_73477)->elts[1];
c_73881.elts[2] = ((closureN)self_73477)->elts[2];
c_73881.elts[3] = ((closureN)self_73477)->elts[3];
c_73881.elts[4] = ((closureN)self_73477)->elts[4];
c_73881.elts[5] = ((closureN)self_73477)->elts[5];
c_73881.elts[6] = ((closureN)self_73477)->elts[6];
c_73881.elts[7] = ((closureN)self_73477)->elts[7];
c_73881.elts[8] = ((closureN)self_73477)->elts[8];
c_73881.elts[9] = ((closureN)self_73477)->elts[9];
c_73881.elts[10] = ((closureN)self_73477)->elts[10];

return_closcall1(data,(closure)&c_73875,  &c_73881);; 
}

static void __lambda_119(void *data, int argc, object self_73478, object r_73272) {
  
closureN_type c_73883;
c_73883.hdr.mark = gc_color_red;
 c_73883.hdr.grayed = 0;
c_73883.tag = closureN_tag;
 c_73883.fn = (function_type)__lambda_118;
c_73883.num_args = 1;
c_73883.num_elt = 12;
c_73883.elts = (object *)alloca(sizeof(object) * 12);
c_73883.elts[0] = ((closureN)self_73478)->elts[0];
c_73883.elts[1] = ((closureN)self_73478)->elts[1];
c_73883.elts[2] = ((closureN)self_73478)->elts[2];
c_73883.elts[3] = ((closureN)self_73478)->elts[3];
c_73883.elts[4] = ((closureN)self_73478)->elts[4];
c_73883.elts[5] = ((closureN)self_73478)->elts[5];
c_73883.elts[6] = ((closureN)self_73478)->elts[6];
c_73883.elts[7] = ((closureN)self_73478)->elts[7];
c_73883.elts[8] = ((closureN)self_73478)->elts[8];
c_73883.elts[9] = r_73272;
c_73883.elts[10] = ((closureN)self_73478)->elts[9];
c_73883.elts[11] = ((closureN)self_73478)->elts[10];

return_closcall1(data,  __glo_macro_117get_91env,  &c_73883);; 
}

static void __lambda_118(void *data, int argc, object self_73479, object r_73273) {
  
closureN_type c_73886;
c_73886.hdr.mark = gc_color_red;
 c_73886.hdr.grayed = 0;
c_73886.tag = closureN_tag;
 c_73886.fn = (function_type)__lambda_117;
c_73886.num_args = 1;
c_73886.num_elt = 11;
c_73886.elts = (object *)alloca(sizeof(object) * 11);
c_73886.elts[0] = ((closureN)self_73479)->elts[0];
c_73886.elts[1] = ((closureN)self_73479)->elts[1];
c_73886.elts[2] = ((closureN)self_73479)->elts[2];
c_73886.elts[3] = ((closureN)self_73479)->elts[3];
c_73886.elts[4] = ((closureN)self_73479)->elts[4];
c_73886.elts[5] = ((closureN)self_73479)->elts[5];
c_73886.elts[6] = ((closureN)self_73479)->elts[6];
c_73886.elts[7] = ((closureN)self_73479)->elts[7];
c_73886.elts[8] = ((closureN)self_73479)->elts[8];
c_73886.elts[9] = ((closureN)self_73479)->elts[10];
c_73886.elts[10] = ((closureN)self_73479)->elts[11];

return_closcall3(data,  ((closureN)self_73479)->elts[9],  &c_73886, cell_get(((closureN)self_73479)->elts[2]), r_73273);; 
}

static void __lambda_117(void *data, int argc, object self_73480, object r_73271) {
  
closureN_type c_73888;
c_73888.hdr.mark = gc_color_red;
 c_73888.hdr.grayed = 0;
c_73888.tag = closureN_tag;
 c_73888.fn = (function_type)__lambda_116;
c_73888.num_args = 1;
c_73888.num_elt = 11;
c_73888.elts = (object *)alloca(sizeof(object) * 11);
c_73888.elts[0] = ((closureN)self_73480)->elts[0];
c_73888.elts[1] = ((closureN)self_73480)->elts[1];
c_73888.elts[2] = ((closureN)self_73480)->elts[2];
c_73888.elts[3] = ((closureN)self_73480)->elts[3];
c_73888.elts[4] = ((closureN)self_73480)->elts[4];
c_73888.elts[5] = ((closureN)self_73480)->elts[5];
c_73888.elts[6] = ((closureN)self_73480)->elts[6];
c_73888.elts[7] = ((closureN)self_73480)->elts[7];
c_73888.elts[8] = ((closureN)self_73480)->elts[8];
c_73888.elts[9] = ((closureN)self_73480)->elts[9];
c_73888.elts[10] = ((closureN)self_73480)->elts[10];

return_closcall1(data,(closure)&c_73888,  Cyc_set_car(data, ((closureN)self_73480)->elts[2], r_73271));; 
}

static void __lambda_116(void *data, int argc, object self_73481, object r_73200) {
  
closureN_type c_73890;
c_73890.hdr.mark = gc_color_red;
 c_73890.hdr.grayed = 0;
c_73890.tag = closureN_tag;
 c_73890.fn = (function_type)__lambda_115;
c_73890.num_args = 1;
c_73890.num_elt = 11;
c_73890.elts = (object *)alloca(sizeof(object) * 11);
c_73890.elts[0] = ((closureN)self_73481)->elts[0];
c_73890.elts[1] = ((closureN)self_73481)->elts[1];
c_73890.elts[2] = ((closureN)self_73481)->elts[2];
c_73890.elts[3] = ((closureN)self_73481)->elts[3];
c_73890.elts[4] = ((closureN)self_73481)->elts[4];
c_73890.elts[5] = ((closureN)self_73481)->elts[5];
c_73890.elts[6] = ((closureN)self_73481)->elts[6];
c_73890.elts[7] = ((closureN)self_73481)->elts[7];
c_73890.elts[8] = ((closureN)self_73481)->elts[8];
c_73890.elts[9] = ((closureN)self_73481)->elts[9];
c_73890.elts[10] = ((closureN)self_73481)->elts[10];


make_string(c_731252, "---------------- after macro expansion:");
return_closcall2(data,  __glo_trace_117info,  &c_73890, &c_731252);; 
}

static void __lambda_115(void *data, int argc, object self_73482, object r_73201) {
  
closureN_type c_73892;
c_73892.hdr.mark = gc_color_red;
 c_73892.hdr.grayed = 0;
c_73892.tag = closureN_tag;
 c_73892.fn = (function_type)__lambda_114;
c_73892.num_args = 1;
c_73892.num_elt = 11;
c_73892.elts = (object *)alloca(sizeof(object) * 11);
c_73892.elts[0] = ((closureN)self_73482)->elts[0];
c_73892.elts[1] = ((closureN)self_73482)->elts[1];
c_73892.elts[2] = ((closureN)self_73482)->elts[2];
c_73892.elts[3] = ((closureN)self_73482)->elts[3];
c_73892.elts[4] = ((closureN)self_73482)->elts[4];
c_73892.elts[5] = ((closureN)self_73482)->elts[5];
c_73892.elts[6] = ((closureN)self_73482)->elts[6];
c_73892.elts[7] = ((closureN)self_73482)->elts[7];
c_73892.elts[8] = ((closureN)self_73482)->elts[8];
c_73892.elts[9] = ((closureN)self_73482)->elts[9];
c_73892.elts[10] = ((closureN)self_73482)->elts[10];

return_closcall2(data,  __glo_trace_117info,  &c_73892, cell_get(((closureN)self_73482)->elts[2]));; 
}

static void __lambda_114(void *data, int argc, object self_73483, object r_73202) {
  
closureN_type c_73894;
c_73894.hdr.mark = gc_color_red;
 c_73894.hdr.grayed = 0;
c_73894.tag = closureN_tag;
 c_73894.fn = (function_type)__lambda_113;
c_73894.num_args = 1;
c_73894.num_elt = 11;
c_73894.elts = (object *)alloca(sizeof(object) * 11);
c_73894.elts[0] = ((closureN)self_73483)->elts[0];
c_73894.elts[1] = ((closureN)self_73483)->elts[1];
c_73894.elts[2] = ((closureN)self_73483)->elts[2];
c_73894.elts[3] = ((closureN)self_73483)->elts[3];
c_73894.elts[4] = ((closureN)self_73483)->elts[4];
c_73894.elts[5] = ((closureN)self_73483)->elts[5];
c_73894.elts[6] = ((closureN)self_73483)->elts[6];
c_73894.elts[7] = ((closureN)self_73483)->elts[7];
c_73894.elts[8] = ((closureN)self_73483)->elts[8];
c_73894.elts[9] = ((closureN)self_73483)->elts[9];
c_73894.elts[10] = ((closureN)self_73483)->elts[10];

return_closcall4(data,  __glo_isolate_91globals,  &c_73894, cell_get(((closureN)self_73483)->elts[2]), cell_get(((closureN)self_73483)->elts[8]), cell_get(((closureN)self_73483)->elts[6]));; 
}

static void __lambda_113(void *data, int argc, object self_73484, object r_73270) {
  
closureN_type c_73896;
c_73896.hdr.mark = gc_color_red;
 c_73896.hdr.grayed = 0;
c_73896.tag = closureN_tag;
 c_73896.fn = (function_type)__lambda_112;
c_73896.num_args = 1;
c_73896.num_elt = 11;
c_73896.elts = (object *)alloca(sizeof(object) * 11);
c_73896.elts[0] = ((closureN)self_73484)->elts[0];
c_73896.elts[1] = ((closureN)self_73484)->elts[1];
c_73896.elts[2] = ((closureN)self_73484)->elts[2];
c_73896.elts[3] = ((closureN)self_73484)->elts[3];
c_73896.elts[4] = ((closureN)self_73484)->elts[4];
c_73896.elts[5] = ((closureN)self_73484)->elts[5];
c_73896.elts[6] = ((closureN)self_73484)->elts[6];
c_73896.elts[7] = ((closureN)self_73484)->elts[7];
c_73896.elts[8] = ((closureN)self_73484)->elts[8];
c_73896.elts[9] = ((closureN)self_73484)->elts[9];
c_73896.elts[10] = ((closureN)self_73484)->elts[10];

return_closcall1(data,(closure)&c_73896,  Cyc_set_car(data, ((closureN)self_73484)->elts[2], r_73270));; 
}

static void __lambda_112(void *data, int argc, object self_73485, object r_73203) {
  
closureN_type c_73898;
c_73898.hdr.mark = gc_color_red;
 c_73898.hdr.grayed = 0;
c_73898.tag = closureN_tag;
 c_73898.fn = (function_type)__lambda_43;
c_73898.num_args = 0;
c_73898.num_elt = 2;
c_73898.elts = (object *)alloca(sizeof(object) * 2);
c_73898.elts[0] = ((closureN)self_73485)->elts[2];
c_73898.elts[1] = ((closureN)self_73485)->elts[5];


closureN_type c_73923;
c_73923.hdr.mark = gc_color_red;
 c_73923.hdr.grayed = 0;
c_73923.tag = closureN_tag;
 c_73923.fn = (function_type)__lambda_111;
c_73923.num_args = 1;
c_73923.num_elt = 11;
c_73923.elts = (object *)alloca(sizeof(object) * 11);
c_73923.elts[0] = ((closureN)self_73485)->elts[0];
c_73923.elts[1] = ((closureN)self_73485)->elts[1];
c_73923.elts[2] = ((closureN)self_73485)->elts[2];
c_73923.elts[3] = ((closureN)self_73485)->elts[3];
c_73923.elts[4] = ((closureN)self_73485)->elts[4];
c_73923.elts[5] = ((closureN)self_73485)->elts[5];
c_73923.elts[6] = ((closureN)self_73485)->elts[6];
c_73923.elts[7] = ((closureN)self_73485)->elts[7];
c_73923.elts[8] = ((closureN)self_73485)->elts[8];
c_73923.elts[9] = ((closureN)self_73485)->elts[9];
c_73923.elts[10] = ((closureN)self_73485)->elts[10];

return_closcall1(data,(closure)&c_73898,  &c_73923);; 
}

static void __lambda_111(void *data, int argc, object self_73486, object r_73204) {
  
closureN_type c_73925;
c_73925.hdr.mark = gc_color_red;
 c_73925.hdr.grayed = 0;
c_73925.tag = closureN_tag;
 c_73925.fn = (function_type)__lambda_110;
c_73925.num_args = 1;
c_73925.num_elt = 11;
c_73925.elts = (object *)alloca(sizeof(object) * 11);
c_73925.elts[0] = ((closureN)self_73486)->elts[0];
c_73925.elts[1] = ((closureN)self_73486)->elts[1];
c_73925.elts[2] = ((closureN)self_73486)->elts[2];
c_73925.elts[3] = ((closureN)self_73486)->elts[3];
c_73925.elts[4] = ((closureN)self_73486)->elts[4];
c_73925.elts[5] = ((closureN)self_73486)->elts[5];
c_73925.elts[6] = ((closureN)self_73486)->elts[6];
c_73925.elts[7] = ((closureN)self_73486)->elts[7];
c_73925.elts[8] = ((closureN)self_73486)->elts[8];
c_73925.elts[9] = ((closureN)self_73486)->elts[9];
c_73925.elts[10] = ((closureN)self_73486)->elts[10];


make_string(c_731236, "---------------- after processing globals");
return_closcall2(data,  __glo_trace_117info,  &c_73925, &c_731236);; 
}

static void __lambda_110(void *data, int argc, object self_73487, object r_73205) {
  
closureN_type c_73927;
c_73927.hdr.mark = gc_color_red;
 c_73927.hdr.grayed = 0;
c_73927.tag = closureN_tag;
 c_73927.fn = (function_type)__lambda_109;
c_73927.num_args = 1;
c_73927.num_elt = 11;
c_73927.elts = (object *)alloca(sizeof(object) * 11);
c_73927.elts[0] = ((closureN)self_73487)->elts[0];
c_73927.elts[1] = ((closureN)self_73487)->elts[1];
c_73927.elts[2] = ((closureN)self_73487)->elts[2];
c_73927.elts[3] = ((closureN)self_73487)->elts[3];
c_73927.elts[4] = ((closureN)self_73487)->elts[4];
c_73927.elts[5] = ((closureN)self_73487)->elts[5];
c_73927.elts[6] = ((closureN)self_73487)->elts[6];
c_73927.elts[7] = ((closureN)self_73487)->elts[7];
c_73927.elts[8] = ((closureN)self_73487)->elts[8];
c_73927.elts[9] = ((closureN)self_73487)->elts[9];
c_73927.elts[10] = ((closureN)self_73487)->elts[10];

return_closcall2(data,  __glo_trace_117info,  &c_73927, cell_get(((closureN)self_73487)->elts[2]));; 
}

static void __lambda_109(void *data, int argc, object self_73488, object r_73206) {
  
closureN_type c_73929;
c_73929.hdr.mark = gc_color_red;
 c_73929.hdr.grayed = 0;
c_73929.tag = closureN_tag;
 c_73929.fn = (function_type)__lambda_108;
c_73929.num_args = 1;
c_73929.num_elt = 11;
c_73929.elts = (object *)alloca(sizeof(object) * 11);
c_73929.elts[0] = ((closureN)self_73488)->elts[0];
c_73929.elts[1] = ((closureN)self_73488)->elts[1];
c_73929.elts[2] = ((closureN)self_73488)->elts[2];
c_73929.elts[3] = ((closureN)self_73488)->elts[3];
c_73929.elts[4] = ((closureN)self_73488)->elts[4];
c_73929.elts[5] = ((closureN)self_73488)->elts[5];
c_73929.elts[6] = ((closureN)self_73488)->elts[6];
c_73929.elts[7] = ((closureN)self_73488)->elts[7];
c_73929.elts[8] = ((closureN)self_73488)->elts[8];
c_73929.elts[9] = ((closureN)self_73488)->elts[9];
c_73929.elts[10] = ((closureN)self_73488)->elts[10];

return_closcall2(data,  __glo_global_91vars,  &c_73929, cell_get(((closureN)self_73488)->elts[2]));; 
}

static void __lambda_108(void *data, int argc, object self_73489, object r_73264) {
  
closureN_type c_73931;
c_73931.hdr.mark = gc_color_red;
 c_73931.hdr.grayed = 0;
c_73931.tag = closureN_tag;
 c_73931.fn = (function_type)__lambda_107;
c_73931.num_args = 1;
c_73931.num_elt = 11;
c_73931.elts = (object *)alloca(sizeof(object) * 11);
c_73931.elts[0] = ((closureN)self_73489)->elts[0];
c_73931.elts[1] = ((closureN)self_73489)->elts[1];
c_73931.elts[2] = ((closureN)self_73489)->elts[2];
c_73931.elts[3] = ((closureN)self_73489)->elts[3];
c_73931.elts[4] = ((closureN)self_73489)->elts[4];
c_73931.elts[5] = ((closureN)self_73489)->elts[5];
c_73931.elts[6] = ((closureN)self_73489)->elts[6];
c_73931.elts[7] = ((closureN)self_73489)->elts[7];
c_73931.elts[8] = ((closureN)self_73489)->elts[8];
c_73931.elts[9] = ((closureN)self_73489)->elts[9];
c_73931.elts[10] = ((closureN)self_73489)->elts[10];

return_closcall1(data,(closure)&c_73931,  Cyc_set_car(data, ((closureN)self_73489)->elts[7], r_73264));; 
}

static void __lambda_107(void *data, int argc, object self_73490, object r_73207) {
  
closureN_type c_73933;
c_73933.hdr.mark = gc_color_red;
 c_73933.hdr.grayed = 0;
c_73933.tag = closureN_tag;
 c_73933.fn = (function_type)__lambda_106;
c_73933.num_args = 1;
c_73933.num_elt = 11;
c_73933.elts = (object *)alloca(sizeof(object) * 11);
c_73933.elts[0] = ((closureN)self_73490)->elts[0];
c_73933.elts[1] = ((closureN)self_73490)->elts[1];
c_73933.elts[2] = ((closureN)self_73490)->elts[2];
c_73933.elts[3] = ((closureN)self_73490)->elts[3];
c_73933.elts[4] = ((closureN)self_73490)->elts[4];
c_73933.elts[5] = ((closureN)self_73490)->elts[5];
c_73933.elts[6] = ((closureN)self_73490)->elts[6];
c_73933.elts[7] = ((closureN)self_73490)->elts[7];
c_73933.elts[8] = ((closureN)self_73490)->elts[8];
c_73933.elts[9] = ((closureN)self_73490)->elts[9];
c_73933.elts[10] = ((closureN)self_73490)->elts[10];

return_closcall3(data,  __glo_append,  &c_73933, cell_get(((closureN)self_73490)->elts[1]), cell_get(((closureN)self_73490)->elts[7]));; 
}

static void __lambda_106(void *data, int argc, object self_73491, object r_73263) {
  
closureN_type c_73935;
c_73935.hdr.mark = gc_color_red;
 c_73935.hdr.grayed = 0;
c_73935.tag = closureN_tag;
 c_73935.fn = (function_type)__lambda_105;
c_73935.num_args = 1;
c_73935.num_elt = 11;
c_73935.elts = (object *)alloca(sizeof(object) * 11);
c_73935.elts[0] = ((closureN)self_73491)->elts[0];
c_73935.elts[1] = ((closureN)self_73491)->elts[1];
c_73935.elts[2] = ((closureN)self_73491)->elts[2];
c_73935.elts[3] = ((closureN)self_73491)->elts[3];
c_73935.elts[4] = ((closureN)self_73491)->elts[4];
c_73935.elts[5] = ((closureN)self_73491)->elts[5];
c_73935.elts[6] = ((closureN)self_73491)->elts[6];
c_73935.elts[7] = ((closureN)self_73491)->elts[7];
c_73935.elts[8] = ((closureN)self_73491)->elts[8];
c_73935.elts[9] = ((closureN)self_73491)->elts[9];
c_73935.elts[10] = ((closureN)self_73491)->elts[10];

return_closcall1(data,(closure)&c_73935,  Cyc_set_car(data, ((closureN)self_73491)->elts[0], r_73263));; 
}

static void __lambda_105(void *data, int argc, object self_73492, object r_73208) {
  
closureN_type c_73937;
c_73937.hdr.mark = gc_color_red;
 c_73937.hdr.grayed = 0;
c_73937.tag = closureN_tag;
 c_73937.fn = (function_type)__lambda_103;
c_73937.num_args = 1;
c_73937.num_elt = 11;
c_73937.elts = (object *)alloca(sizeof(object) * 11);
c_73937.elts[0] = ((closureN)self_73492)->elts[0];
c_73937.elts[1] = ((closureN)self_73492)->elts[1];
c_73937.elts[2] = ((closureN)self_73492)->elts[2];
c_73937.elts[3] = ((closureN)self_73492)->elts[3];
c_73937.elts[4] = ((closureN)self_73492)->elts[4];
c_73937.elts[5] = ((closureN)self_73492)->elts[5];
c_73937.elts[6] = ((closureN)self_73492)->elts[6];
c_73937.elts[7] = ((closureN)self_73492)->elts[7];
c_73937.elts[8] = ((closureN)self_73492)->elts[8];
c_73937.elts[9] = ((closureN)self_73492)->elts[9];
c_73937.elts[10] = ((closureN)self_73492)->elts[10];


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_104;
c_731212.num_args = 1;
c_731212.num_elt = 2;
c_731212.elts = (object *)alloca(sizeof(object) * 2);
c_731212.elts[0] = ((closureN)self_73492)->elts[0];
c_731212.elts[1] = ((closureN)self_73492)->elts[9];

return_closcall1(data,(closure)&c_73937,  &c_731212);; 
}

static void __lambda_104(void *data, int argc, object self_73493, object k_73262, object expr_7393) {
  return_closcall4(data,  __glo_alpha_91convert,  k_73262, expr_7393, cell_get(((closureN)self_73493)->elts[0]), ((closureN)self_73493)->elts[1]);; 
}

static void __lambda_103(void *data, int argc, object self_73494, object r_73261) {
  
closureN_type c_73939;
c_73939.hdr.mark = gc_color_red;
 c_73939.hdr.grayed = 0;
c_73939.tag = closureN_tag;
 c_73939.fn = (function_type)__lambda_102;
c_73939.num_args = 1;
c_73939.num_elt = 11;
c_73939.elts = (object *)alloca(sizeof(object) * 11);
c_73939.elts[0] = ((closureN)self_73494)->elts[0];
c_73939.elts[1] = ((closureN)self_73494)->elts[1];
c_73939.elts[2] = ((closureN)self_73494)->elts[2];
c_73939.elts[3] = ((closureN)self_73494)->elts[3];
c_73939.elts[4] = ((closureN)self_73494)->elts[4];
c_73939.elts[5] = ((closureN)self_73494)->elts[5];
c_73939.elts[6] = ((closureN)self_73494)->elts[6];
c_73939.elts[7] = ((closureN)self_73494)->elts[7];
c_73939.elts[8] = ((closureN)self_73494)->elts[8];
c_73939.elts[9] = ((closureN)self_73494)->elts[9];
c_73939.elts[10] = ((closureN)self_73494)->elts[10];

return_closcall3(data,  __glo_map,  &c_73939, r_73261, cell_get(((closureN)self_73494)->elts[2]));; 
}

static void __lambda_102(void *data, int argc, object self_73495, object r_73260) {
  
closureN_type c_73941;
c_73941.hdr.mark = gc_color_red;
 c_73941.hdr.grayed = 0;
c_73941.tag = closureN_tag;
 c_73941.fn = (function_type)__lambda_101;
c_73941.num_args = 1;
c_73941.num_elt = 11;
c_73941.elts = (object *)alloca(sizeof(object) * 11);
c_73941.elts[0] = ((closureN)self_73495)->elts[0];
c_73941.elts[1] = ((closureN)self_73495)->elts[1];
c_73941.elts[2] = ((closureN)self_73495)->elts[2];
c_73941.elts[3] = ((closureN)self_73495)->elts[3];
c_73941.elts[4] = ((closureN)self_73495)->elts[4];
c_73941.elts[5] = ((closureN)self_73495)->elts[5];
c_73941.elts[6] = ((closureN)self_73495)->elts[6];
c_73941.elts[7] = ((closureN)self_73495)->elts[7];
c_73941.elts[8] = ((closureN)self_73495)->elts[8];
c_73941.elts[9] = ((closureN)self_73495)->elts[9];
c_73941.elts[10] = ((closureN)self_73495)->elts[10];

return_closcall1(data,(closure)&c_73941,  Cyc_set_car(data, ((closureN)self_73495)->elts[2], r_73260));; 
}

static void __lambda_101(void *data, int argc, object self_73496, object r_73209) {
  
closureN_type c_73943;
c_73943.hdr.mark = gc_color_red;
 c_73943.hdr.grayed = 0;
c_73943.tag = closureN_tag;
 c_73943.fn = (function_type)__lambda_100;
c_73943.num_args = 1;
c_73943.num_elt = 11;
c_73943.elts = (object *)alloca(sizeof(object) * 11);
c_73943.elts[0] = ((closureN)self_73496)->elts[0];
c_73943.elts[1] = ((closureN)self_73496)->elts[1];
c_73943.elts[2] = ((closureN)self_73496)->elts[2];
c_73943.elts[3] = ((closureN)self_73496)->elts[3];
c_73943.elts[4] = ((closureN)self_73496)->elts[4];
c_73943.elts[5] = ((closureN)self_73496)->elts[5];
c_73943.elts[6] = ((closureN)self_73496)->elts[6];
c_73943.elts[7] = ((closureN)self_73496)->elts[7];
c_73943.elts[8] = ((closureN)self_73496)->elts[8];
c_73943.elts[9] = ((closureN)self_73496)->elts[9];
c_73943.elts[10] = ((closureN)self_73496)->elts[10];


make_string(c_731205, "---------------- after alpha conversion:");
return_closcall2(data,  __glo_trace_117info,  &c_73943, &c_731205);; 
}

static void __lambda_100(void *data, int argc, object self_73497, object r_73210) {
  
closureN_type c_73945;
c_73945.hdr.mark = gc_color_red;
 c_73945.hdr.grayed = 0;
c_73945.tag = closureN_tag;
 c_73945.fn = (function_type)__lambda_99;
c_73945.num_args = 1;
c_73945.num_elt = 11;
c_73945.elts = (object *)alloca(sizeof(object) * 11);
c_73945.elts[0] = ((closureN)self_73497)->elts[0];
c_73945.elts[1] = ((closureN)self_73497)->elts[1];
c_73945.elts[2] = ((closureN)self_73497)->elts[2];
c_73945.elts[3] = ((closureN)self_73497)->elts[3];
c_73945.elts[4] = ((closureN)self_73497)->elts[4];
c_73945.elts[5] = ((closureN)self_73497)->elts[5];
c_73945.elts[6] = ((closureN)self_73497)->elts[6];
c_73945.elts[7] = ((closureN)self_73497)->elts[7];
c_73945.elts[8] = ((closureN)self_73497)->elts[8];
c_73945.elts[9] = ((closureN)self_73497)->elts[9];
c_73945.elts[10] = ((closureN)self_73497)->elts[10];

return_closcall2(data,  __glo_trace_117info,  &c_73945, cell_get(((closureN)self_73497)->elts[2]));; 
}

static void __lambda_99(void *data, int argc, object self_73498, object r_73211) {
  
closureN_type c_73947;
c_73947.hdr.mark = gc_color_red;
 c_73947.hdr.grayed = 0;
c_73947.tag = closureN_tag;
 c_73947.fn = (function_type)__lambda_97;
c_73947.num_args = 1;
c_73947.num_elt = 11;
c_73947.elts = (object *)alloca(sizeof(object) * 11);
c_73947.elts[0] = ((closureN)self_73498)->elts[0];
c_73947.elts[1] = ((closureN)self_73498)->elts[1];
c_73947.elts[2] = ((closureN)self_73498)->elts[2];
c_73947.elts[3] = ((closureN)self_73498)->elts[3];
c_73947.elts[4] = ((closureN)self_73498)->elts[4];
c_73947.elts[5] = ((closureN)self_73498)->elts[5];
c_73947.elts[6] = ((closureN)self_73498)->elts[6];
c_73947.elts[7] = ((closureN)self_73498)->elts[7];
c_73947.elts[8] = ((closureN)self_73498)->elts[8];
c_73947.elts[9] = ((closureN)self_73498)->elts[9];
c_73947.elts[10] = ((closureN)self_73498)->elts[10];


mclosure0(c_731200, (function_type)__lambda_98);c_731200.num_args = 1;
return_closcall1(data,(closure)&c_73947,  &c_731200);; 
}

static void __lambda_98(void *data, int argc, object self_73499, object k_73259, object expr_7391) {
  return_closcall2(data,  __glo_cps_91convert,  k_73259, expr_7391);; 
}

static void __lambda_97(void *data, int argc, object self_73500, object r_73258) {
  
closureN_type c_73949;
c_73949.hdr.mark = gc_color_red;
 c_73949.hdr.grayed = 0;
c_73949.tag = closureN_tag;
 c_73949.fn = (function_type)__lambda_96;
c_73949.num_args = 1;
c_73949.num_elt = 11;
c_73949.elts = (object *)alloca(sizeof(object) * 11);
c_73949.elts[0] = ((closureN)self_73500)->elts[0];
c_73949.elts[1] = ((closureN)self_73500)->elts[1];
c_73949.elts[2] = ((closureN)self_73500)->elts[2];
c_73949.elts[3] = ((closureN)self_73500)->elts[3];
c_73949.elts[4] = ((closureN)self_73500)->elts[4];
c_73949.elts[5] = ((closureN)self_73500)->elts[5];
c_73949.elts[6] = ((closureN)self_73500)->elts[6];
c_73949.elts[7] = ((closureN)self_73500)->elts[7];
c_73949.elts[8] = ((closureN)self_73500)->elts[8];
c_73949.elts[9] = ((closureN)self_73500)->elts[9];
c_73949.elts[10] = ((closureN)self_73500)->elts[10];

return_closcall3(data,  __glo_map,  &c_73949, r_73258, cell_get(((closureN)self_73500)->elts[2]));; 
}

static void __lambda_96(void *data, int argc, object self_73501, object r_73245) {
  
closureN_type c_73951;
c_73951.hdr.mark = gc_color_red;
 c_73951.hdr.grayed = 0;
c_73951.tag = closureN_tag;
 c_73951.fn = (function_type)__lambda_95;
c_73951.num_args = 1;
c_73951.num_elt = 11;
c_73951.elts = (object *)alloca(sizeof(object) * 11);
c_73951.elts[0] = ((closureN)self_73501)->elts[0];
c_73951.elts[1] = ((closureN)self_73501)->elts[1];
c_73951.elts[2] = ((closureN)self_73501)->elts[2];
c_73951.elts[3] = ((closureN)self_73501)->elts[3];
c_73951.elts[4] = ((closureN)self_73501)->elts[4];
c_73951.elts[5] = ((closureN)self_73501)->elts[5];
c_73951.elts[6] = ((closureN)self_73501)->elts[6];
c_73951.elts[7] = ((closureN)self_73501)->elts[7];
c_73951.elts[8] = ((closureN)self_73501)->elts[8];
c_73951.elts[9] = ((closureN)self_73501)->elts[9];
c_73951.elts[10] = ((closureN)self_73501)->elts[10];

return_closcall1(data,(closure)&c_73951,  r_73245);; 
}

static void __lambda_95(void *data, int argc, object self_73502, object cps_7392) {
  
closureN_type c_73953;
c_73953.hdr.mark = gc_color_red;
 c_73953.hdr.grayed = 0;
c_73953.tag = closureN_tag;
 c_73953.fn = (function_type)__lambda_57;
c_73953.num_args = 0;
c_73953.num_elt = 5;
c_73953.elts = (object *)alloca(sizeof(object) * 5);
c_73953.elts[0] = cps_7392;
c_73953.elts[1] = ((closureN)self_73502)->elts[0];
c_73953.elts[2] = ((closureN)self_73502)->elts[2];
c_73953.elts[3] = ((closureN)self_73502)->elts[6];
c_73953.elts[4] = ((closureN)self_73502)->elts[7];


closureN_type c_731036;
c_731036.hdr.mark = gc_color_red;
 c_731036.hdr.grayed = 0;
c_731036.tag = closureN_tag;
 c_731036.fn = (function_type)__lambda_94;
c_731036.num_args = 1;
c_731036.num_elt = 11;
c_731036.elts = (object *)alloca(sizeof(object) * 11);
c_731036.elts[0] = ((closureN)self_73502)->elts[0];
c_731036.elts[1] = ((closureN)self_73502)->elts[1];
c_731036.elts[2] = ((closureN)self_73502)->elts[2];
c_731036.elts[3] = ((closureN)self_73502)->elts[3];
c_731036.elts[4] = ((closureN)self_73502)->elts[4];
c_731036.elts[5] = ((closureN)self_73502)->elts[5];
c_731036.elts[6] = ((closureN)self_73502)->elts[6];
c_731036.elts[7] = ((closureN)self_73502)->elts[7];
c_731036.elts[8] = ((closureN)self_73502)->elts[8];
c_731036.elts[9] = ((closureN)self_73502)->elts[9];
c_731036.elts[10] = ((closureN)self_73502)->elts[10];

return_closcall1(data,(closure)&c_73953,  &c_731036);; 
}

static void __lambda_94(void *data, int argc, object self_73503, object r_73212) {
  
closureN_type c_731038;
c_731038.hdr.mark = gc_color_red;
 c_731038.hdr.grayed = 0;
c_731038.tag = closureN_tag;
 c_731038.fn = (function_type)__lambda_93;
c_731038.num_args = 1;
c_731038.num_elt = 11;
c_731038.elts = (object *)alloca(sizeof(object) * 11);
c_731038.elts[0] = ((closureN)self_73503)->elts[0];
c_731038.elts[1] = ((closureN)self_73503)->elts[1];
c_731038.elts[2] = ((closureN)self_73503)->elts[2];
c_731038.elts[3] = ((closureN)self_73503)->elts[3];
c_731038.elts[4] = ((closureN)self_73503)->elts[4];
c_731038.elts[5] = ((closureN)self_73503)->elts[5];
c_731038.elts[6] = ((closureN)self_73503)->elts[6];
c_731038.elts[7] = ((closureN)self_73503)->elts[7];
c_731038.elts[8] = ((closureN)self_73503)->elts[8];
c_731038.elts[9] = ((closureN)self_73503)->elts[9];
c_731038.elts[10] = ((closureN)self_73503)->elts[10];


make_string(c_731196, "---------------- after CPS:");
return_closcall2(data,  __glo_trace_117info,  &c_731038, &c_731196);; 
}

static void __lambda_93(void *data, int argc, object self_73504, object r_73213) {
  
closureN_type c_731040;
c_731040.hdr.mark = gc_color_red;
 c_731040.hdr.grayed = 0;
c_731040.tag = closureN_tag;
 c_731040.fn = (function_type)__lambda_92;
c_731040.num_args = 1;
c_731040.num_elt = 11;
c_731040.elts = (object *)alloca(sizeof(object) * 11);
c_731040.elts[0] = ((closureN)self_73504)->elts[0];
c_731040.elts[1] = ((closureN)self_73504)->elts[1];
c_731040.elts[2] = ((closureN)self_73504)->elts[2];
c_731040.elts[3] = ((closureN)self_73504)->elts[3];
c_731040.elts[4] = ((closureN)self_73504)->elts[4];
c_731040.elts[5] = ((closureN)self_73504)->elts[5];
c_731040.elts[6] = ((closureN)self_73504)->elts[6];
c_731040.elts[7] = ((closureN)self_73504)->elts[7];
c_731040.elts[8] = ((closureN)self_73504)->elts[8];
c_731040.elts[9] = ((closureN)self_73504)->elts[9];
c_731040.elts[10] = ((closureN)self_73504)->elts[10];

return_closcall2(data,  __glo_trace_117info,  &c_731040, cell_get(((closureN)self_73504)->elts[2]));; 
}

static void __lambda_92(void *data, int argc, object self_73505, object r_73214) {
  
closureN_type c_731042;
c_731042.hdr.mark = gc_color_red;
 c_731042.hdr.grayed = 0;
c_731042.tag = closureN_tag;
 c_731042.fn = (function_type)__lambda_88;
c_731042.num_args = 1;
c_731042.num_elt = 11;
c_731042.elts = (object *)alloca(sizeof(object) * 11);
c_731042.elts[0] = ((closureN)self_73505)->elts[0];
c_731042.elts[1] = ((closureN)self_73505)->elts[1];
c_731042.elts[2] = ((closureN)self_73505)->elts[2];
c_731042.elts[3] = ((closureN)self_73505)->elts[3];
c_731042.elts[4] = ((closureN)self_73505)->elts[4];
c_731042.elts[5] = ((closureN)self_73505)->elts[5];
c_731042.elts[6] = ((closureN)self_73505)->elts[6];
c_731042.elts[7] = ((closureN)self_73505)->elts[7];
c_731042.elts[8] = ((closureN)self_73505)->elts[8];
c_731042.elts[9] = ((closureN)self_73505)->elts[9];
c_731042.elts[10] = ((closureN)self_73505)->elts[10];


closureN_type c_731181;
c_731181.hdr.mark = gc_color_red;
 c_731181.hdr.grayed = 0;
c_731181.tag = closureN_tag;
 c_731181.fn = (function_type)__lambda_91;
c_731181.num_args = 1;
c_731181.num_elt = 1;
c_731181.elts = (object *)alloca(sizeof(object) * 1);
c_731181.elts[0] = ((closureN)self_73505)->elts[0];

return_closcall1(data,(closure)&c_731042,  &c_731181);; 
}

static void __lambda_91(void *data, int argc, object self_73506, object k_73242, object expr_7390) {
  
closureN_type c_731183;
c_731183.hdr.mark = gc_color_red;
 c_731183.hdr.grayed = 0;
c_731183.tag = closureN_tag;
 c_731183.fn = (function_type)__lambda_90;
c_731183.num_args = 1;
c_731183.num_elt = 3;
c_731183.elts = (object *)alloca(sizeof(object) * 3);
c_731183.elts[0] = expr_7390;
c_731183.elts[1] = ((closureN)self_73506)->elts[0];
c_731183.elts[2] = k_73242;

return_closcall1(data,  __glo_clear_91mutables,  &c_731183);; 
}

static void __lambda_90(void *data, int argc, object self_73507, object r_73243) {
  
closureN_type c_731185;
c_731185.hdr.mark = gc_color_red;
 c_731185.hdr.grayed = 0;
c_731185.tag = closureN_tag;
 c_731185.fn = (function_type)__lambda_89;
c_731185.num_args = 1;
c_731185.num_elt = 3;
c_731185.elts = (object *)alloca(sizeof(object) * 3);
c_731185.elts[0] = ((closureN)self_73507)->elts[0];
c_731185.elts[1] = ((closureN)self_73507)->elts[1];
c_731185.elts[2] = ((closureN)self_73507)->elts[2];

return_closcall2(data,  __glo_analyze_91mutable_91variables,  &c_731185, ((closureN)self_73507)->elts[0]);; 
}

static void __lambda_89(void *data, int argc, object self_73508, object r_73244) {
  return_closcall3(data,  __glo_wrap_91mutables,  ((closureN)self_73508)->elts[2], ((closureN)self_73508)->elts[0], cell_get(((closureN)self_73508)->elts[1]));; 
}

static void __lambda_88(void *data, int argc, object self_73509, object r_73241) {
  
closureN_type c_731044;
c_731044.hdr.mark = gc_color_red;
 c_731044.hdr.grayed = 0;
c_731044.tag = closureN_tag;
 c_731044.fn = (function_type)__lambda_87;
c_731044.num_args = 1;
c_731044.num_elt = 11;
c_731044.elts = (object *)alloca(sizeof(object) * 11);
c_731044.elts[0] = ((closureN)self_73509)->elts[0];
c_731044.elts[1] = ((closureN)self_73509)->elts[1];
c_731044.elts[2] = ((closureN)self_73509)->elts[2];
c_731044.elts[3] = ((closureN)self_73509)->elts[3];
c_731044.elts[4] = ((closureN)self_73509)->elts[4];
c_731044.elts[5] = ((closureN)self_73509)->elts[5];
c_731044.elts[6] = ((closureN)self_73509)->elts[6];
c_731044.elts[7] = ((closureN)self_73509)->elts[7];
c_731044.elts[8] = ((closureN)self_73509)->elts[8];
c_731044.elts[9] = ((closureN)self_73509)->elts[9];
c_731044.elts[10] = ((closureN)self_73509)->elts[10];

return_closcall3(data,  __glo_map,  &c_731044, r_73241, cell_get(((closureN)self_73509)->elts[2]));; 
}

static void __lambda_87(void *data, int argc, object self_73510, object r_73240) {
  
closureN_type c_731046;
c_731046.hdr.mark = gc_color_red;
 c_731046.hdr.grayed = 0;
c_731046.tag = closureN_tag;
 c_731046.fn = (function_type)__lambda_86;
c_731046.num_args = 1;
c_731046.num_elt = 11;
c_731046.elts = (object *)alloca(sizeof(object) * 11);
c_731046.elts[0] = ((closureN)self_73510)->elts[0];
c_731046.elts[1] = ((closureN)self_73510)->elts[1];
c_731046.elts[2] = ((closureN)self_73510)->elts[2];
c_731046.elts[3] = ((closureN)self_73510)->elts[3];
c_731046.elts[4] = ((closureN)self_73510)->elts[4];
c_731046.elts[5] = ((closureN)self_73510)->elts[5];
c_731046.elts[6] = ((closureN)self_73510)->elts[6];
c_731046.elts[7] = ((closureN)self_73510)->elts[7];
c_731046.elts[8] = ((closureN)self_73510)->elts[8];
c_731046.elts[9] = ((closureN)self_73510)->elts[9];
c_731046.elts[10] = ((closureN)self_73510)->elts[10];

return_closcall1(data,(closure)&c_731046,  Cyc_set_car(data, ((closureN)self_73510)->elts[2], r_73240));; 
}

static void __lambda_86(void *data, int argc, object self_73511, object r_73215) {
  
closureN_type c_731048;
c_731048.hdr.mark = gc_color_red;
 c_731048.hdr.grayed = 0;
c_731048.tag = closureN_tag;
 c_731048.fn = (function_type)__lambda_85;
c_731048.num_args = 1;
c_731048.num_elt = 11;
c_731048.elts = (object *)alloca(sizeof(object) * 11);
c_731048.elts[0] = ((closureN)self_73511)->elts[0];
c_731048.elts[1] = ((closureN)self_73511)->elts[1];
c_731048.elts[2] = ((closureN)self_73511)->elts[2];
c_731048.elts[3] = ((closureN)self_73511)->elts[3];
c_731048.elts[4] = ((closureN)self_73511)->elts[4];
c_731048.elts[5] = ((closureN)self_73511)->elts[5];
c_731048.elts[6] = ((closureN)self_73511)->elts[6];
c_731048.elts[7] = ((closureN)self_73511)->elts[7];
c_731048.elts[8] = ((closureN)self_73511)->elts[8];
c_731048.elts[9] = ((closureN)self_73511)->elts[9];
c_731048.elts[10] = ((closureN)self_73511)->elts[10];


make_string(c_731174, "---------------- after wrap-mutables:");
return_closcall2(data,  __glo_trace_117info,  &c_731048, &c_731174);; 
}

static void __lambda_85(void *data, int argc, object self_73512, object r_73216) {
  
closureN_type c_731050;
c_731050.hdr.mark = gc_color_red;
 c_731050.hdr.grayed = 0;
c_731050.tag = closureN_tag;
 c_731050.fn = (function_type)__lambda_84;
c_731050.num_args = 1;
c_731050.num_elt = 11;
c_731050.elts = (object *)alloca(sizeof(object) * 11);
c_731050.elts[0] = ((closureN)self_73512)->elts[0];
c_731050.elts[1] = ((closureN)self_73512)->elts[1];
c_731050.elts[2] = ((closureN)self_73512)->elts[2];
c_731050.elts[3] = ((closureN)self_73512)->elts[3];
c_731050.elts[4] = ((closureN)self_73512)->elts[4];
c_731050.elts[5] = ((closureN)self_73512)->elts[5];
c_731050.elts[6] = ((closureN)self_73512)->elts[6];
c_731050.elts[7] = ((closureN)self_73512)->elts[7];
c_731050.elts[8] = ((closureN)self_73512)->elts[8];
c_731050.elts[9] = ((closureN)self_73512)->elts[9];
c_731050.elts[10] = ((closureN)self_73512)->elts[10];

return_closcall2(data,  __glo_trace_117info,  &c_731050, cell_get(((closureN)self_73512)->elts[2]));; 
}

static void __lambda_84(void *data, int argc, object self_73513, object r_73217) {
  
closureN_type c_731052;
c_731052.hdr.mark = gc_color_red;
 c_731052.hdr.grayed = 0;
c_731052.tag = closureN_tag;
 c_731052.fn = (function_type)__lambda_70;
c_731052.num_args = 1;
c_731052.num_elt = 10;
c_731052.elts = (object *)alloca(sizeof(object) * 10);
c_731052.elts[0] = ((closureN)self_73513)->elts[1];
c_731052.elts[1] = ((closureN)self_73513)->elts[2];
c_731052.elts[2] = ((closureN)self_73513)->elts[3];
c_731052.elts[3] = ((closureN)self_73513)->elts[4];
c_731052.elts[4] = ((closureN)self_73513)->elts[5];
c_731052.elts[5] = ((closureN)self_73513)->elts[6];
c_731052.elts[6] = ((closureN)self_73513)->elts[7];
c_731052.elts[7] = ((closureN)self_73513)->elts[8];
c_731052.elts[8] = ((closureN)self_73513)->elts[9];
c_731052.elts[9] = ((closureN)self_73513)->elts[10];


closureN_type c_731117;
c_731117.hdr.mark = gc_color_red;
 c_731117.hdr.grayed = 0;
c_731117.tag = closureN_tag;
 c_731117.fn = (function_type)__lambda_83;
c_731117.num_args = 1;
c_731117.num_elt = 1;
c_731117.elts = (object *)alloca(sizeof(object) * 1);
c_731117.elts[0] = ((closureN)self_73513)->elts[0];

return_closcall1(data,(closure)&c_731052,  &c_731117);; 
}

static void __lambda_83(void *data, int argc, object self_73514, object k_73230, object expr_7389) {
  
closureN_type c_731119;
c_731119.hdr.mark = gc_color_red;
 c_731119.hdr.grayed = 0;
c_731119.tag = closureN_tag;
 c_731119.fn = (function_type)__lambda_82;
c_731119.num_args = 1;
c_731119.num_elt = 3;
c_731119.elts = (object *)alloca(sizeof(object) * 3);
c_731119.elts[0] = expr_7389;
c_731119.elts[1] = ((closureN)self_73514)->elts[0];
c_731119.elts[2] = k_73230;

return_closcall2(data,  __glo_define_127,  &c_731119, expr_7389);; 
}

static void __lambda_82(void *data, int argc, object self_73515, object r_73231) {
  if( !eq(boolean_f, r_73231) ){ 
  
closureN_type c_731121;
c_731121.hdr.mark = gc_color_red;
 c_731121.hdr.grayed = 0;
c_731121.tag = closureN_tag;
 c_731121.fn = (function_type)__lambda_77;
c_731121.num_args = 0;
c_731121.num_elt = 3;
c_731121.elts = (object *)alloca(sizeof(object) * 3);
c_731121.elts[0] = ((closureN)self_73515)->elts[0];
c_731121.elts[1] = ((closureN)self_73515)->elts[1];
c_731121.elts[2] = ((closureN)self_73515)->elts[2];

return_closcall0(data,(closure)&c_731121);
} else { 
  
closureN_type c_731152;
c_731152.hdr.mark = gc_color_red;
 c_731152.hdr.grayed = 0;
c_731152.tag = closureN_tag;
 c_731152.fn = (function_type)__lambda_81;
c_731152.num_args = 1;
c_731152.num_elt = 3;
c_731152.elts = (object *)alloca(sizeof(object) * 3);
c_731152.elts[0] = ((closureN)self_73515)->elts[0];
c_731152.elts[1] = ((closureN)self_73515)->elts[1];
c_731152.elts[2] = ((closureN)self_73515)->elts[2];

return_closcall2(data,  __glo_define_91c_127,  &c_731152, ((closureN)self_73515)->elts[0]);}
; 
}

static void __lambda_81(void *data, int argc, object self_73516, object r_73238) {
  if( !eq(boolean_f, r_73238) ){ 
  
closureN_type c_731154;
c_731154.hdr.mark = gc_color_red;
 c_731154.hdr.grayed = 0;
c_731154.tag = closureN_tag;
 c_731154.fn = (function_type)__lambda_78;
c_731154.num_args = 0;
c_731154.num_elt = 2;
c_731154.elts = (object *)alloca(sizeof(object) * 2);
c_731154.elts[0] = ((closureN)self_73516)->elts[0];
c_731154.elts[1] = ((closureN)self_73516)->elts[2];

return_closcall0(data,(closure)&c_731154);
} else { 
  
closureN_type c_731159;
c_731159.hdr.mark = gc_color_red;
 c_731159.hdr.grayed = 0;
c_731159.tag = closureN_tag;
 c_731159.fn = (function_type)__lambda_80;
c_731159.num_args = 0;
c_731159.num_elt = 3;
c_731159.elts = (object *)alloca(sizeof(object) * 3);
c_731159.elts[0] = ((closureN)self_73516)->elts[0];
c_731159.elts[1] = ((closureN)self_73516)->elts[1];
c_731159.elts[2] = ((closureN)self_73516)->elts[2];

return_closcall0(data,(closure)&c_731159);}
; 
}

static void __lambda_80(void *data, int argc, object self_73517) {
  
closureN_type c_731161;
c_731161.hdr.mark = gc_color_red;
 c_731161.hdr.grayed = 0;
c_731161.tag = closureN_tag;
 c_731161.fn = (function_type)__lambda_79;
c_731161.num_args = 1;
c_731161.num_elt = 1;
c_731161.elts = (object *)alloca(sizeof(object) * 1);
c_731161.elts[0] = ((closureN)self_73517)->elts[2];

return_closcall3(data,  __glo_closure_91convert,  &c_731161, ((closureN)self_73517)->elts[0], cell_get(((closureN)self_73517)->elts[1]));; 
}

static void __lambda_79(void *data, int argc, object self_73518, object r_73239) {
  return_closcall1(data,  ((closureN)self_73518)->elts[0],  caddr(r_73239));; 
}

static void __lambda_78(void *data, int argc, object self_73519) {
  return_closcall1(data,  ((closureN)self_73519)->elts[1],  ((closureN)self_73519)->elts[0]);; 
}

static void __lambda_77(void *data, int argc, object self_73520) {
  
closureN_type c_731123;
c_731123.hdr.mark = gc_color_red;
 c_731123.hdr.grayed = 0;
c_731123.tag = closureN_tag;
 c_731123.fn = (function_type)__lambda_76;
c_731123.num_args = 1;
c_731123.num_elt = 3;
c_731123.elts = (object *)alloca(sizeof(object) * 3);
c_731123.elts[0] = ((closureN)self_73520)->elts[0];
c_731123.elts[1] = ((closureN)self_73520)->elts[1];
c_731123.elts[2] = ((closureN)self_73520)->elts[2];

return_closcall1(data,(closure)&c_731123,  quote_define);; 
}

static void __lambda_76(void *data, int argc, object self_73521, object r_73232) {
  
closureN_type c_731125;
c_731125.hdr.mark = gc_color_red;
 c_731125.hdr.grayed = 0;
c_731125.tag = closureN_tag;
 c_731125.fn = (function_type)__lambda_75;
c_731125.num_args = 1;
c_731125.num_elt = 4;
c_731125.elts = (object *)alloca(sizeof(object) * 4);
c_731125.elts[0] = ((closureN)self_73521)->elts[0];
c_731125.elts[1] = ((closureN)self_73521)->elts[1];
c_731125.elts[2] = ((closureN)self_73521)->elts[2];
c_731125.elts[3] = r_73232;

return_closcall2(data,  __glo_define_91_125var,  &c_731125, ((closureN)self_73521)->elts[0]);; 
}

static void __lambda_75(void *data, int argc, object self_73522, object r_73234) {
  
closureN_type c_731127;
c_731127.hdr.mark = gc_color_red;
 c_731127.hdr.grayed = 0;
c_731127.tag = closureN_tag;
 c_731127.fn = (function_type)__lambda_74;
c_731127.num_args = 1;
c_731127.num_elt = 4;
c_731127.elts = (object *)alloca(sizeof(object) * 4);
c_731127.elts[0] = ((closureN)self_73522)->elts[1];
c_731127.elts[1] = ((closureN)self_73522)->elts[2];
c_731127.elts[2] = ((closureN)self_73522)->elts[3];
c_731127.elts[3] = r_73234;

return_closcall2(data,  __glo_define_91_125exp,  &c_731127, ((closureN)self_73522)->elts[0]);; 
}

static void __lambda_74(void *data, int argc, object self_73523, object r_73237) {
  
closureN_type c_731129;
c_731129.hdr.mark = gc_color_red;
 c_731129.hdr.grayed = 0;
c_731129.tag = closureN_tag;
 c_731129.fn = (function_type)__lambda_73;
c_731129.num_args = 1;
c_731129.num_elt = 3;
c_731129.elts = (object *)alloca(sizeof(object) * 3);
c_731129.elts[0] = ((closureN)self_73523)->elts[1];
c_731129.elts[1] = ((closureN)self_73523)->elts[2];
c_731129.elts[2] = ((closureN)self_73523)->elts[3];

return_closcall3(data,  __glo_closure_91convert,  &c_731129, r_73237, cell_get(((closureN)self_73523)->elts[0]));; 
}

static void __lambda_73(void *data, int argc, object self_73524, object r_73236) {
  
closureN_type c_731131;
c_731131.hdr.mark = gc_color_red;
 c_731131.hdr.grayed = 0;
c_731131.tag = closureN_tag;
 c_731131.fn = (function_type)__lambda_72;
c_731131.num_args = 1;
c_731131.num_elt = 3;
c_731131.elts = (object *)alloca(sizeof(object) * 3);
c_731131.elts[0] = ((closureN)self_73524)->elts[0];
c_731131.elts[1] = ((closureN)self_73524)->elts[1];
c_731131.elts[2] = ((closureN)self_73524)->elts[2];

return_closcall1(data,(closure)&c_731131,  caddr(r_73236));; 
}

static void __lambda_72(void *data, int argc, object self_73525, object r_73235) {
  
closureN_type c_731133;
c_731133.hdr.mark = gc_color_red;
 c_731133.hdr.grayed = 0;
c_731133.tag = closureN_tag;
 c_731133.fn = (function_type)__lambda_71;
c_731133.num_args = 1;
c_731133.num_elt = 2;
c_731133.elts = (object *)alloca(sizeof(object) * 2);
c_731133.elts[0] = ((closureN)self_73525)->elts[0];
c_731133.elts[1] = ((closureN)self_73525)->elts[1];


make_cons(c_731142,((closureN)self_73525)->elts[2], r_73235);
return_closcall1(data,(closure)&c_731133,  &c_731142);; 
}

static void __lambda_71(void *data, int argc, object self_73526, object r_73233) {
  
make_cons(c_731138,((closureN)self_73526)->elts[1], r_73233);
return_closcall1(data,  ((closureN)self_73526)->elts[0],  &c_731138);; 
}

static void __lambda_70(void *data, int argc, object self_73527, object r_73229) {
  
closureN_type c_731054;
c_731054.hdr.mark = gc_color_red;
 c_731054.hdr.grayed = 0;
c_731054.tag = closureN_tag;
 c_731054.fn = (function_type)__lambda_69;
c_731054.num_args = 1;
c_731054.num_elt = 10;
c_731054.elts = (object *)alloca(sizeof(object) * 10);
c_731054.elts[0] = ((closureN)self_73527)->elts[0];
c_731054.elts[1] = ((closureN)self_73527)->elts[1];
c_731054.elts[2] = ((closureN)self_73527)->elts[2];
c_731054.elts[3] = ((closureN)self_73527)->elts[3];
c_731054.elts[4] = ((closureN)self_73527)->elts[4];
c_731054.elts[5] = ((closureN)self_73527)->elts[5];
c_731054.elts[6] = ((closureN)self_73527)->elts[6];
c_731054.elts[7] = ((closureN)self_73527)->elts[7];
c_731054.elts[8] = ((closureN)self_73527)->elts[8];
c_731054.elts[9] = ((closureN)self_73527)->elts[9];

return_closcall3(data,  __glo_map,  &c_731054, r_73229, cell_get(((closureN)self_73527)->elts[1]));; 
}

static void __lambda_69(void *data, int argc, object self_73528, object r_73228) {
  
closureN_type c_731056;
c_731056.hdr.mark = gc_color_red;
 c_731056.hdr.grayed = 0;
c_731056.tag = closureN_tag;
 c_731056.fn = (function_type)__lambda_68;
c_731056.num_args = 1;
c_731056.num_elt = 10;
c_731056.elts = (object *)alloca(sizeof(object) * 10);
c_731056.elts[0] = ((closureN)self_73528)->elts[0];
c_731056.elts[1] = ((closureN)self_73528)->elts[1];
c_731056.elts[2] = ((closureN)self_73528)->elts[2];
c_731056.elts[3] = ((closureN)self_73528)->elts[3];
c_731056.elts[4] = ((closureN)self_73528)->elts[4];
c_731056.elts[5] = ((closureN)self_73528)->elts[5];
c_731056.elts[6] = ((closureN)self_73528)->elts[6];
c_731056.elts[7] = ((closureN)self_73528)->elts[7];
c_731056.elts[8] = ((closureN)self_73528)->elts[8];
c_731056.elts[9] = ((closureN)self_73528)->elts[9];

return_closcall1(data,(closure)&c_731056,  Cyc_set_car(data, ((closureN)self_73528)->elts[1], r_73228));; 
}

static void __lambda_68(void *data, int argc, object self_73529, object r_73218) {
  
closureN_type c_731058;
c_731058.hdr.mark = gc_color_red;
 c_731058.hdr.grayed = 0;
c_731058.tag = closureN_tag;
 c_731058.fn = (function_type)__lambda_67;
c_731058.num_args = 1;
c_731058.num_elt = 10;
c_731058.elts = (object *)alloca(sizeof(object) * 10);
c_731058.elts[0] = ((closureN)self_73529)->elts[0];
c_731058.elts[1] = ((closureN)self_73529)->elts[1];
c_731058.elts[2] = ((closureN)self_73529)->elts[2];
c_731058.elts[3] = ((closureN)self_73529)->elts[3];
c_731058.elts[4] = ((closureN)self_73529)->elts[4];
c_731058.elts[5] = ((closureN)self_73529)->elts[5];
c_731058.elts[6] = ((closureN)self_73529)->elts[6];
c_731058.elts[7] = ((closureN)self_73529)->elts[7];
c_731058.elts[8] = ((closureN)self_73529)->elts[8];
c_731058.elts[9] = ((closureN)self_73529)->elts[9];


make_string(c_731110, "---------------- after closure-convert:");
return_closcall2(data,  __glo_trace_117info,  &c_731058, &c_731110);; 
}

static void __lambda_67(void *data, int argc, object self_73530, object r_73219) {
  
closureN_type c_731060;
c_731060.hdr.mark = gc_color_red;
 c_731060.hdr.grayed = 0;
c_731060.tag = closureN_tag;
 c_731060.fn = (function_type)__lambda_66;
c_731060.num_args = 1;
c_731060.num_elt = 10;
c_731060.elts = (object *)alloca(sizeof(object) * 10);
c_731060.elts[0] = ((closureN)self_73530)->elts[0];
c_731060.elts[1] = ((closureN)self_73530)->elts[1];
c_731060.elts[2] = ((closureN)self_73530)->elts[2];
c_731060.elts[3] = ((closureN)self_73530)->elts[3];
c_731060.elts[4] = ((closureN)self_73530)->elts[4];
c_731060.elts[5] = ((closureN)self_73530)->elts[5];
c_731060.elts[6] = ((closureN)self_73530)->elts[6];
c_731060.elts[7] = ((closureN)self_73530)->elts[7];
c_731060.elts[8] = ((closureN)self_73530)->elts[8];
c_731060.elts[9] = ((closureN)self_73530)->elts[9];

return_closcall2(data,  __glo_trace_117info,  &c_731060, cell_get(((closureN)self_73530)->elts[1]));; 
}

static void __lambda_66(void *data, int argc, object self_73531, object r_73220) {
  closureN_type c_731076;
c_731076.hdr.mark = gc_color_red;
 c_731076.hdr.grayed = 0;
c_731076.tag = closureN_tag;
 c_731076.fn = (function_type)__lambda_65;
c_731076.num_args = 1;
c_731076.num_elt = 10;
c_731076.elts = (object *)alloca(sizeof(object) * 10);
c_731076.elts[0] = ((closureN)self_73531)->elts[0];
c_731076.elts[1] = ((closureN)self_73531)->elts[1];
c_731076.elts[2] = ((closureN)self_73531)->elts[2];
c_731076.elts[3] = ((closureN)self_73531)->elts[3];
c_731076.elts[4] = ((closureN)self_73531)->elts[4];
c_731076.elts[5] = ((closureN)self_73531)->elts[5];
c_731076.elts[6] = ((closureN)self_73531)->elts[6];
c_731076.elts[7] = ((closureN)self_73531)->elts[7];
c_731076.elts[8] = ((closureN)self_73531)->elts[8];
c_731076.elts[9] = ((closureN)self_73531)->elts[9];

return_direct1(data,__lambda_61,&c_731076);; 
}

static void __lambda_65(void *data, int argc, object self_73532, object r_73221) {
  
closureN_type c_731078;
c_731078.hdr.mark = gc_color_red;
 c_731078.hdr.grayed = 0;
c_731078.tag = closureN_tag;
 c_731078.fn = (function_type)__lambda_64;
c_731078.num_args = 1;
c_731078.num_elt = 10;
c_731078.elts = (object *)alloca(sizeof(object) * 10);
c_731078.elts[0] = ((closureN)self_73532)->elts[0];
c_731078.elts[1] = ((closureN)self_73532)->elts[1];
c_731078.elts[2] = ((closureN)self_73532)->elts[2];
c_731078.elts[3] = ((closureN)self_73532)->elts[3];
c_731078.elts[4] = ((closureN)self_73532)->elts[4];
c_731078.elts[5] = ((closureN)self_73532)->elts[5];
c_731078.elts[6] = ((closureN)self_73532)->elts[6];
c_731078.elts[7] = ((closureN)self_73532)->elts[7];
c_731078.elts[8] = ((closureN)self_73532)->elts[8];
c_731078.elts[9] = ((closureN)self_73532)->elts[9];


make_string(c_731106, "---------------- C code:");
return_closcall2(data,  __glo_trace_117info,  &c_731078, &c_731106);; 
}

static void __lambda_64(void *data, int argc, object self_73533, object r_73222) {
  
closureN_type c_731080;
c_731080.hdr.mark = gc_color_red;
 c_731080.hdr.grayed = 0;
c_731080.tag = closureN_tag;
 c_731080.fn = (function_type)__lambda_63;
c_731080.num_args = 1;
c_731080.num_elt = 2;
c_731080.elts = (object *)alloca(sizeof(object) * 2);
c_731080.elts[0] = ((closureN)self_73533)->elts[2];
c_731080.elts[1] = ((closureN)self_73533)->elts[8];

return_closcall9(data,  __glo_mta_117code_91gen,  &c_731080, cell_get(((closureN)self_73533)->elts[1]), cell_get(((closureN)self_73533)->elts[7]), cell_get(((closureN)self_73533)->elts[5]), cell_get(((closureN)self_73533)->elts[4]), cell_get(((closureN)self_73533)->elts[0]), cell_get(((closureN)self_73533)->elts[6]), ((closureN)self_73533)->elts[3], ((closureN)self_73533)->elts[9]);; 
}

static void __lambda_63(void *data, int argc, object self_73534, object r_73223) {
  
closureN_type c_731082;
c_731082.hdr.mark = gc_color_red;
 c_731082.hdr.grayed = 0;
c_731082.tag = closureN_tag;
 c_731082.fn = (function_type)__lambda_62;
c_731082.num_args = 1;
c_731082.num_elt = 2;
c_731082.elts = (object *)alloca(sizeof(object) * 2);
c_731082.elts[0] = ((closureN)self_73534)->elts[0];
c_731082.elts[1] = ((closureN)self_73534)->elts[1];

return_closcall1(data,(closure)&c_731082,  nil);; 
}

static void __lambda_62(void *data, int argc, object self_73535, object r_73224) {
  return_closcall2(data,  ((closureN)self_73535)->elts[1],  ((closureN)self_73535)->elts[0], r_73224);; 
}

static void __lambda_61(void *data, int argc, closure _,object k_73225) {
  Cyc_st_add(data, "cyclone.scm:c-compile-and-emit");

closureN_type c_731063;
c_731063.hdr.mark = gc_color_red;
 c_731063.hdr.grayed = 0;
c_731063.tag = closureN_tag;
 c_731063.fn = (function_type)__lambda_60;
c_731063.num_args = 1;
c_731063.num_elt = 1;
c_731063.elts = (object *)alloca(sizeof(object) * 1);
c_731063.elts[0] = k_73225;

return_closcall2(data,  __glo_not,  &c_731063, __glo__85do_91code_91gen_85);; 
}

static void __lambda_60(void *data, int argc, object self_73536, object r_73226) {
  if( !eq(boolean_f, r_73226) ){ 
  
closureN_type c_731065;
c_731065.hdr.mark = gc_color_red;
 c_731065.hdr.grayed = 0;
c_731065.tag = closureN_tag;
 c_731065.fn = (function_type)__lambda_59;
c_731065.num_args = 0;
c_731065.num_elt = 1;
c_731065.elts = (object *)alloca(sizeof(object) * 1);
c_731065.elts[0] = ((closureN)self_73536)->elts[0];

return_closcall0(data,(closure)&c_731065);
} else { 
  return_closcall1(data,  ((closureN)self_73536)->elts[0],  boolean_f);}
; 
}

static void __lambda_59(void *data, int argc, object self_73537) {
  
closureN_type c_731067;
c_731067.hdr.mark = gc_color_red;
 c_731067.hdr.grayed = 0;
c_731067.tag = closureN_tag;
 c_731067.fn = (function_type)__lambda_58;
c_731067.num_args = 1;
c_731067.num_elt = 1;
c_731067.elts = (object *)alloca(sizeof(object) * 1);
c_731067.elts[0] = ((closureN)self_73537)->elts[0];


make_string(c_731073, "DEBUG, existing program");
return_closcall2(data,  __glo_trace_117error,  &c_731067, &c_731073);; 
}

static void __lambda_58(void *data, int argc, object self_73538, object r_73227) {
  
make_int(c_731072, 0);
return_closcall1(data,  ((closureN)self_73538)->elts[0],  __halt(&c_731072));; 
}

static void __lambda_57(void *data, int argc, object self_73539, object k_73246) {
  
closureN_type c_73955;
c_73955.hdr.mark = gc_color_red;
 c_73955.hdr.grayed = 0;
c_73955.tag = closureN_tag;
 c_73955.fn = (function_type)__lambda_45;
c_73955.num_args = 0;
c_73955.num_elt = 1;
c_73955.elts = (object *)alloca(sizeof(object) * 1);
c_73955.elts[0] = ((closureN)self_73539)->elts[3];


closureN_type c_73968;
c_73968.hdr.mark = gc_color_red;
 c_73968.hdr.grayed = 0;
c_73968.tag = closureN_tag;
 c_73968.fn = (function_type)__lambda_56;
c_73968.num_args = 1;
c_73968.num_elt = 5;
c_73968.elts = (object *)alloca(sizeof(object) * 5);
c_73968.elts[0] = ((closureN)self_73539)->elts[0];
c_73968.elts[1] = ((closureN)self_73539)->elts[1];
c_73968.elts[2] = ((closureN)self_73539)->elts[2];
c_73968.elts[3] = k_73246;
c_73968.elts[4] = ((closureN)self_73539)->elts[4];

return_closcall1(data,(closure)&c_73955,  &c_73968);; 
}

static void __lambda_56(void *data, int argc, object self_73540, object r_73247) {
  if( !eq(boolean_f, r_73247) ){ 
  
closureN_type c_73970;
c_73970.hdr.mark = gc_color_red;
 c_73970.hdr.grayed = 0;
c_73970.tag = closureN_tag;
 c_73970.fn = (function_type)__lambda_54;
c_73970.num_args = 0;
c_73970.num_elt = 5;
c_73970.elts = (object *)alloca(sizeof(object) * 5);
c_73970.elts[0] = ((closureN)self_73540)->elts[0];
c_73970.elts[1] = ((closureN)self_73540)->elts[1];
c_73970.elts[2] = ((closureN)self_73540)->elts[2];
c_73970.elts[3] = ((closureN)self_73540)->elts[3];
c_73970.elts[4] = ((closureN)self_73540)->elts[4];

return_closcall0(data,(closure)&c_73970);
} else { 
  
closureN_type c_731029;
c_731029.hdr.mark = gc_color_red;
 c_731029.hdr.grayed = 0;
c_731029.tag = closureN_tag;
 c_731029.fn = (function_type)__lambda_55;
c_731029.num_args = 0;
c_731029.num_elt = 3;
c_731029.elts = (object *)alloca(sizeof(object) * 3);
c_731029.elts[0] = ((closureN)self_73540)->elts[0];
c_731029.elts[1] = ((closureN)self_73540)->elts[2];
c_731029.elts[2] = ((closureN)self_73540)->elts[3];

return_closcall0(data,(closure)&c_731029);}
; 
}

static void __lambda_55(void *data, int argc, object self_73541) {
  return_closcall1(data,  ((closureN)self_73541)->elts[2],  Cyc_set_car(data, ((closureN)self_73541)->elts[1], ((closureN)self_73541)->elts[0]));; 
}

static void __lambda_54(void *data, int argc, object self_73542) {
  
closureN_type c_73972;
c_73972.hdr.mark = gc_color_red;
 c_73972.hdr.grayed = 0;
c_73972.tag = closureN_tag;
 c_73972.fn = (function_type)__lambda_53;
c_73972.num_args = 1;
c_73972.num_elt = 5;
c_73972.elts = (object *)alloca(sizeof(object) * 5);
c_73972.elts[0] = ((closureN)self_73542)->elts[0];
c_73972.elts[1] = ((closureN)self_73542)->elts[1];
c_73972.elts[2] = ((closureN)self_73542)->elts[2];
c_73972.elts[3] = ((closureN)self_73542)->elts[3];
c_73972.elts[4] = ((closureN)self_73542)->elts[4];


make_cons(c_731027,quote_call_95cc,nil);
return_closcall1(data,(closure)&c_73972,  &c_731027);; 
}

static void __lambda_53(void *data, int argc, object self_73543, object r_73255) {
  
closureN_type c_73974;
c_73974.hdr.mark = gc_color_red;
 c_73974.hdr.grayed = 0;
c_73974.tag = closureN_tag;
 c_73974.fn = (function_type)__lambda_52;
c_73974.num_args = 1;
c_73974.num_elt = 5;
c_73974.elts = (object *)alloca(sizeof(object) * 5);
c_73974.elts[0] = ((closureN)self_73543)->elts[0];
c_73974.elts[1] = ((closureN)self_73543)->elts[1];
c_73974.elts[2] = ((closureN)self_73543)->elts[2];
c_73974.elts[3] = ((closureN)self_73543)->elts[3];
c_73974.elts[4] = ((closureN)self_73543)->elts[4];

return_closcall3(data,  __glo_append,  &c_73974, r_73255, cell_get(((closureN)self_73543)->elts[1]));; 
}

static void __lambda_52(void *data, int argc, object self_73544, object r_73254) {
  
closureN_type c_73976;
c_73976.hdr.mark = gc_color_red;
 c_73976.hdr.grayed = 0;
c_73976.tag = closureN_tag;
 c_73976.fn = (function_type)__lambda_51;
c_73976.num_args = 1;
c_73976.num_elt = 4;
c_73976.elts = (object *)alloca(sizeof(object) * 4);
c_73976.elts[0] = ((closureN)self_73544)->elts[0];
c_73976.elts[1] = ((closureN)self_73544)->elts[2];
c_73976.elts[2] = ((closureN)self_73544)->elts[3];
c_73976.elts[3] = ((closureN)self_73544)->elts[4];

return_closcall1(data,(closure)&c_73976,  Cyc_set_car(data, ((closureN)self_73544)->elts[1], r_73254));; 
}

static void __lambda_51(void *data, int argc, object self_73545, object r_73248) {
  
closureN_type c_73978;
c_73978.hdr.mark = gc_color_red;
 c_73978.hdr.grayed = 0;
c_73978.tag = closureN_tag;
 c_73978.fn = (function_type)__lambda_50;
c_73978.num_args = 1;
c_73978.num_elt = 4;
c_73978.elts = (object *)alloca(sizeof(object) * 4);
c_73978.elts[0] = ((closureN)self_73545)->elts[0];
c_73978.elts[1] = ((closureN)self_73545)->elts[1];
c_73978.elts[2] = ((closureN)self_73545)->elts[2];
c_73978.elts[3] = ((closureN)self_73545)->elts[3];


make_cons(c_731020,quote_call_95cc,nil);
return_closcall1(data,(closure)&c_73978,  &c_731020);; 
}

static void __lambda_50(void *data, int argc, object self_73546, object r_73253) {
  
closureN_type c_73980;
c_73980.hdr.mark = gc_color_red;
 c_73980.hdr.grayed = 0;
c_73980.tag = closureN_tag;
 c_73980.fn = (function_type)__lambda_49;
c_73980.num_args = 1;
c_73980.num_elt = 4;
c_73980.elts = (object *)alloca(sizeof(object) * 4);
c_73980.elts[0] = ((closureN)self_73546)->elts[0];
c_73980.elts[1] = ((closureN)self_73546)->elts[1];
c_73980.elts[2] = ((closureN)self_73546)->elts[2];
c_73980.elts[3] = ((closureN)self_73546)->elts[3];

return_closcall3(data,  __glo_append,  &c_73980, r_73253, cell_get(((closureN)self_73546)->elts[3]));; 
}

static void __lambda_49(void *data, int argc, object self_73547, object r_73252) {
  
closureN_type c_73982;
c_73982.hdr.mark = gc_color_red;
 c_73982.hdr.grayed = 0;
c_73982.tag = closureN_tag;
 c_73982.fn = (function_type)__lambda_48;
c_73982.num_args = 1;
c_73982.num_elt = 3;
c_73982.elts = (object *)alloca(sizeof(object) * 3);
c_73982.elts[0] = ((closureN)self_73547)->elts[0];
c_73982.elts[1] = ((closureN)self_73547)->elts[1];
c_73982.elts[2] = ((closureN)self_73547)->elts[2];

return_closcall1(data,(closure)&c_73982,  Cyc_set_car(data, ((closureN)self_73547)->elts[3], r_73252));; 
}

static void __lambda_48(void *data, int argc, object self_73548, object r_73249) {
  
closureN_type c_73984;
c_73984.hdr.mark = gc_color_red;
 c_73984.hdr.grayed = 0;
c_73984.tag = closureN_tag;
 c_73984.fn = (function_type)__lambda_47;
c_73984.num_args = 1;
c_73984.num_elt = 3;
c_73984.elts = (object *)alloca(sizeof(object) * 3);
c_73984.elts[0] = ((closureN)self_73548)->elts[0];
c_73984.elts[1] = ((closureN)self_73548)->elts[1];
c_73984.elts[2] = ((closureN)self_73548)->elts[2];


make_cons(c_731002,quote_f,nil);

make_cons(c_731001,quote_k,&c_731002);

make_cons(c_731010,quote_result,nil);

make_cons(c_731009,quote__191,&c_731010);

make_cons(c_731013,quote_result,nil);

make_cons(c_731012,quote_k,&c_731013);

make_cons(c_731011,&c_731012,nil);

make_cons(c_731008,&c_731009,&c_731011);

make_cons(c_731007,quote_lambda,&c_731008);

make_cons(c_731006,&c_731007,nil);

make_cons(c_731005,quote_k,&c_731006);

make_cons(c_731004,quote_f,&c_731005);

make_cons(c_731003,&c_731004,nil);

make_cons(c_731000,&c_731001,&c_731003);

make_cons(c_73999,quote_lambda,&c_731000);

make_cons(c_73998,&c_73999,nil);

make_cons(c_73997,quote_call_95cc,&c_73998);

make_cons(c_73996,quote_define,&c_73997);
return_closcall1(data,(closure)&c_73984,  &c_73996);; 
}

static void __lambda_47(void *data, int argc, object self_73549, object r_73251) {
  
closureN_type c_73986;
c_73986.hdr.mark = gc_color_red;
 c_73986.hdr.grayed = 0;
c_73986.tag = closureN_tag;
 c_73986.fn = (function_type)__lambda_46;
c_73986.num_args = 1;
c_73986.num_elt = 2;
c_73986.elts = (object *)alloca(sizeof(object) * 2);
c_73986.elts[0] = ((closureN)self_73549)->elts[1];
c_73986.elts[1] = ((closureN)self_73549)->elts[2];


make_cons(c_73994,r_73251, ((closureN)self_73549)->elts[0]);
return_closcall1(data,(closure)&c_73986,  &c_73994);; 
}

static void __lambda_46(void *data, int argc, object self_73550, object r_73250) {
  return_closcall1(data,  ((closureN)self_73550)->elts[1],  Cyc_set_car(data, ((closureN)self_73550)->elts[0], r_73250));; 
}

static void __lambda_45(void *data, int argc, object self_73551, object k_73256) {
  if( !eq(boolean_f, __glo_library_127) ){ 
  
closureN_type c_73957;
c_73957.hdr.mark = gc_color_red;
 c_73957.hdr.grayed = 0;
c_73957.tag = closureN_tag;
 c_73957.fn = (function_type)__lambda_44;
c_73957.num_args = 1;
c_73957.num_elt = 2;
c_73957.elts = (object *)alloca(sizeof(object) * 2);
c_73957.elts[0] = k_73256;
c_73957.elts[1] = ((closureN)self_73551)->elts[0];


make_cons(c_73966,quote_base,nil);

make_cons(c_73965,quote_scheme,&c_73966);
return_closcall1(data,(closure)&c_73957,  &c_73965);
} else { 
  return_closcall1(data,  k_73256,  boolean_f);}
; 
}

static void __lambda_44(void *data, int argc, object self_73552, object r_73257) {
  return_closcall1(data,  ((closureN)self_73552)->elts[0],  equalp(cell_get(((closureN)self_73552)->elts[1]), r_73257));; 
}

static void __lambda_43(void *data, int argc, object self_73553, object k_73265) {
  
closureN_type c_73900;
c_73900.hdr.mark = gc_color_red;
 c_73900.hdr.grayed = 0;
c_73900.tag = closureN_tag;
 c_73900.fn = (function_type)__lambda_42;
c_73900.num_args = 1;
c_73900.num_elt = 3;
c_73900.elts = (object *)alloca(sizeof(object) * 3);
c_73900.elts[0] = ((closureN)self_73553)->elts[0];
c_73900.elts[1] = k_73265;
c_73900.elts[2] = ((closureN)self_73553)->elts[1];

return_closcall1(data,(closure)&c_73900,  quote_eval);; 
}

static void __lambda_42(void *data, int argc, object self_73554, object r_73269) {
  
closureN_type c_73902;
c_73902.hdr.mark = gc_color_red;
 c_73902.hdr.grayed = 0;
c_73902.tag = closureN_tag;
 c_73902.fn = (function_type)__lambda_41;
c_73902.num_args = 1;
c_73902.num_elt = 3;
c_73902.elts = (object *)alloca(sizeof(object) * 3);
c_73902.elts[0] = ((closureN)self_73554)->elts[0];
c_73902.elts[1] = ((closureN)self_73554)->elts[1];
c_73902.elts[2] = ((closureN)self_73554)->elts[2];

return_closcall3(data,  __glo_has_91global_127,  &c_73902, cell_get(((closureN)self_73554)->elts[0]), r_73269);; 
}

static void __lambda_41(void *data, int argc, object self_73555, object r_73268) {
  
closureN_type c_73904;
c_73904.hdr.mark = gc_color_red;
 c_73904.hdr.grayed = 0;
c_73904.tag = closureN_tag;
 c_73904.fn = (function_type)__lambda_40;
c_73904.num_args = 1;
c_73904.num_elt = 3;
c_73904.elts = (object *)alloca(sizeof(object) * 3);
c_73904.elts[0] = ((closureN)self_73555)->elts[0];
c_73904.elts[1] = ((closureN)self_73555)->elts[1];
c_73904.elts[2] = ((closureN)self_73555)->elts[2];

return_closcall2(data,  __glo_not,  &c_73904, r_73268);; 
}

static void __lambda_40(void *data, int argc, object self_73556, object r_73266) {
  if( !eq(boolean_f, r_73266) ){ 
  
closureN_type c_73906;
c_73906.hdr.mark = gc_color_red;
 c_73906.hdr.grayed = 0;
c_73906.tag = closureN_tag;
 c_73906.fn = (function_type)__lambda_39;
c_73906.num_args = 1;
c_73906.num_elt = 2;
c_73906.elts = (object *)alloca(sizeof(object) * 2);
c_73906.elts[0] = ((closureN)self_73556)->elts[0];
c_73906.elts[1] = ((closureN)self_73556)->elts[1];

return_closcall3(data,  __glo_filter_91unused_91variables,  &c_73906, cell_get(((closureN)self_73556)->elts[0]), cell_get(((closureN)self_73556)->elts[2]));
} else { 
  return_closcall1(data,  ((closureN)self_73556)->elts[1],  boolean_f);}
; 
}

static void __lambda_39(void *data, int argc, object self_73557, object r_73267) {
  return_closcall1(data,  ((closureN)self_73557)->elts[1],  Cyc_set_car(data, ((closureN)self_73557)->elts[0], r_73267));; 
}

static void __lambda_38(void *data, int argc, object self_73558, object k_73274) {
  if( !eq(boolean_f, cell_get(((closureN)self_73558)->elts[0])) ){ 
  return_closcall1(data,  k_73274,  __glo_expand_91lambda_91body);
} else { 
  return_closcall1(data,  k_73274,  __glo_expand);}
; 
}

static void __lambda_37(void *data, int argc, object self_73559, object k_73290) {
  
closureN_type c_73658;
c_73658.hdr.mark = gc_color_red;
 c_73658.hdr.grayed = 0;
c_73658.tag = closureN_tag;
 c_73658.fn = (function_type)__lambda_36;
c_73658.num_args = 1;
c_73658.num_elt = 6;
c_73658.elts = (object *)alloca(sizeof(object) * 6);
c_73658.elts[0] = ((closureN)self_73559)->elts[0];
c_73658.elts[1] = ((closureN)self_73559)->elts[1];
c_73658.elts[2] = k_73290;
c_73658.elts[3] = ((closureN)self_73559)->elts[2];
c_73658.elts[4] = ((closureN)self_73559)->elts[3];
c_73658.elts[5] = ((closureN)self_73559)->elts[4];

return_closcall1(data,(closure)&c_73658,  car(cell_get(((closureN)self_73559)->elts[1])));; 
}

static void __lambda_36(void *data, int argc, object self_73560, object r_73323) {
  
closureN_type c_73660;
c_73660.hdr.mark = gc_color_red;
 c_73660.hdr.grayed = 0;
c_73660.tag = closureN_tag;
 c_73660.fn = (function_type)__lambda_35;
c_73660.num_args = 1;
c_73660.num_elt = 6;
c_73660.elts = (object *)alloca(sizeof(object) * 6);
c_73660.elts[0] = ((closureN)self_73560)->elts[0];
c_73660.elts[1] = ((closureN)self_73560)->elts[1];
c_73660.elts[2] = ((closureN)self_73560)->elts[2];
c_73660.elts[3] = ((closureN)self_73560)->elts[3];
c_73660.elts[4] = ((closureN)self_73560)->elts[4];
c_73660.elts[5] = ((closureN)self_73560)->elts[5];

return_closcall2(data,  __glo_library_127,  &c_73660, r_73323);; 
}

static void __lambda_35(void *data, int argc, object self_73561, object r_73291) {
  if( !eq(boolean_f, r_73291) ){ 
  
closureN_type c_73662;
c_73662.hdr.mark = gc_color_red;
 c_73662.hdr.grayed = 0;
c_73662.tag = closureN_tag;
 c_73662.fn = (function_type)__lambda_27;
c_73662.num_args = 0;
c_73662.num_elt = 6;
c_73662.elts = (object *)alloca(sizeof(object) * 6);
c_73662.elts[0] = ((closureN)self_73561)->elts[0];
c_73662.elts[1] = ((closureN)self_73561)->elts[1];
c_73662.elts[2] = ((closureN)self_73561)->elts[2];
c_73662.elts[3] = ((closureN)self_73561)->elts[3];
c_73662.elts[4] = ((closureN)self_73561)->elts[4];
c_73662.elts[5] = ((closureN)self_73561)->elts[5];

return_closcall0(data,(closure)&c_73662);
} else { 
  
closureN_type c_73785;
c_73785.hdr.mark = gc_color_red;
 c_73785.hdr.grayed = 0;
c_73785.tag = closureN_tag;
 c_73785.fn = (function_type)__lambda_34;
c_73785.num_args = 1;
c_73785.num_elt = 3;
c_73785.elts = (object *)alloca(sizeof(object) * 3);
c_73785.elts[0] = ((closureN)self_73561)->elts[0];
c_73785.elts[1] = ((closureN)self_73561)->elts[1];
c_73785.elts[2] = ((closureN)self_73561)->elts[2];

return_closcall1(data,(closure)&c_73785,  quote_import);}
; 
}

static void __lambda_34(void *data, int argc, object self_73562, object r_73321) {
  
closureN_type c_73787;
c_73787.hdr.mark = gc_color_red;
 c_73787.hdr.grayed = 0;
c_73787.tag = closureN_tag;
 c_73787.fn = (function_type)__lambda_33;
c_73787.num_args = 1;
c_73787.num_elt = 4;
c_73787.elts = (object *)alloca(sizeof(object) * 4);
c_73787.elts[0] = ((closureN)self_73562)->elts[0];
c_73787.elts[1] = ((closureN)self_73562)->elts[1];
c_73787.elts[2] = ((closureN)self_73562)->elts[2];
c_73787.elts[3] = r_73321;

return_closcall1(data,(closure)&c_73787,  car(cell_get(((closureN)self_73562)->elts[1])));; 
}

static void __lambda_33(void *data, int argc, object self_73563, object r_73322) {
  
closureN_type c_73789;
c_73789.hdr.mark = gc_color_red;
 c_73789.hdr.grayed = 0;
c_73789.tag = closureN_tag;
 c_73789.fn = (function_type)__lambda_32;
c_73789.num_args = 1;
c_73789.num_elt = 3;
c_73789.elts = (object *)alloca(sizeof(object) * 3);
c_73789.elts[0] = ((closureN)self_73563)->elts[0];
c_73789.elts[1] = ((closureN)self_73563)->elts[1];
c_73789.elts[2] = ((closureN)self_73563)->elts[2];

return_closcall3(data,  __glo_tagged_91list_127,  &c_73789, ((closureN)self_73563)->elts[3], r_73322);; 
}

static void __lambda_32(void *data, int argc, object self_73564, object r_73317) {
  if( !eq(boolean_f, r_73317) ){ 
  
closureN_type c_73791;
c_73791.hdr.mark = gc_color_red;
 c_73791.hdr.grayed = 0;
c_73791.tag = closureN_tag;
 c_73791.fn = (function_type)__lambda_31;
c_73791.num_args = 0;
c_73791.num_elt = 3;
c_73791.elts = (object *)alloca(sizeof(object) * 3);
c_73791.elts[0] = ((closureN)self_73564)->elts[0];
c_73791.elts[1] = ((closureN)self_73564)->elts[1];
c_73791.elts[2] = ((closureN)self_73564)->elts[2];

return_closcall0(data,(closure)&c_73791);
} else { 
  return_closcall1(data,  ((closureN)self_73564)->elts[2],  boolean_f);}
; 
}

static void __lambda_31(void *data, int argc, object self_73565) {
  
closureN_type c_73793;
c_73793.hdr.mark = gc_color_red;
 c_73793.hdr.grayed = 0;
c_73793.tag = closureN_tag;
 c_73793.fn = (function_type)__lambda_30;
c_73793.num_args = 1;
c_73793.num_elt = 3;
c_73793.elts = (object *)alloca(sizeof(object) * 3);
c_73793.elts[0] = ((closureN)self_73565)->elts[0];
c_73793.elts[1] = ((closureN)self_73565)->elts[1];
c_73793.elts[2] = ((closureN)self_73565)->elts[2];

return_closcall1(data,(closure)&c_73793,  cdar(cell_get(((closureN)self_73565)->elts[1])));; 
}

static void __lambda_30(void *data, int argc, object self_73566, object r_73320) {
  
closureN_type c_73795;
c_73795.hdr.mark = gc_color_red;
 c_73795.hdr.grayed = 0;
c_73795.tag = closureN_tag;
 c_73795.fn = (function_type)__lambda_29;
c_73795.num_args = 1;
c_73795.num_elt = 2;
c_73795.elts = (object *)alloca(sizeof(object) * 2);
c_73795.elts[0] = ((closureN)self_73566)->elts[1];
c_73795.elts[1] = ((closureN)self_73566)->elts[2];

return_closcall1(data,(closure)&c_73795,  Cyc_set_car(data, ((closureN)self_73566)->elts[0], r_73320));; 
}

static void __lambda_29(void *data, int argc, object self_73567, object r_73318) {
  
closureN_type c_73797;
c_73797.hdr.mark = gc_color_red;
 c_73797.hdr.grayed = 0;
c_73797.tag = closureN_tag;
 c_73797.fn = (function_type)__lambda_28;
c_73797.num_args = 1;
c_73797.num_elt = 2;
c_73797.elts = (object *)alloca(sizeof(object) * 2);
c_73797.elts[0] = ((closureN)self_73567)->elts[0];
c_73797.elts[1] = ((closureN)self_73567)->elts[1];

return_closcall1(data,(closure)&c_73797,  cdr(cell_get(((closureN)self_73567)->elts[0])));; 
}

static void __lambda_28(void *data, int argc, object self_73568, object r_73319) {
  return_closcall1(data,  ((closureN)self_73568)->elts[1],  Cyc_set_car(data, ((closureN)self_73568)->elts[0], r_73319));; 
}

static void __lambda_27(void *data, int argc, object self_73569) {
  
closureN_type c_73664;
c_73664.hdr.mark = gc_color_red;
 c_73664.hdr.grayed = 0;
c_73664.tag = closureN_tag;
 c_73664.fn = (function_type)__lambda_26;
c_73664.num_args = 1;
c_73664.num_elt = 6;
c_73664.elts = (object *)alloca(sizeof(object) * 6);
c_73664.elts[0] = ((closureN)self_73569)->elts[0];
c_73664.elts[1] = ((closureN)self_73569)->elts[1];
c_73664.elts[2] = ((closureN)self_73569)->elts[2];
c_73664.elts[3] = ((closureN)self_73569)->elts[3];
c_73664.elts[4] = ((closureN)self_73569)->elts[4];
c_73664.elts[5] = ((closureN)self_73569)->elts[5];

return_closcall1(data,(closure)&c_73664,  car(cell_get(((closureN)self_73569)->elts[1])));; 
}

static void __lambda_26(void *data, int argc, object self_73570, object r_73316) {
  
closureN_type c_73666;
c_73666.hdr.mark = gc_color_red;
 c_73666.hdr.grayed = 0;
c_73666.tag = closureN_tag;
 c_73666.fn = (function_type)__lambda_25;
c_73666.num_args = 1;
c_73666.num_elt = 6;
c_73666.elts = (object *)alloca(sizeof(object) * 6);
c_73666.elts[0] = ((closureN)self_73570)->elts[0];
c_73666.elts[1] = ((closureN)self_73570)->elts[1];
c_73666.elts[2] = ((closureN)self_73570)->elts[2];
c_73666.elts[3] = ((closureN)self_73570)->elts[3];
c_73666.elts[4] = ((closureN)self_73570)->elts[4];
c_73666.elts[5] = ((closureN)self_73570)->elts[5];

return_closcall2(data,  __glo_lib_117includes,  &c_73666, r_73316);; 
}

static void __lambda_25(void *data, int argc, object self_73571, object r_73292) {
  
closureN_type c_73668;
c_73668.hdr.mark = gc_color_red;
 c_73668.hdr.grayed = 0;
c_73668.tag = closureN_tag;
 c_73668.fn = (function_type)__lambda_24;
c_73668.num_args = 1;
c_73668.num_elt = 6;
c_73668.elts = (object *)alloca(sizeof(object) * 6);
c_73668.elts[0] = ((closureN)self_73571)->elts[0];
c_73668.elts[1] = ((closureN)self_73571)->elts[1];
c_73668.elts[2] = ((closureN)self_73571)->elts[2];
c_73668.elts[3] = ((closureN)self_73571)->elts[3];
c_73668.elts[4] = ((closureN)self_73571)->elts[4];
c_73668.elts[5] = ((closureN)self_73571)->elts[5];

return_closcall1(data,(closure)&c_73668,  r_73292);; 
}

static void __lambda_24(void *data, int argc, object self_73572, object includes_7397) {
  
closureN_type c_73670;
c_73670.hdr.mark = gc_color_red;
 c_73670.hdr.grayed = 0;
c_73670.tag = closureN_tag;
 c_73670.fn = (function_type)__lambda_23;
c_73670.num_args = 1;
c_73670.num_elt = 6;
c_73670.elts = (object *)alloca(sizeof(object) * 6);
c_73670.elts[0] = ((closureN)self_73572)->elts[0];
c_73670.elts[1] = includes_7397;
c_73670.elts[2] = ((closureN)self_73572)->elts[1];
c_73670.elts[3] = ((closureN)self_73572)->elts[2];
c_73670.elts[4] = ((closureN)self_73572)->elts[3];
c_73670.elts[5] = ((closureN)self_73572)->elts[4];

return_closcall1(data,(closure)&c_73670,  Cyc_set_car(data, ((closureN)self_73572)->elts[5], boolean_f));; 
}

static void __lambda_23(void *data, int argc, object self_73573, object r_73293) {
  
closureN_type c_73672;
c_73672.hdr.mark = gc_color_red;
 c_73672.hdr.grayed = 0;
c_73672.tag = closureN_tag;
 c_73672.fn = (function_type)__lambda_22;
c_73672.num_args = 1;
c_73672.num_elt = 6;
c_73672.elts = (object *)alloca(sizeof(object) * 6);
c_73672.elts[0] = ((closureN)self_73573)->elts[0];
c_73672.elts[1] = ((closureN)self_73573)->elts[1];
c_73672.elts[2] = ((closureN)self_73573)->elts[2];
c_73672.elts[3] = ((closureN)self_73573)->elts[3];
c_73672.elts[4] = ((closureN)self_73573)->elts[4];
c_73672.elts[5] = ((closureN)self_73573)->elts[5];

return_closcall1(data,(closure)&c_73672,  car(cell_get(((closureN)self_73573)->elts[2])));; 
}

static void __lambda_22(void *data, int argc, object self_73574, object r_73315) {
  
closureN_type c_73674;
c_73674.hdr.mark = gc_color_red;
 c_73674.hdr.grayed = 0;
c_73674.tag = closureN_tag;
 c_73674.fn = (function_type)__lambda_21;
c_73674.num_args = 1;
c_73674.num_elt = 6;
c_73674.elts = (object *)alloca(sizeof(object) * 6);
c_73674.elts[0] = ((closureN)self_73574)->elts[0];
c_73674.elts[1] = ((closureN)self_73574)->elts[1];
c_73674.elts[2] = ((closureN)self_73574)->elts[2];
c_73674.elts[3] = ((closureN)self_73574)->elts[3];
c_73674.elts[4] = ((closureN)self_73574)->elts[4];
c_73674.elts[5] = ((closureN)self_73574)->elts[5];

return_closcall2(data,  __glo_lib_117name,  &c_73674, r_73315);; 
}

static void __lambda_21(void *data, int argc, object self_73575, object r_73314) {
  
closureN_type c_73676;
c_73676.hdr.mark = gc_color_red;
 c_73676.hdr.grayed = 0;
c_73676.tag = closureN_tag;
 c_73676.fn = (function_type)__lambda_20;
c_73676.num_args = 1;
c_73676.num_elt = 6;
c_73676.elts = (object *)alloca(sizeof(object) * 6);
c_73676.elts[0] = ((closureN)self_73575)->elts[0];
c_73676.elts[1] = ((closureN)self_73575)->elts[1];
c_73676.elts[2] = ((closureN)self_73575)->elts[2];
c_73676.elts[3] = ((closureN)self_73575)->elts[3];
c_73676.elts[4] = ((closureN)self_73575)->elts[4];
c_73676.elts[5] = ((closureN)self_73575)->elts[5];

return_closcall1(data,(closure)&c_73676,  Cyc_set_car(data, ((closureN)self_73575)->elts[5], r_73314));; 
}

static void __lambda_20(void *data, int argc, object self_73576, object r_73294) {
  
closureN_type c_73678;
c_73678.hdr.mark = gc_color_red;
 c_73678.hdr.grayed = 0;
c_73678.tag = closureN_tag;
 c_73678.fn = (function_type)__lambda_19;
c_73678.num_args = 1;
c_73678.num_elt = 6;
c_73678.elts = (object *)alloca(sizeof(object) * 6);
c_73678.elts[0] = ((closureN)self_73576)->elts[0];
c_73678.elts[1] = ((closureN)self_73576)->elts[1];
c_73678.elts[2] = ((closureN)self_73576)->elts[2];
c_73678.elts[3] = ((closureN)self_73576)->elts[3];
c_73678.elts[4] = ((closureN)self_73576)->elts[4];
c_73678.elts[5] = ((closureN)self_73576)->elts[5];

return_closcall2(data,  __glo_lib_117name_91_125symbol,  &c_73678, cell_get(((closureN)self_73576)->elts[5]));; 
}

static void __lambda_19(void *data, int argc, object self_73577, object r_73311) {
  
closureN_type c_73680;
c_73680.hdr.mark = gc_color_red;
 c_73680.hdr.grayed = 0;
c_73680.tag = closureN_tag;
 c_73680.fn = (function_type)__lambda_18;
c_73680.num_args = 1;
c_73680.num_elt = 7;
c_73680.elts = (object *)alloca(sizeof(object) * 7);
c_73680.elts[0] = ((closureN)self_73577)->elts[0];
c_73680.elts[1] = ((closureN)self_73577)->elts[1];
c_73680.elts[2] = ((closureN)self_73577)->elts[2];
c_73680.elts[3] = ((closureN)self_73577)->elts[3];
c_73680.elts[4] = ((closureN)self_73577)->elts[4];
c_73680.elts[5] = ((closureN)self_73577)->elts[5];
c_73680.elts[6] = r_73311;

return_closcall1(data,(closure)&c_73680,  car(cell_get(((closureN)self_73577)->elts[2])));; 
}

static void __lambda_18(void *data, int argc, object self_73578, object r_73313) {
  
closureN_type c_73682;
c_73682.hdr.mark = gc_color_red;
 c_73682.hdr.grayed = 0;
c_73682.tag = closureN_tag;
 c_73682.fn = (function_type)__lambda_17;
c_73682.num_args = 1;
c_73682.num_elt = 7;
c_73682.elts = (object *)alloca(sizeof(object) * 7);
c_73682.elts[0] = ((closureN)self_73578)->elts[0];
c_73682.elts[1] = ((closureN)self_73578)->elts[1];
c_73682.elts[2] = ((closureN)self_73578)->elts[2];
c_73682.elts[3] = ((closureN)self_73578)->elts[3];
c_73682.elts[4] = ((closureN)self_73578)->elts[4];
c_73682.elts[5] = ((closureN)self_73578)->elts[5];
c_73682.elts[6] = ((closureN)self_73578)->elts[6];

return_closcall2(data,  __glo_lib_117exports,  &c_73682, r_73313);; 
}

static void __lambda_17(void *data, int argc, object self_73579, object r_73312) {
  
closureN_type c_73684;
c_73684.hdr.mark = gc_color_red;
 c_73684.hdr.grayed = 0;
c_73684.tag = closureN_tag;
 c_73684.fn = (function_type)__lambda_16;
c_73684.num_args = 1;
c_73684.num_elt = 6;
c_73684.elts = (object *)alloca(sizeof(object) * 6);
c_73684.elts[0] = ((closureN)self_73579)->elts[0];
c_73684.elts[1] = ((closureN)self_73579)->elts[1];
c_73684.elts[2] = ((closureN)self_73579)->elts[2];
c_73684.elts[3] = ((closureN)self_73579)->elts[3];
c_73684.elts[4] = ((closureN)self_73579)->elts[4];
c_73684.elts[5] = ((closureN)self_73579)->elts[5];


make_cons(c_73758,((closureN)self_73579)->elts[6], r_73312);
return_closcall1(data,(closure)&c_73684,  &c_73758);; 
}

static void __lambda_16(void *data, int argc, object self_73580, object r_73310) {
  
closureN_type c_73686;
c_73686.hdr.mark = gc_color_red;
 c_73686.hdr.grayed = 0;
c_73686.tag = closureN_tag;
 c_73686.fn = (function_type)__lambda_15;
c_73686.num_args = 1;
c_73686.num_elt = 5;
c_73686.elts = (object *)alloca(sizeof(object) * 5);
c_73686.elts[0] = ((closureN)self_73580)->elts[0];
c_73686.elts[1] = ((closureN)self_73580)->elts[1];
c_73686.elts[2] = ((closureN)self_73580)->elts[2];
c_73686.elts[3] = ((closureN)self_73580)->elts[3];
c_73686.elts[4] = ((closureN)self_73580)->elts[5];

return_closcall1(data,(closure)&c_73686,  Cyc_set_car(data, ((closureN)self_73580)->elts[4], r_73310));; 
}

static void __lambda_15(void *data, int argc, object self_73581, object r_73295) {
  
closureN_type c_73688;
c_73688.hdr.mark = gc_color_red;
 c_73688.hdr.grayed = 0;
c_73688.tag = closureN_tag;
 c_73688.fn = (function_type)__lambda_14;
c_73688.num_args = 1;
c_73688.num_elt = 5;
c_73688.elts = (object *)alloca(sizeof(object) * 5);
c_73688.elts[0] = ((closureN)self_73581)->elts[0];
c_73688.elts[1] = ((closureN)self_73581)->elts[1];
c_73688.elts[2] = ((closureN)self_73581)->elts[2];
c_73688.elts[3] = ((closureN)self_73581)->elts[3];
c_73688.elts[4] = ((closureN)self_73581)->elts[4];

return_closcall1(data,(closure)&c_73688,  car(cell_get(((closureN)self_73581)->elts[2])));; 
}

static void __lambda_14(void *data, int argc, object self_73582, object r_73309) {
  
closureN_type c_73690;
c_73690.hdr.mark = gc_color_red;
 c_73690.hdr.grayed = 0;
c_73690.tag = closureN_tag;
 c_73690.fn = (function_type)__lambda_13;
c_73690.num_args = 1;
c_73690.num_elt = 5;
c_73690.elts = (object *)alloca(sizeof(object) * 5);
c_73690.elts[0] = ((closureN)self_73582)->elts[0];
c_73690.elts[1] = ((closureN)self_73582)->elts[1];
c_73690.elts[2] = ((closureN)self_73582)->elts[2];
c_73690.elts[3] = ((closureN)self_73582)->elts[3];
c_73690.elts[4] = ((closureN)self_73582)->elts[4];

return_closcall2(data,  __glo_lib_117imports,  &c_73690, r_73309);; 
}

static void __lambda_13(void *data, int argc, object self_73583, object r_73308) {
  
closureN_type c_73692;
c_73692.hdr.mark = gc_color_red;
 c_73692.hdr.grayed = 0;
c_73692.tag = closureN_tag;
 c_73692.fn = (function_type)__lambda_12;
c_73692.num_args = 1;
c_73692.num_elt = 4;
c_73692.elts = (object *)alloca(sizeof(object) * 4);
c_73692.elts[0] = ((closureN)self_73583)->elts[1];
c_73692.elts[1] = ((closureN)self_73583)->elts[2];
c_73692.elts[2] = ((closureN)self_73583)->elts[3];
c_73692.elts[3] = ((closureN)self_73583)->elts[4];

return_closcall1(data,(closure)&c_73692,  Cyc_set_car(data, ((closureN)self_73583)->elts[0], r_73308));; 
}

static void __lambda_12(void *data, int argc, object self_73584, object r_73296) {
  
closureN_type c_73694;
c_73694.hdr.mark = gc_color_red;
 c_73694.hdr.grayed = 0;
c_73694.tag = closureN_tag;
 c_73694.fn = (function_type)__lambda_11;
c_73694.num_args = 1;
c_73694.num_elt = 4;
c_73694.elts = (object *)alloca(sizeof(object) * 4);
c_73694.elts[0] = ((closureN)self_73584)->elts[0];
c_73694.elts[1] = ((closureN)self_73584)->elts[1];
c_73694.elts[2] = ((closureN)self_73584)->elts[2];
c_73694.elts[3] = ((closureN)self_73584)->elts[3];

return_closcall1(data,(closure)&c_73694,  car(cell_get(((closureN)self_73584)->elts[1])));; 
}

static void __lambda_11(void *data, int argc, object self_73585, object r_73307) {
  
closureN_type c_73696;
c_73696.hdr.mark = gc_color_red;
 c_73696.hdr.grayed = 0;
c_73696.tag = closureN_tag;
 c_73696.fn = (function_type)__lambda_10;
c_73696.num_args = 1;
c_73696.num_elt = 4;
c_73696.elts = (object *)alloca(sizeof(object) * 4);
c_73696.elts[0] = ((closureN)self_73585)->elts[0];
c_73696.elts[1] = ((closureN)self_73585)->elts[1];
c_73696.elts[2] = ((closureN)self_73585)->elts[2];
c_73696.elts[3] = ((closureN)self_73585)->elts[3];

return_closcall2(data,  __glo_lib_117body,  &c_73696, r_73307);; 
}

static void __lambda_10(void *data, int argc, object self_73586, object r_73306) {
  
closureN_type c_73698;
c_73698.hdr.mark = gc_color_red;
 c_73698.hdr.grayed = 0;
c_73698.tag = closureN_tag;
 c_73698.fn = (function_type)__lambda_9;
c_73698.num_args = 1;
c_73698.num_elt = 4;
c_73698.elts = (object *)alloca(sizeof(object) * 4);
c_73698.elts[0] = ((closureN)self_73586)->elts[0];
c_73698.elts[1] = ((closureN)self_73586)->elts[1];
c_73698.elts[2] = ((closureN)self_73586)->elts[2];
c_73698.elts[3] = ((closureN)self_73586)->elts[3];

return_closcall1(data,(closure)&c_73698,  Cyc_set_car(data, ((closureN)self_73586)->elts[1], r_73306));; 
}

static void __lambda_9(void *data, int argc, object self_73587, object r_73297) {
  
closureN_type c_73700;
c_73700.hdr.mark = gc_color_red;
 c_73700.hdr.grayed = 0;
c_73700.tag = closureN_tag;
 c_73700.fn = (function_type)__lambda_8;
c_73700.num_args = 1;
c_73700.num_elt = 4;
c_73700.elts = (object *)alloca(sizeof(object) * 4);
c_73700.elts[0] = ((closureN)self_73587)->elts[0];
c_73700.elts[1] = ((closureN)self_73587)->elts[1];
c_73700.elts[2] = ((closureN)self_73587)->elts[2];
c_73700.elts[3] = ((closureN)self_73587)->elts[3];

return_closcall1(data,(closure)&c_73700,  Cyc_is_null(((closureN)self_73587)->elts[0]));; 
}

static void __lambda_8(void *data, int argc, object self_73588, object r_73305) {
  
closureN_type c_73702;
c_73702.hdr.mark = gc_color_red;
 c_73702.hdr.grayed = 0;
c_73702.tag = closureN_tag;
 c_73702.fn = (function_type)__lambda_7;
c_73702.num_args = 1;
c_73702.num_elt = 4;
c_73702.elts = (object *)alloca(sizeof(object) * 4);
c_73702.elts[0] = ((closureN)self_73588)->elts[0];
c_73702.elts[1] = ((closureN)self_73588)->elts[1];
c_73702.elts[2] = ((closureN)self_73588)->elts[2];
c_73702.elts[3] = ((closureN)self_73588)->elts[3];

return_closcall2(data,  __glo_not,  &c_73702, r_73305);; 
}

static void __lambda_7(void *data, int argc, object self_73589, object r_73298) {
  if( !eq(boolean_f, r_73298) ){ 
  
closureN_type c_73704;
c_73704.hdr.mark = gc_color_red;
 c_73704.hdr.grayed = 0;
c_73704.tag = closureN_tag;
 c_73704.fn = (function_type)__lambda_1;
c_73704.num_args = 1;
c_73704.num_elt = 2;
c_73704.elts = (object *)alloca(sizeof(object) * 2);
c_73704.elts[0] = ((closureN)self_73589)->elts[0];
c_73704.elts[1] = ((closureN)self_73589)->elts[2];


closureN_type c_73708;
c_73708.hdr.mark = gc_color_red;
 c_73708.hdr.grayed = 0;
c_73708.tag = closureN_tag;
 c_73708.fn = (function_type)__lambda_6;
c_73708.num_args = 1;
c_73708.num_elt = 2;
c_73708.elts = (object *)alloca(sizeof(object) * 2);
c_73708.elts[0] = ((closureN)self_73589)->elts[1];
c_73708.elts[1] = ((closureN)self_73589)->elts[3];

return_closcall1(data,(closure)&c_73704,  &c_73708);
} else { 
  return_closcall1(data,  ((closureN)self_73589)->elts[2],  boolean_f);}
; 
}

static void __lambda_6(void *data, int argc, object self_73590, object k_73300, object include_7398) {
  
closureN_type c_73710;
c_73710.hdr.mark = gc_color_red;
 c_73710.hdr.grayed = 0;
c_73710.tag = closureN_tag;
 c_73710.fn = (function_type)__lambda_5;
c_73710.num_args = 1;
c_73710.num_elt = 3;
c_73710.elts = (object *)alloca(sizeof(object) * 3);
c_73710.elts[0] = include_7398;
c_73710.elts[1] = ((closureN)self_73590)->elts[0];
c_73710.elts[2] = k_73300;

return_closcall2(data,  __glo_lib_117import_91_125path,  &c_73710, cell_get(((closureN)self_73590)->elts[1]));; 
}

static void __lambda_5(void *data, int argc, object self_73591, object r_73304) {
  
closureN_type c_73712;
c_73712.hdr.mark = gc_color_red;
 c_73712.hdr.grayed = 0;
c_73712.tag = closureN_tag;
 c_73712.fn = (function_type)__lambda_4;
c_73712.num_args = 1;
c_73712.num_elt = 2;
c_73712.elts = (object *)alloca(sizeof(object) * 2);
c_73712.elts[0] = ((closureN)self_73591)->elts[1];
c_73712.elts[1] = ((closureN)self_73591)->elts[2];


object c_73727 = Cyc_string_append(data,(closure)&c_73712,2,r_73304, ((closureN)self_73591)->elts[0]);
return_closcall1(data,(closure)&c_73712,  c_73727);; 
}

static void __lambda_4(void *data, int argc, object self_73592, object r_73303) {
  
closureN_type c_73714;
c_73714.hdr.mark = gc_color_red;
 c_73714.hdr.grayed = 0;
c_73714.tag = closureN_tag;
 c_73714.fn = (function_type)__lambda_3;
c_73714.num_args = 1;
c_73714.num_elt = 2;
c_73714.elts = (object *)alloca(sizeof(object) * 2);
c_73714.elts[0] = ((closureN)self_73592)->elts[0];
c_73714.elts[1] = ((closureN)self_73592)->elts[1];

return_closcall2(data,  __glo_read_91file,  &c_73714, r_73303);; 
}

static void __lambda_3(void *data, int argc, object self_73593, object r_73302) {
  
closureN_type c_73716;
c_73716.hdr.mark = gc_color_red;
 c_73716.hdr.grayed = 0;
c_73716.tag = closureN_tag;
 c_73716.fn = (function_type)__lambda_2;
c_73716.num_args = 1;
c_73716.num_elt = 2;
c_73716.elts = (object *)alloca(sizeof(object) * 2);
c_73716.elts[0] = ((closureN)self_73593)->elts[0];
c_73716.elts[1] = ((closureN)self_73593)->elts[1];

return_closcall3(data,  __glo_append,  &c_73716, r_73302, cell_get(((closureN)self_73593)->elts[0]));; 
}

static void __lambda_2(void *data, int argc, object self_73594, object r_73301) {
  return_closcall1(data,  ((closureN)self_73594)->elts[1],  Cyc_set_car(data, ((closureN)self_73594)->elts[0], r_73301));; 
}

static void __lambda_1(void *data, int argc, object self_73595, object r_73299) {
  return_closcall3(data,  __glo_for_91each,  ((closureN)self_73595)->elts[1], r_73299, ((closureN)self_73595)->elts[0]);; 
}

static void __lambda_0(void *data, int argc, object self_73596, object r_73179) {
  return_closcall2(data,  __glo_call_95cc,  ((closureN)self_73596)->elts[0], r_73179);; 
}

static void c_entry_pt_first_lambda(void *data, int argc, closure cont, object value);
extern void c_schemebase_entry_pt(void *data, int argc, closure cont, object value);
extern void c_schemewrite_entry_pt(void *data, int argc, closure cont, object value);
extern void c_schemecase_91lambda_entry_pt(void *data, int argc, closure cont, object value);
extern void c_scheme_char_entry_pt(void *data, int argc, closure cont, object value);
extern void c_schemecycloneutil_entry_pt(void *data, int argc, closure cont, object value);
extern void c_schemefile_entry_pt(void *data, int argc, closure cont, object value);
extern void c_schemeread_entry_pt(void *data, int argc, closure cont, object value);
extern void c_schemeeval_entry_pt(void *data, int argc, closure cont, object value);
extern void c_schemelazy_entry_pt(void *data, int argc, closure cont, object value);
extern void c_schemecyclonemacros_entry_pt(void *data, int argc, closure cont, object value);
extern void c_schemecyclonecommon_entry_pt(void *data, int argc, closure cont, object value);
extern void c_schemecyclonelibraries_entry_pt(void *data, int argc, closure cont, object value);
extern void c_schemecyclonetransforms_entry_pt(void *data, int argc, closure cont, object value);
extern void c_schemecyclonecgen_entry_pt(void *data, int argc, closure cont, object value);
static void c_entry_pt(data, argc, env,cont) void *data; int argc; closure env,cont; { 
  quote_result = find_or_add_symbol("result");
  quote__191 = find_or_add_symbol("_");
  quote_f = find_or_add_symbol("f");
  quote_k = find_or_add_symbol("k");
  quote_lambda = find_or_add_symbol("lambda");
  quote_call_95cc = find_or_add_symbol("call/cc");
  quote_define = find_or_add_symbol("define");
  quote_base = find_or_add_symbol("base");
  quote_scheme = find_or_add_symbol("scheme");
  quote_eval = find_or_add_symbol("eval");
  quote_import = find_or_add_symbol("import");

  add_global((object *) &__glo_run_91compiler);
  add_global((object *) &__glo_read_91file);
  add_global((object *) &__glo_c_91compile_91and_91emit);
  add_symbol(quote_result);
  add_symbol(quote__191);
  add_symbol(quote_f);
  add_symbol(quote_k);
  add_symbol(quote_lambda);
  add_symbol(quote_call_95cc);
  add_symbol(quote_define);
  add_symbol(quote_base);
  add_symbol(quote_scheme);
  add_symbol(quote_eval);
  add_symbol(quote_import);
  mclosure0(c_731362, (function_type)__lambda_238);c_731362.num_args = 2; 
  __glo_run_91compiler = &c_731362; 
  mclosure0(c_731354, (function_type)__lambda_176);c_731354.num_args = 1; 
  __glo_read_91file = &c_731354; 
  mclosure0(c_73597, (function_type)__lambda_173);c_73597.num_args = 3; 
  __glo_c_91compile_91and_91emit = &c_73597; 

  make_cvar(cvar_731787, (object *)&__glo_run_91compiler);make_cons(pair_731788, find_or_add_symbol("run-compiler"), &cvar_731787);
  make_cvar(cvar_731789, (object *)&__glo_read_91file);make_cons(pair_731790, find_or_add_symbol("read-file"), &cvar_731789);
  make_cvar(cvar_731791, (object *)&__glo_c_91compile_91and_91emit);make_cons(pair_731792, find_or_add_symbol("c-compile-and-emit"), &cvar_731791);
make_cons(c_731793, &pair_731788,Cyc_global_variables);
make_cons(c_731794, &pair_731790, &c_731793);
make_cons(c_731795, &pair_731792, &c_731794);
Cyc_global_variables = &c_731795;
mclosure1(c_done, c_entry_pt_first_lambda, &c_done);
mclosure1(c_731796, c_schemecyclonecgen_entry_pt, &c_done);
mclosure1(c_731797, c_schemecyclonetransforms_entry_pt, &c_731796);
mclosure1(c_731798, c_schemecyclonelibraries_entry_pt, &c_731797);
mclosure1(c_731799, c_schemecyclonecommon_entry_pt, &c_731798);
mclosure1(c_731800, c_schemecyclonemacros_entry_pt, &c_731799);
mclosure1(c_731801, c_schemelazy_entry_pt, &c_731800);
mclosure1(c_731802, c_schemeeval_entry_pt, &c_731801);
mclosure1(c_731803, c_schemeread_entry_pt, &c_731802);
mclosure1(c_731804, c_schemefile_entry_pt, &c_731803);
mclosure1(c_731805, c_schemecycloneutil_entry_pt, &c_731804);
mclosure1(c_731806, c_scheme_char_entry_pt, &c_731805);
mclosure1(c_731807, c_schemecase_91lambda_entry_pt, &c_731806);
mclosure1(c_731808, c_schemewrite_entry_pt, &c_731807);
mclosure1(c_731809, c_schemebase_entry_pt, &c_731808);
(c_731809.fn)(data, 0, &c_731809, &c_731809);
}
static void c_entry_pt_first_lambda(void *data, int argc, closure cont, object value) {
  
    
    
    return_direct0(data,__lambda_281);
}
main(int argc,char **argv)
{gc_thread_data *thd;
 long stack_size = global_stack_size = STACK_SIZE;
 long heap_size = global_heap_size = HEAP_SIZE;
 mclosure0(clos_halt,&Cyc_halt);  // Halt if final closure is reached
 mclosure0(entry_pt,&c_entry_pt); // First function to execute
 _cyc_argc = argc;
 _cyc_argv = argv;
 gc_initialize();
 thd = malloc(sizeof(gc_thread_data));
 gc_thread_data_init(thd, 0, (char *) &stack_size, stack_size);
 thd->gc_cont = &entry_pt;
 thd->gc_args[0] = &clos_halt;
 thd->gc_num_args = 1;
 gc_add_mutator(thd);
 Cyc_heap_init(heap_size);
 thd->thread_state = CYC_THREAD_STATE_RUNNABLE;
 Cyc_start_trampoline(thd);
 return 0;}