From b67a7b75fee390170fe68a9f2aebbee144b185f7 Mon Sep 17 00:00:00 2001 From: Justin Ethier Date: Fri, 10 Jun 2016 21:28:44 -0400 Subject: [PATCH] Removed old files --- debug/compilation/cyclone.c | 6537 ----------------------------------- debug/compilation/nqueens.c | 1480 -------- 2 files changed, 8017 deletions(-) delete mode 100644 debug/compilation/cyclone.c delete mode 100644 debug/compilation/nqueens.c diff --git a/debug/compilation/cyclone.c b/debug/compilation/cyclone.c deleted file mode 100644 index 725e0ae1..00000000 --- a/debug/compilation/cyclone.c +++ /dev/null @@ -1,6537 +0,0 @@ -/** - ** 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>=? 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 symbolbindings 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;} diff --git a/debug/compilation/nqueens.c b/debug/compilation/nqueens.c deleted file mode 100644 index a9bfcc35..00000000 --- a/debug/compilation/nqueens.c +++ /dev/null @@ -1,1480 +0,0 @@ -/** - ** 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 write)) (define (nqueens n) (define (dec-to n) (let loop ((i n) (l (quote ()))) (if (= i 0) l (loop (- i 1) (cons i l))))) (define (try x y z) (if (null? x) (if (null? y) 1 0) (+ (if (ok? (car x) 1 z) (try (append (cdr x) y) (quote ()) (cons (car x) z)) 0) (try (cdr x) (cons (car x) y) z)))) (define (ok? row dist placed) (if (null? placed) #t (and (not (= (car placed) (+ row dist))) (not (= (car placed) (- row dist))) (ok? row (+ dist 1) (cdr placed))))) (try (dec-to n) (quote ()) (quote ()))) (write (nqueens 8))) - */ -/* -"imports:" - */ -/* -((scheme base) (scheme write)) - */ -/* -"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>=? 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 display write) - */ -/* -"resolved macros:" - */ -/* -() - */ -/* -"---------------- after macro expansion:" - */ -/* -((define nqueens (lambda (n) (define dec-to (lambda (n) ((lambda (i l) ((lambda (loop) (set! loop (lambda (i l) (if (= i 0) l (loop (- i 1) (cons i l))))) (loop i l)) #f)) n (quote ())))) (define try (lambda (x y z) (if (null? x) (if (null? y) 1 0) (+ (if (ok? (car x) 1 z) (try (append (cdr x) y) (quote ()) (cons (car x) z)) 0) (try (cdr x) (cons (car x) y) z))))) (define ok? (lambda (row dist placed) (if (null? placed) #t (if (not (= (car placed) (+ row dist))) (if (not (= (car placed) (- row dist))) (ok? row (+ dist 1) (cdr placed)) #f) #f)))) (try (dec-to n) (quote ()) (quote ())))) (write (nqueens 8))) - */ -/* -"---------------- after processing globals" - */ -/* -((define nqueens (lambda (n) (define dec-to (lambda (n) ((lambda (i l) ((lambda (loop) (set! loop (lambda (i l) (if (= i 0) l (loop (- i 1) (cons i l))))) (loop i l)) #f)) n (quote ())))) (define try (lambda (x y z) (if (null? x) (if (null? y) 1 0) (+ (if (ok? (car x) 1 z) (try (append (cdr x) y) (quote ()) (cons (car x) z)) 0) (try (cdr x) (cons (car x) y) z))))) (define ok? (lambda (row dist placed) (if (null? placed) #t (if (not (= (car placed) (+ row dist))) (if (not (= (car placed) (- row dist))) (ok? row (+ dist 1) (cdr placed)) #f) #f)))) (try (dec-to n) (quote ()) (quote ())))) ((lambda () 0 (write (nqueens 8))))) - */ -/* -"---------------- after alpha conversion:" - */ -/* -((define nqueens (lambda (n$4) ((lambda (dec-to$10 ok?$9 try$8) ((lambda (dec-to$13 try$12 ok?$11) (set! dec-to$10 (lambda (n$20) ((lambda (i$22 l$21) ((lambda (loop$23) (set! loop$23 (lambda (i$25 l$24) (if (= i$25 0) l$24 (loop$23 (- i$25 1) (cons i$25 l$24))))) (loop$23 i$22 l$21)) #f)) n$20 (quote ())))) (set! try$8 (lambda (x$19 y$18 z$17) (if (null? x$19) (if (null? y$18) 1 0) (+ (if (ok?$9 (car x$19) 1 z$17) (try$8 (append (cdr x$19) y$18) (quote ()) (cons (car x$19) z$17)) 0) (try$8 (cdr x$19) (cons (car x$19) y$18) z$17))))) (set! ok?$9 (lambda (row$16 dist$15 placed$14) (if (null? placed$14) #t (if (not (= (car placed$14) (+ row$16 dist$15))) (if (not (= (car placed$14) (- row$16 dist$15))) (ok?$9 row$16 (+ dist$15 1) (cdr placed$14)) #f) #f)))) (try$8 (dec-to$10 n$4) (quote ()) (quote ()))) #f #f #f)) #f #f #f))) ((lambda () 0 (write (nqueens 8))))) - */ -/* -"---------------- after CPS:" - */ -/* -((define nqueens (lambda (k$30 n$4) ((lambda (dec-to$10 ok?$9 try$8) ((lambda (dec-to$13 try$12 ok?$11) ((lambda (r$67) ((lambda (r$31) ((lambda (r$50) ((lambda (r$32) ((lambda (r$37) ((lambda (r$33) (dec-to$10 (lambda (r$34) ((lambda (r$35) ((lambda (r$36) (try$8 k$30 r$34 r$35 r$36)) (quote ()))) (quote ()))) n$4)) (set! ok?$9 r$37))) (lambda (k$38 row$16 dist$15 placed$14) ((lambda (r$39) (if r$39 (k$38 #t) ((lambda (r$48) ((lambda (r$49) ((lambda (r$47) (not (lambda (r$40) (if r$40 ((lambda (r$45) ((lambda (r$46) ((lambda (r$44) (not (lambda (r$41) (if r$41 ((lambda (r$42) ((lambda (r$43) (ok?$9 k$38 row$16 r$42 r$43)) (cdr placed$14))) (+ dist$15 1)) (k$38 #f))) r$44)) (= r$45 r$46))) (- row$16 dist$15))) (car placed$14)) (k$38 #f))) r$47)) (= r$48 r$49))) (+ row$16 dist$15))) (car placed$14)))) (null? placed$14))))) (set! try$8 r$50))) (lambda (k$51 x$19 y$18 z$17) ((lambda (r$52) (if r$52 ((lambda (r$53) (if r$53 (k$51 1) (k$51 0))) (null? y$18)) ((lambda (k$59) ((lambda (r$66) (ok?$9 (lambda (r$60) (if r$60 ((lambda (r$65) (append (lambda (r$61) ((lambda (r$62) ((lambda (r$64) ((lambda (r$63) (try$8 k$59 r$61 r$62 r$63)) (cons r$64 z$17))) (car x$19))) (quote ()))) r$65 y$18)) (cdr x$19)) (k$59 0))) r$66 1 z$17)) (car x$19))) (lambda (r$54) ((lambda (r$56) ((lambda (r$58) ((lambda (r$57) (try$8 (lambda (r$55) (k$51 (+ r$54 r$55))) r$56 r$57 z$17)) (cons r$58 y$18))) (car x$19))) (cdr x$19)))))) (null? x$19))))) (set! dec-to$10 r$67))) (lambda (k$68 n$20) ((lambda (r$69) ((lambda (i$22 l$21) ((lambda (loop$23) ((lambda (r$71) ((lambda (r$70) (loop$23 k$68 i$22 l$21)) (set! loop$23 r$71))) (lambda (k$72 i$25 l$24) ((lambda (r$73) (if r$73 (k$72 l$24) ((lambda (r$74) ((lambda (r$75) (loop$23 k$72 r$74 r$75)) (cons i$25 l$24))) (- i$25 1)))) (= i$25 0))))) #f)) n$20 r$69)) (quote ()))))) #f #f #f)) #f #f #f))) ((lambda () ((lambda (r$26) (nqueens (lambda (r$27) (write %halt r$27)) 8)) 0)))) - */ -/* -"---------------- after wrap-mutables:" - */ -/* -((define nqueens (lambda (k$30 n$4) ((lambda (dec-to$10 ok?$9 try$8) ((lambda (dec-to$10) ((lambda (ok?$9) ((lambda (try$8) ((lambda (dec-to$13 try$12 ok?$11) ((lambda (r$67) ((lambda (r$31) ((lambda (r$50) ((lambda (r$32) ((lambda (r$37) ((lambda (r$33) ((cell-get dec-to$10) (lambda (r$34) ((lambda (r$35) ((lambda (r$36) ((cell-get try$8) k$30 r$34 r$35 r$36)) (quote ()))) (quote ()))) n$4)) (set-cell! ok?$9 r$37))) (lambda (k$38 row$16 dist$15 placed$14) ((lambda (r$39) (if r$39 (k$38 #t) ((lambda (r$48) ((lambda (r$49) ((lambda (r$47) (not (lambda (r$40) (if r$40 ((lambda (r$45) ((lambda (r$46) ((lambda (r$44) (not (lambda (r$41) (if r$41 ((lambda (r$42) ((lambda (r$43) ((cell-get ok?$9) k$38 row$16 r$42 r$43)) (cdr placed$14))) (+ dist$15 1)) (k$38 #f))) r$44)) (= r$45 r$46))) (- row$16 dist$15))) (car placed$14)) (k$38 #f))) r$47)) (= r$48 r$49))) (+ row$16 dist$15))) (car placed$14)))) (null? placed$14))))) (set-cell! try$8 r$50))) (lambda (k$51 x$19 y$18 z$17) ((lambda (r$52) (if r$52 ((lambda (r$53) (if r$53 (k$51 1) (k$51 0))) (null? y$18)) ((lambda (k$59) ((lambda (r$66) ((cell-get ok?$9) (lambda (r$60) (if r$60 ((lambda (r$65) (append (lambda (r$61) ((lambda (r$62) ((lambda (r$64) ((lambda (r$63) ((cell-get try$8) k$59 r$61 r$62 r$63)) (cons r$64 z$17))) (car x$19))) (quote ()))) r$65 y$18)) (cdr x$19)) (k$59 0))) r$66 1 z$17)) (car x$19))) (lambda (r$54) ((lambda (r$56) ((lambda (r$58) ((lambda (r$57) ((cell-get try$8) (lambda (r$55) (k$51 (+ r$54 r$55))) r$56 r$57 z$17)) (cons r$58 y$18))) (car x$19))) (cdr x$19)))))) (null? x$19))))) (set-cell! dec-to$10 r$67))) (lambda (k$68 n$20) ((lambda (r$69) ((lambda (i$22 l$21) ((lambda (loop$23) ((lambda (loop$23) ((lambda (r$71) ((lambda (r$70) ((cell-get loop$23) k$68 i$22 l$21)) (set-cell! loop$23 r$71))) (lambda (k$72 i$25 l$24) ((lambda (r$73) (if r$73 (k$72 l$24) ((lambda (r$74) ((lambda (r$75) ((cell-get loop$23) k$72 r$74 r$75)) (cons i$25 l$24))) (- i$25 1)))) (= i$25 0))))) (cell loop$23))) #f)) n$20 r$69)) (quote ()))))) #f #f #f)) (cell try$8))) (cell ok?$9))) (cell dec-to$10))) #f #f #f))) ((lambda () ((lambda (r$26) (nqueens (lambda (r$27) (write %halt r$27)) 8)) 0)))) - */ -/* -"---------------- after closure-convert:" - */ -/* -((define nqueens (lambda (k$30 n$4) ((%closure (lambda (self$77 dec-to$10 ok?$9 try$8) ((%closure (lambda (self$78 dec-to$10) ((%closure (lambda (self$79 ok?$9) ((%closure (lambda (self$80 try$8) ((%closure (lambda (self$81 dec-to$13 try$12 ok?$11) ((%closure (lambda (self$93 r$67) ((%closure (lambda (self$94 r$31) ((%closure (lambda (self$111 r$50) ((%closure (lambda (self$112 r$32) ((%closure (lambda (self$125 r$37) ((%closure (lambda (self$126 r$33) ((%closure-ref (cell-get (%closure-ref self$126 1)) 0) (cell-get (%closure-ref self$126 1)) (%closure (lambda (self$127 r$34) ((%closure (lambda (self$128 r$35) ((%closure (lambda (self$129 r$36) ((%closure-ref (cell-get (%closure-ref self$129 4)) 0) (cell-get (%closure-ref self$129 4)) (%closure-ref self$129 1) (%closure-ref self$129 2) (%closure-ref self$129 3) r$36)) (%closure-ref self$128 1) (%closure-ref self$128 2) r$35 (%closure-ref self$128 3)) (quote ()))) (%closure-ref self$127 1) r$34 (%closure-ref self$127 2)) (quote ()))) (%closure-ref self$126 2) (%closure-ref self$126 4)) (%closure-ref self$126 3))) (%closure-ref self$125 1) (%closure-ref self$125 2) (%closure-ref self$125 3) (%closure-ref self$125 5)) (set-cell! (%closure-ref self$125 4) r$37))) (%closure-ref self$112 1) (%closure-ref self$112 2) (%closure-ref self$112 3) (%closure-ref self$112 4) (%closure-ref self$112 5)) (%closure (lambda (self$113 k$38 row$16 dist$15 placed$14) ((%closure (lambda (self$114 r$39) (if r$39 ((%closure-ref (%closure-ref self$114 2) 0) (%closure-ref self$114 2) #t) ((%closure (lambda (self$115 r$48) ((%closure (lambda (self$116 r$49) ((%closure (lambda (self$117 r$47) ((%closure-ref not 0) not (%closure (lambda (self$118 r$40) (if r$40 ((%closure (lambda (self$119 r$45) ((%closure (lambda (self$120 r$46) ((%closure (lambda (self$121 r$44) ((%closure-ref not 0) not (%closure (lambda (self$122 r$41) (if r$41 ((%closure (lambda (self$123 r$42) ((%closure (lambda (self$124 r$43) ((%closure-ref (cell-get (%closure-ref self$124 2)) 0) (cell-get (%closure-ref self$124 2)) (%closure-ref self$124 1) (%closure-ref self$124 4) (%closure-ref self$124 3) r$43)) (%closure-ref self$123 1) (%closure-ref self$123 2) r$42 (%closure-ref self$123 4)) (cdr (%closure-ref self$123 3)))) (%closure-ref self$122 2) (%closure-ref self$122 3) (%closure-ref self$122 4) (%closure-ref self$122 5)) (+ (%closure-ref self$122 1) 1)) ((%closure-ref (%closure-ref self$122 2) 0) (%closure-ref self$122 2) #f))) (%closure-ref self$121 1) (%closure-ref self$121 2) (%closure-ref self$121 3) (%closure-ref self$121 4) (%closure-ref self$121 5)) r$44)) (%closure-ref self$120 1) (%closure-ref self$120 2) (%closure-ref self$120 3) (%closure-ref self$120 4) (%closure-ref self$120 6)) (= (%closure-ref self$120 5) r$46))) (%closure-ref self$119 1) (%closure-ref self$119 2) (%closure-ref self$119 3) (%closure-ref self$119 4) r$45 (%closure-ref self$119 5)) (- (%closure-ref self$119 5) (%closure-ref self$119 1)))) (%closure-ref self$118 1) (%closure-ref self$118 2) (%closure-ref self$118 3) (%closure-ref self$118 4) (%closure-ref self$118 5)) (car (%closure-ref self$118 4))) ((%closure-ref (%closure-ref self$118 2) 0) (%closure-ref self$118 2) #f))) (%closure-ref self$117 1) (%closure-ref self$117 2) (%closure-ref self$117 3) (%closure-ref self$117 4) (%closure-ref self$117 5)) r$47)) (%closure-ref self$116 1) (%closure-ref self$116 2) (%closure-ref self$116 3) (%closure-ref self$116 4) (%closure-ref self$116 6)) (= (%closure-ref self$116 5) r$49))) (%closure-ref self$115 1) (%closure-ref self$115 2) (%closure-ref self$115 3) (%closure-ref self$115 4) r$48 (%closure-ref self$115 5)) (+ (%closure-ref self$115 5) (%closure-ref self$115 1)))) (%closure-ref self$114 1) (%closure-ref self$114 2) (%closure-ref self$114 3) (%closure-ref self$114 4) (%closure-ref self$114 5)) (car (%closure-ref self$114 4))))) dist$15 k$38 (%closure-ref self$113 1) placed$14 row$16) (null? placed$14))) (%closure-ref self$112 4)))) (%closure-ref self$111 1) (%closure-ref self$111 2) (%closure-ref self$111 3) (%closure-ref self$111 4) (%closure-ref self$111 5)) (set-cell! (%closure-ref self$111 5) r$50))) (%closure-ref self$94 1) (%closure-ref self$94 2) (%closure-ref self$94 3) (%closure-ref self$94 4) (%closure-ref self$94 5)) (%closure (lambda (self$95 k$51 x$19 y$18 z$17) ((%closure (lambda (self$96 r$52) (if r$52 ((%closure (lambda (self$110 r$53) (if r$53 ((%closure-ref (%closure-ref self$110 1) 0) (%closure-ref self$110 1) 1) ((%closure-ref (%closure-ref self$110 1) 0) (%closure-ref self$110 1) 0))) (%closure-ref self$96 1)) (null? (%closure-ref self$96 5))) ((%closure (lambda (self$102 k$59) ((%closure (lambda (self$103 r$66) ((%closure-ref (cell-get (%closure-ref self$103 2)) 0) (cell-get (%closure-ref self$103 2)) (%closure (lambda (self$104 r$60) (if r$60 ((%closure (lambda (self$105 r$65) ((%closure-ref append 0) append (%closure (lambda (self$106 r$61) ((%closure (lambda (self$107 r$62) ((%closure (lambda (self$108 r$64) ((%closure (lambda (self$109 r$63) ((%closure-ref (cell-get (%closure-ref self$109 4)) 0) (cell-get (%closure-ref self$109 4)) (%closure-ref self$109 1) (%closure-ref self$109 2) (%closure-ref self$109 3) r$63)) (%closure-ref self$108 1) (%closure-ref self$108 2) (%closure-ref self$108 3) (%closure-ref self$108 4)) (cons r$64 (%closure-ref self$108 5)))) (%closure-ref self$107 1) (%closure-ref self$107 2) r$62 (%closure-ref self$107 3) (%closure-ref self$107 5)) (car (%closure-ref self$107 4)))) (%closure-ref self$106 1) r$61 (%closure-ref self$106 2) (%closure-ref self$106 3) (%closure-ref self$106 4)) (quote ()))) (%closure-ref self$105 1) (%closure-ref self$105 2) (%closure-ref self$105 3) (%closure-ref self$105 5)) r$65 (%closure-ref self$105 4))) (%closure-ref self$104 1) (%closure-ref self$104 2) (%closure-ref self$104 3) (%closure-ref self$104 4) (%closure-ref self$104 5)) (cdr (%closure-ref self$104 3))) ((%closure-ref (%closure-ref self$104 1) 0) (%closure-ref self$104 1) 0))) (%closure-ref self$103 1) (%closure-ref self$103 3) (%closure-ref self$103 4) (%closure-ref self$103 5) (%closure-ref self$103 6)) r$66 1 (%closure-ref self$103 6))) k$59 (%closure-ref self$102 1) (%closure-ref self$102 2) (%closure-ref self$102 3) (%closure-ref self$102 4) (%closure-ref self$102 5)) (car (%closure-ref self$102 3)))) (%closure-ref self$96 2) (%closure-ref self$96 3) (%closure-ref self$96 4) (%closure-ref self$96 5) (%closure-ref self$96 6)) (%closure (lambda (self$97 r$54) ((%closure (lambda (self$98 r$56) ((%closure (lambda (self$99 r$58) ((%closure (lambda (self$100 r$57) ((%closure-ref (cell-get (%closure-ref self$100 4)) 0) (cell-get (%closure-ref self$100 4)) (%closure (lambda (self$101 r$55) ((%closure-ref (%closure-ref self$101 1) 0) (%closure-ref self$101 1) (+ (%closure-ref self$101 2) r$55))) (%closure-ref self$100 1) (%closure-ref self$100 2)) (%closure-ref self$100 3) r$57 (%closure-ref self$100 5))) (%closure-ref self$99 1) (%closure-ref self$99 2) (%closure-ref self$99 3) (%closure-ref self$99 4) (%closure-ref self$99 6)) (cons r$58 (%closure-ref self$99 5)))) (%closure-ref self$98 1) (%closure-ref self$98 2) r$56 (%closure-ref self$98 3) (%closure-ref self$98 5) (%closure-ref self$98 6)) (car (%closure-ref self$98 4)))) (%closure-ref self$97 1) r$54 (%closure-ref self$97 2) (%closure-ref self$97 3) (%closure-ref self$97 4) (%closure-ref self$97 5)) (cdr (%closure-ref self$97 3)))) (%closure-ref self$96 1) (%closure-ref self$96 3) (%closure-ref self$96 4) (%closure-ref self$96 5) (%closure-ref self$96 6))))) k$51 (%closure-ref self$95 1) (%closure-ref self$95 2) x$19 y$18 z$17) (null? x$19))) (%closure-ref self$94 4) (%closure-ref self$94 5)))) (%closure-ref self$93 1) (%closure-ref self$93 2) (%closure-ref self$93 3) (%closure-ref self$93 4) (%closure-ref self$93 5)) (set-cell! (%closure-ref self$93 1) r$67))) (%closure-ref self$81 1) (%closure-ref self$81 2) (%closure-ref self$81 3) (%closure-ref self$81 4) (%closure-ref self$81 5)) (%closure (lambda (self$82 k$68 n$20) ((%closure (lambda (self$83 r$69) ((%closure (lambda (self$84 i$22 l$21) ((%closure (lambda (self$85 loop$23) ((%closure (lambda (self$86 loop$23) ((%closure (lambda (self$91 r$71) ((%closure (lambda (self$92 r$70) ((%closure-ref (cell-get (%closure-ref self$92 4)) 0) (cell-get (%closure-ref self$92 4)) (%closure-ref self$92 2) (%closure-ref self$92 1) (%closure-ref self$92 3))) (%closure-ref self$91 1) (%closure-ref self$91 2) (%closure-ref self$91 3) (%closure-ref self$91 4)) (set-cell! (%closure-ref self$91 4) r$71))) (%closure-ref self$86 1) (%closure-ref self$86 2) (%closure-ref self$86 3) loop$23) (%closure (lambda (self$87 k$72 i$25 l$24) ((%closure (lambda (self$88 r$73) (if r$73 ((%closure-ref (%closure-ref self$88 2) 0) (%closure-ref self$88 2) (%closure-ref self$88 3)) ((%closure (lambda (self$89 r$74) ((%closure (lambda (self$90 r$75) ((%closure-ref (cell-get (%closure-ref self$90 2)) 0) (cell-get (%closure-ref self$90 2)) (%closure-ref self$90 1) (%closure-ref self$90 3) r$75)) (%closure-ref self$89 2) (%closure-ref self$89 4) r$74) (cons (%closure-ref self$89 1) (%closure-ref self$89 3)))) (%closure-ref self$88 1) (%closure-ref self$88 2) (%closure-ref self$88 3) (%closure-ref self$88 4)) (- (%closure-ref self$88 1) 1)))) i$25 k$72 l$24 (%closure-ref self$87 1)) (= i$25 0))) loop$23))) (%closure-ref self$85 1) (%closure-ref self$85 2) (%closure-ref self$85 3)) (cell loop$23))) i$22 (%closure-ref self$84 1) l$21) #f)) (%closure-ref self$83 1)) (%closure-ref self$83 2) r$69)) k$68 n$20) (quote ())))))) (%closure-ref self$80 1) (%closure-ref self$80 2) (%closure-ref self$80 3) (%closure-ref self$80 4) try$8) #f #f #f)) (%closure-ref self$79 1) (%closure-ref self$79 2) (%closure-ref self$79 3) ok?$9) (cell (%closure-ref self$79 4)))) dec-to$10 (%closure-ref self$78 1) (%closure-ref self$78 2) (%closure-ref self$78 4)) (cell (%closure-ref self$78 3)))) (%closure-ref self$77 1) (%closure-ref self$77 2) ok?$9 try$8) (cell dec-to$10))) k$30 n$4) #f #f #f))) ((lambda () ((lambda (r$26) ((%closure-ref nqueens 0) nqueens (%closure (lambda (self$76 r$27) ((%closure-ref write 0) write %halt r$27))) 8)) 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); }} - -#include "cyclone/types.h" -object __glo_nqueens = 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_display; -extern object __glo_write; -#include "cyclone/runtime.h" -#include "cyclone/runtime-main.h" -static void __lambda_56(void *data, int argc, closure _) ; -static void __lambda_55(void *data, int argc, closure _,object r_7326) ; -static void __lambda_54(void *data, int argc, object self_7376, object r_7327) ; -static void __lambda_53(void *data, int argc, closure _,object k_7330, object n_734) ; -static void __lambda_52(void *data, int argc, object self_7377, object dec_91to_7310, object ok_127_739, object try_738) ; -static void __lambda_51(void *data, int argc, object self_7378, object dec_91to_7310) ; -static void __lambda_50(void *data, int argc, object self_7379, object ok_127_739) ; -static void __lambda_49(void *data, int argc, object self_7380, object try_738) ; -static void __lambda_48(void *data, int argc, object self_7381, object dec_91to_7313, object try_7312, object ok_127_7311) ; -static void __lambda_47(void *data, int argc, object self_7382, object k_7368, object n_7320) ; -static void __lambda_46(void *data, int argc, object self_7383, object r_7369) ; -static void __lambda_45(void *data, int argc, object self_7384, object i_7322, object l_7321) ; -static void __lambda_44(void *data, int argc, object self_7385, object loop_7323) ; -static void __lambda_43(void *data, int argc, object self_7386, object loop_7323) ; -static void __lambda_42(void *data, int argc, object self_7387, object k_7372, object i_7325, object l_7324) ; -static void __lambda_41(void *data, int argc, object self_7388, object r_7373) ; -static void __lambda_40(void *data, int argc, object self_7389, object r_7374) ; -static void __lambda_39(void *data, int argc, object self_7390, object r_7375) ; -static void __lambda_38(void *data, int argc, object self_7391, object r_7371) ; -static void __lambda_37(void *data, int argc, object self_7392, object r_7370) ; -static void __lambda_36(void *data, int argc, object self_7393, object r_7367) ; -static void __lambda_35(void *data, int argc, object self_7394, object r_7331) ; -static void __lambda_34(void *data, int argc, object self_7395, object k_7351, object x_7319, object y_7318, object z_7317) ; -static void __lambda_33(void *data, int argc, object self_7396, object r_7352) ; -static void __lambda_32(void *data, int argc, object self_7397, object r_7354) ; -static void __lambda_31(void *data, int argc, object self_7398, object r_7356) ; -static void __lambda_30(void *data, int argc, object self_7399, object r_7358) ; -static void __lambda_29(void *data, int argc, object self_73100, object r_7357) ; -static void __lambda_28(void *data, int argc, object self_73101, object r_7355) ; -static void __lambda_27(void *data, int argc, object self_73102, object k_7359) ; -static void __lambda_26(void *data, int argc, object self_73103, object r_7366) ; -static void __lambda_25(void *data, int argc, object self_73104, object r_7360) ; -static void __lambda_24(void *data, int argc, object self_73105, object r_7365) ; -static void __lambda_23(void *data, int argc, object self_73106, object r_7361) ; -static void __lambda_22(void *data, int argc, object self_73107, object r_7362) ; -static void __lambda_21(void *data, int argc, object self_73108, object r_7364) ; -static void __lambda_20(void *data, int argc, object self_73109, object r_7363) ; -static void __lambda_19(void *data, int argc, object self_73110, object r_7353) ; -static void __lambda_18(void *data, int argc, object self_73111, object r_7350) ; -static void __lambda_17(void *data, int argc, object self_73112, object r_7332) ; -static void __lambda_16(void *data, int argc, object self_73113, object k_7338, object row_7316, object dist_7315, object placed_7314) ; -static void __lambda_15(void *data, int argc, object self_73114, object r_7339) ; -static void __lambda_14(void *data, int argc, object self_73115, object r_7348) ; -static void __lambda_13(void *data, int argc, object self_73116, object r_7349) ; -static void __lambda_12(void *data, int argc, object self_73117, object r_7347) ; -static void __lambda_11(void *data, int argc, object self_73118, object r_7340) ; -static void __lambda_10(void *data, int argc, object self_73119, object r_7345) ; -static void __lambda_9(void *data, int argc, object self_73120, object r_7346) ; -static void __lambda_8(void *data, int argc, object self_73121, object r_7344) ; -static void __lambda_7(void *data, int argc, object self_73122, object r_7341) ; -static void __lambda_6(void *data, int argc, object self_73123, object r_7342) ; -static void __lambda_5(void *data, int argc, object self_73124, object r_7343) ; -static void __lambda_4(void *data, int argc, object self_73125, object r_7337) ; -static void __lambda_3(void *data, int argc, object self_73126, object r_7333) ; -static void __lambda_2(void *data, int argc, object self_73127, object r_7334) ; -static void __lambda_1(void *data, int argc, object self_73128, object r_7335) ; -static void __lambda_0(void *data, int argc, object self_73129, object r_7336) ; - -static void __lambda_56(void *data, int argc, closure _) { - make_int(c_73411, 0); -return_direct1(data,__lambda_55,&c_73411);; -} - -static void __lambda_55(void *data, int argc, closure _,object r_7326) { - -mclosure0(c_73408, (function_type)__lambda_54);c_73408.num_args = 1; - -make_int(c_73410, 8); -return_closcall2(data, __glo_nqueens, &c_73408, &c_73410);; -} - -static void __lambda_54(void *data, int argc, object self_7376, object r_7327) { - return_closcall2(data, __glo_write, primitive__75halt, r_7327);; -} - -static void __lambda_53(void *data, int argc, closure _,object k_7330, object n_734) { - Cyc_st_add(data, "nqueens.scm:nqueens"); - -closureN_type c_73132; -c_73132.hdr.mark = gc_color_red; - c_73132.hdr.grayed = 0; -c_73132.tag = closureN_tag; - c_73132.fn = (function_type)__lambda_52; -c_73132.num_args = 3; -c_73132.num_elt = 2; -c_73132.elts = (object *)alloca(sizeof(object) * 2); -c_73132.elts[0] = k_7330; -c_73132.elts[1] = n_734; - -return_closcall3(data,(closure)&c_73132, boolean_f, boolean_f, boolean_f);; -} - -static void __lambda_52(void *data, int argc, object self_7377, object dec_91to_7310, object ok_127_739, object try_738) { - Cyc_st_add(data, "nqueens.scm:nqueens"); - -closureN_type c_73134; -c_73134.hdr.mark = gc_color_red; - c_73134.hdr.grayed = 0; -c_73134.tag = closureN_tag; - c_73134.fn = (function_type)__lambda_51; -c_73134.num_args = 1; -c_73134.num_elt = 4; -c_73134.elts = (object *)alloca(sizeof(object) * 4); -c_73134.elts[0] = ((closureN)self_7377)->elts[0]; -c_73134.elts[1] = ((closureN)self_7377)->elts[1]; -c_73134.elts[2] = ok_127_739; -c_73134.elts[3] = try_738; - - -make_cell(c_73404,dec_91to_7310); -return_closcall1(data,(closure)&c_73134, &c_73404);; -} - -static void __lambda_51(void *data, int argc, object self_7378, object dec_91to_7310) { - Cyc_st_add(data, "nqueens.scm:nqueens"); - -closureN_type c_73136; -c_73136.hdr.mark = gc_color_red; - c_73136.hdr.grayed = 0; -c_73136.tag = closureN_tag; - c_73136.fn = (function_type)__lambda_50; -c_73136.num_args = 1; -c_73136.num_elt = 4; -c_73136.elts = (object *)alloca(sizeof(object) * 4); -c_73136.elts[0] = dec_91to_7310; -c_73136.elts[1] = ((closureN)self_7378)->elts[0]; -c_73136.elts[2] = ((closureN)self_7378)->elts[1]; -c_73136.elts[3] = ((closureN)self_7378)->elts[3]; - - -make_cell(c_73400,((closureN)self_7378)->elts[2]); -return_closcall1(data,(closure)&c_73136, &c_73400);; -} - -static void __lambda_50(void *data, int argc, object self_7379, object ok_127_739) { - Cyc_st_add(data, "nqueens.scm:nqueens"); - -closureN_type c_73138; -c_73138.hdr.mark = gc_color_red; - c_73138.hdr.grayed = 0; -c_73138.tag = closureN_tag; - c_73138.fn = (function_type)__lambda_49; -c_73138.num_args = 1; -c_73138.num_elt = 4; -c_73138.elts = (object *)alloca(sizeof(object) * 4); -c_73138.elts[0] = ((closureN)self_7379)->elts[0]; -c_73138.elts[1] = ((closureN)self_7379)->elts[1]; -c_73138.elts[2] = ((closureN)self_7379)->elts[2]; -c_73138.elts[3] = ok_127_739; - - -make_cell(c_73396,((closureN)self_7379)->elts[3]); -return_closcall1(data,(closure)&c_73138, &c_73396);; -} - -static void __lambda_49(void *data, int argc, object self_7380, object try_738) { - Cyc_st_add(data, "nqueens.scm:nqueens"); - -closureN_type c_73140; -c_73140.hdr.mark = gc_color_red; - c_73140.hdr.grayed = 0; -c_73140.tag = closureN_tag; - c_73140.fn = (function_type)__lambda_48; -c_73140.num_args = 3; -c_73140.num_elt = 5; -c_73140.elts = (object *)alloca(sizeof(object) * 5); -c_73140.elts[0] = ((closureN)self_7380)->elts[0]; -c_73140.elts[1] = ((closureN)self_7380)->elts[1]; -c_73140.elts[2] = ((closureN)self_7380)->elts[2]; -c_73140.elts[3] = ((closureN)self_7380)->elts[3]; -c_73140.elts[4] = try_738; - -return_closcall3(data,(closure)&c_73140, boolean_f, boolean_f, boolean_f);; -} - -static void __lambda_48(void *data, int argc, object self_7381, object dec_91to_7313, object try_7312, object ok_127_7311) { - Cyc_st_add(data, "nqueens.scm:nqueens"); - -closureN_type c_73142; -c_73142.hdr.mark = gc_color_red; - c_73142.hdr.grayed = 0; -c_73142.tag = closureN_tag; - c_73142.fn = (function_type)__lambda_36; -c_73142.num_args = 1; -c_73142.num_elt = 5; -c_73142.elts = (object *)alloca(sizeof(object) * 5); -c_73142.elts[0] = ((closureN)self_7381)->elts[0]; -c_73142.elts[1] = ((closureN)self_7381)->elts[1]; -c_73142.elts[2] = ((closureN)self_7381)->elts[2]; -c_73142.elts[3] = ((closureN)self_7381)->elts[3]; -c_73142.elts[4] = ((closureN)self_7381)->elts[4]; - - -mclosure0(c_73338, (function_type)__lambda_47);c_73338.num_args = 1; -return_closcall1(data,(closure)&c_73142, &c_73338);; -} - -static void __lambda_47(void *data, int argc, object self_7382, object k_7368, object n_7320) { - Cyc_st_add(data, "nqueens.scm:nqueens"); - -closureN_type c_73340; -c_73340.hdr.mark = gc_color_red; - c_73340.hdr.grayed = 0; -c_73340.tag = closureN_tag; - c_73340.fn = (function_type)__lambda_46; -c_73340.num_args = 1; -c_73340.num_elt = 2; -c_73340.elts = (object *)alloca(sizeof(object) * 2); -c_73340.elts[0] = k_7368; -c_73340.elts[1] = n_7320; - -return_closcall1(data,(closure)&c_73340, nil);; -} - -static void __lambda_46(void *data, int argc, object self_7383, object r_7369) { - Cyc_st_add(data, "nqueens.scm:nqueens"); - -closureN_type c_73342; -c_73342.hdr.mark = gc_color_red; - c_73342.hdr.grayed = 0; -c_73342.tag = closureN_tag; - c_73342.fn = (function_type)__lambda_45; -c_73342.num_args = 2; -c_73342.num_elt = 1; -c_73342.elts = (object *)alloca(sizeof(object) * 1); -c_73342.elts[0] = ((closureN)self_7383)->elts[0]; - -return_closcall2(data,(closure)&c_73342, ((closureN)self_7383)->elts[1], r_7369);; -} - -static void __lambda_45(void *data, int argc, object self_7384, object i_7322, object l_7321) { - Cyc_st_add(data, "nqueens.scm:nqueens"); - -closureN_type c_73344; -c_73344.hdr.mark = gc_color_red; - c_73344.hdr.grayed = 0; -c_73344.tag = closureN_tag; - c_73344.fn = (function_type)__lambda_44; -c_73344.num_args = 1; -c_73344.num_elt = 3; -c_73344.elts = (object *)alloca(sizeof(object) * 3); -c_73344.elts[0] = i_7322; -c_73344.elts[1] = ((closureN)self_7384)->elts[0]; -c_73344.elts[2] = l_7321; - -return_closcall1(data,(closure)&c_73344, boolean_f);; -} - -static void __lambda_44(void *data, int argc, object self_7385, object loop_7323) { - Cyc_st_add(data, "nqueens.scm:nqueens"); - -closureN_type c_73346; -c_73346.hdr.mark = gc_color_red; - c_73346.hdr.grayed = 0; -c_73346.tag = closureN_tag; - c_73346.fn = (function_type)__lambda_43; -c_73346.num_args = 1; -c_73346.num_elt = 3; -c_73346.elts = (object *)alloca(sizeof(object) * 3); -c_73346.elts[0] = ((closureN)self_7385)->elts[0]; -c_73346.elts[1] = ((closureN)self_7385)->elts[1]; -c_73346.elts[2] = ((closureN)self_7385)->elts[2]; - - -make_cell(c_73392,loop_7323); -return_closcall1(data,(closure)&c_73346, &c_73392);; -} - -static void __lambda_43(void *data, int argc, object self_7386, object loop_7323) { - Cyc_st_add(data, "nqueens.scm:nqueens"); - -closureN_type c_73348; -c_73348.hdr.mark = gc_color_red; - c_73348.hdr.grayed = 0; -c_73348.tag = closureN_tag; - c_73348.fn = (function_type)__lambda_38; -c_73348.num_args = 1; -c_73348.num_elt = 4; -c_73348.elts = (object *)alloca(sizeof(object) * 4); -c_73348.elts[0] = ((closureN)self_7386)->elts[0]; -c_73348.elts[1] = ((closureN)self_7386)->elts[1]; -c_73348.elts[2] = ((closureN)self_7386)->elts[2]; -c_73348.elts[3] = loop_7323; - - -closureN_type c_73361; -c_73361.hdr.mark = gc_color_red; - c_73361.hdr.grayed = 0; -c_73361.tag = closureN_tag; - c_73361.fn = (function_type)__lambda_42; -c_73361.num_args = 2; -c_73361.num_elt = 1; -c_73361.elts = (object *)alloca(sizeof(object) * 1); -c_73361.elts[0] = loop_7323; - -return_closcall1(data,(closure)&c_73348, &c_73361);; -} - -static void __lambda_42(void *data, int argc, object self_7387, object k_7372, object i_7325, object l_7324) { - Cyc_st_add(data, "nqueens.scm:nqueens"); - -closureN_type c_73363; -c_73363.hdr.mark = gc_color_red; - c_73363.hdr.grayed = 0; -c_73363.tag = closureN_tag; - c_73363.fn = (function_type)__lambda_41; -c_73363.num_args = 1; -c_73363.num_elt = 4; -c_73363.elts = (object *)alloca(sizeof(object) * 4); -c_73363.elts[0] = i_7325; -c_73363.elts[1] = k_7372; -c_73363.elts[2] = l_7324; -c_73363.elts[3] = ((closureN)self_7387)->elts[0]; - - -make_int(c_73389, 0); -return_closcall1(data,(closure)&c_73363, __num_eq(data, i_7325, &c_73389));; -} - -static void __lambda_41(void *data, int argc, object self_7388, object r_7373) { - Cyc_st_add(data, "nqueens.scm:nqueens"); -if( !eq(boolean_f, r_7373) ){ - return_closcall1(data, ((closureN)self_7388)->elts[1], ((closureN)self_7388)->elts[2]); -} else { - -closureN_type c_73368; -c_73368.hdr.mark = gc_color_red; - c_73368.hdr.grayed = 0; -c_73368.tag = closureN_tag; - c_73368.fn = (function_type)__lambda_40; -c_73368.num_args = 1; -c_73368.num_elt = 4; -c_73368.elts = (object *)alloca(sizeof(object) * 4); -c_73368.elts[0] = ((closureN)self_7388)->elts[0]; -c_73368.elts[1] = ((closureN)self_7388)->elts[1]; -c_73368.elts[2] = ((closureN)self_7388)->elts[2]; -c_73368.elts[3] = ((closureN)self_7388)->elts[3]; - - -make_int(c_73386, 1); - -common_type c_73384 = Cyc_sub(data,2,((closureN)self_7388)->elts[0], &c_73386); -return_closcall1(data,(closure)&c_73368, &c_73384);} -; -} - -static void __lambda_40(void *data, int argc, object self_7389, object r_7374) { - Cyc_st_add(data, "nqueens.scm:nqueens"); - -closureN_type c_73370; -c_73370.hdr.mark = gc_color_red; - c_73370.hdr.grayed = 0; -c_73370.tag = closureN_tag; - c_73370.fn = (function_type)__lambda_39; -c_73370.num_args = 1; -c_73370.num_elt = 3; -c_73370.elts = (object *)alloca(sizeof(object) * 3); -c_73370.elts[0] = ((closureN)self_7389)->elts[1]; -c_73370.elts[1] = ((closureN)self_7389)->elts[3]; -c_73370.elts[2] = r_7374; - - -make_cons(c_73379,((closureN)self_7389)->elts[0], ((closureN)self_7389)->elts[2]); -return_closcall1(data,(closure)&c_73370, &c_73379);; -} - -static void __lambda_39(void *data, int argc, object self_7390, object r_7375) { - Cyc_st_add(data, "nqueens.scm:nqueens"); -return_closcall3(data, cell_get(((closureN)self_7390)->elts[1]), ((closureN)self_7390)->elts[0], ((closureN)self_7390)->elts[2], r_7375);; -} - -static void __lambda_38(void *data, int argc, object self_7391, object r_7371) { - Cyc_st_add(data, "nqueens.scm:nqueens"); - -closureN_type c_73350; -c_73350.hdr.mark = gc_color_red; - c_73350.hdr.grayed = 0; -c_73350.tag = closureN_tag; - c_73350.fn = (function_type)__lambda_37; -c_73350.num_args = 1; -c_73350.num_elt = 4; -c_73350.elts = (object *)alloca(sizeof(object) * 4); -c_73350.elts[0] = ((closureN)self_7391)->elts[0]; -c_73350.elts[1] = ((closureN)self_7391)->elts[1]; -c_73350.elts[2] = ((closureN)self_7391)->elts[2]; -c_73350.elts[3] = ((closureN)self_7391)->elts[3]; - -return_closcall1(data,(closure)&c_73350, Cyc_set_car(data, ((closureN)self_7391)->elts[3], r_7371));; -} - -static void __lambda_37(void *data, int argc, object self_7392, object r_7370) { - Cyc_st_add(data, "nqueens.scm:nqueens"); -return_closcall3(data, cell_get(((closureN)self_7392)->elts[3]), ((closureN)self_7392)->elts[1], ((closureN)self_7392)->elts[0], ((closureN)self_7392)->elts[2]);; -} - -static void __lambda_36(void *data, int argc, object self_7393, object r_7367) { - Cyc_st_add(data, "nqueens.scm:nqueens"); - -closureN_type c_73144; -c_73144.hdr.mark = gc_color_red; - c_73144.hdr.grayed = 0; -c_73144.tag = closureN_tag; - c_73144.fn = (function_type)__lambda_35; -c_73144.num_args = 1; -c_73144.num_elt = 5; -c_73144.elts = (object *)alloca(sizeof(object) * 5); -c_73144.elts[0] = ((closureN)self_7393)->elts[0]; -c_73144.elts[1] = ((closureN)self_7393)->elts[1]; -c_73144.elts[2] = ((closureN)self_7393)->elts[2]; -c_73144.elts[3] = ((closureN)self_7393)->elts[3]; -c_73144.elts[4] = ((closureN)self_7393)->elts[4]; - -return_closcall1(data,(closure)&c_73144, Cyc_set_car(data, ((closureN)self_7393)->elts[0], r_7367));; -} - -static void __lambda_35(void *data, int argc, object self_7394, object r_7331) { - Cyc_st_add(data, "nqueens.scm:nqueens"); - -closureN_type c_73146; -c_73146.hdr.mark = gc_color_red; - c_73146.hdr.grayed = 0; -c_73146.tag = closureN_tag; - c_73146.fn = (function_type)__lambda_18; -c_73146.num_args = 1; -c_73146.num_elt = 5; -c_73146.elts = (object *)alloca(sizeof(object) * 5); -c_73146.elts[0] = ((closureN)self_7394)->elts[0]; -c_73146.elts[1] = ((closureN)self_7394)->elts[1]; -c_73146.elts[2] = ((closureN)self_7394)->elts[2]; -c_73146.elts[3] = ((closureN)self_7394)->elts[3]; -c_73146.elts[4] = ((closureN)self_7394)->elts[4]; - - -closureN_type c_73244; -c_73244.hdr.mark = gc_color_red; - c_73244.hdr.grayed = 0; -c_73244.tag = closureN_tag; - c_73244.fn = (function_type)__lambda_34; -c_73244.num_args = 3; -c_73244.num_elt = 2; -c_73244.elts = (object *)alloca(sizeof(object) * 2); -c_73244.elts[0] = ((closureN)self_7394)->elts[3]; -c_73244.elts[1] = ((closureN)self_7394)->elts[4]; - -return_closcall1(data,(closure)&c_73146, &c_73244);; -} - -static void __lambda_34(void *data, int argc, object self_7395, object k_7351, object x_7319, object y_7318, object z_7317) { - Cyc_st_add(data, "nqueens.scm:nqueens"); - -closureN_type c_73246; -c_73246.hdr.mark = gc_color_red; - c_73246.hdr.grayed = 0; -c_73246.tag = closureN_tag; - c_73246.fn = (function_type)__lambda_33; -c_73246.num_args = 1; -c_73246.num_elt = 6; -c_73246.elts = (object *)alloca(sizeof(object) * 6); -c_73246.elts[0] = k_7351; -c_73246.elts[1] = ((closureN)self_7395)->elts[0]; -c_73246.elts[2] = ((closureN)self_7395)->elts[1]; -c_73246.elts[3] = x_7319; -c_73246.elts[4] = y_7318; -c_73246.elts[5] = z_7317; - -return_closcall1(data,(closure)&c_73246, Cyc_is_null(x_7319));; -} - -static void __lambda_33(void *data, int argc, object self_7396, object r_7352) { - Cyc_st_add(data, "nqueens.scm:nqueens"); -if( !eq(boolean_f, r_7352) ){ - -closureN_type c_73248; -c_73248.hdr.mark = gc_color_red; - c_73248.hdr.grayed = 0; -c_73248.tag = closureN_tag; - c_73248.fn = (function_type)__lambda_19; -c_73248.num_args = 1; -c_73248.num_elt = 1; -c_73248.elts = (object *)alloca(sizeof(object) * 1); -c_73248.elts[0] = ((closureN)self_7396)->elts[0]; - -return_closcall1(data,(closure)&c_73248, Cyc_is_null(((closureN)self_7396)->elts[4])); -} else { - -closureN_type c_73259; -c_73259.hdr.mark = gc_color_red; - c_73259.hdr.grayed = 0; -c_73259.tag = closureN_tag; - c_73259.fn = (function_type)__lambda_27; -c_73259.num_args = 0; -c_73259.num_elt = 5; -c_73259.elts = (object *)alloca(sizeof(object) * 5); -c_73259.elts[0] = ((closureN)self_7396)->elts[1]; -c_73259.elts[1] = ((closureN)self_7396)->elts[2]; -c_73259.elts[2] = ((closureN)self_7396)->elts[3]; -c_73259.elts[3] = ((closureN)self_7396)->elts[4]; -c_73259.elts[4] = ((closureN)self_7396)->elts[5]; - - -closureN_type c_73303; -c_73303.hdr.mark = gc_color_red; - c_73303.hdr.grayed = 0; -c_73303.tag = closureN_tag; - c_73303.fn = (function_type)__lambda_32; -c_73303.num_args = 1; -c_73303.num_elt = 5; -c_73303.elts = (object *)alloca(sizeof(object) * 5); -c_73303.elts[0] = ((closureN)self_7396)->elts[0]; -c_73303.elts[1] = ((closureN)self_7396)->elts[2]; -c_73303.elts[2] = ((closureN)self_7396)->elts[3]; -c_73303.elts[3] = ((closureN)self_7396)->elts[4]; -c_73303.elts[4] = ((closureN)self_7396)->elts[5]; - -return_closcall1(data,(closure)&c_73259, &c_73303);} -; -} - -static void __lambda_32(void *data, int argc, object self_7397, object r_7354) { - Cyc_st_add(data, "nqueens.scm:nqueens"); - -closureN_type c_73305; -c_73305.hdr.mark = gc_color_red; - c_73305.hdr.grayed = 0; -c_73305.tag = closureN_tag; - c_73305.fn = (function_type)__lambda_31; -c_73305.num_args = 1; -c_73305.num_elt = 6; -c_73305.elts = (object *)alloca(sizeof(object) * 6); -c_73305.elts[0] = ((closureN)self_7397)->elts[0]; -c_73305.elts[1] = r_7354; -c_73305.elts[2] = ((closureN)self_7397)->elts[1]; -c_73305.elts[3] = ((closureN)self_7397)->elts[2]; -c_73305.elts[4] = ((closureN)self_7397)->elts[3]; -c_73305.elts[5] = ((closureN)self_7397)->elts[4]; - -return_closcall1(data,(closure)&c_73305, cdr(((closureN)self_7397)->elts[2]));; -} - -static void __lambda_31(void *data, int argc, object self_7398, object r_7356) { - Cyc_st_add(data, "nqueens.scm:nqueens"); - -closureN_type c_73307; -c_73307.hdr.mark = gc_color_red; - c_73307.hdr.grayed = 0; -c_73307.tag = closureN_tag; - c_73307.fn = (function_type)__lambda_30; -c_73307.num_args = 1; -c_73307.num_elt = 6; -c_73307.elts = (object *)alloca(sizeof(object) * 6); -c_73307.elts[0] = ((closureN)self_7398)->elts[0]; -c_73307.elts[1] = ((closureN)self_7398)->elts[1]; -c_73307.elts[2] = r_7356; -c_73307.elts[3] = ((closureN)self_7398)->elts[2]; -c_73307.elts[4] = ((closureN)self_7398)->elts[4]; -c_73307.elts[5] = ((closureN)self_7398)->elts[5]; - -return_closcall1(data,(closure)&c_73307, car(((closureN)self_7398)->elts[3]));; -} - -static void __lambda_30(void *data, int argc, object self_7399, object r_7358) { - Cyc_st_add(data, "nqueens.scm:nqueens"); - -closureN_type c_73309; -c_73309.hdr.mark = gc_color_red; - c_73309.hdr.grayed = 0; -c_73309.tag = closureN_tag; - c_73309.fn = (function_type)__lambda_29; -c_73309.num_args = 1; -c_73309.num_elt = 5; -c_73309.elts = (object *)alloca(sizeof(object) * 5); -c_73309.elts[0] = ((closureN)self_7399)->elts[0]; -c_73309.elts[1] = ((closureN)self_7399)->elts[1]; -c_73309.elts[2] = ((closureN)self_7399)->elts[2]; -c_73309.elts[3] = ((closureN)self_7399)->elts[3]; -c_73309.elts[4] = ((closureN)self_7399)->elts[5]; - - -make_cons(c_73325,r_7358, ((closureN)self_7399)->elts[4]); -return_closcall1(data,(closure)&c_73309, &c_73325);; -} - -static void __lambda_29(void *data, int argc, object self_73100, object r_7357) { - Cyc_st_add(data, "nqueens.scm:nqueens"); - -closureN_type c_73314; -c_73314.hdr.mark = gc_color_red; - c_73314.hdr.grayed = 0; -c_73314.tag = closureN_tag; - c_73314.fn = (function_type)__lambda_28; -c_73314.num_args = 1; -c_73314.num_elt = 2; -c_73314.elts = (object *)alloca(sizeof(object) * 2); -c_73314.elts[0] = ((closureN)self_73100)->elts[0]; -c_73314.elts[1] = ((closureN)self_73100)->elts[1]; - -return_closcall4(data, cell_get(((closureN)self_73100)->elts[3]), &c_73314, ((closureN)self_73100)->elts[2], r_7357, ((closureN)self_73100)->elts[4]);; -} - -static void __lambda_28(void *data, int argc, object self_73101, object r_7355) { - Cyc_st_add(data, "nqueens.scm:nqueens"); - -common_type c_73319 = Cyc_sum(data,2,((closureN)self_73101)->elts[1], r_7355); -return_closcall1(data, ((closureN)self_73101)->elts[0], &c_73319);; -} - -static void __lambda_27(void *data, int argc, object self_73102, object k_7359) { - Cyc_st_add(data, "nqueens.scm:nqueens"); - -closureN_type c_73261; -c_73261.hdr.mark = gc_color_red; - c_73261.hdr.grayed = 0; -c_73261.tag = closureN_tag; - c_73261.fn = (function_type)__lambda_26; -c_73261.num_args = 1; -c_73261.num_elt = 6; -c_73261.elts = (object *)alloca(sizeof(object) * 6); -c_73261.elts[0] = k_7359; -c_73261.elts[1] = ((closureN)self_73102)->elts[0]; -c_73261.elts[2] = ((closureN)self_73102)->elts[1]; -c_73261.elts[3] = ((closureN)self_73102)->elts[2]; -c_73261.elts[4] = ((closureN)self_73102)->elts[3]; -c_73261.elts[5] = ((closureN)self_73102)->elts[4]; - -return_closcall1(data,(closure)&c_73261, car(((closureN)self_73102)->elts[2]));; -} - -static void __lambda_26(void *data, int argc, object self_73103, object r_7366) { - Cyc_st_add(data, "nqueens.scm:nqueens"); - -closureN_type c_73266; -c_73266.hdr.mark = gc_color_red; - c_73266.hdr.grayed = 0; -c_73266.tag = closureN_tag; - c_73266.fn = (function_type)__lambda_25; -c_73266.num_args = 1; -c_73266.num_elt = 5; -c_73266.elts = (object *)alloca(sizeof(object) * 5); -c_73266.elts[0] = ((closureN)self_73103)->elts[0]; -c_73266.elts[1] = ((closureN)self_73103)->elts[2]; -c_73266.elts[2] = ((closureN)self_73103)->elts[3]; -c_73266.elts[3] = ((closureN)self_73103)->elts[4]; -c_73266.elts[4] = ((closureN)self_73103)->elts[5]; - - -make_int(c_73298, 1); -return_closcall4(data, cell_get(((closureN)self_73103)->elts[1]), &c_73266, r_7366, &c_73298, ((closureN)self_73103)->elts[5]);; -} - -static void __lambda_25(void *data, int argc, object self_73104, object r_7360) { - Cyc_st_add(data, "nqueens.scm:nqueens"); -if( !eq(boolean_f, r_7360) ){ - -closureN_type c_73268; -c_73268.hdr.mark = gc_color_red; - c_73268.hdr.grayed = 0; -c_73268.tag = closureN_tag; - c_73268.fn = (function_type)__lambda_24; -c_73268.num_args = 1; -c_73268.num_elt = 5; -c_73268.elts = (object *)alloca(sizeof(object) * 5); -c_73268.elts[0] = ((closureN)self_73104)->elts[0]; -c_73268.elts[1] = ((closureN)self_73104)->elts[1]; -c_73268.elts[2] = ((closureN)self_73104)->elts[2]; -c_73268.elts[3] = ((closureN)self_73104)->elts[3]; -c_73268.elts[4] = ((closureN)self_73104)->elts[4]; - -return_closcall1(data,(closure)&c_73268, cdr(((closureN)self_73104)->elts[2])); -} else { - -make_int(c_73297, 0); -return_closcall1(data, ((closureN)self_73104)->elts[0], &c_73297);} -; -} - -static void __lambda_24(void *data, int argc, object self_73105, object r_7365) { - Cyc_st_add(data, "nqueens.scm:nqueens"); - -closureN_type c_73270; -c_73270.hdr.mark = gc_color_red; - c_73270.hdr.grayed = 0; -c_73270.tag = closureN_tag; - c_73270.fn = (function_type)__lambda_23; -c_73270.num_args = 1; -c_73270.num_elt = 4; -c_73270.elts = (object *)alloca(sizeof(object) * 4); -c_73270.elts[0] = ((closureN)self_73105)->elts[0]; -c_73270.elts[1] = ((closureN)self_73105)->elts[1]; -c_73270.elts[2] = ((closureN)self_73105)->elts[2]; -c_73270.elts[3] = ((closureN)self_73105)->elts[4]; - -return_closcall3(data, __glo_append, &c_73270, r_7365, ((closureN)self_73105)->elts[3]);; -} - -static void __lambda_23(void *data, int argc, object self_73106, object r_7361) { - Cyc_st_add(data, "nqueens.scm:nqueens"); - -closureN_type c_73272; -c_73272.hdr.mark = gc_color_red; - c_73272.hdr.grayed = 0; -c_73272.tag = closureN_tag; - c_73272.fn = (function_type)__lambda_22; -c_73272.num_args = 1; -c_73272.num_elt = 5; -c_73272.elts = (object *)alloca(sizeof(object) * 5); -c_73272.elts[0] = ((closureN)self_73106)->elts[0]; -c_73272.elts[1] = r_7361; -c_73272.elts[2] = ((closureN)self_73106)->elts[1]; -c_73272.elts[3] = ((closureN)self_73106)->elts[2]; -c_73272.elts[4] = ((closureN)self_73106)->elts[3]; - -return_closcall1(data,(closure)&c_73272, nil);; -} - -static void __lambda_22(void *data, int argc, object self_73107, object r_7362) { - Cyc_st_add(data, "nqueens.scm:nqueens"); - -closureN_type c_73274; -c_73274.hdr.mark = gc_color_red; - c_73274.hdr.grayed = 0; -c_73274.tag = closureN_tag; - c_73274.fn = (function_type)__lambda_21; -c_73274.num_args = 1; -c_73274.num_elt = 5; -c_73274.elts = (object *)alloca(sizeof(object) * 5); -c_73274.elts[0] = ((closureN)self_73107)->elts[0]; -c_73274.elts[1] = ((closureN)self_73107)->elts[1]; -c_73274.elts[2] = r_7362; -c_73274.elts[3] = ((closureN)self_73107)->elts[2]; -c_73274.elts[4] = ((closureN)self_73107)->elts[4]; - -return_closcall1(data,(closure)&c_73274, car(((closureN)self_73107)->elts[3]));; -} - -static void __lambda_21(void *data, int argc, object self_73108, object r_7364) { - Cyc_st_add(data, "nqueens.scm:nqueens"); - -closureN_type c_73276; -c_73276.hdr.mark = gc_color_red; - c_73276.hdr.grayed = 0; -c_73276.tag = closureN_tag; - c_73276.fn = (function_type)__lambda_20; -c_73276.num_args = 1; -c_73276.num_elt = 4; -c_73276.elts = (object *)alloca(sizeof(object) * 4); -c_73276.elts[0] = ((closureN)self_73108)->elts[0]; -c_73276.elts[1] = ((closureN)self_73108)->elts[1]; -c_73276.elts[2] = ((closureN)self_73108)->elts[2]; -c_73276.elts[3] = ((closureN)self_73108)->elts[3]; - - -make_cons(c_73286,r_7364, ((closureN)self_73108)->elts[4]); -return_closcall1(data,(closure)&c_73276, &c_73286);; -} - -static void __lambda_20(void *data, int argc, object self_73109, object r_7363) { - Cyc_st_add(data, "nqueens.scm:nqueens"); -return_closcall4(data, cell_get(((closureN)self_73109)->elts[3]), ((closureN)self_73109)->elts[0], ((closureN)self_73109)->elts[1], ((closureN)self_73109)->elts[2], r_7363);; -} - -static void __lambda_19(void *data, int argc, object self_73110, object r_7353) { - Cyc_st_add(data, "nqueens.scm:nqueens"); -if( !eq(boolean_f, r_7353) ){ - -make_int(c_73251, 1); -return_closcall1(data, ((closureN)self_73110)->elts[0], &c_73251); -} else { - -make_int(c_73254, 0); -return_closcall1(data, ((closureN)self_73110)->elts[0], &c_73254);} -; -} - -static void __lambda_18(void *data, int argc, object self_73111, object r_7350) { - Cyc_st_add(data, "nqueens.scm:nqueens"); - -closureN_type c_73148; -c_73148.hdr.mark = gc_color_red; - c_73148.hdr.grayed = 0; -c_73148.tag = closureN_tag; - c_73148.fn = (function_type)__lambda_17; -c_73148.num_args = 1; -c_73148.num_elt = 5; -c_73148.elts = (object *)alloca(sizeof(object) * 5); -c_73148.elts[0] = ((closureN)self_73111)->elts[0]; -c_73148.elts[1] = ((closureN)self_73111)->elts[1]; -c_73148.elts[2] = ((closureN)self_73111)->elts[2]; -c_73148.elts[3] = ((closureN)self_73111)->elts[3]; -c_73148.elts[4] = ((closureN)self_73111)->elts[4]; - -return_closcall1(data,(closure)&c_73148, Cyc_set_car(data, ((closureN)self_73111)->elts[4], r_7350));; -} - -static void __lambda_17(void *data, int argc, object self_73112, object r_7332) { - Cyc_st_add(data, "nqueens.scm:nqueens"); - -closureN_type c_73150; -c_73150.hdr.mark = gc_color_red; - c_73150.hdr.grayed = 0; -c_73150.tag = closureN_tag; - c_73150.fn = (function_type)__lambda_4; -c_73150.num_args = 1; -c_73150.num_elt = 5; -c_73150.elts = (object *)alloca(sizeof(object) * 5); -c_73150.elts[0] = ((closureN)self_73112)->elts[0]; -c_73150.elts[1] = ((closureN)self_73112)->elts[1]; -c_73150.elts[2] = ((closureN)self_73112)->elts[2]; -c_73150.elts[3] = ((closureN)self_73112)->elts[3]; -c_73150.elts[4] = ((closureN)self_73112)->elts[4]; - - -closureN_type c_73173; -c_73173.hdr.mark = gc_color_red; - c_73173.hdr.grayed = 0; -c_73173.tag = closureN_tag; - c_73173.fn = (function_type)__lambda_16; -c_73173.num_args = 3; -c_73173.num_elt = 1; -c_73173.elts = (object *)alloca(sizeof(object) * 1); -c_73173.elts[0] = ((closureN)self_73112)->elts[3]; - -return_closcall1(data,(closure)&c_73150, &c_73173);; -} - -static void __lambda_16(void *data, int argc, object self_73113, object k_7338, object row_7316, object dist_7315, object placed_7314) { - Cyc_st_add(data, "nqueens.scm:nqueens"); - -closureN_type c_73175; -c_73175.hdr.mark = gc_color_red; - c_73175.hdr.grayed = 0; -c_73175.tag = closureN_tag; - c_73175.fn = (function_type)__lambda_15; -c_73175.num_args = 1; -c_73175.num_elt = 5; -c_73175.elts = (object *)alloca(sizeof(object) * 5); -c_73175.elts[0] = dist_7315; -c_73175.elts[1] = k_7338; -c_73175.elts[2] = ((closureN)self_73113)->elts[0]; -c_73175.elts[3] = placed_7314; -c_73175.elts[4] = row_7316; - -return_closcall1(data,(closure)&c_73175, Cyc_is_null(placed_7314));; -} - -static void __lambda_15(void *data, int argc, object self_73114, object r_7339) { - Cyc_st_add(data, "nqueens.scm:nqueens"); -if( !eq(boolean_f, r_7339) ){ - return_closcall1(data, ((closureN)self_73114)->elts[1], boolean_t); -} else { - -closureN_type c_73179; -c_73179.hdr.mark = gc_color_red; - c_73179.hdr.grayed = 0; -c_73179.tag = closureN_tag; - c_73179.fn = (function_type)__lambda_14; -c_73179.num_args = 1; -c_73179.num_elt = 5; -c_73179.elts = (object *)alloca(sizeof(object) * 5); -c_73179.elts[0] = ((closureN)self_73114)->elts[0]; -c_73179.elts[1] = ((closureN)self_73114)->elts[1]; -c_73179.elts[2] = ((closureN)self_73114)->elts[2]; -c_73179.elts[3] = ((closureN)self_73114)->elts[3]; -c_73179.elts[4] = ((closureN)self_73114)->elts[4]; - -return_closcall1(data,(closure)&c_73179, car(((closureN)self_73114)->elts[3]));} -; -} - -static void __lambda_14(void *data, int argc, object self_73115, object r_7348) { - Cyc_st_add(data, "nqueens.scm:nqueens"); - -closureN_type c_73181; -c_73181.hdr.mark = gc_color_red; - c_73181.hdr.grayed = 0; -c_73181.tag = closureN_tag; - c_73181.fn = (function_type)__lambda_13; -c_73181.num_args = 1; -c_73181.num_elt = 6; -c_73181.elts = (object *)alloca(sizeof(object) * 6); -c_73181.elts[0] = ((closureN)self_73115)->elts[0]; -c_73181.elts[1] = ((closureN)self_73115)->elts[1]; -c_73181.elts[2] = ((closureN)self_73115)->elts[2]; -c_73181.elts[3] = ((closureN)self_73115)->elts[3]; -c_73181.elts[4] = r_7348; -c_73181.elts[5] = ((closureN)self_73115)->elts[4]; - - -common_type c_73233 = Cyc_sum(data,2,((closureN)self_73115)->elts[4], ((closureN)self_73115)->elts[0]); -return_closcall1(data,(closure)&c_73181, &c_73233);; -} - -static void __lambda_13(void *data, int argc, object self_73116, object r_7349) { - Cyc_st_add(data, "nqueens.scm:nqueens"); - -closureN_type c_73183; -c_73183.hdr.mark = gc_color_red; - c_73183.hdr.grayed = 0; -c_73183.tag = closureN_tag; - c_73183.fn = (function_type)__lambda_12; -c_73183.num_args = 1; -c_73183.num_elt = 5; -c_73183.elts = (object *)alloca(sizeof(object) * 5); -c_73183.elts[0] = ((closureN)self_73116)->elts[0]; -c_73183.elts[1] = ((closureN)self_73116)->elts[1]; -c_73183.elts[2] = ((closureN)self_73116)->elts[2]; -c_73183.elts[3] = ((closureN)self_73116)->elts[3]; -c_73183.elts[4] = ((closureN)self_73116)->elts[5]; - -return_closcall1(data,(closure)&c_73183, __num_eq(data, ((closureN)self_73116)->elts[4], r_7349));; -} - -static void __lambda_12(void *data, int argc, object self_73117, object r_7347) { - Cyc_st_add(data, "nqueens.scm:nqueens"); - -closureN_type c_73185; -c_73185.hdr.mark = gc_color_red; - c_73185.hdr.grayed = 0; -c_73185.tag = closureN_tag; - c_73185.fn = (function_type)__lambda_11; -c_73185.num_args = 1; -c_73185.num_elt = 5; -c_73185.elts = (object *)alloca(sizeof(object) * 5); -c_73185.elts[0] = ((closureN)self_73117)->elts[0]; -c_73185.elts[1] = ((closureN)self_73117)->elts[1]; -c_73185.elts[2] = ((closureN)self_73117)->elts[2]; -c_73185.elts[3] = ((closureN)self_73117)->elts[3]; -c_73185.elts[4] = ((closureN)self_73117)->elts[4]; - -return_closcall2(data, __glo_not, &c_73185, r_7347);; -} - -static void __lambda_11(void *data, int argc, object self_73118, object r_7340) { - Cyc_st_add(data, "nqueens.scm:nqueens"); -if( !eq(boolean_f, r_7340) ){ - -closureN_type c_73187; -c_73187.hdr.mark = gc_color_red; - c_73187.hdr.grayed = 0; -c_73187.tag = closureN_tag; - c_73187.fn = (function_type)__lambda_10; -c_73187.num_args = 1; -c_73187.num_elt = 5; -c_73187.elts = (object *)alloca(sizeof(object) * 5); -c_73187.elts[0] = ((closureN)self_73118)->elts[0]; -c_73187.elts[1] = ((closureN)self_73118)->elts[1]; -c_73187.elts[2] = ((closureN)self_73118)->elts[2]; -c_73187.elts[3] = ((closureN)self_73118)->elts[3]; -c_73187.elts[4] = ((closureN)self_73118)->elts[4]; - -return_closcall1(data,(closure)&c_73187, car(((closureN)self_73118)->elts[3])); -} else { - return_closcall1(data, ((closureN)self_73118)->elts[1], boolean_f);} -; -} - -static void __lambda_10(void *data, int argc, object self_73119, object r_7345) { - Cyc_st_add(data, "nqueens.scm:nqueens"); - -closureN_type c_73189; -c_73189.hdr.mark = gc_color_red; - c_73189.hdr.grayed = 0; -c_73189.tag = closureN_tag; - c_73189.fn = (function_type)__lambda_9; -c_73189.num_args = 1; -c_73189.num_elt = 6; -c_73189.elts = (object *)alloca(sizeof(object) * 6); -c_73189.elts[0] = ((closureN)self_73119)->elts[0]; -c_73189.elts[1] = ((closureN)self_73119)->elts[1]; -c_73189.elts[2] = ((closureN)self_73119)->elts[2]; -c_73189.elts[3] = ((closureN)self_73119)->elts[3]; -c_73189.elts[4] = r_7345; -c_73189.elts[5] = ((closureN)self_73119)->elts[4]; - - -common_type c_73220 = Cyc_sub(data,2,((closureN)self_73119)->elts[4], ((closureN)self_73119)->elts[0]); -return_closcall1(data,(closure)&c_73189, &c_73220);; -} - -static void __lambda_9(void *data, int argc, object self_73120, object r_7346) { - Cyc_st_add(data, "nqueens.scm:nqueens"); - -closureN_type c_73191; -c_73191.hdr.mark = gc_color_red; - c_73191.hdr.grayed = 0; -c_73191.tag = closureN_tag; - c_73191.fn = (function_type)__lambda_8; -c_73191.num_args = 1; -c_73191.num_elt = 5; -c_73191.elts = (object *)alloca(sizeof(object) * 5); -c_73191.elts[0] = ((closureN)self_73120)->elts[0]; -c_73191.elts[1] = ((closureN)self_73120)->elts[1]; -c_73191.elts[2] = ((closureN)self_73120)->elts[2]; -c_73191.elts[3] = ((closureN)self_73120)->elts[3]; -c_73191.elts[4] = ((closureN)self_73120)->elts[5]; - -return_closcall1(data,(closure)&c_73191, __num_eq(data, ((closureN)self_73120)->elts[4], r_7346));; -} - -static void __lambda_8(void *data, int argc, object self_73121, object r_7344) { - Cyc_st_add(data, "nqueens.scm:nqueens"); - -closureN_type c_73193; -c_73193.hdr.mark = gc_color_red; - c_73193.hdr.grayed = 0; -c_73193.tag = closureN_tag; - c_73193.fn = (function_type)__lambda_7; -c_73193.num_args = 1; -c_73193.num_elt = 5; -c_73193.elts = (object *)alloca(sizeof(object) * 5); -c_73193.elts[0] = ((closureN)self_73121)->elts[0]; -c_73193.elts[1] = ((closureN)self_73121)->elts[1]; -c_73193.elts[2] = ((closureN)self_73121)->elts[2]; -c_73193.elts[3] = ((closureN)self_73121)->elts[3]; -c_73193.elts[4] = ((closureN)self_73121)->elts[4]; - -return_closcall2(data, __glo_not, &c_73193, r_7344);; -} - -static void __lambda_7(void *data, int argc, object self_73122, object r_7341) { - Cyc_st_add(data, "nqueens.scm:nqueens"); -if( !eq(boolean_f, r_7341) ){ - -closureN_type c_73195; -c_73195.hdr.mark = gc_color_red; - c_73195.hdr.grayed = 0; -c_73195.tag = closureN_tag; - c_73195.fn = (function_type)__lambda_6; -c_73195.num_args = 1; -c_73195.num_elt = 4; -c_73195.elts = (object *)alloca(sizeof(object) * 4); -c_73195.elts[0] = ((closureN)self_73122)->elts[1]; -c_73195.elts[1] = ((closureN)self_73122)->elts[2]; -c_73195.elts[2] = ((closureN)self_73122)->elts[3]; -c_73195.elts[3] = ((closureN)self_73122)->elts[4]; - - -make_int(c_73212, 1); - -common_type c_73210 = Cyc_sum(data,2,((closureN)self_73122)->elts[0], &c_73212); -return_closcall1(data,(closure)&c_73195, &c_73210); -} else { - return_closcall1(data, ((closureN)self_73122)->elts[1], boolean_f);} -; -} - -static void __lambda_6(void *data, int argc, object self_73123, object r_7342) { - Cyc_st_add(data, "nqueens.scm:nqueens"); - -closureN_type c_73197; -c_73197.hdr.mark = gc_color_red; - c_73197.hdr.grayed = 0; -c_73197.tag = closureN_tag; - c_73197.fn = (function_type)__lambda_5; -c_73197.num_args = 1; -c_73197.num_elt = 4; -c_73197.elts = (object *)alloca(sizeof(object) * 4); -c_73197.elts[0] = ((closureN)self_73123)->elts[0]; -c_73197.elts[1] = ((closureN)self_73123)->elts[1]; -c_73197.elts[2] = r_7342; -c_73197.elts[3] = ((closureN)self_73123)->elts[3]; - -return_closcall1(data,(closure)&c_73197, cdr(((closureN)self_73123)->elts[2]));; -} - -static void __lambda_5(void *data, int argc, object self_73124, object r_7343) { - Cyc_st_add(data, "nqueens.scm:nqueens"); -return_closcall4(data, cell_get(((closureN)self_73124)->elts[1]), ((closureN)self_73124)->elts[0], ((closureN)self_73124)->elts[3], ((closureN)self_73124)->elts[2], r_7343);; -} - -static void __lambda_4(void *data, int argc, object self_73125, object r_7337) { - Cyc_st_add(data, "nqueens.scm:nqueens"); - -closureN_type c_73152; -c_73152.hdr.mark = gc_color_red; - c_73152.hdr.grayed = 0; -c_73152.tag = closureN_tag; - c_73152.fn = (function_type)__lambda_3; -c_73152.num_args = 1; -c_73152.num_elt = 4; -c_73152.elts = (object *)alloca(sizeof(object) * 4); -c_73152.elts[0] = ((closureN)self_73125)->elts[0]; -c_73152.elts[1] = ((closureN)self_73125)->elts[1]; -c_73152.elts[2] = ((closureN)self_73125)->elts[2]; -c_73152.elts[3] = ((closureN)self_73125)->elts[4]; - -return_closcall1(data,(closure)&c_73152, Cyc_set_car(data, ((closureN)self_73125)->elts[3], r_7337));; -} - -static void __lambda_3(void *data, int argc, object self_73126, object r_7333) { - Cyc_st_add(data, "nqueens.scm:nqueens"); - -closureN_type c_73157; -c_73157.hdr.mark = gc_color_red; - c_73157.hdr.grayed = 0; -c_73157.tag = closureN_tag; - c_73157.fn = (function_type)__lambda_2; -c_73157.num_args = 1; -c_73157.num_elt = 2; -c_73157.elts = (object *)alloca(sizeof(object) * 2); -c_73157.elts[0] = ((closureN)self_73126)->elts[1]; -c_73157.elts[1] = ((closureN)self_73126)->elts[3]; - -return_closcall2(data, cell_get(((closureN)self_73126)->elts[0]), &c_73157, ((closureN)self_73126)->elts[2]);; -} - -static void __lambda_2(void *data, int argc, object self_73127, object r_7334) { - Cyc_st_add(data, "nqueens.scm:nqueens"); - -closureN_type c_73159; -c_73159.hdr.mark = gc_color_red; - c_73159.hdr.grayed = 0; -c_73159.tag = closureN_tag; - c_73159.fn = (function_type)__lambda_1; -c_73159.num_args = 1; -c_73159.num_elt = 3; -c_73159.elts = (object *)alloca(sizeof(object) * 3); -c_73159.elts[0] = ((closureN)self_73127)->elts[0]; -c_73159.elts[1] = r_7334; -c_73159.elts[2] = ((closureN)self_73127)->elts[1]; - -return_closcall1(data,(closure)&c_73159, nil);; -} - -static void __lambda_1(void *data, int argc, object self_73128, object r_7335) { - Cyc_st_add(data, "nqueens.scm:nqueens"); - -closureN_type c_73161; -c_73161.hdr.mark = gc_color_red; - c_73161.hdr.grayed = 0; -c_73161.tag = closureN_tag; - c_73161.fn = (function_type)__lambda_0; -c_73161.num_args = 1; -c_73161.num_elt = 4; -c_73161.elts = (object *)alloca(sizeof(object) * 4); -c_73161.elts[0] = ((closureN)self_73128)->elts[0]; -c_73161.elts[1] = ((closureN)self_73128)->elts[1]; -c_73161.elts[2] = r_7335; -c_73161.elts[3] = ((closureN)self_73128)->elts[2]; - -return_closcall1(data,(closure)&c_73161, nil);; -} - -static void __lambda_0(void *data, int argc, object self_73129, object r_7336) { - Cyc_st_add(data, "nqueens.scm:nqueens"); -return_closcall4(data, cell_get(((closureN)self_73129)->elts[3]), ((closureN)self_73129)->elts[0], ((closureN)self_73129)->elts[1], ((closureN)self_73129)->elts[2], r_7336);; -} - -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); -static void c_entry_pt(data, argc, env,cont) void *data; int argc; closure env,cont; { - - add_global((object *) &__glo_nqueens); - mclosure0(c_73130, (function_type)__lambda_53);c_73130.num_args = 1; - __glo_nqueens = &c_73130; - - make_cvar(cvar_73412, (object *)&__glo_nqueens);make_cons(pair_73413, find_or_add_symbol("nqueens"), &cvar_73412); -make_cons(c_73414, &pair_73413,Cyc_global_variables); -Cyc_global_variables = &c_73414; -mclosure1(c_done, c_entry_pt_first_lambda, &c_done); -mclosure1(c_73415, c_schemewrite_entry_pt, &c_done); -mclosure1(c_73416, c_schemebase_entry_pt, &c_73415); -(c_73416.fn)(data, 0, &c_73416, &c_73416); -} -static void c_entry_pt_first_lambda(void *data, int argc, closure cont, object value) { - - return_direct0(data,__lambda_56); -} -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;}