(declare (block) (standard-bindings) (extended-bindings))
(begin
  (define gerbil/compiler/optimize-top::timestamp 1713631268)
  (begin
    (define gxc#::collect-top-level-type-info::t
      (let ((__tmp170851 (list gxc#::void::t))
            (__tmp170850 (cons (cons 'final: '#t) '())))
        (declare (not safe))
        (__make-class-type
         'gxc#::collect-top-level-type-info::t
         '::collect-top-level-type-info
         __tmp170851
         '()
         __tmp170850
         '#f)))
    (define gxc#::collect-top-level-type-info?
      (let ()
        (declare (not safe))
        (__make-class-predicate gxc#::collect-top-level-type-info::t)))
    (define gxc#make-::collect-top-level-type-info
      (lambda _%$args167793%_
        (apply make-instance
               gxc#::collect-top-level-type-info::t
               _%$args167793%_)))
    (define gxc#::collect-top-level-type-info-bind-methods!
      (let ((__tmp170852
             (lambda ()
               (force gxc#::void-bind-methods!)
               (let ()
                 (declare (not safe))
                 (bind-method!__0
                  gxc#::collect-top-level-type-info::t
                  '%#begin
                  gxc#apply-begin%))
               (let ()
                 (declare (not safe))
                 (bind-method!__0
                  gxc#::collect-top-level-type-info::t
                  '%#begin-syntax
                  gxc#apply-begin-syntax%))
               (let ()
                 (declare (not safe))
                 (bind-method!__0
                  gxc#::collect-top-level-type-info::t
                  '%#module
                  gxc#apply-module%))
               (let ()
                 (declare (not safe))
                 (bind-method!__0
                  gxc#::collect-top-level-type-info::t
                  '%#define-values
                  gxc#collect-top-level-type-define-values%))
               (let ()
                 (declare (not safe))
                 (bind-method!__0
                  gxc#::collect-top-level-type-info::t
                  '%#lambda
                  gxc#collect-type-lambda%))
               (let ()
                 (declare (not safe))
                 (bind-method!__0
                  gxc#::collect-top-level-type-info::t
                  '%#case-lambda
                  gxc#collect-type-case-lambda%))
               (let ()
                 (declare (not safe))
                 (bind-method!__0
                  gxc#::collect-top-level-type-info::t
                  '%#let-values
                  gxc#collect-top-level-type-let-values%))
               (let ()
                 (declare (not safe))
                 (bind-method!__0
                  gxc#::collect-top-level-type-info::t
                  '%#letrec-values
                  gxc#collect-top-level-type-letrec-values%))
               (let ()
                 (declare (not safe))
                 (bind-method!__0
                  gxc#::collect-top-level-type-info::t
                  '%#letrec*-values
                  gxc#collect-top-level-type-letrec-values%))
               (let ()
                 (declare (not safe))
                 (bind-method!__0
                  gxc#::collect-top-level-type-info::t
                  '%#call
                  gxc#collect-top-level-type-call%))
               (let ()
                 (declare (not safe))
                 (bind-method!__0
                  gxc#::collect-top-level-type-info::t
                  '%#if
                  gxc#apply-operands))
               (let ()
                 (declare (not safe))
                 (bind-method!__0
                  gxc#::collect-top-level-type-info::t
                  '%#set!
                  gxc#apply-body-setq%))
               (let ()
                 (declare (not safe))
                 (__seal-class! gxc#::collect-top-level-type-info::t)))))
        (declare (not safe))
        (__make-promise __tmp170852)))
    (define gxc#apply-collect-top-level-type-info
      (lambda (_%stx167785%_)
        (force gxc#::collect-top-level-type-info-bind-methods!)
        (let* ((_%self167788%_
                (let ((__obj170797
                       (let ()
                         (declare (not safe))
                         (##structure gxc#::collect-top-level-type-info::t))))
                  __obj170797))
               (__tmp170853
                (lambda ()
                  (let ()
                    (declare (not safe))
                    (gxc#compile-e__1 _%self167788%_ _%stx167785%_)))))
          (declare (not safe))
          (__call-with-parameters
           __tmp170853
           gxc#current-compile-method
           _%self167788%_))))
    (define gxc#::collect-top-level-declarations::t
      (let ((__tmp170855 (list gxc#::void::t))
            (__tmp170854 (cons (cons 'final: '#t) '())))
        (declare (not safe))
        (__make-class-type
         'gxc#::collect-top-level-declarations::t
         '::collect-top-level-declarations
         __tmp170855
         '()
         __tmp170854
         '#f)))
    (define gxc#::collect-top-level-declarations?
      (let ()
        (declare (not safe))
        (__make-class-predicate gxc#::collect-top-level-declarations::t)))
    (define gxc#make-::collect-top-level-declarations
      (lambda _%$args167782%_
        (apply make-instance
               gxc#::collect-top-level-declarations::t
               _%$args167782%_)))
    (define gxc#::collect-top-level-declarations-bind-methods!
      (let ((__tmp170856
             (lambda ()
               (force gxc#::void-bind-methods!)
               (let ()
                 (declare (not safe))
                 (bind-method!__0
                  gxc#::collect-top-level-declarations::t
                  '%#begin
                  gxc#apply-begin%))
               (let ()
                 (declare (not safe))
                 (bind-method!__0
                  gxc#::collect-top-level-declarations::t
                  '%#begin-syntax
                  gxc#apply-begin-syntax%))
               (let ()
                 (declare (not safe))
                 (bind-method!__0
                  gxc#::collect-top-level-declarations::t
                  '%#module
                  gxc#apply-module%))
               (let ()
                 (declare (not safe))
                 (bind-method!__0
                  gxc#::collect-top-level-declarations::t
                  '%#begin-annotation
                  gxc#collect-top-level-decl-begin-annotation%))
               (let ()
                 (declare (not safe))
                 (__seal-class! gxc#::collect-top-level-declarations::t)))))
        (declare (not safe))
        (__make-promise __tmp170856)))
    (define gxc#apply-collect-top-level-declarations
      (lambda (_%stx167774%_)
        (force gxc#::collect-top-level-declarations-bind-methods!)
        (let* ((_%self167777%_
                (let ((__obj170799
                       (let ()
                         (declare (not safe))
                         (##structure
                          gxc#::collect-top-level-declarations::t))))
                  __obj170799))
               (__tmp170857
                (lambda ()
                  (let ()
                    (declare (not safe))
                    (gxc#compile-e__1 _%self167777%_ _%stx167774%_)))))
          (declare (not safe))
          (__call-with-parameters
           __tmp170857
           gxc#current-compile-method
           _%self167777%_))))
    (define gxc#::basic-expression-top-level-type::t
      (let ((__tmp170859 (list gxc#::false::t))
            (__tmp170858 (cons (cons 'final: '#t) '())))
        (declare (not safe))
        (__make-class-type
         'gxc#::basic-expression-top-level-type::t
         '::basic-expression-top-level-type
         __tmp170859
         '()
         __tmp170858
         '#f)))
    (define gxc#::basic-expression-top-level-type?
      (let ()
        (declare (not safe))
        (__make-class-predicate gxc#::basic-expression-top-level-type::t)))
    (define gxc#make-::basic-expression-top-level-type
      (lambda _%$args167771%_
        (apply make-instance
               gxc#::basic-expression-top-level-type::t
               _%$args167771%_)))
    (define gxc#::basic-expression-top-level-type-bind-methods!
      (let ((__tmp170860
             (lambda ()
               (force gxc#::false-bind-methods!)
               (let ()
                 (declare (not safe))
                 (bind-method!__0
                  gxc#::basic-expression-top-level-type::t
                  '%#begin-annotation
                  gxc#basic-expression-type-begin-annotation%))
               (let ()
                 (declare (not safe))
                 (__seal-class! gxc#::basic-expression-top-level-type::t)))))
        (declare (not safe))
        (__make-promise __tmp170860)))
    (define gxc#apply-basic-expression-top-level-type
      (lambda (_%stx167763%_)
        (force gxc#::basic-expression-top-level-type-bind-methods!)
        (let* ((_%self167766%_
                (let ((__obj170801
                       (let ()
                         (declare (not safe))
                         (##structure
                          gxc#::basic-expression-top-level-type::t))))
                  __obj170801))
               (__tmp170861
                (lambda ()
                  (let ()
                    (declare (not safe))
                    (gxc#compile-e__1 _%self167766%_ _%stx167763%_)))))
          (declare (not safe))
          (__call-with-parameters
           __tmp170861
           gxc#current-compile-method
           _%self167766%_))))
    (define gxc#::collect-type-info::t
      (let ((__tmp170863 (list gxc#::void::t))
            (__tmp170862 (cons (cons 'final: '#t) '())))
        (declare (not safe))
        (__make-class-type
         'gxc#::collect-type-info::t
         '::collect-type-info
         __tmp170863
         '()
         __tmp170862
         '#f)))
    (define gxc#::collect-type-info?
      (let ()
        (declare (not safe))
        (__make-class-predicate gxc#::collect-type-info::t)))
    (define gxc#make-::collect-type-info
      (lambda _%$args167760%_
        (apply make-instance gxc#::collect-type-info::t _%$args167760%_)))
    (define gxc#::collect-type-info-bind-methods!
      (let ((__tmp170864
             (lambda ()
               (force gxc#::void-bind-methods!)
               (let ()
                 (declare (not safe))
                 (bind-method!__0
                  gxc#::collect-type-info::t
                  '%#begin
                  gxc#apply-begin%))
               (let ()
                 (declare (not safe))
                 (bind-method!__0
                  gxc#::collect-type-info::t
                  '%#begin-syntax
                  gxc#apply-begin-syntax%))
               (let ()
                 (declare (not safe))
                 (bind-method!__0
                  gxc#::collect-type-info::t
                  '%#module
                  gxc#apply-module%))
               (let ()
                 (declare (not safe))
                 (bind-method!__0
                  gxc#::collect-type-info::t
                  '%#define-values
                  gxc#collect-type-define-values%))
               (let ()
                 (declare (not safe))
                 (bind-method!__0
                  gxc#::collect-type-info::t
                  '%#begin-annotation
                  gxc#collect-type-begin-annotation%))
               (let ()
                 (declare (not safe))
                 (bind-method!__0
                  gxc#::collect-type-info::t
                  '%#lambda
                  gxc#collect-type-lambda%))
               (let ()
                 (declare (not safe))
                 (bind-method!__0
                  gxc#::collect-type-info::t
                  '%#case-lambda
                  gxc#collect-type-case-lambda%))
               (let ()
                 (declare (not safe))
                 (bind-method!__0
                  gxc#::collect-type-info::t
                  '%#let-values
                  gxc#collect-type-let-values%))
               (let ()
                 (declare (not safe))
                 (bind-method!__0
                  gxc#::collect-type-info::t
                  '%#letrec-values
                  gxc#collect-type-letrec-values%))
               (let ()
                 (declare (not safe))
                 (bind-method!__0
                  gxc#::collect-type-info::t
                  '%#letrec*-values
                  gxc#collect-type-letrec-values%))
               (let ()
                 (declare (not safe))
                 (bind-method!__0
                  gxc#::collect-type-info::t
                  '%#call
                  gxc#apply-operands))
               (let ()
                 (declare (not safe))
                 (bind-method!__0
                  gxc#::collect-type-info::t
                  '%#if
                  gxc#apply-path-type-if%))
               (let ()
                 (declare (not safe))
                 (bind-method!__0
                  gxc#::collect-type-info::t
                  '%#set!
                  gxc#apply-body-setq%))
               (let ()
                 (declare (not safe))
                 (__seal-class! gxc#::collect-type-info::t)))))
        (declare (not safe))
        (__make-promise __tmp170864)))
    (define gxc#apply-collect-type-info
      (lambda (_%stx167752%_)
        (force gxc#::collect-type-info-bind-methods!)
        (let* ((_%self167755%_
                (let ((__obj170803
                       (let ()
                         (declare (not safe))
                         (##structure gxc#::collect-type-info::t))))
                  __obj170803))
               (__tmp170865
                (lambda ()
                  (let ()
                    (declare (not safe))
                    (gxc#compile-e__1 _%self167755%_ _%stx167752%_)))))
          (declare (not safe))
          (__call-with-parameters
           __tmp170865
           gxc#current-compile-method
           _%self167755%_))))
    (define gxc#::collect-mutable-type-info::t
      (let ((__tmp170867 (list gxc#::void::t))
            (__tmp170866 (cons (cons 'final: '#t) '())))
        (declare (not safe))
        (__make-class-type
         'gxc#::collect-mutable-type-info::t
         '::collect-mutable-type-info
         __tmp170867
         '()
         __tmp170866
         '#f)))
    (define gxc#::collect-mutable-type-info?
      (let ()
        (declare (not safe))
        (__make-class-predicate gxc#::collect-mutable-type-info::t)))
    (define gxc#make-::collect-mutable-type-info
      (lambda _%$args167749%_
        (apply make-instance
               gxc#::collect-mutable-type-info::t
               _%$args167749%_)))
    (define gxc#::collect-mutable-type-info-bind-methods!
      (let ((__tmp170868
             (lambda ()
               (force gxc#::void-bind-methods!)
               (let ()
                 (declare (not safe))
                 (bind-method!__0
                  gxc#::collect-mutable-type-info::t
                  '%#begin
                  gxc#apply-begin%))
               (let ()
                 (declare (not safe))
                 (bind-method!__0
                  gxc#::collect-mutable-type-info::t
                  '%#begin-syntax
                  gxc#apply-begin-syntax%))
               (let ()
                 (declare (not safe))
                 (bind-method!__0
                  gxc#::collect-mutable-type-info::t
                  '%#module
                  gxc#apply-module%))
               (let ()
                 (declare (not safe))
                 (bind-method!__0
                  gxc#::collect-mutable-type-info::t
                  '%#define-values
                  gxc#apply-define-values%))
               (let ()
                 (declare (not safe))
                 (bind-method!__0
                  gxc#::collect-mutable-type-info::t
                  '%#begin-annotation
                  gxc#apply-begin-annotation%))
               (let ()
                 (declare (not safe))
                 (bind-method!__0
                  gxc#::collect-mutable-type-info::t
                  '%#lambda
                  gxc#collect-type-lambda%))
               (let ()
                 (declare (not safe))
                 (bind-method!__0
                  gxc#::collect-mutable-type-info::t
                  '%#case-lambda
                  gxc#collect-type-case-lambda%))
               (let ()
                 (declare (not safe))
                 (bind-method!__0
                  gxc#::collect-mutable-type-info::t
                  '%#let-values
                  gxc#collect-type-let-values%))
               (let ()
                 (declare (not safe))
                 (bind-method!__0
                  gxc#::collect-mutable-type-info::t
                  '%#letrec-values
                  gxc#collect-type-letrec-values%))
               (let ()
                 (declare (not safe))
                 (bind-method!__0
                  gxc#::collect-mutable-type-info::t
                  '%#letrec*-values
                  gxc#collect-type-letrec-values%))
               (let ()
                 (declare (not safe))
                 (bind-method!__0
                  gxc#::collect-mutable-type-info::t
                  '%#call
                  gxc#apply-operands))
               (let ()
                 (declare (not safe))
                 (bind-method!__0
                  gxc#::collect-mutable-type-info::t
                  '%#if
                  gxc#apply-path-type-if%))
               (let ()
                 (declare (not safe))
                 (bind-method!__0
                  gxc#::collect-mutable-type-info::t
                  '%#set!
                  gxc#collect-type-setq%))
               (let ()
                 (declare (not safe))
                 (__seal-class! gxc#::collect-mutable-type-info::t)))))
        (declare (not safe))
        (__make-promise __tmp170868)))
    (define gxc#apply-collect-mutable-type-info
      (lambda (_%stx167741%_)
        (force gxc#::collect-mutable-type-info-bind-methods!)
        (let* ((_%self167744%_
                (let ((__obj170805
                       (let ()
                         (declare (not safe))
                         (##structure gxc#::collect-mutable-type-info::t))))
                  __obj170805))
               (__tmp170869
                (lambda ()
                  (let ()
                    (declare (not safe))
                    (gxc#compile-e__1 _%self167744%_ _%stx167741%_)))))
          (declare (not safe))
          (__call-with-parameters
           __tmp170869
           gxc#current-compile-method
           _%self167744%_))))
    (define gxc#::refine-type-info::t
      (let ((__tmp170871 (list gxc#::void::t))
            (__tmp170870 (cons (cons 'final: '#t) '())))
        (declare (not safe))
        (__make-class-type
         'gxc#::refine-type-info::t
         '::refine-type-info
         __tmp170871
         '()
         __tmp170870
         '#f)))
    (define gxc#::refine-type-info?
      (let ()
        (declare (not safe))
        (__make-class-predicate gxc#::refine-type-info::t)))
    (define gxc#make-::refine-type-info
      (lambda _%$args167738%_
        (apply make-instance gxc#::refine-type-info::t _%$args167738%_)))
    (define gxc#::refine-type-info-bind-methods!
      (let ((__tmp170872
             (lambda ()
               (force gxc#::void-bind-methods!)
               (let ()
                 (declare (not safe))
                 (bind-method!__0
                  gxc#::refine-type-info::t
                  '%#begin
                  gxc#apply-begin%))
               (let ()
                 (declare (not safe))
                 (bind-method!__0
                  gxc#::refine-type-info::t
                  '%#begin-syntax
                  gxc#apply-begin-syntax%))
               (let ()
                 (declare (not safe))
                 (bind-method!__0
                  gxc#::refine-type-info::t
                  '%#module
                  gxc#apply-module%))
               (let ()
                 (declare (not safe))
                 (bind-method!__0
                  gxc#::refine-type-info::t
                  '%#define-values
                  gxc#refine-type-define-values%))
               (let ()
                 (declare (not safe))
                 (bind-method!__0
                  gxc#::refine-type-info::t
                  '%#begin-annotation
                  gxc#apply-begin-annotation%))
               (let ()
                 (declare (not safe))
                 (bind-method!__0
                  gxc#::refine-type-info::t
                  '%#lambda
                  gxc#refine-type-lambda%))
               (let ()
                 (declare (not safe))
                 (bind-method!__0
                  gxc#::refine-type-info::t
                  '%#case-lambda
                  gxc#refine-type-case-lambda%))
               (let ()
                 (declare (not safe))
                 (bind-method!__0
                  gxc#::refine-type-info::t
                  '%#let-values
                  gxc#refine-type-let-values%))
               (let ()
                 (declare (not safe))
                 (bind-method!__0
                  gxc#::refine-type-info::t
                  '%#letrec-values
                  gxc#refine-type-letrec-values%))
               (let ()
                 (declare (not safe))
                 (bind-method!__0
                  gxc#::refine-type-info::t
                  '%#letrec*-values
                  gxc#refine-type-letrec-values%))
               (let ()
                 (declare (not safe))
                 (bind-method!__0
                  gxc#::refine-type-info::t
                  '%#call
                  gxc#apply-operands))
               (let ()
                 (declare (not safe))
                 (bind-method!__0
                  gxc#::refine-type-info::t
                  '%#if
                  gxc#apply-path-type-if%))
               (let ()
                 (declare (not safe))
                 (bind-method!__0
                  gxc#::refine-type-info::t
                  '%#set!
                  gxc#apply-body-setq%))
               (let ()
                 (declare (not safe))
                 (__seal-class! gxc#::refine-type-info::t)))))
        (declare (not safe))
        (__make-promise __tmp170872)))
    (define gxc#apply-refine-type-info
      (lambda (_%stx167730%_)
        (force gxc#::refine-type-info-bind-methods!)
        (let* ((_%self167733%_
                (let ((__obj170807
                       (let ()
                         (declare (not safe))
                         (##structure gxc#::refine-type-info::t))))
                  __obj170807))
               (__tmp170873
                (lambda ()
                  (let ()
                    (declare (not safe))
                    (gxc#compile-e__1 _%self167733%_ _%stx167730%_)))))
          (declare (not safe))
          (__call-with-parameters
           __tmp170873
           gxc#current-compile-method
           _%self167733%_))))
    (define gxc#::raw-expression-type::t
      (let ((__tmp170874 (list gxc#::false::t)))
        (declare (not safe))
        (__make-class-type
         'gxc#::raw-expression-type::t
         '::raw-expression-type
         __tmp170874
         '()
         '()
         '#f)))
    (define gxc#::raw-expression-type?
      (let ()
        (declare (not safe))
        (__make-class-predicate gxc#::raw-expression-type::t)))
    (define gxc#make-::raw-expression-type
      (lambda _%$args167727%_
        (apply make-instance gxc#::raw-expression-type::t _%$args167727%_)))
    (define gxc#::raw-expression-type-bind-methods!
      (let ((__tmp170875
             (lambda ()
               (force gxc#::false-bind-methods!)
               (let ()
                 (declare (not safe))
                 (bind-method!__0
                  gxc#::raw-expression-type::t
                  '%#begin
                  gxc#apply-last-begin%))
               (let ()
                 (declare (not safe))
                 (bind-method!__0
                  gxc#::raw-expression-type::t
                  '%#begin-annotation
                  gxc#basic-expression-type-begin-annotation%))
               (let ()
                 (declare (not safe))
                 (bind-method!__0
                  gxc#::raw-expression-type::t
                  '%#lambda
                  gxc#raw-expression-type-lambda%))
               (let ()
                 (declare (not safe))
                 (bind-method!__0
                  gxc#::raw-expression-type::t
                  '%#case-lambda
                  gxc#basic-expression-type-case-lambda%))
               (let ()
                 (declare (not safe))
                 (bind-method!__0
                  gxc#::raw-expression-type::t
                  '%#let-values
                  gxc#apply-body-last-let-values%))
               (let ()
                 (declare (not safe))
                 (bind-method!__0
                  gxc#::raw-expression-type::t
                  '%#letrec-values
                  gxc#apply-body-last-let-values%))
               (let ()
                 (declare (not safe))
                 (bind-method!__0
                  gxc#::raw-expression-type::t
                  '%#letrec*-values
                  gxc#apply-body-last-let-values%))
               (let ()
                 (declare (not safe))
                 (bind-method!__0
                  gxc#::raw-expression-type::t
                  '%#call
                  gxc#basic-expression-type-call%))
               (let ()
                 (declare (not safe))
                 (bind-method!__0
                  gxc#::raw-expression-type::t
                  '%#ref
                  gxc#basic-expression-type-ref%))
               (let ()
                 (declare (not safe))
                 (bind-method!__0
                  gxc#::raw-expression-type::t
                  '%#if
                  gxc#basic-expression-type-if%))
               (let ()
                 (declare (not safe))
                 (bind-method!__0
                  gxc#::raw-expression-type::t
                  '%#quote
                  gxc#basic-expression-type-quote%)))))
        (declare (not safe))
        (__make-promise __tmp170875)))
    (define gxc#apply-raw-expression-type
      (lambda (_%stx167719%_)
        (force gxc#::raw-expression-type-bind-methods!)
        (let* ((_%self167722%_
                (let ((__obj170809
                       (let ()
                         (declare (not safe))
                         (##structure gxc#::raw-expression-type::t))))
                  __obj170809))
               (__tmp170876
                (lambda ()
                  (let ()
                    (declare (not safe))
                    (gxc#compile-e__1 _%self167722%_ _%stx167719%_)))))
          (declare (not safe))
          (__call-with-parameters
           __tmp170876
           gxc#current-compile-method
           _%self167722%_))))
    (define gxc#::basic-expression-type::t
      (let ((__tmp170878 (list gxc#::raw-expression-type::t gxc#::false::t))
            (__tmp170877 (cons (cons 'final: '#t) '())))
        (declare (not safe))
        (__make-class-type
         'gxc#::basic-expression-type::t
         '::basic-expression-type
         __tmp170878
         '()
         __tmp170877
         '#f)))
    (define gxc#::basic-expression-type?
      (let ()
        (declare (not safe))
        (__make-class-predicate gxc#::basic-expression-type::t)))
    (define gxc#make-::basic-expression-type
      (lambda _%$args167716%_
        (apply make-instance gxc#::basic-expression-type::t _%$args167716%_)))
    (define gxc#::basic-expression-type-bind-methods!
      (let ((__tmp170879
             (lambda ()
               (force gxc#::raw-expression-type-bind-methods!)
               (force gxc#::false-bind-methods!)
               (let ()
                 (declare (not safe))
                 (bind-method!__0
                  gxc#::basic-expression-type::t
                  '%#lambda
                  gxc#basic-expression-type-lambda%))
               (let ()
                 (declare (not safe))
                 (__seal-class! gxc#::basic-expression-type::t)))))
        (declare (not safe))
        (__make-promise __tmp170879)))
    (define gxc#apply-basic-expression-type
      (lambda (_%stx167708%_)
        (force gxc#::basic-expression-type-bind-methods!)
        (let* ((_%self167711%_
                (let ((__obj170811
                       (let ()
                         (declare (not safe))
                         (##structure gxc#::basic-expression-type::t))))
                  __obj170811))
               (__tmp170880
                (lambda ()
                  (let ()
                    (declare (not safe))
                    (gxc#compile-e__1 _%self167711%_ _%stx167708%_)))))
          (declare (not safe))
          (__call-with-parameters
           __tmp170880
           gxc#current-compile-method
           _%self167711%_))))
    (define gxc#::lift-top-lambdas::t
      (let ((__tmp170882 (list gxc#::basic-xform::t))
            (__tmp170881 (cons (cons 'final: '#t) '())))
        (declare (not safe))
        (__make-class-type
         'gxc#::lift-top-lambdas::t
         '::lift-top-lambdas
         __tmp170882
         '()
         __tmp170881
         '#f)))
    (define gxc#::lift-top-lambdas?
      (let ()
        (declare (not safe))
        (__make-class-predicate gxc#::lift-top-lambdas::t)))
    (define gxc#make-::lift-top-lambdas
      (lambda _%$args167705%_
        (apply make-instance gxc#::lift-top-lambdas::t _%$args167705%_)))
    (define gxc#::lift-top-lambdas-bind-methods!
      (let ((__tmp170883
             (lambda ()
               (force gxc#::basic-xform-bind-methods!)
               (let ()
                 (declare (not safe))
                 (bind-method!__0
                  gxc#::lift-top-lambdas::t
                  '%#define-values
                  gxc#lift-top-lambda-define-values%))
               (let ()
                 (declare (not safe))
                 (bind-method!__0
                  gxc#::lift-top-lambdas::t
                  '%#let-values
                  gxc#lift-top-lambda-let-values%))
               (let ()
                 (declare (not safe))
                 (bind-method!__0
                  gxc#::lift-top-lambdas::t
                  '%#letrec-values
                  gxc#lift-top-lambda-letrec-values%))
               (let ()
                 (declare (not safe))
                 (bind-method!__0
                  gxc#::lift-top-lambdas::t
                  '%#letrec*-values
                  gxc#lift-top-lambda-letrec-values%))
               (let ()
                 (declare (not safe))
                 (__seal-class! gxc#::lift-top-lambdas::t)))))
        (declare (not safe))
        (__make-promise __tmp170883)))
    (define gxc#apply-lift-top-lambdas
      (lambda (_%stx167697%_)
        (force gxc#::lift-top-lambdas-bind-methods!)
        (let* ((_%self167700%_
                (let ((__obj170813
                       (let ()
                         (declare (not safe))
                         (##structure gxc#::lift-top-lambdas::t))))
                  __obj170813))
               (__tmp170884
                (lambda ()
                  (let ()
                    (declare (not safe))
                    (gxc#compile-e__1 _%self167700%_ _%stx167697%_)))))
          (declare (not safe))
          (__call-with-parameters
           __tmp170884
           gxc#current-compile-method
           _%self167700%_))))
    (define gxc#::extract-lambda-signature::t
      (let ((__tmp170886 (list gxc#::false::t))
            (__tmp170885 (cons (cons 'final: '#t) '())))
        (declare (not safe))
        (__make-class-type
         'gxc#::extract-lambda-signature::t
         '::extract-lambda-signature
         __tmp170886
         '()
         __tmp170885
         '#f)))
    (define gxc#::extract-lambda-signature?
      (let ()
        (declare (not safe))
        (__make-class-predicate gxc#::extract-lambda-signature::t)))
    (define gxc#make-::extract-lambda-signature
      (lambda _%$args167694%_
        (apply make-instance
               gxc#::extract-lambda-signature::t
               _%$args167694%_)))
    (define gxc#::extract-lambda-signature-bind-methods!
      (let ((__tmp170887
             (lambda ()
               (force gxc#::false-bind-methods!)
               (let ()
                 (declare (not safe))
                 (bind-method!__0
                  gxc#::extract-lambda-signature::t
                  '%#begin
                  gxc#apply-last-begin%))
               (let ()
                 (declare (not safe))
                 (bind-method!__0
                  gxc#::extract-lambda-signature::t
                  '%#begin-annotation
                  gxc#extract-lambda-signature-begin-annotation%))
               (let ()
                 (declare (not safe))
                 (bind-method!__0
                  gxc#::extract-lambda-signature::t
                  '%#let-values
                  gxc#apply-body-last-let-values%))
               (let ()
                 (declare (not safe))
                 (bind-method!__0
                  gxc#::extract-lambda-signature::t
                  '%#letrec-values
                  gxc#apply-body-last-let-values%))
               (let ()
                 (declare (not safe))
                 (bind-method!__0
                  gxc#::extract-lambda-signature::t
                  '%#letrec*-values
                  gxc#apply-body-last-let-values%))
               (let ()
                 (declare (not safe))
                 (__seal-class! gxc#::extract-lambda-signature::t)))))
        (declare (not safe))
        (__make-promise __tmp170887)))
    (define gxc#apply-extract-lambda-signature
      (lambda (_%stx167686%_)
        (force gxc#::extract-lambda-signature-bind-methods!)
        (let* ((_%self167689%_
                (let ((__obj170815
                       (let ()
                         (declare (not safe))
                         (##structure gxc#::extract-lambda-signature::t))))
                  __obj170815))
               (__tmp170888
                (lambda ()
                  (let ()
                    (declare (not safe))
                    (gxc#compile-e__1 _%self167689%_ _%stx167686%_)))))
          (declare (not safe))
          (__call-with-parameters
           __tmp170888
           gxc#current-compile-method
           _%self167689%_))))
    (define gxc#collect-top-level-type-define-values%
      (lambda (_%self167588%_ _%stx167589%_)
        (let* ((_%__stx167806167807%_ _%stx167589%_)
               (_%g167592167612%_
                (lambda ()
                  (let ()
                    (declare (not safe))
                    (gx#raise-syntax-error
                     '#f
                     '"Bad syntax; invalid match target"
                     _%__stx167806167807%_)))))
          (let ((_%__kont167808167809%_
                 (lambda (_%L167656%_ _%L167657%_)
                   (let ((_%sym167675%_
                          (let ()
                            (declare (not safe))
                            (gxc#identifier-symbol _%L167657%_))))
                     (let ()
                       (declare (not safe))
                       (gxc#compile-e__1 _%self167588%_ _%L167656%_))
                     (let ((_%type167676167678%_
                            (gxc#apply-basic-expression-top-level-type
                             _%L167656%_)))
                       (if _%type167676167678%_
                           (let ((_%type167681%_ _%type167676167678%_))
                             (if (let ()
                                   (declare (not safe))
                                   (##structure-instance-of?
                                    _%type167681%_
                                    'gxc#!class-meta::t))
                                 (begin
                                   (let ((__tmp170889
                                          (let ()
                                            (declare (not safe))
                                            (##unchecked-structure-ref
                                             _%type167681%_
                                             '2
                                             '#f
                                             '#f))))
                                     (declare (not safe))
                                     (gxc#optimizer-declare-class!
                                      _%sym167675%_
                                      __tmp170889))
                                   (let ((__tmp170890
                                          (let ()
                                            (declare (not safe))
                                            (gxc#optimizer-resolve-class
                                             _%stx167589%_
                                             'class::t))))
                                     (declare (not safe))
                                     (gxc#optimizer-declare-type!__0
                                      _%sym167675%_
                                      __tmp170890)))
                                 (let ()
                                   (declare (not safe))
                                   (gxc#optimizer-declare-type!__0
                                    _%sym167675%_
                                    _%type167681%_))))
                           '#f)))))
                (_%__kont167810167811%_ (lambda () '#!void)))
            (let ((_%__match167839167840%_
                   (lambda (_%e167596167624%_
                            _%hd167597167627%_
                            _%tl167598167629%_
                            _%e167599167632%_
                            _%hd167600167635%_
                            _%tl167601167637%_
                            _%e167602167640%_
                            _%hd167603167643%_
                            _%tl167604167645%_
                            _%e167605167648%_
                            _%hd167606167651%_
                            _%tl167607167653%_)
                     (let ((_%L167656%_ _%hd167606167651%_)
                           (_%L167657%_ _%hd167603167643%_))
                       (if (let ()
                             (declare (not safe))
                             (gx#identifier? _%L167657%_))
                           (_%__kont167808167809%_ _%L167656%_ _%L167657%_)
                           (_%__kont167810167811%_))))))
              (if (let ()
                    (declare (not safe))
                    (gx#stx-pair? _%__stx167806167807%_))
                  (let ((_%e167596167624%_
                         (let ()
                           (declare (not safe))
                           (gx#stx-e _%__stx167806167807%_))))
                    (let ((_%tl167598167629%_
                           (let ()
                             (declare (not safe))
                             (##cdr _%e167596167624%_)))
                          (_%hd167597167627%_
                           (let ()
                             (declare (not safe))
                             (##car _%e167596167624%_))))
                      (if (let ()
                            (declare (not safe))
                            (gx#stx-pair? _%tl167598167629%_))
                          (let ((_%e167599167632%_
                                 (let ()
                                   (declare (not safe))
                                   (gx#stx-e _%tl167598167629%_))))
                            (let ((_%tl167601167637%_
                                   (let ()
                                     (declare (not safe))
                                     (##cdr _%e167599167632%_)))
                                  (_%hd167600167635%_
                                   (let ()
                                     (declare (not safe))
                                     (##car _%e167599167632%_))))
                              (if (let ()
                                    (declare (not safe))
                                    (gx#stx-pair? _%hd167600167635%_))
                                  (let ((_%e167602167640%_
                                         (let ()
                                           (declare (not safe))
                                           (gx#stx-e _%hd167600167635%_))))
                                    (let ((_%tl167604167645%_
                                           (let ()
                                             (declare (not safe))
                                             (##cdr _%e167602167640%_)))
                                          (_%hd167603167643%_
                                           (let ()
                                             (declare (not safe))
                                             (##car _%e167602167640%_))))
                                      (if (let ()
                                            (declare (not safe))
                                            (gx#stx-null? _%tl167604167645%_))
                                          (if (let ()
                                                (declare (not safe))
                                                (gx#stx-pair?
                                                 _%tl167601167637%_))
                                              (let ((_%e167605167648%_
                                                     (let ()
                                                       (declare (not safe))
                                                       (gx#stx-e
                                                        _%tl167601167637%_))))
                                                (let ((_%tl167607167653%_
                                                       (let ()
                                                         (declare (not safe))
                                                         (##cdr _%e167605167648%_)))
                                                      (_%hd167606167651%_
                                                       (let ()
                                                         (declare (not safe))
                                                         (##car _%e167605167648%_))))
                                                  (if (let ()
                                                        (declare (not safe))
                                                        (gx#stx-null?
                                                         _%tl167607167653%_))
                                                      (_%__match167839167840%_
                                                       _%e167596167624%_
                                                       _%hd167597167627%_
                                                       _%tl167598167629%_
                                                       _%e167599167632%_
                                                       _%hd167600167635%_
                                                       _%tl167601167637%_
                                                       _%e167602167640%_
                                                       _%hd167603167643%_
                                                       _%tl167604167645%_
                                                       _%e167605167648%_
                                                       _%hd167606167651%_
                                                       _%tl167607167653%_)
                                                      (_%__kont167810167811%_))))
                                              (_%__kont167810167811%_))
                                          (_%__kont167810167811%_))))
                                  (_%__kont167810167811%_))))
                          (_%__kont167810167811%_))))
                  (_%__kont167810167811%_)))))))
    (define gxc#collect-top-level-decl-begin-annotation%
      (lambda (_%self167410%_ _%stx167411%_)
        (let* ((_%__stx167842167843%_ _%stx167411%_)
               (_%g167414167454%_
                (lambda ()
                  (let ()
                    (declare (not safe))
                    (gx#raise-syntax-error
                     '#f
                     '"Bad syntax; invalid match target"
                     _%__stx167842167843%_)))))
          (let ((_%__kont167844167845%_
                 (lambda (_%L167560%_ _%L167561%_)
                   (let ((_%type167583%_
                          (let ((__tmp170891
                                 (let ()
                                   (declare (not safe))
                                   (gxc#identifier-symbol _%L167561%_))))
                            (declare (not safe))
                            (gxc#optimizer-lookup-type __tmp170891))))
                     (if (let ()
                           (declare (not safe))
                           (##structure-instance-of?
                            _%type167583%_
                            'gxc#!lambda::t))
                         (let ((__tmp170892
                                (gxc#eval-in-ssxi-context _%L167560%_)))
                           (declare (not safe))
                           (##unchecked-structure-set!
                            _%type167583%_
                            __tmp170892
                            '5
                            '#f
                            '#f))
                         (let ()
                           (declare (not safe))
                           (gxc#raise-compile-error
                            '"inline rule for non lambda procedure"
                            _%stx167411%_
                            _%L167561%_))))))
                (_%__kont167846167847%_
                 (lambda (_%L167483%_ _%L167484%_) '#!void)))
            (if (let ()
                  (declare (not safe))
                  (gx#stx-pair? _%__stx167842167843%_))
                (let ((_%e167418167504%_
                       (let ()
                         (declare (not safe))
                         (gx#stx-e _%__stx167842167843%_))))
                  (let ((_%tl167420167509%_
                         (let ()
                           (declare (not safe))
                           (##cdr _%e167418167504%_)))
                        (_%hd167419167507%_
                         (let ()
                           (declare (not safe))
                           (##car _%e167418167504%_))))
                    (if (let ()
                          (declare (not safe))
                          (gx#stx-pair? _%tl167420167509%_))
                        (let ((_%e167421167512%_
                               (let ()
                                 (declare (not safe))
                                 (gx#stx-e _%tl167420167509%_))))
                          (let ((_%tl167423167517%_
                                 (let ()
                                   (declare (not safe))
                                   (##cdr _%e167421167512%_)))
                                (_%hd167422167515%_
                                 (let ()
                                   (declare (not safe))
                                   (##car _%e167421167512%_))))
                            (if (let ()
                                  (declare (not safe))
                                  (gx#stx-pair? _%hd167422167515%_))
                                (let ((_%e167424167520%_
                                       (let ()
                                         (declare (not safe))
                                         (gx#stx-e _%hd167422167515%_))))
                                  (let ((_%tl167426167525%_
                                         (let ()
                                           (declare (not safe))
                                           (##cdr _%e167424167520%_)))
                                        (_%hd167425167523%_
                                         (let ()
                                           (declare (not safe))
                                           (##car _%e167424167520%_))))
                                    (if (let ()
                                          (declare (not safe))
                                          (gx#identifier? _%hd167425167523%_))
                                        (if (let ()
                                              (declare (not safe))
                                              (gx#stx-eq?
                                               '@inline
                                               _%hd167425167523%_))
                                            (if (let ()
                                                  (declare (not safe))
                                                  (gx#stx-pair?
                                                   _%tl167426167525%_))
                                                (let ((_%e167427167528%_
                                                       (let ()
                                                         (declare (not safe))
                                                         (gx#stx-e
                                                          _%tl167426167525%_))))
                                                  (let ((_%tl167429167533%_
                                                         (let ()
                                                           (declare (not safe))
                                                           (##cdr _%e167427167528%_)))
                                                        (_%hd167428167531%_
                                                         (let ()
                                                           (declare (not safe))
                                                           (##car _%e167427167528%_))))
                                                    (if (let ()
                                                          (declare (not safe))
                                                          (gx#stx-null?
                                                           _%tl167429167533%_))
                                                        (if (let ()
                                                              (declare
                                                                (not safe))
                                                              (gx#stx-pair?
                                                               _%tl167423167517%_))
                                                            (let ((_%e167430167536%_
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                           (let ()
                             (declare (not safe))
                             (gx#stx-e _%tl167423167517%_))))
                      (let ((_%tl167432167541%_
                             (let ()
                               (declare (not safe))
                               (##cdr _%e167430167536%_)))
                            (_%hd167431167539%_
                             (let ()
                               (declare (not safe))
                               (##car _%e167430167536%_))))
                        (if (let ()
                              (declare (not safe))
                              (gx#stx-pair? _%hd167431167539%_))
                            (let ((_%e167433167544%_
                                   (let ()
                                     (declare (not safe))
                                     (gx#stx-e _%hd167431167539%_))))
                              (let ((_%tl167435167549%_
                                     (let ()
                                       (declare (not safe))
                                       (##cdr _%e167433167544%_)))
                                    (_%hd167434167547%_
                                     (let ()
                                       (declare (not safe))
                                       (##car _%e167433167544%_))))
                                (if (let ()
                                      (declare (not safe))
                                      (gx#identifier? _%hd167434167547%_))
                                    (if (let ()
                                          (declare (not safe))
                                          (gx#stx-eq?
                                           '%#quote
                                           _%hd167434167547%_))
                                        (if (let ()
                                              (declare (not safe))
                                              (gx#stx-pair?
                                               _%tl167435167549%_))
                                            (let ((_%e167436167552%_
                                                   (let ()
                                                     (declare (not safe))
                                                     (gx#stx-e
                                                      _%tl167435167549%_))))
                                              (let ((_%tl167438167557%_
                                                     (let ()
                                                       (declare (not safe))
                                                       (##cdr _%e167436167552%_)))
                                                    (_%hd167437167555%_
                                                     (let ()
                                                       (declare (not safe))
                                                       (##car _%e167436167552%_))))
                                                (if (let ()
                                                      (declare (not safe))
                                                      (gx#stx-null?
                                                       _%tl167438167557%_))
                                                    (if (let ()
                                                          (declare (not safe))
                                                          (gx#stx-null?
                                                           _%tl167432167541%_))
                                                        (_%__kont167844167845%_
                                                         _%hd167437167555%_
                                                         _%hd167428167531%_)
                                                        (let ()
                                                          (declare (not safe))
                                                          (_%g167414167454%_)))
                                                    (if (let ()
                                                          (declare (not safe))
                                                          (gx#stx-null?
                                                           _%tl167432167541%_))
                                                        (_%__kont167846167847%_
                                                         _%hd167431167539%_
                                                         _%hd167422167515%_)
                                                        (let ()
                                                          (declare (not safe))
                                                          (_%g167414167454%_))))))
                                            (if (let ()
                                                  (declare (not safe))
                                                  (gx#stx-null?
                                                   _%tl167432167541%_))
                                                (_%__kont167846167847%_
                                                 _%hd167431167539%_
                                                 _%hd167422167515%_)
                                                (let ()
                                                  (declare (not safe))
                                                  (_%g167414167454%_))))
                                        (if (let ()
                                              (declare (not safe))
                                              (gx#stx-null?
                                               _%tl167432167541%_))
                                            (_%__kont167846167847%_
                                             _%hd167431167539%_
                                             _%hd167422167515%_)
                                            (let ()
                                              (declare (not safe))
                                              (_%g167414167454%_))))
                                    (if (let ()
                                          (declare (not safe))
                                          (gx#stx-null? _%tl167432167541%_))
                                        (_%__kont167846167847%_
                                         _%hd167431167539%_
                                         _%hd167422167515%_)
                                        (let ()
                                          (declare (not safe))
                                          (_%g167414167454%_))))))
                            (if (let ()
                                  (declare (not safe))
                                  (gx#stx-null? _%tl167432167541%_))
                                (_%__kont167846167847%_
                                 _%hd167431167539%_
                                 _%hd167422167515%_)
                                (let ()
                                  (declare (not safe))
                                  (_%g167414167454%_))))))
                    (let () (declare (not safe)) (_%g167414167454%_)))
                (if (let ()
                      (declare (not safe))
                      (gx#stx-pair? _%tl167423167517%_))
                    (let ((_%e167447167475%_
                           (let ()
                             (declare (not safe))
                             (gx#stx-e _%tl167423167517%_))))
                      (let ((_%tl167449167480%_
                             (let ()
                               (declare (not safe))
                               (##cdr _%e167447167475%_)))
                            (_%hd167448167478%_
                             (let ()
                               (declare (not safe))
                               (##car _%e167447167475%_))))
                        (if (let ()
                              (declare (not safe))
                              (gx#stx-null? _%tl167449167480%_))
                            (_%__kont167846167847%_
                             _%hd167448167478%_
                             _%hd167422167515%_)
                            (let ()
                              (declare (not safe))
                              (_%g167414167454%_)))))
                    (let () (declare (not safe)) (_%g167414167454%_))))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                                (if (let ()
                                                      (declare (not safe))
                                                      (gx#stx-pair?
                                                       _%tl167423167517%_))
                                                    (let ((_%e167447167475%_
                                                           (let ()
                                                             (declare
                                                               (not safe))
                                                             (gx#stx-e
                                                              _%tl167423167517%_))))
                                                      (let ((_%tl167449167480%_
                                                             (let ()
                                                               (declare
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                         (not safe))
                       (##cdr _%e167447167475%_)))
                    (_%hd167448167478%_
                     (let () (declare (not safe)) (##car _%e167447167475%_))))
                (if (let ()
                      (declare (not safe))
                      (gx#stx-null? _%tl167449167480%_))
                    (_%__kont167846167847%_
                     _%hd167448167478%_
                     _%hd167422167515%_)
                    (let () (declare (not safe)) (_%g167414167454%_)))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                                    (let ()
                                                      (declare (not safe))
                                                      (_%g167414167454%_))))
                                            (if (let ()
                                                  (declare (not safe))
                                                  (gx#stx-pair?
                                                   _%tl167423167517%_))
                                                (let ((_%e167447167475%_
                                                       (let ()
                                                         (declare (not safe))
                                                         (gx#stx-e
                                                          _%tl167423167517%_))))
                                                  (let ((_%tl167449167480%_
                                                         (let ()
                                                           (declare (not safe))
                                                           (##cdr _%e167447167475%_)))
                                                        (_%hd167448167478%_
                                                         (let ()
                                                           (declare (not safe))
                                                           (##car _%e167447167475%_))))
                                                    (if (let ()
                                                          (declare (not safe))
                                                          (gx#stx-null?
                                                           _%tl167449167480%_))
                                                        (_%__kont167846167847%_
                                                         _%hd167448167478%_
                                                         _%hd167422167515%_)
                                                        (let ()
                                                          (declare (not safe))
                                                          (_%g167414167454%_)))))
                                                (let ()
                                                  (declare (not safe))
                                                  (_%g167414167454%_))))
                                        (if (let ()
                                              (declare (not safe))
                                              (gx#stx-pair?
                                               _%tl167423167517%_))
                                            (let ((_%e167447167475%_
                                                   (let ()
                                                     (declare (not safe))
                                                     (gx#stx-e
                                                      _%tl167423167517%_))))
                                              (let ((_%tl167449167480%_
                                                     (let ()
                                                       (declare (not safe))
                                                       (##cdr _%e167447167475%_)))
                                                    (_%hd167448167478%_
                                                     (let ()
                                                       (declare (not safe))
                                                       (##car _%e167447167475%_))))
                                                (if (let ()
                                                      (declare (not safe))
                                                      (gx#stx-null?
                                                       _%tl167449167480%_))
                                                    (_%__kont167846167847%_
                                                     _%hd167448167478%_
                                                     _%hd167422167515%_)
                                                    (let ()
                                                      (declare (not safe))
                                                      (_%g167414167454%_)))))
                                            (let ()
                                              (declare (not safe))
                                              (_%g167414167454%_))))))
                                (if (let ()
                                      (declare (not safe))
                                      (gx#stx-pair? _%tl167423167517%_))
                                    (let ((_%e167447167475%_
                                           (let ()
                                             (declare (not safe))
                                             (gx#stx-e _%tl167423167517%_))))
                                      (let ((_%tl167449167480%_
                                             (let ()
                                               (declare (not safe))
                                               (##cdr _%e167447167475%_)))
                                            (_%hd167448167478%_
                                             (let ()
                                               (declare (not safe))
                                               (##car _%e167447167475%_))))
                                        (if (let ()
                                              (declare (not safe))
                                              (gx#stx-null?
                                               _%tl167449167480%_))
                                            (_%__kont167846167847%_
                                             _%hd167448167478%_
                                             _%hd167422167515%_)
                                            (let ()
                                              (declare (not safe))
                                              (_%g167414167454%_)))))
                                    (let ()
                                      (declare (not safe))
                                      (_%g167414167454%_))))))
                        (let () (declare (not safe)) (_%g167414167454%_)))))
                (let () (declare (not safe)) (_%g167414167454%_)))))))
    (define gxc#eval-in-ssxi-context
      (lambda (_%expr167407%_)
        (let ((__tmp170894
               (lambda ()
                 (eval '(import :gerbil/compiler/ssxi))
                 (let ()
                   (declare (not safe))
                   (gx#eval-syntax__0 _%expr167407%_))))
              (__tmp170893
               (let ((__obj170816
                      (let ()
                        (declare (not safe))
                        (##structure gx#top-context::t '#f '#f '#f '#f '#f))))
                 (let ()
                   (declare (not safe))
                   (gx#top-context:::init!__0 __obj170816))
                 __obj170816)))
          (declare (not safe))
          (__call-with-parameters
           __tmp170894
           gx#current-expander-context
           __tmp170893))))
    (define gxc#collect-type-define-values%
      (lambda (_%self167269%_ _%stx167270%_)
        (let* ((_%__stx167926167927%_ _%stx167270%_)
               (_%g167273167303%_
                (lambda ()
                  (let ()
                    (declare (not safe))
                    (gx#raise-syntax-error
                     '#f
                     '"Bad syntax; invalid match target"
                     _%__stx167926167927%_)))))
          (let ((_%__kont167928167929%_
                 (lambda (_%L167383%_ _%L167384%_)
                   (let ((_%sym167400%_
                          (let ()
                            (declare (not safe))
                            (gxc#identifier-symbol _%L167384%_))))
                     (if (let ()
                           (declare (not safe))
                           (gxc#optimizer-lookup-type _%sym167400%_))
                         (let ()
                           (declare (not safe))
                           (gxc#compile-e__1 _%self167269%_ _%L167383%_))
                         (let ((_%type167402%_
                                (gxc#apply-basic-expression-type _%L167383%_)))
                           (if _%type167402%_
                               (let ()
                                 (declare (not safe))
                                 (gxc#optimizer-declare-type!__0
                                  _%sym167400%_
                                  _%type167402%_))
                               '#!void)
                           (let ()
                             (declare (not safe))
                             (gxc#compile-e__1
                              _%self167269%_
                              _%L167383%_)))))))
                (_%__kont167930167931%_
                 (lambda (_%L167332%_)
                   (let ()
                     (declare (not safe))
                     (gxc#compile-e__1 _%self167269%_ _%L167332%_)))))
            (let ((_%__match167959167960%_
                   (lambda (_%e167277167351%_
                            _%hd167278167354%_
                            _%tl167279167356%_
                            _%e167280167359%_
                            _%hd167281167362%_
                            _%tl167282167364%_
                            _%e167283167367%_
                            _%hd167284167370%_
                            _%tl167285167372%_
                            _%e167286167375%_
                            _%hd167287167378%_
                            _%tl167288167380%_)
                     (let ((_%L167383%_ _%hd167287167378%_)
                           (_%L167384%_ _%hd167284167370%_))
                       (if (let ()
                             (declare (not safe))
                             (gx#identifier? _%L167384%_))
                           (_%__kont167928167929%_ _%L167383%_ _%L167384%_)
                           (_%__kont167930167931%_ _%hd167287167378%_))))))
              (if (let ()
                    (declare (not safe))
                    (gx#stx-pair? _%__stx167926167927%_))
                  (let ((_%e167277167351%_
                         (let ()
                           (declare (not safe))
                           (gx#stx-e _%__stx167926167927%_))))
                    (let ((_%tl167279167356%_
                           (let ()
                             (declare (not safe))
                             (##cdr _%e167277167351%_)))
                          (_%hd167278167354%_
                           (let ()
                             (declare (not safe))
                             (##car _%e167277167351%_))))
                      (if (let ()
                            (declare (not safe))
                            (gx#stx-pair? _%tl167279167356%_))
                          (let ((_%e167280167359%_
                                 (let ()
                                   (declare (not safe))
                                   (gx#stx-e _%tl167279167356%_))))
                            (let ((_%tl167282167364%_
                                   (let ()
                                     (declare (not safe))
                                     (##cdr _%e167280167359%_)))
                                  (_%hd167281167362%_
                                   (let ()
                                     (declare (not safe))
                                     (##car _%e167280167359%_))))
                              (if (let ()
                                    (declare (not safe))
                                    (gx#stx-pair? _%hd167281167362%_))
                                  (let ((_%e167283167367%_
                                         (let ()
                                           (declare (not safe))
                                           (gx#stx-e _%hd167281167362%_))))
                                    (let ((_%tl167285167372%_
                                           (let ()
                                             (declare (not safe))
                                             (##cdr _%e167283167367%_)))
                                          (_%hd167284167370%_
                                           (let ()
                                             (declare (not safe))
                                             (##car _%e167283167367%_))))
                                      (if (let ()
                                            (declare (not safe))
                                            (gx#stx-null? _%tl167285167372%_))
                                          (if (let ()
                                                (declare (not safe))
                                                (gx#stx-pair?
                                                 _%tl167282167364%_))
                                              (let ((_%e167286167375%_
                                                     (let ()
                                                       (declare (not safe))
                                                       (gx#stx-e
                                                        _%tl167282167364%_))))
                                                (let ((_%tl167288167380%_
                                                       (let ()
                                                         (declare (not safe))
                                                         (##cdr _%e167286167375%_)))
                                                      (_%hd167287167378%_
                                                       (let ()
                                                         (declare (not safe))
                                                         (##car _%e167286167375%_))))
                                                  (if (let ()
                                                        (declare (not safe))
                                                        (gx#stx-null?
                                                         _%tl167288167380%_))
                                                      (_%__match167959167960%_
                                                       _%e167277167351%_
                                                       _%hd167278167354%_
                                                       _%tl167279167356%_
                                                       _%e167280167359%_
                                                       _%hd167281167362%_
                                                       _%tl167282167364%_
                                                       _%e167283167367%_
                                                       _%hd167284167370%_
                                                       _%tl167285167372%_
                                                       _%e167286167375%_
                                                       _%hd167287167378%_
                                                       _%tl167288167380%_)
                                                      (let ()
                                                        (declare (not safe))
                                                        (_%g167273167303%_)))))
                                              (let ()
                                                (declare (not safe))
                                                (_%g167273167303%_)))
                                          (if (let ()
                                                (declare (not safe))
                                                (gx#stx-pair?
                                                 _%tl167282167364%_))
                                              (let ((_%e167296167324%_
                                                     (let ()
                                                       (declare (not safe))
                                                       (gx#stx-e
                                                        _%tl167282167364%_))))
                                                (let ((_%tl167298167329%_
                                                       (let ()
                                                         (declare (not safe))
                                                         (##cdr _%e167296167324%_)))
                                                      (_%hd167297167327%_
                                                       (let ()
                                                         (declare (not safe))
                                                         (##car _%e167296167324%_))))
                                                  (if (let ()
                                                        (declare (not safe))
                                                        (gx#stx-null?
                                                         _%tl167298167329%_))
                                                      (_%__kont167930167931%_
                                                       _%hd167297167327%_)
                                                      (let ()
                                                        (declare (not safe))
                                                        (_%g167273167303%_)))))
                                              (let ()
                                                (declare (not safe))
                                                (_%g167273167303%_))))))
                                  (if (let ()
                                        (declare (not safe))
                                        (gx#stx-pair? _%tl167282167364%_))
                                      (let ((_%e167296167324%_
                                             (let ()
                                               (declare (not safe))
                                               (gx#stx-e _%tl167282167364%_))))
                                        (let ((_%tl167298167329%_
                                               (let ()
                                                 (declare (not safe))
                                                 (##cdr _%e167296167324%_)))
                                              (_%hd167297167327%_
                                               (let ()
                                                 (declare (not safe))
                                                 (##car _%e167296167324%_))))
                                          (if (let ()
                                                (declare (not safe))
                                                (gx#stx-null?
                                                 _%tl167298167329%_))
                                              (_%__kont167930167931%_
                                               _%hd167297167327%_)
                                              (let ()
                                                (declare (not safe))
                                                (_%g167273167303%_)))))
                                      (let ()
                                        (declare (not safe))
                                        (_%g167273167303%_))))))
                          (let () (declare (not safe)) (_%g167273167303%_)))))
                  (let () (declare (not safe)) (_%g167273167303%_))))))))
    (define gxc#collect-type-begin-annotation%
      (lambda (_%self167024%_ _%stx167025%_)
        (let* ((_%__stx168004168005%_ _%stx167025%_)
               (_%g167028167068%_
                (lambda ()
                  (let ()
                    (declare (not safe))
                    (gx#raise-syntax-error
                     '#f
                     '"Bad syntax; invalid match target"
                     _%__stx168004168005%_)))))
          (let ((_%__kont168006168007%_
                 (lambda (_%L167174%_ _%L167175%_)
                   (for-each
                    (lambda (_%assertion167195%_)
                      (let* ((_%__stx167982167983%_ _%assertion167195%_)
                             (_%g167198167212%_
                              (lambda ()
                                (let ()
                                  (declare (not safe))
                                  (gx#raise-syntax-error
                                   '#f
                                   '"Bad syntax; invalid match target"
                                   _%__stx167982167983%_)))))
                        (let ((_%__kont167984167985%_
                               (lambda (_%L167240%_ _%L167241%_)
                                 (let ((__tmp170897
                                        (let ()
                                          (declare (not safe))
                                          (gxc#identifier-symbol _%L167241%_)))
                                       (__tmp170895
                                        (let ((__tmp170896
                                               (let ()
                                                 (declare (not safe))
                                                 (gxc#identifier-symbol
                                                  _%L167240%_))))
                                          (declare (not safe))
                                          (gxc#optimizer-resolve-class
                                           _%stx167025%_
                                           __tmp170896))))
                                   (declare (not safe))
                                   (gxc#optimizer-declare-type!__%
                                    __tmp170897
                                    __tmp170895
                                    '#t))))
                              (_%__kont167986167987%_
                               (lambda ()
                                 (let ()
                                   (declare (not safe))
                                   (gxc#raise-compile-error
                                    '"malformed type assertion"
                                    _%stx167025%_
                                    _%assertion167195%_)))))
                          (let ((_%__match168001168002%_
                                 (lambda (_%e167202167224%_
                                          _%hd167203167227%_
                                          _%tl167204167229%_
                                          _%e167205167232%_
                                          _%hd167206167235%_
                                          _%tl167207167237%_)
                                   (let ((_%L167240%_ _%hd167206167235%_)
                                         (_%L167241%_ _%hd167203167227%_))
                                     (if (and (let ()
                                                (declare (not safe))
                                                (gx#identifier? _%L167241%_))
                                              (let ()
                                                (declare (not safe))
                                                (gx#identifier? _%L167240%_)))
                                         (_%__kont167984167985%_
                                          _%L167240%_
                                          _%L167241%_)
                                         (_%__kont167986167987%_))))))
                            (if (let ()
                                  (declare (not safe))
                                  (gx#stx-pair? _%__stx167982167983%_))
                                (let ((_%e167202167224%_
                                       (let ()
                                         (declare (not safe))
                                         (gx#stx-e _%__stx167982167983%_))))
                                  (let ((_%tl167204167229%_
                                         (let ()
                                           (declare (not safe))
                                           (##cdr _%e167202167224%_)))
                                        (_%hd167203167227%_
                                         (let ()
                                           (declare (not safe))
                                           (##car _%e167202167224%_))))
                                    (if (let ()
                                          (declare (not safe))
                                          (gx#stx-pair? _%tl167204167229%_))
                                        (let ((_%e167205167232%_
                                               (let ()
                                                 (declare (not safe))
                                                 (gx#stx-e
                                                  _%tl167204167229%_))))
                                          (let ((_%tl167207167237%_
                                                 (let ()
                                                   (declare (not safe))
                                                   (##cdr _%e167205167232%_)))
                                                (_%hd167206167235%_
                                                 (let ()
                                                   (declare (not safe))
                                                   (##car _%e167205167232%_))))
                                            (if (let ()
                                                  (declare (not safe))
                                                  (gx#stx-null?
                                                   _%tl167207167237%_))
                                                (_%__match168001168002%_
                                                 _%e167202167224%_
                                                 _%hd167203167227%_
                                                 _%tl167204167229%_
                                                 _%e167205167232%_
                                                 _%hd167206167235%_
                                                 _%tl167207167237%_)
                                                (_%__kont167986167987%_))))
                                        (_%__kont167986167987%_))))
                                (_%__kont167986167987%_))))))
                    (let ((__tmp170898
                           (lambda (_%g167258167261%_ _%g167259167263%_)
                             (cons _%g167258167261%_ _%g167259167263%_))))
                      (declare (not safe))
                      (__foldr1 __tmp170898 '() _%L167175%_)))
                   (let ()
                     (declare (not safe))
                     (gxc#compile-e__1 _%self167024%_ _%L167174%_))))
                (_%__kont168010168011%_
                 (lambda (_%L167097%_ _%L167098%_)
                   (let ()
                     (declare (not safe))
                     (gxc#compile-e__1 _%self167024%_ _%L167097%_)))))
            (let ((_%__match168041168042%_
                   (lambda (_%e167032167118%_
                            _%hd167033167121%_
                            _%tl167034167123%_
                            _%e167035167126%_
                            _%hd167036167129%_
                            _%tl167037167131%_
                            _%e167038167134%_
                            _%hd167039167137%_
                            _%tl167040167139%_
                            _%__splice168008168009%_
                            _%target167041167142%_
                            _%tl167043167144%_)
                     (letrec ((_%loop167044167147%_
                               (lambda (_%hd167042167150%_
                                        _%assertion167048167152%_)
                                 (if (let ()
                                       (declare (not safe))
                                       (gx#stx-pair? _%hd167042167150%_))
                                     (let ((_%e167045167155%_
                                            (let ()
                                              (declare (not safe))
                                              (gx#stx-e _%hd167042167150%_))))
                                       (let ((_%lp-tl167047167160%_
                                              (let ()
                                                (declare (not safe))
                                                (##cdr _%e167045167155%_)))
                                             (_%lp-hd167046167158%_
                                              (let ()
                                                (declare (not safe))
                                                (##car _%e167045167155%_))))
                                         (_%loop167044167147%_
                                          _%lp-tl167047167160%_
                                          (cons _%lp-hd167046167158%_
                                                _%assertion167048167152%_))))
                                     (let ((_%assertion167049167163%_
                                            (reverse _%assertion167048167152%_)))
                                       (if (let ()
                                             (declare (not safe))
                                             (gx#stx-pair? _%tl167037167131%_))
                                           (let ((_%e167050167166%_
                                                  (let ()
                                                    (declare (not safe))
                                                    (gx#stx-e
                                                     _%tl167037167131%_))))
                                             (let ((_%tl167052167171%_
                                                    (let ()
                                                      (declare (not safe))
                                                      (##cdr _%e167050167166%_)))
                                                   (_%hd167051167169%_
                                                    (let ()
                                                      (declare (not safe))
                                                      (##car _%e167050167166%_))))
                                               (if (let ()
                                                     (declare (not safe))
                                                     (gx#stx-null?
                                                      _%tl167052167171%_))
                                                   (_%__kont168006168007%_
                                                    _%hd167051167169%_
                                                    _%assertion167049167163%_)
                                                   (let ()
                                                     (declare (not safe))
                                                     (_%g167028167068%_)))))
                                           (let ()
                                             (declare (not safe))
                                             (_%g167028167068%_))))))))
                       (_%loop167044167147%_ _%target167041167142%_ '())))))
              (if (let ()
                    (declare (not safe))
                    (gx#stx-pair? _%__stx168004168005%_))
                  (let ((_%e167032167118%_
                         (let ()
                           (declare (not safe))
                           (gx#stx-e _%__stx168004168005%_))))
                    (let ((_%tl167034167123%_
                           (let ()
                             (declare (not safe))
                             (##cdr _%e167032167118%_)))
                          (_%hd167033167121%_
                           (let ()
                             (declare (not safe))
                             (##car _%e167032167118%_))))
                      (if (let ()
                            (declare (not safe))
                            (gx#stx-pair? _%tl167034167123%_))
                          (let ((_%e167035167126%_
                                 (let ()
                                   (declare (not safe))
                                   (gx#stx-e _%tl167034167123%_))))
                            (let ((_%tl167037167131%_
                                   (let ()
                                     (declare (not safe))
                                     (##cdr _%e167035167126%_)))
                                  (_%hd167036167129%_
                                   (let ()
                                     (declare (not safe))
                                     (##car _%e167035167126%_))))
                              (if (let ()
                                    (declare (not safe))
                                    (gx#stx-pair? _%hd167036167129%_))
                                  (let ((_%e167038167134%_
                                         (let ()
                                           (declare (not safe))
                                           (gx#stx-e _%hd167036167129%_))))
                                    (let ((_%tl167040167139%_
                                           (let ()
                                             (declare (not safe))
                                             (##cdr _%e167038167134%_)))
                                          (_%hd167039167137%_
                                           (let ()
                                             (declare (not safe))
                                             (##car _%e167038167134%_))))
                                      (if (let ()
                                            (declare (not safe))
                                            (gx#identifier?
                                             _%hd167039167137%_))
                                          (if (let ()
                                                (declare (not safe))
                                                (gx#stx-eq?
                                                 '@type.assert
                                                 _%hd167039167137%_))
                                              (if (let ()
                                                    (declare (not safe))
                                                    (gx#stx-pair/null?
                                                     _%tl167040167139%_))
                                                  (let ((_%__splice168008168009%_
                                                         (let ()
                                                           (declare (not safe))
                                                           (gx#syntax-split-splice
                                                            _%tl167040167139%_
                                                            '0))))
                                                    (let ((_%tl167043167144%_
                                                           (let ()
                                                             (declare
                                                               (not safe))
                                                             (##vector-ref
                                                              _%__splice168008168009%_
                                                              '1)))
                                                          (_%target167041167142%_
                                                           (let ()
                                                             (declare
                                                               (not safe))
                                                             (##vector-ref
                                                              _%__splice168008168009%_
                                                              '0))))
                                                      (if (let ()
                                                            (declare
                                                              (not safe))
                                                            (gx#stx-null?
                                                             _%tl167043167144%_))
                                                          (_%__match168041168042%_
                                                           _%e167032167118%_
                                                           _%hd167033167121%_
                                                           _%tl167034167123%_
                                                           _%e167035167126%_
                                                           _%hd167036167129%_
                                                           _%tl167037167131%_
                                                           _%e167038167134%_
                                                           _%hd167039167137%_
                                                           _%tl167040167139%_
                                                           _%__splice168008168009%_
                                                           _%target167041167142%_
                                                           _%tl167043167144%_)
                                                          (if (let ()
                                                                (declare
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                          (not safe))
                        (gx#stx-pair? _%tl167037167131%_))
                      (let ((_%e167061167089%_
                             (let ()
                               (declare (not safe))
                               (gx#stx-e _%tl167037167131%_))))
                        (let ((_%tl167063167094%_
                               (let ()
                                 (declare (not safe))
                                 (##cdr _%e167061167089%_)))
                              (_%hd167062167092%_
                               (let ()
                                 (declare (not safe))
                                 (##car _%e167061167089%_))))
                          (if (let ()
                                (declare (not safe))
                                (gx#stx-null? _%tl167063167094%_))
                              (_%__kont168010168011%_
                               _%hd167062167092%_
                               _%hd167036167129%_)
                              (let ()
                                (declare (not safe))
                                (_%g167028167068%_)))))
                      (let () (declare (not safe)) (_%g167028167068%_))))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                                  (if (let ()
                                                        (declare (not safe))
                                                        (gx#stx-pair?
                                                         _%tl167037167131%_))
                                                      (let ((_%e167061167089%_
                                                             (let ()
                                                               (declare
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                         (not safe))
                       (gx#stx-e _%tl167037167131%_))))
                (let ((_%tl167063167094%_
                       (let () (declare (not safe)) (##cdr _%e167061167089%_)))
                      (_%hd167062167092%_
                       (let ()
                         (declare (not safe))
                         (##car _%e167061167089%_))))
                  (if (let ()
                        (declare (not safe))
                        (gx#stx-null? _%tl167063167094%_))
                      (_%__kont168010168011%_
                       _%hd167062167092%_
                       _%hd167036167129%_)
                      (let () (declare (not safe)) (_%g167028167068%_)))))
              (let () (declare (not safe)) (_%g167028167068%_))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                              (if (let ()
                                                    (declare (not safe))
                                                    (gx#stx-pair?
                                                     _%tl167037167131%_))
                                                  (let ((_%e167061167089%_
                                                         (let ()
                                                           (declare (not safe))
                                                           (gx#stx-e
                                                            _%tl167037167131%_))))
                                                    (let ((_%tl167063167094%_
                                                           (let ()
                                                             (declare
                                                               (not safe))
                                                             (##cdr _%e167061167089%_)))
                                                          (_%hd167062167092%_
                                                           (let ()
                                                             (declare
                                                               (not safe))
                                                             (##car _%e167061167089%_))))
                                                      (if (let ()
                                                            (declare
                                                              (not safe))
                                                            (gx#stx-null?
                                                             _%tl167063167094%_))
                                                          (_%__kont168010168011%_
                                                           _%hd167062167092%_
                                                           _%hd167036167129%_)
                                                          (let ()
                                                            (declare
                                                              (not safe))
                                                            (_%g167028167068%_)))))
                                                  (let ()
                                                    (declare (not safe))
                                                    (_%g167028167068%_))))
                                          (if (let ()
                                                (declare (not safe))
                                                (gx#stx-pair?
                                                 _%tl167037167131%_))
                                              (let ((_%e167061167089%_
                                                     (let ()
                                                       (declare (not safe))
                                                       (gx#stx-e
                                                        _%tl167037167131%_))))
                                                (let ((_%tl167063167094%_
                                                       (let ()
                                                         (declare (not safe))
                                                         (##cdr _%e167061167089%_)))
                                                      (_%hd167062167092%_
                                                       (let ()
                                                         (declare (not safe))
                                                         (##car _%e167061167089%_))))
                                                  (if (let ()
                                                        (declare (not safe))
                                                        (gx#stx-null?
                                                         _%tl167063167094%_))
                                                      (_%__kont168010168011%_
                                                       _%hd167062167092%_
                                                       _%hd167036167129%_)
                                                      (let ()
                                                        (declare (not safe))
                                                        (_%g167028167068%_)))))
                                              (let ()
                                                (declare (not safe))
                                                (_%g167028167068%_))))))
                                  (if (let ()
                                        (declare (not safe))
                                        (gx#stx-pair? _%tl167037167131%_))
                                      (let ((_%e167061167089%_
                                             (let ()
                                               (declare (not safe))
                                               (gx#stx-e _%tl167037167131%_))))
                                        (let ((_%tl167063167094%_
                                               (let ()
                                                 (declare (not safe))
                                                 (##cdr _%e167061167089%_)))
                                              (_%hd167062167092%_
                                               (let ()
                                                 (declare (not safe))
                                                 (##car _%e167061167089%_))))
                                          (if (let ()
                                                (declare (not safe))
                                                (gx#stx-null?
                                                 _%tl167063167094%_))
                                              (_%__kont168010168011%_
                                               _%hd167062167092%_
                                               _%hd167036167129%_)
                                              (let ()
                                                (declare (not safe))
                                                (_%g167028167068%_)))))
                                      (let ()
                                        (declare (not safe))
                                        (_%g167028167068%_))))))
                          (let () (declare (not safe)) (_%g167028167068%_)))))
                  (let () (declare (not safe)) (_%g167028167068%_))))))))
    (define gxc#collect-type-lambda%
      (lambda (_%self166968%_ _%stx166969%_)
        (let* ((_%g166971166985%_
                (lambda (_%g166972166982%_)
                  (let ()
                    (declare (not safe))
                    (gx#raise-syntax-error
                     '#f
                     '"Bad syntax; invalid match target"
                     _%g166972166982%_))))
               (_%g166970167021%_
                (lambda (_%g166972166988%_)
                  (if (let ()
                        (declare (not safe))
                        (gx#stx-pair? _%g166972166988%_))
                      (let ((_%e166975166990%_
                             (let ()
                               (declare (not safe))
                               (gx#stx-e _%g166972166988%_))))
                        (let ((_%hd166976166993%_
                               (let ()
                                 (declare (not safe))
                                 (##car _%e166975166990%_)))
                              (_%tl166977166995%_
                               (let ()
                                 (declare (not safe))
                                 (##cdr _%e166975166990%_))))
                          (if (let ()
                                (declare (not safe))
                                (gx#stx-pair? _%tl166977166995%_))
                              (let ((_%e166978166998%_
                                     (let ()
                                       (declare (not safe))
                                       (gx#stx-e _%tl166977166995%_))))
                                (let ((_%hd166979167001%_
                                       (let ()
                                         (declare (not safe))
                                         (##car _%e166978166998%_)))
                                      (_%tl166980167003%_
                                       (let ()
                                         (declare (not safe))
                                         (##cdr _%e166978166998%_))))
                                  ((lambda (_%L167006%_ _%L167007%_)
                                     (let ((__tmp170900
                                            (lambda ()
                                              (gxc#collect-type-lambda-formals-tail
                                               _%stx166969%_
                                               _%L167007%_)
                                              (let ()
                                                (declare (not safe))
                                                (gxc#apply-body-lambda%
                                                 _%self166968%_
                                                 _%stx166969%_))))
                                           (__tmp170899
                                            (let ()
                                              (declare (not safe))
                                              (gxc#xform-let-locals
                                               _%L167007%_))))
                                       (declare (not safe))
                                       (__call-with-parameters
                                        __tmp170900
                                        gxc#current-compile-local-env
                                        __tmp170899)))
                                   _%tl166980167003%_
                                   _%hd166979167001%_)))
                              (_%g166971166985%_ _%g166972166988%_))))
                      (_%g166971166985%_ _%g166972166988%_)))))
          (_%g166970167021%_ _%stx166969%_))))
    (define gxc#collect-type-case-lambda%
      (lambda (_%self166784%_ _%stx166785%_)
        (let* ((_%g166787166815%_
                (lambda (_%g166788166812%_)
                  (let ()
                    (declare (not safe))
                    (gx#raise-syntax-error
                     '#f
                     '"Bad syntax; invalid match target"
                     _%g166788166812%_))))
               (_%g166786166965%_
                (lambda (_%g166788166818%_)
                  (if (let ()
                        (declare (not safe))
                        (gx#stx-pair? _%g166788166818%_))
                      (let ((_%e166791166820%_
                             (let ()
                               (declare (not safe))
                               (gx#stx-e _%g166788166818%_))))
                        (let ((_%hd166792166823%_
                               (let ()
                                 (declare (not safe))
                                 (##car _%e166791166820%_)))
                              (_%tl166793166825%_
                               (let ()
                                 (declare (not safe))
                                 (##cdr _%e166791166820%_))))
                          (if (let ()
                                (declare (not safe))
                                (gx#stx-pair/null? _%tl166793166825%_))
                              (let ((_g170901_
                                     (let ()
                                       (declare (not safe))
                                       (gx#syntax-split-splice
                                        _%tl166793166825%_
                                        '0))))
                                (begin
                                  (let ((_g170902_
                                         (let ()
                                           (declare (not safe))
                                           (if (##values? _g170901_)
                                               (##vector-length _g170901_)
                                               1))))
                                    (if (not (let ()
                                               (declare (not safe))
                                               (##fx= _g170902_ 2)))
                                        (error "Context expects 2 values"
                                               _g170902_)))
                                  (let ((_%target166794166828%_
                                         (let ()
                                           (declare (not safe))
                                           (##vector-ref _g170901_ 0)))
                                        (_%tl166796166830%_
                                         (let ()
                                           (declare (not safe))
                                           (##vector-ref _g170901_ 1))))
                                    (if (let ()
                                          (declare (not safe))
                                          (gx#stx-null? _%tl166796166830%_))
                                        (letrec ((_%loop166797166833%_
                                                  (lambda (_%hd166795166836%_
                                                           _%body166801166838%_
                                                           _%hd166802166840%_)
                                                    (if (let ()
                                                          (declare (not safe))
                                                          (gx#stx-pair?
                                                           _%hd166795166836%_))
                                                        (let ((_%e166798166843%_
                                                               (let ()
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                         (declare (not safe))
                         (gx#stx-e _%hd166795166836%_))))
                  (let ((_%lp-hd166799166846%_
                         (let ()
                           (declare (not safe))
                           (##car _%e166798166843%_)))
                        (_%lp-tl166800166848%_
                         (let ()
                           (declare (not safe))
                           (##cdr _%e166798166843%_))))
                    (if (let ()
                          (declare (not safe))
                          (gx#stx-pair? _%lp-hd166799166846%_))
                        (let ((_%e166805166851%_
                               (let ()
                                 (declare (not safe))
                                 (gx#stx-e _%lp-hd166799166846%_))))
                          (let ((_%hd166806166854%_
                                 (let ()
                                   (declare (not safe))
                                   (##car _%e166805166851%_)))
                                (_%tl166807166856%_
                                 (let ()
                                   (declare (not safe))
                                   (##cdr _%e166805166851%_))))
                            (if (let ()
                                  (declare (not safe))
                                  (gx#stx-pair? _%tl166807166856%_))
                                (let ((_%e166808166859%_
                                       (let ()
                                         (declare (not safe))
                                         (gx#stx-e _%tl166807166856%_))))
                                  (let ((_%hd166809166862%_
                                         (let ()
                                           (declare (not safe))
                                           (##car _%e166808166859%_)))
                                        (_%tl166810166864%_
                                         (let ()
                                           (declare (not safe))
                                           (##cdr _%e166808166859%_))))
                                    (if (let ()
                                          (declare (not safe))
                                          (gx#stx-null? _%tl166810166864%_))
                                        (_%loop166797166833%_
                                         _%lp-tl166800166848%_
                                         (cons _%hd166809166862%_
                                               _%body166801166838%_)
                                         (cons _%hd166806166854%_
                                               _%hd166802166840%_))
                                        (_%g166787166815%_
                                         _%g166788166818%_))))
                                (_%g166787166815%_ _%g166788166818%_))))
                        (_%g166787166815%_ _%g166788166818%_))))
                (let ((_%body166803166867%_ (reverse _%body166801166838%_))
                      (_%hd166804166869%_ (reverse _%hd166802166840%_)))
                  ((lambda (_%L166872%_ _%L166873%_)
                     (for-each
                      (lambda (_%g166887166889%_)
                        (gxc#collect-type-lambda-formals-tail
                         _%stx166785%_
                         _%g166887166889%_))
                      (let ((__tmp170903
                             (lambda (_%g166891166894%_ _%g166892166896%_)
                               (cons _%g166891166894%_ _%g166892166896%_))))
                        (declare (not safe))
                        (__foldr1 __tmp170903 '() _%L166873%_)))
                     (for-each
                      (lambda (_%clause166899%_)
                        (let* ((_%g166901166915%_
                                (lambda (_%g166902166912%_)
                                  (let ()
                                    (declare (not safe))
                                    (gx#raise-syntax-error
                                     '#f
                                     '"Bad syntax; invalid match target"
                                     _%g166902166912%_))))
                               (_%g166900166952%_
                                (lambda (_%g166902166918%_)
                                  (if (let ()
                                        (declare (not safe))
                                        (gx#stx-pair? _%g166902166918%_))
                                      (let ((_%e166905166920%_
                                             (let ()
                                               (declare (not safe))
                                               (gx#stx-e _%g166902166918%_))))
                                        (let ((_%hd166906166923%_
                                               (let ()
                                                 (declare (not safe))
                                                 (##car _%e166905166920%_)))
                                              (_%tl166907166925%_
                                               (let ()
                                                 (declare (not safe))
                                                 (##cdr _%e166905166920%_))))
                                          (if (let ()
                                                (declare (not safe))
                                                (gx#stx-pair?
                                                 _%tl166907166925%_))
                                              (let ((_%e166908166928%_
                                                     (let ()
                                                       (declare (not safe))
                                                       (gx#stx-e
                                                        _%tl166907166925%_))))
                                                (let ((_%hd166909166931%_
                                                       (let ()
                                                         (declare (not safe))
                                                         (##car _%e166908166928%_)))
                                                      (_%tl166910166933%_
                                                       (let ()
                                                         (declare (not safe))
                                                         (##cdr _%e166908166928%_))))
                                                  (if (let ()
                                                        (declare (not safe))
                                                        (gx#stx-null?
                                                         _%tl166910166933%_))
                                                      ((lambda (_%L166936%_
                                                                _%L166937%_)
                                                         (let ((__tmp170905
                                                                (lambda ()
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                          (let ()
                            (declare (not safe))
                            (gxc#apply-body-case-lambda%
                             _%self166784%_
                             _%stx166785%_))))
                       (__tmp170904
                        (let ()
                          (declare (not safe))
                          (gxc#xform-let-locals _%L166937%_))))
                   (declare (not safe))
                   (__call-with-parameters
                    __tmp170905
                    gxc#current-compile-local-env
                    __tmp170904)))
               _%hd166909166931%_
               _%hd166906166923%_)
              (_%g166901166915%_ _%g166902166918%_))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                              (_%g166901166915%_
                                               _%g166902166918%_))))
                                      (_%g166901166915%_ _%g166902166918%_)))))
                          (_%g166900166952%_ _%clause166899%_)))
                      (begin
                        (let ()
                          (declare (not safe))
                          (gx#syntax-check-splice-targets
                           _%L166872%_
                           _%L166873%_))
                        (let ((__tmp170906
                               (lambda (_%g166954166958%_
                                        _%g166955166960%_
                                        _%g166956166962%_)
                                 (cons (cons _%g166955166960%_
                                             (cons _%g166954166958%_ '()))
                                       _%g166956166962%_))))
                          (declare (not safe))
                          (__foldr2
                           __tmp170906
                           '()
                           _%L166872%_
                           _%L166873%_)))))
                   _%body166803166867%_
                   _%hd166804166869%_))))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                          (_%loop166797166833%_
                                           _%target166794166828%_
                                           '()
                                           '()))
                                        (_%g166787166815%_
                                         _%g166788166818%_)))))
                              (_%g166787166815%_ _%g166788166818%_))))
                      (_%g166787166815%_ _%g166788166818%_)))))
          (_%g166786166965%_ _%stx166785%_))))
    (define gxc#collect-type-lambda-formals-tail
      (lambda (_%stx166716%_ _%formals166717%_)
        (let _%loop166719%_ ((_%rest166721%_ _%formals166717%_))
          (let* ((_%__stx168064168065%_ _%rest166721%_)
                 (_%g166725166736%_
                  (lambda ()
                    (let ()
                      (declare (not safe))
                      (gx#raise-syntax-error
                       '#f
                       '"Bad syntax; invalid match target"
                       _%__stx168064168065%_)))))
            (let ((_%__kont168066168067%_
                   (lambda (_%L166772%_) (_%loop166719%_ _%L166772%_)))
                  (_%__kont168068168069%_
                   (lambda (_%L166748%_)
                     (let ((__tmp170908
                            (let ()
                              (declare (not safe))
                              (gxc#identifier-symbol _%L166748%_)))
                           (__tmp170907
                            (let ()
                              (declare (not safe))
                              (gxc#optimizer-resolve-class
                               _%stx166716%_
                               'list::t))))
                       (declare (not safe))
                       (gxc#optimizer-declare-type!__%
                        __tmp170908
                        __tmp170907
                        '#t))))
                  (_%__kont168070168071%_ (lambda () '#!void)))
              (let ((_%g166723166759%_
                     (lambda ()
                       (let ((_%L166748%_ _%__stx168064168065%_))
                         (if (let ()
                               (declare (not safe))
                               (gx#identifier? _%L166748%_))
                             (_%__kont168068168069%_ _%L166748%_)
                             (_%__kont168070168071%_))))))
                (if (let ()
                      (declare (not safe))
                      (gx#stx-pair? _%__stx168064168065%_))
                    (let ((_%e166728166764%_
                           (let ()
                             (declare (not safe))
                             (gx#stx-e _%__stx168064168065%_))))
                      (let ((_%tl166730166769%_
                             (let ()
                               (declare (not safe))
                               (##cdr _%e166728166764%_)))
                            (_%hd166729166767%_
                             (let ()
                               (declare (not safe))
                               (##car _%e166728166764%_))))
                        (_%__kont168066168067%_ _%tl166730166769%_)))
                    (let () (declare (not safe)) (_%g166723166759%_)))))))))
    (define gxc#collect-type-let-values%__%
      (lambda (_%self166475%_ _%stx166476%_ _%expression-type166477%_)
        (letrec ((_%collect-e166479%_
                  (lambda (_%hd166648%_ _%expr166649%_)
                    (let* ((_%__stx168080168081%_ _%hd166648%_)
                           (_%g166652166662%_
                            (lambda ()
                              (let ()
                                (declare (not safe))
                                (gx#raise-syntax-error
                                 '#f
                                 '"Bad syntax; invalid match target"
                                 _%__stx168080168081%_)))))
                      (let ((_%__kont168082168083%_
                             (lambda (_%L166682%_)
                               (let* ((_%sym166693%_
                                       (let ()
                                         (declare (not safe))
                                         (gxc#identifier-symbol _%L166682%_)))
                                      (_%type166694166696%_
                                       (_%expression-type166477%_
                                        _%expr166649%_)))
                                 (if _%type166694166696%_
                                     (let ((_%type166699%_
                                            _%type166694166696%_))
                                       (if (let ()
                                             (declare (not safe))
                                             (##structure-instance-of?
                                              _%type166699%_
                                              'gxc#!class-meta::t))
                                           (begin
                                             (let ((__tmp170909
                                                    (let ()
                                                      (declare (not safe))
                                                      (##unchecked-structure-ref
                                                       _%type166699%_
                                                       '2
                                                       '#f
                                                       '#f))))
                                               (declare (not safe))
                                               (gxc#optimizer-declare-class!
                                                _%sym166693%_
                                                __tmp170909))
                                             (let ((__tmp170910
                                                    (let ()
                                                      (declare (not safe))
                                                      (gxc#optimizer-resolve-class
                                                       _%stx166476%_
                                                       'class::t))))
                                               (declare (not safe))
                                               (gxc#optimizer-declare-type!__%
                                                _%sym166693%_
                                                __tmp170910
                                                '#t)))
                                           (let ()
                                             (declare (not safe))
                                             (gxc#optimizer-declare-type!__%
                                              _%sym166693%_
                                              _%type166699%_
                                              '#t))))
                                     '#f))))
                            (_%__kont168084168085%_ (lambda () '#!void)))
                        (let ((_%__match168093168094%_
                               (lambda (_%e166655166674%_
                                        _%hd166656166677%_
                                        _%tl166657166679%_)
                                 (let ((_%L166682%_ _%hd166656166677%_))
                                   (if (let ()
                                         (declare (not safe))
                                         (gx#identifier? _%L166682%_))
                                       (_%__kont168082168083%_ _%L166682%_)
                                       (_%__kont168084168085%_))))))
                          (if (let ()
                                (declare (not safe))
                                (gx#stx-pair? _%__stx168080168081%_))
                              (let ((_%e166655166674%_
                                     (let ()
                                       (declare (not safe))
                                       (gx#stx-e _%__stx168080168081%_))))
                                (let ((_%tl166657166679%_
                                       (let ()
                                         (declare (not safe))
                                         (##cdr _%e166655166674%_)))
                                      (_%hd166656166677%_
                                       (let ()
                                         (declare (not safe))
                                         (##car _%e166655166674%_))))
                                  (if (let ()
                                        (declare (not safe))
                                        (gx#stx-null? _%tl166657166679%_))
                                      (_%__match168093168094%_
                                       _%e166655166674%_
                                       _%hd166656166677%_
                                       _%tl166657166679%_)
                                      (_%__kont168084168085%_))))
                              (_%__kont168084168085%_))))))))
          (let* ((_%g166481166516%_
                  (lambda (_%g166482166513%_)
                    (let ()
                      (declare (not safe))
                      (gx#raise-syntax-error
                       '#f
                       '"Bad syntax; invalid match target"
                       _%g166482166513%_))))
                 (_%g166480166645%_
                  (lambda (_%g166482166519%_)
                    (if (let ()
                          (declare (not safe))
                          (gx#stx-pair? _%g166482166519%_))
                        (let ((_%e166486166521%_
                               (let ()
                                 (declare (not safe))
                                 (gx#stx-e _%g166482166519%_))))
                          (let ((_%hd166487166524%_
                                 (let ()
                                   (declare (not safe))
                                   (##car _%e166486166521%_)))
                                (_%tl166488166526%_
                                 (let ()
                                   (declare (not safe))
                                   (##cdr _%e166486166521%_))))
                            (if (let ()
                                  (declare (not safe))
                                  (gx#stx-pair? _%tl166488166526%_))
                                (let ((_%e166489166529%_
                                       (let ()
                                         (declare (not safe))
                                         (gx#stx-e _%tl166488166526%_))))
                                  (let ((_%hd166490166532%_
                                         (let ()
                                           (declare (not safe))
                                           (##car _%e166489166529%_)))
                                        (_%tl166491166534%_
                                         (let ()
                                           (declare (not safe))
                                           (##cdr _%e166489166529%_))))
                                    (if (let ()
                                          (declare (not safe))
                                          (gx#stx-pair/null?
                                           _%hd166490166532%_))
                                        (let ((_g170911_
                                               (let ()
                                                 (declare (not safe))
                                                 (gx#syntax-split-splice
                                                  _%hd166490166532%_
                                                  '0))))
                                          (begin
                                            (let ((_g170912_
                                                   (let ()
                                                     (declare (not safe))
                                                     (if (##values? _g170911_)
                                                         (##vector-length
                                                          _g170911_)
                                                         1))))
                                              (if (not (let ()
                                                         (declare (not safe))
                                                         (##fx= _g170912_ 2)))
                                                  (error "Context expects 2 values"
                                                         _g170912_)))
                                            (let ((_%target166492166537%_
                                                   (let ()
                                                     (declare (not safe))
                                                     (##vector-ref
                                                      _g170911_
                                                      0)))
                                                  (_%tl166494166539%_
                                                   (let ()
                                                     (declare (not safe))
                                                     (##vector-ref
                                                      _g170911_
                                                      1))))
                                              (if (let ()
                                                    (declare (not safe))
                                                    (gx#stx-null?
                                                     _%tl166494166539%_))
                                                  (letrec ((_%loop166495166542%_
                                                            (lambda (_%hd166493166545%_
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                             _%expr166499166547%_
                             _%hd166500166549%_)
                      (if (let ()
                            (declare (not safe))
                            (gx#stx-pair? _%hd166493166545%_))
                          (let ((_%e166496166552%_
                                 (let ()
                                   (declare (not safe))
                                   (gx#stx-e _%hd166493166545%_))))
                            (let ((_%lp-hd166497166555%_
                                   (let ()
                                     (declare (not safe))
                                     (##car _%e166496166552%_)))
                                  (_%lp-tl166498166557%_
                                   (let ()
                                     (declare (not safe))
                                     (##cdr _%e166496166552%_))))
                              (if (let ()
                                    (declare (not safe))
                                    (gx#stx-pair? _%lp-hd166497166555%_))
                                  (let ((_%e166506166560%_
                                         (let ()
                                           (declare (not safe))
                                           (gx#stx-e _%lp-hd166497166555%_))))
                                    (let ((_%hd166507166563%_
                                           (let ()
                                             (declare (not safe))
                                             (##car _%e166506166560%_)))
                                          (_%tl166508166565%_
                                           (let ()
                                             (declare (not safe))
                                             (##cdr _%e166506166560%_))))
                                      (if (let ()
                                            (declare (not safe))
                                            (gx#stx-pair? _%tl166508166565%_))
                                          (let ((_%e166509166568%_
                                                 (let ()
                                                   (declare (not safe))
                                                   (gx#stx-e
                                                    _%tl166508166565%_))))
                                            (let ((_%hd166510166571%_
                                                   (let ()
                                                     (declare (not safe))
                                                     (##car _%e166509166568%_)))
                                                  (_%tl166511166573%_
                                                   (let ()
                                                     (declare (not safe))
                                                     (##cdr _%e166509166568%_))))
                                              (if (let ()
                                                    (declare (not safe))
                                                    (gx#stx-null?
                                                     _%tl166511166573%_))
                                                  (_%loop166495166542%_
                                                   _%lp-tl166498166557%_
                                                   (cons _%hd166510166571%_
                                                         _%expr166499166547%_)
                                                   (cons _%hd166507166563%_
                                                         _%hd166500166549%_))
                                                  (_%g166481166516%_
                                                   _%g166482166519%_))))
                                          (_%g166481166516%_
                                           _%g166482166519%_))))
                                  (_%g166481166516%_ _%g166482166519%_))))
                          (let ((_%expr166501166576%_
                                 (reverse _%expr166499166547%_))
                                (_%hd166502166578%_
                                 (reverse _%hd166500166549%_)))
                            (if (let ()
                                  (declare (not safe))
                                  (gx#stx-pair? _%tl166491166534%_))
                                (let ((_%e166503166581%_
                                       (let ()
                                         (declare (not safe))
                                         (gx#stx-e _%tl166491166534%_))))
                                  (let ((_%hd166504166584%_
                                         (let ()
                                           (declare (not safe))
                                           (##car _%e166503166581%_)))
                                        (_%tl166505166586%_
                                         (let ()
                                           (declare (not safe))
                                           (##cdr _%e166503166581%_))))
                                    (if (let ()
                                          (declare (not safe))
                                          (gx#stx-null? _%tl166505166586%_))
                                        ((lambda (_%L166589%_
                                                  _%L166590%_
                                                  _%L166591%_)
                                           (for-each
                                            _%collect-e166479%_
                                            (let ((__tmp170913
                                                   (lambda (_%g166611166614%_
                                                            _%g166612166616%_)
                                                     (cons _%g166611166614%_
                                                           _%g166612166616%_))))
                                              (declare (not safe))
                                              (__foldr1
                                               __tmp170913
                                               '()
                                               _%L166591%_))
                                            (let ((__tmp170914
                                                   (lambda (_%g166618166621%_
                                                            _%g166619166623%_)
                                                     (cons _%g166618166621%_
                                                           _%g166619166623%_))))
                                              (declare (not safe))
                                              (__foldr1
                                               __tmp170914
                                               '()
                                               _%L166590%_)))
                                           (for-each
                                            (lambda (_%g166625166627%_)
                                              (let ()
                                                (declare (not safe))
                                                (gxc#compile-e__1
                                                 _%self166475%_
                                                 _%g166625166627%_)))
                                            (let ((__tmp170915
                                                   (lambda (_%g166629166632%_
                                                            _%g166630166634%_)
                                                     (cons _%g166629166632%_
                                                           _%g166630166634%_))))
                                              (declare (not safe))
                                              (__foldr1
                                               __tmp170915
                                               '()
                                               _%L166590%_)))
                                           (let ((__tmp170919
                                                  (lambda ()
                                                    (let ()
                                                      (declare (not safe))
                                                      (gxc#compile-e__1
                                                       _%self166475%_
                                                       _%L166589%_))))
                                                 (__tmp170916
                                                  (let ((__tmp170917
                                                         (let ((__tmp170918
                                                                (lambda (_%g166637166640%_
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                                 _%g166638166642%_)
                          (cons _%g166637166640%_ _%g166638166642%_))))
                   (declare (not safe))
                   (__foldr1 __tmp170918 '() _%L166591%_))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                                    (declare (not safe))
                                                    (gxc#xform-let-locals
                                                     __tmp170917))))
                                             (declare (not safe))
                                             (__call-with-parameters
                                              __tmp170919
                                              gxc#current-compile-local-env
                                              __tmp170916)))
                                         _%hd166504166584%_
                                         _%expr166501166576%_
                                         _%hd166502166578%_)
                                        (_%g166481166516%_
                                         _%g166482166519%_))))
                                (_%g166481166516%_ _%g166482166519%_)))))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                                    (_%loop166495166542%_
                                                     _%target166492166537%_
                                                     '()
                                                     '()))
                                                  (_%g166481166516%_
                                                   _%g166482166519%_)))))
                                        (_%g166481166516%_
                                         _%g166482166519%_))))
                                (_%g166481166516%_ _%g166482166519%_))))
                        (_%g166481166516%_ _%g166482166519%_)))))
            (_%g166480166645%_ _%stx166476%_)))))
    (define gxc#collect-type-let-values%__0
      (lambda (_%self166707%_ _%stx166708%_)
        (let ((_%expression-type166710%_ gxc#apply-basic-expression-type))
          (gxc#collect-type-let-values%__%
           _%self166707%_
           _%stx166708%_
           _%expression-type166710%_))))
    (define gxc#collect-type-let-values%
      (lambda _g170921_
        (let ((_g170920_ (let () (declare (not safe)) (##length _g170921_))))
          (cond ((let () (declare (not safe)) (##fx= _g170920_ 2))
                 (apply gxc#collect-type-let-values%__0 _g170921_))
                ((let () (declare (not safe)) (##fx= _g170920_ 3))
                 (apply gxc#collect-type-let-values%__% _g170921_))
                (else
                 (##raise-wrong-number-of-arguments-exception
                  gxc#collect-type-let-values%
                  _g170921_))))))
    (define gxc#collect-type-letrec-values%__%
      (lambda (_%self166208%_ _%stx166209%_ _%expression-type166210%_)
        (letrec ((_%collect-e166212%_
                  (lambda (_%hd166406%_ _%expr166407%_)
                    (let* ((_%__stx168096168097%_ _%hd166406%_)
                           (_%g166410166420%_
                            (lambda ()
                              (let ()
                                (declare (not safe))
                                (gx#raise-syntax-error
                                 '#f
                                 '"Bad syntax; invalid match target"
                                 _%__stx168096168097%_)))))
                      (let ((_%__kont168098168099%_
                             (lambda (_%L166440%_)
                               (let* ((_%sym166451%_
                                       (let ()
                                         (declare (not safe))
                                         (gxc#identifier-symbol _%L166440%_)))
                                      (_%type166452166454%_
                                       (_%expression-type166210%_
                                        _%expr166407%_)))
                                 (if _%type166452166454%_
                                     (let ((_%type166457%_
                                            _%type166452166454%_))
                                       (if (let ()
                                             (declare (not safe))
                                             (##structure-instance-of?
                                              _%type166457%_
                                              'gxc#!class-meta::t))
                                           (begin
                                             (let ((__tmp170922
                                                    (let ()
                                                      (declare (not safe))
                                                      (##unchecked-structure-ref
                                                       _%type166457%_
                                                       '2
                                                       '#f
                                                       '#f))))
                                               (declare (not safe))
                                               (gxc#optimizer-declare-class!
                                                _%sym166451%_
                                                __tmp170922))
                                             (let ((__tmp170923
                                                    (let ()
                                                      (declare (not safe))
                                                      (gxc#optimizer-resolve-class
                                                       _%stx166209%_
                                                       'class::t))))
                                               (declare (not safe))
                                               (gxc#optimizer-declare-type!__%
                                                _%sym166451%_
                                                __tmp170923
                                                '#t)))
                                           (let ()
                                             (declare (not safe))
                                             (gxc#optimizer-declare-type!__%
                                              _%sym166451%_
                                              _%type166457%_
                                              '#t))))
                                     '#f))))
                            (_%__kont168100168101%_ (lambda () '#!void)))
                        (let ((_%__match168109168110%_
                               (lambda (_%e166413166432%_
                                        _%hd166414166435%_
                                        _%tl166415166437%_)
                                 (let ((_%L166440%_ _%hd166414166435%_))
                                   (if (let ()
                                         (declare (not safe))
                                         (gx#identifier? _%L166440%_))
                                       (_%__kont168098168099%_ _%L166440%_)
                                       (_%__kont168100168101%_))))))
                          (if (let ()
                                (declare (not safe))
                                (gx#stx-pair? _%__stx168096168097%_))
                              (let ((_%e166413166432%_
                                     (let ()
                                       (declare (not safe))
                                       (gx#stx-e _%__stx168096168097%_))))
                                (let ((_%tl166415166437%_
                                       (let ()
                                         (declare (not safe))
                                         (##cdr _%e166413166432%_)))
                                      (_%hd166414166435%_
                                       (let ()
                                         (declare (not safe))
                                         (##car _%e166413166432%_))))
                                  (if (let ()
                                        (declare (not safe))
                                        (gx#stx-null? _%tl166415166437%_))
                                      (_%__match168109168110%_
                                       _%e166413166432%_
                                       _%hd166414166435%_
                                       _%tl166415166437%_)
                                      (_%__kont168100168101%_))))
                              (_%__kont168100168101%_))))))))
          (let* ((_%g166214166249%_
                  (lambda (_%g166215166246%_)
                    (let ()
                      (declare (not safe))
                      (gx#raise-syntax-error
                       '#f
                       '"Bad syntax; invalid match target"
                       _%g166215166246%_))))
                 (_%g166213166403%_
                  (lambda (_%g166215166252%_)
                    (if (let ()
                          (declare (not safe))
                          (gx#stx-pair? _%g166215166252%_))
                        (let ((_%e166219166254%_
                               (let ()
                                 (declare (not safe))
                                 (gx#stx-e _%g166215166252%_))))
                          (let ((_%hd166220166257%_
                                 (let ()
                                   (declare (not safe))
                                   (##car _%e166219166254%_)))
                                (_%tl166221166259%_
                                 (let ()
                                   (declare (not safe))
                                   (##cdr _%e166219166254%_))))
                            (if (let ()
                                  (declare (not safe))
                                  (gx#stx-pair? _%tl166221166259%_))
                                (let ((_%e166222166262%_
                                       (let ()
                                         (declare (not safe))
                                         (gx#stx-e _%tl166221166259%_))))
                                  (let ((_%hd166223166265%_
                                         (let ()
                                           (declare (not safe))
                                           (##car _%e166222166262%_)))
                                        (_%tl166224166267%_
                                         (let ()
                                           (declare (not safe))
                                           (##cdr _%e166222166262%_))))
                                    (if (let ()
                                          (declare (not safe))
                                          (gx#stx-pair/null?
                                           _%hd166223166265%_))
                                        (let ((_g170924_
                                               (let ()
                                                 (declare (not safe))
                                                 (gx#syntax-split-splice
                                                  _%hd166223166265%_
                                                  '0))))
                                          (begin
                                            (let ((_g170925_
                                                   (let ()
                                                     (declare (not safe))
                                                     (if (##values? _g170924_)
                                                         (##vector-length
                                                          _g170924_)
                                                         1))))
                                              (if (not (let ()
                                                         (declare (not safe))
                                                         (##fx= _g170925_ 2)))
                                                  (error "Context expects 2 values"
                                                         _g170925_)))
                                            (let ((_%target166225166270%_
                                                   (let ()
                                                     (declare (not safe))
                                                     (##vector-ref
                                                      _g170924_
                                                      0)))
                                                  (_%tl166227166272%_
                                                   (let ()
                                                     (declare (not safe))
                                                     (##vector-ref
                                                      _g170924_
                                                      1))))
                                              (if (let ()
                                                    (declare (not safe))
                                                    (gx#stx-null?
                                                     _%tl166227166272%_))
                                                  (letrec ((_%loop166228166275%_
                                                            (lambda (_%hd166226166278%_
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                             _%expr166232166280%_
                             _%hd166233166282%_)
                      (if (let ()
                            (declare (not safe))
                            (gx#stx-pair? _%hd166226166278%_))
                          (let ((_%e166229166285%_
                                 (let ()
                                   (declare (not safe))
                                   (gx#stx-e _%hd166226166278%_))))
                            (let ((_%lp-hd166230166288%_
                                   (let ()
                                     (declare (not safe))
                                     (##car _%e166229166285%_)))
                                  (_%lp-tl166231166290%_
                                   (let ()
                                     (declare (not safe))
                                     (##cdr _%e166229166285%_))))
                              (if (let ()
                                    (declare (not safe))
                                    (gx#stx-pair? _%lp-hd166230166288%_))
                                  (let ((_%e166239166293%_
                                         (let ()
                                           (declare (not safe))
                                           (gx#stx-e _%lp-hd166230166288%_))))
                                    (let ((_%hd166240166296%_
                                           (let ()
                                             (declare (not safe))
                                             (##car _%e166239166293%_)))
                                          (_%tl166241166298%_
                                           (let ()
                                             (declare (not safe))
                                             (##cdr _%e166239166293%_))))
                                      (if (let ()
                                            (declare (not safe))
                                            (gx#stx-pair? _%tl166241166298%_))
                                          (let ((_%e166242166301%_
                                                 (let ()
                                                   (declare (not safe))
                                                   (gx#stx-e
                                                    _%tl166241166298%_))))
                                            (let ((_%hd166243166304%_
                                                   (let ()
                                                     (declare (not safe))
                                                     (##car _%e166242166301%_)))
                                                  (_%tl166244166306%_
                                                   (let ()
                                                     (declare (not safe))
                                                     (##cdr _%e166242166301%_))))
                                              (if (let ()
                                                    (declare (not safe))
                                                    (gx#stx-null?
                                                     _%tl166244166306%_))
                                                  (_%loop166228166275%_
                                                   _%lp-tl166231166290%_
                                                   (cons _%hd166243166304%_
                                                         _%expr166232166280%_)
                                                   (cons _%hd166240166296%_
                                                         _%hd166233166282%_))
                                                  (_%g166214166249%_
                                                   _%g166215166252%_))))
                                          (_%g166214166249%_
                                           _%g166215166252%_))))
                                  (_%g166214166249%_ _%g166215166252%_))))
                          (let ((_%expr166234166309%_
                                 (reverse _%expr166232166280%_))
                                (_%hd166235166311%_
                                 (reverse _%hd166233166282%_)))
                            (if (let ()
                                  (declare (not safe))
                                  (gx#stx-pair? _%tl166224166267%_))
                                (let ((_%e166236166314%_
                                       (let ()
                                         (declare (not safe))
                                         (gx#stx-e _%tl166224166267%_))))
                                  (let ((_%hd166237166317%_
                                         (let ()
                                           (declare (not safe))
                                           (##car _%e166236166314%_)))
                                        (_%tl166238166319%_
                                         (let ()
                                           (declare (not safe))
                                           (##cdr _%e166236166314%_))))
                                    (if (let ()
                                          (declare (not safe))
                                          (gx#stx-null? _%tl166238166319%_))
                                        ((lambda (_%L166322%_
                                                  _%L166323%_
                                                  _%L166324%_)
                                           (let ((__tmp170929
                                                  (lambda ()
                                                    (for-each
                                                     _%collect-e166212%_
                                                     (let ((__tmp170930
                                                            (lambda (_%g166345166348%_
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                             _%g166346166350%_)
                      (cons _%g166345166348%_ _%g166346166350%_))))
               (declare (not safe))
               (__foldr1 __tmp170930 '() _%L166324%_))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                                     (let ((__tmp170931
                                                            (lambda (_%g166352166355%_
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                             _%g166353166357%_)
                      (cons _%g166352166355%_ _%g166353166357%_))))
               (declare (not safe))
               (__foldr1 __tmp170931 '() _%L166323%_)))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                                    (for-each
                                                     (lambda (_%g166359166361%_)
                                                       (let ()
                                                         (declare (not safe))
                                                         (gxc#compile-e__1
                                                          _%self166208%_
                                                          _%g166359166361%_)))
                                                     (let ((__tmp170932
                                                            (lambda (_%g166363166366%_
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                             _%g166364166368%_)
                      (cons _%g166363166366%_ _%g166364166368%_))))
               (declare (not safe))
               (__foldr1 __tmp170932 '() _%L166323%_)))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                                    (for-each
                                                     _%collect-e166212%_
                                                     (let ((__tmp170933
                                                            (lambda (_%g166370166373%_
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                             _%g166371166375%_)
                      (cons _%g166370166373%_ _%g166371166375%_))))
               (declare (not safe))
               (__foldr1 __tmp170933 '() _%L166324%_))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                                     (let ((__tmp170934
                                                            (lambda (_%g166377166380%_
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                             _%g166378166382%_)
                      (cons _%g166377166380%_ _%g166378166382%_))))
               (declare (not safe))
               (__foldr1 __tmp170934 '() _%L166323%_)))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                                    (for-each
                                                     (lambda (_%g166384166386%_)
                                                       (let ()
                                                         (declare (not safe))
                                                         (gxc#compile-e__1
                                                          _%self166208%_
                                                          _%g166384166386%_)))
                                                     (let ((__tmp170935
                                                            (lambda (_%g166388166391%_
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                             _%g166389166393%_)
                      (cons _%g166388166391%_ _%g166389166393%_))))
               (declare (not safe))
               (__foldr1 __tmp170935 '() _%L166323%_)))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                                    (let ()
                                                      (declare (not safe))
                                                      (gxc#compile-e__1
                                                       _%self166208%_
                                                       _%L166322%_))))
                                                 (__tmp170926
                                                  (let ((__tmp170927
                                                         (let ((__tmp170928
                                                                (lambda (_%g166395166398%_
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                                 _%g166396166400%_)
                          (cons _%g166395166398%_ _%g166396166400%_))))
                   (declare (not safe))
                   (__foldr1 __tmp170928 '() _%L166324%_))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                                    (declare (not safe))
                                                    (gxc#xform-let-locals
                                                     __tmp170927))))
                                             (declare (not safe))
                                             (__call-with-parameters
                                              __tmp170929
                                              gxc#current-compile-local-env
                                              __tmp170926)))
                                         _%hd166237166317%_
                                         _%expr166234166309%_
                                         _%hd166235166311%_)
                                        (_%g166214166249%_
                                         _%g166215166252%_))))
                                (_%g166214166249%_ _%g166215166252%_)))))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                                    (_%loop166228166275%_
                                                     _%target166225166270%_
                                                     '()
                                                     '()))
                                                  (_%g166214166249%_
                                                   _%g166215166252%_)))))
                                        (_%g166214166249%_
                                         _%g166215166252%_))))
                                (_%g166214166249%_ _%g166215166252%_))))
                        (_%g166214166249%_ _%g166215166252%_)))))
            (_%g166213166403%_ _%stx166209%_)))))
    (define gxc#collect-type-letrec-values%__0
      (lambda (_%self166465%_ _%stx166466%_)
        (let ((_%expression-type166468%_ gxc#apply-basic-expression-type))
          (gxc#collect-type-letrec-values%__%
           _%self166465%_
           _%stx166466%_
           _%expression-type166468%_))))
    (define gxc#collect-type-letrec-values%
      (lambda _g170937_
        (let ((_g170936_ (let () (declare (not safe)) (##length _g170937_))))
          (cond ((let () (declare (not safe)) (##fx= _g170936_ 2))
                 (apply gxc#collect-type-letrec-values%__0 _g170937_))
                ((let () (declare (not safe)) (##fx= _g170936_ 3))
                 (apply gxc#collect-type-letrec-values%__% _g170937_))
                (else
                 (##raise-wrong-number-of-arguments-exception
                  gxc#collect-type-letrec-values%
                  _g170937_))))))
    (define gxc#collect-top-level-type-let-values%
      (lambda (_%self166204%_ _%stx166205%_)
        (gxc#collect-type-let-values%__%
         _%self166204%_
         _%stx166205%_
         gxc#apply-raw-expression-type)))
    (define gxc#collect-top-level-type-letrec-values%
      (lambda (_%self166201%_ _%stx166202%_)
        (gxc#collect-type-letrec-values%__%
         _%self166201%_
         _%stx166202%_
         gxc#apply-raw-expression-type)))
    (define gxc#collect-top-level-type-call%
      (lambda (_%self165688%_ _%stx165689%_)
        (let* ((_%__stx168112168113%_ _%stx165689%_)
               (_%g165693165808%_
                (lambda ()
                  (let ()
                    (declare (not safe))
                    (gx#raise-syntax-error
                     '#f
                     '"Bad syntax; invalid match target"
                     _%__stx168112168113%_)))))
          (let ((_%__kont168114168115%_
                 (lambda (_%L166151%_
                          _%L166152%_
                          _%L166153%_
                          _%L166154%_
                          _%L166155%_)
                   (let ((__tmp170941
                          (let ()
                            (declare (not safe))
                            (gxc#identifier-symbol _%L166154%_)))
                         (__tmp170940
                          (let () (declare (not safe)) (gx#stx-e _%L166153%_)))
                         (__tmp170939
                          (let ()
                            (declare (not safe))
                            (gxc#identifier-symbol _%L166152%_)))
                         (__tmp170938
                          (let ()
                            (declare (not safe))
                            (gx#stx-e _%L166151%_))))
                     (declare (not safe))
                     (gxc#optimizer-declare-method!__%
                      __tmp170941
                      __tmp170940
                      __tmp170939
                      __tmp170938))))
                (_%__kont168116168117%_
                 (lambda (_%L165979%_ _%L165980%_ _%L165981%_ _%L165982%_)
                   (let ((__tmp170944
                          (let ()
                            (declare (not safe))
                            (gxc#identifier-symbol _%L165981%_)))
                         (__tmp170943
                          (let () (declare (not safe)) (gx#stx-e _%L165980%_)))
                         (__tmp170942
                          (let ()
                            (declare (not safe))
                            (gxc#identifier-symbol _%L165979%_))))
                     (declare (not safe))
                     (gxc#optimizer-declare-method!__%
                      __tmp170944
                      __tmp170943
                      __tmp170942
                      '#f))))
                (_%__kont168118168119%_
                 (lambda (_%L165845%_)
                   (for-each
                    (lambda (_%g165858165860%_)
                      (let ()
                        (declare (not safe))
                        (gxc#compile-e__1 _%self165688%_ _%g165858165860%_)))
                    (let ((__tmp170945
                           (lambda (_%g165862165865%_ _%g165863165867%_)
                             (cons _%g165862165865%_ _%g165863165867%_))))
                      (declare (not safe))
                      (__foldr1 __tmp170945 '() _%L165845%_))))))
            (let* ((_%__match168369168370%_
                    (lambda (_%e165792165813%_
                             _%hd165793165816%_
                             _%tl165794165818%_
                             _%__splice168120168121%_
                             _%target165795165821%_
                             _%tl165797165823%_)
                      (letrec ((_%loop165798165826%_
                                (lambda (_%hd165796165829%_
                                         _%expr165802165831%_)
                                  (if (let ()
                                        (declare (not safe))
                                        (gx#stx-pair? _%hd165796165829%_))
                                      (let ((_%e165799165834%_
                                             (let ()
                                               (declare (not safe))
                                               (gx#stx-e _%hd165796165829%_))))
                                        (let ((_%lp-tl165801165839%_
                                               (let ()
                                                 (declare (not safe))
                                                 (##cdr _%e165799165834%_)))
                                              (_%lp-hd165800165837%_
                                               (let ()
                                                 (declare (not safe))
                                                 (##car _%e165799165834%_))))
                                          (_%loop165798165826%_
                                           _%lp-tl165801165839%_
                                           (cons _%lp-hd165800165837%_
                                                 _%expr165802165831%_))))
                                      (let ((_%expr165803165842%_
                                             (reverse _%expr165802165831%_)))
                                        (_%__kont168118168119%_
                                         _%expr165803165842%_))))))
                        (_%loop165798165826%_ _%target165795165821%_ '()))))
                   (_%__match168249168250%_
                    (lambda (_%e165700166023%_
                             _%hd165701166026%_
                             _%tl165702166028%_
                             _%e165703166031%_
                             _%hd165704166034%_
                             _%tl165705166036%_
                             _%e165706166039%_
                             _%hd165707166042%_
                             _%tl165708166044%_
                             _%e165709166047%_
                             _%hd165710166050%_
                             _%tl165711166052%_
                             _%e165712166055%_
                             _%hd165713166058%_
                             _%tl165714166060%_
                             _%e165715166063%_
                             _%hd165716166066%_
                             _%tl165717166068%_
                             _%e165718166071%_
                             _%hd165719166074%_
                             _%tl165720166076%_
                             _%e165721166079%_
                             _%hd165722166082%_
                             _%tl165723166084%_
                             _%e165724166087%_
                             _%hd165725166090%_
                             _%tl165726166092%_
                             _%e165727166095%_
                             _%hd165728166098%_
                             _%tl165729166100%_
                             _%e165730166103%_
                             _%hd165731166106%_
                             _%tl165732166108%_
                             _%e165733166111%_
                             _%hd165734166114%_
                             _%tl165735166116%_
                             _%e165736166119%_
                             _%hd165737166122%_
                             _%tl165738166124%_
                             _%e165739166127%_
                             _%hd165740166130%_
                             _%tl165741166132%_
                             _%e165742166135%_
                             _%hd165743166138%_
                             _%tl165744166140%_
                             _%e165745166143%_
                             _%hd165746166146%_
                             _%tl165747166148%_)
                      (let ((_%L166151%_ _%hd165746166146%_)
                            (_%L166152%_ _%hd165737166122%_)
                            (_%L166153%_ _%hd165728166098%_)
                            (_%L166154%_ _%hd165719166074%_)
                            (_%L166155%_ _%hd165710166050%_))
                        (if (let ()
                              (declare (not safe))
                              (gxc#runtime-identifier=?
                               _%L166155%_
                               'bind-method!))
                            (_%__kont168114168115%_
                             _%L166151%_
                             _%L166152%_
                             _%L166153%_
                             _%L166154%_
                             _%L166155%_)
                            (if (let ()
                                  (declare (not safe))
                                  (gx#stx-pair/null? _%tl165702166028%_))
                                (let ((_%__splice168120168121%_
                                       (let ()
                                         (declare (not safe))
                                         (gx#syntax-split-splice
                                          _%tl165702166028%_
                                          '0))))
                                  (let ((_%tl165797165823%_
                                         (let ()
                                           (declare (not safe))
                                           (##vector-ref
                                            _%__splice168120168121%_
                                            '1)))
                                        (_%target165795165821%_
                                         (let ()
                                           (declare (not safe))
                                           (##vector-ref
                                            _%__splice168120168121%_
                                            '0))))
                                    (if (let ()
                                          (declare (not safe))
                                          (gx#stx-null? _%tl165797165823%_))
                                        (_%__match168369168370%_
                                         _%e165700166023%_
                                         _%hd165701166026%_
                                         _%tl165702166028%_
                                         _%__splice168120168121%_
                                         _%target165795165821%_
                                         _%tl165797165823%_)
                                        (let ()
                                          (declare (not safe))
                                          (_%g165693165808%_)))))
                                (let ()
                                  (declare (not safe))
                                  (_%g165693165808%_))))))))
              (if (let ()
                    (declare (not safe))
                    (gx#stx-pair? _%__stx168112168113%_))
                  (let ((_%e165700166023%_
                         (let ()
                           (declare (not safe))
                           (gx#stx-e _%__stx168112168113%_))))
                    (let ((_%tl165702166028%_
                           (let ()
                             (declare (not safe))
                             (##cdr _%e165700166023%_)))
                          (_%hd165701166026%_
                           (let ()
                             (declare (not safe))
                             (##car _%e165700166023%_))))
                      (if (let ()
                            (declare (not safe))
                            (gx#stx-pair? _%tl165702166028%_))
                          (let ((_%e165703166031%_
                                 (let ()
                                   (declare (not safe))
                                   (gx#stx-e _%tl165702166028%_))))
                            (let ((_%tl165705166036%_
                                   (let ()
                                     (declare (not safe))
                                     (##cdr _%e165703166031%_)))
                                  (_%hd165704166034%_
                                   (let ()
                                     (declare (not safe))
                                     (##car _%e165703166031%_))))
                              (if (let ()
                                    (declare (not safe))
                                    (gx#stx-pair? _%hd165704166034%_))
                                  (let ((_%e165706166039%_
                                         (let ()
                                           (declare (not safe))
                                           (gx#stx-e _%hd165704166034%_))))
                                    (let ((_%tl165708166044%_
                                           (let ()
                                             (declare (not safe))
                                             (##cdr _%e165706166039%_)))
                                          (_%hd165707166042%_
                                           (let ()
                                             (declare (not safe))
                                             (##car _%e165706166039%_))))
                                      (if (let ()
                                            (declare (not safe))
                                            (gx#identifier?
                                             _%hd165707166042%_))
                                          (if (let ()
                                                (declare (not safe))
                                                (gx#stx-eq?
                                                 '%#ref
                                                 _%hd165707166042%_))
                                              (if (let ()
                                                    (declare (not safe))
                                                    (gx#stx-pair?
                                                     _%tl165708166044%_))
                                                  (let ((_%e165709166047%_
                                                         (let ()
                                                           (declare (not safe))
                                                           (gx#stx-e
                                                            _%tl165708166044%_))))
                                                    (let ((_%tl165711166052%_
                                                           (let ()
                                                             (declare
                                                               (not safe))
                                                             (##cdr _%e165709166047%_)))
                                                          (_%hd165710166050%_
                                                           (let ()
                                                             (declare
                                                               (not safe))
                                                             (##car _%e165709166047%_))))
                                                      (if (let ()
                                                            (declare
                                                              (not safe))
                                                            (gx#stx-null?
                                                             _%tl165711166052%_))
                                                          (if (let ()
                                                                (declare
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                          (not safe))
                        (gx#stx-pair? _%tl165705166036%_))
                      (let ((_%e165712166055%_
                             (let ()
                               (declare (not safe))
                               (gx#stx-e _%tl165705166036%_))))
                        (let ((_%tl165714166060%_
                               (let ()
                                 (declare (not safe))
                                 (##cdr _%e165712166055%_)))
                              (_%hd165713166058%_
                               (let ()
                                 (declare (not safe))
                                 (##car _%e165712166055%_))))
                          (if (let ()
                                (declare (not safe))
                                (gx#stx-pair? _%hd165713166058%_))
                              (let ((_%e165715166063%_
                                     (let ()
                                       (declare (not safe))
                                       (gx#stx-e _%hd165713166058%_))))
                                (let ((_%tl165717166068%_
                                       (let ()
                                         (declare (not safe))
                                         (##cdr _%e165715166063%_)))
                                      (_%hd165716166066%_
                                       (let ()
                                         (declare (not safe))
                                         (##car _%e165715166063%_))))
                                  (if (let ()
                                        (declare (not safe))
                                        (gx#identifier? _%hd165716166066%_))
                                      (if (let ()
                                            (declare (not safe))
                                            (gx#stx-eq?
                                             '%#ref
                                             _%hd165716166066%_))
                                          (if (let ()
                                                (declare (not safe))
                                                (gx#stx-pair?
                                                 _%tl165717166068%_))
                                              (let ((_%e165718166071%_
                                                     (let ()
                                                       (declare (not safe))
                                                       (gx#stx-e
                                                        _%tl165717166068%_))))
                                                (let ((_%tl165720166076%_
                                                       (let ()
                                                         (declare (not safe))
                                                         (##cdr _%e165718166071%_)))
                                                      (_%hd165719166074%_
                                                       (let ()
                                                         (declare (not safe))
                                                         (##car _%e165718166071%_))))
                                                  (if (let ()
                                                        (declare (not safe))
                                                        (gx#stx-null?
                                                         _%tl165720166076%_))
                                                      (if (let ()
                                                            (declare
                                                              (not safe))
                                                            (gx#stx-pair?
                                                             _%tl165714166060%_))
                                                          (let ((_%e165721166079%_
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                         (let ()
                           (declare (not safe))
                           (gx#stx-e _%tl165714166060%_))))
                    (let ((_%tl165723166084%_
                           (let ()
                             (declare (not safe))
                             (##cdr _%e165721166079%_)))
                          (_%hd165722166082%_
                           (let ()
                             (declare (not safe))
                             (##car _%e165721166079%_))))
                      (if (let ()
                            (declare (not safe))
                            (gx#stx-pair? _%hd165722166082%_))
                          (let ((_%e165724166087%_
                                 (let ()
                                   (declare (not safe))
                                   (gx#stx-e _%hd165722166082%_))))
                            (let ((_%tl165726166092%_
                                   (let ()
                                     (declare (not safe))
                                     (##cdr _%e165724166087%_)))
                                  (_%hd165725166090%_
                                   (let ()
                                     (declare (not safe))
                                     (##car _%e165724166087%_))))
                              (if (let ()
                                    (declare (not safe))
                                    (gx#identifier? _%hd165725166090%_))
                                  (if (let ()
                                        (declare (not safe))
                                        (gx#stx-eq?
                                         '%#quote
                                         _%hd165725166090%_))
                                      (if (let ()
                                            (declare (not safe))
                                            (gx#stx-pair? _%tl165726166092%_))
                                          (let ((_%e165727166095%_
                                                 (let ()
                                                   (declare (not safe))
                                                   (gx#stx-e
                                                    _%tl165726166092%_))))
                                            (let ((_%tl165729166100%_
                                                   (let ()
                                                     (declare (not safe))
                                                     (##cdr _%e165727166095%_)))
                                                  (_%hd165728166098%_
                                                   (let ()
                                                     (declare (not safe))
                                                     (##car _%e165727166095%_))))
                                              (if (let ()
                                                    (declare (not safe))
                                                    (gx#stx-null?
                                                     _%tl165729166100%_))
                                                  (if (let ()
                                                        (declare (not safe))
                                                        (gx#stx-pair?
                                                         _%tl165723166084%_))
                                                      (let ((_%e165730166103%_
                                                             (let ()
                                                               (declare
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                         (not safe))
                       (gx#stx-e _%tl165723166084%_))))
                (let ((_%tl165732166108%_
                       (let () (declare (not safe)) (##cdr _%e165730166103%_)))
                      (_%hd165731166106%_
                       (let ()
                         (declare (not safe))
                         (##car _%e165730166103%_))))
                  (if (let ()
                        (declare (not safe))
                        (gx#stx-pair? _%hd165731166106%_))
                      (let ((_%e165733166111%_
                             (let ()
                               (declare (not safe))
                               (gx#stx-e _%hd165731166106%_))))
                        (let ((_%tl165735166116%_
                               (let ()
                                 (declare (not safe))
                                 (##cdr _%e165733166111%_)))
                              (_%hd165734166114%_
                               (let ()
                                 (declare (not safe))
                                 (##car _%e165733166111%_))))
                          (if (let ()
                                (declare (not safe))
                                (gx#identifier? _%hd165734166114%_))
                              (if (let ()
                                    (declare (not safe))
                                    (gx#stx-eq? '%#ref _%hd165734166114%_))
                                  (if (let ()
                                        (declare (not safe))
                                        (gx#stx-pair? _%tl165735166116%_))
                                      (let ((_%e165736166119%_
                                             (let ()
                                               (declare (not safe))
                                               (gx#stx-e _%tl165735166116%_))))
                                        (let ((_%tl165738166124%_
                                               (let ()
                                                 (declare (not safe))
                                                 (##cdr _%e165736166119%_)))
                                              (_%hd165737166122%_
                                               (let ()
                                                 (declare (not safe))
                                                 (##car _%e165736166119%_))))
                                          (if (let ()
                                                (declare (not safe))
                                                (gx#stx-null?
                                                 _%tl165738166124%_))
                                              (if (let ()
                                                    (declare (not safe))
                                                    (gx#stx-pair?
                                                     _%tl165732166108%_))
                                                  (let ((_%e165739166127%_
                                                         (let ()
                                                           (declare (not safe))
                                                           (gx#stx-e
                                                            _%tl165732166108%_))))
                                                    (let ((_%tl165741166132%_
                                                           (let ()
                                                             (declare
                                                               (not safe))
                                                             (##cdr _%e165739166127%_)))
                                                          (_%hd165740166130%_
                                                           (let ()
                                                             (declare
                                                               (not safe))
                                                             (##car _%e165739166127%_))))
                                                      (if (let ()
                                                            (declare
                                                              (not safe))
                                                            (gx#stx-pair?
                                                             _%hd165740166130%_))
                                                          (let ((_%e165742166135%_
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                         (let ()
                           (declare (not safe))
                           (gx#stx-e _%hd165740166130%_))))
                    (let ((_%tl165744166140%_
                           (let ()
                             (declare (not safe))
                             (##cdr _%e165742166135%_)))
                          (_%hd165743166138%_
                           (let ()
                             (declare (not safe))
                             (##car _%e165742166135%_))))
                      (if (let ()
                            (declare (not safe))
                            (gx#identifier? _%hd165743166138%_))
                          (if (let ()
                                (declare (not safe))
                                (gx#stx-eq? '%#quote _%hd165743166138%_))
                              (if (let ()
                                    (declare (not safe))
                                    (gx#stx-pair? _%tl165744166140%_))
                                  (let ((_%e165745166143%_
                                         (let ()
                                           (declare (not safe))
                                           (gx#stx-e _%tl165744166140%_))))
                                    (let ((_%tl165747166148%_
                                           (let ()
                                             (declare (not safe))
                                             (##cdr _%e165745166143%_)))
                                          (_%hd165746166146%_
                                           (let ()
                                             (declare (not safe))
                                             (##car _%e165745166143%_))))
                                      (if (let ()
                                            (declare (not safe))
                                            (gx#stx-null? _%tl165747166148%_))
                                          (if (let ()
                                                (declare (not safe))
                                                (gx#stx-null?
                                                 _%tl165741166132%_))
                                              (_%__match168249168250%_
                                               _%e165700166023%_
                                               _%hd165701166026%_
                                               _%tl165702166028%_
                                               _%e165703166031%_
                                               _%hd165704166034%_
                                               _%tl165705166036%_
                                               _%e165706166039%_
                                               _%hd165707166042%_
                                               _%tl165708166044%_
                                               _%e165709166047%_
                                               _%hd165710166050%_
                                               _%tl165711166052%_
                                               _%e165712166055%_
                                               _%hd165713166058%_
                                               _%tl165714166060%_
                                               _%e165715166063%_
                                               _%hd165716166066%_
                                               _%tl165717166068%_
                                               _%e165718166071%_
                                               _%hd165719166074%_
                                               _%tl165720166076%_
                                               _%e165721166079%_
                                               _%hd165722166082%_
                                               _%tl165723166084%_
                                               _%e165724166087%_
                                               _%hd165725166090%_
                                               _%tl165726166092%_
                                               _%e165727166095%_
                                               _%hd165728166098%_
                                               _%tl165729166100%_
                                               _%e165730166103%_
                                               _%hd165731166106%_
                                               _%tl165732166108%_
                                               _%e165733166111%_
                                               _%hd165734166114%_
                                               _%tl165735166116%_
                                               _%e165736166119%_
                                               _%hd165737166122%_
                                               _%tl165738166124%_
                                               _%e165739166127%_
                                               _%hd165740166130%_
                                               _%tl165741166132%_
                                               _%e165742166135%_
                                               _%hd165743166138%_
                                               _%tl165744166140%_
                                               _%e165745166143%_
                                               _%hd165746166146%_
                                               _%tl165747166148%_)
                                              (if (let ()
                                                    (declare (not safe))
                                                    (gx#stx-pair/null?
                                                     _%tl165702166028%_))
                                                  (let ((_%__splice168120168121%_
                                                         (let ()
                                                           (declare (not safe))
                                                           (gx#syntax-split-splice
                                                            _%tl165702166028%_
                                                            '0))))
                                                    (let ((_%tl165797165823%_
                                                           (let ()
                                                             (declare
                                                               (not safe))
                                                             (##vector-ref
                                                              _%__splice168120168121%_
                                                              '1)))
                                                          (_%target165795165821%_
                                                           (let ()
                                                             (declare
                                                               (not safe))
                                                             (##vector-ref
                                                              _%__splice168120168121%_
                                                              '0))))
                                                      (if (let ()
                                                            (declare
                                                              (not safe))
                                                            (gx#stx-null?
                                                             _%tl165797165823%_))
                                                          (_%__match168369168370%_
                                                           _%e165700166023%_
                                                           _%hd165701166026%_
                                                           _%tl165702166028%_
                                                           _%__splice168120168121%_
                                                           _%target165795165821%_
                                                           _%tl165797165823%_)
                                                          (let ()
                                                            (declare
                                                              (not safe))
                                                            (_%g165693165808%_)))))
                                                  (let ()
                                                    (declare (not safe))
                                                    (_%g165693165808%_))))
                                          (if (let ()
                                                (declare (not safe))
                                                (gx#stx-pair/null?
                                                 _%tl165702166028%_))
                                              (let ((_%__splice168120168121%_
                                                     (let ()
                                                       (declare (not safe))
                                                       (gx#syntax-split-splice
                                                        _%tl165702166028%_
                                                        '0))))
                                                (let ((_%tl165797165823%_
                                                       (let ()
                                                         (declare (not safe))
                                                         (##vector-ref
                                                          _%__splice168120168121%_
                                                          '1)))
                                                      (_%target165795165821%_
                                                       (let ()
                                                         (declare (not safe))
                                                         (##vector-ref
                                                          _%__splice168120168121%_
                                                          '0))))
                                                  (if (let ()
                                                        (declare (not safe))
                                                        (gx#stx-null?
                                                         _%tl165797165823%_))
                                                      (_%__match168369168370%_
                                                       _%e165700166023%_
                                                       _%hd165701166026%_
                                                       _%tl165702166028%_
                                                       _%__splice168120168121%_
                                                       _%target165795165821%_
                                                       _%tl165797165823%_)
                                                      (let ()
                                                        (declare (not safe))
                                                        (_%g165693165808%_)))))
                                              (let ()
                                                (declare (not safe))
                                                (_%g165693165808%_))))))
                                  (if (let ()
                                        (declare (not safe))
                                        (gx#stx-pair/null? _%tl165702166028%_))
                                      (let ((_%__splice168120168121%_
                                             (let ()
                                               (declare (not safe))
                                               (gx#syntax-split-splice
                                                _%tl165702166028%_
                                                '0))))
                                        (let ((_%tl165797165823%_
                                               (let ()
                                                 (declare (not safe))
                                                 (##vector-ref
                                                  _%__splice168120168121%_
                                                  '1)))
                                              (_%target165795165821%_
                                               (let ()
                                                 (declare (not safe))
                                                 (##vector-ref
                                                  _%__splice168120168121%_
                                                  '0))))
                                          (if (let ()
                                                (declare (not safe))
                                                (gx#stx-null?
                                                 _%tl165797165823%_))
                                              (_%__match168369168370%_
                                               _%e165700166023%_
                                               _%hd165701166026%_
                                               _%tl165702166028%_
                                               _%__splice168120168121%_
                                               _%target165795165821%_
                                               _%tl165797165823%_)
                                              (let ()
                                                (declare (not safe))
                                                (_%g165693165808%_)))))
                                      (let ()
                                        (declare (not safe))
                                        (_%g165693165808%_))))
                              (if (let ()
                                    (declare (not safe))
                                    (gx#stx-pair/null? _%tl165702166028%_))
                                  (let ((_%__splice168120168121%_
                                         (let ()
                                           (declare (not safe))
                                           (gx#syntax-split-splice
                                            _%tl165702166028%_
                                            '0))))
                                    (let ((_%tl165797165823%_
                                           (let ()
                                             (declare (not safe))
                                             (##vector-ref
                                              _%__splice168120168121%_
                                              '1)))
                                          (_%target165795165821%_
                                           (let ()
                                             (declare (not safe))
                                             (##vector-ref
                                              _%__splice168120168121%_
                                              '0))))
                                      (if (let ()
                                            (declare (not safe))
                                            (gx#stx-null? _%tl165797165823%_))
                                          (_%__match168369168370%_
                                           _%e165700166023%_
                                           _%hd165701166026%_
                                           _%tl165702166028%_
                                           _%__splice168120168121%_
                                           _%target165795165821%_
                                           _%tl165797165823%_)
                                          (let ()
                                            (declare (not safe))
                                            (_%g165693165808%_)))))
                                  (let ()
                                    (declare (not safe))
                                    (_%g165693165808%_))))
                          (if (let ()
                                (declare (not safe))
                                (gx#stx-pair/null? _%tl165702166028%_))
                              (let ((_%__splice168120168121%_
                                     (let ()
                                       (declare (not safe))
                                       (gx#syntax-split-splice
                                        _%tl165702166028%_
                                        '0))))
                                (let ((_%tl165797165823%_
                                       (let ()
                                         (declare (not safe))
                                         (##vector-ref
                                          _%__splice168120168121%_
                                          '1)))
                                      (_%target165795165821%_
                                       (let ()
                                         (declare (not safe))
                                         (##vector-ref
                                          _%__splice168120168121%_
                                          '0))))
                                  (if (let ()
                                        (declare (not safe))
                                        (gx#stx-null? _%tl165797165823%_))
                                      (_%__match168369168370%_
                                       _%e165700166023%_
                                       _%hd165701166026%_
                                       _%tl165702166028%_
                                       _%__splice168120168121%_
                                       _%target165795165821%_
                                       _%tl165797165823%_)
                                      (let ()
                                        (declare (not safe))
                                        (_%g165693165808%_)))))
                              (let ()
                                (declare (not safe))
                                (_%g165693165808%_))))))
                  (if (let ()
                        (declare (not safe))
                        (gx#stx-pair/null? _%tl165702166028%_))
                      (let ((_%__splice168120168121%_
                             (let ()
                               (declare (not safe))
                               (gx#syntax-split-splice
                                _%tl165702166028%_
                                '0))))
                        (let ((_%tl165797165823%_
                               (let ()
                                 (declare (not safe))
                                 (##vector-ref _%__splice168120168121%_ '1)))
                              (_%target165795165821%_
                               (let ()
                                 (declare (not safe))
                                 (##vector-ref _%__splice168120168121%_ '0))))
                          (if (let ()
                                (declare (not safe))
                                (gx#stx-null? _%tl165797165823%_))
                              (_%__match168369168370%_
                               _%e165700166023%_
                               _%hd165701166026%_
                               _%tl165702166028%_
                               _%__splice168120168121%_
                               _%target165795165821%_
                               _%tl165797165823%_)
                              (let ()
                                (declare (not safe))
                                (_%g165693165808%_)))))
                      (let () (declare (not safe)) (_%g165693165808%_))))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                                  (if (let ()
                                                        (declare (not safe))
                                                        (gx#stx-null?
                                                         _%tl165732166108%_))
                                                      (if (let ((__tmp170946
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                         (let ()
                           (declare (not safe))
                           (gx#datum->syntax__0 '#f '-bind-method))))
                    (declare (not safe))
                    (gxc#runtime-identifier=? __tmp170946 'bind-method!))
                  (let ((_%L165979%_ _%hd165737166122%_)
                        (_%L165980%_ _%hd165728166098%_)
                        (_%L165981%_ _%hd165719166074%_)
                        (_%L165982%_ _%hd165710166050%_))
                    (_%__kont168116168117%_
                     _%L165979%_
                     _%L165980%_
                     _%L165981%_
                     _%L165982%_))
                  (if (let ()
                        (declare (not safe))
                        (gx#stx-pair/null? _%tl165702166028%_))
                      (let ((_%__splice168120168121%_
                             (let ()
                               (declare (not safe))
                               (gx#syntax-split-splice
                                _%tl165702166028%_
                                '0))))
                        (let ((_%tl165797165823%_
                               (let ()
                                 (declare (not safe))
                                 (##vector-ref _%__splice168120168121%_ '1)))
                              (_%target165795165821%_
                               (let ()
                                 (declare (not safe))
                                 (##vector-ref _%__splice168120168121%_ '0))))
                          (if (let ()
                                (declare (not safe))
                                (gx#stx-null? _%tl165797165823%_))
                              (_%__match168369168370%_
                               _%e165700166023%_
                               _%hd165701166026%_
                               _%tl165702166028%_
                               _%__splice168120168121%_
                               _%target165795165821%_
                               _%tl165797165823%_)
                              (let ()
                                (declare (not safe))
                                (_%g165693165808%_)))))
                      (let () (declare (not safe)) (_%g165693165808%_))))
              (if (let ()
                    (declare (not safe))
                    (gx#stx-pair/null? _%tl165702166028%_))
                  (let ((_%__splice168120168121%_
                         (let ()
                           (declare (not safe))
                           (gx#syntax-split-splice _%tl165702166028%_ '0))))
                    (let ((_%tl165797165823%_
                           (let ()
                             (declare (not safe))
                             (##vector-ref _%__splice168120168121%_ '1)))
                          (_%target165795165821%_
                           (let ()
                             (declare (not safe))
                             (##vector-ref _%__splice168120168121%_ '0))))
                      (if (let ()
                            (declare (not safe))
                            (gx#stx-null? _%tl165797165823%_))
                          (_%__match168369168370%_
                           _%e165700166023%_
                           _%hd165701166026%_
                           _%tl165702166028%_
                           _%__splice168120168121%_
                           _%target165795165821%_
                           _%tl165797165823%_)
                          (let () (declare (not safe)) (_%g165693165808%_)))))
                  (let () (declare (not safe)) (_%g165693165808%_)))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                              (if (let ()
                                                    (declare (not safe))
                                                    (gx#stx-pair/null?
                                                     _%tl165702166028%_))
                                                  (let ((_%__splice168120168121%_
                                                         (let ()
                                                           (declare (not safe))
                                                           (gx#syntax-split-splice
                                                            _%tl165702166028%_
                                                            '0))))
                                                    (let ((_%tl165797165823%_
                                                           (let ()
                                                             (declare
                                                               (not safe))
                                                             (##vector-ref
                                                              _%__splice168120168121%_
                                                              '1)))
                                                          (_%target165795165821%_
                                                           (let ()
                                                             (declare
                                                               (not safe))
                                                             (##vector-ref
                                                              _%__splice168120168121%_
                                                              '0))))
                                                      (if (let ()
                                                            (declare
                                                              (not safe))
                                                            (gx#stx-null?
                                                             _%tl165797165823%_))
                                                          (_%__match168369168370%_
                                                           _%e165700166023%_
                                                           _%hd165701166026%_
                                                           _%tl165702166028%_
                                                           _%__splice168120168121%_
                                                           _%target165795165821%_
                                                           _%tl165797165823%_)
                                                          (let ()
                                                            (declare
                                                              (not safe))
                                                            (_%g165693165808%_)))))
                                                  (let ()
                                                    (declare (not safe))
                                                    (_%g165693165808%_))))))
                                      (if (let ()
                                            (declare (not safe))
                                            (gx#stx-pair/null?
                                             _%tl165702166028%_))
                                          (let ((_%__splice168120168121%_
                                                 (let ()
                                                   (declare (not safe))
                                                   (gx#syntax-split-splice
                                                    _%tl165702166028%_
                                                    '0))))
                                            (let ((_%tl165797165823%_
                                                   (let ()
                                                     (declare (not safe))
                                                     (##vector-ref
                                                      _%__splice168120168121%_
                                                      '1)))
                                                  (_%target165795165821%_
                                                   (let ()
                                                     (declare (not safe))
                                                     (##vector-ref
                                                      _%__splice168120168121%_
                                                      '0))))
                                              (if (let ()
                                                    (declare (not safe))
                                                    (gx#stx-null?
                                                     _%tl165797165823%_))
                                                  (_%__match168369168370%_
                                                   _%e165700166023%_
                                                   _%hd165701166026%_
                                                   _%tl165702166028%_
                                                   _%__splice168120168121%_
                                                   _%target165795165821%_
                                                   _%tl165797165823%_)
                                                  (let ()
                                                    (declare (not safe))
                                                    (_%g165693165808%_)))))
                                          (let ()
                                            (declare (not safe))
                                            (_%g165693165808%_))))
                                  (if (let ()
                                        (declare (not safe))
                                        (gx#stx-pair/null? _%tl165702166028%_))
                                      (let ((_%__splice168120168121%_
                                             (let ()
                                               (declare (not safe))
                                               (gx#syntax-split-splice
                                                _%tl165702166028%_
                                                '0))))
                                        (let ((_%tl165797165823%_
                                               (let ()
                                                 (declare (not safe))
                                                 (##vector-ref
                                                  _%__splice168120168121%_
                                                  '1)))
                                              (_%target165795165821%_
                                               (let ()
                                                 (declare (not safe))
                                                 (##vector-ref
                                                  _%__splice168120168121%_
                                                  '0))))
                                          (if (let ()
                                                (declare (not safe))
                                                (gx#stx-null?
                                                 _%tl165797165823%_))
                                              (_%__match168369168370%_
                                               _%e165700166023%_
                                               _%hd165701166026%_
                                               _%tl165702166028%_
                                               _%__splice168120168121%_
                                               _%target165795165821%_
                                               _%tl165797165823%_)
                                              (let ()
                                                (declare (not safe))
                                                (_%g165693165808%_)))))
                                      (let ()
                                        (declare (not safe))
                                        (_%g165693165808%_))))
                              (if (let ()
                                    (declare (not safe))
                                    (gx#stx-pair/null? _%tl165702166028%_))
                                  (let ((_%__splice168120168121%_
                                         (let ()
                                           (declare (not safe))
                                           (gx#syntax-split-splice
                                            _%tl165702166028%_
                                            '0))))
                                    (let ((_%tl165797165823%_
                                           (let ()
                                             (declare (not safe))
                                             (##vector-ref
                                              _%__splice168120168121%_
                                              '1)))
                                          (_%target165795165821%_
                                           (let ()
                                             (declare (not safe))
                                             (##vector-ref
                                              _%__splice168120168121%_
                                              '0))))
                                      (if (let ()
                                            (declare (not safe))
                                            (gx#stx-null? _%tl165797165823%_))
                                          (_%__match168369168370%_
                                           _%e165700166023%_
                                           _%hd165701166026%_
                                           _%tl165702166028%_
                                           _%__splice168120168121%_
                                           _%target165795165821%_
                                           _%tl165797165823%_)
                                          (let ()
                                            (declare (not safe))
                                            (_%g165693165808%_)))))
                                  (let ()
                                    (declare (not safe))
                                    (_%g165693165808%_))))))
                      (if (let ()
                            (declare (not safe))
                            (gx#stx-pair/null? _%tl165702166028%_))
                          (let ((_%__splice168120168121%_
                                 (let ()
                                   (declare (not safe))
                                   (gx#syntax-split-splice
                                    _%tl165702166028%_
                                    '0))))
                            (let ((_%tl165797165823%_
                                   (let ()
                                     (declare (not safe))
                                     (##vector-ref
                                      _%__splice168120168121%_
                                      '1)))
                                  (_%target165795165821%_
                                   (let ()
                                     (declare (not safe))
                                     (##vector-ref
                                      _%__splice168120168121%_
                                      '0))))
                              (if (let ()
                                    (declare (not safe))
                                    (gx#stx-null? _%tl165797165823%_))
                                  (_%__match168369168370%_
                                   _%e165700166023%_
                                   _%hd165701166026%_
                                   _%tl165702166028%_
                                   _%__splice168120168121%_
                                   _%target165795165821%_
                                   _%tl165797165823%_)
                                  (let ()
                                    (declare (not safe))
                                    (_%g165693165808%_)))))
                          (let () (declare (not safe)) (_%g165693165808%_))))))
              (if (let ()
                    (declare (not safe))
                    (gx#stx-pair/null? _%tl165702166028%_))
                  (let ((_%__splice168120168121%_
                         (let ()
                           (declare (not safe))
                           (gx#syntax-split-splice _%tl165702166028%_ '0))))
                    (let ((_%tl165797165823%_
                           (let ()
                             (declare (not safe))
                             (##vector-ref _%__splice168120168121%_ '1)))
                          (_%target165795165821%_
                           (let ()
                             (declare (not safe))
                             (##vector-ref _%__splice168120168121%_ '0))))
                      (if (let ()
                            (declare (not safe))
                            (gx#stx-null? _%tl165797165823%_))
                          (_%__match168369168370%_
                           _%e165700166023%_
                           _%hd165701166026%_
                           _%tl165702166028%_
                           _%__splice168120168121%_
                           _%target165795165821%_
                           _%tl165797165823%_)
                          (let () (declare (not safe)) (_%g165693165808%_)))))
                  (let () (declare (not safe)) (_%g165693165808%_))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                                  (if (let ()
                                                        (declare (not safe))
                                                        (gx#stx-pair/null?
                                                         _%tl165702166028%_))
                                                      (let ((_%__splice168120168121%_
                                                             (let ()
                                                               (declare
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                         (not safe))
                       (gx#syntax-split-splice _%tl165702166028%_ '0))))
                (let ((_%tl165797165823%_
                       (let ()
                         (declare (not safe))
                         (##vector-ref _%__splice168120168121%_ '1)))
                      (_%target165795165821%_
                       (let ()
                         (declare (not safe))
                         (##vector-ref _%__splice168120168121%_ '0))))
                  (if (let ()
                        (declare (not safe))
                        (gx#stx-null? _%tl165797165823%_))
                      (_%__match168369168370%_
                       _%e165700166023%_
                       _%hd165701166026%_
                       _%tl165702166028%_
                       _%__splice168120168121%_
                       _%target165795165821%_
                       _%tl165797165823%_)
                      (let () (declare (not safe)) (_%g165693165808%_)))))
              (let () (declare (not safe)) (_%g165693165808%_))))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                          (if (let ()
                                                (declare (not safe))
                                                (gx#stx-pair/null?
                                                 _%tl165702166028%_))
                                              (let ((_%__splice168120168121%_
                                                     (let ()
                                                       (declare (not safe))
                                                       (gx#syntax-split-splice
                                                        _%tl165702166028%_
                                                        '0))))
                                                (let ((_%tl165797165823%_
                                                       (let ()
                                                         (declare (not safe))
                                                         (##vector-ref
                                                          _%__splice168120168121%_
                                                          '1)))
                                                      (_%target165795165821%_
                                                       (let ()
                                                         (declare (not safe))
                                                         (##vector-ref
                                                          _%__splice168120168121%_
                                                          '0))))
                                                  (if (let ()
                                                        (declare (not safe))
                                                        (gx#stx-null?
                                                         _%tl165797165823%_))
                                                      (_%__match168369168370%_
                                                       _%e165700166023%_
                                                       _%hd165701166026%_
                                                       _%tl165702166028%_
                                                       _%__splice168120168121%_
                                                       _%target165795165821%_
                                                       _%tl165797165823%_)
                                                      (let ()
                                                        (declare (not safe))
                                                        (_%g165693165808%_)))))
                                              (let ()
                                                (declare (not safe))
                                                (_%g165693165808%_))))
                                      (if (let ()
                                            (declare (not safe))
                                            (gx#stx-pair/null?
                                             _%tl165702166028%_))
                                          (let ((_%__splice168120168121%_
                                                 (let ()
                                                   (declare (not safe))
                                                   (gx#syntax-split-splice
                                                    _%tl165702166028%_
                                                    '0))))
                                            (let ((_%tl165797165823%_
                                                   (let ()
                                                     (declare (not safe))
                                                     (##vector-ref
                                                      _%__splice168120168121%_
                                                      '1)))
                                                  (_%target165795165821%_
                                                   (let ()
                                                     (declare (not safe))
                                                     (##vector-ref
                                                      _%__splice168120168121%_
                                                      '0))))
                                              (if (let ()
                                                    (declare (not safe))
                                                    (gx#stx-null?
                                                     _%tl165797165823%_))
                                                  (_%__match168369168370%_
                                                   _%e165700166023%_
                                                   _%hd165701166026%_
                                                   _%tl165702166028%_
                                                   _%__splice168120168121%_
                                                   _%target165795165821%_
                                                   _%tl165797165823%_)
                                                  (let ()
                                                    (declare (not safe))
                                                    (_%g165693165808%_)))))
                                          (let ()
                                            (declare (not safe))
                                            (_%g165693165808%_))))
                                  (if (let ()
                                        (declare (not safe))
                                        (gx#stx-pair/null? _%tl165702166028%_))
                                      (let ((_%__splice168120168121%_
                                             (let ()
                                               (declare (not safe))
                                               (gx#syntax-split-splice
                                                _%tl165702166028%_
                                                '0))))
                                        (let ((_%tl165797165823%_
                                               (let ()
                                                 (declare (not safe))
                                                 (##vector-ref
                                                  _%__splice168120168121%_
                                                  '1)))
                                              (_%target165795165821%_
                                               (let ()
                                                 (declare (not safe))
                                                 (##vector-ref
                                                  _%__splice168120168121%_
                                                  '0))))
                                          (if (let ()
                                                (declare (not safe))
                                                (gx#stx-null?
                                                 _%tl165797165823%_))
                                              (_%__match168369168370%_
                                               _%e165700166023%_
                                               _%hd165701166026%_
                                               _%tl165702166028%_
                                               _%__splice168120168121%_
                                               _%target165795165821%_
                                               _%tl165797165823%_)
                                              (let ()
                                                (declare (not safe))
                                                (_%g165693165808%_)))))
                                      (let ()
                                        (declare (not safe))
                                        (_%g165693165808%_))))))
                          (if (let ()
                                (declare (not safe))
                                (gx#stx-pair/null? _%tl165702166028%_))
                              (let ((_%__splice168120168121%_
                                     (let ()
                                       (declare (not safe))
                                       (gx#syntax-split-splice
                                        _%tl165702166028%_
                                        '0))))
                                (let ((_%tl165797165823%_
                                       (let ()
                                         (declare (not safe))
                                         (##vector-ref
                                          _%__splice168120168121%_
                                          '1)))
                                      (_%target165795165821%_
                                       (let ()
                                         (declare (not safe))
                                         (##vector-ref
                                          _%__splice168120168121%_
                                          '0))))
                                  (if (let ()
                                        (declare (not safe))
                                        (gx#stx-null? _%tl165797165823%_))
                                      (_%__match168369168370%_
                                       _%e165700166023%_
                                       _%hd165701166026%_
                                       _%tl165702166028%_
                                       _%__splice168120168121%_
                                       _%target165795165821%_
                                       _%tl165797165823%_)
                                      (let ()
                                        (declare (not safe))
                                        (_%g165693165808%_)))))
                              (let ()
                                (declare (not safe))
                                (_%g165693165808%_))))))
                  (if (let ()
                        (declare (not safe))
                        (gx#stx-pair/null? _%tl165702166028%_))
                      (let ((_%__splice168120168121%_
                             (let ()
                               (declare (not safe))
                               (gx#syntax-split-splice
                                _%tl165702166028%_
                                '0))))
                        (let ((_%tl165797165823%_
                               (let ()
                                 (declare (not safe))
                                 (##vector-ref _%__splice168120168121%_ '1)))
                              (_%target165795165821%_
                               (let ()
                                 (declare (not safe))
                                 (##vector-ref _%__splice168120168121%_ '0))))
                          (if (let ()
                                (declare (not safe))
                                (gx#stx-null? _%tl165797165823%_))
                              (_%__match168369168370%_
                               _%e165700166023%_
                               _%hd165701166026%_
                               _%tl165702166028%_
                               _%__splice168120168121%_
                               _%target165795165821%_
                               _%tl165797165823%_)
                              (let ()
                                (declare (not safe))
                                (_%g165693165808%_)))))
                      (let () (declare (not safe)) (_%g165693165808%_))))
              (if (let ()
                    (declare (not safe))
                    (gx#stx-pair/null? _%tl165702166028%_))
                  (let ((_%__splice168120168121%_
                         (let ()
                           (declare (not safe))
                           (gx#syntax-split-splice _%tl165702166028%_ '0))))
                    (let ((_%tl165797165823%_
                           (let ()
                             (declare (not safe))
                             (##vector-ref _%__splice168120168121%_ '1)))
                          (_%target165795165821%_
                           (let ()
                             (declare (not safe))
                             (##vector-ref _%__splice168120168121%_ '0))))
                      (if (let ()
                            (declare (not safe))
                            (gx#stx-null? _%tl165797165823%_))
                          (_%__match168369168370%_
                           _%e165700166023%_
                           _%hd165701166026%_
                           _%tl165702166028%_
                           _%__splice168120168121%_
                           _%target165795165821%_
                           _%tl165797165823%_)
                          (let () (declare (not safe)) (_%g165693165808%_)))))
                  (let () (declare (not safe)) (_%g165693165808%_))))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                              (if (let ()
                                                    (declare (not safe))
                                                    (gx#stx-pair/null?
                                                     _%tl165702166028%_))
                                                  (let ((_%__splice168120168121%_
                                                         (let ()
                                                           (declare (not safe))
                                                           (gx#syntax-split-splice
                                                            _%tl165702166028%_
                                                            '0))))
                                                    (let ((_%tl165797165823%_
                                                           (let ()
                                                             (declare
                                                               (not safe))
                                                             (##vector-ref
                                                              _%__splice168120168121%_
                                                              '1)))
                                                          (_%target165795165821%_
                                                           (let ()
                                                             (declare
                                                               (not safe))
                                                             (##vector-ref
                                                              _%__splice168120168121%_
                                                              '0))))
                                                      (if (let ()
                                                            (declare
                                                              (not safe))
                                                            (gx#stx-null?
                                                             _%tl165797165823%_))
                                                          (_%__match168369168370%_
                                                           _%e165700166023%_
                                                           _%hd165701166026%_
                                                           _%tl165702166028%_
                                                           _%__splice168120168121%_
                                                           _%target165795165821%_
                                                           _%tl165797165823%_)
                                                          (let ()
                                                            (declare
                                                              (not safe))
                                                            (_%g165693165808%_)))))
                                                  (let ()
                                                    (declare (not safe))
                                                    (_%g165693165808%_))))
                                          (if (let ()
                                                (declare (not safe))
                                                (gx#stx-pair/null?
                                                 _%tl165702166028%_))
                                              (let ((_%__splice168120168121%_
                                                     (let ()
                                                       (declare (not safe))
                                                       (gx#syntax-split-splice
                                                        _%tl165702166028%_
                                                        '0))))
                                                (let ((_%tl165797165823%_
                                                       (let ()
                                                         (declare (not safe))
                                                         (##vector-ref
                                                          _%__splice168120168121%_
                                                          '1)))
                                                      (_%target165795165821%_
                                                       (let ()
                                                         (declare (not safe))
                                                         (##vector-ref
                                                          _%__splice168120168121%_
                                                          '0))))
                                                  (if (let ()
                                                        (declare (not safe))
                                                        (gx#stx-null?
                                                         _%tl165797165823%_))
                                                      (_%__match168369168370%_
                                                       _%e165700166023%_
                                                       _%hd165701166026%_
                                                       _%tl165702166028%_
                                                       _%__splice168120168121%_
                                                       _%target165795165821%_
                                                       _%tl165797165823%_)
                                                      (let ()
                                                        (declare (not safe))
                                                        (_%g165693165808%_)))))
                                              (let ()
                                                (declare (not safe))
                                                (_%g165693165808%_))))
                                      (if (let ()
                                            (declare (not safe))
                                            (gx#stx-pair/null?
                                             _%tl165702166028%_))
                                          (let ((_%__splice168120168121%_
                                                 (let ()
                                                   (declare (not safe))
                                                   (gx#syntax-split-splice
                                                    _%tl165702166028%_
                                                    '0))))
                                            (let ((_%tl165797165823%_
                                                   (let ()
                                                     (declare (not safe))
                                                     (##vector-ref
                                                      _%__splice168120168121%_
                                                      '1)))
                                                  (_%target165795165821%_
                                                   (let ()
                                                     (declare (not safe))
                                                     (##vector-ref
                                                      _%__splice168120168121%_
                                                      '0))))
                                              (if (let ()
                                                    (declare (not safe))
                                                    (gx#stx-null?
                                                     _%tl165797165823%_))
                                                  (_%__match168369168370%_
                                                   _%e165700166023%_
                                                   _%hd165701166026%_
                                                   _%tl165702166028%_
                                                   _%__splice168120168121%_
                                                   _%target165795165821%_
                                                   _%tl165797165823%_)
                                                  (let ()
                                                    (declare (not safe))
                                                    (_%g165693165808%_)))))
                                          (let ()
                                            (declare (not safe))
                                            (_%g165693165808%_))))))
                              (if (let ()
                                    (declare (not safe))
                                    (gx#stx-pair/null? _%tl165702166028%_))
                                  (let ((_%__splice168120168121%_
                                         (let ()
                                           (declare (not safe))
                                           (gx#syntax-split-splice
                                            _%tl165702166028%_
                                            '0))))
                                    (let ((_%tl165797165823%_
                                           (let ()
                                             (declare (not safe))
                                             (##vector-ref
                                              _%__splice168120168121%_
                                              '1)))
                                          (_%target165795165821%_
                                           (let ()
                                             (declare (not safe))
                                             (##vector-ref
                                              _%__splice168120168121%_
                                              '0))))
                                      (if (let ()
                                            (declare (not safe))
                                            (gx#stx-null? _%tl165797165823%_))
                                          (_%__match168369168370%_
                                           _%e165700166023%_
                                           _%hd165701166026%_
                                           _%tl165702166028%_
                                           _%__splice168120168121%_
                                           _%target165795165821%_
                                           _%tl165797165823%_)
                                          (let ()
                                            (declare (not safe))
                                            (_%g165693165808%_)))))
                                  (let ()
                                    (declare (not safe))
                                    (_%g165693165808%_))))))
                      (if (let ()
                            (declare (not safe))
                            (gx#stx-pair/null? _%tl165702166028%_))
                          (let ((_%__splice168120168121%_
                                 (let ()
                                   (declare (not safe))
                                   (gx#syntax-split-splice
                                    _%tl165702166028%_
                                    '0))))
                            (let ((_%tl165797165823%_
                                   (let ()
                                     (declare (not safe))
                                     (##vector-ref
                                      _%__splice168120168121%_
                                      '1)))
                                  (_%target165795165821%_
                                   (let ()
                                     (declare (not safe))
                                     (##vector-ref
                                      _%__splice168120168121%_
                                      '0))))
                              (if (let ()
                                    (declare (not safe))
                                    (gx#stx-null? _%tl165797165823%_))
                                  (_%__match168369168370%_
                                   _%e165700166023%_
                                   _%hd165701166026%_
                                   _%tl165702166028%_
                                   _%__splice168120168121%_
                                   _%target165795165821%_
                                   _%tl165797165823%_)
                                  (let ()
                                    (declare (not safe))
                                    (_%g165693165808%_)))))
                          (let () (declare (not safe)) (_%g165693165808%_))))
                  (if (let ()
                        (declare (not safe))
                        (gx#stx-pair/null? _%tl165702166028%_))
                      (let ((_%__splice168120168121%_
                             (let ()
                               (declare (not safe))
                               (gx#syntax-split-splice
                                _%tl165702166028%_
                                '0))))
                        (let ((_%tl165797165823%_
                               (let ()
                                 (declare (not safe))
                                 (##vector-ref _%__splice168120168121%_ '1)))
                              (_%target165795165821%_
                               (let ()
                                 (declare (not safe))
                                 (##vector-ref _%__splice168120168121%_ '0))))
                          (if (let ()
                                (declare (not safe))
                                (gx#stx-null? _%tl165797165823%_))
                              (_%__match168369168370%_
                               _%e165700166023%_
                               _%hd165701166026%_
                               _%tl165702166028%_
                               _%__splice168120168121%_
                               _%target165795165821%_
                               _%tl165797165823%_)
                              (let ()
                                (declare (not safe))
                                (_%g165693165808%_)))))
                      (let () (declare (not safe)) (_%g165693165808%_))))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                                  (if (let ()
                                                        (declare (not safe))
                                                        (gx#stx-pair/null?
                                                         _%tl165702166028%_))
                                                      (let ((_%__splice168120168121%_
                                                             (let ()
                                                               (declare
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                         (not safe))
                       (gx#syntax-split-splice _%tl165702166028%_ '0))))
                (let ((_%tl165797165823%_
                       (let ()
                         (declare (not safe))
                         (##vector-ref _%__splice168120168121%_ '1)))
                      (_%target165795165821%_
                       (let ()
                         (declare (not safe))
                         (##vector-ref _%__splice168120168121%_ '0))))
                  (if (let ()
                        (declare (not safe))
                        (gx#stx-null? _%tl165797165823%_))
                      (_%__match168369168370%_
                       _%e165700166023%_
                       _%hd165701166026%_
                       _%tl165702166028%_
                       _%__splice168120168121%_
                       _%target165795165821%_
                       _%tl165797165823%_)
                      (let () (declare (not safe)) (_%g165693165808%_)))))
              (let () (declare (not safe)) (_%g165693165808%_))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                              (if (let ()
                                                    (declare (not safe))
                                                    (gx#stx-pair/null?
                                                     _%tl165702166028%_))
                                                  (let ((_%__splice168120168121%_
                                                         (let ()
                                                           (declare (not safe))
                                                           (gx#syntax-split-splice
                                                            _%tl165702166028%_
                                                            '0))))
                                                    (let ((_%tl165797165823%_
                                                           (let ()
                                                             (declare
                                                               (not safe))
                                                             (##vector-ref
                                                              _%__splice168120168121%_
                                                              '1)))
                                                          (_%target165795165821%_
                                                           (let ()
                                                             (declare
                                                               (not safe))
                                                             (##vector-ref
                                                              _%__splice168120168121%_
                                                              '0))))
                                                      (if (let ()
                                                            (declare
                                                              (not safe))
                                                            (gx#stx-null?
                                                             _%tl165797165823%_))
                                                          (_%__match168369168370%_
                                                           _%e165700166023%_
                                                           _%hd165701166026%_
                                                           _%tl165702166028%_
                                                           _%__splice168120168121%_
                                                           _%target165795165821%_
                                                           _%tl165797165823%_)
                                                          (let ()
                                                            (declare
                                                              (not safe))
                                                            (_%g165693165808%_)))))
                                                  (let ()
                                                    (declare (not safe))
                                                    (_%g165693165808%_))))
                                          (if (let ()
                                                (declare (not safe))
                                                (gx#stx-pair/null?
                                                 _%tl165702166028%_))
                                              (let ((_%__splice168120168121%_
                                                     (let ()
                                                       (declare (not safe))
                                                       (gx#syntax-split-splice
                                                        _%tl165702166028%_
                                                        '0))))
                                                (let ((_%tl165797165823%_
                                                       (let ()
                                                         (declare (not safe))
                                                         (##vector-ref
                                                          _%__splice168120168121%_
                                                          '1)))
                                                      (_%target165795165821%_
                                                       (let ()
                                                         (declare (not safe))
                                                         (##vector-ref
                                                          _%__splice168120168121%_
                                                          '0))))
                                                  (if (let ()
                                                        (declare (not safe))
                                                        (gx#stx-null?
                                                         _%tl165797165823%_))
                                                      (_%__match168369168370%_
                                                       _%e165700166023%_
                                                       _%hd165701166026%_
                                                       _%tl165702166028%_
                                                       _%__splice168120168121%_
                                                       _%target165795165821%_
                                                       _%tl165797165823%_)
                                                      (let ()
                                                        (declare (not safe))
                                                        (_%g165693165808%_)))))
                                              (let ()
                                                (declare (not safe))
                                                (_%g165693165808%_))))))
                                  (if (let ()
                                        (declare (not safe))
                                        (gx#stx-pair/null? _%tl165702166028%_))
                                      (let ((_%__splice168120168121%_
                                             (let ()
                                               (declare (not safe))
                                               (gx#syntax-split-splice
                                                _%tl165702166028%_
                                                '0))))
                                        (let ((_%tl165797165823%_
                                               (let ()
                                                 (declare (not safe))
                                                 (##vector-ref
                                                  _%__splice168120168121%_
                                                  '1)))
                                              (_%target165795165821%_
                                               (let ()
                                                 (declare (not safe))
                                                 (##vector-ref
                                                  _%__splice168120168121%_
                                                  '0))))
                                          (if (let ()
                                                (declare (not safe))
                                                (gx#stx-null?
                                                 _%tl165797165823%_))
                                              (_%__match168369168370%_
                                               _%e165700166023%_
                                               _%hd165701166026%_
                                               _%tl165702166028%_
                                               _%__splice168120168121%_
                                               _%target165795165821%_
                                               _%tl165797165823%_)
                                              (let ()
                                                (declare (not safe))
                                                (_%g165693165808%_)))))
                                      (let ()
                                        (declare (not safe))
                                        (_%g165693165808%_))))))
                          (if (let ()
                                (declare (not safe))
                                (gx#stx-pair/null? _%tl165702166028%_))
                              (let ((_%__splice168120168121%_
                                     (let ()
                                       (declare (not safe))
                                       (gx#syntax-split-splice
                                        _%tl165702166028%_
                                        '0))))
                                (let ((_%tl165797165823%_
                                       (let ()
                                         (declare (not safe))
                                         (##vector-ref
                                          _%__splice168120168121%_
                                          '1)))
                                      (_%target165795165821%_
                                       (let ()
                                         (declare (not safe))
                                         (##vector-ref
                                          _%__splice168120168121%_
                                          '0))))
                                  (if (let ()
                                        (declare (not safe))
                                        (gx#stx-null? _%tl165797165823%_))
                                      (_%__match168369168370%_
                                       _%e165700166023%_
                                       _%hd165701166026%_
                                       _%tl165702166028%_
                                       _%__splice168120168121%_
                                       _%target165795165821%_
                                       _%tl165797165823%_)
                                      (let ()
                                        (declare (not safe))
                                        (_%g165693165808%_)))))
                              (let ()
                                (declare (not safe))
                                (_%g165693165808%_))))))
                  (let () (declare (not safe)) (_%g165693165808%_))))))))
    (define gxc#collect-type-setq%
      (lambda (_%self165611%_ _%stx165612%_)
        (let* ((_%g165614165631%_
                (lambda (_%g165615165628%_)
                  (let ()
                    (declare (not safe))
                    (gx#raise-syntax-error
                     '#f
                     '"Bad syntax; invalid match target"
                     _%g165615165628%_))))
               (_%g165613165685%_
                (lambda (_%g165615165634%_)
                  (if (let ()
                        (declare (not safe))
                        (gx#stx-pair? _%g165615165634%_))
                      (let ((_%e165618165636%_
                             (let ()
                               (declare (not safe))
                               (gx#stx-e _%g165615165634%_))))
                        (let ((_%hd165619165639%_
                               (let ()
                                 (declare (not safe))
                                 (##car _%e165618165636%_)))
                              (_%tl165620165641%_
                               (let ()
                                 (declare (not safe))
                                 (##cdr _%e165618165636%_))))
                          (if (let ()
                                (declare (not safe))
                                (gx#stx-pair? _%tl165620165641%_))
                              (let ((_%e165621165644%_
                                     (let ()
                                       (declare (not safe))
                                       (gx#stx-e _%tl165620165641%_))))
                                (let ((_%hd165622165647%_
                                       (let ()
                                         (declare (not safe))
                                         (##car _%e165621165644%_)))
                                      (_%tl165623165649%_
                                       (let ()
                                         (declare (not safe))
                                         (##cdr _%e165621165644%_))))
                                  (if (let ()
                                        (declare (not safe))
                                        (gx#stx-pair? _%tl165623165649%_))
                                      (let ((_%e165624165652%_
                                             (let ()
                                               (declare (not safe))
                                               (gx#stx-e _%tl165623165649%_))))
                                        (let ((_%hd165625165655%_
                                               (let ()
                                                 (declare (not safe))
                                                 (##car _%e165624165652%_)))
                                              (_%tl165626165657%_
                                               (let ()
                                                 (declare (not safe))
                                                 (##cdr _%e165624165652%_))))
                                          (if (let ()
                                                (declare (not safe))
                                                (gx#stx-null?
                                                 _%tl165626165657%_))
                                              ((lambda (_%L165660%_
                                                        _%L165661%_)
                                                 (let* ((_%sym165676%_
                                                         (let ()
                                                           (declare (not safe))
                                                           (gxc#identifier-symbol
                                                            _%L165661%_)))
                                                        (_%bind-type165678%_
                                                         (let ()
                                                           (declare (not safe))
                                                           (gxc#optimizer-resolve-type
                                                            _%sym165676%_)))
                                                        (_%expr-type165680%_
                                                         (gxc#apply-basic-expression-type
                                                          _%L165660%_))
                                                        (_%reduced-type165682%_
                                                         (gxc#greatest-common-type
                                                          _%stx165612%_
                                                          _%bind-type165678%_
                                                          _%expr-type165680%_)))
                                                   (if _%reduced-type165682%_
                                                       (let ((__tmp170947
                                                              (memq _%sym165676%_
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                            (let ()
                              (declare (not safe))
                              (gxc#current-compile-local-env)))))
                 (declare (not safe))
                 (gxc#optimizer-declare-type!__%
                  _%sym165676%_
                  _%reduced-type165682%_
                  __tmp170947))
               '#!void)
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                                   (let ()
                                                     (declare (not safe))
                                                     (gxc#compile-e__1
                                                      _%self165611%_
                                                      _%L165660%_))))
                                               _%hd165625165655%_
                                               _%hd165622165647%_)
                                              (_%g165614165631%_
                                               _%g165615165634%_))))
                                      (_%g165614165631%_ _%g165615165634%_))))
                              (_%g165614165631%_ _%g165615165634%_))))
                      (_%g165614165631%_ _%g165615165634%_)))))
          (_%g165613165685%_ _%stx165612%_))))
    (define gxc#apply-path-type-if%
      (lambda (_%self165211%_ _%stx165212%_)
        (let* ((_%__stx168372168373%_ _%stx165212%_)
               (_%g165216165305%_
                (lambda ()
                  (let ()
                    (declare (not safe))
                    (gx#raise-syntax-error
                     '#f
                     '"Bad syntax; invalid match target"
                     _%__stx168372168373%_)))))
          (let ((_%__kont168374168375%_
                 (lambda (_%L165563%_ _%L165564%_ _%L165565%_ _%L165566%_)
                   (let ((_%$e165598%_
                          (let ((__tmp170948
                                 (let ()
                                   (declare (not safe))
                                   (gxc#identifier-symbol _%L165566%_))))
                            (declare (not safe))
                            (gxc#optimizer-lookup-type __tmp170948))))
                     (if _%$e165598%_
                         ((lambda (_%pred-type165601%_)
                            (if (or (let ()
                                      (declare (not safe))
                                      (##structure-instance-of?
                                       _%pred-type165601%_
                                       'gxc#!predicate::t))
                                    (let ()
                                      (declare (not safe))
                                      (##structure-instance-of?
                                       _%pred-type165601%_
                                       'gxc#!primitive-predicate::t)))
                                (begin
                                  (let ((__tmp170951
                                         (lambda ()
                                           (let ()
                                             (declare (not safe))
                                             (gxc#compile-e__1
                                              _%self165211%_
                                              _%L165564%_))))
                                        (__tmp170949
                                         (cons (cons (let ()
                                                       (declare (not safe))
                                                       (gxc#identifier-symbol
                                                        _%L165565%_))
                                                     (let ((__tmp170950
                                                            (##structure-ref
                                                             _%pred-type165601%_
                                                             '1
                                                             gxc#!type::t
                                                             '#f)))
                                                       (declare (not safe))
                                                       (gxc#optimizer-resolve-class
                                                        _%stx165212%_
                                                        __tmp170950)))
                                               (let ()
                                                 (declare (not safe))
                                                 (gxc#current-compile-path-type)))))
                                    (declare (not safe))
                                    (__call-with-parameters
                                     __tmp170951
                                     gxc#current-compile-path-type
                                     __tmp170949))
                                  (let ()
                                    (declare (not safe))
                                    (gxc#compile-e__1
                                     _%self165211%_
                                     _%L165563%_)))
                                (let ()
                                  (declare (not safe))
                                  (gxc#apply-operands
                                   _%self165211%_
                                   _%stx165212%_))))
                          _%$e165598%_)
                         (let ()
                           (declare (not safe))
                           (gxc#apply-operands
                            _%self165211%_
                            _%stx165212%_))))))
                (_%__kont168376168377%_
                 (lambda (_%L165439%_ _%L165440%_ _%L165441%_ _%L165442%_)
                   (gxc#apply-path-type-if%
                    _%self165211%_
                    (let ((__tmp170952
                           (cons (let ()
                                   (declare (not safe))
                                   (gx#datum->syntax__0 '#f '%#if))
                                 (cons _%L165441%_
                                       (cons _%L165439%_
                                             (cons _%L165440%_ '()))))))
                      (declare (not safe))
                      (gxc#xform-wrap-source __tmp170952 _%stx165212%_)))))
                (_%__kont168378168379%_
                 (lambda (_%L165342%_ _%L165343%_ _%L165344%_)
                   (let ()
                     (declare (not safe))
                     (gxc#apply-operands _%self165211%_ _%stx165212%_)))))
            (let ((_%__match168533168534%_
                   (lambda (_%e165259165367%_
                            _%hd165260165370%_
                            _%tl165261165372%_
                            _%e165262165375%_
                            _%hd165263165378%_
                            _%tl165264165380%_
                            _%e165265165383%_
                            _%hd165266165386%_
                            _%tl165267165388%_
                            _%e165268165391%_
                            _%hd165269165394%_
                            _%tl165270165396%_
                            _%e165271165399%_
                            _%hd165272165402%_
                            _%tl165273165404%_
                            _%e165274165407%_
                            _%hd165275165410%_
                            _%tl165276165412%_
                            _%e165277165415%_
                            _%hd165278165418%_
                            _%tl165279165420%_
                            _%e165280165423%_
                            _%hd165281165426%_
                            _%tl165282165428%_
                            _%e165283165431%_
                            _%hd165284165434%_
                            _%tl165285165436%_)
                     (let ((_%L165439%_ _%hd165284165434%_)
                           (_%L165440%_ _%hd165281165426%_)
                           (_%L165441%_ _%hd165278165418%_)
                           (_%L165442%_ _%hd165275165410%_))
                       (if (let ()
                             (declare (not safe))
                             (gxc#runtime-identifier=? _%L165442%_ 'not))
                           (_%__kont168376168377%_
                            _%L165439%_
                            _%L165440%_
                            _%L165441%_
                            _%L165442%_)
                           (_%__kont168378168379%_
                            _%hd165284165434%_
                            _%hd165281165426%_
                            _%hd165263165378%_))))))
              (if (let ()
                    (declare (not safe))
                    (gx#stx-pair? _%__stx168372168373%_))
                  (let ((_%e165222165475%_
                         (let ()
                           (declare (not safe))
                           (gx#stx-e _%__stx168372168373%_))))
                    (let ((_%tl165224165480%_
                           (let ()
                             (declare (not safe))
                             (##cdr _%e165222165475%_)))
                          (_%hd165223165478%_
                           (let ()
                             (declare (not safe))
                             (##car _%e165222165475%_))))
                      (if (let ()
                            (declare (not safe))
                            (gx#stx-pair? _%tl165224165480%_))
                          (let ((_%e165225165483%_
                                 (let ()
                                   (declare (not safe))
                                   (gx#stx-e _%tl165224165480%_))))
                            (let ((_%tl165227165488%_
                                   (let ()
                                     (declare (not safe))
                                     (##cdr _%e165225165483%_)))
                                  (_%hd165226165486%_
                                   (let ()
                                     (declare (not safe))
                                     (##car _%e165225165483%_))))
                              (if (let ()
                                    (declare (not safe))
                                    (gx#stx-pair? _%hd165226165486%_))
                                  (let ((_%e165228165491%_
                                         (let ()
                                           (declare (not safe))
                                           (gx#stx-e _%hd165226165486%_))))
                                    (let ((_%tl165230165496%_
                                           (let ()
                                             (declare (not safe))
                                             (##cdr _%e165228165491%_)))
                                          (_%hd165229165494%_
                                           (let ()
                                             (declare (not safe))
                                             (##car _%e165228165491%_))))
                                      (if (let ()
                                            (declare (not safe))
                                            (gx#identifier?
                                             _%hd165229165494%_))
                                          (if (let ()
                                                (declare (not safe))
                                                (gx#stx-eq?
                                                 '%#call
                                                 _%hd165229165494%_))
                                              (if (let ()
                                                    (declare (not safe))
                                                    (gx#stx-pair?
                                                     _%tl165230165496%_))
                                                  (let ((_%e165231165499%_
                                                         (let ()
                                                           (declare (not safe))
                                                           (gx#stx-e
                                                            _%tl165230165496%_))))
                                                    (let ((_%tl165233165504%_
                                                           (let ()
                                                             (declare
                                                               (not safe))
                                                             (##cdr _%e165231165499%_)))
                                                          (_%hd165232165502%_
                                                           (let ()
                                                             (declare
                                                               (not safe))
                                                             (##car _%e165231165499%_))))
                                                      (if (let ()
                                                            (declare
                                                              (not safe))
                                                            (gx#stx-pair?
                                                             _%hd165232165502%_))
                                                          (let ((_%e165234165507%_
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                         (let ()
                           (declare (not safe))
                           (gx#stx-e _%hd165232165502%_))))
                    (let ((_%tl165236165512%_
                           (let ()
                             (declare (not safe))
                             (##cdr _%e165234165507%_)))
                          (_%hd165235165510%_
                           (let ()
                             (declare (not safe))
                             (##car _%e165234165507%_))))
                      (if (let ()
                            (declare (not safe))
                            (gx#identifier? _%hd165235165510%_))
                          (if (let ()
                                (declare (not safe))
                                (gx#stx-eq? '%#ref _%hd165235165510%_))
                              (if (let ()
                                    (declare (not safe))
                                    (gx#stx-pair? _%tl165236165512%_))
                                  (let ((_%e165237165515%_
                                         (let ()
                                           (declare (not safe))
                                           (gx#stx-e _%tl165236165512%_))))
                                    (let ((_%tl165239165520%_
                                           (let ()
                                             (declare (not safe))
                                             (##cdr _%e165237165515%_)))
                                          (_%hd165238165518%_
                                           (let ()
                                             (declare (not safe))
                                             (##car _%e165237165515%_))))
                                      (if (let ()
                                            (declare (not safe))
                                            (gx#stx-null? _%tl165239165520%_))
                                          (if (let ()
                                                (declare (not safe))
                                                (gx#stx-pair?
                                                 _%tl165233165504%_))
                                              (let ((_%e165240165523%_
                                                     (let ()
                                                       (declare (not safe))
                                                       (gx#stx-e
                                                        _%tl165233165504%_))))
                                                (let ((_%tl165242165528%_
                                                       (let ()
                                                         (declare (not safe))
                                                         (##cdr _%e165240165523%_)))
                                                      (_%hd165241165526%_
                                                       (let ()
                                                         (declare (not safe))
                                                         (##car _%e165240165523%_))))
                                                  (if (let ()
                                                        (declare (not safe))
                                                        (gx#stx-pair?
                                                         _%hd165241165526%_))
                                                      (let ((_%e165243165531%_
                                                             (let ()
                                                               (declare
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                         (not safe))
                       (gx#stx-e _%hd165241165526%_))))
                (let ((_%tl165245165536%_
                       (let () (declare (not safe)) (##cdr _%e165243165531%_)))
                      (_%hd165244165534%_
                       (let ()
                         (declare (not safe))
                         (##car _%e165243165531%_))))
                  (if (let ()
                        (declare (not safe))
                        (gx#identifier? _%hd165244165534%_))
                      (if (let ()
                            (declare (not safe))
                            (gx#stx-eq? '%#ref _%hd165244165534%_))
                          (if (let ()
                                (declare (not safe))
                                (gx#stx-pair? _%tl165245165536%_))
                              (let ((_%e165246165539%_
                                     (let ()
                                       (declare (not safe))
                                       (gx#stx-e _%tl165245165536%_))))
                                (let ((_%tl165248165544%_
                                       (let ()
                                         (declare (not safe))
                                         (##cdr _%e165246165539%_)))
                                      (_%hd165247165542%_
                                       (let ()
                                         (declare (not safe))
                                         (##car _%e165246165539%_))))
                                  (if (let ()
                                        (declare (not safe))
                                        (gx#stx-null? _%tl165248165544%_))
                                      (if (let ()
                                            (declare (not safe))
                                            (gx#stx-null? _%tl165242165528%_))
                                          (if (let ()
                                                (declare (not safe))
                                                (gx#stx-pair?
                                                 _%tl165227165488%_))
                                              (let ((_%e165249165547%_
                                                     (let ()
                                                       (declare (not safe))
                                                       (gx#stx-e
                                                        _%tl165227165488%_))))
                                                (let ((_%tl165251165552%_
                                                       (let ()
                                                         (declare (not safe))
                                                         (##cdr _%e165249165547%_)))
                                                      (_%hd165250165550%_
                                                       (let ()
                                                         (declare (not safe))
                                                         (##car _%e165249165547%_))))
                                                  (if (let ()
                                                        (declare (not safe))
                                                        (gx#stx-pair?
                                                         _%tl165251165552%_))
                                                      (let ((_%e165252165555%_
                                                             (let ()
                                                               (declare
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                         (not safe))
                       (gx#stx-e _%tl165251165552%_))))
                (let ((_%tl165254165560%_
                       (let () (declare (not safe)) (##cdr _%e165252165555%_)))
                      (_%hd165253165558%_
                       (let ()
                         (declare (not safe))
                         (##car _%e165252165555%_))))
                  (if (let ()
                        (declare (not safe))
                        (gx#stx-null? _%tl165254165560%_))
                      (_%__kont168374168375%_
                       _%hd165253165558%_
                       _%hd165250165550%_
                       _%hd165247165542%_
                       _%hd165238165518%_)
                      (let () (declare (not safe)) (_%g165216165305%_)))))
              (let () (declare (not safe)) (_%g165216165305%_)))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                              (let ()
                                                (declare (not safe))
                                                (_%g165216165305%_)))
                                          (if (let ()
                                                (declare (not safe))
                                                (gx#stx-pair?
                                                 _%tl165227165488%_))
                                              (let ((_%e165295165326%_
                                                     (let ()
                                                       (declare (not safe))
                                                       (gx#stx-e
                                                        _%tl165227165488%_))))
                                                (let ((_%tl165297165331%_
                                                       (let ()
                                                         (declare (not safe))
                                                         (##cdr _%e165295165326%_)))
                                                      (_%hd165296165329%_
                                                       (let ()
                                                         (declare (not safe))
                                                         (##car _%e165295165326%_))))
                                                  (if (let ()
                                                        (declare (not safe))
                                                        (gx#stx-pair?
                                                         _%tl165297165331%_))
                                                      (let ((_%e165298165334%_
                                                             (let ()
                                                               (declare
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                         (not safe))
                       (gx#stx-e _%tl165297165331%_))))
                (let ((_%tl165300165339%_
                       (let () (declare (not safe)) (##cdr _%e165298165334%_)))
                      (_%hd165299165337%_
                       (let ()
                         (declare (not safe))
                         (##car _%e165298165334%_))))
                  (if (let ()
                        (declare (not safe))
                        (gx#stx-null? _%tl165300165339%_))
                      (_%__kont168378168379%_
                       _%hd165299165337%_
                       _%hd165296165329%_
                       _%hd165226165486%_)
                      (let () (declare (not safe)) (_%g165216165305%_)))))
              (let () (declare (not safe)) (_%g165216165305%_)))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                              (let ()
                                                (declare (not safe))
                                                (_%g165216165305%_))))
                                      (if (let ()
                                            (declare (not safe))
                                            (gx#stx-null? _%tl165242165528%_))
                                          (if (let ()
                                                (declare (not safe))
                                                (gx#stx-pair?
                                                 _%tl165227165488%_))
                                              (let ((_%e165280165423%_
                                                     (let ()
                                                       (declare (not safe))
                                                       (gx#stx-e
                                                        _%tl165227165488%_))))
                                                (let ((_%tl165282165428%_
                                                       (let ()
                                                         (declare (not safe))
                                                         (##cdr _%e165280165423%_)))
                                                      (_%hd165281165426%_
                                                       (let ()
                                                         (declare (not safe))
                                                         (##car _%e165280165423%_))))
                                                  (if (let ()
                                                        (declare (not safe))
                                                        (gx#stx-pair?
                                                         _%tl165282165428%_))
                                                      (let ((_%e165283165431%_
                                                             (let ()
                                                               (declare
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                         (not safe))
                       (gx#stx-e _%tl165282165428%_))))
                (let ((_%tl165285165436%_
                       (let () (declare (not safe)) (##cdr _%e165283165431%_)))
                      (_%hd165284165434%_
                       (let ()
                         (declare (not safe))
                         (##car _%e165283165431%_))))
                  (if (let ()
                        (declare (not safe))
                        (gx#stx-null? _%tl165285165436%_))
                      (_%__match168533168534%_
                       _%e165222165475%_
                       _%hd165223165478%_
                       _%tl165224165480%_
                       _%e165225165483%_
                       _%hd165226165486%_
                       _%tl165227165488%_
                       _%e165228165491%_
                       _%hd165229165494%_
                       _%tl165230165496%_
                       _%e165231165499%_
                       _%hd165232165502%_
                       _%tl165233165504%_
                       _%e165234165507%_
                       _%hd165235165510%_
                       _%tl165236165512%_
                       _%e165237165515%_
                       _%hd165238165518%_
                       _%tl165239165520%_
                       _%e165240165523%_
                       _%hd165241165526%_
                       _%tl165242165528%_
                       _%e165280165423%_
                       _%hd165281165426%_
                       _%tl165282165428%_
                       _%e165283165431%_
                       _%hd165284165434%_
                       _%tl165285165436%_)
                      (let () (declare (not safe)) (_%g165216165305%_)))))
              (let () (declare (not safe)) (_%g165216165305%_)))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                              (let ()
                                                (declare (not safe))
                                                (_%g165216165305%_)))
                                          (if (let ()
                                                (declare (not safe))
                                                (gx#stx-pair?
                                                 _%tl165227165488%_))
                                              (let ((_%e165295165326%_
                                                     (let ()
                                                       (declare (not safe))
                                                       (gx#stx-e
                                                        _%tl165227165488%_))))
                                                (let ((_%tl165297165331%_
                                                       (let ()
                                                         (declare (not safe))
                                                         (##cdr _%e165295165326%_)))
                                                      (_%hd165296165329%_
                                                       (let ()
                                                         (declare (not safe))
                                                         (##car _%e165295165326%_))))
                                                  (if (let ()
                                                        (declare (not safe))
                                                        (gx#stx-pair?
                                                         _%tl165297165331%_))
                                                      (let ((_%e165298165334%_
                                                             (let ()
                                                               (declare
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                         (not safe))
                       (gx#stx-e _%tl165297165331%_))))
                (let ((_%tl165300165339%_
                       (let () (declare (not safe)) (##cdr _%e165298165334%_)))
                      (_%hd165299165337%_
                       (let ()
                         (declare (not safe))
                         (##car _%e165298165334%_))))
                  (if (let ()
                        (declare (not safe))
                        (gx#stx-null? _%tl165300165339%_))
                      (_%__kont168378168379%_
                       _%hd165299165337%_
                       _%hd165296165329%_
                       _%hd165226165486%_)
                      (let () (declare (not safe)) (_%g165216165305%_)))))
              (let () (declare (not safe)) (_%g165216165305%_)))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                              (let ()
                                                (declare (not safe))
                                                (_%g165216165305%_)))))))
                              (if (let ()
                                    (declare (not safe))
                                    (gx#stx-null? _%tl165242165528%_))
                                  (if (let ()
                                        (declare (not safe))
                                        (gx#stx-pair? _%tl165227165488%_))
                                      (let ((_%e165280165423%_
                                             (let ()
                                               (declare (not safe))
                                               (gx#stx-e _%tl165227165488%_))))
                                        (let ((_%tl165282165428%_
                                               (let ()
                                                 (declare (not safe))
                                                 (##cdr _%e165280165423%_)))
                                              (_%hd165281165426%_
                                               (let ()
                                                 (declare (not safe))
                                                 (##car _%e165280165423%_))))
                                          (if (let ()
                                                (declare (not safe))
                                                (gx#stx-pair?
                                                 _%tl165282165428%_))
                                              (let ((_%e165283165431%_
                                                     (let ()
                                                       (declare (not safe))
                                                       (gx#stx-e
                                                        _%tl165282165428%_))))
                                                (let ((_%tl165285165436%_
                                                       (let ()
                                                         (declare (not safe))
                                                         (##cdr _%e165283165431%_)))
                                                      (_%hd165284165434%_
                                                       (let ()
                                                         (declare (not safe))
                                                         (##car _%e165283165431%_))))
                                                  (if (let ()
                                                        (declare (not safe))
                                                        (gx#stx-null?
                                                         _%tl165285165436%_))
                                                      (_%__match168533168534%_
                                                       _%e165222165475%_
                                                       _%hd165223165478%_
                                                       _%tl165224165480%_
                                                       _%e165225165483%_
                                                       _%hd165226165486%_
                                                       _%tl165227165488%_
                                                       _%e165228165491%_
                                                       _%hd165229165494%_
                                                       _%tl165230165496%_
                                                       _%e165231165499%_
                                                       _%hd165232165502%_
                                                       _%tl165233165504%_
                                                       _%e165234165507%_
                                                       _%hd165235165510%_
                                                       _%tl165236165512%_
                                                       _%e165237165515%_
                                                       _%hd165238165518%_
                                                       _%tl165239165520%_
                                                       _%e165240165523%_
                                                       _%hd165241165526%_
                                                       _%tl165242165528%_
                                                       _%e165280165423%_
                                                       _%hd165281165426%_
                                                       _%tl165282165428%_
                                                       _%e165283165431%_
                                                       _%hd165284165434%_
                                                       _%tl165285165436%_)
                                                      (let ()
                                                        (declare (not safe))
                                                        (_%g165216165305%_)))))
                                              (let ()
                                                (declare (not safe))
                                                (_%g165216165305%_)))))
                                      (let ()
                                        (declare (not safe))
                                        (_%g165216165305%_)))
                                  (if (let ()
                                        (declare (not safe))
                                        (gx#stx-pair? _%tl165227165488%_))
                                      (let ((_%e165295165326%_
                                             (let ()
                                               (declare (not safe))
                                               (gx#stx-e _%tl165227165488%_))))
                                        (let ((_%tl165297165331%_
                                               (let ()
                                                 (declare (not safe))
                                                 (##cdr _%e165295165326%_)))
                                              (_%hd165296165329%_
                                               (let ()
                                                 (declare (not safe))
                                                 (##car _%e165295165326%_))))
                                          (if (let ()
                                                (declare (not safe))
                                                (gx#stx-pair?
                                                 _%tl165297165331%_))
                                              (let ((_%e165298165334%_
                                                     (let ()
                                                       (declare (not safe))
                                                       (gx#stx-e
                                                        _%tl165297165331%_))))
                                                (let ((_%tl165300165339%_
                                                       (let ()
                                                         (declare (not safe))
                                                         (##cdr _%e165298165334%_)))
                                                      (_%hd165299165337%_
                                                       (let ()
                                                         (declare (not safe))
                                                         (##car _%e165298165334%_))))
                                                  (if (let ()
                                                        (declare (not safe))
                                                        (gx#stx-null?
                                                         _%tl165300165339%_))
                                                      (_%__kont168378168379%_
                                                       _%hd165299165337%_
                                                       _%hd165296165329%_
                                                       _%hd165226165486%_)
                                                      (let ()
                                                        (declare (not safe))
                                                        (_%g165216165305%_)))))
                                              (let ()
                                                (declare (not safe))
                                                (_%g165216165305%_)))))
                                      (let ()
                                        (declare (not safe))
                                        (_%g165216165305%_)))))
                          (if (let ()
                                (declare (not safe))
                                (gx#stx-null? _%tl165242165528%_))
                              (if (let ()
                                    (declare (not safe))
                                    (gx#stx-pair? _%tl165227165488%_))
                                  (let ((_%e165280165423%_
                                         (let ()
                                           (declare (not safe))
                                           (gx#stx-e _%tl165227165488%_))))
                                    (let ((_%tl165282165428%_
                                           (let ()
                                             (declare (not safe))
                                             (##cdr _%e165280165423%_)))
                                          (_%hd165281165426%_
                                           (let ()
                                             (declare (not safe))
                                             (##car _%e165280165423%_))))
                                      (if (let ()
                                            (declare (not safe))
                                            (gx#stx-pair? _%tl165282165428%_))
                                          (let ((_%e165283165431%_
                                                 (let ()
                                                   (declare (not safe))
                                                   (gx#stx-e
                                                    _%tl165282165428%_))))
                                            (let ((_%tl165285165436%_
                                                   (let ()
                                                     (declare (not safe))
                                                     (##cdr _%e165283165431%_)))
                                                  (_%hd165284165434%_
                                                   (let ()
                                                     (declare (not safe))
                                                     (##car _%e165283165431%_))))
                                              (if (let ()
                                                    (declare (not safe))
                                                    (gx#stx-null?
                                                     _%tl165285165436%_))
                                                  (_%__match168533168534%_
                                                   _%e165222165475%_
                                                   _%hd165223165478%_
                                                   _%tl165224165480%_
                                                   _%e165225165483%_
                                                   _%hd165226165486%_
                                                   _%tl165227165488%_
                                                   _%e165228165491%_
                                                   _%hd165229165494%_
                                                   _%tl165230165496%_
                                                   _%e165231165499%_
                                                   _%hd165232165502%_
                                                   _%tl165233165504%_
                                                   _%e165234165507%_
                                                   _%hd165235165510%_
                                                   _%tl165236165512%_
                                                   _%e165237165515%_
                                                   _%hd165238165518%_
                                                   _%tl165239165520%_
                                                   _%e165240165523%_
                                                   _%hd165241165526%_
                                                   _%tl165242165528%_
                                                   _%e165280165423%_
                                                   _%hd165281165426%_
                                                   _%tl165282165428%_
                                                   _%e165283165431%_
                                                   _%hd165284165434%_
                                                   _%tl165285165436%_)
                                                  (let ()
                                                    (declare (not safe))
                                                    (_%g165216165305%_)))))
                                          (let ()
                                            (declare (not safe))
                                            (_%g165216165305%_)))))
                                  (let ()
                                    (declare (not safe))
                                    (_%g165216165305%_)))
                              (if (let ()
                                    (declare (not safe))
                                    (gx#stx-pair? _%tl165227165488%_))
                                  (let ((_%e165295165326%_
                                         (let ()
                                           (declare (not safe))
                                           (gx#stx-e _%tl165227165488%_))))
                                    (let ((_%tl165297165331%_
                                           (let ()
                                             (declare (not safe))
                                             (##cdr _%e165295165326%_)))
                                          (_%hd165296165329%_
                                           (let ()
                                             (declare (not safe))
                                             (##car _%e165295165326%_))))
                                      (if (let ()
                                            (declare (not safe))
                                            (gx#stx-pair? _%tl165297165331%_))
                                          (let ((_%e165298165334%_
                                                 (let ()
                                                   (declare (not safe))
                                                   (gx#stx-e
                                                    _%tl165297165331%_))))
                                            (let ((_%tl165300165339%_
                                                   (let ()
                                                     (declare (not safe))
                                                     (##cdr _%e165298165334%_)))
                                                  (_%hd165299165337%_
                                                   (let ()
                                                     (declare (not safe))
                                                     (##car _%e165298165334%_))))
                                              (if (let ()
                                                    (declare (not safe))
                                                    (gx#stx-null?
                                                     _%tl165300165339%_))
                                                  (_%__kont168378168379%_
                                                   _%hd165299165337%_
                                                   _%hd165296165329%_
                                                   _%hd165226165486%_)
                                                  (let ()
                                                    (declare (not safe))
                                                    (_%g165216165305%_)))))
                                          (let ()
                                            (declare (not safe))
                                            (_%g165216165305%_)))))
                                  (let ()
                                    (declare (not safe))
                                    (_%g165216165305%_)))))
                      (if (let ()
                            (declare (not safe))
                            (gx#stx-null? _%tl165242165528%_))
                          (if (let ()
                                (declare (not safe))
                                (gx#stx-pair? _%tl165227165488%_))
                              (let ((_%e165280165423%_
                                     (let ()
                                       (declare (not safe))
                                       (gx#stx-e _%tl165227165488%_))))
                                (let ((_%tl165282165428%_
                                       (let ()
                                         (declare (not safe))
                                         (##cdr _%e165280165423%_)))
                                      (_%hd165281165426%_
                                       (let ()
                                         (declare (not safe))
                                         (##car _%e165280165423%_))))
                                  (if (let ()
                                        (declare (not safe))
                                        (gx#stx-pair? _%tl165282165428%_))
                                      (let ((_%e165283165431%_
                                             (let ()
                                               (declare (not safe))
                                               (gx#stx-e _%tl165282165428%_))))
                                        (let ((_%tl165285165436%_
                                               (let ()
                                                 (declare (not safe))
                                                 (##cdr _%e165283165431%_)))
                                              (_%hd165284165434%_
                                               (let ()
                                                 (declare (not safe))
                                                 (##car _%e165283165431%_))))
                                          (if (let ()
                                                (declare (not safe))
                                                (gx#stx-null?
                                                 _%tl165285165436%_))
                                              (_%__match168533168534%_
                                               _%e165222165475%_
                                               _%hd165223165478%_
                                               _%tl165224165480%_
                                               _%e165225165483%_
                                               _%hd165226165486%_
                                               _%tl165227165488%_
                                               _%e165228165491%_
                                               _%hd165229165494%_
                                               _%tl165230165496%_
                                               _%e165231165499%_
                                               _%hd165232165502%_
                                               _%tl165233165504%_
                                               _%e165234165507%_
                                               _%hd165235165510%_
                                               _%tl165236165512%_
                                               _%e165237165515%_
                                               _%hd165238165518%_
                                               _%tl165239165520%_
                                               _%e165240165523%_
                                               _%hd165241165526%_
                                               _%tl165242165528%_
                                               _%e165280165423%_
                                               _%hd165281165426%_
                                               _%tl165282165428%_
                                               _%e165283165431%_
                                               _%hd165284165434%_
                                               _%tl165285165436%_)
                                              (let ()
                                                (declare (not safe))
                                                (_%g165216165305%_)))))
                                      (let ()
                                        (declare (not safe))
                                        (_%g165216165305%_)))))
                              (let ()
                                (declare (not safe))
                                (_%g165216165305%_)))
                          (if (let ()
                                (declare (not safe))
                                (gx#stx-pair? _%tl165227165488%_))
                              (let ((_%e165295165326%_
                                     (let ()
                                       (declare (not safe))
                                       (gx#stx-e _%tl165227165488%_))))
                                (let ((_%tl165297165331%_
                                       (let ()
                                         (declare (not safe))
                                         (##cdr _%e165295165326%_)))
                                      (_%hd165296165329%_
                                       (let ()
                                         (declare (not safe))
                                         (##car _%e165295165326%_))))
                                  (if (let ()
                                        (declare (not safe))
                                        (gx#stx-pair? _%tl165297165331%_))
                                      (let ((_%e165298165334%_
                                             (let ()
                                               (declare (not safe))
                                               (gx#stx-e _%tl165297165331%_))))
                                        (let ((_%tl165300165339%_
                                               (let ()
                                                 (declare (not safe))
                                                 (##cdr _%e165298165334%_)))
                                              (_%hd165299165337%_
                                               (let ()
                                                 (declare (not safe))
                                                 (##car _%e165298165334%_))))
                                          (if (let ()
                                                (declare (not safe))
                                                (gx#stx-null?
                                                 _%tl165300165339%_))
                                              (_%__kont168378168379%_
                                               _%hd165299165337%_
                                               _%hd165296165329%_
                                               _%hd165226165486%_)
                                              (let ()
                                                (declare (not safe))
                                                (_%g165216165305%_)))))
                                      (let ()
                                        (declare (not safe))
                                        (_%g165216165305%_)))))
                              (let ()
                                (declare (not safe))
                                (_%g165216165305%_)))))))
              (if (let ()
                    (declare (not safe))
                    (gx#stx-null? _%tl165242165528%_))
                  (if (let ()
                        (declare (not safe))
                        (gx#stx-pair? _%tl165227165488%_))
                      (let ((_%e165280165423%_
                             (let ()
                               (declare (not safe))
                               (gx#stx-e _%tl165227165488%_))))
                        (let ((_%tl165282165428%_
                               (let ()
                                 (declare (not safe))
                                 (##cdr _%e165280165423%_)))
                              (_%hd165281165426%_
                               (let ()
                                 (declare (not safe))
                                 (##car _%e165280165423%_))))
                          (if (let ()
                                (declare (not safe))
                                (gx#stx-pair? _%tl165282165428%_))
                              (let ((_%e165283165431%_
                                     (let ()
                                       (declare (not safe))
                                       (gx#stx-e _%tl165282165428%_))))
                                (let ((_%tl165285165436%_
                                       (let ()
                                         (declare (not safe))
                                         (##cdr _%e165283165431%_)))
                                      (_%hd165284165434%_
                                       (let ()
                                         (declare (not safe))
                                         (##car _%e165283165431%_))))
                                  (if (let ()
                                        (declare (not safe))
                                        (gx#stx-null? _%tl165285165436%_))
                                      (_%__match168533168534%_
                                       _%e165222165475%_
                                       _%hd165223165478%_
                                       _%tl165224165480%_
                                       _%e165225165483%_
                                       _%hd165226165486%_
                                       _%tl165227165488%_
                                       _%e165228165491%_
                                       _%hd165229165494%_
                                       _%tl165230165496%_
                                       _%e165231165499%_
                                       _%hd165232165502%_
                                       _%tl165233165504%_
                                       _%e165234165507%_
                                       _%hd165235165510%_
                                       _%tl165236165512%_
                                       _%e165237165515%_
                                       _%hd165238165518%_
                                       _%tl165239165520%_
                                       _%e165240165523%_
                                       _%hd165241165526%_
                                       _%tl165242165528%_
                                       _%e165280165423%_
                                       _%hd165281165426%_
                                       _%tl165282165428%_
                                       _%e165283165431%_
                                       _%hd165284165434%_
                                       _%tl165285165436%_)
                                      (let ()
                                        (declare (not safe))
                                        (_%g165216165305%_)))))
                              (let ()
                                (declare (not safe))
                                (_%g165216165305%_)))))
                      (let () (declare (not safe)) (_%g165216165305%_)))
                  (if (let ()
                        (declare (not safe))
                        (gx#stx-pair? _%tl165227165488%_))
                      (let ((_%e165295165326%_
                             (let ()
                               (declare (not safe))
                               (gx#stx-e _%tl165227165488%_))))
                        (let ((_%tl165297165331%_
                               (let ()
                                 (declare (not safe))
                                 (##cdr _%e165295165326%_)))
                              (_%hd165296165329%_
                               (let ()
                                 (declare (not safe))
                                 (##car _%e165295165326%_))))
                          (if (let ()
                                (declare (not safe))
                                (gx#stx-pair? _%tl165297165331%_))
                              (let ((_%e165298165334%_
                                     (let ()
                                       (declare (not safe))
                                       (gx#stx-e _%tl165297165331%_))))
                                (let ((_%tl165300165339%_
                                       (let ()
                                         (declare (not safe))
                                         (##cdr _%e165298165334%_)))
                                      (_%hd165299165337%_
                                       (let ()
                                         (declare (not safe))
                                         (##car _%e165298165334%_))))
                                  (if (let ()
                                        (declare (not safe))
                                        (gx#stx-null? _%tl165300165339%_))
                                      (_%__kont168378168379%_
                                       _%hd165299165337%_
                                       _%hd165296165329%_
                                       _%hd165226165486%_)
                                      (let ()
                                        (declare (not safe))
                                        (_%g165216165305%_)))))
                              (let ()
                                (declare (not safe))
                                (_%g165216165305%_)))))
                      (let () (declare (not safe)) (_%g165216165305%_)))))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                              (if (let ()
                                                    (declare (not safe))
                                                    (gx#stx-pair?
                                                     _%tl165227165488%_))
                                                  (let ((_%e165295165326%_
                                                         (let ()
                                                           (declare (not safe))
                                                           (gx#stx-e
                                                            _%tl165227165488%_))))
                                                    (let ((_%tl165297165331%_
                                                           (let ()
                                                             (declare
                                                               (not safe))
                                                             (##cdr _%e165295165326%_)))
                                                          (_%hd165296165329%_
                                                           (let ()
                                                             (declare
                                                               (not safe))
                                                             (##car _%e165295165326%_))))
                                                      (if (let ()
                                                            (declare
                                                              (not safe))
                                                            (gx#stx-pair?
                                                             _%tl165297165331%_))
                                                          (let ((_%e165298165334%_
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                         (let ()
                           (declare (not safe))
                           (gx#stx-e _%tl165297165331%_))))
                    (let ((_%tl165300165339%_
                           (let ()
                             (declare (not safe))
                             (##cdr _%e165298165334%_)))
                          (_%hd165299165337%_
                           (let ()
                             (declare (not safe))
                             (##car _%e165298165334%_))))
                      (if (let ()
                            (declare (not safe))
                            (gx#stx-null? _%tl165300165339%_))
                          (_%__kont168378168379%_
                           _%hd165299165337%_
                           _%hd165296165329%_
                           _%hd165226165486%_)
                          (let () (declare (not safe)) (_%g165216165305%_)))))
                  (let () (declare (not safe)) (_%g165216165305%_)))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                                  (let ()
                                                    (declare (not safe))
                                                    (_%g165216165305%_))))
                                          (if (let ()
                                                (declare (not safe))
                                                (gx#stx-pair?
                                                 _%tl165227165488%_))
                                              (let ((_%e165295165326%_
                                                     (let ()
                                                       (declare (not safe))
                                                       (gx#stx-e
                                                        _%tl165227165488%_))))
                                                (let ((_%tl165297165331%_
                                                       (let ()
                                                         (declare (not safe))
                                                         (##cdr _%e165295165326%_)))
                                                      (_%hd165296165329%_
                                                       (let ()
                                                         (declare (not safe))
                                                         (##car _%e165295165326%_))))
                                                  (if (let ()
                                                        (declare (not safe))
                                                        (gx#stx-pair?
                                                         _%tl165297165331%_))
                                                      (let ((_%e165298165334%_
                                                             (let ()
                                                               (declare
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                         (not safe))
                       (gx#stx-e _%tl165297165331%_))))
                (let ((_%tl165300165339%_
                       (let () (declare (not safe)) (##cdr _%e165298165334%_)))
                      (_%hd165299165337%_
                       (let ()
                         (declare (not safe))
                         (##car _%e165298165334%_))))
                  (if (let ()
                        (declare (not safe))
                        (gx#stx-null? _%tl165300165339%_))
                      (_%__kont168378168379%_
                       _%hd165299165337%_
                       _%hd165296165329%_
                       _%hd165226165486%_)
                      (let () (declare (not safe)) (_%g165216165305%_)))))
              (let () (declare (not safe)) (_%g165216165305%_)))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                              (let ()
                                                (declare (not safe))
                                                (_%g165216165305%_))))))
                                  (if (let ()
                                        (declare (not safe))
                                        (gx#stx-pair? _%tl165227165488%_))
                                      (let ((_%e165295165326%_
                                             (let ()
                                               (declare (not safe))
                                               (gx#stx-e _%tl165227165488%_))))
                                        (let ((_%tl165297165331%_
                                               (let ()
                                                 (declare (not safe))
                                                 (##cdr _%e165295165326%_)))
                                              (_%hd165296165329%_
                                               (let ()
                                                 (declare (not safe))
                                                 (##car _%e165295165326%_))))
                                          (if (let ()
                                                (declare (not safe))
                                                (gx#stx-pair?
                                                 _%tl165297165331%_))
                                              (let ((_%e165298165334%_
                                                     (let ()
                                                       (declare (not safe))
                                                       (gx#stx-e
                                                        _%tl165297165331%_))))
                                                (let ((_%tl165300165339%_
                                                       (let ()
                                                         (declare (not safe))
                                                         (##cdr _%e165298165334%_)))
                                                      (_%hd165299165337%_
                                                       (let ()
                                                         (declare (not safe))
                                                         (##car _%e165298165334%_))))
                                                  (if (let ()
                                                        (declare (not safe))
                                                        (gx#stx-null?
                                                         _%tl165300165339%_))
                                                      (_%__kont168378168379%_
                                                       _%hd165299165337%_
                                                       _%hd165296165329%_
                                                       _%hd165226165486%_)
                                                      (let ()
                                                        (declare (not safe))
                                                        (_%g165216165305%_)))))
                                              (let ()
                                                (declare (not safe))
                                                (_%g165216165305%_)))))
                                      (let ()
                                        (declare (not safe))
                                        (_%g165216165305%_))))
                              (if (let ()
                                    (declare (not safe))
                                    (gx#stx-pair? _%tl165227165488%_))
                                  (let ((_%e165295165326%_
                                         (let ()
                                           (declare (not safe))
                                           (gx#stx-e _%tl165227165488%_))))
                                    (let ((_%tl165297165331%_
                                           (let ()
                                             (declare (not safe))
                                             (##cdr _%e165295165326%_)))
                                          (_%hd165296165329%_
                                           (let ()
                                             (declare (not safe))
                                             (##car _%e165295165326%_))))
                                      (if (let ()
                                            (declare (not safe))
                                            (gx#stx-pair? _%tl165297165331%_))
                                          (let ((_%e165298165334%_
                                                 (let ()
                                                   (declare (not safe))
                                                   (gx#stx-e
                                                    _%tl165297165331%_))))
                                            (let ((_%tl165300165339%_
                                                   (let ()
                                                     (declare (not safe))
                                                     (##cdr _%e165298165334%_)))
                                                  (_%hd165299165337%_
                                                   (let ()
                                                     (declare (not safe))
                                                     (##car _%e165298165334%_))))
                                              (if (let ()
                                                    (declare (not safe))
                                                    (gx#stx-null?
                                                     _%tl165300165339%_))
                                                  (_%__kont168378168379%_
                                                   _%hd165299165337%_
                                                   _%hd165296165329%_
                                                   _%hd165226165486%_)
                                                  (let ()
                                                    (declare (not safe))
                                                    (_%g165216165305%_)))))
                                          (let ()
                                            (declare (not safe))
                                            (_%g165216165305%_)))))
                                  (let ()
                                    (declare (not safe))
                                    (_%g165216165305%_))))
                          (if (let ()
                                (declare (not safe))
                                (gx#stx-pair? _%tl165227165488%_))
                              (let ((_%e165295165326%_
                                     (let ()
                                       (declare (not safe))
                                       (gx#stx-e _%tl165227165488%_))))
                                (let ((_%tl165297165331%_
                                       (let ()
                                         (declare (not safe))
                                         (##cdr _%e165295165326%_)))
                                      (_%hd165296165329%_
                                       (let ()
                                         (declare (not safe))
                                         (##car _%e165295165326%_))))
                                  (if (let ()
                                        (declare (not safe))
                                        (gx#stx-pair? _%tl165297165331%_))
                                      (let ((_%e165298165334%_
                                             (let ()
                                               (declare (not safe))
                                               (gx#stx-e _%tl165297165331%_))))
                                        (let ((_%tl165300165339%_
                                               (let ()
                                                 (declare (not safe))
                                                 (##cdr _%e165298165334%_)))
                                              (_%hd165299165337%_
                                               (let ()
                                                 (declare (not safe))
                                                 (##car _%e165298165334%_))))
                                          (if (let ()
                                                (declare (not safe))
                                                (gx#stx-null?
                                                 _%tl165300165339%_))
                                              (_%__kont168378168379%_
                                               _%hd165299165337%_
                                               _%hd165296165329%_
                                               _%hd165226165486%_)
                                              (let ()
                                                (declare (not safe))
                                                (_%g165216165305%_)))))
                                      (let ()
                                        (declare (not safe))
                                        (_%g165216165305%_)))))
                              (let ()
                                (declare (not safe))
                                (_%g165216165305%_))))))
                  (if (let ()
                        (declare (not safe))
                        (gx#stx-pair? _%tl165227165488%_))
                      (let ((_%e165295165326%_
                             (let ()
                               (declare (not safe))
                               (gx#stx-e _%tl165227165488%_))))
                        (let ((_%tl165297165331%_
                               (let ()
                                 (declare (not safe))
                                 (##cdr _%e165295165326%_)))
                              (_%hd165296165329%_
                               (let ()
                                 (declare (not safe))
                                 (##car _%e165295165326%_))))
                          (if (let ()
                                (declare (not safe))
                                (gx#stx-pair? _%tl165297165331%_))
                              (let ((_%e165298165334%_
                                     (let ()
                                       (declare (not safe))
                                       (gx#stx-e _%tl165297165331%_))))
                                (let ((_%tl165300165339%_
                                       (let ()
                                         (declare (not safe))
                                         (##cdr _%e165298165334%_)))
                                      (_%hd165299165337%_
                                       (let ()
                                         (declare (not safe))
                                         (##car _%e165298165334%_))))
                                  (if (let ()
                                        (declare (not safe))
                                        (gx#stx-null? _%tl165300165339%_))
                                      (_%__kont168378168379%_
                                       _%hd165299165337%_
                                       _%hd165296165329%_
                                       _%hd165226165486%_)
                                      (let ()
                                        (declare (not safe))
                                        (_%g165216165305%_)))))
                              (let ()
                                (declare (not safe))
                                (_%g165216165305%_)))))
                      (let () (declare (not safe)) (_%g165216165305%_))))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                                  (if (let ()
                                                        (declare (not safe))
                                                        (gx#stx-pair?
                                                         _%tl165227165488%_))
                                                      (let ((_%e165295165326%_
                                                             (let ()
                                                               (declare
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                         (not safe))
                       (gx#stx-e _%tl165227165488%_))))
                (let ((_%tl165297165331%_
                       (let () (declare (not safe)) (##cdr _%e165295165326%_)))
                      (_%hd165296165329%_
                       (let ()
                         (declare (not safe))
                         (##car _%e165295165326%_))))
                  (if (let ()
                        (declare (not safe))
                        (gx#stx-pair? _%tl165297165331%_))
                      (let ((_%e165298165334%_
                             (let ()
                               (declare (not safe))
                               (gx#stx-e _%tl165297165331%_))))
                        (let ((_%tl165300165339%_
                               (let ()
                                 (declare (not safe))
                                 (##cdr _%e165298165334%_)))
                              (_%hd165299165337%_
                               (let ()
                                 (declare (not safe))
                                 (##car _%e165298165334%_))))
                          (if (let ()
                                (declare (not safe))
                                (gx#stx-null? _%tl165300165339%_))
                              (_%__kont168378168379%_
                               _%hd165299165337%_
                               _%hd165296165329%_
                               _%hd165226165486%_)
                              (let ()
                                (declare (not safe))
                                (_%g165216165305%_)))))
                      (let () (declare (not safe)) (_%g165216165305%_)))))
              (let () (declare (not safe)) (_%g165216165305%_))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                              (if (let ()
                                                    (declare (not safe))
                                                    (gx#stx-pair?
                                                     _%tl165227165488%_))
                                                  (let ((_%e165295165326%_
                                                         (let ()
                                                           (declare (not safe))
                                                           (gx#stx-e
                                                            _%tl165227165488%_))))
                                                    (let ((_%tl165297165331%_
                                                           (let ()
                                                             (declare
                                                               (not safe))
                                                             (##cdr _%e165295165326%_)))
                                                          (_%hd165296165329%_
                                                           (let ()
                                                             (declare
                                                               (not safe))
                                                             (##car _%e165295165326%_))))
                                                      (if (let ()
                                                            (declare
                                                              (not safe))
                                                            (gx#stx-pair?
                                                             _%tl165297165331%_))
                                                          (let ((_%e165298165334%_
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                         (let ()
                           (declare (not safe))
                           (gx#stx-e _%tl165297165331%_))))
                    (let ((_%tl165300165339%_
                           (let ()
                             (declare (not safe))
                             (##cdr _%e165298165334%_)))
                          (_%hd165299165337%_
                           (let ()
                             (declare (not safe))
                             (##car _%e165298165334%_))))
                      (if (let ()
                            (declare (not safe))
                            (gx#stx-null? _%tl165300165339%_))
                          (_%__kont168378168379%_
                           _%hd165299165337%_
                           _%hd165296165329%_
                           _%hd165226165486%_)
                          (let () (declare (not safe)) (_%g165216165305%_)))))
                  (let () (declare (not safe)) (_%g165216165305%_)))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                                  (let ()
                                                    (declare (not safe))
                                                    (_%g165216165305%_))))
                                          (if (let ()
                                                (declare (not safe))
                                                (gx#stx-pair?
                                                 _%tl165227165488%_))
                                              (let ((_%e165295165326%_
                                                     (let ()
                                                       (declare (not safe))
                                                       (gx#stx-e
                                                        _%tl165227165488%_))))
                                                (let ((_%tl165297165331%_
                                                       (let ()
                                                         (declare (not safe))
                                                         (##cdr _%e165295165326%_)))
                                                      (_%hd165296165329%_
                                                       (let ()
                                                         (declare (not safe))
                                                         (##car _%e165295165326%_))))
                                                  (if (let ()
                                                        (declare (not safe))
                                                        (gx#stx-pair?
                                                         _%tl165297165331%_))
                                                      (let ((_%e165298165334%_
                                                             (let ()
                                                               (declare
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                         (not safe))
                       (gx#stx-e _%tl165297165331%_))))
                (let ((_%tl165300165339%_
                       (let () (declare (not safe)) (##cdr _%e165298165334%_)))
                      (_%hd165299165337%_
                       (let ()
                         (declare (not safe))
                         (##car _%e165298165334%_))))
                  (if (let ()
                        (declare (not safe))
                        (gx#stx-null? _%tl165300165339%_))
                      (_%__kont168378168379%_
                       _%hd165299165337%_
                       _%hd165296165329%_
                       _%hd165226165486%_)
                      (let () (declare (not safe)) (_%g165216165305%_)))))
              (let () (declare (not safe)) (_%g165216165305%_)))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                              (let ()
                                                (declare (not safe))
                                                (_%g165216165305%_))))))
                                  (if (let ()
                                        (declare (not safe))
                                        (gx#stx-pair? _%tl165227165488%_))
                                      (let ((_%e165295165326%_
                                             (let ()
                                               (declare (not safe))
                                               (gx#stx-e _%tl165227165488%_))))
                                        (let ((_%tl165297165331%_
                                               (let ()
                                                 (declare (not safe))
                                                 (##cdr _%e165295165326%_)))
                                              (_%hd165296165329%_
                                               (let ()
                                                 (declare (not safe))
                                                 (##car _%e165295165326%_))))
                                          (if (let ()
                                                (declare (not safe))
                                                (gx#stx-pair?
                                                 _%tl165297165331%_))
                                              (let ((_%e165298165334%_
                                                     (let ()
                                                       (declare (not safe))
                                                       (gx#stx-e
                                                        _%tl165297165331%_))))
                                                (let ((_%tl165300165339%_
                                                       (let ()
                                                         (declare (not safe))
                                                         (##cdr _%e165298165334%_)))
                                                      (_%hd165299165337%_
                                                       (let ()
                                                         (declare (not safe))
                                                         (##car _%e165298165334%_))))
                                                  (if (let ()
                                                        (declare (not safe))
                                                        (gx#stx-null?
                                                         _%tl165300165339%_))
                                                      (_%__kont168378168379%_
                                                       _%hd165299165337%_
                                                       _%hd165296165329%_
                                                       _%hd165226165486%_)
                                                      (let ()
                                                        (declare (not safe))
                                                        (_%g165216165305%_)))))
                                              (let ()
                                                (declare (not safe))
                                                (_%g165216165305%_)))))
                                      (let ()
                                        (declare (not safe))
                                        (_%g165216165305%_))))))
                          (let () (declare (not safe)) (_%g165216165305%_)))))
                  (let () (declare (not safe)) (_%g165216165305%_))))))))
    (define gxc#refine-type-define-values%
      (lambda (_%self165069%_ _%stx165070%_)
        (let* ((_%__stx168562168563%_ _%stx165070%_)
               (_%g165073165103%_
                (lambda ()
                  (let ()
                    (declare (not safe))
                    (gx#raise-syntax-error
                     '#f
                     '"Bad syntax; invalid match target"
                     _%__stx168562168563%_)))))
          (let ((_%__kont168564168565%_
                 (lambda (_%L165183%_ _%L165184%_)
                   (let ((_%sym165200%_
                          (let ()
                            (declare (not safe))
                            (gxc#identifier-symbol _%L165184%_))))
                     (if (let ((__tmp170953
                                (let ()
                                  (declare (not safe))
                                  (gxc#current-compile-mutators))))
                           (declare (not safe))
                           (hash-get __tmp170953 _%sym165200%_))
                         '#!void
                         (let ((_%type165201165203%_
                                (gxc#apply-basic-expression-type _%L165183%_)))
                           (if _%type165201165203%_
                               (let ((_%type165206%_ _%type165201165203%_))
                                 (if (let ()
                                       (declare (not safe))
                                       (##structure-instance-of?
                                        _%type165206%_
                                        'gxc#!class-meta::t))
                                     '#!void
                                     (let ()
                                       (declare (not safe))
                                       (gxc#optimizer-declare-type!__0
                                        _%sym165200%_
                                        _%type165206%_))))
                               '#f)))
                     (let ()
                       (declare (not safe))
                       (gxc#compile-e__1 _%self165069%_ _%L165183%_)))))
                (_%__kont168566168567%_
                 (lambda (_%L165132%_)
                   (let ()
                     (declare (not safe))
                     (gxc#compile-e__1 _%self165069%_ _%L165132%_)))))
            (let ((_%__match168595168596%_
                   (lambda (_%e165077165151%_
                            _%hd165078165154%_
                            _%tl165079165156%_
                            _%e165080165159%_
                            _%hd165081165162%_
                            _%tl165082165164%_
                            _%e165083165167%_
                            _%hd165084165170%_
                            _%tl165085165172%_
                            _%e165086165175%_
                            _%hd165087165178%_
                            _%tl165088165180%_)
                     (let ((_%L165183%_ _%hd165087165178%_)
                           (_%L165184%_ _%hd165084165170%_))
                       (if (let ()
                             (declare (not safe))
                             (gx#identifier? _%L165184%_))
                           (_%__kont168564168565%_ _%L165183%_ _%L165184%_)
                           (_%__kont168566168567%_ _%hd165087165178%_))))))
              (if (let ()
                    (declare (not safe))
                    (gx#stx-pair? _%__stx168562168563%_))
                  (let ((_%e165077165151%_
                         (let ()
                           (declare (not safe))
                           (gx#stx-e _%__stx168562168563%_))))
                    (let ((_%tl165079165156%_
                           (let ()
                             (declare (not safe))
                             (##cdr _%e165077165151%_)))
                          (_%hd165078165154%_
                           (let ()
                             (declare (not safe))
                             (##car _%e165077165151%_))))
                      (if (let ()
                            (declare (not safe))
                            (gx#stx-pair? _%tl165079165156%_))
                          (let ((_%e165080165159%_
                                 (let ()
                                   (declare (not safe))
                                   (gx#stx-e _%tl165079165156%_))))
                            (let ((_%tl165082165164%_
                                   (let ()
                                     (declare (not safe))
                                     (##cdr _%e165080165159%_)))
                                  (_%hd165081165162%_
                                   (let ()
                                     (declare (not safe))
                                     (##car _%e165080165159%_))))
                              (if (let ()
                                    (declare (not safe))
                                    (gx#stx-pair? _%hd165081165162%_))
                                  (let ((_%e165083165167%_
                                         (let ()
                                           (declare (not safe))
                                           (gx#stx-e _%hd165081165162%_))))
                                    (let ((_%tl165085165172%_
                                           (let ()
                                             (declare (not safe))
                                             (##cdr _%e165083165167%_)))
                                          (_%hd165084165170%_
                                           (let ()
                                             (declare (not safe))
                                             (##car _%e165083165167%_))))
                                      (if (let ()
                                            (declare (not safe))
                                            (gx#stx-null? _%tl165085165172%_))
                                          (if (let ()
                                                (declare (not safe))
                                                (gx#stx-pair?
                                                 _%tl165082165164%_))
                                              (let ((_%e165086165175%_
                                                     (let ()
                                                       (declare (not safe))
                                                       (gx#stx-e
                                                        _%tl165082165164%_))))
                                                (let ((_%tl165088165180%_
                                                       (let ()
                                                         (declare (not safe))
                                                         (##cdr _%e165086165175%_)))
                                                      (_%hd165087165178%_
                                                       (let ()
                                                         (declare (not safe))
                                                         (##car _%e165086165175%_))))
                                                  (if (let ()
                                                        (declare (not safe))
                                                        (gx#stx-null?
                                                         _%tl165088165180%_))
                                                      (_%__match168595168596%_
                                                       _%e165077165151%_
                                                       _%hd165078165154%_
                                                       _%tl165079165156%_
                                                       _%e165080165159%_
                                                       _%hd165081165162%_
                                                       _%tl165082165164%_
                                                       _%e165083165167%_
                                                       _%hd165084165170%_
                                                       _%tl165085165172%_
                                                       _%e165086165175%_
                                                       _%hd165087165178%_
                                                       _%tl165088165180%_)
                                                      (let ()
                                                        (declare (not safe))
                                                        (_%g165073165103%_)))))
                                              (let ()
                                                (declare (not safe))
                                                (_%g165073165103%_)))
                                          (if (let ()
                                                (declare (not safe))
                                                (gx#stx-pair?
                                                 _%tl165082165164%_))
                                              (let ((_%e165096165124%_
                                                     (let ()
                                                       (declare (not safe))
                                                       (gx#stx-e
                                                        _%tl165082165164%_))))
                                                (let ((_%tl165098165129%_
                                                       (let ()
                                                         (declare (not safe))
                                                         (##cdr _%e165096165124%_)))
                                                      (_%hd165097165127%_
                                                       (let ()
                                                         (declare (not safe))
                                                         (##car _%e165096165124%_))))
                                                  (if (let ()
                                                        (declare (not safe))
                                                        (gx#stx-null?
                                                         _%tl165098165129%_))
                                                      (_%__kont168566168567%_
                                                       _%hd165097165127%_)
                                                      (let ()
                                                        (declare (not safe))
                                                        (_%g165073165103%_)))))
                                              (let ()
                                                (declare (not safe))
                                                (_%g165073165103%_))))))
                                  (if (let ()
                                        (declare (not safe))
                                        (gx#stx-pair? _%tl165082165164%_))
                                      (let ((_%e165096165124%_
                                             (let ()
                                               (declare (not safe))
                                               (gx#stx-e _%tl165082165164%_))))
                                        (let ((_%tl165098165129%_
                                               (let ()
                                                 (declare (not safe))
                                                 (##cdr _%e165096165124%_)))
                                              (_%hd165097165127%_
                                               (let ()
                                                 (declare (not safe))
                                                 (##car _%e165096165124%_))))
                                          (if (let ()
                                                (declare (not safe))
                                                (gx#stx-null?
                                                 _%tl165098165129%_))
                                              (_%__kont168566168567%_
                                               _%hd165097165127%_)
                                              (let ()
                                                (declare (not safe))
                                                (_%g165073165103%_)))))
                                      (let ()
                                        (declare (not safe))
                                        (_%g165073165103%_))))))
                          (let () (declare (not safe)) (_%g165073165103%_)))))
                  (let () (declare (not safe)) (_%g165073165103%_))))))))
    (define gxc#refine-type-let-values%
      (lambda (_%self164841%_ _%stx164842%_)
        (letrec ((_%collect-e164844%_
                  (lambda (_%hd165013%_ _%expr165014%_)
                    (let* ((_%__stx168618168619%_ _%hd165013%_)
                           (_%g165017165027%_
                            (lambda ()
                              (let ()
                                (declare (not safe))
                                (gx#raise-syntax-error
                                 '#f
                                 '"Bad syntax; invalid match target"
                                 _%__stx168618168619%_)))))
                      (let ((_%__kont168620168621%_
                             (lambda (_%L165047%_)
                               (let ((_%sym165058%_
                                      (let ()
                                        (declare (not safe))
                                        (gxc#identifier-symbol _%L165047%_))))
                                 (if (let ((__tmp170954
                                            (let ()
                                              (declare (not safe))
                                              (gxc#current-compile-mutators))))
                                       (declare (not safe))
                                       (hash-get __tmp170954 _%sym165058%_))
                                     '#!void
                                     (let ((_%type165059165061%_
                                            (gxc#apply-basic-expression-type
                                             _%expr165014%_)))
                                       (if _%type165059165061%_
                                           (let ((_%type165064%_
                                                  _%type165059165061%_))
                                             (if (let ()
                                                   (declare (not safe))
                                                   (##structure-instance-of?
                                                    _%type165064%_
                                                    'gxc#!class-meta::t))
                                                 '#!void
                                                 (let ()
                                                   (declare (not safe))
                                                   (gxc#optimizer-declare-type!__%
                                                    _%sym165058%_
                                                    _%type165064%_
                                                    '#t))))
                                           '#f))))))
                            (_%__kont168622168623%_ (lambda () '#!void)))
                        (let ((_%__match168631168632%_
                               (lambda (_%e165020165039%_
                                        _%hd165021165042%_
                                        _%tl165022165044%_)
                                 (let ((_%L165047%_ _%hd165021165042%_))
                                   (if (let ()
                                         (declare (not safe))
                                         (gx#identifier? _%L165047%_))
                                       (_%__kont168620168621%_ _%L165047%_)
                                       (_%__kont168622168623%_))))))
                          (if (let ()
                                (declare (not safe))
                                (gx#stx-pair? _%__stx168618168619%_))
                              (let ((_%e165020165039%_
                                     (let ()
                                       (declare (not safe))
                                       (gx#stx-e _%__stx168618168619%_))))
                                (let ((_%tl165022165044%_
                                       (let ()
                                         (declare (not safe))
                                         (##cdr _%e165020165039%_)))
                                      (_%hd165021165042%_
                                       (let ()
                                         (declare (not safe))
                                         (##car _%e165020165039%_))))
                                  (if (let ()
                                        (declare (not safe))
                                        (gx#stx-null? _%tl165022165044%_))
                                      (_%__match168631168632%_
                                       _%e165020165039%_
                                       _%hd165021165042%_
                                       _%tl165022165044%_)
                                      (_%__kont168622168623%_))))
                              (_%__kont168622168623%_))))))))
          (let* ((_%g164846164881%_
                  (lambda (_%g164847164878%_)
                    (let ()
                      (declare (not safe))
                      (gx#raise-syntax-error
                       '#f
                       '"Bad syntax; invalid match target"
                       _%g164847164878%_))))
                 (_%g164845165010%_
                  (lambda (_%g164847164884%_)
                    (if (let ()
                          (declare (not safe))
                          (gx#stx-pair? _%g164847164884%_))
                        (let ((_%e164851164886%_
                               (let ()
                                 (declare (not safe))
                                 (gx#stx-e _%g164847164884%_))))
                          (let ((_%hd164852164889%_
                                 (let ()
                                   (declare (not safe))
                                   (##car _%e164851164886%_)))
                                (_%tl164853164891%_
                                 (let ()
                                   (declare (not safe))
                                   (##cdr _%e164851164886%_))))
                            (if (let ()
                                  (declare (not safe))
                                  (gx#stx-pair? _%tl164853164891%_))
                                (let ((_%e164854164894%_
                                       (let ()
                                         (declare (not safe))
                                         (gx#stx-e _%tl164853164891%_))))
                                  (let ((_%hd164855164897%_
                                         (let ()
                                           (declare (not safe))
                                           (##car _%e164854164894%_)))
                                        (_%tl164856164899%_
                                         (let ()
                                           (declare (not safe))
                                           (##cdr _%e164854164894%_))))
                                    (if (let ()
                                          (declare (not safe))
                                          (gx#stx-pair/null?
                                           _%hd164855164897%_))
                                        (let ((_g170955_
                                               (let ()
                                                 (declare (not safe))
                                                 (gx#syntax-split-splice
                                                  _%hd164855164897%_
                                                  '0))))
                                          (begin
                                            (let ((_g170956_
                                                   (let ()
                                                     (declare (not safe))
                                                     (if (##values? _g170955_)
                                                         (##vector-length
                                                          _g170955_)
                                                         1))))
                                              (if (not (let ()
                                                         (declare (not safe))
                                                         (##fx= _g170956_ 2)))
                                                  (error "Context expects 2 values"
                                                         _g170956_)))
                                            (let ((_%target164857164902%_
                                                   (let ()
                                                     (declare (not safe))
                                                     (##vector-ref
                                                      _g170955_
                                                      0)))
                                                  (_%tl164859164904%_
                                                   (let ()
                                                     (declare (not safe))
                                                     (##vector-ref
                                                      _g170955_
                                                      1))))
                                              (if (let ()
                                                    (declare (not safe))
                                                    (gx#stx-null?
                                                     _%tl164859164904%_))
                                                  (letrec ((_%loop164860164907%_
                                                            (lambda (_%hd164858164910%_
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                             _%expr164864164912%_
                             _%hd164865164914%_)
                      (if (let ()
                            (declare (not safe))
                            (gx#stx-pair? _%hd164858164910%_))
                          (let ((_%e164861164917%_
                                 (let ()
                                   (declare (not safe))
                                   (gx#stx-e _%hd164858164910%_))))
                            (let ((_%lp-hd164862164920%_
                                   (let ()
                                     (declare (not safe))
                                     (##car _%e164861164917%_)))
                                  (_%lp-tl164863164922%_
                                   (let ()
                                     (declare (not safe))
                                     (##cdr _%e164861164917%_))))
                              (if (let ()
                                    (declare (not safe))
                                    (gx#stx-pair? _%lp-hd164862164920%_))
                                  (let ((_%e164871164925%_
                                         (let ()
                                           (declare (not safe))
                                           (gx#stx-e _%lp-hd164862164920%_))))
                                    (let ((_%hd164872164928%_
                                           (let ()
                                             (declare (not safe))
                                             (##car _%e164871164925%_)))
                                          (_%tl164873164930%_
                                           (let ()
                                             (declare (not safe))
                                             (##cdr _%e164871164925%_))))
                                      (if (let ()
                                            (declare (not safe))
                                            (gx#stx-pair? _%tl164873164930%_))
                                          (let ((_%e164874164933%_
                                                 (let ()
                                                   (declare (not safe))
                                                   (gx#stx-e
                                                    _%tl164873164930%_))))
                                            (let ((_%hd164875164936%_
                                                   (let ()
                                                     (declare (not safe))
                                                     (##car _%e164874164933%_)))
                                                  (_%tl164876164938%_
                                                   (let ()
                                                     (declare (not safe))
                                                     (##cdr _%e164874164933%_))))
                                              (if (let ()
                                                    (declare (not safe))
                                                    (gx#stx-null?
                                                     _%tl164876164938%_))
                                                  (_%loop164860164907%_
                                                   _%lp-tl164863164922%_
                                                   (cons _%hd164875164936%_
                                                         _%expr164864164912%_)
                                                   (cons _%hd164872164928%_
                                                         _%hd164865164914%_))
                                                  (_%g164846164881%_
                                                   _%g164847164884%_))))
                                          (_%g164846164881%_
                                           _%g164847164884%_))))
                                  (_%g164846164881%_ _%g164847164884%_))))
                          (let ((_%expr164866164941%_
                                 (reverse _%expr164864164912%_))
                                (_%hd164867164943%_
                                 (reverse _%hd164865164914%_)))
                            (if (let ()
                                  (declare (not safe))
                                  (gx#stx-pair? _%tl164856164899%_))
                                (let ((_%e164868164946%_
                                       (let ()
                                         (declare (not safe))
                                         (gx#stx-e _%tl164856164899%_))))
                                  (let ((_%hd164869164949%_
                                         (let ()
                                           (declare (not safe))
                                           (##car _%e164868164946%_)))
                                        (_%tl164870164951%_
                                         (let ()
                                           (declare (not safe))
                                           (##cdr _%e164868164946%_))))
                                    (if (let ()
                                          (declare (not safe))
                                          (gx#stx-null? _%tl164870164951%_))
                                        ((lambda (_%L164954%_
                                                  _%L164955%_
                                                  _%L164956%_)
                                           (for-each
                                            _%collect-e164844%_
                                            (let ((__tmp170957
                                                   (lambda (_%g164976164979%_
                                                            _%g164977164981%_)
                                                     (cons _%g164976164979%_
                                                           _%g164977164981%_))))
                                              (declare (not safe))
                                              (__foldr1
                                               __tmp170957
                                               '()
                                               _%L164956%_))
                                            (let ((__tmp170958
                                                   (lambda (_%g164983164986%_
                                                            _%g164984164988%_)
                                                     (cons _%g164983164986%_
                                                           _%g164984164988%_))))
                                              (declare (not safe))
                                              (__foldr1
                                               __tmp170958
                                               '()
                                               _%L164955%_)))
                                           (for-each
                                            (lambda (_%g164990164992%_)
                                              (let ()
                                                (declare (not safe))
                                                (gxc#compile-e__1
                                                 _%self164841%_
                                                 _%g164990164992%_)))
                                            (let ((__tmp170959
                                                   (lambda (_%g164994164997%_
                                                            _%g164995164999%_)
                                                     (cons _%g164994164997%_
                                                           _%g164995164999%_))))
                                              (declare (not safe))
                                              (__foldr1
                                               __tmp170959
                                               '()
                                               _%L164955%_)))
                                           (let ((__tmp170963
                                                  (lambda ()
                                                    (let ()
                                                      (declare (not safe))
                                                      (gxc#compile-e__1
                                                       _%self164841%_
                                                       _%L164954%_))))
                                                 (__tmp170960
                                                  (let ((__tmp170961
                                                         (let ((__tmp170962
                                                                (lambda (_%g165002165005%_
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                                 _%g165003165007%_)
                          (cons _%g165002165005%_ _%g165003165007%_))))
                   (declare (not safe))
                   (__foldr1 __tmp170962 '() _%L164956%_))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                                    (declare (not safe))
                                                    (gxc#xform-let-locals
                                                     __tmp170961))))
                                             (declare (not safe))
                                             (__call-with-parameters
                                              __tmp170963
                                              gxc#current-compile-local-env
                                              __tmp170960)))
                                         _%hd164869164949%_
                                         _%expr164866164941%_
                                         _%hd164867164943%_)
                                        (_%g164846164881%_
                                         _%g164847164884%_))))
                                (_%g164846164881%_ _%g164847164884%_)))))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                                    (_%loop164860164907%_
                                                     _%target164857164902%_
                                                     '()
                                                     '()))
                                                  (_%g164846164881%_
                                                   _%g164847164884%_)))))
                                        (_%g164846164881%_
                                         _%g164847164884%_))))
                                (_%g164846164881%_ _%g164847164884%_))))
                        (_%g164846164881%_ _%g164847164884%_)))))
            (_%g164845165010%_ _%stx164842%_)))))
    (define gxc#refine-type-letrec-values%
      (lambda (_%self164613%_ _%stx164614%_)
        (letrec ((_%collect-e164616%_
                  (lambda (_%hd164785%_ _%expr164786%_)
                    (let* ((_%__stx168634168635%_ _%hd164785%_)
                           (_%g164789164799%_
                            (lambda ()
                              (let ()
                                (declare (not safe))
                                (gx#raise-syntax-error
                                 '#f
                                 '"Bad syntax; invalid match target"
                                 _%__stx168634168635%_)))))
                      (let ((_%__kont168636168637%_
                             (lambda (_%L164819%_)
                               (let ((_%sym164830%_
                                      (let ()
                                        (declare (not safe))
                                        (gxc#identifier-symbol _%L164819%_))))
                                 (if (let ((__tmp170964
                                            (let ()
                                              (declare (not safe))
                                              (gxc#current-compile-mutators))))
                                       (declare (not safe))
                                       (hash-get __tmp170964 _%sym164830%_))
                                     '#!void
                                     (let ((_%type164831164833%_
                                            (gxc#apply-basic-expression-type
                                             _%expr164786%_)))
                                       (if _%type164831164833%_
                                           (let ((_%type164836%_
                                                  _%type164831164833%_))
                                             (if (let ()
                                                   (declare (not safe))
                                                   (##structure-instance-of?
                                                    _%type164836%_
                                                    'gxc#!class-meta::t))
                                                 '#!void
                                                 (let ()
                                                   (declare (not safe))
                                                   (gxc#optimizer-declare-type!__%
                                                    _%sym164830%_
                                                    _%type164836%_
                                                    '#t))))
                                           '#f))))))
                            (_%__kont168638168639%_ (lambda () '#!void)))
                        (let ((_%__match168647168648%_
                               (lambda (_%e164792164811%_
                                        _%hd164793164814%_
                                        _%tl164794164816%_)
                                 (let ((_%L164819%_ _%hd164793164814%_))
                                   (if (let ()
                                         (declare (not safe))
                                         (gx#identifier? _%L164819%_))
                                       (_%__kont168636168637%_ _%L164819%_)
                                       (_%__kont168638168639%_))))))
                          (if (let ()
                                (declare (not safe))
                                (gx#stx-pair? _%__stx168634168635%_))
                              (let ((_%e164792164811%_
                                     (let ()
                                       (declare (not safe))
                                       (gx#stx-e _%__stx168634168635%_))))
                                (let ((_%tl164794164816%_
                                       (let ()
                                         (declare (not safe))
                                         (##cdr _%e164792164811%_)))
                                      (_%hd164793164814%_
                                       (let ()
                                         (declare (not safe))
                                         (##car _%e164792164811%_))))
                                  (if (let ()
                                        (declare (not safe))
                                        (gx#stx-null? _%tl164794164816%_))
                                      (_%__match168647168648%_
                                       _%e164792164811%_
                                       _%hd164793164814%_
                                       _%tl164794164816%_)
                                      (_%__kont168638168639%_))))
                              (_%__kont168638168639%_))))))))
          (let* ((_%g164618164653%_
                  (lambda (_%g164619164650%_)
                    (let ()
                      (declare (not safe))
                      (gx#raise-syntax-error
                       '#f
                       '"Bad syntax; invalid match target"
                       _%g164619164650%_))))
                 (_%g164617164782%_
                  (lambda (_%g164619164656%_)
                    (if (let ()
                          (declare (not safe))
                          (gx#stx-pair? _%g164619164656%_))
                        (let ((_%e164623164658%_
                               (let ()
                                 (declare (not safe))
                                 (gx#stx-e _%g164619164656%_))))
                          (let ((_%hd164624164661%_
                                 (let ()
                                   (declare (not safe))
                                   (##car _%e164623164658%_)))
                                (_%tl164625164663%_
                                 (let ()
                                   (declare (not safe))
                                   (##cdr _%e164623164658%_))))
                            (if (let ()
                                  (declare (not safe))
                                  (gx#stx-pair? _%tl164625164663%_))
                                (let ((_%e164626164666%_
                                       (let ()
                                         (declare (not safe))
                                         (gx#stx-e _%tl164625164663%_))))
                                  (let ((_%hd164627164669%_
                                         (let ()
                                           (declare (not safe))
                                           (##car _%e164626164666%_)))
                                        (_%tl164628164671%_
                                         (let ()
                                           (declare (not safe))
                                           (##cdr _%e164626164666%_))))
                                    (if (let ()
                                          (declare (not safe))
                                          (gx#stx-pair/null?
                                           _%hd164627164669%_))
                                        (let ((_g170965_
                                               (let ()
                                                 (declare (not safe))
                                                 (gx#syntax-split-splice
                                                  _%hd164627164669%_
                                                  '0))))
                                          (begin
                                            (let ((_g170966_
                                                   (let ()
                                                     (declare (not safe))
                                                     (if (##values? _g170965_)
                                                         (##vector-length
                                                          _g170965_)
                                                         1))))
                                              (if (not (let ()
                                                         (declare (not safe))
                                                         (##fx= _g170966_ 2)))
                                                  (error "Context expects 2 values"
                                                         _g170966_)))
                                            (let ((_%target164629164674%_
                                                   (let ()
                                                     (declare (not safe))
                                                     (##vector-ref
                                                      _g170965_
                                                      0)))
                                                  (_%tl164631164676%_
                                                   (let ()
                                                     (declare (not safe))
                                                     (##vector-ref
                                                      _g170965_
                                                      1))))
                                              (if (let ()
                                                    (declare (not safe))
                                                    (gx#stx-null?
                                                     _%tl164631164676%_))
                                                  (letrec ((_%loop164632164679%_
                                                            (lambda (_%hd164630164682%_
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                             _%expr164636164684%_
                             _%hd164637164686%_)
                      (if (let ()
                            (declare (not safe))
                            (gx#stx-pair? _%hd164630164682%_))
                          (let ((_%e164633164689%_
                                 (let ()
                                   (declare (not safe))
                                   (gx#stx-e _%hd164630164682%_))))
                            (let ((_%lp-hd164634164692%_
                                   (let ()
                                     (declare (not safe))
                                     (##car _%e164633164689%_)))
                                  (_%lp-tl164635164694%_
                                   (let ()
                                     (declare (not safe))
                                     (##cdr _%e164633164689%_))))
                              (if (let ()
                                    (declare (not safe))
                                    (gx#stx-pair? _%lp-hd164634164692%_))
                                  (let ((_%e164643164697%_
                                         (let ()
                                           (declare (not safe))
                                           (gx#stx-e _%lp-hd164634164692%_))))
                                    (let ((_%hd164644164700%_
                                           (let ()
                                             (declare (not safe))
                                             (##car _%e164643164697%_)))
                                          (_%tl164645164702%_
                                           (let ()
                                             (declare (not safe))
                                             (##cdr _%e164643164697%_))))
                                      (if (let ()
                                            (declare (not safe))
                                            (gx#stx-pair? _%tl164645164702%_))
                                          (let ((_%e164646164705%_
                                                 (let ()
                                                   (declare (not safe))
                                                   (gx#stx-e
                                                    _%tl164645164702%_))))
                                            (let ((_%hd164647164708%_
                                                   (let ()
                                                     (declare (not safe))
                                                     (##car _%e164646164705%_)))
                                                  (_%tl164648164710%_
                                                   (let ()
                                                     (declare (not safe))
                                                     (##cdr _%e164646164705%_))))
                                              (if (let ()
                                                    (declare (not safe))
                                                    (gx#stx-null?
                                                     _%tl164648164710%_))
                                                  (_%loop164632164679%_
                                                   _%lp-tl164635164694%_
                                                   (cons _%hd164647164708%_
                                                         _%expr164636164684%_)
                                                   (cons _%hd164644164700%_
                                                         _%hd164637164686%_))
                                                  (_%g164618164653%_
                                                   _%g164619164656%_))))
                                          (_%g164618164653%_
                                           _%g164619164656%_))))
                                  (_%g164618164653%_ _%g164619164656%_))))
                          (let ((_%expr164638164713%_
                                 (reverse _%expr164636164684%_))
                                (_%hd164639164715%_
                                 (reverse _%hd164637164686%_)))
                            (if (let ()
                                  (declare (not safe))
                                  (gx#stx-pair? _%tl164628164671%_))
                                (let ((_%e164640164718%_
                                       (let ()
                                         (declare (not safe))
                                         (gx#stx-e _%tl164628164671%_))))
                                  (let ((_%hd164641164721%_
                                         (let ()
                                           (declare (not safe))
                                           (##car _%e164640164718%_)))
                                        (_%tl164642164723%_
                                         (let ()
                                           (declare (not safe))
                                           (##cdr _%e164640164718%_))))
                                    (if (let ()
                                          (declare (not safe))
                                          (gx#stx-null? _%tl164642164723%_))
                                        ((lambda (_%L164726%_
                                                  _%L164727%_
                                                  _%L164728%_)
                                           (let ((__tmp170970
                                                  (lambda ()
                                                    (for-each
                                                     _%collect-e164616%_
                                                     (let ((__tmp170971
                                                            (lambda (_%g164749164752%_
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                             _%g164750164754%_)
                      (cons _%g164749164752%_ _%g164750164754%_))))
               (declare (not safe))
               (__foldr1 __tmp170971 '() _%L164728%_))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                                     (let ((__tmp170972
                                                            (lambda (_%g164756164759%_
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                             _%g164757164761%_)
                      (cons _%g164756164759%_ _%g164757164761%_))))
               (declare (not safe))
               (__foldr1 __tmp170972 '() _%L164727%_)))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                                    (for-each
                                                     (lambda (_%g164763164765%_)
                                                       (let ()
                                                         (declare (not safe))
                                                         (gxc#compile-e__1
                                                          _%self164613%_
                                                          _%g164763164765%_)))
                                                     (let ((__tmp170973
                                                            (lambda (_%g164767164770%_
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                             _%g164768164772%_)
                      (cons _%g164767164770%_ _%g164768164772%_))))
               (declare (not safe))
               (__foldr1 __tmp170973 '() _%L164727%_)))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                                    (let ()
                                                      (declare (not safe))
                                                      (gxc#compile-e__1
                                                       _%self164613%_
                                                       _%L164726%_))))
                                                 (__tmp170967
                                                  (let ((__tmp170968
                                                         (let ((__tmp170969
                                                                (lambda (_%g164774164777%_
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                                 _%g164775164779%_)
                          (cons _%g164774164777%_ _%g164775164779%_))))
                   (declare (not safe))
                   (__foldr1 __tmp170969 '() _%L164728%_))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                                    (declare (not safe))
                                                    (gxc#xform-let-locals
                                                     __tmp170968))))
                                             (declare (not safe))
                                             (__call-with-parameters
                                              __tmp170970
                                              gxc#current-compile-local-env
                                              __tmp170967)))
                                         _%hd164641164721%_
                                         _%expr164638164713%_
                                         _%hd164639164715%_)
                                        (_%g164618164653%_
                                         _%g164619164656%_))))
                                (_%g164618164653%_ _%g164619164656%_)))))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                                    (_%loop164632164679%_
                                                     _%target164629164674%_
                                                     '()
                                                     '()))
                                                  (_%g164618164653%_
                                                   _%g164619164656%_)))))
                                        (_%g164618164653%_
                                         _%g164619164656%_))))
                                (_%g164618164653%_ _%g164619164656%_))))
                        (_%g164618164653%_ _%g164619164656%_)))))
            (_%g164617164782%_ _%stx164614%_)))))
    (define gxc#refine-type-lambda%
      (lambda (_%self164557%_ _%stx164558%_)
        (let* ((_%g164560164574%_
                (lambda (_%g164561164571%_)
                  (let ()
                    (declare (not safe))
                    (gx#raise-syntax-error
                     '#f
                     '"Bad syntax; invalid match target"
                     _%g164561164571%_))))
               (_%g164559164610%_
                (lambda (_%g164561164577%_)
                  (if (let ()
                        (declare (not safe))
                        (gx#stx-pair? _%g164561164577%_))
                      (let ((_%e164564164579%_
                             (let ()
                               (declare (not safe))
                               (gx#stx-e _%g164561164577%_))))
                        (let ((_%hd164565164582%_
                               (let ()
                                 (declare (not safe))
                                 (##car _%e164564164579%_)))
                              (_%tl164566164584%_
                               (let ()
                                 (declare (not safe))
                                 (##cdr _%e164564164579%_))))
                          (if (let ()
                                (declare (not safe))
                                (gx#stx-pair? _%tl164566164584%_))
                              (let ((_%e164567164587%_
                                     (let ()
                                       (declare (not safe))
                                       (gx#stx-e _%tl164566164584%_))))
                                (let ((_%hd164568164590%_
                                       (let ()
                                         (declare (not safe))
                                         (##car _%e164567164587%_)))
                                      (_%tl164569164592%_
                                       (let ()
                                         (declare (not safe))
                                         (##cdr _%e164567164587%_))))
                                  ((lambda (_%L164595%_ _%L164596%_)
                                     (let ((__tmp170975
                                            (lambda ()
                                              (let ()
                                                (declare (not safe))
                                                (gxc#apply-body-lambda%
                                                 _%self164557%_
                                                 _%stx164558%_))))
                                           (__tmp170974
                                            (let ()
                                              (declare (not safe))
                                              (gxc#xform-let-locals
                                               _%L164596%_))))
                                       (declare (not safe))
                                       (__call-with-parameters
                                        __tmp170975
                                        gxc#current-compile-local-env
                                        __tmp170974)))
                                   _%tl164569164592%_
                                   _%hd164568164590%_)))
                              (_%g164560164574%_ _%g164561164577%_))))
                      (_%g164560164574%_ _%g164561164577%_)))))
          (_%g164559164610%_ _%stx164558%_))))
    (define gxc#refine-type-case-lambda%
      (lambda (_%self164384%_ _%stx164385%_)
        (let* ((_%g164387164415%_
                (lambda (_%g164388164412%_)
                  (let ()
                    (declare (not safe))
                    (gx#raise-syntax-error
                     '#f
                     '"Bad syntax; invalid match target"
                     _%g164388164412%_))))
               (_%g164386164554%_
                (lambda (_%g164388164418%_)
                  (if (let ()
                        (declare (not safe))
                        (gx#stx-pair? _%g164388164418%_))
                      (let ((_%e164391164420%_
                             (let ()
                               (declare (not safe))
                               (gx#stx-e _%g164388164418%_))))
                        (let ((_%hd164392164423%_
                               (let ()
                                 (declare (not safe))
                                 (##car _%e164391164420%_)))
                              (_%tl164393164425%_
                               (let ()
                                 (declare (not safe))
                                 (##cdr _%e164391164420%_))))
                          (if (let ()
                                (declare (not safe))
                                (gx#stx-pair/null? _%tl164393164425%_))
                              (let ((_g170976_
                                     (let ()
                                       (declare (not safe))
                                       (gx#syntax-split-splice
                                        _%tl164393164425%_
                                        '0))))
                                (begin
                                  (let ((_g170977_
                                         (let ()
                                           (declare (not safe))
                                           (if (##values? _g170976_)
                                               (##vector-length _g170976_)
                                               1))))
                                    (if (not (let ()
                                               (declare (not safe))
                                               (##fx= _g170977_ 2)))
                                        (error "Context expects 2 values"
                                               _g170977_)))
                                  (let ((_%target164394164428%_
                                         (let ()
                                           (declare (not safe))
                                           (##vector-ref _g170976_ 0)))
                                        (_%tl164396164430%_
                                         (let ()
                                           (declare (not safe))
                                           (##vector-ref _g170976_ 1))))
                                    (if (let ()
                                          (declare (not safe))
                                          (gx#stx-null? _%tl164396164430%_))
                                        (letrec ((_%loop164397164433%_
                                                  (lambda (_%hd164395164436%_
                                                           _%body164401164438%_
                                                           _%hd164402164440%_)
                                                    (if (let ()
                                                          (declare (not safe))
                                                          (gx#stx-pair?
                                                           _%hd164395164436%_))
                                                        (let ((_%e164398164443%_
                                                               (let ()
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                         (declare (not safe))
                         (gx#stx-e _%hd164395164436%_))))
                  (let ((_%lp-hd164399164446%_
                         (let ()
                           (declare (not safe))
                           (##car _%e164398164443%_)))
                        (_%lp-tl164400164448%_
                         (let ()
                           (declare (not safe))
                           (##cdr _%e164398164443%_))))
                    (if (let ()
                          (declare (not safe))
                          (gx#stx-pair? _%lp-hd164399164446%_))
                        (let ((_%e164405164451%_
                               (let ()
                                 (declare (not safe))
                                 (gx#stx-e _%lp-hd164399164446%_))))
                          (let ((_%hd164406164454%_
                                 (let ()
                                   (declare (not safe))
                                   (##car _%e164405164451%_)))
                                (_%tl164407164456%_
                                 (let ()
                                   (declare (not safe))
                                   (##cdr _%e164405164451%_))))
                            (if (let ()
                                  (declare (not safe))
                                  (gx#stx-pair? _%tl164407164456%_))
                                (let ((_%e164408164459%_
                                       (let ()
                                         (declare (not safe))
                                         (gx#stx-e _%tl164407164456%_))))
                                  (let ((_%hd164409164462%_
                                         (let ()
                                           (declare (not safe))
                                           (##car _%e164408164459%_)))
                                        (_%tl164410164464%_
                                         (let ()
                                           (declare (not safe))
                                           (##cdr _%e164408164459%_))))
                                    (if (let ()
                                          (declare (not safe))
                                          (gx#stx-null? _%tl164410164464%_))
                                        (_%loop164397164433%_
                                         _%lp-tl164400164448%_
                                         (cons _%hd164409164462%_
                                               _%body164401164438%_)
                                         (cons _%hd164406164454%_
                                               _%hd164402164440%_))
                                        (_%g164387164415%_
                                         _%g164388164418%_))))
                                (_%g164387164415%_ _%g164388164418%_))))
                        (_%g164387164415%_ _%g164388164418%_))))
                (let ((_%body164403164467%_ (reverse _%body164401164438%_))
                      (_%hd164404164469%_ (reverse _%hd164402164440%_)))
                  ((lambda (_%L164472%_ _%L164473%_)
                     (for-each
                      (lambda (_%clause164488%_)
                        (let* ((_%g164490164504%_
                                (lambda (_%g164491164501%_)
                                  (let ()
                                    (declare (not safe))
                                    (gx#raise-syntax-error
                                     '#f
                                     '"Bad syntax; invalid match target"
                                     _%g164491164501%_))))
                               (_%g164489164541%_
                                (lambda (_%g164491164507%_)
                                  (if (let ()
                                        (declare (not safe))
                                        (gx#stx-pair? _%g164491164507%_))
                                      (let ((_%e164494164509%_
                                             (let ()
                                               (declare (not safe))
                                               (gx#stx-e _%g164491164507%_))))
                                        (let ((_%hd164495164512%_
                                               (let ()
                                                 (declare (not safe))
                                                 (##car _%e164494164509%_)))
                                              (_%tl164496164514%_
                                               (let ()
                                                 (declare (not safe))
                                                 (##cdr _%e164494164509%_))))
                                          (if (let ()
                                                (declare (not safe))
                                                (gx#stx-pair?
                                                 _%tl164496164514%_))
                                              (let ((_%e164497164517%_
                                                     (let ()
                                                       (declare (not safe))
                                                       (gx#stx-e
                                                        _%tl164496164514%_))))
                                                (let ((_%hd164498164520%_
                                                       (let ()
                                                         (declare (not safe))
                                                         (##car _%e164497164517%_)))
                                                      (_%tl164499164522%_
                                                       (let ()
                                                         (declare (not safe))
                                                         (##cdr _%e164497164517%_))))
                                                  (if (let ()
                                                        (declare (not safe))
                                                        (gx#stx-null?
                                                         _%tl164499164522%_))
                                                      ((lambda (_%L164525%_
                                                                _%L164526%_)
                                                         (let ((__tmp170979
                                                                (lambda ()
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                          (let ()
                            (declare (not safe))
                            (gxc#apply-body-case-lambda%
                             _%self164384%_
                             _%stx164385%_))))
                       (__tmp170978
                        (let ()
                          (declare (not safe))
                          (gxc#xform-let-locals _%L164526%_))))
                   (declare (not safe))
                   (__call-with-parameters
                    __tmp170979
                    gxc#current-compile-local-env
                    __tmp170978)))
               _%hd164498164520%_
               _%hd164495164512%_)
              (_%g164490164504%_ _%g164491164507%_))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                              (_%g164490164504%_
                                               _%g164491164507%_))))
                                      (_%g164490164504%_ _%g164491164507%_)))))
                          (_%g164489164541%_ _%clause164488%_)))
                      (begin
                        (let ()
                          (declare (not safe))
                          (gx#syntax-check-splice-targets
                           _%L164472%_
                           _%L164473%_))
                        (let ((__tmp170980
                               (lambda (_%g164543164547%_
                                        _%g164544164549%_
                                        _%g164545164551%_)
                                 (cons (cons _%g164544164549%_
                                             (cons _%g164543164547%_ '()))
                                       _%g164545164551%_))))
                          (declare (not safe))
                          (__foldr2
                           __tmp170980
                           '()
                           _%L164472%_
                           _%L164473%_)))))
                   _%body164403164467%_
                   _%hd164404164469%_))))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                          (_%loop164397164433%_
                                           _%target164394164428%_
                                           '()
                                           '()))
                                        (_%g164387164415%_
                                         _%g164388164418%_)))))
                              (_%g164387164415%_ _%g164388164418%_))))
                      (_%g164387164415%_ _%g164388164418%_)))))
          (_%g164386164554%_ _%stx164385%_))))
    (define gxc#basic-expression-type-annotations
      (let () (declare (not safe)) (make-hash-table-eq)))
    (define gxc#basic-expression-type-begin-annotation%
      (lambda (_%self164262%_ _%stx164263%_)
        (let* ((_%g164265164282%_
                (lambda (_%g164266164279%_)
                  (let ()
                    (declare (not safe))
                    (gx#raise-syntax-error
                     '#f
                     '"Bad syntax; invalid match target"
                     _%g164266164279%_))))
               (_%g164264164381%_
                (lambda (_%g164266164285%_)
                  (if (let ()
                        (declare (not safe))
                        (gx#stx-pair? _%g164266164285%_))
                      (let ((_%e164269164287%_
                             (let ()
                               (declare (not safe))
                               (gx#stx-e _%g164266164285%_))))
                        (let ((_%hd164270164290%_
                               (let ()
                                 (declare (not safe))
                                 (##car _%e164269164287%_)))
                              (_%tl164271164292%_
                               (let ()
                                 (declare (not safe))
                                 (##cdr _%e164269164287%_))))
                          (if (let ()
                                (declare (not safe))
                                (gx#stx-pair? _%tl164271164292%_))
                              (let ((_%e164272164295%_
                                     (let ()
                                       (declare (not safe))
                                       (gx#stx-e _%tl164271164292%_))))
                                (let ((_%hd164273164298%_
                                       (let ()
                                         (declare (not safe))
                                         (##car _%e164272164295%_)))
                                      (_%tl164274164300%_
                                       (let ()
                                         (declare (not safe))
                                         (##cdr _%e164272164295%_))))
                                  (if (let ()
                                        (declare (not safe))
                                        (gx#stx-pair? _%tl164274164300%_))
                                      (let ((_%e164275164303%_
                                             (let ()
                                               (declare (not safe))
                                               (gx#stx-e _%tl164274164300%_))))
                                        (let ((_%hd164276164306%_
                                               (let ()
                                                 (declare (not safe))
                                                 (##car _%e164275164303%_)))
                                              (_%tl164277164308%_
                                               (let ()
                                                 (declare (not safe))
                                                 (##cdr _%e164275164303%_))))
                                          (if (let ()
                                                (declare (not safe))
                                                (gx#stx-null?
                                                 _%tl164277164308%_))
                                              ((lambda (_%L164311%_
                                                        _%L164312%_)
                                                 (let* ((_%__stx168650168651%_
                                                         _%L164312%_)
                                                        (_%g164328164339%_
                                                         (lambda ()
                                                           (let ()
                                                             (declare
                                                               (not safe))
                                                             (gx#raise-syntax-error
                                                              '#f
                                                              '"Bad syntax; invalid match target"
                                                              _%__stx168650168651%_)))))
                                                   (let ((_%__kont168652168653%_
                                                          (lambda (_%L164359%_
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                           _%L164360%_)
                    (let ((_%$e164372%_
                           (let ((__tmp170981
                                  (let ()
                                    (declare (not safe))
                                    (gx#stx-e _%L164360%_))))
                             (declare (not safe))
                             (__hash-get
                              gxc#basic-expression-type-annotations
                              __tmp170981))))
                      (if _%$e164372%_
                          ((lambda (_%type-e164375%_)
                             (_%type-e164375%_ _%stx164263%_ _%L164312%_))
                           _%$e164372%_)
                          (let ()
                            (declare (not safe))
                            (gxc#compile-e__1 _%self164262%_ _%L164311%_))))))
                 (_%__kont168654168655%_
                  (lambda ()
                    (let ()
                      (declare (not safe))
                      (gxc#compile-e__1 _%self164262%_ _%L164311%_)))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                                     (let ((_%__match168661168662%_
                                                            (lambda (_%e164332164351%_
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                             _%hd164333164354%_
                             _%tl164334164356%_)
                      (let ((_%L164359%_ _%tl164334164356%_)
                            (_%L164360%_ _%hd164333164354%_))
                        (if (let ()
                              (declare (not safe))
                              (gx#identifier? _%L164360%_))
                            (_%__kont168652168653%_ _%L164359%_ _%L164360%_)
                            (_%__kont168654168655%_))))))
               (if (let ()
                     (declare (not safe))
                     (gx#stx-pair? _%__stx168650168651%_))
                   (let ((_%e164332164351%_
                          (let ()
                            (declare (not safe))
                            (gx#stx-e _%__stx168650168651%_))))
                     (let ((_%tl164334164356%_
                            (let ()
                              (declare (not safe))
                              (##cdr _%e164332164351%_)))
                           (_%hd164333164354%_
                            (let ()
                              (declare (not safe))
                              (##car _%e164332164351%_))))
                       (_%__match168661168662%_
                        _%e164332164351%_
                        _%hd164333164354%_
                        _%tl164334164356%_)))
                   (_%__kont168654168655%_))))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                               _%hd164276164306%_
                                               _%hd164273164298%_)
                                              (_%g164265164282%_
                                               _%g164266164285%_))))
                                      (_%g164265164282%_ _%g164266164285%_))))
                              (_%g164265164282%_ _%g164266164285%_))))
                      (_%g164265164282%_ _%g164266164285%_)))))
          (_%g164264164381%_ _%stx164263%_))))
    (define gxc#basic-expression-type-annotation-typedecl
      (lambda (_%stx164210%_ _%ann164211%_)
        (let* ((_%g164213164226%_
                (lambda (_%g164214164223%_)
                  (let ()
                    (declare (not safe))
                    (gx#raise-syntax-error
                     '#f
                     '"Bad syntax; invalid match target"
                     _%g164214164223%_))))
               (_%g164212164259%_
                (lambda (_%g164214164229%_)
                  (if (let ()
                        (declare (not safe))
                        (gx#stx-pair? _%g164214164229%_))
                      (let ((_%e164216164231%_
                             (let ()
                               (declare (not safe))
                               (gx#stx-e _%g164214164229%_))))
                        (let ((_%hd164217164234%_
                               (let ()
                                 (declare (not safe))
                                 (##car _%e164216164231%_)))
                              (_%tl164218164236%_
                               (let ()
                                 (declare (not safe))
                                 (##cdr _%e164216164231%_))))
                          (if (let ()
                                (declare (not safe))
                                (gx#stx-pair? _%tl164218164236%_))
                              (let ((_%e164219164239%_
                                     (let ()
                                       (declare (not safe))
                                       (gx#stx-e _%tl164218164236%_))))
                                (let ((_%hd164220164242%_
                                       (let ()
                                         (declare (not safe))
                                         (##car _%e164219164239%_)))
                                      (_%tl164221164244%_
                                       (let ()
                                         (declare (not safe))
                                         (##cdr _%e164219164239%_))))
                                  (if (let ()
                                        (declare (not safe))
                                        (gx#stx-null? _%tl164221164244%_))
                                      ((lambda (_%L164247%_)
                                         (let ((__tmp170982
                                                (let ()
                                                  (declare (not safe))
                                                  (gxc#identifier-symbol
                                                   _%L164247%_))))
                                           (declare (not safe))
                                           (gxc#optimizer-resolve-class
                                            _%stx164210%_
                                            __tmp170982)))
                                       _%hd164220164242%_)
                                      (_%g164213164226%_ _%g164214164229%_))))
                              (_%g164213164226%_ _%g164214164229%_))))
                      (_%g164213164226%_ _%g164214164229%_)))))
          (_%g164212164259%_ _%ann164211%_))))
    (define gxc#basic-expression-type-annotation-mop.class
      (lambda (_%stx164054%_ _%ann164055%_)
        (let* ((_%g164057164094%_
                (lambda (_%g164058164091%_)
                  (let ()
                    (declare (not safe))
                    (gx#raise-syntax-error
                     '#f
                     '"Bad syntax; invalid match target"
                     _%g164058164091%_))))
               (_%g164056164207%_
                (lambda (_%g164058164097%_)
                  (if (let ()
                        (declare (not safe))
                        (gx#stx-pair? _%g164058164097%_))
                      (let ((_%e164066164099%_
                             (let ()
                               (declare (not safe))
                               (gx#stx-e _%g164058164097%_))))
                        (let ((_%hd164067164102%_
                               (let ()
                                 (declare (not safe))
                                 (##car _%e164066164099%_)))
                              (_%tl164068164104%_
                               (let ()
                                 (declare (not safe))
                                 (##cdr _%e164066164099%_))))
                          (if (let ()
                                (declare (not safe))
                                (gx#stx-pair? _%tl164068164104%_))
                              (let ((_%e164069164107%_
                                     (let ()
                                       (declare (not safe))
                                       (gx#stx-e _%tl164068164104%_))))
                                (let ((_%hd164070164110%_
                                       (let ()
                                         (declare (not safe))
                                         (##car _%e164069164107%_)))
                                      (_%tl164071164112%_
                                       (let ()
                                         (declare (not safe))
                                         (##cdr _%e164069164107%_))))
                                  (if (let ()
                                        (declare (not safe))
                                        (gx#stx-pair? _%tl164071164112%_))
                                      (let ((_%e164072164115%_
                                             (let ()
                                               (declare (not safe))
                                               (gx#stx-e _%tl164071164112%_))))
                                        (let ((_%hd164073164118%_
                                               (let ()
                                                 (declare (not safe))
                                                 (##car _%e164072164115%_)))
                                              (_%tl164074164120%_
                                               (let ()
                                                 (declare (not safe))
                                                 (##cdr _%e164072164115%_))))
                                          (if (let ()
                                                (declare (not safe))
                                                (gx#stx-pair?
                                                 _%tl164074164120%_))
                                              (let ((_%e164075164123%_
                                                     (let ()
                                                       (declare (not safe))
                                                       (gx#stx-e
                                                        _%tl164074164120%_))))
                                                (let ((_%hd164076164126%_
                                                       (let ()
                                                         (declare (not safe))
                                                         (##car _%e164075164123%_)))
                                                      (_%tl164077164128%_
                                                       (let ()
                                                         (declare (not safe))
                                                         (##cdr _%e164075164123%_))))
                                                  (if (let ()
                                                        (declare (not safe))
                                                        (gx#stx-pair?
                                                         _%tl164077164128%_))
                                                      (let ((_%e164078164131%_
                                                             (let ()
                                                               (declare
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                         (not safe))
                       (gx#stx-e _%tl164077164128%_))))
                (let ((_%hd164079164134%_
                       (let () (declare (not safe)) (##car _%e164078164131%_)))
                      (_%tl164080164136%_
                       (let ()
                         (declare (not safe))
                         (##cdr _%e164078164131%_))))
                  (if (let ()
                        (declare (not safe))
                        (gx#stx-pair? _%tl164080164136%_))
                      (let ((_%e164081164139%_
                             (let ()
                               (declare (not safe))
                               (gx#stx-e _%tl164080164136%_))))
                        (let ((_%hd164082164142%_
                               (let ()
                                 (declare (not safe))
                                 (##car _%e164081164139%_)))
                              (_%tl164083164144%_
                               (let ()
                                 (declare (not safe))
                                 (##cdr _%e164081164139%_))))
                          (if (let ()
                                (declare (not safe))
                                (gx#stx-pair? _%tl164083164144%_))
                              (let ((_%e164084164147%_
                                     (let ()
                                       (declare (not safe))
                                       (gx#stx-e _%tl164083164144%_))))
                                (let ((_%hd164085164150%_
                                       (let ()
                                         (declare (not safe))
                                         (##car _%e164084164147%_)))
                                      (_%tl164086164152%_
                                       (let ()
                                         (declare (not safe))
                                         (##cdr _%e164084164147%_))))
                                  (if (let ()
                                        (declare (not safe))
                                        (gx#stx-pair? _%tl164086164152%_))
                                      (let ((_%e164087164155%_
                                             (let ()
                                               (declare (not safe))
                                               (gx#stx-e _%tl164086164152%_))))
                                        (let ((_%hd164088164158%_
                                               (let ()
                                                 (declare (not safe))
                                                 (##car _%e164087164155%_)))
                                              (_%tl164089164160%_
                                               (let ()
                                                 (declare (not safe))
                                                 (##cdr _%e164087164155%_))))
                                          (if (let ()
                                                (declare (not safe))
                                                (gx#stx-null?
                                                 _%tl164089164160%_))
                                              ((lambda (_%L164163%_
                                                        _%L164164%_
                                                        _%L164165%_
                                                        _%L164166%_
                                                        _%L164167%_
                                                        _%L164168%_
                                                        _%L164169%_)
                                                 (let ((_%type-id164199%_
                                                        (let ()
                                                          (declare (not safe))
                                                          (gx#stx-e
                                                           _%L164169%_)))
                                                       (_%super164200%_
                                                        (let ()
                                                          (declare (not safe))
                                                          (gx#stx-map1
                                                           gxc#identifier-symbol
                                                           _%L164168%_)))
                                                       (_%slots164201%_
                                                        (let ()
                                                          (declare (not safe))
                                                          (gx#stx-map1
                                                           gx#stx-e
                                                           _%L164167%_)))
                                                       (_%ctor-method164202%_
                                                        (let ()
                                                          (declare (not safe))
                                                          (gx#stx-e
                                                           _%L164166%_)))
                                                       (_%struct?164203%_
                                                        (let ()
                                                          (declare (not safe))
                                                          (gx#stx-e
                                                           _%L164165%_)))
                                                       (_%final?164204%_
                                                        (let ()
                                                          (declare (not safe))
                                                          (gx#stx-e
                                                           _%L164164%_)))
                                                       (_%metaclass164205%_
                                                        (if (let ()
                                                              (declare
                                                                (not safe))
                                                              (gx#stx-e
                                                               _%L164163%_))
                                                            (let ()
                                                              (declare
                                                                (not safe))
                                                              (gxc#identifier-symbol
                                                               _%L164163%_))
                                                            '#f)))
                                                   (let ((__obj170818
                                                          (let ()
                                                            (declare
                                                              (not safe))
                                                            (##structure
                                                             gxc#!class-meta::t
                                                             '#f
                                                             '#f))))
                                                     (let ((__tmp170983
                                                            (let ((__obj170817
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                           (let ()
                             (declare (not safe))
                             (##structure
                              gxc#!class::t
                              '#f
                              '#f
                              '#f
                              '#f
                              '#f
                              '#f
                              '#f
                              '#f
                              '#f
                              '#f
                              '#f))))
                      (let ()
                        (declare (not safe))
                        (gxc#!class:::init!__0
                         __obj170817
                         _%type-id164199%_
                         _%super164200%_
                         _%slots164201%_
                         _%ctor-method164202%_
                         _%struct?164203%_
                         _%final?164204%_
                         '#f
                         _%metaclass164205%_))
                      __obj170817)))
               (declare (not safe))
               (gxc#!class-meta:::init! __obj170818 __tmp170983))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                                     __obj170818)))
                                               _%hd164088164158%_
                                               _%hd164085164150%_
                                               _%hd164082164142%_
                                               _%hd164079164134%_
                                               _%hd164076164126%_
                                               _%hd164073164118%_
                                               _%hd164070164110%_)
                                              (_%g164057164094%_
                                               _%g164058164097%_))))
                                      (_%g164057164094%_ _%g164058164097%_))))
                              (_%g164057164094%_ _%g164058164097%_))))
                      (_%g164057164094%_ _%g164058164097%_))))
              (_%g164057164094%_ _%g164058164097%_))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                              (_%g164057164094%_
                                               _%g164058164097%_))))
                                      (_%g164057164094%_ _%g164058164097%_))))
                              (_%g164057164094%_ _%g164058164097%_))))
                      (_%g164057164094%_ _%g164058164097%_)))))
          (_%g164056164207%_ _%ann164055%_))))
    (define gxc#basic-expression-type-annotation-mop.system
      (lambda (_%stx163983%_ _%ann163984%_)
        (let* ((_%g163986164003%_
                (lambda (_%g163987164000%_)
                  (let ()
                    (declare (not safe))
                    (gx#raise-syntax-error
                     '#f
                     '"Bad syntax; invalid match target"
                     _%g163987164000%_))))
               (_%g163985164051%_
                (lambda (_%g163987164006%_)
                  (if (let ()
                        (declare (not safe))
                        (gx#stx-pair? _%g163987164006%_))
                      (let ((_%e163990164008%_
                             (let ()
                               (declare (not safe))
                               (gx#stx-e _%g163987164006%_))))
                        (let ((_%hd163991164011%_
                               (let ()
                                 (declare (not safe))
                                 (##car _%e163990164008%_)))
                              (_%tl163992164013%_
                               (let ()
                                 (declare (not safe))
                                 (##cdr _%e163990164008%_))))
                          (if (let ()
                                (declare (not safe))
                                (gx#stx-pair? _%tl163992164013%_))
                              (let ((_%e163993164016%_
                                     (let ()
                                       (declare (not safe))
                                       (gx#stx-e _%tl163992164013%_))))
                                (let ((_%hd163994164019%_
                                       (let ()
                                         (declare (not safe))
                                         (##car _%e163993164016%_)))
                                      (_%tl163995164021%_
                                       (let ()
                                         (declare (not safe))
                                         (##cdr _%e163993164016%_))))
                                  (if (let ()
                                        (declare (not safe))
                                        (gx#stx-pair? _%tl163995164021%_))
                                      (let ((_%e163996164024%_
                                             (let ()
                                               (declare (not safe))
                                               (gx#stx-e _%tl163995164021%_))))
                                        (let ((_%hd163997164027%_
                                               (let ()
                                                 (declare (not safe))
                                                 (##car _%e163996164024%_)))
                                              (_%tl163998164029%_
                                               (let ()
                                                 (declare (not safe))
                                                 (##cdr _%e163996164024%_))))
                                          (if (let ()
                                                (declare (not safe))
                                                (gx#stx-null?
                                                 _%tl163998164029%_))
                                              ((lambda (_%L164032%_
                                                        _%L164033%_)
                                                 (let ((_%type-id164048%_
                                                        (let ()
                                                          (declare (not safe))
                                                          (gx#stx-e
                                                           _%L164033%_)))
                                                       (_%super164049%_
                                                        (let ()
                                                          (declare (not safe))
                                                          (gx#stx-map1
                                                           gxc#identifier-symbol
                                                           _%L164032%_))))
                                                   (let ((__obj170820
                                                          (let ()
                                                            (declare
                                                              (not safe))
                                                            (##structure
                                                             gxc#!class-meta::t
                                                             '#f
                                                             '#f))))
                                                     (let ((__tmp170984
                                                            (let ((__obj170819
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                           (let ()
                             (declare (not safe))
                             (##structure
                              gxc#!class::t
                              '#f
                              '#f
                              '#f
                              '#f
                              '#f
                              '#f
                              '#f
                              '#f
                              '#f
                              '#f
                              '#f))))
                      (let ()
                        (declare (not safe))
                        (gxc#!class:::init!__0
                         __obj170819
                         _%type-id164048%_
                         _%super164049%_
                         '()
                         '#f
                         '#f
                         '#f
                         '#t
                         '#f))
                      __obj170819)))
               (declare (not safe))
               (gxc#!class-meta:::init! __obj170820 __tmp170984))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                                     __obj170820)))
                                               _%hd163997164027%_
                                               _%hd163994164019%_)
                                              (_%g163986164003%_
                                               _%g163987164006%_))))
                                      (_%g163986164003%_ _%g163987164006%_))))
                              (_%g163986164003%_ _%g163987164006%_))))
                      (_%g163986164003%_ _%g163987164006%_)))))
          (_%g163985164051%_ _%ann163984%_))))
    (define gxc#basic-expression-type-annotation-mop.constructor
      (lambda (_%stx163931%_ _%ann163932%_)
        (let* ((_%g163934163947%_
                (lambda (_%g163935163944%_)
                  (let ()
                    (declare (not safe))
                    (gx#raise-syntax-error
                     '#f
                     '"Bad syntax; invalid match target"
                     _%g163935163944%_))))
               (_%g163933163980%_
                (lambda (_%g163935163950%_)
                  (if (let ()
                        (declare (not safe))
                        (gx#stx-pair? _%g163935163950%_))
                      (let ((_%e163937163952%_
                             (let ()
                               (declare (not safe))
                               (gx#stx-e _%g163935163950%_))))
                        (let ((_%hd163938163955%_
                               (let ()
                                 (declare (not safe))
                                 (##car _%e163937163952%_)))
                              (_%tl163939163957%_
                               (let ()
                                 (declare (not safe))
                                 (##cdr _%e163937163952%_))))
                          (if (let ()
                                (declare (not safe))
                                (gx#stx-pair? _%tl163939163957%_))
                              (let ((_%e163940163960%_
                                     (let ()
                                       (declare (not safe))
                                       (gx#stx-e _%tl163939163957%_))))
                                (let ((_%hd163941163963%_
                                       (let ()
                                         (declare (not safe))
                                         (##car _%e163940163960%_)))
                                      (_%tl163942163965%_
                                       (let ()
                                         (declare (not safe))
                                         (##cdr _%e163940163960%_))))
                                  (if (let ()
                                        (declare (not safe))
                                        (gx#stx-null? _%tl163942163965%_))
                                      ((lambda (_%L163968%_)
                                         (let ((__obj170821
                                                (let ()
                                                  (declare (not safe))
                                                  (##structure
                                                   gxc#!constructor::t
                                                   '#f
                                                   '#f))))
                                           (let ((__tmp170985
                                                  (let ()
                                                    (declare (not safe))
                                                    (gxc#identifier-symbol
                                                     _%L163968%_))))
                                             (declare (not safe))
                                             (gxc#!constructor:::init!
                                              __obj170821
                                              __tmp170985))
                                           __obj170821))
                                       _%hd163941163963%_)
                                      (_%g163934163947%_ _%g163935163950%_))))
                              (_%g163934163947%_ _%g163935163950%_))))
                      (_%g163934163947%_ _%g163935163950%_)))))
          (_%g163933163980%_ _%ann163932%_))))
    (define gxc#basic-expression-type-annotation-mop.predicate
      (lambda (_%stx163879%_ _%ann163880%_)
        (let* ((_%g163882163895%_
                (lambda (_%g163883163892%_)
                  (let ()
                    (declare (not safe))
                    (gx#raise-syntax-error
                     '#f
                     '"Bad syntax; invalid match target"
                     _%g163883163892%_))))
               (_%g163881163928%_
                (lambda (_%g163883163898%_)
                  (if (let ()
                        (declare (not safe))
                        (gx#stx-pair? _%g163883163898%_))
                      (let ((_%e163885163900%_
                             (let ()
                               (declare (not safe))
                               (gx#stx-e _%g163883163898%_))))
                        (let ((_%hd163886163903%_
                               (let ()
                                 (declare (not safe))
                                 (##car _%e163885163900%_)))
                              (_%tl163887163905%_
                               (let ()
                                 (declare (not safe))
                                 (##cdr _%e163885163900%_))))
                          (if (let ()
                                (declare (not safe))
                                (gx#stx-pair? _%tl163887163905%_))
                              (let ((_%e163888163908%_
                                     (let ()
                                       (declare (not safe))
                                       (gx#stx-e _%tl163887163905%_))))
                                (let ((_%hd163889163911%_
                                       (let ()
                                         (declare (not safe))
                                         (##car _%e163888163908%_)))
                                      (_%tl163890163913%_
                                       (let ()
                                         (declare (not safe))
                                         (##cdr _%e163888163908%_))))
                                  (if (let ()
                                        (declare (not safe))
                                        (gx#stx-null? _%tl163890163913%_))
                                      ((lambda (_%L163916%_)
                                         (let ((__obj170822
                                                (let ()
                                                  (declare (not safe))
                                                  (##structure
                                                   gxc#!predicate::t
                                                   '#f
                                                   '#f))))
                                           (let ((__tmp170986
                                                  (let ()
                                                    (declare (not safe))
                                                    (gxc#identifier-symbol
                                                     _%L163916%_))))
                                             (declare (not safe))
                                             (gxc#!predicate:::init!
                                              __obj170822
                                              __tmp170986))
                                           __obj170822))
                                       _%hd163889163911%_)
                                      (_%g163882163895%_ _%g163883163898%_))))
                              (_%g163882163895%_ _%g163883163898%_))))
                      (_%g163882163895%_ _%g163883163898%_)))))
          (_%g163881163928%_ _%ann163880%_))))
    (define gxc#basic-expression-type-annotation-mop.accessor
      (lambda (_%stx163795%_ _%ann163796%_)
        (let* ((_%g163798163819%_
                (lambda (_%g163799163816%_)
                  (let ()
                    (declare (not safe))
                    (gx#raise-syntax-error
                     '#f
                     '"Bad syntax; invalid match target"
                     _%g163799163816%_))))
               (_%g163797163876%_
                (lambda (_%g163799163822%_)
                  (if (let ()
                        (declare (not safe))
                        (gx#stx-pair? _%g163799163822%_))
                      (let ((_%e163803163824%_
                             (let ()
                               (declare (not safe))
                               (gx#stx-e _%g163799163822%_))))
                        (let ((_%hd163804163827%_
                               (let ()
                                 (declare (not safe))
                                 (##car _%e163803163824%_)))
                              (_%tl163805163829%_
                               (let ()
                                 (declare (not safe))
                                 (##cdr _%e163803163824%_))))
                          (if (let ()
                                (declare (not safe))
                                (gx#stx-pair? _%tl163805163829%_))
                              (let ((_%e163806163832%_
                                     (let ()
                                       (declare (not safe))
                                       (gx#stx-e _%tl163805163829%_))))
                                (let ((_%hd163807163835%_
                                       (let ()
                                         (declare (not safe))
                                         (##car _%e163806163832%_)))
                                      (_%tl163808163837%_
                                       (let ()
                                         (declare (not safe))
                                         (##cdr _%e163806163832%_))))
                                  (if (let ()
                                        (declare (not safe))
                                        (gx#stx-pair? _%tl163808163837%_))
                                      (let ((_%e163809163840%_
                                             (let ()
                                               (declare (not safe))
                                               (gx#stx-e _%tl163808163837%_))))
                                        (let ((_%hd163810163843%_
                                               (let ()
                                                 (declare (not safe))
                                                 (##car _%e163809163840%_)))
                                              (_%tl163811163845%_
                                               (let ()
                                                 (declare (not safe))
                                                 (##cdr _%e163809163840%_))))
                                          (if (let ()
                                                (declare (not safe))
                                                (gx#stx-pair?
                                                 _%tl163811163845%_))
                                              (let ((_%e163812163848%_
                                                     (let ()
                                                       (declare (not safe))
                                                       (gx#stx-e
                                                        _%tl163811163845%_))))
                                                (let ((_%hd163813163851%_
                                                       (let ()
                                                         (declare (not safe))
                                                         (##car _%e163812163848%_)))
                                                      (_%tl163814163853%_
                                                       (let ()
                                                         (declare (not safe))
                                                         (##cdr _%e163812163848%_))))
                                                  (if (let ()
                                                        (declare (not safe))
                                                        (gx#stx-null?
                                                         _%tl163814163853%_))
                                                      ((lambda (_%L163856%_
                                                                _%L163857%_
                                                                _%L163858%_)
                                                         (let ((__obj170823
                                                                (let ()
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                          (declare (not safe))
                          (##structure gxc#!accessor::t '#f '#f '#f '#f))))
                   (let ((__tmp170989
                          (let ()
                            (declare (not safe))
                            (gxc#identifier-symbol _%L163858%_)))
                         (__tmp170988
                          (let () (declare (not safe)) (gx#stx-e _%L163857%_)))
                         (__tmp170987
                          (let ()
                            (declare (not safe))
                            (gx#stx-e _%L163856%_))))
                     (declare (not safe))
                     (gxc#!accessor:::init!
                      __obj170823
                      __tmp170989
                      __tmp170988
                      __tmp170987))
                   __obj170823))
               _%hd163813163851%_
               _%hd163810163843%_
               _%hd163807163835%_)
              (_%g163798163819%_ _%g163799163822%_))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                              (_%g163798163819%_
                                               _%g163799163822%_))))
                                      (_%g163798163819%_ _%g163799163822%_))))
                              (_%g163798163819%_ _%g163799163822%_))))
                      (_%g163798163819%_ _%g163799163822%_)))))
          (_%g163797163876%_ _%ann163796%_))))
    (define gxc#basic-expression-type-annotation-mop.mutator
      (lambda (_%stx163711%_ _%ann163712%_)
        (let* ((_%g163714163735%_
                (lambda (_%g163715163732%_)
                  (let ()
                    (declare (not safe))
                    (gx#raise-syntax-error
                     '#f
                     '"Bad syntax; invalid match target"
                     _%g163715163732%_))))
               (_%g163713163792%_
                (lambda (_%g163715163738%_)
                  (if (let ()
                        (declare (not safe))
                        (gx#stx-pair? _%g163715163738%_))
                      (let ((_%e163719163740%_
                             (let ()
                               (declare (not safe))
                               (gx#stx-e _%g163715163738%_))))
                        (let ((_%hd163720163743%_
                               (let ()
                                 (declare (not safe))
                                 (##car _%e163719163740%_)))
                              (_%tl163721163745%_
                               (let ()
                                 (declare (not safe))
                                 (##cdr _%e163719163740%_))))
                          (if (let ()
                                (declare (not safe))
                                (gx#stx-pair? _%tl163721163745%_))
                              (let ((_%e163722163748%_
                                     (let ()
                                       (declare (not safe))
                                       (gx#stx-e _%tl163721163745%_))))
                                (let ((_%hd163723163751%_
                                       (let ()
                                         (declare (not safe))
                                         (##car _%e163722163748%_)))
                                      (_%tl163724163753%_
                                       (let ()
                                         (declare (not safe))
                                         (##cdr _%e163722163748%_))))
                                  (if (let ()
                                        (declare (not safe))
                                        (gx#stx-pair? _%tl163724163753%_))
                                      (let ((_%e163725163756%_
                                             (let ()
                                               (declare (not safe))
                                               (gx#stx-e _%tl163724163753%_))))
                                        (let ((_%hd163726163759%_
                                               (let ()
                                                 (declare (not safe))
                                                 (##car _%e163725163756%_)))
                                              (_%tl163727163761%_
                                               (let ()
                                                 (declare (not safe))
                                                 (##cdr _%e163725163756%_))))
                                          (if (let ()
                                                (declare (not safe))
                                                (gx#stx-pair?
                                                 _%tl163727163761%_))
                                              (let ((_%e163728163764%_
                                                     (let ()
                                                       (declare (not safe))
                                                       (gx#stx-e
                                                        _%tl163727163761%_))))
                                                (let ((_%hd163729163767%_
                                                       (let ()
                                                         (declare (not safe))
                                                         (##car _%e163728163764%_)))
                                                      (_%tl163730163769%_
                                                       (let ()
                                                         (declare (not safe))
                                                         (##cdr _%e163728163764%_))))
                                                  (if (let ()
                                                        (declare (not safe))
                                                        (gx#stx-null?
                                                         _%tl163730163769%_))
                                                      ((lambda (_%L163772%_
                                                                _%L163773%_
                                                                _%L163774%_)
                                                         (let ((__obj170824
                                                                (let ()
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                          (declare (not safe))
                          (##structure gxc#!mutator::t '#f '#f '#f '#f))))
                   (let ((__tmp170992
                          (let ()
                            (declare (not safe))
                            (gxc#identifier-symbol _%L163774%_)))
                         (__tmp170991
                          (let () (declare (not safe)) (gx#stx-e _%L163773%_)))
                         (__tmp170990
                          (let ()
                            (declare (not safe))
                            (gx#stx-e _%L163772%_))))
                     (declare (not safe))
                     (gxc#!mutator:::init!
                      __obj170824
                      __tmp170992
                      __tmp170991
                      __tmp170990))
                   __obj170824))
               _%hd163729163767%_
               _%hd163726163759%_
               _%hd163723163751%_)
              (_%g163714163735%_ _%g163715163738%_))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                              (_%g163714163735%_
                                               _%g163715163738%_))))
                                      (_%g163714163735%_ _%g163715163738%_))))
                              (_%g163714163735%_ _%g163715163738%_))))
                      (_%g163714163735%_ _%g163715163738%_)))))
          (_%g163713163792%_ _%ann163712%_))))
    (define gxc#basic-expression-type-annotation-interface
      (lambda (_%stx163643%_ _%ann163644%_)
        (let* ((_%g163646163663%_
                (lambda (_%g163647163660%_)
                  (let ()
                    (declare (not safe))
                    (gx#raise-syntax-error
                     '#f
                     '"Bad syntax; invalid match target"
                     _%g163647163660%_))))
               (_%g163645163708%_
                (lambda (_%g163647163666%_)
                  (if (let ()
                        (declare (not safe))
                        (gx#stx-pair? _%g163647163666%_))
                      (let ((_%e163650163668%_
                             (let ()
                               (declare (not safe))
                               (gx#stx-e _%g163647163666%_))))
                        (let ((_%hd163651163671%_
                               (let ()
                                 (declare (not safe))
                                 (##car _%e163650163668%_)))
                              (_%tl163652163673%_
                               (let ()
                                 (declare (not safe))
                                 (##cdr _%e163650163668%_))))
                          (if (let ()
                                (declare (not safe))
                                (gx#stx-pair? _%tl163652163673%_))
                              (let ((_%e163653163676%_
                                     (let ()
                                       (declare (not safe))
                                       (gx#stx-e _%tl163652163673%_))))
                                (let ((_%hd163654163679%_
                                       (let ()
                                         (declare (not safe))
                                         (##car _%e163653163676%_)))
                                      (_%tl163655163681%_
                                       (let ()
                                         (declare (not safe))
                                         (##cdr _%e163653163676%_))))
                                  (if (let ()
                                        (declare (not safe))
                                        (gx#stx-pair? _%tl163655163681%_))
                                      (let ((_%e163656163684%_
                                             (let ()
                                               (declare (not safe))
                                               (gx#stx-e _%tl163655163681%_))))
                                        (let ((_%hd163657163687%_
                                               (let ()
                                                 (declare (not safe))
                                                 (##car _%e163656163684%_)))
                                              (_%tl163658163689%_
                                               (let ()
                                                 (declare (not safe))
                                                 (##cdr _%e163656163684%_))))
                                          (if (let ()
                                                (declare (not safe))
                                                (gx#stx-null?
                                                 _%tl163658163689%_))
                                              ((lambda (_%L163692%_
                                                        _%L163693%_)
                                                 (let ((__tmp170994
                                                        (let ()
                                                          (declare (not safe))
                                                          (gxc#identifier-symbol
                                                           _%L163693%_)))
                                                       (__tmp170993
                                                        (let ()
                                                          (declare (not safe))
                                                          (gx#stx-map1
                                                           gx#stx-e
                                                           _%L163692%_))))
                                                   (declare (not safe))
                                                   (##structure
                                                    gxc#!interface::t
                                                    __tmp170994
                                                    __tmp170993)))
                                               _%hd163657163687%_
                                               _%hd163654163679%_)
                                              (_%g163646163663%_
                                               _%g163647163666%_))))
                                      (_%g163646163663%_ _%g163647163666%_))))
                              (_%g163646163663%_ _%g163647163666%_))))
                      (_%g163646163663%_ _%g163647163666%_)))))
          (_%g163645163708%_ _%ann163644%_))))
    (define gxc#basic-expression-type-annotation-predicate
      (lambda (_%stx163591%_ _%ann163592%_)
        (let* ((_%g163594163607%_
                (lambda (_%g163595163604%_)
                  (let ()
                    (declare (not safe))
                    (gx#raise-syntax-error
                     '#f
                     '"Bad syntax; invalid match target"
                     _%g163595163604%_))))
               (_%g163593163640%_
                (lambda (_%g163595163610%_)
                  (if (let ()
                        (declare (not safe))
                        (gx#stx-pair? _%g163595163610%_))
                      (let ((_%e163597163612%_
                             (let ()
                               (declare (not safe))
                               (gx#stx-e _%g163595163610%_))))
                        (let ((_%hd163598163615%_
                               (let ()
                                 (declare (not safe))
                                 (##car _%e163597163612%_)))
                              (_%tl163599163617%_
                               (let ()
                                 (declare (not safe))
                                 (##cdr _%e163597163612%_))))
                          (if (let ()
                                (declare (not safe))
                                (gx#stx-pair? _%tl163599163617%_))
                              (let ((_%e163600163620%_
                                     (let ()
                                       (declare (not safe))
                                       (gx#stx-e _%tl163599163617%_))))
                                (let ((_%hd163601163623%_
                                       (let ()
                                         (declare (not safe))
                                         (##car _%e163600163620%_)))
                                      (_%tl163602163625%_
                                       (let ()
                                         (declare (not safe))
                                         (##cdr _%e163600163620%_))))
                                  (if (let ()
                                        (declare (not safe))
                                        (gx#stx-null? _%tl163602163625%_))
                                      ((lambda (_%L163628%_)
                                         (let ((__obj170825
                                                (let ()
                                                  (declare (not safe))
                                                  (##structure
                                                   gxc#!primitive-predicate::t
                                                   '#f
                                                   '#f))))
                                           (let ((__tmp170995
                                                  (let ()
                                                    (declare (not safe))
                                                    (gxc#identifier-symbol
                                                     _%L163628%_))))
                                             (declare (not safe))
                                             (gxc#!primitive-predicate:::init!
                                              __obj170825
                                              __tmp170995))
                                           __obj170825))
                                       _%hd163601163623%_)
                                      (_%g163594163607%_ _%g163595163610%_))))
                              (_%g163594163607%_ _%g163595163610%_))))
                      (_%g163594163607%_ _%g163595163610%_)))))
          (_%g163593163640%_ _%ann163592%_))))
    (define gxc#basic-expression-type-annotation-abort
      (lambda (_%stx163561%_ _%ann163562%_)
        (let* ((_%g163564163573%_
                (lambda (_%g163565163570%_)
                  (let ()
                    (declare (not safe))
                    (gx#raise-syntax-error
                     '#f
                     '"Bad syntax; invalid match target"
                     _%g163565163570%_))))
               (_%g163563163588%_
                (lambda (_%g163565163576%_)
                  (if (let ()
                        (declare (not safe))
                        (gx#stx-pair? _%g163565163576%_))
                      (let ((_%e163566163578%_
                             (let ()
                               (declare (not safe))
                               (gx#stx-e _%g163565163576%_))))
                        (let ((_%hd163567163581%_
                               (let ()
                                 (declare (not safe))
                                 (##car _%e163566163578%_)))
                              (_%tl163568163583%_
                               (let ()
                                 (declare (not safe))
                                 (##cdr _%e163566163578%_))))
                          (if (let ()
                                (declare (not safe))
                                (gx#stx-null? _%tl163568163583%_))
                              ((lambda ()
                                 (let ((__obj170826
                                        (let ()
                                          (declare (not safe))
                                          (##structure gxc#!abort::t '#f))))
                                   (let ()
                                     (declare (not safe))
                                     (gxc#!abort:::init! __obj170826))
                                   __obj170826)))
                              (_%g163564163573%_ _%g163565163576%_))))
                      (_%g163564163573%_ _%g163565163576%_)))))
          (_%g163563163588%_ _%ann163562%_))))
    (let ()
      (declare (not safe))
      (__hash-put!
       gxc#basic-expression-type-annotations
       '@mop.class
       gxc#basic-expression-type-annotation-mop.class))
    (let ()
      (declare (not safe))
      (__hash-put!
       gxc#basic-expression-type-annotations
       '@mop.constructor
       gxc#basic-expression-type-annotation-mop.constructor))
    (let ()
      (declare (not safe))
      (__hash-put!
       gxc#basic-expression-type-annotations
       '@mop.predicate
       gxc#basic-expression-type-annotation-mop.predicate))
    (let ()
      (declare (not safe))
      (__hash-put!
       gxc#basic-expression-type-annotations
       '@mop.accessor
       gxc#basic-expression-type-annotation-mop.accessor))
    (let ()
      (declare (not safe))
      (__hash-put!
       gxc#basic-expression-type-annotations
       '@mop.mutator
       gxc#basic-expression-type-annotation-mop.mutator))
    (let ()
      (declare (not safe))
      (__hash-put!
       gxc#basic-expression-type-annotations
       '@mop.system
       gxc#basic-expression-type-annotation-mop.system))
    (let ()
      (declare (not safe))
      (__hash-put!
       gxc#basic-expression-type-annotations
       '@interface
       gxc#basic-expression-type-annotation-interface))
    (let ()
      (declare (not safe))
      (__hash-put!
       gxc#basic-expression-type-annotations
       '@type
       gxc#basic-expression-type-annotation-typedecl))
    (let ()
      (declare (not safe))
      (__hash-put!
       gxc#basic-expression-type-annotations
       '@predicate
       gxc#basic-expression-type-annotation-predicate))
    (let ()
      (declare (not safe))
      (__hash-put!
       gxc#basic-expression-type-annotations
       '@abort
       gxc#basic-expression-type-annotation-abort))
    (define gxc#raw-expression-type-lambda%
      (lambda (_%self163493%_ _%stx163494%_)
        (let* ((_%__stx168664168665%_ _%stx163494%_)
               (_%g163497163511%_
                (lambda ()
                  (let ()
                    (declare (not safe))
                    (gx#raise-syntax-error
                     '#f
                     '"Bad syntax; invalid match target"
                     _%__stx168664168665%_)))))
          (let ((_%__kont168666168667%_
                 (lambda (_%L163549%_)
                   (let ((__obj170827
                          (let ()
                            (declare (not safe))
                            (##structure
                             gxc#!lambda::t
                             '#f
                             '#f
                             '#f
                             '#f
                             '#f
                             '#f))))
                     (let ((__tmp170997 (gxc#lambda-form-arity _%L163549%_))
                           (__tmp170996
                            (gxc#dispatch-lambda-form-delegate _%L163549%_)))
                       (declare (not safe))
                       (gxc#!lambda:::init!__%
                        '#f
                        absent-value
                        __obj170827
                        __tmp170997
                        __tmp170996))
                     __obj170827)))
                (_%__kont168668168669%_
                 (lambda (_%L163524%_)
                   (let* ((_%signature163534%_
                           (gxc#lambda-form-infer-signature _%L163524%_))
                          (__obj170828
                           (let ()
                             (declare (not safe))
                             (##structure
                              gxc#!lambda::t
                              '#f
                              '#f
                              '#f
                              '#f
                              '#f
                              '#f))))
                     (let ((__tmp170998 (gxc#lambda-form-arity _%L163524%_)))
                       (declare (not safe))
                       (gxc#!lambda:::init!__%
                        '#f
                        _%signature163534%_
                        __obj170828
                        __tmp170998
                        '#f))
                     __obj170828))))
            (let ((_%__match168675168676%_
                   (lambda (_%e163500163541%_
                            _%hd163501163544%_
                            _%tl163502163546%_)
                     (let ((_%L163549%_ _%tl163502163546%_))
                       (if (gxc#dispatch-lambda-form? _%L163549%_)
                           (_%__kont168666168667%_ _%L163549%_)
                           (_%__kont168668168669%_ _%tl163502163546%_))))))
              (if (let ()
                    (declare (not safe))
                    (gx#stx-pair? _%__stx168664168665%_))
                  (let ((_%e163500163541%_
                         (let ()
                           (declare (not safe))
                           (gx#stx-e _%__stx168664168665%_))))
                    (let ((_%tl163502163546%_
                           (let ()
                             (declare (not safe))
                             (##cdr _%e163500163541%_)))
                          (_%hd163501163544%_
                           (let ()
                             (declare (not safe))
                             (##car _%e163500163541%_))))
                      (_%__match168675168676%_
                       _%e163500163541%_
                       _%hd163501163544%_
                       _%tl163502163546%_)))
                  (let () (declare (not safe)) (_%g163497163511%_))))))))
    (define gxc#basic-expression-type-lambda%
      (lambda (_%self162637%_ _%stx162638%_)
        (let* ((_%__stx168684168685%_ _%stx162638%_)
               (_%g162643162835%_
                (lambda ()
                  (let ()
                    (declare (not safe))
                    (gx#raise-syntax-error
                     '#f
                     '"Bad syntax; invalid match target"
                     _%__stx168684168685%_)))))
          (let ((_%__kont168686168687%_
                 (lambda (_%L163430%_
                          _%L163431%_
                          _%L163432%_
                          _%L163433%_
                          _%L163434%_
                          _%L163435%_)
                   (let* ((_%tab163485%_
                           (let ()
                             (declare (not safe))
                             (gx#stx-e _%L163432%_)))
                          (_%keys163487%_
                           (if _%tab163485%_
                               (let ((__tmp170999
                                      (vector->list _%tab163485%_)))
                                 (declare (not safe))
                                 (##filter identity __tmp170999))
                               '#f))
                          (__obj170829
                           (let ()
                             (declare (not safe))
                             (##structure gxc#!kw-lambda::t '#f '#f '#f '#f))))
                     (let ((__tmp171000
                            (let ()
                              (declare (not safe))
                              (gxc#identifier-symbol _%L163431%_))))
                       (declare (not safe))
                       (gxc#!kw-lambda:::init!
                        __obj170829
                        _%keys163487%_
                        __tmp171000))
                     __obj170829)))
                (_%__kont168688168689%_
                 (lambda (_%L163163%_
                          _%L163164%_
                          _%L163165%_
                          _%L163166%_
                          _%L163167%_
                          _%L163168%_
                          _%L163169%_
                          _%L163170%_
                          _%L163171%_
                          _%L163172%_)
                   (let ((__obj170830
                          (let ()
                            (declare (not safe))
                            (##structure
                             gxc#!kw-lambda-primary::t
                             '#f
                             '#f
                             '#f
                             '#f))))
                     (let ((__tmp171002
                            (map gx#stx-e
                                 (let ((__tmp171003
                                        (lambda (_%g163265163268%_
                                                 _%g163266163270%_)
                                          (cons _%g163265163268%_
                                                _%g163266163270%_))))
                                   (declare (not safe))
                                   (__foldr1 __tmp171003 '() _%L163165%_))))
                           (__tmp171001
                            (let ()
                              (declare (not safe))
                              (gxc#identifier-symbol _%L163169%_))))
                       (declare (not safe))
                       (gxc#!kw-lambda-primary:::init!
                        __obj170830
                        __tmp171002
                        __tmp171001))
                     __obj170830)))
                (_%__kont168692168693%_
                 (lambda (_%L162873%_)
                   (let ((__obj170831
                          (let ()
                            (declare (not safe))
                            (##structure
                             gxc#!lambda::t
                             '#f
                             '#f
                             '#f
                             '#f
                             '#f
                             '#f))))
                     (let ((__tmp171005 (gxc#lambda-form-arity _%L162873%_))
                           (__tmp171004
                            (gxc#dispatch-lambda-form-delegate _%L162873%_)))
                       (declare (not safe))
                       (gxc#!lambda:::init!__%
                        '#f
                        absent-value
                        __obj170831
                        __tmp171005
                        __tmp171004))
                     __obj170831)))
                (_%__kont168694168695%_
                 (lambda (_%L162848%_)
                   (let* ((_%signature162858%_
                           (gxc#lambda-form-infer-signature _%L162848%_))
                          (__obj170832
                           (let ()
                             (declare (not safe))
                             (##structure
                              gxc#!lambda::t
                              '#f
                              '#f
                              '#f
                              '#f
                              '#f
                              '#f))))
                     (let ((__tmp171006 (gxc#lambda-form-arity _%L162848%_)))
                       (declare (not safe))
                       (gxc#!lambda:::init!__%
                        '#f
                        _%signature162858%_
                        __obj170832
                        __tmp171006
                        '#f))
                     __obj170832))))
            (let* ((_%__match168993168994%_
                    (lambda (_%e162824162865%_
                             _%hd162825162868%_
                             _%tl162826162870%_)
                      (let ((_%L162873%_ _%tl162826162870%_))
                        (if (gxc#dispatch-lambda-form? _%L162873%_)
                            (_%__kont168692168693%_ _%L162873%_)
                            (_%__kont168694168695%_ _%tl162826162870%_)))))
                   (_%__match168987168988%_
                    (lambda (_%e162718162887%_
                             _%hd162719162890%_
                             _%tl162720162892%_
                             _%e162721162895%_
                             _%hd162722162898%_
                             _%tl162723162900%_
                             _%e162724162903%_
                             _%hd162725162906%_
                             _%tl162726162908%_
                             _%e162727162911%_
                             _%hd162728162914%_
                             _%tl162729162916%_
                             _%e162730162919%_
                             _%hd162731162922%_
                             _%tl162732162924%_
                             _%e162733162927%_
                             _%hd162734162930%_
                             _%tl162735162932%_
                             _%e162736162935%_
                             _%hd162737162938%_
                             _%tl162738162940%_
                             _%e162739162943%_
                             _%hd162740162946%_
                             _%tl162741162948%_
                             _%e162742162951%_
                             _%hd162743162954%_
                             _%tl162744162956%_
                             _%e162745162959%_
                             _%hd162746162962%_
                             _%tl162747162964%_
                             _%e162748162967%_
                             _%hd162749162970%_
                             _%tl162750162972%_
                             _%e162751162975%_
                             _%hd162752162978%_
                             _%tl162753162980%_
                             _%e162754162983%_
                             _%hd162755162986%_
                             _%tl162756162988%_
                             _%e162757162991%_
                             _%hd162758162994%_
                             _%tl162759162996%_
                             _%__splice168690168691%_
                             _%target162760162999%_
                             _%tl162762163001%_
                             _%e162775163004%_
                             _%hd162776163007%_
                             _%tl162777163009%_
                             _%e162778163012%_
                             _%hd162779163015%_
                             _%tl162780163017%_
                             _%e162781163020%_
                             _%hd162782163023%_
                             _%tl162783163025%_)
                      (letrec ((_%loop162763163028%_
                                (lambda (_%hd162761163031%_
                                         _%-absent-value162767163033%_
                                         _%key162768163035%_
                                         _%-xkwvar162769163037%_
                                         _%-hash-ref162770163039%_)
                                  (if (let ()
                                        (declare (not safe))
                                        (gx#stx-pair? _%hd162761163031%_))
                                      (let ((_%e162764163042%_
                                             (let ()
                                               (declare (not safe))
                                               (gx#stx-e _%hd162761163031%_))))
                                        (let ((_%lp-tl162766163047%_
                                               (let ()
                                                 (declare (not safe))
                                                 (##cdr _%e162764163042%_)))
                                              (_%lp-hd162765163045%_
                                               (let ()
                                                 (declare (not safe))
                                                 (##car _%e162764163042%_))))
                                          (if (let ()
                                                (declare (not safe))
                                                (gx#stx-pair?
                                                 _%lp-hd162765163045%_))
                                              (let ((_%e162784163050%_
                                                     (let ()
                                                       (declare (not safe))
                                                       (gx#stx-e
                                                        _%lp-hd162765163045%_))))
                                                (let ((_%tl162786163055%_
                                                       (let ()
                                                         (declare (not safe))
                                                         (##cdr _%e162784163050%_)))
                                                      (_%hd162785163053%_
                                                       (let ()
                                                         (declare (not safe))
                                                         (##car _%e162784163050%_))))
                                                  (if (let ()
                                                        (declare (not safe))
                                                        (gx#identifier?
                                                         _%hd162785163053%_))
                                                      (if (let ()
                                                            (declare
                                                              (not safe))
                                                            (gx#stx-eq?
                                                             '%#call
                                                             _%hd162785163053%_))
                                                          (if (let ()
                                                                (declare
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                          (not safe))
                        (gx#stx-pair? _%tl162786163055%_))
                      (let ((_%e162787163058%_
                             (let ()
                               (declare (not safe))
                               (gx#stx-e _%tl162786163055%_))))
                        (let ((_%tl162789163063%_
                               (let ()
                                 (declare (not safe))
                                 (##cdr _%e162787163058%_)))
                              (_%hd162788163061%_
                               (let ()
                                 (declare (not safe))
                                 (##car _%e162787163058%_))))
                          (if (let ()
                                (declare (not safe))
                                (gx#stx-pair? _%hd162788163061%_))
                              (let ((_%e162790163066%_
                                     (let ()
                                       (declare (not safe))
                                       (gx#stx-e _%hd162788163061%_))))
                                (let ((_%tl162792163071%_
                                       (let ()
                                         (declare (not safe))
                                         (##cdr _%e162790163066%_)))
                                      (_%hd162791163069%_
                                       (let ()
                                         (declare (not safe))
                                         (##car _%e162790163066%_))))
                                  (if (let ()
                                        (declare (not safe))
                                        (gx#identifier? _%hd162791163069%_))
                                      (if (let ()
                                            (declare (not safe))
                                            (gx#stx-eq?
                                             '%#ref
                                             _%hd162791163069%_))
                                          (if (let ()
                                                (declare (not safe))
                                                (gx#stx-pair?
                                                 _%tl162792163071%_))
                                              (let ((_%e162793163074%_
                                                     (let ()
                                                       (declare (not safe))
                                                       (gx#stx-e
                                                        _%tl162792163071%_))))
                                                (let ((_%tl162795163079%_
                                                       (let ()
                                                         (declare (not safe))
                                                         (##cdr _%e162793163074%_)))
                                                      (_%hd162794163077%_
                                                       (let ()
                                                         (declare (not safe))
                                                         (##car _%e162793163074%_))))
                                                  (if (let ()
                                                        (declare (not safe))
                                                        (gx#stx-null?
                                                         _%tl162795163079%_))
                                                      (if (let ()
                                                            (declare
                                                              (not safe))
                                                            (gx#stx-pair?
                                                             _%tl162789163063%_))
                                                          (let ((_%e162796163082%_
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                         (let ()
                           (declare (not safe))
                           (gx#stx-e _%tl162789163063%_))))
                    (let ((_%tl162798163087%_
                           (let ()
                             (declare (not safe))
                             (##cdr _%e162796163082%_)))
                          (_%hd162797163085%_
                           (let ()
                             (declare (not safe))
                             (##car _%e162796163082%_))))
                      (if (let ()
                            (declare (not safe))
                            (gx#stx-pair? _%hd162797163085%_))
                          (let ((_%e162799163090%_
                                 (let ()
                                   (declare (not safe))
                                   (gx#stx-e _%hd162797163085%_))))
                            (let ((_%tl162801163095%_
                                   (let ()
                                     (declare (not safe))
                                     (##cdr _%e162799163090%_)))
                                  (_%hd162800163093%_
                                   (let ()
                                     (declare (not safe))
                                     (##car _%e162799163090%_))))
                              (if (let ()
                                    (declare (not safe))
                                    (gx#identifier? _%hd162800163093%_))
                                  (if (let ()
                                        (declare (not safe))
                                        (gx#stx-eq? '%#ref _%hd162800163093%_))
                                      (if (let ()
                                            (declare (not safe))
                                            (gx#stx-pair? _%tl162801163095%_))
                                          (let ((_%e162802163098%_
                                                 (let ()
                                                   (declare (not safe))
                                                   (gx#stx-e
                                                    _%tl162801163095%_))))
                                            (let ((_%tl162804163103%_
                                                   (let ()
                                                     (declare (not safe))
                                                     (##cdr _%e162802163098%_)))
                                                  (_%hd162803163101%_
                                                   (let ()
                                                     (declare (not safe))
                                                     (##car _%e162802163098%_))))
                                              (if (let ()
                                                    (declare (not safe))
                                                    (gx#stx-null?
                                                     _%tl162804163103%_))
                                                  (if (let ()
                                                        (declare (not safe))
                                                        (gx#stx-pair?
                                                         _%tl162798163087%_))
                                                      (let ((_%e162805163106%_
                                                             (let ()
                                                               (declare
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                         (not safe))
                       (gx#stx-e _%tl162798163087%_))))
                (let ((_%tl162807163111%_
                       (let () (declare (not safe)) (##cdr _%e162805163106%_)))
                      (_%hd162806163109%_
                       (let ()
                         (declare (not safe))
                         (##car _%e162805163106%_))))
                  (if (let ()
                        (declare (not safe))
                        (gx#stx-pair? _%hd162806163109%_))
                      (let ((_%e162808163114%_
                             (let ()
                               (declare (not safe))
                               (gx#stx-e _%hd162806163109%_))))
                        (let ((_%tl162810163119%_
                               (let ()
                                 (declare (not safe))
                                 (##cdr _%e162808163114%_)))
                              (_%hd162809163117%_
                               (let ()
                                 (declare (not safe))
                                 (##car _%e162808163114%_))))
                          (if (let ()
                                (declare (not safe))
                                (gx#identifier? _%hd162809163117%_))
                              (if (let ()
                                    (declare (not safe))
                                    (gx#stx-eq? '%#quote _%hd162809163117%_))
                                  (if (let ()
                                        (declare (not safe))
                                        (gx#stx-pair? _%tl162810163119%_))
                                      (let ((_%e162811163122%_
                                             (let ()
                                               (declare (not safe))
                                               (gx#stx-e _%tl162810163119%_))))
                                        (let ((_%tl162813163127%_
                                               (let ()
                                                 (declare (not safe))
                                                 (##cdr _%e162811163122%_)))
                                              (_%hd162812163125%_
                                               (let ()
                                                 (declare (not safe))
                                                 (##car _%e162811163122%_))))
                                          (if (let ()
                                                (declare (not safe))
                                                (gx#stx-null?
                                                 _%tl162813163127%_))
                                              (if (let ()
                                                    (declare (not safe))
                                                    (gx#stx-pair?
                                                     _%tl162807163111%_))
                                                  (let ((_%e162814163130%_
                                                         (let ()
                                                           (declare (not safe))
                                                           (gx#stx-e
                                                            _%tl162807163111%_))))
                                                    (let ((_%tl162816163135%_
                                                           (let ()
                                                             (declare
                                                               (not safe))
                                                             (##cdr _%e162814163130%_)))
                                                          (_%hd162815163133%_
                                                           (let ()
                                                             (declare
                                                               (not safe))
                                                             (##car _%e162814163130%_))))
                                                      (if (let ()
                                                            (declare
                                                              (not safe))
                                                            (gx#stx-pair?
                                                             _%hd162815163133%_))
                                                          (let ((_%e162817163138%_
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                         (let ()
                           (declare (not safe))
                           (gx#stx-e _%hd162815163133%_))))
                    (let ((_%tl162819163143%_
                           (let ()
                             (declare (not safe))
                             (##cdr _%e162817163138%_)))
                          (_%hd162818163141%_
                           (let ()
                             (declare (not safe))
                             (##car _%e162817163138%_))))
                      (if (let ()
                            (declare (not safe))
                            (gx#identifier? _%hd162818163141%_))
                          (if (let ()
                                (declare (not safe))
                                (gx#stx-eq? '%#ref _%hd162818163141%_))
                              (if (let ()
                                    (declare (not safe))
                                    (gx#stx-pair? _%tl162819163143%_))
                                  (let ((_%e162820163146%_
                                         (let ()
                                           (declare (not safe))
                                           (gx#stx-e _%tl162819163143%_))))
                                    (let ((_%tl162822163151%_
                                           (let ()
                                             (declare (not safe))
                                             (##cdr _%e162820163146%_)))
                                          (_%hd162821163149%_
                                           (let ()
                                             (declare (not safe))
                                             (##car _%e162820163146%_))))
                                      (if (let ()
                                            (declare (not safe))
                                            (gx#stx-null? _%tl162822163151%_))
                                          (if (let ()
                                                (declare (not safe))
                                                (gx#stx-null?
                                                 _%tl162816163135%_))
                                              (_%loop162763163028%_
                                               _%lp-tl162766163047%_
                                               (cons _%hd162821163149%_
                                                     _%-absent-value162767163033%_)
                                               (cons _%hd162812163125%_
                                                     _%key162768163035%_)
                                               (cons _%hd162803163101%_
                                                     _%-xkwvar162769163037%_)
                                               (cons _%hd162794163077%_
                                                     _%-hash-ref162770163039%_))
                                              (_%__match168993168994%_
                                               _%e162718162887%_
                                               _%hd162719162890%_
                                               _%tl162720162892%_))
                                          (_%__match168993168994%_
                                           _%e162718162887%_
                                           _%hd162719162890%_
                                           _%tl162720162892%_))))
                                  (_%__match168993168994%_
                                   _%e162718162887%_
                                   _%hd162719162890%_
                                   _%tl162720162892%_))
                              (_%__match168993168994%_
                               _%e162718162887%_
                               _%hd162719162890%_
                               _%tl162720162892%_))
                          (_%__match168993168994%_
                           _%e162718162887%_
                           _%hd162719162890%_
                           _%tl162720162892%_))))
                  (_%__match168993168994%_
                   _%e162718162887%_
                   _%hd162719162890%_
                   _%tl162720162892%_))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                                  (_%__match168993168994%_
                                                   _%e162718162887%_
                                                   _%hd162719162890%_
                                                   _%tl162720162892%_))
                                              (_%__match168993168994%_
                                               _%e162718162887%_
                                               _%hd162719162890%_
                                               _%tl162720162892%_))))
                                      (_%__match168993168994%_
                                       _%e162718162887%_
                                       _%hd162719162890%_
                                       _%tl162720162892%_))
                                  (_%__match168993168994%_
                                   _%e162718162887%_
                                   _%hd162719162890%_
                                   _%tl162720162892%_))
                              (_%__match168993168994%_
                               _%e162718162887%_
                               _%hd162719162890%_
                               _%tl162720162892%_))))
                      (_%__match168993168994%_
                       _%e162718162887%_
                       _%hd162719162890%_
                       _%tl162720162892%_))))
              (_%__match168993168994%_
               _%e162718162887%_
               _%hd162719162890%_
               _%tl162720162892%_))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                                  (_%__match168993168994%_
                                                   _%e162718162887%_
                                                   _%hd162719162890%_
                                                   _%tl162720162892%_))))
                                          (_%__match168993168994%_
                                           _%e162718162887%_
                                           _%hd162719162890%_
                                           _%tl162720162892%_))
                                      (_%__match168993168994%_
                                       _%e162718162887%_
                                       _%hd162719162890%_
                                       _%tl162720162892%_))
                                  (_%__match168993168994%_
                                   _%e162718162887%_
                                   _%hd162719162890%_
                                   _%tl162720162892%_))))
                          (_%__match168993168994%_
                           _%e162718162887%_
                           _%hd162719162890%_
                           _%tl162720162892%_))))
                  (_%__match168993168994%_
                   _%e162718162887%_
                   _%hd162719162890%_
                   _%tl162720162892%_))
              (_%__match168993168994%_
               _%e162718162887%_
               _%hd162719162890%_
               _%tl162720162892%_))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                              (_%__match168993168994%_
                                               _%e162718162887%_
                                               _%hd162719162890%_
                                               _%tl162720162892%_))
                                          (_%__match168993168994%_
                                           _%e162718162887%_
                                           _%hd162719162890%_
                                           _%tl162720162892%_))
                                      (_%__match168993168994%_
                                       _%e162718162887%_
                                       _%hd162719162890%_
                                       _%tl162720162892%_))))
                              (_%__match168993168994%_
                               _%e162718162887%_
                               _%hd162719162890%_
                               _%tl162720162892%_))))
                      (_%__match168993168994%_
                       _%e162718162887%_
                       _%hd162719162890%_
                       _%tl162720162892%_))
                  (_%__match168993168994%_
                   _%e162718162887%_
                   _%hd162719162890%_
                   _%tl162720162892%_))
              (_%__match168993168994%_
               _%e162718162887%_
               _%hd162719162890%_
               _%tl162720162892%_))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                              (_%__match168993168994%_
                                               _%e162718162887%_
                                               _%hd162719162890%_
                                               _%tl162720162892%_))))
                                      (let ((_%-hash-ref162774163160%_
                                             (reverse _%-hash-ref162770163039%_))
                                            (_%-xkwvar162773163158%_
                                             (reverse _%-xkwvar162769163037%_))
                                            (_%key162772163156%_
                                             (reverse _%key162768163035%_))
                                            (_%-absent-value162771163154%_
                                             (reverse _%-absent-value162767163033%_)))
                                        (if (let ()
                                              (declare (not safe))
                                              (gx#stx-null?
                                               _%tl162729162916%_))
                                            (let ((_%L163163%_
                                                   _%hd162782163023%_)
                                                  (_%L163164%_
                                                   _%-absent-value162771163154%_)
                                                  (_%L163165%_
                                                   _%key162772163156%_)
                                                  (_%L163166%_
                                                   _%-xkwvar162773163158%_)
                                                  (_%L163167%_
                                                   _%-hash-ref162774163160%_)
                                                  (_%L163168%_
                                                   _%hd162758162994%_)
                                                  (_%L163169%_
                                                   _%hd162749162970%_)
                                                  (_%L163170%_
                                                   _%hd162740162946%_)
                                                  (_%L163171%_
                                                   _%tl162726162908%_)
                                                  (_%L163172%_
                                                   _%hd162725162906%_))
                                              (if (and (let ()
                                                         (declare (not safe))
                                                         (gx#identifier?
                                                          _%L163172%_))
                                                       (let ()
                                                         (declare (not safe))
                                                         (gx#identifier?
                                                          _%L163171%_))
                                                       (let ()
                                                         (declare (not safe))
                                                         (gxc#runtime-identifier=?
                                                          _%L163170%_
                                                          'apply))
                                                       (let ()
                                                         (declare (not safe))
                                                         (gx#free-identifier=?
                                                          _%L163172%_
                                                          _%L163168%_))
                                                       (let ((__tmp171007
                                                              (let ((__tmp171008
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                             (lambda (_%g163225163228%_ _%g163226163230%_)
                               (cons _%g163225163228%_ _%g163226163230%_))))
                        (declare (not safe))
                        (__foldr1 __tmp171008 '() _%L163165%_))))
                 (declare (not safe))
                 (__andmap1 gx#stx-keyword? __tmp171007))
               (let ((__tmp171011
                      (lambda (_%g163232163234%_)
                        (let ()
                          (declare (not safe))
                          (gxc#runtime-identifier=?
                           _%g163232163234%_
                           'symbolic-table-ref))))
                     (__tmp171009
                      (let ((__tmp171010
                             (lambda (_%g163236163239%_ _%g163237163241%_)
                               (cons _%g163236163239%_ _%g163237163241%_))))
                        (declare (not safe))
                        (__foldr1 __tmp171010 '() _%L163167%_))))
                 (declare (not safe))
                 (__andmap1 __tmp171011 __tmp171009))
               (let ((__tmp171014
                      (lambda (_%g163243163245%_)
                        (let ()
                          (declare (not safe))
                          (gxc#runtime-identifier=?
                           _%g163243163245%_
                           'absent-value))))
                     (__tmp171012
                      (let ((__tmp171013
                             (lambda (_%g163247163250%_ _%g163248163252%_)
                               (cons _%g163247163250%_ _%g163248163252%_))))
                        (declare (not safe))
                        (__foldr1 __tmp171013 '() _%L163164%_))))
                 (declare (not safe))
                 (__andmap1 __tmp171014 __tmp171012))
               (let ((__tmp171017
                      (lambda (_%g163254163256%_)
                        (let ()
                          (declare (not safe))
                          (gx#free-identifier=?
                           _%g163254163256%_
                           _%L163172%_))))
                     (__tmp171015
                      (let ((__tmp171016
                             (lambda (_%g163258163261%_ _%g163259163263%_)
                               (cons _%g163258163261%_ _%g163259163263%_))))
                        (declare (not safe))
                        (__foldr1 __tmp171016 '() _%L163166%_))))
                 (declare (not safe))
                 (__andmap1 __tmp171017 __tmp171015)))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                                  (_%__kont168688168689%_
                                                   _%L163163%_
                                                   _%L163164%_
                                                   _%L163165%_
                                                   _%L163166%_
                                                   _%L163167%_
                                                   _%L163168%_
                                                   _%L163169%_
                                                   _%L163170%_
                                                   _%L163171%_
                                                   _%L163172%_)
                                                  (_%__match168993168994%_
                                                   _%e162718162887%_
                                                   _%hd162719162890%_
                                                   _%tl162720162892%_)))
                                            (_%__match168993168994%_
                                             _%e162718162887%_
                                             _%hd162719162890%_
                                             _%tl162720162892%_)))))))
                        (_%loop162763163028%_
                         _%target162760162999%_
                         '()
                         '()
                         '()
                         '()))))
                   (_%__match168859168860%_
                    (lambda (_%e162718162887%_
                             _%hd162719162890%_
                             _%tl162720162892%_
                             _%e162721162895%_
                             _%hd162722162898%_
                             _%tl162723162900%_)
                      (if (let ()
                            (declare (not safe))
                            (gx#stx-pair? _%hd162722162898%_))
                          (let ((_%e162724162903%_
                                 (let ()
                                   (declare (not safe))
                                   (gx#stx-e _%hd162722162898%_))))
                            (let ((_%tl162726162908%_
                                   (let ()
                                     (declare (not safe))
                                     (##cdr _%e162724162903%_)))
                                  (_%hd162725162906%_
                                   (let ()
                                     (declare (not safe))
                                     (##car _%e162724162903%_))))
                              (if (let ()
                                    (declare (not safe))
                                    (gx#stx-pair? _%tl162723162900%_))
                                  (let ((_%e162727162911%_
                                         (let ()
                                           (declare (not safe))
                                           (gx#stx-e _%tl162723162900%_))))
                                    (let ((_%tl162729162916%_
                                           (let ()
                                             (declare (not safe))
                                             (##cdr _%e162727162911%_)))
                                          (_%hd162728162914%_
                                           (let ()
                                             (declare (not safe))
                                             (##car _%e162727162911%_))))
                                      (if (let ()
                                            (declare (not safe))
                                            (gx#stx-pair? _%hd162728162914%_))
                                          (let ((_%e162730162919%_
                                                 (let ()
                                                   (declare (not safe))
                                                   (gx#stx-e
                                                    _%hd162728162914%_))))
                                            (let ((_%tl162732162924%_
                                                   (let ()
                                                     (declare (not safe))
                                                     (##cdr _%e162730162919%_)))
                                                  (_%hd162731162922%_
                                                   (let ()
                                                     (declare (not safe))
                                                     (##car _%e162730162919%_))))
                                              (if (let ()
                                                    (declare (not safe))
                                                    (gx#identifier?
                                                     _%hd162731162922%_))
                                                  (if (let ()
                                                        (declare (not safe))
                                                        (gx#stx-eq?
                                                         '%#call
                                                         _%hd162731162922%_))
                                                      (if (let ()
                                                            (declare
                                                              (not safe))
                                                            (gx#stx-pair?
                                                             _%tl162732162924%_))
                                                          (let ((_%e162733162927%_
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                         (let ()
                           (declare (not safe))
                           (gx#stx-e _%tl162732162924%_))))
                    (let ((_%tl162735162932%_
                           (let ()
                             (declare (not safe))
                             (##cdr _%e162733162927%_)))
                          (_%hd162734162930%_
                           (let ()
                             (declare (not safe))
                             (##car _%e162733162927%_))))
                      (if (let ()
                            (declare (not safe))
                            (gx#stx-pair? _%hd162734162930%_))
                          (let ((_%e162736162935%_
                                 (let ()
                                   (declare (not safe))
                                   (gx#stx-e _%hd162734162930%_))))
                            (let ((_%tl162738162940%_
                                   (let ()
                                     (declare (not safe))
                                     (##cdr _%e162736162935%_)))
                                  (_%hd162737162938%_
                                   (let ()
                                     (declare (not safe))
                                     (##car _%e162736162935%_))))
                              (if (let ()
                                    (declare (not safe))
                                    (gx#identifier? _%hd162737162938%_))
                                  (if (let ()
                                        (declare (not safe))
                                        (gx#stx-eq? '%#ref _%hd162737162938%_))
                                      (if (let ()
                                            (declare (not safe))
                                            (gx#stx-pair? _%tl162738162940%_))
                                          (let ((_%e162739162943%_
                                                 (let ()
                                                   (declare (not safe))
                                                   (gx#stx-e
                                                    _%tl162738162940%_))))
                                            (let ((_%tl162741162948%_
                                                   (let ()
                                                     (declare (not safe))
                                                     (##cdr _%e162739162943%_)))
                                                  (_%hd162740162946%_
                                                   (let ()
                                                     (declare (not safe))
                                                     (##car _%e162739162943%_))))
                                              (if (let ()
                                                    (declare (not safe))
                                                    (gx#stx-null?
                                                     _%tl162741162948%_))
                                                  (if (let ()
                                                        (declare (not safe))
                                                        (gx#stx-pair?
                                                         _%tl162735162932%_))
                                                      (let ((_%e162742162951%_
                                                             (let ()
                                                               (declare
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                         (not safe))
                       (gx#stx-e _%tl162735162932%_))))
                (let ((_%tl162744162956%_
                       (let () (declare (not safe)) (##cdr _%e162742162951%_)))
                      (_%hd162743162954%_
                       (let ()
                         (declare (not safe))
                         (##car _%e162742162951%_))))
                  (if (let ()
                        (declare (not safe))
                        (gx#stx-pair? _%hd162743162954%_))
                      (let ((_%e162745162959%_
                             (let ()
                               (declare (not safe))
                               (gx#stx-e _%hd162743162954%_))))
                        (let ((_%tl162747162964%_
                               (let ()
                                 (declare (not safe))
                                 (##cdr _%e162745162959%_)))
                              (_%hd162746162962%_
                               (let ()
                                 (declare (not safe))
                                 (##car _%e162745162959%_))))
                          (if (let ()
                                (declare (not safe))
                                (gx#identifier? _%hd162746162962%_))
                              (if (let ()
                                    (declare (not safe))
                                    (gx#stx-eq? '%#ref _%hd162746162962%_))
                                  (if (let ()
                                        (declare (not safe))
                                        (gx#stx-pair? _%tl162747162964%_))
                                      (let ((_%e162748162967%_
                                             (let ()
                                               (declare (not safe))
                                               (gx#stx-e _%tl162747162964%_))))
                                        (let ((_%tl162750162972%_
                                               (let ()
                                                 (declare (not safe))
                                                 (##cdr _%e162748162967%_)))
                                              (_%hd162749162970%_
                                               (let ()
                                                 (declare (not safe))
                                                 (##car _%e162748162967%_))))
                                          (if (let ()
                                                (declare (not safe))
                                                (gx#stx-null?
                                                 _%tl162750162972%_))
                                              (if (let ()
                                                    (declare (not safe))
                                                    (gx#stx-pair?
                                                     _%tl162744162956%_))
                                                  (let ((_%e162751162975%_
                                                         (let ()
                                                           (declare (not safe))
                                                           (gx#stx-e
                                                            _%tl162744162956%_))))
                                                    (let ((_%tl162753162980%_
                                                           (let ()
                                                             (declare
                                                               (not safe))
                                                             (##cdr _%e162751162975%_)))
                                                          (_%hd162752162978%_
                                                           (let ()
                                                             (declare
                                                               (not safe))
                                                             (##car _%e162751162975%_))))
                                                      (if (let ()
                                                            (declare
                                                              (not safe))
                                                            (gx#stx-pair?
                                                             _%hd162752162978%_))
                                                          (let ((_%e162754162983%_
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                         (let ()
                           (declare (not safe))
                           (gx#stx-e _%hd162752162978%_))))
                    (let ((_%tl162756162988%_
                           (let ()
                             (declare (not safe))
                             (##cdr _%e162754162983%_)))
                          (_%hd162755162986%_
                           (let ()
                             (declare (not safe))
                             (##car _%e162754162983%_))))
                      (if (let ()
                            (declare (not safe))
                            (gx#identifier? _%hd162755162986%_))
                          (if (let ()
                                (declare (not safe))
                                (gx#stx-eq? '%#ref _%hd162755162986%_))
                              (if (let ()
                                    (declare (not safe))
                                    (gx#stx-pair? _%tl162756162988%_))
                                  (let ((_%e162757162991%_
                                         (let ()
                                           (declare (not safe))
                                           (gx#stx-e _%tl162756162988%_))))
                                    (let ((_%tl162759162996%_
                                           (let ()
                                             (declare (not safe))
                                             (##cdr _%e162757162991%_)))
                                          (_%hd162758162994%_
                                           (let ()
                                             (declare (not safe))
                                             (##car _%e162757162991%_))))
                                      (if (let ()
                                            (declare (not safe))
                                            (gx#stx-null? _%tl162759162996%_))
                                          (if (let ()
                                                (declare (not safe))
                                                (gx#stx-pair/null?
                                                 _%tl162753162980%_))
                                              (if (let ((__tmp171018
                                                         (let ()
                                                           (declare (not safe))
                                                           (gx#stx-length
                                                            _%tl162753162980%_))))
                                                    (declare (not safe))
                                                    (##fx>= __tmp171018 '1))
                                                  (let ((_%__splice168690168691%_
                                                         (let ()
                                                           (declare (not safe))
                                                           (gx#syntax-split-splice
                                                            _%tl162753162980%_
                                                            '1))))
                                                    (let ((_%tl162762163001%_
                                                           (let ()
                                                             (declare
                                                               (not safe))
                                                             (##vector-ref
                                                              _%__splice168690168691%_
                                                              '1)))
                                                          (_%target162760162999%_
                                                           (let ()
                                                             (declare
                                                               (not safe))
                                                             (##vector-ref
                                                              _%__splice168690168691%_
                                                              '0))))
                                                      (if (let ()
                                                            (declare
                                                              (not safe))
                                                            (gx#stx-pair?
                                                             _%tl162762163001%_))
                                                          (let ((_%e162775163004%_
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                         (let ()
                           (declare (not safe))
                           (gx#stx-e _%tl162762163001%_))))
                    (let ((_%tl162777163009%_
                           (let ()
                             (declare (not safe))
                             (##cdr _%e162775163004%_)))
                          (_%hd162776163007%_
                           (let ()
                             (declare (not safe))
                             (##car _%e162775163004%_))))
                      (if (let ()
                            (declare (not safe))
                            (gx#stx-pair? _%hd162776163007%_))
                          (let ((_%e162778163012%_
                                 (let ()
                                   (declare (not safe))
                                   (gx#stx-e _%hd162776163007%_))))
                            (let ((_%tl162780163017%_
                                   (let ()
                                     (declare (not safe))
                                     (##cdr _%e162778163012%_)))
                                  (_%hd162779163015%_
                                   (let ()
                                     (declare (not safe))
                                     (##car _%e162778163012%_))))
                              (if (let ()
                                    (declare (not safe))
                                    (gx#identifier? _%hd162779163015%_))
                                  (if (let ()
                                        (declare (not safe))
                                        (gx#stx-eq? '%#ref _%hd162779163015%_))
                                      (if (let ()
                                            (declare (not safe))
                                            (gx#stx-pair? _%tl162780163017%_))
                                          (let ((_%e162781163020%_
                                                 (let ()
                                                   (declare (not safe))
                                                   (gx#stx-e
                                                    _%tl162780163017%_))))
                                            (let ((_%tl162783163025%_
                                                   (let ()
                                                     (declare (not safe))
                                                     (##cdr _%e162781163020%_)))
                                                  (_%hd162782163023%_
                                                   (let ()
                                                     (declare (not safe))
                                                     (##car _%e162781163020%_))))
                                              (if (let ()
                                                    (declare (not safe))
                                                    (gx#stx-null?
                                                     _%tl162783163025%_))
                                                  (if (let ()
                                                        (declare (not safe))
                                                        (gx#stx-null?
                                                         _%tl162777163009%_))
                                                      (_%__match168987168988%_
                                                       _%e162718162887%_
                                                       _%hd162719162890%_
                                                       _%tl162720162892%_
                                                       _%e162721162895%_
                                                       _%hd162722162898%_
                                                       _%tl162723162900%_
                                                       _%e162724162903%_
                                                       _%hd162725162906%_
                                                       _%tl162726162908%_
                                                       _%e162727162911%_
                                                       _%hd162728162914%_
                                                       _%tl162729162916%_
                                                       _%e162730162919%_
                                                       _%hd162731162922%_
                                                       _%tl162732162924%_
                                                       _%e162733162927%_
                                                       _%hd162734162930%_
                                                       _%tl162735162932%_
                                                       _%e162736162935%_
                                                       _%hd162737162938%_
                                                       _%tl162738162940%_
                                                       _%e162739162943%_
                                                       _%hd162740162946%_
                                                       _%tl162741162948%_
                                                       _%e162742162951%_
                                                       _%hd162743162954%_
                                                       _%tl162744162956%_
                                                       _%e162745162959%_
                                                       _%hd162746162962%_
                                                       _%tl162747162964%_
                                                       _%e162748162967%_
                                                       _%hd162749162970%_
                                                       _%tl162750162972%_
                                                       _%e162751162975%_
                                                       _%hd162752162978%_
                                                       _%tl162753162980%_
                                                       _%e162754162983%_
                                                       _%hd162755162986%_
                                                       _%tl162756162988%_
                                                       _%e162757162991%_
                                                       _%hd162758162994%_
                                                       _%tl162759162996%_
                                                       _%__splice168690168691%_
                                                       _%target162760162999%_
                                                       _%tl162762163001%_
                                                       _%e162775163004%_
                                                       _%hd162776163007%_
                                                       _%tl162777163009%_
                                                       _%e162778163012%_
                                                       _%hd162779163015%_
                                                       _%tl162780163017%_
                                                       _%e162781163020%_
                                                       _%hd162782163023%_
                                                       _%tl162783163025%_)
                                                      (_%__match168993168994%_
                                                       _%e162718162887%_
                                                       _%hd162719162890%_
                                                       _%tl162720162892%_))
                                                  (_%__match168993168994%_
                                                   _%e162718162887%_
                                                   _%hd162719162890%_
                                                   _%tl162720162892%_))))
                                          (_%__match168993168994%_
                                           _%e162718162887%_
                                           _%hd162719162890%_
                                           _%tl162720162892%_))
                                      (_%__match168993168994%_
                                       _%e162718162887%_
                                       _%hd162719162890%_
                                       _%tl162720162892%_))
                                  (_%__match168993168994%_
                                   _%e162718162887%_
                                   _%hd162719162890%_
                                   _%tl162720162892%_))))
                          (_%__match168993168994%_
                           _%e162718162887%_
                           _%hd162719162890%_
                           _%tl162720162892%_))))
                  (_%__match168993168994%_
                   _%e162718162887%_
                   _%hd162719162890%_
                   _%tl162720162892%_))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                                  (_%__match168993168994%_
                                                   _%e162718162887%_
                                                   _%hd162719162890%_
                                                   _%tl162720162892%_))
                                              (_%__match168993168994%_
                                               _%e162718162887%_
                                               _%hd162719162890%_
                                               _%tl162720162892%_))
                                          (_%__match168993168994%_
                                           _%e162718162887%_
                                           _%hd162719162890%_
                                           _%tl162720162892%_))))
                                  (_%__match168993168994%_
                                   _%e162718162887%_
                                   _%hd162719162890%_
                                   _%tl162720162892%_))
                              (_%__match168993168994%_
                               _%e162718162887%_
                               _%hd162719162890%_
                               _%tl162720162892%_))
                          (_%__match168993168994%_
                           _%e162718162887%_
                           _%hd162719162890%_
                           _%tl162720162892%_))))
                  (_%__match168993168994%_
                   _%e162718162887%_
                   _%hd162719162890%_
                   _%tl162720162892%_))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                                  (_%__match168993168994%_
                                                   _%e162718162887%_
                                                   _%hd162719162890%_
                                                   _%tl162720162892%_))
                                              (_%__match168993168994%_
                                               _%e162718162887%_
                                               _%hd162719162890%_
                                               _%tl162720162892%_))))
                                      (_%__match168993168994%_
                                       _%e162718162887%_
                                       _%hd162719162890%_
                                       _%tl162720162892%_))
                                  (_%__match168993168994%_
                                   _%e162718162887%_
                                   _%hd162719162890%_
                                   _%tl162720162892%_))
                              (_%__match168993168994%_
                               _%e162718162887%_
                               _%hd162719162890%_
                               _%tl162720162892%_))))
                      (_%__match168993168994%_
                       _%e162718162887%_
                       _%hd162719162890%_
                       _%tl162720162892%_))))
              (_%__match168993168994%_
               _%e162718162887%_
               _%hd162719162890%_
               _%tl162720162892%_))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                                  (_%__match168993168994%_
                                                   _%e162718162887%_
                                                   _%hd162719162890%_
                                                   _%tl162720162892%_))))
                                          (_%__match168993168994%_
                                           _%e162718162887%_
                                           _%hd162719162890%_
                                           _%tl162720162892%_))
                                      (_%__match168993168994%_
                                       _%e162718162887%_
                                       _%hd162719162890%_
                                       _%tl162720162892%_))
                                  (_%__match168993168994%_
                                   _%e162718162887%_
                                   _%hd162719162890%_
                                   _%tl162720162892%_))))
                          (_%__match168993168994%_
                           _%e162718162887%_
                           _%hd162719162890%_
                           _%tl162720162892%_))))
                  (_%__match168993168994%_
                   _%e162718162887%_
                   _%hd162719162890%_
                   _%tl162720162892%_))
              (_%__match168993168994%_
               _%e162718162887%_
               _%hd162719162890%_
               _%tl162720162892%_))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                                  (_%__match168993168994%_
                                                   _%e162718162887%_
                                                   _%hd162719162890%_
                                                   _%tl162720162892%_))))
                                          (_%__match168993168994%_
                                           _%e162718162887%_
                                           _%hd162719162890%_
                                           _%tl162720162892%_))))
                                  (_%__match168993168994%_
                                   _%e162718162887%_
                                   _%hd162719162890%_
                                   _%tl162720162892%_))))
                          (_%__match168993168994%_
                           _%e162718162887%_
                           _%hd162719162890%_
                           _%tl162720162892%_))))
                   (_%__match168847168848%_
                    (lambda (_%e162651163278%_
                             _%hd162652163281%_
                             _%tl162653163283%_
                             _%e162654163286%_
                             _%hd162655163289%_
                             _%tl162656163291%_
                             _%e162657163294%_
                             _%hd162658163297%_
                             _%tl162659163299%_
                             _%e162660163302%_
                             _%hd162661163305%_
                             _%tl162662163307%_
                             _%e162663163310%_
                             _%hd162664163313%_
                             _%tl162665163315%_
                             _%e162666163318%_
                             _%hd162667163321%_
                             _%tl162668163323%_
                             _%e162669163326%_
                             _%hd162670163329%_
                             _%tl162671163331%_
                             _%e162672163334%_
                             _%hd162673163337%_
                             _%tl162674163339%_
                             _%e162675163342%_
                             _%hd162676163345%_
                             _%tl162677163347%_
                             _%e162678163350%_
                             _%hd162679163353%_
                             _%tl162680163355%_
                             _%e162681163358%_
                             _%hd162682163361%_
                             _%tl162683163363%_
                             _%e162684163366%_
                             _%hd162685163369%_
                             _%tl162686163371%_
                             _%e162687163374%_
                             _%hd162688163377%_
                             _%tl162689163379%_
                             _%e162690163382%_
                             _%hd162691163385%_
                             _%tl162692163387%_
                             _%e162693163390%_
                             _%hd162694163393%_
                             _%tl162695163395%_
                             _%e162696163398%_
                             _%hd162697163401%_
                             _%tl162698163403%_
                             _%e162699163406%_
                             _%hd162700163409%_
                             _%tl162701163411%_
                             _%e162702163414%_
                             _%hd162703163417%_
                             _%tl162704163419%_
                             _%e162705163422%_
                             _%hd162706163425%_
                             _%tl162707163427%_)
                      (let ((_%L163430%_ _%hd162706163425%_)
                            (_%L163431%_ _%hd162697163401%_)
                            (_%L163432%_ _%hd162688163377%_)
                            (_%L163433%_ _%hd162679163353%_)
                            (_%L163434%_ _%hd162670163329%_)
                            (_%L163435%_ _%hd162655163289%_))
                        (if (and (let ()
                                   (declare (not safe))
                                   (gx#identifier? _%L163435%_))
                                 (let ()
                                   (declare (not safe))
                                   (gxc#runtime-identifier=?
                                    _%L163434%_
                                    'apply))
                                 (let ()
                                   (declare (not safe))
                                   (gxc#runtime-identifier=?
                                    _%L163433%_
                                    'keyword-dispatch))
                                 (let ()
                                   (declare (not safe))
                                   (gx#free-identifier=?
                                    _%L163435%_
                                    _%L163430%_)))
                            (_%__kont168686168687%_
                             _%L163430%_
                             _%L163431%_
                             _%L163432%_
                             _%L163433%_
                             _%L163434%_
                             _%L163435%_)
                            (_%__match168859168860%_
                             _%e162651163278%_
                             _%hd162652163281%_
                             _%tl162653163283%_
                             _%e162654163286%_
                             _%hd162655163289%_
                             _%tl162656163291%_))))))
              (if (let ()
                    (declare (not safe))
                    (gx#stx-pair? _%__stx168684168685%_))
                  (let ((_%e162651163278%_
                         (let ()
                           (declare (not safe))
                           (gx#stx-e _%__stx168684168685%_))))
                    (let ((_%tl162653163283%_
                           (let ()
                             (declare (not safe))
                             (##cdr _%e162651163278%_)))
                          (_%hd162652163281%_
                           (let ()
                             (declare (not safe))
                             (##car _%e162651163278%_))))
                      (if (let ()
                            (declare (not safe))
                            (gx#stx-pair? _%tl162653163283%_))
                          (let ((_%e162654163286%_
                                 (let ()
                                   (declare (not safe))
                                   (gx#stx-e _%tl162653163283%_))))
                            (let ((_%tl162656163291%_
                                   (let ()
                                     (declare (not safe))
                                     (##cdr _%e162654163286%_)))
                                  (_%hd162655163289%_
                                   (let ()
                                     (declare (not safe))
                                     (##car _%e162654163286%_))))
                              (if (let ()
                                    (declare (not safe))
                                    (gx#stx-pair? _%tl162656163291%_))
                                  (let ((_%e162657163294%_
                                         (let ()
                                           (declare (not safe))
                                           (gx#stx-e _%tl162656163291%_))))
                                    (let ((_%tl162659163299%_
                                           (let ()
                                             (declare (not safe))
                                             (##cdr _%e162657163294%_)))
                                          (_%hd162658163297%_
                                           (let ()
                                             (declare (not safe))
                                             (##car _%e162657163294%_))))
                                      (if (let ()
                                            (declare (not safe))
                                            (gx#stx-pair? _%hd162658163297%_))
                                          (let ((_%e162660163302%_
                                                 (let ()
                                                   (declare (not safe))
                                                   (gx#stx-e
                                                    _%hd162658163297%_))))
                                            (let ((_%tl162662163307%_
                                                   (let ()
                                                     (declare (not safe))
                                                     (##cdr _%e162660163302%_)))
                                                  (_%hd162661163305%_
                                                   (let ()
                                                     (declare (not safe))
                                                     (##car _%e162660163302%_))))
                                              (if (let ()
                                                    (declare (not safe))
                                                    (gx#identifier?
                                                     _%hd162661163305%_))
                                                  (if (let ()
                                                        (declare (not safe))
                                                        (gx#stx-eq?
                                                         '%#call
                                                         _%hd162661163305%_))
                                                      (if (let ()
                                                            (declare
                                                              (not safe))
                                                            (gx#stx-pair?
                                                             _%tl162662163307%_))
                                                          (let ((_%e162663163310%_
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                         (let ()
                           (declare (not safe))
                           (gx#stx-e _%tl162662163307%_))))
                    (let ((_%tl162665163315%_
                           (let ()
                             (declare (not safe))
                             (##cdr _%e162663163310%_)))
                          (_%hd162664163313%_
                           (let ()
                             (declare (not safe))
                             (##car _%e162663163310%_))))
                      (if (let ()
                            (declare (not safe))
                            (gx#stx-pair? _%hd162664163313%_))
                          (let ((_%e162666163318%_
                                 (let ()
                                   (declare (not safe))
                                   (gx#stx-e _%hd162664163313%_))))
                            (let ((_%tl162668163323%_
                                   (let ()
                                     (declare (not safe))
                                     (##cdr _%e162666163318%_)))
                                  (_%hd162667163321%_
                                   (let ()
                                     (declare (not safe))
                                     (##car _%e162666163318%_))))
                              (if (let ()
                                    (declare (not safe))
                                    (gx#identifier? _%hd162667163321%_))
                                  (if (let ()
                                        (declare (not safe))
                                        (gx#stx-eq? '%#ref _%hd162667163321%_))
                                      (if (let ()
                                            (declare (not safe))
                                            (gx#stx-pair? _%tl162668163323%_))
                                          (let ((_%e162669163326%_
                                                 (let ()
                                                   (declare (not safe))
                                                   (gx#stx-e
                                                    _%tl162668163323%_))))
                                            (let ((_%tl162671163331%_
                                                   (let ()
                                                     (declare (not safe))
                                                     (##cdr _%e162669163326%_)))
                                                  (_%hd162670163329%_
                                                   (let ()
                                                     (declare (not safe))
                                                     (##car _%e162669163326%_))))
                                              (if (let ()
                                                    (declare (not safe))
                                                    (gx#stx-null?
                                                     _%tl162671163331%_))
                                                  (if (let ()
                                                        (declare (not safe))
                                                        (gx#stx-pair?
                                                         _%tl162665163315%_))
                                                      (let ((_%e162672163334%_
                                                             (let ()
                                                               (declare
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                         (not safe))
                       (gx#stx-e _%tl162665163315%_))))
                (let ((_%tl162674163339%_
                       (let () (declare (not safe)) (##cdr _%e162672163334%_)))
                      (_%hd162673163337%_
                       (let ()
                         (declare (not safe))
                         (##car _%e162672163334%_))))
                  (if (let ()
                        (declare (not safe))
                        (gx#stx-pair? _%hd162673163337%_))
                      (let ((_%e162675163342%_
                             (let ()
                               (declare (not safe))
                               (gx#stx-e _%hd162673163337%_))))
                        (let ((_%tl162677163347%_
                               (let ()
                                 (declare (not safe))
                                 (##cdr _%e162675163342%_)))
                              (_%hd162676163345%_
                               (let ()
                                 (declare (not safe))
                                 (##car _%e162675163342%_))))
                          (if (let ()
                                (declare (not safe))
                                (gx#identifier? _%hd162676163345%_))
                              (if (let ()
                                    (declare (not safe))
                                    (gx#stx-eq? '%#ref _%hd162676163345%_))
                                  (if (let ()
                                        (declare (not safe))
                                        (gx#stx-pair? _%tl162677163347%_))
                                      (let ((_%e162678163350%_
                                             (let ()
                                               (declare (not safe))
                                               (gx#stx-e _%tl162677163347%_))))
                                        (let ((_%tl162680163355%_
                                               (let ()
                                                 (declare (not safe))
                                                 (##cdr _%e162678163350%_)))
                                              (_%hd162679163353%_
                                               (let ()
                                                 (declare (not safe))
                                                 (##car _%e162678163350%_))))
                                          (if (let ()
                                                (declare (not safe))
                                                (gx#stx-null?
                                                 _%tl162680163355%_))
                                              (if (let ()
                                                    (declare (not safe))
                                                    (gx#stx-pair?
                                                     _%tl162674163339%_))
                                                  (let ((_%e162681163358%_
                                                         (let ()
                                                           (declare (not safe))
                                                           (gx#stx-e
                                                            _%tl162674163339%_))))
                                                    (let ((_%tl162683163363%_
                                                           (let ()
                                                             (declare
                                                               (not safe))
                                                             (##cdr _%e162681163358%_)))
                                                          (_%hd162682163361%_
                                                           (let ()
                                                             (declare
                                                               (not safe))
                                                             (##car _%e162681163358%_))))
                                                      (if (let ()
                                                            (declare
                                                              (not safe))
                                                            (gx#stx-pair?
                                                             _%hd162682163361%_))
                                                          (let ((_%e162684163366%_
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                         (let ()
                           (declare (not safe))
                           (gx#stx-e _%hd162682163361%_))))
                    (let ((_%tl162686163371%_
                           (let ()
                             (declare (not safe))
                             (##cdr _%e162684163366%_)))
                          (_%hd162685163369%_
                           (let ()
                             (declare (not safe))
                             (##car _%e162684163366%_))))
                      (if (let ()
                            (declare (not safe))
                            (gx#identifier? _%hd162685163369%_))
                          (if (let ()
                                (declare (not safe))
                                (gx#stx-eq? '%#quote _%hd162685163369%_))
                              (if (let ()
                                    (declare (not safe))
                                    (gx#stx-pair? _%tl162686163371%_))
                                  (let ((_%e162687163374%_
                                         (let ()
                                           (declare (not safe))
                                           (gx#stx-e _%tl162686163371%_))))
                                    (let ((_%tl162689163379%_
                                           (let ()
                                             (declare (not safe))
                                             (##cdr _%e162687163374%_)))
                                          (_%hd162688163377%_
                                           (let ()
                                             (declare (not safe))
                                             (##car _%e162687163374%_))))
                                      (if (let ()
                                            (declare (not safe))
                                            (gx#stx-null? _%tl162689163379%_))
                                          (if (let ()
                                                (declare (not safe))
                                                (gx#stx-pair?
                                                 _%tl162683163363%_))
                                              (let ((_%e162690163382%_
                                                     (let ()
                                                       (declare (not safe))
                                                       (gx#stx-e
                                                        _%tl162683163363%_))))
                                                (let ((_%tl162692163387%_
                                                       (let ()
                                                         (declare (not safe))
                                                         (##cdr _%e162690163382%_)))
                                                      (_%hd162691163385%_
                                                       (let ()
                                                         (declare (not safe))
                                                         (##car _%e162690163382%_))))
                                                  (if (let ()
                                                        (declare (not safe))
                                                        (gx#stx-pair?
                                                         _%hd162691163385%_))
                                                      (let ((_%e162693163390%_
                                                             (let ()
                                                               (declare
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                         (not safe))
                       (gx#stx-e _%hd162691163385%_))))
                (let ((_%tl162695163395%_
                       (let () (declare (not safe)) (##cdr _%e162693163390%_)))
                      (_%hd162694163393%_
                       (let ()
                         (declare (not safe))
                         (##car _%e162693163390%_))))
                  (if (let ()
                        (declare (not safe))
                        (gx#identifier? _%hd162694163393%_))
                      (if (let ()
                            (declare (not safe))
                            (gx#stx-eq? '%#ref _%hd162694163393%_))
                          (if (let ()
                                (declare (not safe))
                                (gx#stx-pair? _%tl162695163395%_))
                              (let ((_%e162696163398%_
                                     (let ()
                                       (declare (not safe))
                                       (gx#stx-e _%tl162695163395%_))))
                                (let ((_%tl162698163403%_
                                       (let ()
                                         (declare (not safe))
                                         (##cdr _%e162696163398%_)))
                                      (_%hd162697163401%_
                                       (let ()
                                         (declare (not safe))
                                         (##car _%e162696163398%_))))
                                  (if (let ()
                                        (declare (not safe))
                                        (gx#stx-null? _%tl162698163403%_))
                                      (if (let ()
                                            (declare (not safe))
                                            (gx#stx-pair? _%tl162692163387%_))
                                          (let ((_%e162699163406%_
                                                 (let ()
                                                   (declare (not safe))
                                                   (gx#stx-e
                                                    _%tl162692163387%_))))
                                            (let ((_%tl162701163411%_
                                                   (let ()
                                                     (declare (not safe))
                                                     (##cdr _%e162699163406%_)))
                                                  (_%hd162700163409%_
                                                   (let ()
                                                     (declare (not safe))
                                                     (##car _%e162699163406%_))))
                                              (if (let ()
                                                    (declare (not safe))
                                                    (gx#stx-pair?
                                                     _%hd162700163409%_))
                                                  (let ((_%e162702163414%_
                                                         (let ()
                                                           (declare (not safe))
                                                           (gx#stx-e
                                                            _%hd162700163409%_))))
                                                    (let ((_%tl162704163419%_
                                                           (let ()
                                                             (declare
                                                               (not safe))
                                                             (##cdr _%e162702163414%_)))
                                                          (_%hd162703163417%_
                                                           (let ()
                                                             (declare
                                                               (not safe))
                                                             (##car _%e162702163414%_))))
                                                      (if (let ()
                                                            (declare
                                                              (not safe))
                                                            (gx#identifier?
                                                             _%hd162703163417%_))
                                                          (if (let ()
                                                                (declare
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                          (not safe))
                        (gx#stx-eq? '%#ref _%hd162703163417%_))
                      (if (let ()
                            (declare (not safe))
                            (gx#stx-pair? _%tl162704163419%_))
                          (let ((_%e162705163422%_
                                 (let ()
                                   (declare (not safe))
                                   (gx#stx-e _%tl162704163419%_))))
                            (let ((_%tl162707163427%_
                                   (let ()
                                     (declare (not safe))
                                     (##cdr _%e162705163422%_)))
                                  (_%hd162706163425%_
                                   (let ()
                                     (declare (not safe))
                                     (##car _%e162705163422%_))))
                              (if (let ()
                                    (declare (not safe))
                                    (gx#stx-null? _%tl162707163427%_))
                                  (if (let ()
                                        (declare (not safe))
                                        (gx#stx-null? _%tl162701163411%_))
                                      (if (let ()
                                            (declare (not safe))
                                            (gx#stx-null? _%tl162659163299%_))
                                          (_%__match168847168848%_
                                           _%e162651163278%_
                                           _%hd162652163281%_
                                           _%tl162653163283%_
                                           _%e162654163286%_
                                           _%hd162655163289%_
                                           _%tl162656163291%_
                                           _%e162657163294%_
                                           _%hd162658163297%_
                                           _%tl162659163299%_
                                           _%e162660163302%_
                                           _%hd162661163305%_
                                           _%tl162662163307%_
                                           _%e162663163310%_
                                           _%hd162664163313%_
                                           _%tl162665163315%_
                                           _%e162666163318%_
                                           _%hd162667163321%_
                                           _%tl162668163323%_
                                           _%e162669163326%_
                                           _%hd162670163329%_
                                           _%tl162671163331%_
                                           _%e162672163334%_
                                           _%hd162673163337%_
                                           _%tl162674163339%_
                                           _%e162675163342%_
                                           _%hd162676163345%_
                                           _%tl162677163347%_
                                           _%e162678163350%_
                                           _%hd162679163353%_
                                           _%tl162680163355%_
                                           _%e162681163358%_
                                           _%hd162682163361%_
                                           _%tl162683163363%_
                                           _%e162684163366%_
                                           _%hd162685163369%_
                                           _%tl162686163371%_
                                           _%e162687163374%_
                                           _%hd162688163377%_
                                           _%tl162689163379%_
                                           _%e162690163382%_
                                           _%hd162691163385%_
                                           _%tl162692163387%_
                                           _%e162693163390%_
                                           _%hd162694163393%_
                                           _%tl162695163395%_
                                           _%e162696163398%_
                                           _%hd162697163401%_
                                           _%tl162698163403%_
                                           _%e162699163406%_
                                           _%hd162700163409%_
                                           _%tl162701163411%_
                                           _%e162702163414%_
                                           _%hd162703163417%_
                                           _%tl162704163419%_
                                           _%e162705163422%_
                                           _%hd162706163425%_
                                           _%tl162707163427%_)
                                          (_%__match168859168860%_
                                           _%e162651163278%_
                                           _%hd162652163281%_
                                           _%tl162653163283%_
                                           _%e162654163286%_
                                           _%hd162655163289%_
                                           _%tl162656163291%_))
                                      (_%__match168859168860%_
                                       _%e162651163278%_
                                       _%hd162652163281%_
                                       _%tl162653163283%_
                                       _%e162654163286%_
                                       _%hd162655163289%_
                                       _%tl162656163291%_))
                                  (_%__match168859168860%_
                                   _%e162651163278%_
                                   _%hd162652163281%_
                                   _%tl162653163283%_
                                   _%e162654163286%_
                                   _%hd162655163289%_
                                   _%tl162656163291%_))))
                          (_%__match168859168860%_
                           _%e162651163278%_
                           _%hd162652163281%_
                           _%tl162653163283%_
                           _%e162654163286%_
                           _%hd162655163289%_
                           _%tl162656163291%_))
                      (_%__match168859168860%_
                       _%e162651163278%_
                       _%hd162652163281%_
                       _%tl162653163283%_
                       _%e162654163286%_
                       _%hd162655163289%_
                       _%tl162656163291%_))
                  (_%__match168859168860%_
                   _%e162651163278%_
                   _%hd162652163281%_
                   _%tl162653163283%_
                   _%e162654163286%_
                   _%hd162655163289%_
                   _%tl162656163291%_))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                                  (_%__match168859168860%_
                                                   _%e162651163278%_
                                                   _%hd162652163281%_
                                                   _%tl162653163283%_
                                                   _%e162654163286%_
                                                   _%hd162655163289%_
                                                   _%tl162656163291%_))))
                                          (_%__match168859168860%_
                                           _%e162651163278%_
                                           _%hd162652163281%_
                                           _%tl162653163283%_
                                           _%e162654163286%_
                                           _%hd162655163289%_
                                           _%tl162656163291%_))
                                      (_%__match168859168860%_
                                       _%e162651163278%_
                                       _%hd162652163281%_
                                       _%tl162653163283%_
                                       _%e162654163286%_
                                       _%hd162655163289%_
                                       _%tl162656163291%_))))
                              (_%__match168859168860%_
                               _%e162651163278%_
                               _%hd162652163281%_
                               _%tl162653163283%_
                               _%e162654163286%_
                               _%hd162655163289%_
                               _%tl162656163291%_))
                          (_%__match168859168860%_
                           _%e162651163278%_
                           _%hd162652163281%_
                           _%tl162653163283%_
                           _%e162654163286%_
                           _%hd162655163289%_
                           _%tl162656163291%_))
                      (_%__match168859168860%_
                       _%e162651163278%_
                       _%hd162652163281%_
                       _%tl162653163283%_
                       _%e162654163286%_
                       _%hd162655163289%_
                       _%tl162656163291%_))))
              (_%__match168859168860%_
               _%e162651163278%_
               _%hd162652163281%_
               _%tl162653163283%_
               _%e162654163286%_
               _%hd162655163289%_
               _%tl162656163291%_))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                              (_%__match168859168860%_
                                               _%e162651163278%_
                                               _%hd162652163281%_
                                               _%tl162653163283%_
                                               _%e162654163286%_
                                               _%hd162655163289%_
                                               _%tl162656163291%_))
                                          (_%__match168859168860%_
                                           _%e162651163278%_
                                           _%hd162652163281%_
                                           _%tl162653163283%_
                                           _%e162654163286%_
                                           _%hd162655163289%_
                                           _%tl162656163291%_))))
                                  (_%__match168859168860%_
                                   _%e162651163278%_
                                   _%hd162652163281%_
                                   _%tl162653163283%_
                                   _%e162654163286%_
                                   _%hd162655163289%_
                                   _%tl162656163291%_))
                              (_%__match168859168860%_
                               _%e162651163278%_
                               _%hd162652163281%_
                               _%tl162653163283%_
                               _%e162654163286%_
                               _%hd162655163289%_
                               _%tl162656163291%_))
                          (_%__match168859168860%_
                           _%e162651163278%_
                           _%hd162652163281%_
                           _%tl162653163283%_
                           _%e162654163286%_
                           _%hd162655163289%_
                           _%tl162656163291%_))))
                  (_%__match168859168860%_
                   _%e162651163278%_
                   _%hd162652163281%_
                   _%tl162653163283%_
                   _%e162654163286%_
                   _%hd162655163289%_
                   _%tl162656163291%_))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                                  (_%__match168859168860%_
                                                   _%e162651163278%_
                                                   _%hd162652163281%_
                                                   _%tl162653163283%_
                                                   _%e162654163286%_
                                                   _%hd162655163289%_
                                                   _%tl162656163291%_))
                                              (_%__match168859168860%_
                                               _%e162651163278%_
                                               _%hd162652163281%_
                                               _%tl162653163283%_
                                               _%e162654163286%_
                                               _%hd162655163289%_
                                               _%tl162656163291%_))))
                                      (_%__match168859168860%_
                                       _%e162651163278%_
                                       _%hd162652163281%_
                                       _%tl162653163283%_
                                       _%e162654163286%_
                                       _%hd162655163289%_
                                       _%tl162656163291%_))
                                  (_%__match168859168860%_
                                   _%e162651163278%_
                                   _%hd162652163281%_
                                   _%tl162653163283%_
                                   _%e162654163286%_
                                   _%hd162655163289%_
                                   _%tl162656163291%_))
                              (_%__match168859168860%_
                               _%e162651163278%_
                               _%hd162652163281%_
                               _%tl162653163283%_
                               _%e162654163286%_
                               _%hd162655163289%_
                               _%tl162656163291%_))))
                      (_%__match168859168860%_
                       _%e162651163278%_
                       _%hd162652163281%_
                       _%tl162653163283%_
                       _%e162654163286%_
                       _%hd162655163289%_
                       _%tl162656163291%_))))
              (_%__match168859168860%_
               _%e162651163278%_
               _%hd162652163281%_
               _%tl162653163283%_
               _%e162654163286%_
               _%hd162655163289%_
               _%tl162656163291%_))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                                  (_%__match168859168860%_
                                                   _%e162651163278%_
                                                   _%hd162652163281%_
                                                   _%tl162653163283%_
                                                   _%e162654163286%_
                                                   _%hd162655163289%_
                                                   _%tl162656163291%_))))
                                          (_%__match168859168860%_
                                           _%e162651163278%_
                                           _%hd162652163281%_
                                           _%tl162653163283%_
                                           _%e162654163286%_
                                           _%hd162655163289%_
                                           _%tl162656163291%_))
                                      (_%__match168859168860%_
                                       _%e162651163278%_
                                       _%hd162652163281%_
                                       _%tl162653163283%_
                                       _%e162654163286%_
                                       _%hd162655163289%_
                                       _%tl162656163291%_))
                                  (_%__match168859168860%_
                                   _%e162651163278%_
                                   _%hd162652163281%_
                                   _%tl162653163283%_
                                   _%e162654163286%_
                                   _%hd162655163289%_
                                   _%tl162656163291%_))))
                          (_%__match168859168860%_
                           _%e162651163278%_
                           _%hd162652163281%_
                           _%tl162653163283%_
                           _%e162654163286%_
                           _%hd162655163289%_
                           _%tl162656163291%_))))
                  (_%__match168859168860%_
                   _%e162651163278%_
                   _%hd162652163281%_
                   _%tl162653163283%_
                   _%e162654163286%_
                   _%hd162655163289%_
                   _%tl162656163291%_))
              (_%__match168859168860%_
               _%e162651163278%_
               _%hd162652163281%_
               _%tl162653163283%_
               _%e162654163286%_
               _%hd162655163289%_
               _%tl162656163291%_))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                                  (_%__match168859168860%_
                                                   _%e162651163278%_
                                                   _%hd162652163281%_
                                                   _%tl162653163283%_
                                                   _%e162654163286%_
                                                   _%hd162655163289%_
                                                   _%tl162656163291%_))))
                                          (_%__match168859168860%_
                                           _%e162651163278%_
                                           _%hd162652163281%_
                                           _%tl162653163283%_
                                           _%e162654163286%_
                                           _%hd162655163289%_
                                           _%tl162656163291%_))))
                                  (_%__match168859168860%_
                                   _%e162651163278%_
                                   _%hd162652163281%_
                                   _%tl162653163283%_
                                   _%e162654163286%_
                                   _%hd162655163289%_
                                   _%tl162656163291%_))))
                          (_%__match168993168994%_
                           _%e162651163278%_
                           _%hd162652163281%_
                           _%tl162653163283%_))))
                  (let () (declare (not safe)) (_%g162643162835%_))))))))
    (define gxc#basic-expression-type-case-lambda%
      (lambda (_%self162507%_ _%stx162508%_)
        (letrec ((_%clause-e162510%_
                  (lambda (_%form162633%_)
                    (let* ((_%signature162635%_
                            (gxc#lambda-form-infer-signature _%form162633%_))
                           (__obj170833
                            (let ()
                              (declare (not safe))
                              (##structure
                               gxc#!lambda::t
                               '#f
                               '#f
                               '#f
                               '#f
                               '#f
                               '#f))))
                      (let ((__tmp171020
                             (gxc#lambda-form-arity _%form162633%_))
                            (__tmp171019
                             (if (gxc#dispatch-lambda-form? _%form162633%_)
                                 (gxc#dispatch-lambda-form-delegate
                                  _%form162633%_)
                                 '#f)))
                        (declare (not safe))
                        (gxc#!lambda:::init!__%
                         '#f
                         _%signature162635%_
                         __obj170833
                         __tmp171020
                         __tmp171019))
                      __obj170833)))
                 (_%return-type-e162511%_
                  (lambda (_%clauses162561%_)
                    (let _%loop162563%_ ((_%rest162565%_ _%clauses162561%_)
                                         (_%result162566%_ '#f))
                      (let* ((_%rest162567162575%_ _%rest162565%_)
                             (_%else162569162583%_
                              (lambda () _%result162566%_))
                             (_%K162571162621%_
                              (lambda (_%rest162586%_ _%clause162587%_)
                                (let* ((_%clause162589%_ _%clause162587%_)
                                       (_%return162613%_
                                        (let* ((_%signature162602%_
                                                (let ()
                                                  (declare (not safe))
                                                  (##unchecked-structure-ref
                                                   _%clause162589%_
                                                   '2
                                                   '#f
                                                   '#f)))
                                               (_%signature162604%_
                                                _%signature162602%_))
                                          (if _%signature162604%_
                                              (if (let ()
                                                    (declare (not safe))
                                                    (##unchecked-structure-ref
                                                     _%signature162604%_
                                                     '1
                                                     '#f
                                                     '#f))
                                                  (let ((__tmp171021
                                                         (let ()
                                                           (declare (not safe))
                                                           (##unchecked-structure-ref
                                                            _%signature162604%_
                                                            '1
                                                            '#f
                                                            '#f))))
                                                    (declare (not safe))
                                                    (gxc#optimizer-resolve-class
                                                     _%stx162508%_
                                                     __tmp171021))
                                                  '#f)
                                              '#f)))
                                       (_%result162618%_
                                        (if (and _%result162566%_
                                                 _%return162613%_)
                                            (gxc#greatest-common-type
                                             _%stx162508%_
                                             _%result162566%_
                                             _%return162613%_)
                                            (let ((_%$e162615%_
                                                   _%result162566%_))
                                              (if _%$e162615%_
                                                  _%$e162615%_
                                                  _%return162613%_)))))
                                  (_%loop162563%_
                                   _%rest162586%_
                                   _%result162618%_)))))
                        (if (pair? _%rest162567162575%_)
                            (let ((_%hd162572162624%_
                                   (let ()
                                     (declare (not safe))
                                     (##car _%rest162567162575%_)))
                                  (_%tl162573162626%_
                                   (let ()
                                     (declare (not safe))
                                     (##cdr _%rest162567162575%_))))
                              (let* ((_%clause162629%_ _%hd162572162624%_)
                                     (_%rest162631%_ _%tl162573162626%_))
                                (_%K162571162621%_
                                 _%rest162631%_
                                 _%clause162629%_)))
                            (_%else162569162583%_)))))))
          (let* ((_%g162513162523%_
                  (lambda (_%g162514162520%_)
                    (let ()
                      (declare (not safe))
                      (gx#raise-syntax-error
                       '#f
                       '"Bad syntax; invalid match target"
                       _%g162514162520%_))))
                 (_%g162512162558%_
                  (lambda (_%g162514162526%_)
                    (if (let ()
                          (declare (not safe))
                          (gx#stx-pair? _%g162514162526%_))
                        (let ((_%e162516162528%_
                               (let ()
                                 (declare (not safe))
                                 (gx#stx-e _%g162514162526%_))))
                          (let ((_%hd162517162531%_
                                 (let ()
                                   (declare (not safe))
                                   (##car _%e162516162528%_)))
                                (_%tl162518162533%_
                                 (let ()
                                   (declare (not safe))
                                   (##cdr _%e162516162528%_))))
                            ((lambda (_%L162536%_)
                               (let* ((_%clauses162547%_
                                       (map _%clause-e162510%_ _%L162536%_))
                                      (_%return162549%_
                                       (_%return-type-e162511%_
                                        _%clauses162547%_))
                                      (__obj170835
                                       (let ()
                                         (declare (not safe))
                                         (##structure
                                          gxc#!case-lambda::t
                                          '#f
                                          '#f
                                          '#f))))
                                 (let ((__tmp171022
                                        (if _%return162549%_
                                            (let ((_%return-type162551162553%_
                                                   (let ()
                                                     (declare (not safe))
                                                     (gxc#optimizer-lookup-class-name
                                                      _%return162549%_))))
                                              (if _%return-type162551162553%_
                                                  (let* ((_%return-type162556%_
                                                          _%return-type162551162553%_)
                                                         (__obj170834
                                                          (let ()
                                                            (declare
                                                              (not safe))
                                                            (##structure
                                                             gxc#!signature::t
                                                             '#f
                                                             '#f
                                                             '#f
                                                             '#f
                                                             '#f))))
                                                    (let ()
                                                      (declare (not safe))
                                                      (##unchecked-structure-set!
                                                       __obj170834
                                                       _%return-type162556%_
                                                       '1
                                                       '#f
                                                       '#f))
                                                    __obj170834)
                                                  '#f))
                                            '#f)))
                                   (declare (not safe))
                                   (gxc#!case-lambda:::init!__%
                                    '#f
                                    __tmp171022
                                    __obj170835
                                    _%clauses162547%_))
                                 __obj170835))
                             _%tl162518162533%_)))
                        (_%g162513162523%_ _%g162514162526%_)))))
            (_%g162512162558%_ _%stx162508%_)))))
    (define gxc#basic-expression-type-special
      (let () (declare (not safe)) (make-hash-table-eq)))
    (define gxc#basic-expression-type-call%
      (lambda (_%self162367%_ _%stx162368%_)
        (letrec ((_%type-e162370%_
                  (lambda (_%rator162500%_ _%rator-type162501%_ _%args162502%_)
                    (if (not _%rator-type162501%_)
                        '#f
                        (if (let ()
                              (declare (not safe))
                              (##structure-instance-of?
                               _%rator-type162501%_
                               'gxc#!procedure::t))
                            (let ((__method170836
                                   (let ()
                                     (declare (not safe))
                                     (__method-ref
                                      _%rator-type162501%_
                                      'return-type))))
                              (if __method170836
                                  (let ()
                                    (declare (not safe))
                                    (__method170836
                                     _%rator-type162501%_
                                     _%self162367%_
                                     _%stx162368%_
                                     _%args162502%_))
                                  (begin
                                    (let ()
                                      (declare (not safe))
                                      (error '"Missing method"
                                             _%rator-type162501%_
                                             'return-type))
                                    '#!void)))
                            '#f)))))
          (let* ((_%__stx169002169003%_ _%stx162368%_)
                 (_%g162373162401%_
                  (lambda ()
                    (let ()
                      (declare (not safe))
                      (gx#raise-syntax-error
                       '#f
                       '"Bad syntax; invalid match target"
                       _%__stx169002169003%_)))))
            (let ((_%__kont169004169005%_
                   (lambda (_%L162474%_ _%L162475%_)
                     (let ((_%$e162491%_
                            (let ((__tmp171023
                                   (let ()
                                     (declare (not safe))
                                     (gxc#identifier-symbol _%L162475%_))))
                              (declare (not safe))
                              (__hash-get
                               gxc#basic-expression-type-special
                               __tmp171023))))
                       (if _%$e162491%_
                           ((lambda (_%type-e162494%_)
                              (_%type-e162494%_ _%self162367%_ _%stx162368%_))
                            _%$e162491%_)
                           (_%type-e162370%_
                            _%L162475%_
                            (let ((__tmp171024
                                   (let ()
                                     (declare (not safe))
                                     (gxc#identifier-symbol _%L162475%_))))
                              (declare (not safe))
                              (gxc#optimizer-resolve-type __tmp171024))
                            _%L162474%_)))))
                  (_%__kont169006169007%_
                   (lambda (_%L162422%_ _%L162423%_)
                     (_%type-e162370%_
                      _%L162423%_
                      (gxc#apply-basic-expression-type _%L162423%_)
                      _%L162422%_))))
              (if (let ()
                    (declare (not safe))
                    (gx#stx-pair? _%__stx169002169003%_))
                  (let ((_%e162377162442%_
                         (let ()
                           (declare (not safe))
                           (gx#stx-e _%__stx169002169003%_))))
                    (let ((_%tl162379162447%_
                           (let ()
                             (declare (not safe))
                             (##cdr _%e162377162442%_)))
                          (_%hd162378162445%_
                           (let ()
                             (declare (not safe))
                             (##car _%e162377162442%_))))
                      (if (let ()
                            (declare (not safe))
                            (gx#stx-pair? _%tl162379162447%_))
                          (let ((_%e162380162450%_
                                 (let ()
                                   (declare (not safe))
                                   (gx#stx-e _%tl162379162447%_))))
                            (let ((_%tl162382162455%_
                                   (let ()
                                     (declare (not safe))
                                     (##cdr _%e162380162450%_)))
                                  (_%hd162381162453%_
                                   (let ()
                                     (declare (not safe))
                                     (##car _%e162380162450%_))))
                              (if (let ()
                                    (declare (not safe))
                                    (gx#stx-pair? _%hd162381162453%_))
                                  (let ((_%e162383162458%_
                                         (let ()
                                           (declare (not safe))
                                           (gx#stx-e _%hd162381162453%_))))
                                    (let ((_%tl162385162463%_
                                           (let ()
                                             (declare (not safe))
                                             (##cdr _%e162383162458%_)))
                                          (_%hd162384162461%_
                                           (let ()
                                             (declare (not safe))
                                             (##car _%e162383162458%_))))
                                      (if (let ()
                                            (declare (not safe))
                                            (gx#identifier?
                                             _%hd162384162461%_))
                                          (if (let ()
                                                (declare (not safe))
                                                (gx#stx-eq?
                                                 '%#ref
                                                 _%hd162384162461%_))
                                              (if (let ()
                                                    (declare (not safe))
                                                    (gx#stx-pair?
                                                     _%tl162385162463%_))
                                                  (let ((_%e162386162466%_
                                                         (let ()
                                                           (declare (not safe))
                                                           (gx#stx-e
                                                            _%tl162385162463%_))))
                                                    (let ((_%tl162388162471%_
                                                           (let ()
                                                             (declare
                                                               (not safe))
                                                             (##cdr _%e162386162466%_)))
                                                          (_%hd162387162469%_
                                                           (let ()
                                                             (declare
                                                               (not safe))
                                                             (##car _%e162386162466%_))))
                                                      (if (let ()
                                                            (declare
                                                              (not safe))
                                                            (gx#stx-null?
                                                             _%tl162388162471%_))
                                                          (_%__kont169004169005%_
                                                           _%tl162382162455%_
                                                           _%hd162387162469%_)
                                                          (_%__kont169006169007%_
                                                           _%tl162382162455%_
                                                           _%hd162381162453%_))))
                                                  (_%__kont169006169007%_
                                                   _%tl162382162455%_
                                                   _%hd162381162453%_))
                                              (_%__kont169006169007%_
                                               _%tl162382162455%_
                                               _%hd162381162453%_))
                                          (_%__kont169006169007%_
                                           _%tl162382162455%_
                                           _%hd162381162453%_))))
                                  (_%__kont169006169007%_
                                   _%tl162382162455%_
                                   _%hd162381162453%_))))
                          (let () (declare (not safe)) (_%g162373162401%_)))))
                  (let () (declare (not safe)) (_%g162373162401%_))))))))
    (define gxc#!procedure::return-type
      (lambda (_%self154110162349%_ _%ctx162351%_ _%stx162352%_ _%args162353%_)
        (let* ((_%self162355%_ _%self154110162349%_)
               (_%self162357%_ _%self162355%_))
          (if (let ()
                (declare (not safe))
                (##unchecked-structure-ref _%self162357%_ '2 '#f '#f))
              (let ((__tmp171025
                     (let ((__tmp171026
                            (let ()
                              (declare (not safe))
                              (##unchecked-structure-ref
                               _%self162357%_
                               '2
                               '#f
                               '#f))))
                       (declare (not safe))
                       (##unchecked-structure-ref __tmp171026 '1 '#f '#f))))
                (declare (not safe))
                (gxc#optimizer-resolve-class _%stx162352%_ __tmp171025))
              '#f))))
    (let ()
      (declare (not safe))
      (__bind-method!__%
       gxc#!procedure::t
       'return-type
       gxc#!procedure::return-type
       '#f))
    (define gxc#!procedure::apply-return-type gxc#!procedure::return-type)
    (let ()
      (declare (not safe))
      (__bind-method!__%
       gxc#!procedure::t
       'apply-return-type
       gxc#!procedure::apply-return-type
       '#f))
    (define gxc#!lambda::return-type
      (lambda (_%self154111162081%_ _%ctx162083%_ _%stx162084%_ _%args162085%_)
        (let* ((_%self162087%_ _%self154111162081%_)
               (_%self162089%_ _%self162087%_))
          (if (let ()
                (declare (not safe))
                (##unchecked-structure-ref _%self162089%_ '4 '#f '#f))
              (let ((_%dispatch-type162098162100%_
                     (let ((__tmp171027
                            (let ()
                              (declare (not safe))
                              (##unchecked-structure-ref
                               _%self162089%_
                               '4
                               '#f
                               '#f))))
                       (declare (not safe))
                       (gxc#optimizer-lookup-type __tmp171027))))
                (if _%dispatch-type162098162100%_
                    (let ((_%dispatch-type162103%_
                           _%dispatch-type162098162100%_))
                      (if (let ()
                            (declare (not safe))
                            (##structure-instance-of?
                             _%dispatch-type162103%_
                             'gxc#!procedure::t))
                          (let ((__method170837
                                 (let ()
                                   (declare (not safe))
                                   (__method-ref
                                    _%dispatch-type162103%_
                                    'return-type))))
                            (if __method170837
                                (let ()
                                  (declare (not safe))
                                  (__method170837
                                   _%dispatch-type162103%_
                                   _%ctx162083%_
                                   _%stx162084%_
                                   _%args162085%_))
                                (begin
                                  (let ()
                                    (declare (not safe))
                                    (error '"Missing method"
                                           _%dispatch-type162103%_
                                           'return-type))
                                  '#!void)))
                          '#f))
                    '#f))
              (gxc#!procedure::return-type
               _%self162089%_
               _%ctx162083%_
               _%stx162084%_
               _%args162085%_)))))
    (let ()
      (declare (not safe))
      (__bind-method!__%
       gxc#!lambda::t
       'return-type
       gxc#!lambda::return-type
       '#f))
    (define gxc#!lambda::apply-return-type gxc#!lambda::return-type)
    (let ()
      (declare (not safe))
      (__bind-method!__%
       gxc#!lambda::t
       'apply-return-type
       gxc#!lambda::apply-return-type
       '#f))
    (define gxc#!case-lambda::return-type
      (lambda (_%self154112161809%_ _%ctx161811%_ _%stx161812%_ _%args161813%_)
        (let* ((_%self161815%_ _%self154112161809%_)
               (_%self161817%_ _%self161815%_)
               (_%$e161831%_
                (let ((__tmp171029
                       (lambda (_%g161826161828%_)
                         (gxc#!lambda-arity-match?
                          _%g161826161828%_
                          _%args161813%_)))
                      (__tmp171028
                       (let ()
                         (declare (not safe))
                         (##unchecked-structure-ref
                          _%self161817%_
                          '3
                          '#f
                          '#f))))
                  (declare (not safe))
                  (__find __tmp171029 __tmp171028))))
          (if _%$e161831%_
              ((lambda (_%clause161834%_)
                 (let ((__method170838
                        (let ()
                          (declare (not safe))
                          (__method-ref _%clause161834%_ 'return-type))))
                   (if __method170838
                       (let ()
                         (declare (not safe))
                         (__method170838
                          _%clause161834%_
                          _%ctx161811%_
                          _%stx161812%_
                          _%args161813%_))
                       (begin
                         (let ()
                           (declare (not safe))
                           (error '"Missing method"
                                  _%clause161834%_
                                  'return-type))
                         '#!void))))
               _%$e161831%_)
              (gxc#!procedure::return-type
               _%self161817%_
               _%ctx161811%_
               _%stx161812%_
               _%args161813%_)))))
    (let ()
      (declare (not safe))
      (__bind-method!__%
       gxc#!case-lambda::t
       'return-type
       gxc#!case-lambda::return-type
       '#f))
    (define gxc#!case-lambda::apply-return-type
      (lambda (_%self154113161655%_ _%ctx161657%_ _%stx161658%_ _%args161659%_)
        (let* ((_%self161661%_ _%self154113161655%_)
               (_%self161663%_ _%self161661%_)
               (_%candidates161677%_
                (filter (lambda (_%g161672161674%_)
                          (gxc#!lambda-arity-match-apply?
                           _%g161672161674%_
                           _%args161659%_))
                        (let ()
                          (declare (not safe))
                          (##unchecked-structure-ref
                           _%self161663%_
                           '3
                           '#f
                           '#f))))
               (_%candidate-types161681%_
                (let ((__tmp171030
                       (lambda (_%candidate161679%_)
                         (let ((__method170839
                                (let ()
                                  (declare (not safe))
                                  (__method-ref
                                   _%candidate161679%_
                                   'apply-return-type))))
                           (if __method170839
                               (let ()
                                 (declare (not safe))
                                 (__method170839
                                  _%candidate161679%_
                                  _%ctx161657%_
                                  _%stx161658%_
                                  _%args161659%_))
                               (begin
                                 (let ()
                                   (declare (not safe))
                                   (error '"Missing method"
                                          _%candidate161679%_
                                          'apply-return-type))
                                 '#!void))))))
                  (declare (not safe))
                  (##map __tmp171030 _%candidates161677%_))))
          (if (pair? _%candidate-types161681%_)
              (let ((__tmp171033
                     (lambda (_%candidate-type161684%_ _%ret161685%_)
                       (if _%ret161685%_
                           (if _%candidate-type161684%_
                               (gxc#greatest-common-type
                                _%stx161658%_
                                _%candidate-type161684%_
                                _%ret161685%_)
                               '#f)
                           '#f)))
                    (__tmp171032
                     (let ()
                       (declare (not safe))
                       (##car _%candidate-types161681%_)))
                    (__tmp171031
                     (let ()
                       (declare (not safe))
                       (##cdr _%candidate-types161681%_))))
                (declare (not safe))
                (__foldl1 __tmp171033 __tmp171032 __tmp171031))
              (gxc#!procedure::return-type
               _%self161663%_
               _%ctx161657%_
               _%stx161658%_
               _%args161659%_)))))
    (let ()
      (declare (not safe))
      (__bind-method!__%
       gxc#!case-lambda::t
       'apply-return-type
       gxc#!case-lambda::apply-return-type
       '#f))
    (define gxc#!kw-lambda::return-type
      (lambda (_%self154114161459%_ _%ctx161461%_ _%stx161462%_ _%args161463%_)
        (let* ((_%self161465%_ _%self154114161459%_)
               (_%self161467%_ _%self161465%_)
               (_%g161476161487%_
                (let ((__tmp171034
                       (let ()
                         (declare (not safe))
                         (##unchecked-structure-ref
                          _%self161467%_
                          '4
                          '#f
                          '#f))))
                  (declare (not safe))
                  (gxc#optimizer-lookup-type __tmp171034)))
               (_%E161479161491%_
                (lambda ()
                  (let ()
                    (declare (not safe))
                    (error '"No clause matching"
                           _%g161476161487%_
                           '((!kw-lambda-primary _ _ keys main))
                           '((? !procedure? proc))))
                  '#!void)))
          (let ((_%K161481161514%_
                 (lambda (_%main161505%_ _%keys161506%_)
                   (let ((_%main-type161507161509%_
                          (let ()
                            (declare (not safe))
                            (gxc#optimizer-lookup-type _%main161505%_))))
                     (if _%main-type161507161509%_
                         (let* ((_%main-type161512%_ _%main-type161507161509%_)
                                (__method170840
                                 (let ()
                                   (declare (not safe))
                                   (__method-ref
                                    _%main-type161512%_
                                    'return-type))))
                           (if __method170840
                               (let ((__tmp171035
                                      (gxc#extract-keyword-args
                                       _%args161463%_)))
                                 (declare (not safe))
                                 (__method170840
                                  _%main-type161512%_
                                  _%ctx161461%_
                                  _%stx161462%_
                                  __tmp171035))
                               (begin
                                 (let ()
                                   (declare (not safe))
                                   (error '"Missing method"
                                          _%main-type161512%_
                                          'return-type))
                                 '#!void)))
                         '#f))))
                (_%K161480161497%_
                 (lambda (_%proc161495%_)
                   (let ((__method170841
                          (let ()
                            (declare (not safe))
                            (__method-ref _%proc161495%_ 'return-type))))
                     (if __method170841
                         (let ((__tmp171036
                                (gxc#extract-keyword-args _%args161463%_)))
                           (declare (not safe))
                           (__method170841
                            _%proc161495%_
                            _%proc161495%_
                            _%ctx161461%_
                            _%stx161462%_
                            __tmp171036))
                         (begin
                           (let ()
                             (declare (not safe))
                             (error '"Missing method"
                                    _%proc161495%_
                                    'return-type))
                           '#!void))))))
            (let ((_%try-match161478161502%_
                   (lambda ()
                     (if (let ()
                           (declare (not safe))
                           (##structure-instance-of?
                            _%g161476161487%_
                            'gxc#!procedure::t))
                         (let ((_%proc161500%_ _%g161476161487%_))
                           (_%K161480161497%_ _%proc161500%_))
                         (_%E161479161491%_)))))
              (if (let ()
                    (declare (not safe))
                    (##structure-instance-of?
                     _%g161476161487%_
                     'gxc#!kw-lambda-primary::t))
                  (let* ((_%e161482161517%_
                          (let ()
                            (declare (not safe))
                            (##unchecked-structure-ref
                             _%g161476161487%_
                             '1
                             '#f
                             '#f)))
                         (_%e161483161520%_
                          (let ()
                            (declare (not safe))
                            (##unchecked-structure-ref
                             _%g161476161487%_
                             '2
                             '#f
                             '#f)))
                         (_%e161484161523%_
                          (let ()
                            (declare (not safe))
                            (##unchecked-structure-ref
                             _%g161476161487%_
                             '3
                             '#f
                             '#f)))
                         (_%e161485161528%_
                          (let ()
                            (declare (not safe))
                            (##unchecked-structure-ref
                             _%g161476161487%_
                             '4
                             '#f
                             '#f))))
                    (let ((_%keys161526%_ _%e161484161523%_)
                          (_%main161531%_ _%e161485161528%_))
                      (_%K161481161514%_ _%main161531%_ _%keys161526%_)))
                  (_%try-match161478161502%_)))))))
    (let ()
      (declare (not safe))
      (__bind-method!__%
       gxc#!kw-lambda::t
       'return-type
       gxc#!kw-lambda::return-type
       '#f))
    (define gxc#!kw-lambda::apply-return-type
      (lambda (_%self154115161263%_ _%ctx161265%_ _%stx161266%_ _%args161267%_)
        (let* ((_%self161269%_ _%self154115161263%_)
               (_%self161271%_ _%self161269%_)
               (_%g161280161291%_
                (let ((__tmp171037
                       (let ()
                         (declare (not safe))
                         (##unchecked-structure-ref
                          _%self161271%_
                          '4
                          '#f
                          '#f))))
                  (declare (not safe))
                  (gxc#optimizer-lookup-type __tmp171037)))
               (_%E161283161295%_
                (lambda ()
                  (let ()
                    (declare (not safe))
                    (error '"No clause matching"
                           _%g161280161291%_
                           '((!kw-lambda-primary _ _ keys main))
                           '((? !procedure? proc))))
                  '#!void)))
          (let ((_%K161285161318%_
                 (lambda (_%main161309%_ _%keys161310%_)
                   (let ((_%main-type161311161313%_
                          (let ()
                            (declare (not safe))
                            (gxc#optimizer-lookup-type _%main161309%_))))
                     (if _%main-type161311161313%_
                         (let* ((_%main-type161316%_ _%main-type161311161313%_)
                                (__method170842
                                 (let ()
                                   (declare (not safe))
                                   (__method-ref
                                    _%main-type161316%_
                                    'apply-return-type))))
                           (if __method170842
                               (let ((__tmp171038
                                      (gxc#extract-keyword-args
                                       _%args161267%_)))
                                 (declare (not safe))
                                 (__method170842
                                  _%main-type161316%_
                                  _%ctx161265%_
                                  _%stx161266%_
                                  __tmp171038))
                               (begin
                                 (let ()
                                   (declare (not safe))
                                   (error '"Missing method"
                                          _%main-type161316%_
                                          'apply-return-type))
                                 '#!void)))
                         '#f))))
                (_%K161284161301%_
                 (lambda (_%proc161299%_)
                   (let ((__method170843
                          (let ()
                            (declare (not safe))
                            (__method-ref _%proc161299%_ 'apply-return-type))))
                     (if __method170843
                         (let ((__tmp171039
                                (gxc#extract-keyword-args _%args161267%_)))
                           (declare (not safe))
                           (__method170843
                            _%proc161299%_
                            _%proc161299%_
                            _%ctx161265%_
                            _%stx161266%_
                            __tmp171039))
                         (begin
                           (let ()
                             (declare (not safe))
                             (error '"Missing method"
                                    _%proc161299%_
                                    'apply-return-type))
                           '#!void))))))
            (let ((_%try-match161282161306%_
                   (lambda ()
                     (if (let ()
                           (declare (not safe))
                           (##structure-instance-of?
                            _%g161280161291%_
                            'gxc#!procedure::t))
                         (let ((_%proc161304%_ _%g161280161291%_))
                           (_%K161284161301%_ _%proc161304%_))
                         (_%E161283161295%_)))))
              (if (let ()
                    (declare (not safe))
                    (##structure-instance-of?
                     _%g161280161291%_
                     'gxc#!kw-lambda-primary::t))
                  (let* ((_%e161286161321%_
                          (let ()
                            (declare (not safe))
                            (##unchecked-structure-ref
                             _%g161280161291%_
                             '1
                             '#f
                             '#f)))
                         (_%e161287161324%_
                          (let ()
                            (declare (not safe))
                            (##unchecked-structure-ref
                             _%g161280161291%_
                             '2
                             '#f
                             '#f)))
                         (_%e161288161327%_
                          (let ()
                            (declare (not safe))
                            (##unchecked-structure-ref
                             _%g161280161291%_
                             '3
                             '#f
                             '#f)))
                         (_%e161289161332%_
                          (let ()
                            (declare (not safe))
                            (##unchecked-structure-ref
                             _%g161280161291%_
                             '4
                             '#f
                             '#f))))
                    (let ((_%keys161330%_ _%e161288161327%_)
                          (_%main161335%_ _%e161289161332%_))
                      (_%K161285161318%_ _%main161335%_ _%keys161330%_)))
                  (_%try-match161282161306%_)))))))
    (let ()
      (declare (not safe))
      (__bind-method!__%
       gxc#!kw-lambda::t
       'apply-return-type
       gxc#!kw-lambda::apply-return-type
       '#f))
    (define gxc#extract-keyword-args
      (lambda (_%args161012%_)
        (let _%loop161014%_ ((_%rest161016%_ _%args161012%_)
                             (_%result161017%_ '()))
          (let* ((_%__stx169082169083%_ _%rest161016%_)
                 (_%g161021161047%_
                  (lambda ()
                    (let ()
                      (declare (not safe))
                      (gx#raise-syntax-error
                       '#f
                       '"Bad syntax; invalid match target"
                       _%__stx169082169083%_)))))
            (let ((_%__kont169084169085%_
                   (lambda (_%L161119%_ _%L161120%_ _%L161121%_)
                     (_%loop161014%_
                      _%L161119%_
                      (cons _%L161120%_ _%result161017%_))))
                  (_%__kont169086169087%_
                   (lambda (_%L161067%_ _%L161068%_)
                     (_%loop161014%_
                      _%L161067%_
                      (cons _%L161068%_ _%result161017%_))))
                  (_%__kont169088169089%_
                   (lambda () (reverse! _%result161017%_))))
              (let ((_%__match169119169120%_
                     (lambda (_%e161026161087%_
                              _%hd161027161090%_
                              _%tl161028161092%_
                              _%e161029161095%_
                              _%hd161030161098%_
                              _%tl161031161100%_
                              _%e161032161103%_
                              _%hd161033161106%_
                              _%tl161034161108%_
                              _%e161035161111%_
                              _%hd161036161114%_
                              _%tl161037161116%_)
                       (let ((_%L161119%_ _%tl161037161116%_)
                             (_%L161120%_ _%hd161036161114%_)
                             (_%L161121%_ _%hd161033161106%_))
                         (if (let ()
                               (declare (not safe))
                               (gx#stx-keyword? _%L161121%_))
                             (_%__kont169084169085%_
                              _%L161119%_
                              _%L161120%_
                              _%L161121%_)
                             (_%__kont169086169087%_
                              _%tl161028161092%_
                              _%hd161027161090%_))))))
                (if (let ()
                      (declare (not safe))
                      (gx#stx-pair? _%__stx169082169083%_))
                    (let ((_%e161026161087%_
                           (let ()
                             (declare (not safe))
                             (gx#stx-e _%__stx169082169083%_))))
                      (let ((_%tl161028161092%_
                             (let ()
                               (declare (not safe))
                               (##cdr _%e161026161087%_)))
                            (_%hd161027161090%_
                             (let ()
                               (declare (not safe))
                               (##car _%e161026161087%_))))
                        (if (let ()
                              (declare (not safe))
                              (gx#stx-pair? _%hd161027161090%_))
                            (let ((_%e161029161095%_
                                   (let ()
                                     (declare (not safe))
                                     (gx#stx-e _%hd161027161090%_))))
                              (let ((_%tl161031161100%_
                                     (let ()
                                       (declare (not safe))
                                       (##cdr _%e161029161095%_)))
                                    (_%hd161030161098%_
                                     (let ()
                                       (declare (not safe))
                                       (##car _%e161029161095%_))))
                                (if (let ()
                                      (declare (not safe))
                                      (gx#identifier? _%hd161030161098%_))
                                    (if (let ()
                                          (declare (not safe))
                                          (gx#stx-eq?
                                           '%#quote
                                           _%hd161030161098%_))
                                        (if (let ()
                                              (declare (not safe))
                                              (gx#stx-pair?
                                               _%tl161031161100%_))
                                            (let ((_%e161032161103%_
                                                   (let ()
                                                     (declare (not safe))
                                                     (gx#stx-e
                                                      _%tl161031161100%_))))
                                              (let ((_%tl161034161108%_
                                                     (let ()
                                                       (declare (not safe))
                                                       (##cdr _%e161032161103%_)))
                                                    (_%hd161033161106%_
                                                     (let ()
                                                       (declare (not safe))
                                                       (##car _%e161032161103%_))))
                                                (if (let ()
                                                      (declare (not safe))
                                                      (gx#stx-null?
                                                       _%tl161034161108%_))
                                                    (if (let ()
                                                          (declare (not safe))
                                                          (gx#stx-pair?
                                                           _%tl161028161092%_))
                                                        (let ((_%e161035161111%_
                                                               (let ()
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                         (declare (not safe))
                         (gx#stx-e _%tl161028161092%_))))
                  (let ((_%tl161037161116%_
                         (let ()
                           (declare (not safe))
                           (##cdr _%e161035161111%_)))
                        (_%hd161036161114%_
                         (let ()
                           (declare (not safe))
                           (##car _%e161035161111%_))))
                    (_%__match169119169120%_
                     _%e161026161087%_
                     _%hd161027161090%_
                     _%tl161028161092%_
                     _%e161029161095%_
                     _%hd161030161098%_
                     _%tl161031161100%_
                     _%e161032161103%_
                     _%hd161033161106%_
                     _%tl161034161108%_
                     _%e161035161111%_
                     _%hd161036161114%_
                     _%tl161037161116%_)))
                (_%__kont169086169087%_ _%tl161028161092%_ _%hd161027161090%_))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                                    (_%__kont169086169087%_
                                                     _%tl161028161092%_
                                                     _%hd161027161090%_))))
                                            (_%__kont169086169087%_
                                             _%tl161028161092%_
                                             _%hd161027161090%_))
                                        (_%__kont169086169087%_
                                         _%tl161028161092%_
                                         _%hd161027161090%_))
                                    (_%__kont169086169087%_
                                     _%tl161028161092%_
                                     _%hd161027161090%_))))
                            (_%__kont169086169087%_
                             _%tl161028161092%_
                             _%hd161027161090%_))))
                    (_%__kont169088169089%_))))))))
    (define gxc#!lambda-arity-match?
      (lambda (_%self160944%_ _%args160945%_)
        (let* ((_%self160946160954%_ _%self160944%_)
               (_%E160948160958%_
                (lambda ()
                  (let ()
                    (declare (not safe))
                    (error '"No clause matching"
                           _%self160946160954%_
                           '((!lambda _ _ arity))))
                  '#!void))
               (_%K160949160998%_
                (lambda (_%arity160961%_)
                  (let* ((_%arity160962160971%_ _%arity160961%_)
                         (_%E160965160975%_
                          (lambda ()
                            (let ()
                              (declare (not safe))
                              (error '"No clause matching"
                                     _%arity160962160971%_
                                     '((? fixnum?))
                                     '([arity])))
                            '#!void)))
                    (let ((_%K160969160995%_
                           (lambda ()
                             (fx= (length _%args160945%_) _%arity160961%_)))
                          (_%K160966160981%_
                           (lambda (_%arity160979%_)
                             (fx>= (length _%args160945%_) _%arity160979%_))))
                      (let* ((_%__match169138169139%_
                              (lambda (_%hd160967160984%_ _%tl160968160986%_)
                                (let ((_%arity160989%_ _%hd160967160984%_))
                                  (_%E160965160975%_))))
                             (_%try-match160964160991%_
                              (lambda ()
                                (if (pair? _%arity160962160971%_)
                                    (let ((_%tl160968160986%_
                                           (let ()
                                             (declare (not safe))
                                             (##cdr _%arity160962160971%_)))
                                          (_%hd160967160984%_
                                           (let ()
                                             (declare (not safe))
                                             (##car _%arity160962160971%_))))
                                      (if (null? _%tl160968160986%_)
                                          (let ((_%arity160989%_
                                                 _%hd160967160984%_))
                                            (_%K160966160981%_
                                             _%arity160989%_))
                                          (_%__match169138169139%_
                                           _%hd160967160984%_
                                           _%tl160968160986%_)))
                                    (_%E160965160975%_)))))
                        (if (fixnum? _%arity160962160971%_)
                            (_%K160969160995%_)
                            (_%try-match160964160991%_))))))))
          (if (let ()
                (declare (not safe))
                (##structure-instance-of?
                 _%self160946160954%_
                 'gxc#!lambda::t))
              (let* ((_%e160950161001%_
                      (let ()
                        (declare (not safe))
                        (##unchecked-structure-ref
                         _%self160946160954%_
                         '1
                         '#f
                         '#f)))
                     (_%e160951161004%_
                      (let ()
                        (declare (not safe))
                        (##unchecked-structure-ref
                         _%self160946160954%_
                         '2
                         '#f
                         '#f)))
                     (_%e160952161007%_
                      (let ()
                        (declare (not safe))
                        (##unchecked-structure-ref
                         _%self160946160954%_
                         '3
                         '#f
                         '#f)))
                     (_%arity161010%_ _%e160952161007%_))
                (_%K160949160998%_ _%arity161010%_))
              (_%E160948160958%_)))))
    (define gxc#!lambda-arity-match-apply?
      (lambda (_%self160876%_ _%args160877%_)
        (let* ((_%self160878160886%_ _%self160876%_)
               (_%E160880160890%_
                (lambda ()
                  (let ()
                    (declare (not safe))
                    (error '"No clause matching"
                           _%self160878160886%_
                           '((!lambda _ _ arity))))
                  '#!void))
               (_%K160881160930%_
                (lambda (_%arity160893%_)
                  (let* ((_%arity160894160903%_ _%arity160893%_)
                         (_%E160897160907%_
                          (lambda ()
                            (let ()
                              (declare (not safe))
                              (error '"No clause matching"
                                     _%arity160894160903%_
                                     '((? fixnum?))
                                     '([arity])))
                            '#!void)))
                    (let ((_%K160901160927%_
                           (lambda ()
                             (let ((__tmp171040 (length _%args160877%_)))
                               (declare (not safe))
                               (##fx>= _%arity160893%_ __tmp171040))))
                          (_%K160898160913%_ (lambda (_%arity160911%_) '#t)))
                      (let* ((_%__match169151169152%_
                              (lambda (_%hd160899160916%_ _%tl160900160918%_)
                                (let ((_%arity160921%_ _%hd160899160916%_))
                                  (_%E160897160907%_))))
                             (_%try-match160896160923%_
                              (lambda ()
                                (if (pair? _%arity160894160903%_)
                                    (let ((_%tl160900160918%_
                                           (let ()
                                             (declare (not safe))
                                             (##cdr _%arity160894160903%_)))
                                          (_%hd160899160916%_
                                           (let ()
                                             (declare (not safe))
                                             (##car _%arity160894160903%_))))
                                      (if (null? _%tl160900160918%_)
                                          (let ((_%arity160921%_
                                                 _%hd160899160916%_))
                                            (_%K160898160913%_
                                             _%arity160921%_))
                                          (_%__match169151169152%_
                                           _%hd160899160916%_
                                           _%tl160900160918%_)))
                                    (_%E160897160907%_)))))
                        (if (fixnum? _%arity160894160903%_)
                            (_%K160901160927%_)
                            (_%try-match160896160923%_))))))))
          (if (let ()
                (declare (not safe))
                (##structure-instance-of?
                 _%self160878160886%_
                 'gxc#!lambda::t))
              (let* ((_%e160882160933%_
                      (let ()
                        (declare (not safe))
                        (##unchecked-structure-ref
                         _%self160878160886%_
                         '1
                         '#f
                         '#f)))
                     (_%e160883160936%_
                      (let ()
                        (declare (not safe))
                        (##unchecked-structure-ref
                         _%self160878160886%_
                         '2
                         '#f
                         '#f)))
                     (_%e160884160939%_
                      (let ()
                        (declare (not safe))
                        (##unchecked-structure-ref
                         _%self160878160886%_
                         '3
                         '#f
                         '#f)))
                     (_%arity160942%_ _%e160884160939%_))
                (_%K160881160930%_ _%arity160942%_))
              (_%E160880160890%_)))))
    (define gxc#basic-expression-type-special-cast
      (lambda (_%ctx160763%_ _%stx160764%_)
        (let* ((_%g160766160792%_
                (lambda (_%g160767160789%_)
                  (let ()
                    (declare (not safe))
                    (gx#raise-syntax-error
                     '#f
                     '"Bad syntax; invalid match target"
                     _%g160767160789%_))))
               (_%g160765160873%_
                (lambda (_%g160767160795%_)
                  (if (let ()
                        (declare (not safe))
                        (gx#stx-pair? _%g160767160795%_))
                      (let ((_%e160770160797%_
                             (let ()
                               (declare (not safe))
                               (gx#stx-e _%g160767160795%_))))
                        (let ((_%hd160771160800%_
                               (let ()
                                 (declare (not safe))
                                 (##car _%e160770160797%_)))
                              (_%tl160772160802%_
                               (let ()
                                 (declare (not safe))
                                 (##cdr _%e160770160797%_))))
                          (if (let ()
                                (declare (not safe))
                                (gx#stx-pair? _%tl160772160802%_))
                              (let ((_%e160773160805%_
                                     (let ()
                                       (declare (not safe))
                                       (gx#stx-e _%tl160772160802%_))))
                                (let ((_%hd160774160808%_
                                       (let ()
                                         (declare (not safe))
                                         (##car _%e160773160805%_)))
                                      (_%tl160775160810%_
                                       (let ()
                                         (declare (not safe))
                                         (##cdr _%e160773160805%_))))
                                  (if (let ()
                                        (declare (not safe))
                                        (gx#stx-pair? _%tl160775160810%_))
                                      (let ((_%e160776160813%_
                                             (let ()
                                               (declare (not safe))
                                               (gx#stx-e _%tl160775160810%_))))
                                        (let ((_%hd160777160816%_
                                               (let ()
                                                 (declare (not safe))
                                                 (##car _%e160776160813%_)))
                                              (_%tl160778160818%_
                                               (let ()
                                                 (declare (not safe))
                                                 (##cdr _%e160776160813%_))))
                                          (if (let ()
                                                (declare (not safe))
                                                (gx#stx-pair?
                                                 _%hd160777160816%_))
                                              (let ((_%e160779160821%_
                                                     (let ()
                                                       (declare (not safe))
                                                       (gx#stx-e
                                                        _%hd160777160816%_))))
                                                (let ((_%hd160780160824%_
                                                       (let ()
                                                         (declare (not safe))
                                                         (##car _%e160779160821%_)))
                                                      (_%tl160781160826%_
                                                       (let ()
                                                         (declare (not safe))
                                                         (##cdr _%e160779160821%_))))
                                                  (if (let ()
                                                        (declare (not safe))
                                                        (gx#identifier?
                                                         _%hd160780160824%_))
                                                      (if (let ()
                                                            (declare
                                                              (not safe))
                                                            (gx#stx-eq?
                                                             '%#ref
                                                             _%hd160780160824%_))
                                                          (if (let ()
                                                                (declare
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                          (not safe))
                        (gx#stx-pair? _%tl160781160826%_))
                      (let ((_%e160782160829%_
                             (let ()
                               (declare (not safe))
                               (gx#stx-e _%tl160781160826%_))))
                        (let ((_%hd160783160832%_
                               (let ()
                                 (declare (not safe))
                                 (##car _%e160782160829%_)))
                              (_%tl160784160834%_
                               (let ()
                                 (declare (not safe))
                                 (##cdr _%e160782160829%_))))
                          (if (let ()
                                (declare (not safe))
                                (gx#stx-null? _%tl160784160834%_))
                              (if (let ()
                                    (declare (not safe))
                                    (gx#stx-pair? _%tl160778160818%_))
                                  (let ((_%e160785160837%_
                                         (let ()
                                           (declare (not safe))
                                           (gx#stx-e _%tl160778160818%_))))
                                    (let ((_%hd160786160840%_
                                           (let ()
                                             (declare (not safe))
                                             (##car _%e160785160837%_)))
                                          (_%tl160787160842%_
                                           (let ()
                                             (declare (not safe))
                                             (##cdr _%e160785160837%_))))
                                      (if (let ()
                                            (declare (not safe))
                                            (gx#stx-null? _%tl160787160842%_))
                                          ((lambda (_%L160845%_ _%L160846%_)
                                             (let ((_%interface-type160866160868%_
                                                    (let ((__tmp171041
                                                           (let ()
                                                             (declare
                                                               (not safe))
                                                             (gxc#identifier-symbol
                                                              _%L160846%_))))
                                                      (declare (not safe))
                                                      (gxc#optimizer-resolve-type
                                                       __tmp171041))))
                                               (if _%interface-type160866160868%_
                                                   (let ((_%interface-type160871%_
                                                          _%interface-type160866160868%_))
                                                     (if (let ()
                                                           (declare (not safe))
                                                           (##structure-instance-of?
                                                            _%interface-type160871%_
                                                            'gxc#!interface::t))
                                                         (let ((__tmp171042
                                                                (let ()
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                          (declare (not safe))
                          (##unchecked-structure-ref
                           _%interface-type160871%_
                           '1
                           '#f
                           '#f))))
                   (declare (not safe))
                   (gxc#optimizer-resolve-class _%stx160764%_ __tmp171042))
                 (let ()
                   (declare (not safe))
                   (gxc#raise-compile-error
                    '"cast to non interface"
                    _%stx160764%_
                    _%L160846%_
                    _%interface-type160871%_))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                                   '#f)))
                                           _%hd160786160840%_
                                           _%hd160783160832%_)
                                          (_%g160766160792%_
                                           _%g160767160795%_))))
                                  (_%g160766160792%_ _%g160767160795%_))
                              (_%g160766160792%_ _%g160767160795%_))))
                      (_%g160766160792%_ _%g160767160795%_))
                  (_%g160766160792%_ _%g160767160795%_))
              (_%g160766160792%_ _%g160767160795%_))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                              (_%g160766160792%_
                                               _%g160767160795%_))))
                                      (_%g160766160792%_ _%g160767160795%_))))
                              (_%g160766160792%_ _%g160767160795%_))))
                      (_%g160766160792%_ _%g160767160795%_)))))
          (_%g160765160873%_ _%stx160764%_))))
    (define gxc#basic-expression-type-special-apply
      (lambda (_%ctx160553%_ _%stx160554%_)
        (letrec ((_%type-e160556%_
                  (lambda (_%rator160759%_ _%rator-type160760%_ _%args160761%_)
                    (if (let ()
                          (declare (not safe))
                          (##structure-instance-of?
                           _%rator-type160760%_
                           'gxc#!procedure::t))
                        (let ((__method170844
                               (let ()
                                 (declare (not safe))
                                 (__method-ref
                                  _%rator-type160760%_
                                  'apply-return-type))))
                          (if __method170844
                              (let ()
                                (declare (not safe))
                                (__method170844
                                 _%rator-type160760%_
                                 _%ctx160553%_
                                 _%stx160554%_
                                 _%args160761%_))
                              (begin
                                (let ()
                                  (declare (not safe))
                                  (error '"Missing method"
                                         _%rator-type160760%_
                                         'apply-return-type))
                                '#!void)))
                        '#f))))
          (let* ((_%__stx169154169155%_ _%stx160554%_)
                 (_%g160560160602%_
                  (lambda ()
                    (let ()
                      (declare (not safe))
                      (gx#raise-syntax-error
                       '#f
                       '"Bad syntax; invalid match target"
                       _%__stx169154169155%_)))))
            (let ((_%__kont169156169157%_
                   (lambda (_%L160723%_ _%L160724%_ _%L160725%_ _%L160726%_)
                     (let ((_%rator-type160749160751%_
                            (gxc#apply-basic-expression-type _%L160724%_)))
                       (if _%rator-type160749160751%_
                           (let ((_%rator-type160754%_
                                  _%rator-type160749160751%_))
                             (_%type-e160556%_
                              _%L160724%_
                              _%rator-type160754%_
                              (cons _%L160725%_ _%L160723%_)))
                           '#f))))
                  (_%__kont169158169159%_
                   (lambda (_%L160638%_ _%L160639%_)
                     (let ((_%rator-type160655160657%_
                            (gxc#apply-basic-expression-type _%L160639%_)))
                       (if _%rator-type160655160657%_
                           (let ((_%rator-type160660%_
                                  _%rator-type160655160657%_))
                             (_%type-e160556%_
                              _%L160639%_
                              _%rator-type160660%_
                              _%L160638%_))
                           '#f))))
                  (_%__kont169160169161%_ (lambda () '#f)))
              (let ((_%__match169209169210%_
                     (lambda (_%e160566160667%_
                              _%hd160567160670%_
                              _%tl160568160672%_
                              _%e160569160675%_
                              _%hd160570160678%_
                              _%tl160571160680%_
                              _%e160572160683%_
                              _%hd160573160686%_
                              _%tl160574160688%_
                              _%e160575160691%_
                              _%hd160576160694%_
                              _%tl160577160696%_
                              _%e160578160699%_
                              _%hd160579160702%_
                              _%tl160580160704%_
                              _%e160581160707%_
                              _%hd160582160710%_
                              _%tl160583160712%_
                              _%e160584160715%_
                              _%hd160585160718%_
                              _%tl160586160720%_)
                       (let ((_%L160723%_ _%tl160586160720%_)
                             (_%L160724%_ _%hd160585160718%_)
                             (_%L160725%_ _%hd160582160710%_)
                             (_%L160726%_ _%hd160579160702%_))
                         (if (let ()
                               (declare (not safe))
                               (gx#free-identifier=?
                                _%L160726%_
                                'keyword-dispatch))
                             (_%__kont169156169157%_
                              _%L160723%_
                              _%L160724%_
                              _%L160725%_
                              _%L160726%_)
                             (_%__kont169158169159%_
                              _%tl160574160688%_
                              _%hd160573160686%_))))))
                (if (let ()
                      (declare (not safe))
                      (gx#stx-pair? _%__stx169154169155%_))
                    (let ((_%e160566160667%_
                           (let ()
                             (declare (not safe))
                             (gx#stx-e _%__stx169154169155%_))))
                      (let ((_%tl160568160672%_
                             (let ()
                               (declare (not safe))
                               (##cdr _%e160566160667%_)))
                            (_%hd160567160670%_
                             (let ()
                               (declare (not safe))
                               (##car _%e160566160667%_))))
                        (if (let ()
                              (declare (not safe))
                              (gx#stx-pair? _%tl160568160672%_))
                            (let ((_%e160569160675%_
                                   (let ()
                                     (declare (not safe))
                                     (gx#stx-e _%tl160568160672%_))))
                              (let ((_%tl160571160680%_
                                     (let ()
                                       (declare (not safe))
                                       (##cdr _%e160569160675%_)))
                                    (_%hd160570160678%_
                                     (let ()
                                       (declare (not safe))
                                       (##car _%e160569160675%_))))
                                (if (let ()
                                      (declare (not safe))
                                      (gx#stx-pair? _%tl160571160680%_))
                                    (let ((_%e160572160683%_
                                           (let ()
                                             (declare (not safe))
                                             (gx#stx-e _%tl160571160680%_))))
                                      (let ((_%tl160574160688%_
                                             (let ()
                                               (declare (not safe))
                                               (##cdr _%e160572160683%_)))
                                            (_%hd160573160686%_
                                             (let ()
                                               (declare (not safe))
                                               (##car _%e160572160683%_))))
                                        (if (let ()
                                              (declare (not safe))
                                              (gx#stx-pair?
                                               _%hd160573160686%_))
                                            (let ((_%e160575160691%_
                                                   (let ()
                                                     (declare (not safe))
                                                     (gx#stx-e
                                                      _%hd160573160686%_))))
                                              (let ((_%tl160577160696%_
                                                     (let ()
                                                       (declare (not safe))
                                                       (##cdr _%e160575160691%_)))
                                                    (_%hd160576160694%_
                                                     (let ()
                                                       (declare (not safe))
                                                       (##car _%e160575160691%_))))
                                                (if (let ()
                                                      (declare (not safe))
                                                      (gx#identifier?
                                                       _%hd160576160694%_))
                                                    (if (let ()
                                                          (declare (not safe))
                                                          (gx#stx-eq?
                                                           '%#ref
                                                           _%hd160576160694%_))
                                                        (if (let ()
                                                              (declare
                                                                (not safe))
                                                              (gx#stx-pair?
                                                               _%tl160577160696%_))
                                                            (let ((_%e160578160699%_
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                           (let ()
                             (declare (not safe))
                             (gx#stx-e _%tl160577160696%_))))
                      (let ((_%tl160580160704%_
                             (let ()
                               (declare (not safe))
                               (##cdr _%e160578160699%_)))
                            (_%hd160579160702%_
                             (let ()
                               (declare (not safe))
                               (##car _%e160578160699%_))))
                        (if (let ()
                              (declare (not safe))
                              (gx#stx-null? _%tl160580160704%_))
                            (if (let ()
                                  (declare (not safe))
                                  (gx#stx-pair? _%tl160574160688%_))
                                (let ((_%e160581160707%_
                                       (let ()
                                         (declare (not safe))
                                         (gx#stx-e _%tl160574160688%_))))
                                  (let ((_%tl160583160712%_
                                         (let ()
                                           (declare (not safe))
                                           (##cdr _%e160581160707%_)))
                                        (_%hd160582160710%_
                                         (let ()
                                           (declare (not safe))
                                           (##car _%e160581160707%_))))
                                    (if (let ()
                                          (declare (not safe))
                                          (gx#stx-pair? _%tl160583160712%_))
                                        (let ((_%e160584160715%_
                                               (let ()
                                                 (declare (not safe))
                                                 (gx#stx-e
                                                  _%tl160583160712%_))))
                                          (let ((_%tl160586160720%_
                                                 (let ()
                                                   (declare (not safe))
                                                   (##cdr _%e160584160715%_)))
                                                (_%hd160585160718%_
                                                 (let ()
                                                   (declare (not safe))
                                                   (##car _%e160584160715%_))))
                                            (_%__match169209169210%_
                                             _%e160566160667%_
                                             _%hd160567160670%_
                                             _%tl160568160672%_
                                             _%e160569160675%_
                                             _%hd160570160678%_
                                             _%tl160571160680%_
                                             _%e160572160683%_
                                             _%hd160573160686%_
                                             _%tl160574160688%_
                                             _%e160575160691%_
                                             _%hd160576160694%_
                                             _%tl160577160696%_
                                             _%e160578160699%_
                                             _%hd160579160702%_
                                             _%tl160580160704%_
                                             _%e160581160707%_
                                             _%hd160582160710%_
                                             _%tl160583160712%_
                                             _%e160584160715%_
                                             _%hd160585160718%_
                                             _%tl160586160720%_)))
                                        (_%__kont169158169159%_
                                         _%tl160574160688%_
                                         _%hd160573160686%_))))
                                (_%__kont169158169159%_
                                 _%tl160574160688%_
                                 _%hd160573160686%_))
                            (_%__kont169158169159%_
                             _%tl160574160688%_
                             _%hd160573160686%_))))
                    (_%__kont169158169159%_
                     _%tl160574160688%_
                     _%hd160573160686%_))
                (_%__kont169158169159%_ _%tl160574160688%_ _%hd160573160686%_))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                                    (_%__kont169158169159%_
                                                     _%tl160574160688%_
                                                     _%hd160573160686%_))))
                                            (_%__kont169158169159%_
                                             _%tl160574160688%_
                                             _%hd160573160686%_))))
                                    (_%__kont169160169161%_))))
                            (_%__kont169160169161%_))))
                    (_%__kont169160169161%_))))))))
    (let ()
      (declare (not safe))
      (__hash-put!
       gxc#basic-expression-type-special
       'cast
       gxc#basic-expression-type-special-cast))
    (let ()
      (declare (not safe))
      (__hash-put!
       gxc#basic-expression-type-special
       'apply
       gxc#basic-expression-type-special-apply))
    (let ()
      (declare (not safe))
      (__hash-put!
       gxc#basic-expression-type-special
       '##apply
       gxc#basic-expression-type-special-apply))
    (define gxc#basic-expression-type-ref%
      (lambda (_%self160501%_ _%stx160502%_)
        (let* ((_%g160504160517%_
                (lambda (_%g160505160514%_)
                  (let ()
                    (declare (not safe))
                    (gx#raise-syntax-error
                     '#f
                     '"Bad syntax; invalid match target"
                     _%g160505160514%_))))
               (_%g160503160550%_
                (lambda (_%g160505160520%_)
                  (if (let ()
                        (declare (not safe))
                        (gx#stx-pair? _%g160505160520%_))
                      (let ((_%e160507160522%_
                             (let ()
                               (declare (not safe))
                               (gx#stx-e _%g160505160520%_))))
                        (let ((_%hd160508160525%_
                               (let ()
                                 (declare (not safe))
                                 (##car _%e160507160522%_)))
                              (_%tl160509160527%_
                               (let ()
                                 (declare (not safe))
                                 (##cdr _%e160507160522%_))))
                          (if (let ()
                                (declare (not safe))
                                (gx#stx-pair? _%tl160509160527%_))
                              (let ((_%e160510160530%_
                                     (let ()
                                       (declare (not safe))
                                       (gx#stx-e _%tl160509160527%_))))
                                (let ((_%hd160511160533%_
                                       (let ()
                                         (declare (not safe))
                                         (##car _%e160510160530%_)))
                                      (_%tl160512160535%_
                                       (let ()
                                         (declare (not safe))
                                         (##cdr _%e160510160530%_))))
                                  (if (let ()
                                        (declare (not safe))
                                        (gx#stx-null? _%tl160512160535%_))
                                      ((lambda (_%L160538%_)
                                         (let ((__tmp171043
                                                (let ()
                                                  (declare (not safe))
                                                  (gxc#identifier-symbol
                                                   _%L160538%_))))
                                           (declare (not safe))
                                           (gxc#optimizer-resolve-type
                                            __tmp171043)))
                                       _%hd160511160533%_)
                                      (_%g160504160517%_ _%g160505160520%_))))
                              (_%g160504160517%_ _%g160505160520%_))))
                      (_%g160504160517%_ _%g160505160520%_)))))
          (_%g160503160550%_ _%stx160502%_))))
    (define gxc#basic-expression-type-if%
      (lambda (_%self160080%_ _%stx160081%_)
        (letrec ((_%type-e160083%_
                  (lambda (_%type-K160495%_ _%type-E160496%_)
                    (if (let ()
                          (declare (not safe))
                          (##structure-instance-of?
                           _%type-E160496%_
                           'gxc#!abort::t))
                        _%type-K160495%_
                        (if (let ()
                              (declare (not safe))
                              (##structure-instance-of?
                               _%type-K160495%_
                               'gxc#!abort::t))
                            _%type-E160496%_
                            (gxc#greatest-common-type
                             _%stx160081%_
                             _%type-K160495%_
                             _%type-E160496%_)))))
                 (_%basic-type-e160084%_
                  (lambda (_%K160489%_ _%E160490%_)
                    (let ((_%type-K160492%_
                           (gxc#apply-basic-expression-type _%K160489%_))
                          (_%type-E160493%_
                           (gxc#apply-basic-expression-type _%E160490%_)))
                      (_%type-e160083%_ _%type-K160492%_ _%type-E160493%_)))))
          (let* ((_%__stx169230169231%_ _%stx160081%_)
                 (_%g160088160177%_
                  (lambda ()
                    (let ()
                      (declare (not safe))
                      (gx#raise-syntax-error
                       '#f
                       '"Bad syntax; invalid match target"
                       _%__stx169230169231%_)))))
            (let ((_%__kont169232169233%_
                   (lambda (_%L160436%_ _%L160437%_ _%L160438%_ _%L160439%_)
                     (let ((_%$e160471%_
                            (let ((__tmp171044
                                   (let ()
                                     (declare (not safe))
                                     (gxc#identifier-symbol _%L160439%_))))
                              (declare (not safe))
                              (gxc#optimizer-lookup-type __tmp171044))))
                       (if _%$e160471%_
                           ((lambda (_%pred-type160474%_)
                              (if (or (let ()
                                        (declare (not safe))
                                        (##structure-instance-of?
                                         _%pred-type160474%_
                                         'gxc#!predicate::t))
                                      (let ()
                                        (declare (not safe))
                                        (##structure-instance-of?
                                         _%pred-type160474%_
                                         'gxc#!primitive-predicate::t)))
                                  (let* ((_%type-K160480%_
                                          (let ((__tmp171047
                                                 (lambda ()
                                                   (gxc#apply-basic-expression-type
                                                    _%L160437%_)))
                                                (__tmp171045
                                                 (cons (cons (let ()
                                                               (declare
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                         (not safe))
                       (gxc#identifier-symbol _%L160438%_))
                     (let ((__tmp171046
                            (##structure-ref
                             _%pred-type160474%_
                             '1
                             gxc#!type::t
                             '#f)))
                       (declare (not safe))
                       (gxc#optimizer-resolve-class
                        _%stx160081%_
                        __tmp171046)))
               (let () (declare (not safe)) (gxc#current-compile-path-type)))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                            (declare (not safe))
                                            (__call-with-parameters
                                             __tmp171047
                                             gxc#current-compile-path-type
                                             __tmp171045)))
                                         (_%type-E160482%_
                                          (gxc#apply-basic-expression-type
                                           _%L160436%_)))
                                    (_%type-e160083%_
                                     _%type-K160480%_
                                     _%type-E160482%_))
                                  (_%basic-type-e160084%_
                                   _%L160437%_
                                   _%L160436%_)))
                            _%$e160471%_)
                           (_%basic-type-e160084%_ _%L160437%_ _%L160436%_)))))
                  (_%__kont169234169235%_
                   (lambda (_%L160312%_ _%L160313%_ _%L160314%_ _%L160315%_)
                     (gxc#basic-expression-type-if%
                      _%self160080%_
                      (let ((__tmp171048
                             (cons (let ()
                                     (declare (not safe))
                                     (gx#datum->syntax__0 '#f '%#if))
                                   (cons _%L160314%_
                                         (cons _%L160312%_
                                               (cons _%L160313%_ '()))))))
                        (declare (not safe))
                        (gxc#xform-wrap-source __tmp171048 _%stx160081%_)))))
                  (_%__kont169236169237%_
                   (lambda (_%L160214%_ _%L160215%_ _%L160216%_)
                     (_%basic-type-e160084%_ _%L160215%_ _%L160214%_))))
              (let ((_%__match169391169392%_
                     (lambda (_%e160131160240%_
                              _%hd160132160243%_
                              _%tl160133160245%_
                              _%e160134160248%_
                              _%hd160135160251%_
                              _%tl160136160253%_
                              _%e160137160256%_
                              _%hd160138160259%_
                              _%tl160139160261%_
                              _%e160140160264%_
                              _%hd160141160267%_
                              _%tl160142160269%_
                              _%e160143160272%_
                              _%hd160144160275%_
                              _%tl160145160277%_
                              _%e160146160280%_
                              _%hd160147160283%_
                              _%tl160148160285%_
                              _%e160149160288%_
                              _%hd160150160291%_
                              _%tl160151160293%_
                              _%e160152160296%_
                              _%hd160153160299%_
                              _%tl160154160301%_
                              _%e160155160304%_
                              _%hd160156160307%_
                              _%tl160157160309%_)
                       (let ((_%L160312%_ _%hd160156160307%_)
                             (_%L160313%_ _%hd160153160299%_)
                             (_%L160314%_ _%hd160150160291%_)
                             (_%L160315%_ _%hd160147160283%_))
                         (if (let ()
                               (declare (not safe))
                               (gxc#runtime-identifier=? _%L160315%_ 'not))
                             (_%__kont169234169235%_
                              _%L160312%_
                              _%L160313%_
                              _%L160314%_
                              _%L160315%_)
                             (_%__kont169236169237%_
                              _%hd160156160307%_
                              _%hd160153160299%_
                              _%hd160135160251%_))))))
                (if (let ()
                      (declare (not safe))
                      (gx#stx-pair? _%__stx169230169231%_))
                    (let ((_%e160094160348%_
                           (let ()
                             (declare (not safe))
                             (gx#stx-e _%__stx169230169231%_))))
                      (let ((_%tl160096160353%_
                             (let ()
                               (declare (not safe))
                               (##cdr _%e160094160348%_)))
                            (_%hd160095160351%_
                             (let ()
                               (declare (not safe))
                               (##car _%e160094160348%_))))
                        (if (let ()
                              (declare (not safe))
                              (gx#stx-pair? _%tl160096160353%_))
                            (let ((_%e160097160356%_
                                   (let ()
                                     (declare (not safe))
                                     (gx#stx-e _%tl160096160353%_))))
                              (let ((_%tl160099160361%_
                                     (let ()
                                       (declare (not safe))
                                       (##cdr _%e160097160356%_)))
                                    (_%hd160098160359%_
                                     (let ()
                                       (declare (not safe))
                                       (##car _%e160097160356%_))))
                                (if (let ()
                                      (declare (not safe))
                                      (gx#stx-pair? _%hd160098160359%_))
                                    (let ((_%e160100160364%_
                                           (let ()
                                             (declare (not safe))
                                             (gx#stx-e _%hd160098160359%_))))
                                      (let ((_%tl160102160369%_
                                             (let ()
                                               (declare (not safe))
                                               (##cdr _%e160100160364%_)))
                                            (_%hd160101160367%_
                                             (let ()
                                               (declare (not safe))
                                               (##car _%e160100160364%_))))
                                        (if (let ()
                                              (declare (not safe))
                                              (gx#identifier?
                                               _%hd160101160367%_))
                                            (if (let ()
                                                  (declare (not safe))
                                                  (gx#stx-eq?
                                                   '%#call
                                                   _%hd160101160367%_))
                                                (if (let ()
                                                      (declare (not safe))
                                                      (gx#stx-pair?
                                                       _%tl160102160369%_))
                                                    (let ((_%e160103160372%_
                                                           (let ()
                                                             (declare
                                                               (not safe))
                                                             (gx#stx-e
                                                              _%tl160102160369%_))))
                                                      (let ((_%tl160105160377%_
                                                             (let ()
                                                               (declare
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                         (not safe))
                       (##cdr _%e160103160372%_)))
                    (_%hd160104160375%_
                     (let () (declare (not safe)) (##car _%e160103160372%_))))
                (if (let ()
                      (declare (not safe))
                      (gx#stx-pair? _%hd160104160375%_))
                    (let ((_%e160106160380%_
                           (let ()
                             (declare (not safe))
                             (gx#stx-e _%hd160104160375%_))))
                      (let ((_%tl160108160385%_
                             (let ()
                               (declare (not safe))
                               (##cdr _%e160106160380%_)))
                            (_%hd160107160383%_
                             (let ()
                               (declare (not safe))
                               (##car _%e160106160380%_))))
                        (if (let ()
                              (declare (not safe))
                              (gx#identifier? _%hd160107160383%_))
                            (if (let ()
                                  (declare (not safe))
                                  (gx#stx-eq? '%#ref _%hd160107160383%_))
                                (if (let ()
                                      (declare (not safe))
                                      (gx#stx-pair? _%tl160108160385%_))
                                    (let ((_%e160109160388%_
                                           (let ()
                                             (declare (not safe))
                                             (gx#stx-e _%tl160108160385%_))))
                                      (let ((_%tl160111160393%_
                                             (let ()
                                               (declare (not safe))
                                               (##cdr _%e160109160388%_)))
                                            (_%hd160110160391%_
                                             (let ()
                                               (declare (not safe))
                                               (##car _%e160109160388%_))))
                                        (if (let ()
                                              (declare (not safe))
                                              (gx#stx-null?
                                               _%tl160111160393%_))
                                            (if (let ()
                                                  (declare (not safe))
                                                  (gx#stx-pair?
                                                   _%tl160105160377%_))
                                                (let ((_%e160112160396%_
                                                       (let ()
                                                         (declare (not safe))
                                                         (gx#stx-e
                                                          _%tl160105160377%_))))
                                                  (let ((_%tl160114160401%_
                                                         (let ()
                                                           (declare (not safe))
                                                           (##cdr _%e160112160396%_)))
                                                        (_%hd160113160399%_
                                                         (let ()
                                                           (declare (not safe))
                                                           (##car _%e160112160396%_))))
                                                    (if (let ()
                                                          (declare (not safe))
                                                          (gx#stx-pair?
                                                           _%hd160113160399%_))
                                                        (let ((_%e160115160404%_
                                                               (let ()
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                         (declare (not safe))
                         (gx#stx-e _%hd160113160399%_))))
                  (let ((_%tl160117160409%_
                         (let ()
                           (declare (not safe))
                           (##cdr _%e160115160404%_)))
                        (_%hd160116160407%_
                         (let ()
                           (declare (not safe))
                           (##car _%e160115160404%_))))
                    (if (let ()
                          (declare (not safe))
                          (gx#identifier? _%hd160116160407%_))
                        (if (let ()
                              (declare (not safe))
                              (gx#stx-eq? '%#ref _%hd160116160407%_))
                            (if (let ()
                                  (declare (not safe))
                                  (gx#stx-pair? _%tl160117160409%_))
                                (let ((_%e160118160412%_
                                       (let ()
                                         (declare (not safe))
                                         (gx#stx-e _%tl160117160409%_))))
                                  (let ((_%tl160120160417%_
                                         (let ()
                                           (declare (not safe))
                                           (##cdr _%e160118160412%_)))
                                        (_%hd160119160415%_
                                         (let ()
                                           (declare (not safe))
                                           (##car _%e160118160412%_))))
                                    (if (let ()
                                          (declare (not safe))
                                          (gx#stx-null? _%tl160120160417%_))
                                        (if (let ()
                                              (declare (not safe))
                                              (gx#stx-null?
                                               _%tl160114160401%_))
                                            (if (let ()
                                                  (declare (not safe))
                                                  (gx#stx-pair?
                                                   _%tl160099160361%_))
                                                (let ((_%e160121160420%_
                                                       (let ()
                                                         (declare (not safe))
                                                         (gx#stx-e
                                                          _%tl160099160361%_))))
                                                  (let ((_%tl160123160425%_
                                                         (let ()
                                                           (declare (not safe))
                                                           (##cdr _%e160121160420%_)))
                                                        (_%hd160122160423%_
                                                         (let ()
                                                           (declare (not safe))
                                                           (##car _%e160121160420%_))))
                                                    (if (let ()
                                                          (declare (not safe))
                                                          (gx#stx-pair?
                                                           _%tl160123160425%_))
                                                        (let ((_%e160124160428%_
                                                               (let ()
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                         (declare (not safe))
                         (gx#stx-e _%tl160123160425%_))))
                  (let ((_%tl160126160433%_
                         (let ()
                           (declare (not safe))
                           (##cdr _%e160124160428%_)))
                        (_%hd160125160431%_
                         (let ()
                           (declare (not safe))
                           (##car _%e160124160428%_))))
                    (if (let ()
                          (declare (not safe))
                          (gx#stx-null? _%tl160126160433%_))
                        (_%__kont169232169233%_
                         _%hd160125160431%_
                         _%hd160122160423%_
                         _%hd160119160415%_
                         _%hd160110160391%_)
                        (let () (declare (not safe)) (_%g160088160177%_)))))
                (let () (declare (not safe)) (_%g160088160177%_)))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                                (let ()
                                                  (declare (not safe))
                                                  (_%g160088160177%_)))
                                            (if (let ()
                                                  (declare (not safe))
                                                  (gx#stx-pair?
                                                   _%tl160099160361%_))
                                                (let ((_%e160167160198%_
                                                       (let ()
                                                         (declare (not safe))
                                                         (gx#stx-e
                                                          _%tl160099160361%_))))
                                                  (let ((_%tl160169160203%_
                                                         (let ()
                                                           (declare (not safe))
                                                           (##cdr _%e160167160198%_)))
                                                        (_%hd160168160201%_
                                                         (let ()
                                                           (declare (not safe))
                                                           (##car _%e160167160198%_))))
                                                    (if (let ()
                                                          (declare (not safe))
                                                          (gx#stx-pair?
                                                           _%tl160169160203%_))
                                                        (let ((_%e160170160206%_
                                                               (let ()
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                         (declare (not safe))
                         (gx#stx-e _%tl160169160203%_))))
                  (let ((_%tl160172160211%_
                         (let ()
                           (declare (not safe))
                           (##cdr _%e160170160206%_)))
                        (_%hd160171160209%_
                         (let ()
                           (declare (not safe))
                           (##car _%e160170160206%_))))
                    (if (let ()
                          (declare (not safe))
                          (gx#stx-null? _%tl160172160211%_))
                        (_%__kont169236169237%_
                         _%hd160171160209%_
                         _%hd160168160201%_
                         _%hd160098160359%_)
                        (let () (declare (not safe)) (_%g160088160177%_)))))
                (let () (declare (not safe)) (_%g160088160177%_)))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                                (let ()
                                                  (declare (not safe))
                                                  (_%g160088160177%_))))
                                        (if (let ()
                                              (declare (not safe))
                                              (gx#stx-null?
                                               _%tl160114160401%_))
                                            (if (let ()
                                                  (declare (not safe))
                                                  (gx#stx-pair?
                                                   _%tl160099160361%_))
                                                (let ((_%e160152160296%_
                                                       (let ()
                                                         (declare (not safe))
                                                         (gx#stx-e
                                                          _%tl160099160361%_))))
                                                  (let ((_%tl160154160301%_
                                                         (let ()
                                                           (declare (not safe))
                                                           (##cdr _%e160152160296%_)))
                                                        (_%hd160153160299%_
                                                         (let ()
                                                           (declare (not safe))
                                                           (##car _%e160152160296%_))))
                                                    (if (let ()
                                                          (declare (not safe))
                                                          (gx#stx-pair?
                                                           _%tl160154160301%_))
                                                        (let ((_%e160155160304%_
                                                               (let ()
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                         (declare (not safe))
                         (gx#stx-e _%tl160154160301%_))))
                  (let ((_%tl160157160309%_
                         (let ()
                           (declare (not safe))
                           (##cdr _%e160155160304%_)))
                        (_%hd160156160307%_
                         (let ()
                           (declare (not safe))
                           (##car _%e160155160304%_))))
                    (if (let ()
                          (declare (not safe))
                          (gx#stx-null? _%tl160157160309%_))
                        (_%__match169391169392%_
                         _%e160094160348%_
                         _%hd160095160351%_
                         _%tl160096160353%_
                         _%e160097160356%_
                         _%hd160098160359%_
                         _%tl160099160361%_
                         _%e160100160364%_
                         _%hd160101160367%_
                         _%tl160102160369%_
                         _%e160103160372%_
                         _%hd160104160375%_
                         _%tl160105160377%_
                         _%e160106160380%_
                         _%hd160107160383%_
                         _%tl160108160385%_
                         _%e160109160388%_
                         _%hd160110160391%_
                         _%tl160111160393%_
                         _%e160112160396%_
                         _%hd160113160399%_
                         _%tl160114160401%_
                         _%e160152160296%_
                         _%hd160153160299%_
                         _%tl160154160301%_
                         _%e160155160304%_
                         _%hd160156160307%_
                         _%tl160157160309%_)
                        (let () (declare (not safe)) (_%g160088160177%_)))))
                (let () (declare (not safe)) (_%g160088160177%_)))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                                (let ()
                                                  (declare (not safe))
                                                  (_%g160088160177%_)))
                                            (if (let ()
                                                  (declare (not safe))
                                                  (gx#stx-pair?
                                                   _%tl160099160361%_))
                                                (let ((_%e160167160198%_
                                                       (let ()
                                                         (declare (not safe))
                                                         (gx#stx-e
                                                          _%tl160099160361%_))))
                                                  (let ((_%tl160169160203%_
                                                         (let ()
                                                           (declare (not safe))
                                                           (##cdr _%e160167160198%_)))
                                                        (_%hd160168160201%_
                                                         (let ()
                                                           (declare (not safe))
                                                           (##car _%e160167160198%_))))
                                                    (if (let ()
                                                          (declare (not safe))
                                                          (gx#stx-pair?
                                                           _%tl160169160203%_))
                                                        (let ((_%e160170160206%_
                                                               (let ()
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                         (declare (not safe))
                         (gx#stx-e _%tl160169160203%_))))
                  (let ((_%tl160172160211%_
                         (let ()
                           (declare (not safe))
                           (##cdr _%e160170160206%_)))
                        (_%hd160171160209%_
                         (let ()
                           (declare (not safe))
                           (##car _%e160170160206%_))))
                    (if (let ()
                          (declare (not safe))
                          (gx#stx-null? _%tl160172160211%_))
                        (_%__kont169236169237%_
                         _%hd160171160209%_
                         _%hd160168160201%_
                         _%hd160098160359%_)
                        (let () (declare (not safe)) (_%g160088160177%_)))))
                (let () (declare (not safe)) (_%g160088160177%_)))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                                (let ()
                                                  (declare (not safe))
                                                  (_%g160088160177%_)))))))
                                (if (let ()
                                      (declare (not safe))
                                      (gx#stx-null? _%tl160114160401%_))
                                    (if (let ()
                                          (declare (not safe))
                                          (gx#stx-pair? _%tl160099160361%_))
                                        (let ((_%e160152160296%_
                                               (let ()
                                                 (declare (not safe))
                                                 (gx#stx-e
                                                  _%tl160099160361%_))))
                                          (let ((_%tl160154160301%_
                                                 (let ()
                                                   (declare (not safe))
                                                   (##cdr _%e160152160296%_)))
                                                (_%hd160153160299%_
                                                 (let ()
                                                   (declare (not safe))
                                                   (##car _%e160152160296%_))))
                                            (if (let ()
                                                  (declare (not safe))
                                                  (gx#stx-pair?
                                                   _%tl160154160301%_))
                                                (let ((_%e160155160304%_
                                                       (let ()
                                                         (declare (not safe))
                                                         (gx#stx-e
                                                          _%tl160154160301%_))))
                                                  (let ((_%tl160157160309%_
                                                         (let ()
                                                           (declare (not safe))
                                                           (##cdr _%e160155160304%_)))
                                                        (_%hd160156160307%_
                                                         (let ()
                                                           (declare (not safe))
                                                           (##car _%e160155160304%_))))
                                                    (if (let ()
                                                          (declare (not safe))
                                                          (gx#stx-null?
                                                           _%tl160157160309%_))
                                                        (_%__match169391169392%_
                                                         _%e160094160348%_
                                                         _%hd160095160351%_
                                                         _%tl160096160353%_
                                                         _%e160097160356%_
                                                         _%hd160098160359%_
                                                         _%tl160099160361%_
                                                         _%e160100160364%_
                                                         _%hd160101160367%_
                                                         _%tl160102160369%_
                                                         _%e160103160372%_
                                                         _%hd160104160375%_
                                                         _%tl160105160377%_
                                                         _%e160106160380%_
                                                         _%hd160107160383%_
                                                         _%tl160108160385%_
                                                         _%e160109160388%_
                                                         _%hd160110160391%_
                                                         _%tl160111160393%_
                                                         _%e160112160396%_
                                                         _%hd160113160399%_
                                                         _%tl160114160401%_
                                                         _%e160152160296%_
                                                         _%hd160153160299%_
                                                         _%tl160154160301%_
                                                         _%e160155160304%_
                                                         _%hd160156160307%_
                                                         _%tl160157160309%_)
                                                        (let ()
                                                          (declare (not safe))
                                                          (_%g160088160177%_)))))
                                                (let ()
                                                  (declare (not safe))
                                                  (_%g160088160177%_)))))
                                        (let ()
                                          (declare (not safe))
                                          (_%g160088160177%_)))
                                    (if (let ()
                                          (declare (not safe))
                                          (gx#stx-pair? _%tl160099160361%_))
                                        (let ((_%e160167160198%_
                                               (let ()
                                                 (declare (not safe))
                                                 (gx#stx-e
                                                  _%tl160099160361%_))))
                                          (let ((_%tl160169160203%_
                                                 (let ()
                                                   (declare (not safe))
                                                   (##cdr _%e160167160198%_)))
                                                (_%hd160168160201%_
                                                 (let ()
                                                   (declare (not safe))
                                                   (##car _%e160167160198%_))))
                                            (if (let ()
                                                  (declare (not safe))
                                                  (gx#stx-pair?
                                                   _%tl160169160203%_))
                                                (let ((_%e160170160206%_
                                                       (let ()
                                                         (declare (not safe))
                                                         (gx#stx-e
                                                          _%tl160169160203%_))))
                                                  (let ((_%tl160172160211%_
                                                         (let ()
                                                           (declare (not safe))
                                                           (##cdr _%e160170160206%_)))
                                                        (_%hd160171160209%_
                                                         (let ()
                                                           (declare (not safe))
                                                           (##car _%e160170160206%_))))
                                                    (if (let ()
                                                          (declare (not safe))
                                                          (gx#stx-null?
                                                           _%tl160172160211%_))
                                                        (_%__kont169236169237%_
                                                         _%hd160171160209%_
                                                         _%hd160168160201%_
                                                         _%hd160098160359%_)
                                                        (let ()
                                                          (declare (not safe))
                                                          (_%g160088160177%_)))))
                                                (let ()
                                                  (declare (not safe))
                                                  (_%g160088160177%_)))))
                                        (let ()
                                          (declare (not safe))
                                          (_%g160088160177%_)))))
                            (if (let ()
                                  (declare (not safe))
                                  (gx#stx-null? _%tl160114160401%_))
                                (if (let ()
                                      (declare (not safe))
                                      (gx#stx-pair? _%tl160099160361%_))
                                    (let ((_%e160152160296%_
                                           (let ()
                                             (declare (not safe))
                                             (gx#stx-e _%tl160099160361%_))))
                                      (let ((_%tl160154160301%_
                                             (let ()
                                               (declare (not safe))
                                               (##cdr _%e160152160296%_)))
                                            (_%hd160153160299%_
                                             (let ()
                                               (declare (not safe))
                                               (##car _%e160152160296%_))))
                                        (if (let ()
                                              (declare (not safe))
                                              (gx#stx-pair?
                                               _%tl160154160301%_))
                                            (let ((_%e160155160304%_
                                                   (let ()
                                                     (declare (not safe))
                                                     (gx#stx-e
                                                      _%tl160154160301%_))))
                                              (let ((_%tl160157160309%_
                                                     (let ()
                                                       (declare (not safe))
                                                       (##cdr _%e160155160304%_)))
                                                    (_%hd160156160307%_
                                                     (let ()
                                                       (declare (not safe))
                                                       (##car _%e160155160304%_))))
                                                (if (let ()
                                                      (declare (not safe))
                                                      (gx#stx-null?
                                                       _%tl160157160309%_))
                                                    (_%__match169391169392%_
                                                     _%e160094160348%_
                                                     _%hd160095160351%_
                                                     _%tl160096160353%_
                                                     _%e160097160356%_
                                                     _%hd160098160359%_
                                                     _%tl160099160361%_
                                                     _%e160100160364%_
                                                     _%hd160101160367%_
                                                     _%tl160102160369%_
                                                     _%e160103160372%_
                                                     _%hd160104160375%_
                                                     _%tl160105160377%_
                                                     _%e160106160380%_
                                                     _%hd160107160383%_
                                                     _%tl160108160385%_
                                                     _%e160109160388%_
                                                     _%hd160110160391%_
                                                     _%tl160111160393%_
                                                     _%e160112160396%_
                                                     _%hd160113160399%_
                                                     _%tl160114160401%_
                                                     _%e160152160296%_
                                                     _%hd160153160299%_
                                                     _%tl160154160301%_
                                                     _%e160155160304%_
                                                     _%hd160156160307%_
                                                     _%tl160157160309%_)
                                                    (let ()
                                                      (declare (not safe))
                                                      (_%g160088160177%_)))))
                                            (let ()
                                              (declare (not safe))
                                              (_%g160088160177%_)))))
                                    (let ()
                                      (declare (not safe))
                                      (_%g160088160177%_)))
                                (if (let ()
                                      (declare (not safe))
                                      (gx#stx-pair? _%tl160099160361%_))
                                    (let ((_%e160167160198%_
                                           (let ()
                                             (declare (not safe))
                                             (gx#stx-e _%tl160099160361%_))))
                                      (let ((_%tl160169160203%_
                                             (let ()
                                               (declare (not safe))
                                               (##cdr _%e160167160198%_)))
                                            (_%hd160168160201%_
                                             (let ()
                                               (declare (not safe))
                                               (##car _%e160167160198%_))))
                                        (if (let ()
                                              (declare (not safe))
                                              (gx#stx-pair?
                                               _%tl160169160203%_))
                                            (let ((_%e160170160206%_
                                                   (let ()
                                                     (declare (not safe))
                                                     (gx#stx-e
                                                      _%tl160169160203%_))))
                                              (let ((_%tl160172160211%_
                                                     (let ()
                                                       (declare (not safe))
                                                       (##cdr _%e160170160206%_)))
                                                    (_%hd160171160209%_
                                                     (let ()
                                                       (declare (not safe))
                                                       (##car _%e160170160206%_))))
                                                (if (let ()
                                                      (declare (not safe))
                                                      (gx#stx-null?
                                                       _%tl160172160211%_))
                                                    (_%__kont169236169237%_
                                                     _%hd160171160209%_
                                                     _%hd160168160201%_
                                                     _%hd160098160359%_)
                                                    (let ()
                                                      (declare (not safe))
                                                      (_%g160088160177%_)))))
                                            (let ()
                                              (declare (not safe))
                                              (_%g160088160177%_)))))
                                    (let ()
                                      (declare (not safe))
                                      (_%g160088160177%_)))))
                        (if (let ()
                              (declare (not safe))
                              (gx#stx-null? _%tl160114160401%_))
                            (if (let ()
                                  (declare (not safe))
                                  (gx#stx-pair? _%tl160099160361%_))
                                (let ((_%e160152160296%_
                                       (let ()
                                         (declare (not safe))
                                         (gx#stx-e _%tl160099160361%_))))
                                  (let ((_%tl160154160301%_
                                         (let ()
                                           (declare (not safe))
                                           (##cdr _%e160152160296%_)))
                                        (_%hd160153160299%_
                                         (let ()
                                           (declare (not safe))
                                           (##car _%e160152160296%_))))
                                    (if (let ()
                                          (declare (not safe))
                                          (gx#stx-pair? _%tl160154160301%_))
                                        (let ((_%e160155160304%_
                                               (let ()
                                                 (declare (not safe))
                                                 (gx#stx-e
                                                  _%tl160154160301%_))))
                                          (let ((_%tl160157160309%_
                                                 (let ()
                                                   (declare (not safe))
                                                   (##cdr _%e160155160304%_)))
                                                (_%hd160156160307%_
                                                 (let ()
                                                   (declare (not safe))
                                                   (##car _%e160155160304%_))))
                                            (if (let ()
                                                  (declare (not safe))
                                                  (gx#stx-null?
                                                   _%tl160157160309%_))
                                                (_%__match169391169392%_
                                                 _%e160094160348%_
                                                 _%hd160095160351%_
                                                 _%tl160096160353%_
                                                 _%e160097160356%_
                                                 _%hd160098160359%_
                                                 _%tl160099160361%_
                                                 _%e160100160364%_
                                                 _%hd160101160367%_
                                                 _%tl160102160369%_
                                                 _%e160103160372%_
                                                 _%hd160104160375%_
                                                 _%tl160105160377%_
                                                 _%e160106160380%_
                                                 _%hd160107160383%_
                                                 _%tl160108160385%_
                                                 _%e160109160388%_
                                                 _%hd160110160391%_
                                                 _%tl160111160393%_
                                                 _%e160112160396%_
                                                 _%hd160113160399%_
                                                 _%tl160114160401%_
                                                 _%e160152160296%_
                                                 _%hd160153160299%_
                                                 _%tl160154160301%_
                                                 _%e160155160304%_
                                                 _%hd160156160307%_
                                                 _%tl160157160309%_)
                                                (let ()
                                                  (declare (not safe))
                                                  (_%g160088160177%_)))))
                                        (let ()
                                          (declare (not safe))
                                          (_%g160088160177%_)))))
                                (let ()
                                  (declare (not safe))
                                  (_%g160088160177%_)))
                            (if (let ()
                                  (declare (not safe))
                                  (gx#stx-pair? _%tl160099160361%_))
                                (let ((_%e160167160198%_
                                       (let ()
                                         (declare (not safe))
                                         (gx#stx-e _%tl160099160361%_))))
                                  (let ((_%tl160169160203%_
                                         (let ()
                                           (declare (not safe))
                                           (##cdr _%e160167160198%_)))
                                        (_%hd160168160201%_
                                         (let ()
                                           (declare (not safe))
                                           (##car _%e160167160198%_))))
                                    (if (let ()
                                          (declare (not safe))
                                          (gx#stx-pair? _%tl160169160203%_))
                                        (let ((_%e160170160206%_
                                               (let ()
                                                 (declare (not safe))
                                                 (gx#stx-e
                                                  _%tl160169160203%_))))
                                          (let ((_%tl160172160211%_
                                                 (let ()
                                                   (declare (not safe))
                                                   (##cdr _%e160170160206%_)))
                                                (_%hd160171160209%_
                                                 (let ()
                                                   (declare (not safe))
                                                   (##car _%e160170160206%_))))
                                            (if (let ()
                                                  (declare (not safe))
                                                  (gx#stx-null?
                                                   _%tl160172160211%_))
                                                (_%__kont169236169237%_
                                                 _%hd160171160209%_
                                                 _%hd160168160201%_
                                                 _%hd160098160359%_)
                                                (let ()
                                                  (declare (not safe))
                                                  (_%g160088160177%_)))))
                                        (let ()
                                          (declare (not safe))
                                          (_%g160088160177%_)))))
                                (let ()
                                  (declare (not safe))
                                  (_%g160088160177%_)))))))
                (if (let ()
                      (declare (not safe))
                      (gx#stx-null? _%tl160114160401%_))
                    (if (let ()
                          (declare (not safe))
                          (gx#stx-pair? _%tl160099160361%_))
                        (let ((_%e160152160296%_
                               (let ()
                                 (declare (not safe))
                                 (gx#stx-e _%tl160099160361%_))))
                          (let ((_%tl160154160301%_
                                 (let ()
                                   (declare (not safe))
                                   (##cdr _%e160152160296%_)))
                                (_%hd160153160299%_
                                 (let ()
                                   (declare (not safe))
                                   (##car _%e160152160296%_))))
                            (if (let ()
                                  (declare (not safe))
                                  (gx#stx-pair? _%tl160154160301%_))
                                (let ((_%e160155160304%_
                                       (let ()
                                         (declare (not safe))
                                         (gx#stx-e _%tl160154160301%_))))
                                  (let ((_%tl160157160309%_
                                         (let ()
                                           (declare (not safe))
                                           (##cdr _%e160155160304%_)))
                                        (_%hd160156160307%_
                                         (let ()
                                           (declare (not safe))
                                           (##car _%e160155160304%_))))
                                    (if (let ()
                                          (declare (not safe))
                                          (gx#stx-null? _%tl160157160309%_))
                                        (_%__match169391169392%_
                                         _%e160094160348%_
                                         _%hd160095160351%_
                                         _%tl160096160353%_
                                         _%e160097160356%_
                                         _%hd160098160359%_
                                         _%tl160099160361%_
                                         _%e160100160364%_
                                         _%hd160101160367%_
                                         _%tl160102160369%_
                                         _%e160103160372%_
                                         _%hd160104160375%_
                                         _%tl160105160377%_
                                         _%e160106160380%_
                                         _%hd160107160383%_
                                         _%tl160108160385%_
                                         _%e160109160388%_
                                         _%hd160110160391%_
                                         _%tl160111160393%_
                                         _%e160112160396%_
                                         _%hd160113160399%_
                                         _%tl160114160401%_
                                         _%e160152160296%_
                                         _%hd160153160299%_
                                         _%tl160154160301%_
                                         _%e160155160304%_
                                         _%hd160156160307%_
                                         _%tl160157160309%_)
                                        (let ()
                                          (declare (not safe))
                                          (_%g160088160177%_)))))
                                (let ()
                                  (declare (not safe))
                                  (_%g160088160177%_)))))
                        (let () (declare (not safe)) (_%g160088160177%_)))
                    (if (let ()
                          (declare (not safe))
                          (gx#stx-pair? _%tl160099160361%_))
                        (let ((_%e160167160198%_
                               (let ()
                                 (declare (not safe))
                                 (gx#stx-e _%tl160099160361%_))))
                          (let ((_%tl160169160203%_
                                 (let ()
                                   (declare (not safe))
                                   (##cdr _%e160167160198%_)))
                                (_%hd160168160201%_
                                 (let ()
                                   (declare (not safe))
                                   (##car _%e160167160198%_))))
                            (if (let ()
                                  (declare (not safe))
                                  (gx#stx-pair? _%tl160169160203%_))
                                (let ((_%e160170160206%_
                                       (let ()
                                         (declare (not safe))
                                         (gx#stx-e _%tl160169160203%_))))
                                  (let ((_%tl160172160211%_
                                         (let ()
                                           (declare (not safe))
                                           (##cdr _%e160170160206%_)))
                                        (_%hd160171160209%_
                                         (let ()
                                           (declare (not safe))
                                           (##car _%e160170160206%_))))
                                    (if (let ()
                                          (declare (not safe))
                                          (gx#stx-null? _%tl160172160211%_))
                                        (_%__kont169236169237%_
                                         _%hd160171160209%_
                                         _%hd160168160201%_
                                         _%hd160098160359%_)
                                        (let ()
                                          (declare (not safe))
                                          (_%g160088160177%_)))))
                                (let ()
                                  (declare (not safe))
                                  (_%g160088160177%_)))))
                        (let () (declare (not safe)) (_%g160088160177%_)))))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                                (if (let ()
                                                      (declare (not safe))
                                                      (gx#stx-pair?
                                                       _%tl160099160361%_))
                                                    (let ((_%e160167160198%_
                                                           (let ()
                                                             (declare
                                                               (not safe))
                                                             (gx#stx-e
                                                              _%tl160099160361%_))))
                                                      (let ((_%tl160169160203%_
                                                             (let ()
                                                               (declare
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                         (not safe))
                       (##cdr _%e160167160198%_)))
                    (_%hd160168160201%_
                     (let () (declare (not safe)) (##car _%e160167160198%_))))
                (if (let ()
                      (declare (not safe))
                      (gx#stx-pair? _%tl160169160203%_))
                    (let ((_%e160170160206%_
                           (let ()
                             (declare (not safe))
                             (gx#stx-e _%tl160169160203%_))))
                      (let ((_%tl160172160211%_
                             (let ()
                               (declare (not safe))
                               (##cdr _%e160170160206%_)))
                            (_%hd160171160209%_
                             (let ()
                               (declare (not safe))
                               (##car _%e160170160206%_))))
                        (if (let ()
                              (declare (not safe))
                              (gx#stx-null? _%tl160172160211%_))
                            (_%__kont169236169237%_
                             _%hd160171160209%_
                             _%hd160168160201%_
                             _%hd160098160359%_)
                            (let ()
                              (declare (not safe))
                              (_%g160088160177%_)))))
                    (let () (declare (not safe)) (_%g160088160177%_)))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                                    (let ()
                                                      (declare (not safe))
                                                      (_%g160088160177%_))))
                                            (if (let ()
                                                  (declare (not safe))
                                                  (gx#stx-pair?
                                                   _%tl160099160361%_))
                                                (let ((_%e160167160198%_
                                                       (let ()
                                                         (declare (not safe))
                                                         (gx#stx-e
                                                          _%tl160099160361%_))))
                                                  (let ((_%tl160169160203%_
                                                         (let ()
                                                           (declare (not safe))
                                                           (##cdr _%e160167160198%_)))
                                                        (_%hd160168160201%_
                                                         (let ()
                                                           (declare (not safe))
                                                           (##car _%e160167160198%_))))
                                                    (if (let ()
                                                          (declare (not safe))
                                                          (gx#stx-pair?
                                                           _%tl160169160203%_))
                                                        (let ((_%e160170160206%_
                                                               (let ()
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                         (declare (not safe))
                         (gx#stx-e _%tl160169160203%_))))
                  (let ((_%tl160172160211%_
                         (let ()
                           (declare (not safe))
                           (##cdr _%e160170160206%_)))
                        (_%hd160171160209%_
                         (let ()
                           (declare (not safe))
                           (##car _%e160170160206%_))))
                    (if (let ()
                          (declare (not safe))
                          (gx#stx-null? _%tl160172160211%_))
                        (_%__kont169236169237%_
                         _%hd160171160209%_
                         _%hd160168160201%_
                         _%hd160098160359%_)
                        (let () (declare (not safe)) (_%g160088160177%_)))))
                (let () (declare (not safe)) (_%g160088160177%_)))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                                (let ()
                                                  (declare (not safe))
                                                  (_%g160088160177%_))))))
                                    (if (let ()
                                          (declare (not safe))
                                          (gx#stx-pair? _%tl160099160361%_))
                                        (let ((_%e160167160198%_
                                               (let ()
                                                 (declare (not safe))
                                                 (gx#stx-e
                                                  _%tl160099160361%_))))
                                          (let ((_%tl160169160203%_
                                                 (let ()
                                                   (declare (not safe))
                                                   (##cdr _%e160167160198%_)))
                                                (_%hd160168160201%_
                                                 (let ()
                                                   (declare (not safe))
                                                   (##car _%e160167160198%_))))
                                            (if (let ()
                                                  (declare (not safe))
                                                  (gx#stx-pair?
                                                   _%tl160169160203%_))
                                                (let ((_%e160170160206%_
                                                       (let ()
                                                         (declare (not safe))
                                                         (gx#stx-e
                                                          _%tl160169160203%_))))
                                                  (let ((_%tl160172160211%_
                                                         (let ()
                                                           (declare (not safe))
                                                           (##cdr _%e160170160206%_)))
                                                        (_%hd160171160209%_
                                                         (let ()
                                                           (declare (not safe))
                                                           (##car _%e160170160206%_))))
                                                    (if (let ()
                                                          (declare (not safe))
                                                          (gx#stx-null?
                                                           _%tl160172160211%_))
                                                        (_%__kont169236169237%_
                                                         _%hd160171160209%_
                                                         _%hd160168160201%_
                                                         _%hd160098160359%_)
                                                        (let ()
                                                          (declare (not safe))
                                                          (_%g160088160177%_)))))
                                                (let ()
                                                  (declare (not safe))
                                                  (_%g160088160177%_)))))
                                        (let ()
                                          (declare (not safe))
                                          (_%g160088160177%_))))
                                (if (let ()
                                      (declare (not safe))
                                      (gx#stx-pair? _%tl160099160361%_))
                                    (let ((_%e160167160198%_
                                           (let ()
                                             (declare (not safe))
                                             (gx#stx-e _%tl160099160361%_))))
                                      (let ((_%tl160169160203%_
                                             (let ()
                                               (declare (not safe))
                                               (##cdr _%e160167160198%_)))
                                            (_%hd160168160201%_
                                             (let ()
                                               (declare (not safe))
                                               (##car _%e160167160198%_))))
                                        (if (let ()
                                              (declare (not safe))
                                              (gx#stx-pair?
                                               _%tl160169160203%_))
                                            (let ((_%e160170160206%_
                                                   (let ()
                                                     (declare (not safe))
                                                     (gx#stx-e
                                                      _%tl160169160203%_))))
                                              (let ((_%tl160172160211%_
                                                     (let ()
                                                       (declare (not safe))
                                                       (##cdr _%e160170160206%_)))
                                                    (_%hd160171160209%_
                                                     (let ()
                                                       (declare (not safe))
                                                       (##car _%e160170160206%_))))
                                                (if (let ()
                                                      (declare (not safe))
                                                      (gx#stx-null?
                                                       _%tl160172160211%_))
                                                    (_%__kont169236169237%_
                                                     _%hd160171160209%_
                                                     _%hd160168160201%_
                                                     _%hd160098160359%_)
                                                    (let ()
                                                      (declare (not safe))
                                                      (_%g160088160177%_)))))
                                            (let ()
                                              (declare (not safe))
                                              (_%g160088160177%_)))))
                                    (let ()
                                      (declare (not safe))
                                      (_%g160088160177%_))))
                            (if (let ()
                                  (declare (not safe))
                                  (gx#stx-pair? _%tl160099160361%_))
                                (let ((_%e160167160198%_
                                       (let ()
                                         (declare (not safe))
                                         (gx#stx-e _%tl160099160361%_))))
                                  (let ((_%tl160169160203%_
                                         (let ()
                                           (declare (not safe))
                                           (##cdr _%e160167160198%_)))
                                        (_%hd160168160201%_
                                         (let ()
                                           (declare (not safe))
                                           (##car _%e160167160198%_))))
                                    (if (let ()
                                          (declare (not safe))
                                          (gx#stx-pair? _%tl160169160203%_))
                                        (let ((_%e160170160206%_
                                               (let ()
                                                 (declare (not safe))
                                                 (gx#stx-e
                                                  _%tl160169160203%_))))
                                          (let ((_%tl160172160211%_
                                                 (let ()
                                                   (declare (not safe))
                                                   (##cdr _%e160170160206%_)))
                                                (_%hd160171160209%_
                                                 (let ()
                                                   (declare (not safe))
                                                   (##car _%e160170160206%_))))
                                            (if (let ()
                                                  (declare (not safe))
                                                  (gx#stx-null?
                                                   _%tl160172160211%_))
                                                (_%__kont169236169237%_
                                                 _%hd160171160209%_
                                                 _%hd160168160201%_
                                                 _%hd160098160359%_)
                                                (let ()
                                                  (declare (not safe))
                                                  (_%g160088160177%_)))))
                                        (let ()
                                          (declare (not safe))
                                          (_%g160088160177%_)))))
                                (let ()
                                  (declare (not safe))
                                  (_%g160088160177%_))))))
                    (if (let ()
                          (declare (not safe))
                          (gx#stx-pair? _%tl160099160361%_))
                        (let ((_%e160167160198%_
                               (let ()
                                 (declare (not safe))
                                 (gx#stx-e _%tl160099160361%_))))
                          (let ((_%tl160169160203%_
                                 (let ()
                                   (declare (not safe))
                                   (##cdr _%e160167160198%_)))
                                (_%hd160168160201%_
                                 (let ()
                                   (declare (not safe))
                                   (##car _%e160167160198%_))))
                            (if (let ()
                                  (declare (not safe))
                                  (gx#stx-pair? _%tl160169160203%_))
                                (let ((_%e160170160206%_
                                       (let ()
                                         (declare (not safe))
                                         (gx#stx-e _%tl160169160203%_))))
                                  (let ((_%tl160172160211%_
                                         (let ()
                                           (declare (not safe))
                                           (##cdr _%e160170160206%_)))
                                        (_%hd160171160209%_
                                         (let ()
                                           (declare (not safe))
                                           (##car _%e160170160206%_))))
                                    (if (let ()
                                          (declare (not safe))
                                          (gx#stx-null? _%tl160172160211%_))
                                        (_%__kont169236169237%_
                                         _%hd160171160209%_
                                         _%hd160168160201%_
                                         _%hd160098160359%_)
                                        (let ()
                                          (declare (not safe))
                                          (_%g160088160177%_)))))
                                (let ()
                                  (declare (not safe))
                                  (_%g160088160177%_)))))
                        (let () (declare (not safe)) (_%g160088160177%_))))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                                    (if (let ()
                                                          (declare (not safe))
                                                          (gx#stx-pair?
                                                           _%tl160099160361%_))
                                                        (let ((_%e160167160198%_
                                                               (let ()
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                         (declare (not safe))
                         (gx#stx-e _%tl160099160361%_))))
                  (let ((_%tl160169160203%_
                         (let ()
                           (declare (not safe))
                           (##cdr _%e160167160198%_)))
                        (_%hd160168160201%_
                         (let ()
                           (declare (not safe))
                           (##car _%e160167160198%_))))
                    (if (let ()
                          (declare (not safe))
                          (gx#stx-pair? _%tl160169160203%_))
                        (let ((_%e160170160206%_
                               (let ()
                                 (declare (not safe))
                                 (gx#stx-e _%tl160169160203%_))))
                          (let ((_%tl160172160211%_
                                 (let ()
                                   (declare (not safe))
                                   (##cdr _%e160170160206%_)))
                                (_%hd160171160209%_
                                 (let ()
                                   (declare (not safe))
                                   (##car _%e160170160206%_))))
                            (if (let ()
                                  (declare (not safe))
                                  (gx#stx-null? _%tl160172160211%_))
                                (_%__kont169236169237%_
                                 _%hd160171160209%_
                                 _%hd160168160201%_
                                 _%hd160098160359%_)
                                (let ()
                                  (declare (not safe))
                                  (_%g160088160177%_)))))
                        (let () (declare (not safe)) (_%g160088160177%_)))))
                (let () (declare (not safe)) (_%g160088160177%_))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                                (if (let ()
                                                      (declare (not safe))
                                                      (gx#stx-pair?
                                                       _%tl160099160361%_))
                                                    (let ((_%e160167160198%_
                                                           (let ()
                                                             (declare
                                                               (not safe))
                                                             (gx#stx-e
                                                              _%tl160099160361%_))))
                                                      (let ((_%tl160169160203%_
                                                             (let ()
                                                               (declare
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                         (not safe))
                       (##cdr _%e160167160198%_)))
                    (_%hd160168160201%_
                     (let () (declare (not safe)) (##car _%e160167160198%_))))
                (if (let ()
                      (declare (not safe))
                      (gx#stx-pair? _%tl160169160203%_))
                    (let ((_%e160170160206%_
                           (let ()
                             (declare (not safe))
                             (gx#stx-e _%tl160169160203%_))))
                      (let ((_%tl160172160211%_
                             (let ()
                               (declare (not safe))
                               (##cdr _%e160170160206%_)))
                            (_%hd160171160209%_
                             (let ()
                               (declare (not safe))
                               (##car _%e160170160206%_))))
                        (if (let ()
                              (declare (not safe))
                              (gx#stx-null? _%tl160172160211%_))
                            (_%__kont169236169237%_
                             _%hd160171160209%_
                             _%hd160168160201%_
                             _%hd160098160359%_)
                            (let ()
                              (declare (not safe))
                              (_%g160088160177%_)))))
                    (let () (declare (not safe)) (_%g160088160177%_)))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                                    (let ()
                                                      (declare (not safe))
                                                      (_%g160088160177%_))))
                                            (if (let ()
                                                  (declare (not safe))
                                                  (gx#stx-pair?
                                                   _%tl160099160361%_))
                                                (let ((_%e160167160198%_
                                                       (let ()
                                                         (declare (not safe))
                                                         (gx#stx-e
                                                          _%tl160099160361%_))))
                                                  (let ((_%tl160169160203%_
                                                         (let ()
                                                           (declare (not safe))
                                                           (##cdr _%e160167160198%_)))
                                                        (_%hd160168160201%_
                                                         (let ()
                                                           (declare (not safe))
                                                           (##car _%e160167160198%_))))
                                                    (if (let ()
                                                          (declare (not safe))
                                                          (gx#stx-pair?
                                                           _%tl160169160203%_))
                                                        (let ((_%e160170160206%_
                                                               (let ()
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                         (declare (not safe))
                         (gx#stx-e _%tl160169160203%_))))
                  (let ((_%tl160172160211%_
                         (let ()
                           (declare (not safe))
                           (##cdr _%e160170160206%_)))
                        (_%hd160171160209%_
                         (let ()
                           (declare (not safe))
                           (##car _%e160170160206%_))))
                    (if (let ()
                          (declare (not safe))
                          (gx#stx-null? _%tl160172160211%_))
                        (_%__kont169236169237%_
                         _%hd160171160209%_
                         _%hd160168160201%_
                         _%hd160098160359%_)
                        (let () (declare (not safe)) (_%g160088160177%_)))))
                (let () (declare (not safe)) (_%g160088160177%_)))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                                (let ()
                                                  (declare (not safe))
                                                  (_%g160088160177%_))))))
                                    (if (let ()
                                          (declare (not safe))
                                          (gx#stx-pair? _%tl160099160361%_))
                                        (let ((_%e160167160198%_
                                               (let ()
                                                 (declare (not safe))
                                                 (gx#stx-e
                                                  _%tl160099160361%_))))
                                          (let ((_%tl160169160203%_
                                                 (let ()
                                                   (declare (not safe))
                                                   (##cdr _%e160167160198%_)))
                                                (_%hd160168160201%_
                                                 (let ()
                                                   (declare (not safe))
                                                   (##car _%e160167160198%_))))
                                            (if (let ()
                                                  (declare (not safe))
                                                  (gx#stx-pair?
                                                   _%tl160169160203%_))
                                                (let ((_%e160170160206%_
                                                       (let ()
                                                         (declare (not safe))
                                                         (gx#stx-e
                                                          _%tl160169160203%_))))
                                                  (let ((_%tl160172160211%_
                                                         (let ()
                                                           (declare (not safe))
                                                           (##cdr _%e160170160206%_)))
                                                        (_%hd160171160209%_
                                                         (let ()
                                                           (declare (not safe))
                                                           (##car _%e160170160206%_))))
                                                    (if (let ()
                                                          (declare (not safe))
                                                          (gx#stx-null?
                                                           _%tl160172160211%_))
                                                        (_%__kont169236169237%_
                                                         _%hd160171160209%_
                                                         _%hd160168160201%_
                                                         _%hd160098160359%_)
                                                        (let ()
                                                          (declare (not safe))
                                                          (_%g160088160177%_)))))
                                                (let ()
                                                  (declare (not safe))
                                                  (_%g160088160177%_)))))
                                        (let ()
                                          (declare (not safe))
                                          (_%g160088160177%_))))))
                            (let ()
                              (declare (not safe))
                              (_%g160088160177%_)))))
                    (let () (declare (not safe)) (_%g160088160177%_)))))))))
    (define gxc#greatest-common-type
      (lambda (_%stx159936%_ _%type-a159937%_ _%type-b159938%_)
        (letrec ((_%common-e159940%_
                  (lambda (_%left160040%_ _%right160041%_)
                    (let _%loop160043%_ ((_%rest160045%_ _%left160040%_))
                      (let* ((_%rest160046160054%_ _%rest160045%_)
                             (_%else160048160062%_
                              (lambda ()
                                (let ()
                                  (declare (not safe))
                                  (gxc#optimizer-resolve-class
                                   _%stx159936%_
                                   't::t))))
                             (_%K160050160068%_
                              (lambda (_%rest160065%_ _%klass-name160066%_)
                                (if (memq _%klass-name160066%_ _%right160041%_)
                                    (let ()
                                      (declare (not safe))
                                      (gxc#optimizer-resolve-class
                                       _%stx159936%_
                                       _%klass-name160066%_))
                                    (_%loop160043%_ _%rest160065%_)))))
                        (if (pair? _%rest160046160054%_)
                            (let ((_%hd160051160071%_
                                   (let ()
                                     (declare (not safe))
                                     (##car _%rest160046160054%_)))
                                  (_%tl160052160073%_
                                   (let ()
                                     (declare (not safe))
                                     (##cdr _%rest160046160054%_))))
                              (let* ((_%klass-name160076%_ _%hd160051160071%_)
                                     (_%rest160078%_ _%tl160052160073%_))
                                (_%K160050160068%_
                                 _%rest160078%_
                                 _%klass-name160076%_)))
                            (_%else160048160062%_))))))
                 (_%common-tail159941%_
                  (lambda (_%precedence-list-a159960%_
                           _%precedence-list-b159961%_)
                    (let* ((_%rev-precedence-list-a159963%_
                            (reverse _%precedence-list-a159960%_))
                           (_%rev-precedence-list-b159965%_
                            (reverse _%precedence-list-b159961%_)))
                      (let _%loop159968%_ ((_%rest-a159970%_
                                            _%rev-precedence-list-a159963%_)
                                           (_%rest-b159971%_
                                            _%rev-precedence-list-b159965%_)
                                           (_%result159972%_ '#f))
                        (let* ((_%rest-a159973159981%_ _%rest-a159970%_)
                               (_%else159975159989%_
                                (lambda ()
                                  (if _%result159972%_
                                      (let ()
                                        (declare (not safe))
                                        (gxc#optimizer-resolve-class
                                         _%stx159936%_
                                         _%result159972%_))
                                      '#f)))
                               (_%K159977160028%_
                                (lambda (_%rest-a159992%_ _%super-a159993%_)
                                  (let* ((_%rest-b159994160002%_
                                          _%rest-b159971%_)
                                         (_%else159996160010%_
                                          (lambda ()
                                            (if _%result159972%_
                                                (let ()
                                                  (declare (not safe))
                                                  (gxc#optimizer-resolve-class
                                                   _%stx159936%_
                                                   _%result159972%_))
                                                '#f)))
                                         (_%K159998160016%_
                                          (lambda (_%rest-b160013%_
                                                   _%super-b160014%_)
                                            (if (eq? _%super-a159993%_
                                                     _%super-b160014%_)
                                                (_%loop159968%_
                                                 _%rest-a159992%_
                                                 _%rest-b160013%_
                                                 _%super-a159993%_)
                                                (if _%result159972%_
                                                    (let ()
                                                      (declare (not safe))
                                                      (gxc#optimizer-resolve-class
                                                       _%stx159936%_
                                                       _%result159972%_))
                                                    '#f)))))
                                    (if (pair? _%rest-b159994160002%_)
                                        (let ((_%hd159999160019%_
                                               (let ()
                                                 (declare (not safe))
                                                 (##car _%rest-b159994160002%_)))
                                              (_%tl160000160021%_
                                               (let ()
                                                 (declare (not safe))
                                                 (##cdr _%rest-b159994160002%_))))
                                          (let* ((_%super-b160024%_
                                                  _%hd159999160019%_)
                                                 (_%rest-b160026%_
                                                  _%tl160000160021%_))
                                            (_%K159998160016%_
                                             _%rest-b160026%_
                                             _%super-b160024%_)))
                                        (_%else159996160010%_))))))
                          (if (pair? _%rest-a159973159981%_)
                              (let ((_%hd159978160031%_
                                     (let ()
                                       (declare (not safe))
                                       (##car _%rest-a159973159981%_)))
                                    (_%tl159979160033%_
                                     (let ()
                                       (declare (not safe))
                                       (##cdr _%rest-a159973159981%_))))
                                (let* ((_%super-a160036%_ _%hd159978160031%_)
                                       (_%rest-a160038%_ _%tl159979160033%_))
                                  (_%K159977160028%_
                                   _%rest-a160038%_
                                   _%super-a160036%_)))
                              (_%else159975159989%_))))))))
          (if (or (not _%type-a159937%_) (not _%type-b159938%_))
              (let ()
                (declare (not safe))
                (gxc#optimizer-resolve-class _%stx159936%_ 't::t))
              (if (let ()
                    (declare (not safe))
                    (gxc#!type-subtype? _%type-a159937%_ _%type-b159938%_))
                  _%type-b159938%_
                  (if (let ()
                        (declare (not safe))
                        (gxc#!type-subtype? _%type-b159938%_ _%type-a159937%_))
                      _%type-a159937%_
                      (if (and (let ()
                                 (declare (not safe))
                                 (##structure-instance-of?
                                  _%type-a159937%_
                                  'gxc#!class::t))
                               (let ()
                                 (declare (not safe))
                                 (##structure-instance-of?
                                  _%type-b159938%_
                                  'gxc#!class::t)))
                          (let* ((_%precedence-list-a159950%_
                                  (##structure-ref
                                   _%type-a159937%_
                                   '3
                                   gxc#!class::t
                                   '#f))
                                 (_%precedence-list-b159952%_
                                  (##structure-ref
                                   _%type-b159938%_
                                   '3
                                   gxc#!class::t
                                   '#f)))
                            (if (> (length _%precedence-list-a159950%_)
                                   (length _%precedence-list-b159952%_))
                                (_%common-e159940%_
                                 _%precedence-list-b159952%_
                                 _%precedence-list-a159950%_)
                                (if (< (length _%precedence-list-a159950%_)
                                       (length _%precedence-list-b159952%_))
                                    (_%common-e159940%_
                                     _%precedence-list-a159950%_
                                     _%precedence-list-b159952%_)
                                    (_%common-tail159941%_
                                     _%precedence-list-a159950%_
                                     _%precedence-list-b159952%_))))
                          (if (and (eq? (##structure-ref
                                         _%type-a159937%_
                                         '1
                                         gxc#!type::t
                                         '#f)
                                        'procedure)
                                   (eq? (##structure-ref
                                         _%type-b159938%_
                                         '1
                                         gxc#!type::t
                                         '#f)
                                        'procedure))
                              (let ()
                                (declare (not safe))
                                (gxc#optimizer-resolve-class
                                 _%stx159936%_
                                 'procedure::t))
                              '#f))))))))
    (define gxc#basic-expression-type-quote%
      (lambda (_%self159848%_ _%stx159849%_)
        (let* ((_%g159851159864%_
                (lambda (_%g159852159861%_)
                  (let ()
                    (declare (not safe))
                    (gx#raise-syntax-error
                     '#f
                     '"Bad syntax; invalid match target"
                     _%g159852159861%_))))
               (_%g159850159933%_
                (lambda (_%g159852159867%_)
                  (if (let ()
                        (declare (not safe))
                        (gx#stx-pair? _%g159852159867%_))
                      (let ((_%e159854159869%_
                             (let ()
                               (declare (not safe))
                               (gx#stx-e _%g159852159867%_))))
                        (let ((_%hd159855159872%_
                               (let ()
                                 (declare (not safe))
                                 (##car _%e159854159869%_)))
                              (_%tl159856159874%_
                               (let ()
                                 (declare (not safe))
                                 (##cdr _%e159854159869%_))))
                          (if (let ()
                                (declare (not safe))
                                (gx#stx-pair? _%tl159856159874%_))
                              (let ((_%e159857159877%_
                                     (let ()
                                       (declare (not safe))
                                       (gx#stx-e _%tl159856159874%_))))
                                (let ((_%hd159858159880%_
                                       (let ()
                                         (declare (not safe))
                                         (##car _%e159857159877%_)))
                                      (_%tl159859159882%_
                                       (let ()
                                         (declare (not safe))
                                         (##cdr _%e159857159877%_))))
                                  (if (let ()
                                        (declare (not safe))
                                        (gx#stx-null? _%tl159859159882%_))
                                      ((lambda (_%L159885%_)
                                         (let ((_%obj159897%_
                                                (let ()
                                                  (declare (not safe))
                                                  (gx#stx-e _%L159885%_))))
                                           (if (let ()
                                                 (declare (not safe))
                                                 (immediate? _%obj159897%_))
                                               (if (char? _%obj159897%_)
                                                   (let ()
                                                     (declare (not safe))
                                                     (gxc#optimizer-resolve-class
                                                      _%stx159849%_
                                                      'char::t))
                                                   (if (eq? _%obj159897%_ '#t)
                                                       (let ()
                                                         (declare (not safe))
                                                         (gxc#optimizer-resolve-class
                                                          _%stx159849%_
                                                          'true::t))
                                                       (if (not _%obj159897%_)
                                                           (let ()
                                                             (declare
                                                               (not safe))
                                                             (gxc#optimizer-resolve-class
                                                              _%stx159849%_
                                                              'false::t))
                                                           (if (eq? _%obj159897%_
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                            '#!void)
                       (let ()
                         (declare (not safe))
                         (gxc#optimizer-resolve-class _%stx159849%_ 'void::t))
                       (if (eof-object? _%obj159897%_)
                           (let ()
                             (declare (not safe))
                             (gxc#optimizer-resolve-class
                              _%stx159849%_
                              'eof::t))
                           (if (fixnum? _%obj159897%_)
                               (let ()
                                 (declare (not safe))
                                 (gxc#optimizer-resolve-class
                                  _%stx159849%_
                                  'fixnum::t))
                               (if (null? _%obj159897%_)
                                   (let ()
                                     (declare (not safe))
                                     (gxc#optimizer-resolve-class
                                      _%stx159849%_
                                      'null::t))
                                   (let ()
                                     (declare (not safe))
                                     (gxc#optimizer-resolve-class
                                      _%stx159849%_
                                      'special::t)))))))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                               (if (number? _%obj159897%_)
                                                   (if (flonum? _%obj159897%_)
                                                       (let ()
                                                         (declare (not safe))
                                                         (gxc#optimizer-resolve-class
                                                          _%stx159849%_
                                                          'flonum::t))
                                                       (if (let ()
                                                             (declare
                                                               (not safe))
                                                             (##bignum?
                                                              _%obj159897%_))
                                                           (let ()
                                                             (declare
                                                               (not safe))
                                                             (gxc#optimizer-resolve-class
                                                              _%stx159849%_
                                                              'bignum::t))
                                                           (if (let ()
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                         (declare (not safe))
                         (##ratnum? _%obj159897%_))
                       (let ()
                         (declare (not safe))
                         (gxc#optimizer-resolve-class
                          _%stx159849%_
                          'ratnum::t))
                       (if (let ()
                             (declare (not safe))
                             (##cpxnum? _%obj159897%_))
                           (let ()
                             (declare (not safe))
                             (gxc#optimizer-resolve-class
                              _%stx159849%_
                              'cpxnum::t))
                           '#f))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                                   (if (symbol? _%obj159897%_)
                                                       (let ()
                                                         (declare (not safe))
                                                         (gxc#optimizer-resolve-class
                                                          _%stx159849%_
                                                          'symbol::t))
                                                       (if (keyword?
                                                            _%obj159897%_)
                                                           (let ()
                                                             (declare
                                                               (not safe))
                                                             (gxc#optimizer-resolve-class
                                                              _%stx159849%_
                                                              'keyword::t))
                                                           (if (pair? _%obj159897%_)
                                                               (let ()
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                         (declare (not safe))
                         (gxc#optimizer-resolve-class _%stx159849%_ 'pair::t))
                       (if (sequence? _%obj159897%_)
                           (if (vector? _%obj159897%_)
                               (let ()
                                 (declare (not safe))
                                 (gxc#optimizer-resolve-class
                                  _%stx159849%_
                                  'vector::t))
                               (if (string? _%obj159897%_)
                                   (let ()
                                     (declare (not safe))
                                     (gxc#optimizer-resolve-class
                                      _%stx159849%_
                                      'string::t))
                                   (if (u8vector? _%obj159897%_)
                                       (let ()
                                         (declare (not safe))
                                         (gxc#optimizer-resolve-class
                                          _%stx159849%_
                                          'u8vector::t))
                                       (if (s8vector? _%obj159897%_)
                                           (let ()
                                             (declare (not safe))
                                             (gxc#optimizer-resolve-class
                                              _%stx159849%_
                                              's8vector::t))
                                           (if (u16vector? _%obj159897%_)
                                               (let ()
                                                 (declare (not safe))
                                                 (gxc#optimizer-resolve-class
                                                  _%stx159849%_
                                                  'u16vector::t))
                                               (if (s16vector? _%obj159897%_)
                                                   (let ()
                                                     (declare (not safe))
                                                     (gxc#optimizer-resolve-class
                                                      _%stx159849%_
                                                      's16vector::t))
                                                   (if (u32vector?
                                                        _%obj159897%_)
                                                       (let ()
                                                         (declare (not safe))
                                                         (gxc#optimizer-resolve-class
                                                          _%stx159849%_
                                                          'u32vector::t))
                                                       (if (s32vector?
                                                            _%obj159897%_)
                                                           (let ()
                                                             (declare
                                                               (not safe))
                                                             (gxc#optimizer-resolve-class
                                                              _%stx159849%_
                                                              's32vector::t))
                                                           (if (u64vector?
                                                                _%obj159897%_)
                                                               (let ()
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                         (declare (not safe))
                         (gxc#optimizer-resolve-class
                          _%stx159849%_
                          'u64vector::t))
                       (if (s64vector? _%obj159897%_)
                           (let ()
                             (declare (not safe))
                             (gxc#optimizer-resolve-class
                              _%stx159849%_
                              's64vector::t))
                           (if (f32vector? _%obj159897%_)
                               (let ()
                                 (declare (not safe))
                                 (gxc#optimizer-resolve-class
                                  _%stx159849%_
                                  'f32vector::t))
                               (if (f64vector? _%obj159897%_)
                                   (let ()
                                     (declare (not safe))
                                     (gxc#optimizer-resolve-class
                                      _%stx159849%_
                                      'f64vector::t))
                                   '#f))))))))))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                           (if (box? _%obj159897%_)
                               (let ()
                                 (declare (not safe))
                                 (gxc#optimizer-resolve-class
                                  _%stx159849%_
                                  'box::t))
                               '#f)))))))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                       _%hd159858159880%_)
                                      (_%g159851159864%_ _%g159852159867%_))))
                              (_%g159851159864%_ _%g159852159867%_))))
                      (_%g159851159864%_ _%g159852159867%_)))))
          (_%g159850159933%_ _%stx159849%_))))
    (define gxc#dispatch-lambda-form?
      (lambda (_%form159082%_)
        (let* ((_%__stx169420169421%_ _%form159082%_)
               (_%g159087159244%_
                (lambda ()
                  (let ()
                    (declare (not safe))
                    (gx#raise-syntax-error
                     '#f
                     '"Bad syntax; invalid match target"
                     _%__stx169420169421%_)))))
          (let ((_%__kont169422169423%_
                 (lambda (_%L159768%_ _%L159769%_ _%L159770%_) '#t))
                (_%__kont169428169429%_
                 (lambda (_%L159556%_
                          _%L159557%_
                          _%L159558%_
                          _%L159559%_
                          _%L159560%_
                          _%L159561%_)
                   '#t))
                (_%__kont169434169435%_
                 (lambda (_%L159352%_ _%L159353%_ _%L159354%_ _%L159355%_)
                   '#t))
                (_%__kont169436169437%_ (lambda () '#f)))
            (let* ((_%__match169561169562%_
                    (lambda (_%e159204159256%_
                             _%hd159205159259%_
                             _%tl159206159261%_
                             _%e159207159264%_
                             _%hd159208159267%_
                             _%tl159209159269%_
                             _%e159210159272%_
                             _%hd159211159275%_
                             _%tl159212159277%_
                             _%e159213159280%_
                             _%hd159214159283%_
                             _%tl159215159285%_
                             _%e159216159288%_
                             _%hd159217159291%_
                             _%tl159218159293%_
                             _%e159219159296%_
                             _%hd159220159299%_
                             _%tl159221159301%_
                             _%e159222159304%_
                             _%hd159223159307%_
                             _%tl159224159309%_
                             _%e159225159312%_
                             _%hd159226159315%_
                             _%tl159227159317%_
                             _%e159228159320%_
                             _%hd159229159323%_
                             _%tl159230159325%_
                             _%e159231159328%_
                             _%hd159232159331%_
                             _%tl159233159333%_
                             _%e159234159336%_
                             _%hd159235159339%_
                             _%tl159236159341%_
                             _%e159237159344%_
                             _%hd159238159347%_
                             _%tl159239159349%_)
                      (let ((_%L159352%_ _%hd159238159347%_)
                            (_%L159353%_ _%hd159229159323%_)
                            (_%L159354%_ _%hd159220159299%_)
                            (_%L159355%_ _%hd159205159259%_))
                        (if (and (let ()
                                   (declare (not safe))
                                   (gx#identifier? _%L159355%_))
                                 (let ()
                                   (declare (not safe))
                                   (gxc#runtime-identifier=?
                                    _%L159354%_
                                    'apply))
                                 (let ()
                                   (declare (not safe))
                                   (gx#free-identifier=?
                                    _%L159355%_
                                    _%L159352%_))
                                 (not (let ()
                                        (declare (not safe))
                                        (gx#free-identifier=?
                                         _%L159353%_
                                         _%L159355%_))))
                            (_%__kont169434169435%_
                             _%L159352%_
                             _%L159353%_
                             _%L159354%_
                             _%L159355%_)
                            (_%__kont169436169437%_)))))
                   (_%__match169533169534%_
                    (lambda (_%e159204159256%_
                             _%hd159205159259%_
                             _%tl159206159261%_
                             _%e159207159264%_
                             _%hd159208159267%_
                             _%tl159209159269%_
                             _%e159210159272%_
                             _%hd159211159275%_
                             _%tl159212159277%_
                             _%e159213159280%_
                             _%hd159214159283%_
                             _%tl159215159285%_
                             _%e159216159288%_
                             _%hd159217159291%_
                             _%tl159218159293%_
                             _%e159219159296%_
                             _%hd159220159299%_
                             _%tl159221159301%_
                             _%e159222159304%_
                             _%hd159223159307%_
                             _%tl159224159309%_
                             _%e159225159312%_
                             _%hd159226159315%_
                             _%tl159227159317%_
                             _%e159228159320%_
                             _%hd159229159323%_
                             _%tl159230159325%_)
                      (if (let ()
                            (declare (not safe))
                            (gx#stx-pair? _%tl159224159309%_))
                          (let ((_%e159231159328%_
                                 (let ()
                                   (declare (not safe))
                                   (gx#stx-e _%tl159224159309%_))))
                            (let ((_%tl159233159333%_
                                   (let ()
                                     (declare (not safe))
                                     (##cdr _%e159231159328%_)))
                                  (_%hd159232159331%_
                                   (let ()
                                     (declare (not safe))
                                     (##car _%e159231159328%_))))
                              (if (let ()
                                    (declare (not safe))
                                    (gx#stx-pair? _%hd159232159331%_))
                                  (let ((_%e159234159336%_
                                         (let ()
                                           (declare (not safe))
                                           (gx#stx-e _%hd159232159331%_))))
                                    (let ((_%tl159236159341%_
                                           (let ()
                                             (declare (not safe))
                                             (##cdr _%e159234159336%_)))
                                          (_%hd159235159339%_
                                           (let ()
                                             (declare (not safe))
                                             (##car _%e159234159336%_))))
                                      (if (let ()
                                            (declare (not safe))
                                            (gx#identifier?
                                             _%hd159235159339%_))
                                          (if (let ()
                                                (declare (not safe))
                                                (gx#stx-eq?
                                                 '%#ref
                                                 _%hd159235159339%_))
                                              (if (let ()
                                                    (declare (not safe))
                                                    (gx#stx-pair?
                                                     _%tl159236159341%_))
                                                  (let ((_%e159237159344%_
                                                         (let ()
                                                           (declare (not safe))
                                                           (gx#stx-e
                                                            _%tl159236159341%_))))
                                                    (let ((_%tl159239159349%_
                                                           (let ()
                                                             (declare
                                                               (not safe))
                                                             (##cdr _%e159237159344%_)))
                                                          (_%hd159238159347%_
                                                           (let ()
                                                             (declare
                                                               (not safe))
                                                             (##car _%e159237159344%_))))
                                                      (if (let ()
                                                            (declare
                                                              (not safe))
                                                            (gx#stx-null?
                                                             _%tl159239159349%_))
                                                          (if (let ()
                                                                (declare
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                          (not safe))
                        (gx#stx-null? _%tl159233159333%_))
                      (if (let ()
                            (declare (not safe))
                            (gx#stx-null? _%tl159209159269%_))
                          (_%__match169561169562%_
                           _%e159204159256%_
                           _%hd159205159259%_
                           _%tl159206159261%_
                           _%e159207159264%_
                           _%hd159208159267%_
                           _%tl159209159269%_
                           _%e159210159272%_
                           _%hd159211159275%_
                           _%tl159212159277%_
                           _%e159213159280%_
                           _%hd159214159283%_
                           _%tl159215159285%_
                           _%e159216159288%_
                           _%hd159217159291%_
                           _%tl159218159293%_
                           _%e159219159296%_
                           _%hd159220159299%_
                           _%tl159221159301%_
                           _%e159222159304%_
                           _%hd159223159307%_
                           _%tl159224159309%_
                           _%e159225159312%_
                           _%hd159226159315%_
                           _%tl159227159317%_
                           _%e159228159320%_
                           _%hd159229159323%_
                           _%tl159230159325%_
                           _%e159231159328%_
                           _%hd159232159331%_
                           _%tl159233159333%_
                           _%e159234159336%_
                           _%hd159235159339%_
                           _%tl159236159341%_
                           _%e159237159344%_
                           _%hd159238159347%_
                           _%tl159239159349%_)
                          (_%__kont169436169437%_))
                      (_%__kont169436169437%_))
                  (_%__kont169436169437%_))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                                  (_%__kont169436169437%_))
                                              (_%__kont169436169437%_))
                                          (_%__kont169436169437%_))))
                                  (_%__kont169436169437%_))))
                          (_%__kont169436169437%_))))
                   (_%__match169463169464%_
                    (lambda (_%e159140159396%_
                             _%hd159141159399%_
                             _%tl159142159401%_
                             _%__splice169430169431%_
                             _%target159143159404%_
                             _%tl159145159406%_)
                      (letrec ((_%loop159146159409%_
                                (lambda (_%hd159144159412%_
                                         _%arg159150159414%_)
                                  (if (let ()
                                        (declare (not safe))
                                        (gx#stx-pair? _%hd159144159412%_))
                                      (let ((_%e159147159417%_
                                             (let ()
                                               (declare (not safe))
                                               (gx#stx-e _%hd159144159412%_))))
                                        (let ((_%lp-tl159149159422%_
                                               (let ()
                                                 (declare (not safe))
                                                 (##cdr _%e159147159417%_)))
                                              (_%lp-hd159148159420%_
                                               (let ()
                                                 (declare (not safe))
                                                 (##car _%e159147159417%_))))
                                          (_%loop159146159409%_
                                           _%lp-tl159149159422%_
                                           (cons _%lp-hd159148159420%_
                                                 _%arg159150159414%_))))
                                      (let ((_%arg159151159425%_
                                             (reverse _%arg159150159414%_)))
                                        (if (let ()
                                              (declare (not safe))
                                              (gx#stx-pair?
                                               _%tl159142159401%_))
                                            (let ((_%e159152159428%_
                                                   (let ()
                                                     (declare (not safe))
                                                     (gx#stx-e
                                                      _%tl159142159401%_))))
                                              (let ((_%tl159154159433%_
                                                     (let ()
                                                       (declare (not safe))
                                                       (##cdr _%e159152159428%_)))
                                                    (_%hd159153159431%_
                                                     (let ()
                                                       (declare (not safe))
                                                       (##car _%e159152159428%_))))
                                                (if (let ()
                                                      (declare (not safe))
                                                      (gx#stx-pair?
                                                       _%hd159153159431%_))
                                                    (let ((_%e159155159436%_
                                                           (let ()
                                                             (declare
                                                               (not safe))
                                                             (gx#stx-e
                                                              _%hd159153159431%_))))
                                                      (let ((_%tl159157159441%_
                                                             (let ()
                                                               (declare
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                         (not safe))
                       (##cdr _%e159155159436%_)))
                    (_%hd159156159439%_
                     (let () (declare (not safe)) (##car _%e159155159436%_))))
                (if (let ()
                      (declare (not safe))
                      (gx#identifier? _%hd159156159439%_))
                    (if (let ()
                          (declare (not safe))
                          (gx#stx-eq? '%#call _%hd159156159439%_))
                        (if (let ()
                              (declare (not safe))
                              (gx#stx-pair? _%tl159157159441%_))
                            (let ((_%e159158159444%_
                                   (let ()
                                     (declare (not safe))
                                     (gx#stx-e _%tl159157159441%_))))
                              (let ((_%tl159160159449%_
                                     (let ()
                                       (declare (not safe))
                                       (##cdr _%e159158159444%_)))
                                    (_%hd159159159447%_
                                     (let ()
                                       (declare (not safe))
                                       (##car _%e159158159444%_))))
                                (if (let ()
                                      (declare (not safe))
                                      (gx#stx-pair? _%hd159159159447%_))
                                    (let ((_%e159161159452%_
                                           (let ()
                                             (declare (not safe))
                                             (gx#stx-e _%hd159159159447%_))))
                                      (let ((_%tl159163159457%_
                                             (let ()
                                               (declare (not safe))
                                               (##cdr _%e159161159452%_)))
                                            (_%hd159162159455%_
                                             (let ()
                                               (declare (not safe))
                                               (##car _%e159161159452%_))))
                                        (if (let ()
                                              (declare (not safe))
                                              (gx#identifier?
                                               _%hd159162159455%_))
                                            (if (let ()
                                                  (declare (not safe))
                                                  (gx#stx-eq?
                                                   '%#ref
                                                   _%hd159162159455%_))
                                                (if (let ()
                                                      (declare (not safe))
                                                      (gx#stx-pair?
                                                       _%tl159163159457%_))
                                                    (let ((_%e159164159460%_
                                                           (let ()
                                                             (declare
                                                               (not safe))
                                                             (gx#stx-e
                                                              _%tl159163159457%_))))
                                                      (let ((_%tl159166159465%_
                                                             (let ()
                                                               (declare
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                         (not safe))
                       (##cdr _%e159164159460%_)))
                    (_%hd159165159463%_
                     (let () (declare (not safe)) (##car _%e159164159460%_))))
                (if (let ()
                      (declare (not safe))
                      (gx#stx-null? _%tl159166159465%_))
                    (if (let ()
                          (declare (not safe))
                          (gx#stx-pair? _%tl159160159449%_))
                        (let ((_%e159167159468%_
                               (let ()
                                 (declare (not safe))
                                 (gx#stx-e _%tl159160159449%_))))
                          (let ((_%tl159169159473%_
                                 (let ()
                                   (declare (not safe))
                                   (##cdr _%e159167159468%_)))
                                (_%hd159168159471%_
                                 (let ()
                                   (declare (not safe))
                                   (##car _%e159167159468%_))))
                            (if (let ()
                                  (declare (not safe))
                                  (gx#stx-pair? _%hd159168159471%_))
                                (let ((_%e159170159476%_
                                       (let ()
                                         (declare (not safe))
                                         (gx#stx-e _%hd159168159471%_))))
                                  (let ((_%tl159172159481%_
                                         (let ()
                                           (declare (not safe))
                                           (##cdr _%e159170159476%_)))
                                        (_%hd159171159479%_
                                         (let ()
                                           (declare (not safe))
                                           (##car _%e159170159476%_))))
                                    (if (let ()
                                          (declare (not safe))
                                          (gx#identifier? _%hd159171159479%_))
                                        (if (let ()
                                              (declare (not safe))
                                              (gx#stx-eq?
                                               '%#ref
                                               _%hd159171159479%_))
                                            (if (let ()
                                                  (declare (not safe))
                                                  (gx#stx-pair?
                                                   _%tl159172159481%_))
                                                (let ((_%e159173159484%_
                                                       (let ()
                                                         (declare (not safe))
                                                         (gx#stx-e
                                                          _%tl159172159481%_))))
                                                  (let ((_%tl159175159489%_
                                                         (let ()
                                                           (declare (not safe))
                                                           (##cdr _%e159173159484%_)))
                                                        (_%hd159174159487%_
                                                         (let ()
                                                           (declare (not safe))
                                                           (##car _%e159173159484%_))))
                                                    (if (let ()
                                                          (declare (not safe))
                                                          (gx#stx-null?
                                                           _%tl159175159489%_))
                                                        (if (let ()
                                                              (declare
                                                                (not safe))
                                                              (gx#stx-pair/null?
                                                               _%tl159169159473%_))
                                                            (if (let ((__tmp171049
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                               (let ()
                                 (declare (not safe))
                                 (gx#stx-length _%tl159169159473%_))))
                          (declare (not safe))
                          (##fx>= __tmp171049 '1))
                        (let ((_%__splice169432169433%_
                               (let ()
                                 (declare (not safe))
                                 (gx#syntax-split-splice
                                  _%tl159169159473%_
                                  '1))))
                          (let ((_%tl159178159494%_
                                 (let ()
                                   (declare (not safe))
                                   (##vector-ref _%__splice169432169433%_ '1)))
                                (_%target159176159492%_
                                 (let ()
                                   (declare (not safe))
                                   (##vector-ref
                                    _%__splice169432169433%_
                                    '0))))
                            (if (let ()
                                  (declare (not safe))
                                  (gx#stx-pair? _%tl159178159494%_))
                                (let ((_%e159185159497%_
                                       (let ()
                                         (declare (not safe))
                                         (gx#stx-e _%tl159178159494%_))))
                                  (let ((_%tl159187159502%_
                                         (let ()
                                           (declare (not safe))
                                           (##cdr _%e159185159497%_)))
                                        (_%hd159186159500%_
                                         (let ()
                                           (declare (not safe))
                                           (##car _%e159185159497%_))))
                                    (if (let ()
                                          (declare (not safe))
                                          (gx#stx-pair? _%hd159186159500%_))
                                        (let ((_%e159188159505%_
                                               (let ()
                                                 (declare (not safe))
                                                 (gx#stx-e
                                                  _%hd159186159500%_))))
                                          (let ((_%tl159190159510%_
                                                 (let ()
                                                   (declare (not safe))
                                                   (##cdr _%e159188159505%_)))
                                                (_%hd159189159508%_
                                                 (let ()
                                                   (declare (not safe))
                                                   (##car _%e159188159505%_))))
                                            (if (let ()
                                                  (declare (not safe))
                                                  (gx#identifier?
                                                   _%hd159189159508%_))
                                                (if (let ()
                                                      (declare (not safe))
                                                      (gx#stx-eq?
                                                       '%#ref
                                                       _%hd159189159508%_))
                                                    (if (let ()
                                                          (declare (not safe))
                                                          (gx#stx-pair?
                                                           _%tl159190159510%_))
                                                        (let ((_%e159191159513%_
                                                               (let ()
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                         (declare (not safe))
                         (gx#stx-e _%tl159190159510%_))))
                  (let ((_%tl159193159518%_
                         (let ()
                           (declare (not safe))
                           (##cdr _%e159191159513%_)))
                        (_%hd159192159516%_
                         (let ()
                           (declare (not safe))
                           (##car _%e159191159513%_))))
                    (if (let ()
                          (declare (not safe))
                          (gx#stx-null? _%tl159193159518%_))
                        (if (let ()
                              (declare (not safe))
                              (gx#stx-null? _%tl159187159502%_))
                            (letrec ((_%loop159179159521%_
                                      (lambda (_%hd159177159524%_
                                               _%xarg159183159526%_)
                                        (if (let ()
                                              (declare (not safe))
                                              (gx#stx-pair?
                                               _%hd159177159524%_))
                                            (let ((_%e159180159529%_
                                                   (let ()
                                                     (declare (not safe))
                                                     (gx#stx-e
                                                      _%hd159177159524%_))))
                                              (let ((_%lp-tl159182159534%_
                                                     (let ()
                                                       (declare (not safe))
                                                       (##cdr _%e159180159529%_)))
                                                    (_%lp-hd159181159532%_
                                                     (let ()
                                                       (declare (not safe))
                                                       (##car _%e159180159529%_))))
                                                (if (let ()
                                                      (declare (not safe))
                                                      (gx#stx-pair?
                                                       _%lp-hd159181159532%_))
                                                    (let ((_%e159194159537%_
                                                           (let ()
                                                             (declare
                                                               (not safe))
                                                             (gx#stx-e
                                                              _%lp-hd159181159532%_))))
                                                      (let ((_%tl159196159542%_
                                                             (let ()
                                                               (declare
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                         (not safe))
                       (##cdr _%e159194159537%_)))
                    (_%hd159195159540%_
                     (let () (declare (not safe)) (##car _%e159194159537%_))))
                (if (let ()
                      (declare (not safe))
                      (gx#identifier? _%hd159195159540%_))
                    (if (let ()
                          (declare (not safe))
                          (gx#stx-eq? '%#ref _%hd159195159540%_))
                        (if (let ()
                              (declare (not safe))
                              (gx#stx-pair? _%tl159196159542%_))
                            (let ((_%e159197159545%_
                                   (let ()
                                     (declare (not safe))
                                     (gx#stx-e _%tl159196159542%_))))
                              (let ((_%tl159199159550%_
                                     (let ()
                                       (declare (not safe))
                                       (##cdr _%e159197159545%_)))
                                    (_%hd159198159548%_
                                     (let ()
                                       (declare (not safe))
                                       (##car _%e159197159545%_))))
                                (if (let ()
                                      (declare (not safe))
                                      (gx#stx-null? _%tl159199159550%_))
                                    (_%loop159179159521%_
                                     _%lp-tl159182159534%_
                                     (cons _%hd159198159548%_
                                           _%xarg159183159526%_))
                                    (_%__match169533169534%_
                                     _%e159140159396%_
                                     _%hd159141159399%_
                                     _%tl159142159401%_
                                     _%e159152159428%_
                                     _%hd159153159431%_
                                     _%tl159154159433%_
                                     _%e159155159436%_
                                     _%hd159156159439%_
                                     _%tl159157159441%_
                                     _%e159158159444%_
                                     _%hd159159159447%_
                                     _%tl159160159449%_
                                     _%e159161159452%_
                                     _%hd159162159455%_
                                     _%tl159163159457%_
                                     _%e159164159460%_
                                     _%hd159165159463%_
                                     _%tl159166159465%_
                                     _%e159167159468%_
                                     _%hd159168159471%_
                                     _%tl159169159473%_
                                     _%e159170159476%_
                                     _%hd159171159479%_
                                     _%tl159172159481%_
                                     _%e159173159484%_
                                     _%hd159174159487%_
                                     _%tl159175159489%_))))
                            (_%__match169533169534%_
                             _%e159140159396%_
                             _%hd159141159399%_
                             _%tl159142159401%_
                             _%e159152159428%_
                             _%hd159153159431%_
                             _%tl159154159433%_
                             _%e159155159436%_
                             _%hd159156159439%_
                             _%tl159157159441%_
                             _%e159158159444%_
                             _%hd159159159447%_
                             _%tl159160159449%_
                             _%e159161159452%_
                             _%hd159162159455%_
                             _%tl159163159457%_
                             _%e159164159460%_
                             _%hd159165159463%_
                             _%tl159166159465%_
                             _%e159167159468%_
                             _%hd159168159471%_
                             _%tl159169159473%_
                             _%e159170159476%_
                             _%hd159171159479%_
                             _%tl159172159481%_
                             _%e159173159484%_
                             _%hd159174159487%_
                             _%tl159175159489%_))
                        (_%__match169533169534%_
                         _%e159140159396%_
                         _%hd159141159399%_
                         _%tl159142159401%_
                         _%e159152159428%_
                         _%hd159153159431%_
                         _%tl159154159433%_
                         _%e159155159436%_
                         _%hd159156159439%_
                         _%tl159157159441%_
                         _%e159158159444%_
                         _%hd159159159447%_
                         _%tl159160159449%_
                         _%e159161159452%_
                         _%hd159162159455%_
                         _%tl159163159457%_
                         _%e159164159460%_
                         _%hd159165159463%_
                         _%tl159166159465%_
                         _%e159167159468%_
                         _%hd159168159471%_
                         _%tl159169159473%_
                         _%e159170159476%_
                         _%hd159171159479%_
                         _%tl159172159481%_
                         _%e159173159484%_
                         _%hd159174159487%_
                         _%tl159175159489%_))
                    (_%__match169533169534%_
                     _%e159140159396%_
                     _%hd159141159399%_
                     _%tl159142159401%_
                     _%e159152159428%_
                     _%hd159153159431%_
                     _%tl159154159433%_
                     _%e159155159436%_
                     _%hd159156159439%_
                     _%tl159157159441%_
                     _%e159158159444%_
                     _%hd159159159447%_
                     _%tl159160159449%_
                     _%e159161159452%_
                     _%hd159162159455%_
                     _%tl159163159457%_
                     _%e159164159460%_
                     _%hd159165159463%_
                     _%tl159166159465%_
                     _%e159167159468%_
                     _%hd159168159471%_
                     _%tl159169159473%_
                     _%e159170159476%_
                     _%hd159171159479%_
                     _%tl159172159481%_
                     _%e159173159484%_
                     _%hd159174159487%_
                     _%tl159175159489%_))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                                    (_%__match169533169534%_
                                                     _%e159140159396%_
                                                     _%hd159141159399%_
                                                     _%tl159142159401%_
                                                     _%e159152159428%_
                                                     _%hd159153159431%_
                                                     _%tl159154159433%_
                                                     _%e159155159436%_
                                                     _%hd159156159439%_
                                                     _%tl159157159441%_
                                                     _%e159158159444%_
                                                     _%hd159159159447%_
                                                     _%tl159160159449%_
                                                     _%e159161159452%_
                                                     _%hd159162159455%_
                                                     _%tl159163159457%_
                                                     _%e159164159460%_
                                                     _%hd159165159463%_
                                                     _%tl159166159465%_
                                                     _%e159167159468%_
                                                     _%hd159168159471%_
                                                     _%tl159169159473%_
                                                     _%e159170159476%_
                                                     _%hd159171159479%_
                                                     _%tl159172159481%_
                                                     _%e159173159484%_
                                                     _%hd159174159487%_
                                                     _%tl159175159489%_))))
                                            (let ((_%xarg159184159553%_
                                                   (reverse _%xarg159183159526%_)))
                                              (if (let ()
                                                    (declare (not safe))
                                                    (gx#stx-null?
                                                     _%tl159154159433%_))
                                                  (let ((_%L159556%_
                                                         _%hd159192159516%_)
                                                        (_%L159557%_
                                                         _%xarg159184159553%_)
                                                        (_%L159558%_
                                                         _%hd159174159487%_)
                                                        (_%L159559%_
                                                         _%hd159165159463%_)
                                                        (_%L159560%_
                                                         _%tl159145159406%_)
                                                        (_%L159561%_
                                                         _%arg159151159425%_))
                                                    (if (and (let ((__tmp171050
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                            (let ((__tmp171051
                                   (lambda (_%g159604159607%_
                                            _%g159605159609%_)
                                     (cons _%g159604159607%_
                                           _%g159605159609%_))))
                              (declare (not safe))
                              (__foldr1 __tmp171051 '() _%L159561%_))))
                       (declare (not safe))
                       (gx#identifier-list? __tmp171050))
                     (let () (declare (not safe)) (gx#identifier? _%L159560%_))
                     (let ()
                       (declare (not safe))
                       (gxc#runtime-identifier=? _%L159559%_ 'apply))
                     (let ((__tmp171054
                            (length (let ((__tmp171055
                                           (lambda (_%g159611159614%_
                                                    _%g159612159616%_)
                                             (cons _%g159611159614%_
                                                   _%g159612159616%_))))
                                      (declare (not safe))
                                      (__foldr1 __tmp171055 '() _%L159561%_))))
                           (__tmp171052
                            (length (let ((__tmp171053
                                           (lambda (_%g159618159621%_
                                                    _%g159619159623%_)
                                             (cons _%g159618159621%_
                                                   _%g159619159623%_))))
                                      (declare (not safe))
                                      (__foldr1
                                       __tmp171053
                                       '()
                                       _%L159557%_)))))
                       (declare (not safe))
                       (##fx= __tmp171054 __tmp171052))
                     (let ((__tmp171058
                            (let ((__tmp171059
                                   (lambda (_%g159625159628%_
                                            _%g159626159630%_)
                                     (cons _%g159625159628%_
                                           _%g159626159630%_))))
                              (declare (not safe))
                              (__foldr1 __tmp171059 '() _%L159561%_)))
                           (__tmp171056
                            (let ((__tmp171057
                                   (lambda (_%g159632159635%_
                                            _%g159633159637%_)
                                     (cons _%g159632159635%_
                                           _%g159633159637%_))))
                              (declare (not safe))
                              (__foldr1 __tmp171057 '() _%L159557%_))))
                       (declare (not safe))
                       (__andmap2
                        gx#free-identifier=?
                        __tmp171058
                        __tmp171056))
                     (let ()
                       (declare (not safe))
                       (gx#free-identifier=? _%L159560%_ _%L159556%_))
                     (not (let ((__tmp171063
                                 (lambda (_%g159639159641%_)
                                   (let ()
                                     (declare (not safe))
                                     (gx#free-identifier=?
                                      _%g159639159641%_
                                      _%L159558%_))))
                                (__tmp171060
                                 (let ((__tmp171062
                                        (lambda (_%g159643159646%_
                                                 _%g159644159648%_)
                                          (cons _%g159643159646%_
                                                _%g159644159648%_)))
                                       (__tmp171061 (cons _%L159560%_ '())))
                                   (declare (not safe))
                                   (__foldr1
                                    __tmp171062
                                    __tmp171061
                                    _%L159561%_))))
                            (declare (not safe))
                            (__find __tmp171063 __tmp171060))))
                (_%__kont169428169429%_
                 _%L159556%_
                 _%L159557%_
                 _%L159558%_
                 _%L159559%_
                 _%L159560%_
                 _%L159561%_)
                (_%__match169533169534%_
                 _%e159140159396%_
                 _%hd159141159399%_
                 _%tl159142159401%_
                 _%e159152159428%_
                 _%hd159153159431%_
                 _%tl159154159433%_
                 _%e159155159436%_
                 _%hd159156159439%_
                 _%tl159157159441%_
                 _%e159158159444%_
                 _%hd159159159447%_
                 _%tl159160159449%_
                 _%e159161159452%_
                 _%hd159162159455%_
                 _%tl159163159457%_
                 _%e159164159460%_
                 _%hd159165159463%_
                 _%tl159166159465%_
                 _%e159167159468%_
                 _%hd159168159471%_
                 _%tl159169159473%_
                 _%e159170159476%_
                 _%hd159171159479%_
                 _%tl159172159481%_
                 _%e159173159484%_
                 _%hd159174159487%_
                 _%tl159175159489%_)))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                                  (_%__match169533169534%_
                                                   _%e159140159396%_
                                                   _%hd159141159399%_
                                                   _%tl159142159401%_
                                                   _%e159152159428%_
                                                   _%hd159153159431%_
                                                   _%tl159154159433%_
                                                   _%e159155159436%_
                                                   _%hd159156159439%_
                                                   _%tl159157159441%_
                                                   _%e159158159444%_
                                                   _%hd159159159447%_
                                                   _%tl159160159449%_
                                                   _%e159161159452%_
                                                   _%hd159162159455%_
                                                   _%tl159163159457%_
                                                   _%e159164159460%_
                                                   _%hd159165159463%_
                                                   _%tl159166159465%_
                                                   _%e159167159468%_
                                                   _%hd159168159471%_
                                                   _%tl159169159473%_
                                                   _%e159170159476%_
                                                   _%hd159171159479%_
                                                   _%tl159172159481%_
                                                   _%e159173159484%_
                                                   _%hd159174159487%_
                                                   _%tl159175159489%_)))))))
                              (_%loop159179159521%_
                               _%target159176159492%_
                               '()))
                            (_%__match169533169534%_
                             _%e159140159396%_
                             _%hd159141159399%_
                             _%tl159142159401%_
                             _%e159152159428%_
                             _%hd159153159431%_
                             _%tl159154159433%_
                             _%e159155159436%_
                             _%hd159156159439%_
                             _%tl159157159441%_
                             _%e159158159444%_
                             _%hd159159159447%_
                             _%tl159160159449%_
                             _%e159161159452%_
                             _%hd159162159455%_
                             _%tl159163159457%_
                             _%e159164159460%_
                             _%hd159165159463%_
                             _%tl159166159465%_
                             _%e159167159468%_
                             _%hd159168159471%_
                             _%tl159169159473%_
                             _%e159170159476%_
                             _%hd159171159479%_
                             _%tl159172159481%_
                             _%e159173159484%_
                             _%hd159174159487%_
                             _%tl159175159489%_))
                        (_%__match169533169534%_
                         _%e159140159396%_
                         _%hd159141159399%_
                         _%tl159142159401%_
                         _%e159152159428%_
                         _%hd159153159431%_
                         _%tl159154159433%_
                         _%e159155159436%_
                         _%hd159156159439%_
                         _%tl159157159441%_
                         _%e159158159444%_
                         _%hd159159159447%_
                         _%tl159160159449%_
                         _%e159161159452%_
                         _%hd159162159455%_
                         _%tl159163159457%_
                         _%e159164159460%_
                         _%hd159165159463%_
                         _%tl159166159465%_
                         _%e159167159468%_
                         _%hd159168159471%_
                         _%tl159169159473%_
                         _%e159170159476%_
                         _%hd159171159479%_
                         _%tl159172159481%_
                         _%e159173159484%_
                         _%hd159174159487%_
                         _%tl159175159489%_))))
                (_%__match169533169534%_
                 _%e159140159396%_
                 _%hd159141159399%_
                 _%tl159142159401%_
                 _%e159152159428%_
                 _%hd159153159431%_
                 _%tl159154159433%_
                 _%e159155159436%_
                 _%hd159156159439%_
                 _%tl159157159441%_
                 _%e159158159444%_
                 _%hd159159159447%_
                 _%tl159160159449%_
                 _%e159161159452%_
                 _%hd159162159455%_
                 _%tl159163159457%_
                 _%e159164159460%_
                 _%hd159165159463%_
                 _%tl159166159465%_
                 _%e159167159468%_
                 _%hd159168159471%_
                 _%tl159169159473%_
                 _%e159170159476%_
                 _%hd159171159479%_
                 _%tl159172159481%_
                 _%e159173159484%_
                 _%hd159174159487%_
                 _%tl159175159489%_))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                                    (_%__match169533169534%_
                                                     _%e159140159396%_
                                                     _%hd159141159399%_
                                                     _%tl159142159401%_
                                                     _%e159152159428%_
                                                     _%hd159153159431%_
                                                     _%tl159154159433%_
                                                     _%e159155159436%_
                                                     _%hd159156159439%_
                                                     _%tl159157159441%_
                                                     _%e159158159444%_
                                                     _%hd159159159447%_
                                                     _%tl159160159449%_
                                                     _%e159161159452%_
                                                     _%hd159162159455%_
                                                     _%tl159163159457%_
                                                     _%e159164159460%_
                                                     _%hd159165159463%_
                                                     _%tl159166159465%_
                                                     _%e159167159468%_
                                                     _%hd159168159471%_
                                                     _%tl159169159473%_
                                                     _%e159170159476%_
                                                     _%hd159171159479%_
                                                     _%tl159172159481%_
                                                     _%e159173159484%_
                                                     _%hd159174159487%_
                                                     _%tl159175159489%_))
                                                (_%__match169533169534%_
                                                 _%e159140159396%_
                                                 _%hd159141159399%_
                                                 _%tl159142159401%_
                                                 _%e159152159428%_
                                                 _%hd159153159431%_
                                                 _%tl159154159433%_
                                                 _%e159155159436%_
                                                 _%hd159156159439%_
                                                 _%tl159157159441%_
                                                 _%e159158159444%_
                                                 _%hd159159159447%_
                                                 _%tl159160159449%_
                                                 _%e159161159452%_
                                                 _%hd159162159455%_
                                                 _%tl159163159457%_
                                                 _%e159164159460%_
                                                 _%hd159165159463%_
                                                 _%tl159166159465%_
                                                 _%e159167159468%_
                                                 _%hd159168159471%_
                                                 _%tl159169159473%_
                                                 _%e159170159476%_
                                                 _%hd159171159479%_
                                                 _%tl159172159481%_
                                                 _%e159173159484%_
                                                 _%hd159174159487%_
                                                 _%tl159175159489%_))))
                                        (_%__match169533169534%_
                                         _%e159140159396%_
                                         _%hd159141159399%_
                                         _%tl159142159401%_
                                         _%e159152159428%_
                                         _%hd159153159431%_
                                         _%tl159154159433%_
                                         _%e159155159436%_
                                         _%hd159156159439%_
                                         _%tl159157159441%_
                                         _%e159158159444%_
                                         _%hd159159159447%_
                                         _%tl159160159449%_
                                         _%e159161159452%_
                                         _%hd159162159455%_
                                         _%tl159163159457%_
                                         _%e159164159460%_
                                         _%hd159165159463%_
                                         _%tl159166159465%_
                                         _%e159167159468%_
                                         _%hd159168159471%_
                                         _%tl159169159473%_
                                         _%e159170159476%_
                                         _%hd159171159479%_
                                         _%tl159172159481%_
                                         _%e159173159484%_
                                         _%hd159174159487%_
                                         _%tl159175159489%_))))
                                (_%__match169533169534%_
                                 _%e159140159396%_
                                 _%hd159141159399%_
                                 _%tl159142159401%_
                                 _%e159152159428%_
                                 _%hd159153159431%_
                                 _%tl159154159433%_
                                 _%e159155159436%_
                                 _%hd159156159439%_
                                 _%tl159157159441%_
                                 _%e159158159444%_
                                 _%hd159159159447%_
                                 _%tl159160159449%_
                                 _%e159161159452%_
                                 _%hd159162159455%_
                                 _%tl159163159457%_
                                 _%e159164159460%_
                                 _%hd159165159463%_
                                 _%tl159166159465%_
                                 _%e159167159468%_
                                 _%hd159168159471%_
                                 _%tl159169159473%_
                                 _%e159170159476%_
                                 _%hd159171159479%_
                                 _%tl159172159481%_
                                 _%e159173159484%_
                                 _%hd159174159487%_
                                 _%tl159175159489%_))))
                        (_%__match169533169534%_
                         _%e159140159396%_
                         _%hd159141159399%_
                         _%tl159142159401%_
                         _%e159152159428%_
                         _%hd159153159431%_
                         _%tl159154159433%_
                         _%e159155159436%_
                         _%hd159156159439%_
                         _%tl159157159441%_
                         _%e159158159444%_
                         _%hd159159159447%_
                         _%tl159160159449%_
                         _%e159161159452%_
                         _%hd159162159455%_
                         _%tl159163159457%_
                         _%e159164159460%_
                         _%hd159165159463%_
                         _%tl159166159465%_
                         _%e159167159468%_
                         _%hd159168159471%_
                         _%tl159169159473%_
                         _%e159170159476%_
                         _%hd159171159479%_
                         _%tl159172159481%_
                         _%e159173159484%_
                         _%hd159174159487%_
                         _%tl159175159489%_))
                    (_%__match169533169534%_
                     _%e159140159396%_
                     _%hd159141159399%_
                     _%tl159142159401%_
                     _%e159152159428%_
                     _%hd159153159431%_
                     _%tl159154159433%_
                     _%e159155159436%_
                     _%hd159156159439%_
                     _%tl159157159441%_
                     _%e159158159444%_
                     _%hd159159159447%_
                     _%tl159160159449%_
                     _%e159161159452%_
                     _%hd159162159455%_
                     _%tl159163159457%_
                     _%e159164159460%_
                     _%hd159165159463%_
                     _%tl159166159465%_
                     _%e159167159468%_
                     _%hd159168159471%_
                     _%tl159169159473%_
                     _%e159170159476%_
                     _%hd159171159479%_
                     _%tl159172159481%_
                     _%e159173159484%_
                     _%hd159174159487%_
                     _%tl159175159489%_))
                (_%__kont169436169437%_))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                                (_%__kont169436169437%_))
                                            (_%__kont169436169437%_))
                                        (_%__kont169436169437%_))))
                                (_%__kont169436169437%_))))
                        (_%__kont169436169437%_))
                    (_%__kont169436169437%_))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                                    (_%__kont169436169437%_))
                                                (_%__kont169436169437%_))
                                            (_%__kont169436169437%_))))
                                    (_%__kont169436169437%_))))
                            (_%__kont169436169437%_))
                        (_%__kont169436169437%_))
                    (_%__kont169436169437%_))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                                    (_%__kont169436169437%_))))
                                            (_%__kont169436169437%_)))))))
                        (_%loop159146159409%_ _%target159143159404%_ '()))))
                   (_%__match169451169452%_
                    (lambda (_%e159092159656%_
                             _%hd159093159659%_
                             _%tl159094159661%_
                             _%__splice169424169425%_
                             _%target159095159664%_
                             _%tl159097159666%_)
                      (letrec ((_%loop159098159669%_
                                (lambda (_%hd159096159672%_
                                         _%arg159102159674%_)
                                  (if (let ()
                                        (declare (not safe))
                                        (gx#stx-pair? _%hd159096159672%_))
                                      (let ((_%e159099159677%_
                                             (let ()
                                               (declare (not safe))
                                               (gx#stx-e _%hd159096159672%_))))
                                        (let ((_%lp-tl159101159682%_
                                               (let ()
                                                 (declare (not safe))
                                                 (##cdr _%e159099159677%_)))
                                              (_%lp-hd159100159680%_
                                               (let ()
                                                 (declare (not safe))
                                                 (##car _%e159099159677%_))))
                                          (_%loop159098159669%_
                                           _%lp-tl159101159682%_
                                           (cons _%lp-hd159100159680%_
                                                 _%arg159102159674%_))))
                                      (let ((_%arg159103159685%_
                                             (reverse _%arg159102159674%_)))
                                        (if (let ()
                                              (declare (not safe))
                                              (gx#stx-pair?
                                               _%tl159094159661%_))
                                            (let ((_%e159104159688%_
                                                   (let ()
                                                     (declare (not safe))
                                                     (gx#stx-e
                                                      _%tl159094159661%_))))
                                              (let ((_%tl159106159693%_
                                                     (let ()
                                                       (declare (not safe))
                                                       (##cdr _%e159104159688%_)))
                                                    (_%hd159105159691%_
                                                     (let ()
                                                       (declare (not safe))
                                                       (##car _%e159104159688%_))))
                                                (if (let ()
                                                      (declare (not safe))
                                                      (gx#stx-pair?
                                                       _%hd159105159691%_))
                                                    (let ((_%e159107159696%_
                                                           (let ()
                                                             (declare
                                                               (not safe))
                                                             (gx#stx-e
                                                              _%hd159105159691%_))))
                                                      (let ((_%tl159109159701%_
                                                             (let ()
                                                               (declare
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                         (not safe))
                       (##cdr _%e159107159696%_)))
                    (_%hd159108159699%_
                     (let () (declare (not safe)) (##car _%e159107159696%_))))
                (if (let ()
                      (declare (not safe))
                      (gx#identifier? _%hd159108159699%_))
                    (if (let ()
                          (declare (not safe))
                          (gx#stx-eq? '%#call _%hd159108159699%_))
                        (if (let ()
                              (declare (not safe))
                              (gx#stx-pair? _%tl159109159701%_))
                            (let ((_%e159110159704%_
                                   (let ()
                                     (declare (not safe))
                                     (gx#stx-e _%tl159109159701%_))))
                              (let ((_%tl159112159709%_
                                     (let ()
                                       (declare (not safe))
                                       (##cdr _%e159110159704%_)))
                                    (_%hd159111159707%_
                                     (let ()
                                       (declare (not safe))
                                       (##car _%e159110159704%_))))
                                (if (let ()
                                      (declare (not safe))
                                      (gx#stx-pair? _%hd159111159707%_))
                                    (let ((_%e159113159712%_
                                           (let ()
                                             (declare (not safe))
                                             (gx#stx-e _%hd159111159707%_))))
                                      (let ((_%tl159115159717%_
                                             (let ()
                                               (declare (not safe))
                                               (##cdr _%e159113159712%_)))
                                            (_%hd159114159715%_
                                             (let ()
                                               (declare (not safe))
                                               (##car _%e159113159712%_))))
                                        (if (let ()
                                              (declare (not safe))
                                              (gx#identifier?
                                               _%hd159114159715%_))
                                            (if (let ()
                                                  (declare (not safe))
                                                  (gx#stx-eq?
                                                   '%#ref
                                                   _%hd159114159715%_))
                                                (if (let ()
                                                      (declare (not safe))
                                                      (gx#stx-pair?
                                                       _%tl159115159717%_))
                                                    (let ((_%e159116159720%_
                                                           (let ()
                                                             (declare
                                                               (not safe))
                                                             (gx#stx-e
                                                              _%tl159115159717%_))))
                                                      (let ((_%tl159118159725%_
                                                             (let ()
                                                               (declare
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                         (not safe))
                       (##cdr _%e159116159720%_)))
                    (_%hd159117159723%_
                     (let () (declare (not safe)) (##car _%e159116159720%_))))
                (if (let ()
                      (declare (not safe))
                      (gx#stx-null? _%tl159118159725%_))
                    (if (let ()
                          (declare (not safe))
                          (gx#stx-pair/null? _%tl159112159709%_))
                        (let ((_%__splice169426169427%_
                               (let ()
                                 (declare (not safe))
                                 (gx#syntax-split-splice
                                  _%tl159112159709%_
                                  '0))))
                          (let ((_%tl159121159730%_
                                 (let ()
                                   (declare (not safe))
                                   (##vector-ref _%__splice169426169427%_ '1)))
                                (_%target159119159728%_
                                 (let ()
                                   (declare (not safe))
                                   (##vector-ref
                                    _%__splice169426169427%_
                                    '0))))
                            (if (let ()
                                  (declare (not safe))
                                  (gx#stx-null? _%tl159121159730%_))
                                (letrec ((_%loop159122159733%_
                                          (lambda (_%hd159120159736%_
                                                   _%xarg159126159738%_)
                                            (if (let ()
                                                  (declare (not safe))
                                                  (gx#stx-pair?
                                                   _%hd159120159736%_))
                                                (let ((_%e159123159741%_
                                                       (let ()
                                                         (declare (not safe))
                                                         (gx#stx-e
                                                          _%hd159120159736%_))))
                                                  (let ((_%lp-tl159125159746%_
                                                         (let ()
                                                           (declare (not safe))
                                                           (##cdr _%e159123159741%_)))
                                                        (_%lp-hd159124159744%_
                                                         (let ()
                                                           (declare (not safe))
                                                           (##car _%e159123159741%_))))
                                                    (if (let ()
                                                          (declare (not safe))
                                                          (gx#stx-pair?
                                                           _%lp-hd159124159744%_))
                                                        (let ((_%e159128159749%_
                                                               (let ()
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                         (declare (not safe))
                         (gx#stx-e _%lp-hd159124159744%_))))
                  (let ((_%tl159130159754%_
                         (let ()
                           (declare (not safe))
                           (##cdr _%e159128159749%_)))
                        (_%hd159129159752%_
                         (let ()
                           (declare (not safe))
                           (##car _%e159128159749%_))))
                    (if (let ()
                          (declare (not safe))
                          (gx#identifier? _%hd159129159752%_))
                        (if (let ()
                              (declare (not safe))
                              (gx#stx-eq? '%#ref _%hd159129159752%_))
                            (if (let ()
                                  (declare (not safe))
                                  (gx#stx-pair? _%tl159130159754%_))
                                (let ((_%e159131159757%_
                                       (let ()
                                         (declare (not safe))
                                         (gx#stx-e _%tl159130159754%_))))
                                  (let ((_%tl159133159762%_
                                         (let ()
                                           (declare (not safe))
                                           (##cdr _%e159131159757%_)))
                                        (_%hd159132159760%_
                                         (let ()
                                           (declare (not safe))
                                           (##car _%e159131159757%_))))
                                    (if (let ()
                                          (declare (not safe))
                                          (gx#stx-null? _%tl159133159762%_))
                                        (_%loop159122159733%_
                                         _%lp-tl159125159746%_
                                         (cons _%hd159132159760%_
                                               _%xarg159126159738%_))
                                        (_%__match169463169464%_
                                         _%e159092159656%_
                                         _%hd159093159659%_
                                         _%tl159094159661%_
                                         _%__splice169424169425%_
                                         _%target159095159664%_
                                         _%tl159097159666%_))))
                                (_%__match169463169464%_
                                 _%e159092159656%_
                                 _%hd159093159659%_
                                 _%tl159094159661%_
                                 _%__splice169424169425%_
                                 _%target159095159664%_
                                 _%tl159097159666%_))
                            (_%__match169463169464%_
                             _%e159092159656%_
                             _%hd159093159659%_
                             _%tl159094159661%_
                             _%__splice169424169425%_
                             _%target159095159664%_
                             _%tl159097159666%_))
                        (_%__match169463169464%_
                         _%e159092159656%_
                         _%hd159093159659%_
                         _%tl159094159661%_
                         _%__splice169424169425%_
                         _%target159095159664%_
                         _%tl159097159666%_))))
                (_%__match169463169464%_
                 _%e159092159656%_
                 _%hd159093159659%_
                 _%tl159094159661%_
                 _%__splice169424169425%_
                 _%target159095159664%_
                 _%tl159097159666%_))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                                (let ((_%xarg159127159765%_
                                                       (reverse _%xarg159126159738%_)))
                                                  (if (let ()
                                                        (declare (not safe))
                                                        (gx#stx-null?
                                                         _%tl159106159693%_))
                                                      (let ((_%L159768%_
                                                             _%xarg159127159765%_)
                                                            (_%L159769%_
                                                             _%hd159117159723%_)
                                                            (_%L159770%_
                                                             _%arg159103159685%_))
                                                        (if (and (let ((__tmp171064
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                                (let ((__tmp171065
                                       (lambda (_%g159798159801%_
                                                _%g159799159803%_)
                                         (cons _%g159798159801%_
                                               _%g159799159803%_))))
                                  (declare (not safe))
                                  (__foldr1 __tmp171065 '() _%L159770%_))))
                           (declare (not safe))
                           (gx#identifier-list? __tmp171064))
                         (let ((__tmp171068
                                (length (let ((__tmp171069
                                               (lambda (_%g159805159808%_
                                                        _%g159806159810%_)
                                                 (cons _%g159805159808%_
                                                       _%g159806159810%_))))
                                          (declare (not safe))
                                          (__foldr1
                                           __tmp171069
                                           '()
                                           _%L159770%_))))
                               (__tmp171066
                                (length (let ((__tmp171067
                                               (lambda (_%g159812159815%_
                                                        _%g159813159817%_)
                                                 (cons _%g159812159815%_
                                                       _%g159813159817%_))))
                                          (declare (not safe))
                                          (__foldr1
                                           __tmp171067
                                           '()
                                           _%L159768%_)))))
                           (declare (not safe))
                           (##fx= __tmp171068 __tmp171066))
                         (let ((__tmp171072
                                (let ((__tmp171073
                                       (lambda (_%g159819159822%_
                                                _%g159820159824%_)
                                         (cons _%g159819159822%_
                                               _%g159820159824%_))))
                                  (declare (not safe))
                                  (__foldr1 __tmp171073 '() _%L159770%_)))
                               (__tmp171070
                                (let ((__tmp171071
                                       (lambda (_%g159826159829%_
                                                _%g159827159831%_)
                                         (cons _%g159826159829%_
                                               _%g159827159831%_))))
                                  (declare (not safe))
                                  (__foldr1 __tmp171071 '() _%L159768%_))))
                           (declare (not safe))
                           (__andmap2
                            gx#free-identifier=?
                            __tmp171072
                            __tmp171070))
                         (not (let ((__tmp171076
                                     (lambda (_%g159833159835%_)
                                       (let ()
                                         (declare (not safe))
                                         (gx#free-identifier=?
                                          _%g159833159835%_
                                          _%L159769%_))))
                                    (__tmp171074
                                     (let ((__tmp171075
                                            (lambda (_%g159837159840%_
                                                     _%g159838159842%_)
                                              (cons _%g159837159840%_
                                                    _%g159838159842%_))))
                                       (declare (not safe))
                                       (__foldr1
                                        __tmp171075
                                        '()
                                        _%L159770%_))))
                                (declare (not safe))
                                (__find __tmp171076 __tmp171074))))
                    (_%__kont169422169423%_
                     _%L159768%_
                     _%L159769%_
                     _%L159770%_)
                    (_%__match169463169464%_
                     _%e159092159656%_
                     _%hd159093159659%_
                     _%tl159094159661%_
                     _%__splice169424169425%_
                     _%target159095159664%_
                     _%tl159097159666%_)))
              (_%__match169463169464%_
               _%e159092159656%_
               _%hd159093159659%_
               _%tl159094159661%_
               _%__splice169424169425%_
               _%target159095159664%_
               _%tl159097159666%_)))))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                  (_%loop159122159733%_
                                   _%target159119159728%_
                                   '()))
                                (_%__match169463169464%_
                                 _%e159092159656%_
                                 _%hd159093159659%_
                                 _%tl159094159661%_
                                 _%__splice169424169425%_
                                 _%target159095159664%_
                                 _%tl159097159666%_))))
                        (_%__match169463169464%_
                         _%e159092159656%_
                         _%hd159093159659%_
                         _%tl159094159661%_
                         _%__splice169424169425%_
                         _%target159095159664%_
                         _%tl159097159666%_))
                    (_%__match169463169464%_
                     _%e159092159656%_
                     _%hd159093159659%_
                     _%tl159094159661%_
                     _%__splice169424169425%_
                     _%target159095159664%_
                     _%tl159097159666%_))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                                    (_%__match169463169464%_
                                                     _%e159092159656%_
                                                     _%hd159093159659%_
                                                     _%tl159094159661%_
                                                     _%__splice169424169425%_
                                                     _%target159095159664%_
                                                     _%tl159097159666%_))
                                                (_%__match169463169464%_
                                                 _%e159092159656%_
                                                 _%hd159093159659%_
                                                 _%tl159094159661%_
                                                 _%__splice169424169425%_
                                                 _%target159095159664%_
                                                 _%tl159097159666%_))
                                            (_%__match169463169464%_
                                             _%e159092159656%_
                                             _%hd159093159659%_
                                             _%tl159094159661%_
                                             _%__splice169424169425%_
                                             _%target159095159664%_
                                             _%tl159097159666%_))))
                                    (_%__match169463169464%_
                                     _%e159092159656%_
                                     _%hd159093159659%_
                                     _%tl159094159661%_
                                     _%__splice169424169425%_
                                     _%target159095159664%_
                                     _%tl159097159666%_))))
                            (_%__match169463169464%_
                             _%e159092159656%_
                             _%hd159093159659%_
                             _%tl159094159661%_
                             _%__splice169424169425%_
                             _%target159095159664%_
                             _%tl159097159666%_))
                        (_%__match169463169464%_
                         _%e159092159656%_
                         _%hd159093159659%_
                         _%tl159094159661%_
                         _%__splice169424169425%_
                         _%target159095159664%_
                         _%tl159097159666%_))
                    (_%__match169463169464%_
                     _%e159092159656%_
                     _%hd159093159659%_
                     _%tl159094159661%_
                     _%__splice169424169425%_
                     _%target159095159664%_
                     _%tl159097159666%_))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                                    (_%__match169463169464%_
                                                     _%e159092159656%_
                                                     _%hd159093159659%_
                                                     _%tl159094159661%_
                                                     _%__splice169424169425%_
                                                     _%target159095159664%_
                                                     _%tl159097159666%_))))
                                            (_%__match169463169464%_
                                             _%e159092159656%_
                                             _%hd159093159659%_
                                             _%tl159094159661%_
                                             _%__splice169424169425%_
                                             _%target159095159664%_
                                             _%tl159097159666%_)))))))
                        (_%loop159098159669%_ _%target159095159664%_ '())))))
              (if (let ()
                    (declare (not safe))
                    (gx#stx-pair? _%__stx169420169421%_))
                  (let ((_%e159092159656%_
                         (let ()
                           (declare (not safe))
                           (gx#stx-e _%__stx169420169421%_))))
                    (let ((_%tl159094159661%_
                           (let ()
                             (declare (not safe))
                             (##cdr _%e159092159656%_)))
                          (_%hd159093159659%_
                           (let ()
                             (declare (not safe))
                             (##car _%e159092159656%_))))
                      (if (let ()
                            (declare (not safe))
                            (gx#stx-pair/null? _%hd159093159659%_))
                          (let ((_%__splice169424169425%_
                                 (let ()
                                   (declare (not safe))
                                   (gx#syntax-split-splice
                                    _%hd159093159659%_
                                    '0))))
                            (let ((_%tl159097159666%_
                                   (let ()
                                     (declare (not safe))
                                     (##vector-ref
                                      _%__splice169424169425%_
                                      '1)))
                                  (_%target159095159664%_
                                   (let ()
                                     (declare (not safe))
                                     (##vector-ref
                                      _%__splice169424169425%_
                                      '0))))
                              (if (let ()
                                    (declare (not safe))
                                    (gx#stx-null? _%tl159097159666%_))
                                  (_%__match169451169452%_
                                   _%e159092159656%_
                                   _%hd159093159659%_
                                   _%tl159094159661%_
                                   _%__splice169424169425%_
                                   _%target159095159664%_
                                   _%tl159097159666%_)
                                  (_%__match169463169464%_
                                   _%e159092159656%_
                                   _%hd159093159659%_
                                   _%tl159094159661%_
                                   _%__splice169424169425%_
                                   _%target159095159664%_
                                   _%tl159097159666%_))))
                          (if (let ()
                                (declare (not safe))
                                (gx#stx-pair? _%tl159094159661%_))
                              (let ((_%e159207159264%_
                                     (let ()
                                       (declare (not safe))
                                       (gx#stx-e _%tl159094159661%_))))
                                (let ((_%tl159209159269%_
                                       (let ()
                                         (declare (not safe))
                                         (##cdr _%e159207159264%_)))
                                      (_%hd159208159267%_
                                       (let ()
                                         (declare (not safe))
                                         (##car _%e159207159264%_))))
                                  (if (let ()
                                        (declare (not safe))
                                        (gx#stx-pair? _%hd159208159267%_))
                                      (let ((_%e159210159272%_
                                             (let ()
                                               (declare (not safe))
                                               (gx#stx-e _%hd159208159267%_))))
                                        (let ((_%tl159212159277%_
                                               (let ()
                                                 (declare (not safe))
                                                 (##cdr _%e159210159272%_)))
                                              (_%hd159211159275%_
                                               (let ()
                                                 (declare (not safe))
                                                 (##car _%e159210159272%_))))
                                          (if (let ()
                                                (declare (not safe))
                                                (gx#identifier?
                                                 _%hd159211159275%_))
                                              (if (let ()
                                                    (declare (not safe))
                                                    (gx#stx-eq?
                                                     '%#call
                                                     _%hd159211159275%_))
                                                  (if (let ()
                                                        (declare (not safe))
                                                        (gx#stx-pair?
                                                         _%tl159212159277%_))
                                                      (let ((_%e159213159280%_
                                                             (let ()
                                                               (declare
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                         (not safe))
                       (gx#stx-e _%tl159212159277%_))))
                (let ((_%tl159215159285%_
                       (let () (declare (not safe)) (##cdr _%e159213159280%_)))
                      (_%hd159214159283%_
                       (let ()
                         (declare (not safe))
                         (##car _%e159213159280%_))))
                  (if (let ()
                        (declare (not safe))
                        (gx#stx-pair? _%hd159214159283%_))
                      (let ((_%e159216159288%_
                             (let ()
                               (declare (not safe))
                               (gx#stx-e _%hd159214159283%_))))
                        (let ((_%tl159218159293%_
                               (let ()
                                 (declare (not safe))
                                 (##cdr _%e159216159288%_)))
                              (_%hd159217159291%_
                               (let ()
                                 (declare (not safe))
                                 (##car _%e159216159288%_))))
                          (if (let ()
                                (declare (not safe))
                                (gx#identifier? _%hd159217159291%_))
                              (if (let ()
                                    (declare (not safe))
                                    (gx#stx-eq? '%#ref _%hd159217159291%_))
                                  (if (let ()
                                        (declare (not safe))
                                        (gx#stx-pair? _%tl159218159293%_))
                                      (let ((_%e159219159296%_
                                             (let ()
                                               (declare (not safe))
                                               (gx#stx-e _%tl159218159293%_))))
                                        (let ((_%tl159221159301%_
                                               (let ()
                                                 (declare (not safe))
                                                 (##cdr _%e159219159296%_)))
                                              (_%hd159220159299%_
                                               (let ()
                                                 (declare (not safe))
                                                 (##car _%e159219159296%_))))
                                          (if (let ()
                                                (declare (not safe))
                                                (gx#stx-null?
                                                 _%tl159221159301%_))
                                              (if (let ()
                                                    (declare (not safe))
                                                    (gx#stx-pair?
                                                     _%tl159215159285%_))
                                                  (let ((_%e159222159304%_
                                                         (let ()
                                                           (declare (not safe))
                                                           (gx#stx-e
                                                            _%tl159215159285%_))))
                                                    (let ((_%tl159224159309%_
                                                           (let ()
                                                             (declare
                                                               (not safe))
                                                             (##cdr _%e159222159304%_)))
                                                          (_%hd159223159307%_
                                                           (let ()
                                                             (declare
                                                               (not safe))
                                                             (##car _%e159222159304%_))))
                                                      (if (let ()
                                                            (declare
                                                              (not safe))
                                                            (gx#stx-pair?
                                                             _%hd159223159307%_))
                                                          (let ((_%e159225159312%_
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                         (let ()
                           (declare (not safe))
                           (gx#stx-e _%hd159223159307%_))))
                    (let ((_%tl159227159317%_
                           (let ()
                             (declare (not safe))
                             (##cdr _%e159225159312%_)))
                          (_%hd159226159315%_
                           (let ()
                             (declare (not safe))
                             (##car _%e159225159312%_))))
                      (if (let ()
                            (declare (not safe))
                            (gx#identifier? _%hd159226159315%_))
                          (if (let ()
                                (declare (not safe))
                                (gx#stx-eq? '%#ref _%hd159226159315%_))
                              (if (let ()
                                    (declare (not safe))
                                    (gx#stx-pair? _%tl159227159317%_))
                                  (let ((_%e159228159320%_
                                         (let ()
                                           (declare (not safe))
                                           (gx#stx-e _%tl159227159317%_))))
                                    (let ((_%tl159230159325%_
                                           (let ()
                                             (declare (not safe))
                                             (##cdr _%e159228159320%_)))
                                          (_%hd159229159323%_
                                           (let ()
                                             (declare (not safe))
                                             (##car _%e159228159320%_))))
                                      (if (let ()
                                            (declare (not safe))
                                            (gx#stx-null? _%tl159230159325%_))
                                          (if (let ()
                                                (declare (not safe))
                                                (gx#stx-pair?
                                                 _%tl159224159309%_))
                                              (let ((_%e159231159328%_
                                                     (let ()
                                                       (declare (not safe))
                                                       (gx#stx-e
                                                        _%tl159224159309%_))))
                                                (let ((_%tl159233159333%_
                                                       (let ()
                                                         (declare (not safe))
                                                         (##cdr _%e159231159328%_)))
                                                      (_%hd159232159331%_
                                                       (let ()
                                                         (declare (not safe))
                                                         (##car _%e159231159328%_))))
                                                  (if (let ()
                                                        (declare (not safe))
                                                        (gx#stx-pair?
                                                         _%hd159232159331%_))
                                                      (let ((_%e159234159336%_
                                                             (let ()
                                                               (declare
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                         (not safe))
                       (gx#stx-e _%hd159232159331%_))))
                (let ((_%tl159236159341%_
                       (let () (declare (not safe)) (##cdr _%e159234159336%_)))
                      (_%hd159235159339%_
                       (let ()
                         (declare (not safe))
                         (##car _%e159234159336%_))))
                  (if (let ()
                        (declare (not safe))
                        (gx#identifier? _%hd159235159339%_))
                      (if (let ()
                            (declare (not safe))
                            (gx#stx-eq? '%#ref _%hd159235159339%_))
                          (if (let ()
                                (declare (not safe))
                                (gx#stx-pair? _%tl159236159341%_))
                              (let ((_%e159237159344%_
                                     (let ()
                                       (declare (not safe))
                                       (gx#stx-e _%tl159236159341%_))))
                                (let ((_%tl159239159349%_
                                       (let ()
                                         (declare (not safe))
                                         (##cdr _%e159237159344%_)))
                                      (_%hd159238159347%_
                                       (let ()
                                         (declare (not safe))
                                         (##car _%e159237159344%_))))
                                  (if (let ()
                                        (declare (not safe))
                                        (gx#stx-null? _%tl159239159349%_))
                                      (if (let ()
                                            (declare (not safe))
                                            (gx#stx-null? _%tl159233159333%_))
                                          (if (let ()
                                                (declare (not safe))
                                                (gx#stx-null?
                                                 _%tl159209159269%_))
                                              (_%__match169561169562%_
                                               _%e159092159656%_
                                               _%hd159093159659%_
                                               _%tl159094159661%_
                                               _%e159207159264%_
                                               _%hd159208159267%_
                                               _%tl159209159269%_
                                               _%e159210159272%_
                                               _%hd159211159275%_
                                               _%tl159212159277%_
                                               _%e159213159280%_
                                               _%hd159214159283%_
                                               _%tl159215159285%_
                                               _%e159216159288%_
                                               _%hd159217159291%_
                                               _%tl159218159293%_
                                               _%e159219159296%_
                                               _%hd159220159299%_
                                               _%tl159221159301%_
                                               _%e159222159304%_
                                               _%hd159223159307%_
                                               _%tl159224159309%_
                                               _%e159225159312%_
                                               _%hd159226159315%_
                                               _%tl159227159317%_
                                               _%e159228159320%_
                                               _%hd159229159323%_
                                               _%tl159230159325%_
                                               _%e159231159328%_
                                               _%hd159232159331%_
                                               _%tl159233159333%_
                                               _%e159234159336%_
                                               _%hd159235159339%_
                                               _%tl159236159341%_
                                               _%e159237159344%_
                                               _%hd159238159347%_
                                               _%tl159239159349%_)
                                              (_%__kont169436169437%_))
                                          (_%__kont169436169437%_))
                                      (_%__kont169436169437%_))))
                              (_%__kont169436169437%_))
                          (_%__kont169436169437%_))
                      (_%__kont169436169437%_))))
              (_%__kont169436169437%_))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                              (_%__kont169436169437%_))
                                          (_%__kont169436169437%_))))
                                  (_%__kont169436169437%_))
                              (_%__kont169436169437%_))
                          (_%__kont169436169437%_))))
                  (_%__kont169436169437%_))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                                  (_%__kont169436169437%_))
                                              (_%__kont169436169437%_))))
                                      (_%__kont169436169437%_))
                                  (_%__kont169436169437%_))
                              (_%__kont169436169437%_))))
                      (_%__kont169436169437%_))))
              (_%__kont169436169437%_))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                                  (_%__kont169436169437%_))
                                              (_%__kont169436169437%_))))
                                      (_%__kont169436169437%_))))
                              (_%__kont169436169437%_)))))
                  (_%__kont169436169437%_)))))))
    (define gxc#dispatch-lambda-form-delegate
      (lambda (_%form158550%_)
        (let* ((_%__stx169564169565%_ _%form158550%_)
               (_%g158554158678%_
                (lambda ()
                  (let ()
                    (declare (not safe))
                    (gx#raise-syntax-error
                     '#f
                     '"Bad syntax; invalid match target"
                     _%__stx169564169565%_)))))
          (let ((_%__kont169566169567%_
                 (lambda (_%L159048%_ _%L159049%_ _%L159050%_)
                   (let ()
                     (declare (not safe))
                     (gxc#identifier-symbol _%L159049%_))))
                (_%__kont169572169573%_
                 (lambda (_%L158896%_ _%L158897%_ _%L158898%_ _%L158899%_)
                   (let ()
                     (declare (not safe))
                     (gxc#identifier-symbol _%L158896%_))))
                (_%__kont169576169577%_
                 (lambda (_%L158763%_ _%L158764%_ _%L158765%_)
                   (let ()
                     (declare (not safe))
                     (gxc#identifier-symbol _%L158763%_)))))
            (let* ((_%__match169673169674%_
                    (lambda (_%e158644158683%_
                             _%hd158645158686%_
                             _%tl158646158688%_
                             _%e158647158691%_
                             _%hd158648158694%_
                             _%tl158649158696%_
                             _%e158650158699%_
                             _%hd158651158702%_
                             _%tl158652158704%_
                             _%e158653158707%_
                             _%hd158654158710%_
                             _%tl158655158712%_
                             _%e158656158715%_
                             _%hd158657158718%_
                             _%tl158658158720%_
                             _%e158659158723%_
                             _%hd158660158726%_
                             _%tl158661158728%_
                             _%e158662158731%_
                             _%hd158663158734%_
                             _%tl158664158736%_
                             _%e158665158739%_
                             _%hd158666158742%_
                             _%tl158667158744%_
                             _%e158668158747%_
                             _%hd158669158750%_
                             _%tl158670158752%_)
                      (if (let ()
                            (declare (not safe))
                            (gx#stx-pair? _%tl158664158736%_))
                          (let ((_%e158671158755%_
                                 (let ()
                                   (declare (not safe))
                                   (gx#stx-e _%tl158664158736%_))))
                            (let ((_%tl158673158760%_
                                   (let ()
                                     (declare (not safe))
                                     (##cdr _%e158671158755%_)))
                                  (_%hd158672158758%_
                                   (let ()
                                     (declare (not safe))
                                     (##car _%e158671158755%_))))
                              (if (let ()
                                    (declare (not safe))
                                    (gx#stx-null? _%tl158673158760%_))
                                  (if (let ()
                                        (declare (not safe))
                                        (gx#stx-null? _%tl158649158696%_))
                                      (_%__kont169576169577%_
                                       _%hd158669158750%_
                                       _%hd158660158726%_
                                       _%hd158645158686%_)
                                      (let ()
                                        (declare (not safe))
                                        (_%g158554158678%_)))
                                  (let ()
                                    (declare (not safe))
                                    (_%g158554158678%_)))))
                          (let () (declare (not safe)) (_%g158554158678%_)))))
                   (_%__match169603169604%_
                    (lambda (_%e158605158800%_
                             _%hd158606158803%_
                             _%tl158607158805%_
                             _%__splice169574169575%_
                             _%target158608158808%_
                             _%tl158610158810%_)
                      (letrec ((_%loop158611158813%_
                                (lambda (_%hd158609158816%_
                                         _%arg158615158818%_)
                                  (if (let ()
                                        (declare (not safe))
                                        (gx#stx-pair? _%hd158609158816%_))
                                      (let ((_%e158612158821%_
                                             (let ()
                                               (declare (not safe))
                                               (gx#stx-e _%hd158609158816%_))))
                                        (let ((_%lp-tl158614158826%_
                                               (let ()
                                                 (declare (not safe))
                                                 (##cdr _%e158612158821%_)))
                                              (_%lp-hd158613158824%_
                                               (let ()
                                                 (declare (not safe))
                                                 (##car _%e158612158821%_))))
                                          (_%loop158611158813%_
                                           _%lp-tl158614158826%_
                                           (cons _%lp-hd158613158824%_
                                                 _%arg158615158818%_))))
                                      (let ((_%arg158616158829%_
                                             (reverse _%arg158615158818%_)))
                                        (if (let ()
                                              (declare (not safe))
                                              (gx#stx-pair?
                                               _%tl158607158805%_))
                                            (let ((_%e158617158832%_
                                                   (let ()
                                                     (declare (not safe))
                                                     (gx#stx-e
                                                      _%tl158607158805%_))))
                                              (let ((_%tl158619158837%_
                                                     (let ()
                                                       (declare (not safe))
                                                       (##cdr _%e158617158832%_)))
                                                    (_%hd158618158835%_
                                                     (let ()
                                                       (declare (not safe))
                                                       (##car _%e158617158832%_))))
                                                (if (let ()
                                                      (declare (not safe))
                                                      (gx#stx-pair?
                                                       _%hd158618158835%_))
                                                    (let ((_%e158620158840%_
                                                           (let ()
                                                             (declare
                                                               (not safe))
                                                             (gx#stx-e
                                                              _%hd158618158835%_))))
                                                      (let ((_%tl158622158845%_
                                                             (let ()
                                                               (declare
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                         (not safe))
                       (##cdr _%e158620158840%_)))
                    (_%hd158621158843%_
                     (let () (declare (not safe)) (##car _%e158620158840%_))))
                (if (let ()
                      (declare (not safe))
                      (gx#identifier? _%hd158621158843%_))
                    (if (let ()
                          (declare (not safe))
                          (gx#stx-eq? '%#call _%hd158621158843%_))
                        (if (let ()
                              (declare (not safe))
                              (gx#stx-pair? _%tl158622158845%_))
                            (let ((_%e158623158848%_
                                   (let ()
                                     (declare (not safe))
                                     (gx#stx-e _%tl158622158845%_))))
                              (let ((_%tl158625158853%_
                                     (let ()
                                       (declare (not safe))
                                       (##cdr _%e158623158848%_)))
                                    (_%hd158624158851%_
                                     (let ()
                                       (declare (not safe))
                                       (##car _%e158623158848%_))))
                                (if (let ()
                                      (declare (not safe))
                                      (gx#stx-pair? _%hd158624158851%_))
                                    (let ((_%e158626158856%_
                                           (let ()
                                             (declare (not safe))
                                             (gx#stx-e _%hd158624158851%_))))
                                      (let ((_%tl158628158861%_
                                             (let ()
                                               (declare (not safe))
                                               (##cdr _%e158626158856%_)))
                                            (_%hd158627158859%_
                                             (let ()
                                               (declare (not safe))
                                               (##car _%e158626158856%_))))
                                        (if (let ()
                                              (declare (not safe))
                                              (gx#identifier?
                                               _%hd158627158859%_))
                                            (if (let ()
                                                  (declare (not safe))
                                                  (gx#stx-eq?
                                                   '%#ref
                                                   _%hd158627158859%_))
                                                (if (let ()
                                                      (declare (not safe))
                                                      (gx#stx-pair?
                                                       _%tl158628158861%_))
                                                    (let ((_%e158629158864%_
                                                           (let ()
                                                             (declare
                                                               (not safe))
                                                             (gx#stx-e
                                                              _%tl158628158861%_))))
                                                      (let ((_%tl158631158869%_
                                                             (let ()
                                                               (declare
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                         (not safe))
                       (##cdr _%e158629158864%_)))
                    (_%hd158630158867%_
                     (let () (declare (not safe)) (##car _%e158629158864%_))))
                (if (let ()
                      (declare (not safe))
                      (gx#stx-null? _%tl158631158869%_))
                    (if (let ()
                          (declare (not safe))
                          (gx#stx-pair? _%tl158625158853%_))
                        (let ((_%e158632158872%_
                               (let ()
                                 (declare (not safe))
                                 (gx#stx-e _%tl158625158853%_))))
                          (let ((_%tl158634158877%_
                                 (let ()
                                   (declare (not safe))
                                   (##cdr _%e158632158872%_)))
                                (_%hd158633158875%_
                                 (let ()
                                   (declare (not safe))
                                   (##car _%e158632158872%_))))
                            (if (let ()
                                  (declare (not safe))
                                  (gx#stx-pair? _%hd158633158875%_))
                                (let ((_%e158635158880%_
                                       (let ()
                                         (declare (not safe))
                                         (gx#stx-e _%hd158633158875%_))))
                                  (let ((_%tl158637158885%_
                                         (let ()
                                           (declare (not safe))
                                           (##cdr _%e158635158880%_)))
                                        (_%hd158636158883%_
                                         (let ()
                                           (declare (not safe))
                                           (##car _%e158635158880%_))))
                                    (if (let ()
                                          (declare (not safe))
                                          (gx#identifier? _%hd158636158883%_))
                                        (if (let ()
                                              (declare (not safe))
                                              (gx#stx-eq?
                                               '%#ref
                                               _%hd158636158883%_))
                                            (if (let ()
                                                  (declare (not safe))
                                                  (gx#stx-pair?
                                                   _%tl158637158885%_))
                                                (let ((_%e158638158888%_
                                                       (let ()
                                                         (declare (not safe))
                                                         (gx#stx-e
                                                          _%tl158637158885%_))))
                                                  (let ((_%tl158640158893%_
                                                         (let ()
                                                           (declare (not safe))
                                                           (##cdr _%e158638158888%_)))
                                                        (_%hd158639158891%_
                                                         (let ()
                                                           (declare (not safe))
                                                           (##car _%e158638158888%_))))
                                                    (if (let ()
                                                          (declare (not safe))
                                                          (gx#stx-null?
                                                           _%tl158640158893%_))
                                                        (if (let ()
                                                              (declare
                                                                (not safe))
                                                              (gx#stx-null?
                                                               _%tl158619158837%_))
                                                            (_%__kont169572169573%_
                                                             _%hd158639158891%_
                                                             _%hd158630158867%_
                                                             _%tl158610158810%_
                                                             _%arg158616158829%_)
                                                            (_%__match169673169674%_
                                                             _%e158605158800%_
                                                             _%hd158606158803%_
                                                             _%tl158607158805%_
                                                             _%e158617158832%_
                                                             _%hd158618158835%_
                                                             _%tl158619158837%_
                                                             _%e158620158840%_
                                                             _%hd158621158843%_
                                                             _%tl158622158845%_
                                                             _%e158623158848%_
                                                             _%hd158624158851%_
                                                             _%tl158625158853%_
                                                             _%e158626158856%_
                                                             _%hd158627158859%_
                                                             _%tl158628158861%_
                                                             _%e158629158864%_
                                                             _%hd158630158867%_
                                                             _%tl158631158869%_
                                                             _%e158632158872%_
                                                             _%hd158633158875%_
                                                             _%tl158634158877%_
                                                             _%e158635158880%_
                                                             _%hd158636158883%_
                                                             _%tl158637158885%_
                                                             _%e158638158888%_
                                                             _%hd158639158891%_
                                                             _%tl158640158893%_))
                                                        (let ()
                                                          (declare (not safe))
                                                          (_%g158554158678%_)))))
                                                (let ()
                                                  (declare (not safe))
                                                  (_%g158554158678%_)))
                                            (let ()
                                              (declare (not safe))
                                              (_%g158554158678%_)))
                                        (let ()
                                          (declare (not safe))
                                          (_%g158554158678%_)))))
                                (let ()
                                  (declare (not safe))
                                  (_%g158554158678%_)))))
                        (let () (declare (not safe)) (_%g158554158678%_)))
                    (let () (declare (not safe)) (_%g158554158678%_)))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                                    (let ()
                                                      (declare (not safe))
                                                      (_%g158554158678%_)))
                                                (let ()
                                                  (declare (not safe))
                                                  (_%g158554158678%_)))
                                            (let ()
                                              (declare (not safe))
                                              (_%g158554158678%_)))))
                                    (let ()
                                      (declare (not safe))
                                      (_%g158554158678%_)))))
                            (let () (declare (not safe)) (_%g158554158678%_)))
                        (let () (declare (not safe)) (_%g158554158678%_)))
                    (let () (declare (not safe)) (_%g158554158678%_)))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                                    (let ()
                                                      (declare (not safe))
                                                      (_%g158554158678%_)))))
                                            (let ()
                                              (declare (not safe))
                                              (_%g158554158678%_))))))))
                        (_%loop158611158813%_ _%target158608158808%_ '()))))
                   (_%__match169591169592%_
                    (lambda (_%e158559158936%_
                             _%hd158560158939%_
                             _%tl158561158941%_
                             _%__splice169568169569%_
                             _%target158562158944%_
                             _%tl158564158946%_)
                      (letrec ((_%loop158565158949%_
                                (lambda (_%hd158563158952%_
                                         _%arg158569158954%_)
                                  (if (let ()
                                        (declare (not safe))
                                        (gx#stx-pair? _%hd158563158952%_))
                                      (let ((_%e158566158957%_
                                             (let ()
                                               (declare (not safe))
                                               (gx#stx-e _%hd158563158952%_))))
                                        (let ((_%lp-tl158568158962%_
                                               (let ()
                                                 (declare (not safe))
                                                 (##cdr _%e158566158957%_)))
                                              (_%lp-hd158567158960%_
                                               (let ()
                                                 (declare (not safe))
                                                 (##car _%e158566158957%_))))
                                          (_%loop158565158949%_
                                           _%lp-tl158568158962%_
                                           (cons _%lp-hd158567158960%_
                                                 _%arg158569158954%_))))
                                      (let ((_%arg158570158965%_
                                             (reverse _%arg158569158954%_)))
                                        (if (let ()
                                              (declare (not safe))
                                              (gx#stx-pair?
                                               _%tl158561158941%_))
                                            (let ((_%e158571158968%_
                                                   (let ()
                                                     (declare (not safe))
                                                     (gx#stx-e
                                                      _%tl158561158941%_))))
                                              (let ((_%tl158573158973%_
                                                     (let ()
                                                       (declare (not safe))
                                                       (##cdr _%e158571158968%_)))
                                                    (_%hd158572158971%_
                                                     (let ()
                                                       (declare (not safe))
                                                       (##car _%e158571158968%_))))
                                                (if (let ()
                                                      (declare (not safe))
                                                      (gx#stx-pair?
                                                       _%hd158572158971%_))
                                                    (let ((_%e158574158976%_
                                                           (let ()
                                                             (declare
                                                               (not safe))
                                                             (gx#stx-e
                                                              _%hd158572158971%_))))
                                                      (let ((_%tl158576158981%_
                                                             (let ()
                                                               (declare
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                         (not safe))
                       (##cdr _%e158574158976%_)))
                    (_%hd158575158979%_
                     (let () (declare (not safe)) (##car _%e158574158976%_))))
                (if (let ()
                      (declare (not safe))
                      (gx#identifier? _%hd158575158979%_))
                    (if (let ()
                          (declare (not safe))
                          (gx#stx-eq? '%#call _%hd158575158979%_))
                        (if (let ()
                              (declare (not safe))
                              (gx#stx-pair? _%tl158576158981%_))
                            (let ((_%e158577158984%_
                                   (let ()
                                     (declare (not safe))
                                     (gx#stx-e _%tl158576158981%_))))
                              (let ((_%tl158579158989%_
                                     (let ()
                                       (declare (not safe))
                                       (##cdr _%e158577158984%_)))
                                    (_%hd158578158987%_
                                     (let ()
                                       (declare (not safe))
                                       (##car _%e158577158984%_))))
                                (if (let ()
                                      (declare (not safe))
                                      (gx#stx-pair? _%hd158578158987%_))
                                    (let ((_%e158580158992%_
                                           (let ()
                                             (declare (not safe))
                                             (gx#stx-e _%hd158578158987%_))))
                                      (let ((_%tl158582158997%_
                                             (let ()
                                               (declare (not safe))
                                               (##cdr _%e158580158992%_)))
                                            (_%hd158581158995%_
                                             (let ()
                                               (declare (not safe))
                                               (##car _%e158580158992%_))))
                                        (if (let ()
                                              (declare (not safe))
                                              (gx#identifier?
                                               _%hd158581158995%_))
                                            (if (let ()
                                                  (declare (not safe))
                                                  (gx#stx-eq?
                                                   '%#ref
                                                   _%hd158581158995%_))
                                                (if (let ()
                                                      (declare (not safe))
                                                      (gx#stx-pair?
                                                       _%tl158582158997%_))
                                                    (let ((_%e158583159000%_
                                                           (let ()
                                                             (declare
                                                               (not safe))
                                                             (gx#stx-e
                                                              _%tl158582158997%_))))
                                                      (let ((_%tl158585159005%_
                                                             (let ()
                                                               (declare
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                         (not safe))
                       (##cdr _%e158583159000%_)))
                    (_%hd158584159003%_
                     (let () (declare (not safe)) (##car _%e158583159000%_))))
                (if (let ()
                      (declare (not safe))
                      (gx#stx-null? _%tl158585159005%_))
                    (if (let ()
                          (declare (not safe))
                          (gx#stx-pair/null? _%tl158579158989%_))
                        (let ((_%__splice169570169571%_
                               (let ()
                                 (declare (not safe))
                                 (gx#syntax-split-splice
                                  _%tl158579158989%_
                                  '0))))
                          (let ((_%tl158588159010%_
                                 (let ()
                                   (declare (not safe))
                                   (##vector-ref _%__splice169570169571%_ '1)))
                                (_%target158586159008%_
                                 (let ()
                                   (declare (not safe))
                                   (##vector-ref
                                    _%__splice169570169571%_
                                    '0))))
                            (if (let ()
                                  (declare (not safe))
                                  (gx#stx-null? _%tl158588159010%_))
                                (letrec ((_%loop158589159013%_
                                          (lambda (_%hd158587159016%_
                                                   _%xarg158593159018%_)
                                            (if (let ()
                                                  (declare (not safe))
                                                  (gx#stx-pair?
                                                   _%hd158587159016%_))
                                                (let ((_%e158590159021%_
                                                       (let ()
                                                         (declare (not safe))
                                                         (gx#stx-e
                                                          _%hd158587159016%_))))
                                                  (let ((_%lp-tl158592159026%_
                                                         (let ()
                                                           (declare (not safe))
                                                           (##cdr _%e158590159021%_)))
                                                        (_%lp-hd158591159024%_
                                                         (let ()
                                                           (declare (not safe))
                                                           (##car _%e158590159021%_))))
                                                    (if (let ()
                                                          (declare (not safe))
                                                          (gx#stx-pair?
                                                           _%lp-hd158591159024%_))
                                                        (let ((_%e158595159029%_
                                                               (let ()
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                         (declare (not safe))
                         (gx#stx-e _%lp-hd158591159024%_))))
                  (let ((_%tl158597159034%_
                         (let ()
                           (declare (not safe))
                           (##cdr _%e158595159029%_)))
                        (_%hd158596159032%_
                         (let ()
                           (declare (not safe))
                           (##car _%e158595159029%_))))
                    (if (let ()
                          (declare (not safe))
                          (gx#identifier? _%hd158596159032%_))
                        (if (let ()
                              (declare (not safe))
                              (gx#stx-eq? '%#ref _%hd158596159032%_))
                            (if (let ()
                                  (declare (not safe))
                                  (gx#stx-pair? _%tl158597159034%_))
                                (let ((_%e158598159037%_
                                       (let ()
                                         (declare (not safe))
                                         (gx#stx-e _%tl158597159034%_))))
                                  (let ((_%tl158600159042%_
                                         (let ()
                                           (declare (not safe))
                                           (##cdr _%e158598159037%_)))
                                        (_%hd158599159040%_
                                         (let ()
                                           (declare (not safe))
                                           (##car _%e158598159037%_))))
                                    (if (let ()
                                          (declare (not safe))
                                          (gx#stx-null? _%tl158600159042%_))
                                        (_%loop158589159013%_
                                         _%lp-tl158592159026%_
                                         (cons _%hd158599159040%_
                                               _%xarg158593159018%_))
                                        (_%__match169603169604%_
                                         _%e158559158936%_
                                         _%hd158560158939%_
                                         _%tl158561158941%_
                                         _%__splice169568169569%_
                                         _%target158562158944%_
                                         _%tl158564158946%_))))
                                (_%__match169603169604%_
                                 _%e158559158936%_
                                 _%hd158560158939%_
                                 _%tl158561158941%_
                                 _%__splice169568169569%_
                                 _%target158562158944%_
                                 _%tl158564158946%_))
                            (_%__match169603169604%_
                             _%e158559158936%_
                             _%hd158560158939%_
                             _%tl158561158941%_
                             _%__splice169568169569%_
                             _%target158562158944%_
                             _%tl158564158946%_))
                        (_%__match169603169604%_
                         _%e158559158936%_
                         _%hd158560158939%_
                         _%tl158561158941%_
                         _%__splice169568169569%_
                         _%target158562158944%_
                         _%tl158564158946%_))))
                (_%__match169603169604%_
                 _%e158559158936%_
                 _%hd158560158939%_
                 _%tl158561158941%_
                 _%__splice169568169569%_
                 _%target158562158944%_
                 _%tl158564158946%_))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                                (let ((_%xarg158594159045%_
                                                       (reverse _%xarg158593159018%_)))
                                                  (if (let ()
                                                        (declare (not safe))
                                                        (gx#stx-null?
                                                         _%tl158573158973%_))
                                                      (_%__kont169566169567%_
                                                       _%xarg158594159045%_
                                                       _%hd158584159003%_
                                                       _%arg158570158965%_)
                                                      (_%__match169603169604%_
                                                       _%e158559158936%_
                                                       _%hd158560158939%_
                                                       _%tl158561158941%_
                                                       _%__splice169568169569%_
                                                       _%target158562158944%_
                                                       _%tl158564158946%_)))))))
                                  (_%loop158589159013%_
                                   _%target158586159008%_
                                   '()))
                                (_%__match169603169604%_
                                 _%e158559158936%_
                                 _%hd158560158939%_
                                 _%tl158561158941%_
                                 _%__splice169568169569%_
                                 _%target158562158944%_
                                 _%tl158564158946%_))))
                        (_%__match169603169604%_
                         _%e158559158936%_
                         _%hd158560158939%_
                         _%tl158561158941%_
                         _%__splice169568169569%_
                         _%target158562158944%_
                         _%tl158564158946%_))
                    (_%__match169603169604%_
                     _%e158559158936%_
                     _%hd158560158939%_
                     _%tl158561158941%_
                     _%__splice169568169569%_
                     _%target158562158944%_
                     _%tl158564158946%_))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                                    (_%__match169603169604%_
                                                     _%e158559158936%_
                                                     _%hd158560158939%_
                                                     _%tl158561158941%_
                                                     _%__splice169568169569%_
                                                     _%target158562158944%_
                                                     _%tl158564158946%_))
                                                (_%__match169603169604%_
                                                 _%e158559158936%_
                                                 _%hd158560158939%_
                                                 _%tl158561158941%_
                                                 _%__splice169568169569%_
                                                 _%target158562158944%_
                                                 _%tl158564158946%_))
                                            (_%__match169603169604%_
                                             _%e158559158936%_
                                             _%hd158560158939%_
                                             _%tl158561158941%_
                                             _%__splice169568169569%_
                                             _%target158562158944%_
                                             _%tl158564158946%_))))
                                    (_%__match169603169604%_
                                     _%e158559158936%_
                                     _%hd158560158939%_
                                     _%tl158561158941%_
                                     _%__splice169568169569%_
                                     _%target158562158944%_
                                     _%tl158564158946%_))))
                            (_%__match169603169604%_
                             _%e158559158936%_
                             _%hd158560158939%_
                             _%tl158561158941%_
                             _%__splice169568169569%_
                             _%target158562158944%_
                             _%tl158564158946%_))
                        (_%__match169603169604%_
                         _%e158559158936%_
                         _%hd158560158939%_
                         _%tl158561158941%_
                         _%__splice169568169569%_
                         _%target158562158944%_
                         _%tl158564158946%_))
                    (_%__match169603169604%_
                     _%e158559158936%_
                     _%hd158560158939%_
                     _%tl158561158941%_
                     _%__splice169568169569%_
                     _%target158562158944%_
                     _%tl158564158946%_))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                                    (_%__match169603169604%_
                                                     _%e158559158936%_
                                                     _%hd158560158939%_
                                                     _%tl158561158941%_
                                                     _%__splice169568169569%_
                                                     _%target158562158944%_
                                                     _%tl158564158946%_))))
                                            (_%__match169603169604%_
                                             _%e158559158936%_
                                             _%hd158560158939%_
                                             _%tl158561158941%_
                                             _%__splice169568169569%_
                                             _%target158562158944%_
                                             _%tl158564158946%_)))))))
                        (_%loop158565158949%_ _%target158562158944%_ '())))))
              (if (let ()
                    (declare (not safe))
                    (gx#stx-pair? _%__stx169564169565%_))
                  (let ((_%e158559158936%_
                         (let ()
                           (declare (not safe))
                           (gx#stx-e _%__stx169564169565%_))))
                    (let ((_%tl158561158941%_
                           (let ()
                             (declare (not safe))
                             (##cdr _%e158559158936%_)))
                          (_%hd158560158939%_
                           (let ()
                             (declare (not safe))
                             (##car _%e158559158936%_))))
                      (if (let ()
                            (declare (not safe))
                            (gx#stx-pair/null? _%hd158560158939%_))
                          (let ((_%__splice169568169569%_
                                 (let ()
                                   (declare (not safe))
                                   (gx#syntax-split-splice
                                    _%hd158560158939%_
                                    '0))))
                            (let ((_%tl158564158946%_
                                   (let ()
                                     (declare (not safe))
                                     (##vector-ref
                                      _%__splice169568169569%_
                                      '1)))
                                  (_%target158562158944%_
                                   (let ()
                                     (declare (not safe))
                                     (##vector-ref
                                      _%__splice169568169569%_
                                      '0))))
                              (if (let ()
                                    (declare (not safe))
                                    (gx#stx-null? _%tl158564158946%_))
                                  (_%__match169591169592%_
                                   _%e158559158936%_
                                   _%hd158560158939%_
                                   _%tl158561158941%_
                                   _%__splice169568169569%_
                                   _%target158562158944%_
                                   _%tl158564158946%_)
                                  (_%__match169603169604%_
                                   _%e158559158936%_
                                   _%hd158560158939%_
                                   _%tl158561158941%_
                                   _%__splice169568169569%_
                                   _%target158562158944%_
                                   _%tl158564158946%_))))
                          (if (let ()
                                (declare (not safe))
                                (gx#stx-pair? _%tl158561158941%_))
                              (let ((_%e158647158691%_
                                     (let ()
                                       (declare (not safe))
                                       (gx#stx-e _%tl158561158941%_))))
                                (let ((_%tl158649158696%_
                                       (let ()
                                         (declare (not safe))
                                         (##cdr _%e158647158691%_)))
                                      (_%hd158648158694%_
                                       (let ()
                                         (declare (not safe))
                                         (##car _%e158647158691%_))))
                                  (if (let ()
                                        (declare (not safe))
                                        (gx#stx-pair? _%hd158648158694%_))
                                      (let ((_%e158650158699%_
                                             (let ()
                                               (declare (not safe))
                                               (gx#stx-e _%hd158648158694%_))))
                                        (let ((_%tl158652158704%_
                                               (let ()
                                                 (declare (not safe))
                                                 (##cdr _%e158650158699%_)))
                                              (_%hd158651158702%_
                                               (let ()
                                                 (declare (not safe))
                                                 (##car _%e158650158699%_))))
                                          (if (let ()
                                                (declare (not safe))
                                                (gx#identifier?
                                                 _%hd158651158702%_))
                                              (if (let ()
                                                    (declare (not safe))
                                                    (gx#stx-eq?
                                                     '%#call
                                                     _%hd158651158702%_))
                                                  (if (let ()
                                                        (declare (not safe))
                                                        (gx#stx-pair?
                                                         _%tl158652158704%_))
                                                      (let ((_%e158653158707%_
                                                             (let ()
                                                               (declare
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                         (not safe))
                       (gx#stx-e _%tl158652158704%_))))
                (let ((_%tl158655158712%_
                       (let () (declare (not safe)) (##cdr _%e158653158707%_)))
                      (_%hd158654158710%_
                       (let ()
                         (declare (not safe))
                         (##car _%e158653158707%_))))
                  (if (let ()
                        (declare (not safe))
                        (gx#stx-pair? _%hd158654158710%_))
                      (let ((_%e158656158715%_
                             (let ()
                               (declare (not safe))
                               (gx#stx-e _%hd158654158710%_))))
                        (let ((_%tl158658158720%_
                               (let ()
                                 (declare (not safe))
                                 (##cdr _%e158656158715%_)))
                              (_%hd158657158718%_
                               (let ()
                                 (declare (not safe))
                                 (##car _%e158656158715%_))))
                          (if (let ()
                                (declare (not safe))
                                (gx#identifier? _%hd158657158718%_))
                              (if (let ()
                                    (declare (not safe))
                                    (gx#stx-eq? '%#ref _%hd158657158718%_))
                                  (if (let ()
                                        (declare (not safe))
                                        (gx#stx-pair? _%tl158658158720%_))
                                      (let ((_%e158659158723%_
                                             (let ()
                                               (declare (not safe))
                                               (gx#stx-e _%tl158658158720%_))))
                                        (let ((_%tl158661158728%_
                                               (let ()
                                                 (declare (not safe))
                                                 (##cdr _%e158659158723%_)))
                                              (_%hd158660158726%_
                                               (let ()
                                                 (declare (not safe))
                                                 (##car _%e158659158723%_))))
                                          (if (let ()
                                                (declare (not safe))
                                                (gx#stx-null?
                                                 _%tl158661158728%_))
                                              (if (let ()
                                                    (declare (not safe))
                                                    (gx#stx-pair?
                                                     _%tl158655158712%_))
                                                  (let ((_%e158662158731%_
                                                         (let ()
                                                           (declare (not safe))
                                                           (gx#stx-e
                                                            _%tl158655158712%_))))
                                                    (let ((_%tl158664158736%_
                                                           (let ()
                                                             (declare
                                                               (not safe))
                                                             (##cdr _%e158662158731%_)))
                                                          (_%hd158663158734%_
                                                           (let ()
                                                             (declare
                                                               (not safe))
                                                             (##car _%e158662158731%_))))
                                                      (if (let ()
                                                            (declare
                                                              (not safe))
                                                            (gx#stx-pair?
                                                             _%hd158663158734%_))
                                                          (let ((_%e158665158739%_
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                         (let ()
                           (declare (not safe))
                           (gx#stx-e _%hd158663158734%_))))
                    (let ((_%tl158667158744%_
                           (let ()
                             (declare (not safe))
                             (##cdr _%e158665158739%_)))
                          (_%hd158666158742%_
                           (let ()
                             (declare (not safe))
                             (##car _%e158665158739%_))))
                      (if (let ()
                            (declare (not safe))
                            (gx#identifier? _%hd158666158742%_))
                          (if (let ()
                                (declare (not safe))
                                (gx#stx-eq? '%#ref _%hd158666158742%_))
                              (if (let ()
                                    (declare (not safe))
                                    (gx#stx-pair? _%tl158667158744%_))
                                  (let ((_%e158668158747%_
                                         (let ()
                                           (declare (not safe))
                                           (gx#stx-e _%tl158667158744%_))))
                                    (let ((_%tl158670158752%_
                                           (let ()
                                             (declare (not safe))
                                             (##cdr _%e158668158747%_)))
                                          (_%hd158669158750%_
                                           (let ()
                                             (declare (not safe))
                                             (##car _%e158668158747%_))))
                                      (if (let ()
                                            (declare (not safe))
                                            (gx#stx-null? _%tl158670158752%_))
                                          (if (let ()
                                                (declare (not safe))
                                                (gx#stx-pair?
                                                 _%tl158664158736%_))
                                              (let ((_%e158671158755%_
                                                     (let ()
                                                       (declare (not safe))
                                                       (gx#stx-e
                                                        _%tl158664158736%_))))
                                                (let ((_%tl158673158760%_
                                                       (let ()
                                                         (declare (not safe))
                                                         (##cdr _%e158671158755%_)))
                                                      (_%hd158672158758%_
                                                       (let ()
                                                         (declare (not safe))
                                                         (##car _%e158671158755%_))))
                                                  (if (let ()
                                                        (declare (not safe))
                                                        (gx#stx-null?
                                                         _%tl158673158760%_))
                                                      (if (let ()
                                                            (declare
                                                              (not safe))
                                                            (gx#stx-null?
                                                             _%tl158649158696%_))
                                                          (_%__kont169576169577%_
                                                           _%hd158669158750%_
                                                           _%hd158660158726%_
                                                           _%hd158560158939%_)
                                                          (let ()
                                                            (declare
                                                              (not safe))
                                                            (_%g158554158678%_)))
                                                      (let ()
                                                        (declare (not safe))
                                                        (_%g158554158678%_)))))
                                              (let ()
                                                (declare (not safe))
                                                (_%g158554158678%_)))
                                          (let ()
                                            (declare (not safe))
                                            (_%g158554158678%_)))))
                                  (let ()
                                    (declare (not safe))
                                    (_%g158554158678%_)))
                              (let ()
                                (declare (not safe))
                                (_%g158554158678%_)))
                          (let () (declare (not safe)) (_%g158554158678%_)))))
                  (let () (declare (not safe)) (_%g158554158678%_)))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                                  (let ()
                                                    (declare (not safe))
                                                    (_%g158554158678%_)))
                                              (let ()
                                                (declare (not safe))
                                                (_%g158554158678%_)))))
                                      (let ()
                                        (declare (not safe))
                                        (_%g158554158678%_)))
                                  (let ()
                                    (declare (not safe))
                                    (_%g158554158678%_)))
                              (let ()
                                (declare (not safe))
                                (_%g158554158678%_)))))
                      (let () (declare (not safe)) (_%g158554158678%_)))))
              (let () (declare (not safe)) (_%g158554158678%_)))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                                  (let ()
                                                    (declare (not safe))
                                                    (_%g158554158678%_)))
                                              (let ()
                                                (declare (not safe))
                                                (_%g158554158678%_)))))
                                      (let ()
                                        (declare (not safe))
                                        (_%g158554158678%_)))))
                              (let ()
                                (declare (not safe))
                                (_%g158554158678%_))))))
                  (let () (declare (not safe)) (_%g158554158678%_))))))))
    (define gxc#lambda-form-arity
      (lambda (_%form158354%_)
        (let* ((_%g158356158370%_
                (lambda (_%g158357158367%_)
                  (let ()
                    (declare (not safe))
                    (gx#raise-syntax-error
                     '#f
                     '"Bad syntax; invalid match target"
                     _%g158357158367%_))))
               (_%g158355158547%_
                (lambda (_%g158357158373%_)
                  (if (let ()
                        (declare (not safe))
                        (gx#stx-pair? _%g158357158373%_))
                      (let ((_%e158360158375%_
                             (let ()
                               (declare (not safe))
                               (gx#stx-e _%g158357158373%_))))
                        (let ((_%hd158361158378%_
                               (let ()
                                 (declare (not safe))
                                 (##car _%e158360158375%_)))
                              (_%tl158362158380%_
                               (let ()
                                 (declare (not safe))
                                 (##cdr _%e158360158375%_))))
                          (if (let ()
                                (declare (not safe))
                                (gx#stx-pair? _%tl158362158380%_))
                              (let ((_%e158363158383%_
                                     (let ()
                                       (declare (not safe))
                                       (gx#stx-e _%tl158362158380%_))))
                                (let ((_%hd158364158386%_
                                       (let ()
                                         (declare (not safe))
                                         (##car _%e158363158383%_)))
                                      (_%tl158365158388%_
                                       (let ()
                                         (declare (not safe))
                                         (##cdr _%e158363158383%_))))
                                  (if (let ()
                                        (declare (not safe))
                                        (gx#stx-null? _%tl158365158388%_))
                                      ((lambda (_%L158391%_ _%L158392%_)
                                         (let* ((_%__stx169686169687%_
                                                 _%L158392%_)
                                                (_%g158407158435%_
                                                 (lambda ()
                                                   (let ()
                                                     (declare (not safe))
                                                     (gx#raise-syntax-error
                                                      '#f
                                                      '"Bad syntax; invalid match target"
                                                      _%__stx169686169687%_)))))
                                           (let ((_%__kont169688169689%_
                                                  (lambda (_%L158526%_)
                                                    (length (let ((__tmp171077
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                           (lambda (_%g158536158539%_ _%g158537158541%_)
                             (cons _%g158536158539%_ _%g158537158541%_))))
                      (declare (not safe))
                      (__foldr1 __tmp171077 '() _%L158526%_)))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                                 (_%__kont169692169693%_
                                                  (lambda (_%L158477%_
                                                           _%L158478%_)
                                                    (cons (length (let ((__tmp171078
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                                 (lambda (_%g158489158492%_ _%g158490158494%_)
                                   (cons _%g158489158492%_
                                         _%g158490158494%_))))
                            (declare (not safe))
                            (__foldr1 __tmp171078 '() _%L158478%_)))
                  '())))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                                 (_%__kont169696169697%_
                                                  (lambda (_%L158440%_)
                                                    (cons '0 '()))))
                                             (let* ((_%__match169711169712%_
                                                     (lambda (_%__splice169694169695%_
                                                              _%target158421158453%_
                                                              _%tl158423158455%_)
                                                       (letrec ((_%loop158424158458%_
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                         (lambda (_%hd158422158461%_ _%arg158428158463%_)
                           (if (let ()
                                 (declare (not safe))
                                 (gx#stx-pair? _%hd158422158461%_))
                               (let ((_%e158425158466%_
                                      (let ()
                                        (declare (not safe))
                                        (gx#stx-e _%hd158422158461%_))))
                                 (let ((_%lp-tl158427158471%_
                                        (let ()
                                          (declare (not safe))
                                          (##cdr _%e158425158466%_)))
                                       (_%lp-hd158426158469%_
                                        (let ()
                                          (declare (not safe))
                                          (##car _%e158425158466%_))))
                                   (_%loop158424158458%_
                                    _%lp-tl158427158471%_
                                    (cons _%lp-hd158426158469%_
                                          _%arg158428158463%_))))
                               (let ((_%arg158429158474%_
                                      (reverse _%arg158428158463%_)))
                                 (_%__kont169692169693%_
                                  _%tl158423158455%_
                                  _%arg158429158474%_))))))
                 (_%loop158424158458%_ _%target158421158453%_ '()))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                                    (_%__match169705169706%_
                                                     (lambda (_%__splice169690169691%_
                                                              _%target158410158502%_
                                                              _%tl158412158504%_)
                                                       (letrec ((_%loop158413158507%_
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                         (lambda (_%hd158411158510%_ _%arg158417158512%_)
                           (if (let ()
                                 (declare (not safe))
                                 (gx#stx-pair? _%hd158411158510%_))
                               (let ((_%e158414158515%_
                                      (let ()
                                        (declare (not safe))
                                        (gx#stx-e _%hd158411158510%_))))
                                 (let ((_%lp-tl158416158520%_
                                        (let ()
                                          (declare (not safe))
                                          (##cdr _%e158414158515%_)))
                                       (_%lp-hd158415158518%_
                                        (let ()
                                          (declare (not safe))
                                          (##car _%e158414158515%_))))
                                   (_%loop158413158507%_
                                    _%lp-tl158416158520%_
                                    (cons _%lp-hd158415158518%_
                                          _%arg158417158512%_))))
                               (let ((_%arg158418158523%_
                                      (reverse _%arg158417158512%_)))
                                 (_%__kont169688169689%_
                                  _%arg158418158523%_))))))
                 (_%loop158413158507%_ _%target158410158502%_ '())))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                               (if (let ()
                                                     (declare (not safe))
                                                     (gx#stx-pair/null?
                                                      _%__stx169686169687%_))
                                                   (let ((_%__splice169690169691%_
                                                          (let ()
                                                            (declare
                                                              (not safe))
                                                            (gx#syntax-split-splice
                                                             _%__stx169686169687%_
                                                             '0))))
                                                     (let ((_%tl158412158504%_
                                                            (let ()
                                                              (declare
                                                                (not safe))
                                                              (##vector-ref
                                                               _%__splice169690169691%_
                                                               '1)))
                                                           (_%target158410158502%_
                                                            (let ()
                                                              (declare
                                                                (not safe))
                                                              (##vector-ref
                                                               _%__splice169690169691%_
                                                               '0))))
                                                       (if (let ()
                                                             (declare
                                                               (not safe))
                                                             (gx#stx-null?
                                                              _%tl158412158504%_))
                                                           (_%__match169705169706%_
                                                            _%__splice169690169691%_
                                                            _%target158410158502%_
                                                            _%tl158412158504%_)
                                                           (_%__match169711169712%_
                                                            _%__splice169690169691%_
                                                            _%target158410158502%_
                                                            _%tl158412158504%_))))
                                                   (_%__kont169696169697%_
                                                    _%__stx169686169687%_))))))
                                       _%hd158364158386%_
                                       _%hd158361158378%_)
                                      (_%g158356158370%_ _%g158357158373%_))))
                              (_%g158356158370%_ _%g158357158373%_))))
                      (_%g158356158370%_ _%g158357158373%_)))))
          (_%g158355158547%_ _%form158354%_))))
    (define gxc#lambda-form-infer-signature
      (lambda (_%form158280%_)
        (letrec ((_%default-signature158282%_
                  (lambda ()
                    (let ((__obj170845
                           (let ()
                             (declare (not safe))
                             (##structure
                              gxc#!signature::t
                              '#f
                              '#f
                              '#f
                              '#f
                              '#f))))
                      (let ()
                        (declare (not safe))
                        (##unchecked-structure-set!
                         __obj170845
                         't::t
                         '1
                         '#f
                         '#f))
                      (let ((__tmp171079
                             (##structure-ref
                              (let ()
                                (declare (not safe))
                                (gx#current-expander-context))
                              '1
                              gx#expander-context::t
                              '#f)))
                        (declare (not safe))
                        (##unchecked-structure-set!
                         __obj170845
                         __tmp171079
                         '5
                         '#f
                         '#f))
                      __obj170845))))
          (let* ((_%g158284158298%_
                  (lambda (_%g158285158295%_)
                    (let ()
                      (declare (not safe))
                      (gx#raise-syntax-error
                       '#f
                       '"Bad syntax; invalid match target"
                       _%g158285158295%_))))
                 (_%g158283158350%_
                  (lambda (_%g158285158301%_)
                    (if (let ()
                          (declare (not safe))
                          (gx#stx-pair? _%g158285158301%_))
                        (let ((_%e158288158303%_
                               (let ()
                                 (declare (not safe))
                                 (gx#stx-e _%g158285158301%_))))
                          (let ((_%hd158289158306%_
                                 (let ()
                                   (declare (not safe))
                                   (##car _%e158288158303%_)))
                                (_%tl158290158308%_
                                 (let ()
                                   (declare (not safe))
                                   (##cdr _%e158288158303%_))))
                            (if (let ()
                                  (declare (not safe))
                                  (gx#stx-pair? _%tl158290158308%_))
                                (let ((_%e158291158311%_
                                       (let ()
                                         (declare (not safe))
                                         (gx#stx-e _%tl158290158308%_))))
                                  (let ((_%hd158292158314%_
                                         (let ()
                                           (declare (not safe))
                                           (##car _%e158291158311%_)))
                                        (_%tl158293158316%_
                                         (let ()
                                           (declare (not safe))
                                           (##cdr _%e158291158311%_))))
                                    (if (let ()
                                          (declare (not safe))
                                          (gx#stx-null? _%tl158293158316%_))
                                        ((lambda (_%L158319%_ _%L158320%_)
                                           (let ((_%$e158334%_
                                                  (gxc#apply-extract-lambda-signature
                                                   _%L158319%_)))
                                             (if _%$e158334%_
                                                 _%$e158334%_
                                                 (let ((_%$e158337%_
                                                        (gxc#apply-basic-expression-type
                                                         _%L158319%_)))
                                                   (if _%$e158337%_
                                                       ((lambda (_%return-type158340%_)
                                                          (if (let ()
                                                                (declare
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                          (not safe))
                        (##structure-instance-of?
                         _%return-type158340%_
                         'gxc#!procedure::t))
                      (let ((__obj170847
                             (let ()
                               (declare (not safe))
                               (##structure
                                gxc#!signature::t
                                '#f
                                '#f
                                '#f
                                '#f
                                '#f))))
                        (let ()
                          (declare (not safe))
                          (##unchecked-structure-set!
                           __obj170847
                           'procedure::t
                           '1
                           '#f
                           '#f))
                        (let ((__tmp171080
                               (##structure-ref
                                (let ()
                                  (declare (not safe))
                                  (gx#current-expander-context))
                                '1
                                gx#expander-context::t
                                '#f)))
                          (declare (not safe))
                          (##unchecked-structure-set!
                           __obj170847
                           __tmp171080
                           '5
                           '#f
                           '#f))
                        __obj170847)
                      (let ((_%$e158343%_
                             (let ()
                               (declare (not safe))
                               (gxc#optimizer-lookup-class-name
                                _%return-type158340%_))))
                        (if _%$e158343%_
                            ((lambda (_%return-type-name158346%_)
                               (let ((__obj170846
                                      (let ()
                                        (declare (not safe))
                                        (##structure
                                         gxc#!signature::t
                                         '#f
                                         '#f
                                         '#f
                                         '#f
                                         '#f))))
                                 (let ()
                                   (declare (not safe))
                                   (##unchecked-structure-set!
                                    __obj170846
                                    _%return-type-name158346%_
                                    '1
                                    '#f
                                    '#f))
                                 (let ((__tmp171081
                                        (##structure-ref
                                         (let ()
                                           (declare (not safe))
                                           (gx#current-expander-context))
                                         '1
                                         gx#expander-context::t
                                         '#f)))
                                   (declare (not safe))
                                   (##unchecked-structure-set!
                                    __obj170846
                                    __tmp171081
                                    '5
                                    '#f
                                    '#f))
                                 __obj170846))
                             _%$e158343%_)
                            (_%default-signature158282%_)))))
                _%$e158337%_)
               (_%default-signature158282%_))))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                         _%hd158292158314%_
                                         _%hd158289158306%_)
                                        (_%g158284158298%_
                                         _%g158285158301%_))))
                                (_%g158284158298%_ _%g158285158301%_))))
                        (_%g158284158298%_ _%g158285158301%_)))))
            (_%g158283158350%_ _%form158280%_)))))
    (define gxc#extract-lambda-signature-begin-annotation%
      (lambda (_%self158019%_ _%stx158020%_)
        (let* ((_%__stx169727169728%_ _%stx158020%_)
               (_%g158023158063%_
                (lambda ()
                  (let ()
                    (declare (not safe))
                    (gx#raise-syntax-error
                     '#f
                     '"Bad syntax; invalid match target"
                     _%__stx169727169728%_)))))
          (let ((_%__kont169729169730%_
                 (lambda (_%L158169%_ _%L158170%_)
                   (let _%loop158190%_ ((_%rest158192%_
                                         (let ((__tmp171086
                                                (lambda (_%g158269158272%_
                                                         _%g158270158274%_)
                                                  (cons _%g158269158272%_
                                                        _%g158270158274%_))))
                                           (declare (not safe))
                                           (__foldr1
                                            __tmp171086
                                            '()
                                            _%L158170%_)))
                                        (_%result158193%_ '()))
                     (let* ((_%rest158194158207%_ _%rest158192%_)
                            (_%E158198158211%_
                             (lambda ()
                               (let ()
                                 (declare (not safe))
                                 (error '"No clause matching"
                                        _%rest158194158207%_
                                        '([(? stx-keyword? key) arg . rest])
                                        '([])
                                        '(_)))
                               '#!void)))
                       (let ((_%K158201158251%_
                              (lambda (_%rest158237%_
                                       _%arg158238%_
                                       _%key158239%_)
                                (let ((_%$e158241%_
                                       (let ()
                                         (declare (not safe))
                                         (gx#stx-e _%key158239%_))))
                                  (if (eq? 'return: _%$e158241%_)
                                      (_%loop158190%_
                                       _%rest158237%_
                                       (cons 'return:
                                             (cons (let ()
                                                     (declare (not safe))
                                                     (gxc#identifier-symbol
                                                      _%arg158238%_))
                                                   _%result158193%_)))
                                      (if (eq? 'effect: _%$e158241%_)
                                          (_%loop158190%_
                                           _%rest158237%_
                                           (cons 'effect:
                                                 (cons (if _%arg158238%_
                                                           (map gx#stx-e
                                                                _%arg158238%_)
                                                           '#f)
                                                       _%result158193%_)))
                                          (if (eq? 'arguments: _%$e158241%_)
                                              (_%loop158190%_
                                               _%rest158237%_
                                               (cons 'arguments:
                                                     (cons (let ()
                                                             (declare
                                                               (not safe))
                                                             (gxc#map*
                                                              gxc#identifier-symbol
                                                              _%arg158238%_))
                                                           _%result158193%_)))
                                              (if (eq? 'unchecked:
                                                       _%$e158241%_)
                                                  (_%loop158190%_
                                                   _%rest158237%_
                                                   (cons 'unchecked:
                                                         (cons (let ()
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                         (declare (not safe))
                         (gxc#identifier-symbol _%arg158238%_))
                       _%result158193%_)))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                                  (let ((__tmp171082
                                                         (let ((__tmp171083
                                                                (lambda (_%g158243158246%_
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                                 _%g158244158248%_)
                          (cons _%g158243158246%_ _%g158244158248%_))))
                   (declare (not safe))
                   (__foldr1 __tmp171083 '() _%L158170%_))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                                    (declare (not safe))
                                                    (gxc#raise-compile-error
                                                     '"bad lambda signature"
                                                     _%stx158020%_
                                                     __tmp171082
                                                     _%key158239%_)))))))))
                             (_%K158200158231%_
                              (lambda ()
                                (apply gxc#make-!signature
                                       'origin:
                                       (##structure-ref
                                        (let ()
                                          (declare (not safe))
                                          (gx#current-expander-context))
                                        '1
                                        gx#expander-context::t
                                        '#f)
                                       _%result158193%_)))
                             (_%K158199158223%_
                              (lambda ()
                                (let ((__tmp171084
                                       (let ((__tmp171085
                                              (lambda (_%g158215158218%_
                                                       _%g158216158220%_)
                                                (cons _%g158215158218%_
                                                      _%g158216158220%_))))
                                         (declare (not safe))
                                         (__foldr1
                                          __tmp171085
                                          '()
                                          _%L158170%_))))
                                  (declare (not safe))
                                  (gxc#raise-compile-error
                                   '"bad lambda signature"
                                   _%stx158020%_
                                   __tmp171084)))))
                         (let ((_%try-match158196158234%_
                                (lambda ()
                                  (if (null? _%rest158194158207%_)
                                      (_%K158200158231%_)
                                      (_%K158199158223%_)))))
                           (if (pair? _%rest158194158207%_)
                               (let ((_%tl158203158256%_
                                      (let ()
                                        (declare (not safe))
                                        (##cdr _%rest158194158207%_)))
                                     (_%hd158202158254%_
                                      (let ()
                                        (declare (not safe))
                                        (##car _%rest158194158207%_))))
                                 (if (let ()
                                       (declare (not safe))
                                       (gx#stx-keyword? _%hd158202158254%_))
                                     (if (pair? _%tl158203158256%_)
                                         (let ((_%tl158205158263%_
                                                (let ()
                                                  (declare (not safe))
                                                  (##cdr _%tl158203158256%_)))
                                               (_%hd158204158261%_
                                                (let ()
                                                  (declare (not safe))
                                                  (##car _%tl158203158256%_))))
                                           (let ((_%key158259%_
                                                  _%hd158202158254%_)
                                                 (_%arg158266%_
                                                  _%hd158204158261%_)
                                                 (_%rest158268%_
                                                  _%tl158205158263%_))
                                             (_%K158201158251%_
                                              _%rest158268%_
                                              _%arg158266%_
                                              _%key158259%_)))
                                         (_%K158199158223%_))
                                     (_%K158199158223%_)))
                               (_%try-match158196158234%_))))))))
                (_%__kont169733169734%_
                 (lambda (_%L158092%_ _%L158093%_)
                   (let ()
                     (declare (not safe))
                     (gxc#compile-e__1 _%self158019%_ _%L158092%_)))))
            (let ((_%__match169764169765%_
                   (lambda (_%e158027158113%_
                            _%hd158028158116%_
                            _%tl158029158118%_
                            _%e158030158121%_
                            _%hd158031158124%_
                            _%tl158032158126%_
                            _%e158033158129%_
                            _%hd158034158132%_
                            _%tl158035158134%_
                            _%__splice169731169732%_
                            _%target158036158137%_
                            _%tl158038158139%_)
                     (letrec ((_%loop158039158142%_
                               (lambda (_%hd158037158145%_
                                        _%signature158043158147%_)
                                 (if (let ()
                                       (declare (not safe))
                                       (gx#stx-pair? _%hd158037158145%_))
                                     (let ((_%e158040158150%_
                                            (let ()
                                              (declare (not safe))
                                              (gx#stx-e _%hd158037158145%_))))
                                       (let ((_%lp-tl158042158155%_
                                              (let ()
                                                (declare (not safe))
                                                (##cdr _%e158040158150%_)))
                                             (_%lp-hd158041158153%_
                                              (let ()
                                                (declare (not safe))
                                                (##car _%e158040158150%_))))
                                         (_%loop158039158142%_
                                          _%lp-tl158042158155%_
                                          (cons _%lp-hd158041158153%_
                                                _%signature158043158147%_))))
                                     (let ((_%signature158044158158%_
                                            (reverse _%signature158043158147%_)))
                                       (if (let ()
                                             (declare (not safe))
                                             (gx#stx-pair? _%tl158032158126%_))
                                           (let ((_%e158045158161%_
                                                  (let ()
                                                    (declare (not safe))
                                                    (gx#stx-e
                                                     _%tl158032158126%_))))
                                             (let ((_%tl158047158166%_
                                                    (let ()
                                                      (declare (not safe))
                                                      (##cdr _%e158045158161%_)))
                                                   (_%hd158046158164%_
                                                    (let ()
                                                      (declare (not safe))
                                                      (##car _%e158045158161%_))))
                                               (if (let ()
                                                     (declare (not safe))
                                                     (gx#stx-null?
                                                      _%tl158047158166%_))
                                                   (_%__kont169729169730%_
                                                    _%hd158046158164%_
                                                    _%signature158044158158%_)
                                                   (let ()
                                                     (declare (not safe))
                                                     (_%g158023158063%_)))))
                                           (let ()
                                             (declare (not safe))
                                             (_%g158023158063%_))))))))
                       (_%loop158039158142%_ _%target158036158137%_ '())))))
              (if (let ()
                    (declare (not safe))
                    (gx#stx-pair? _%__stx169727169728%_))
                  (let ((_%e158027158113%_
                         (let ()
                           (declare (not safe))
                           (gx#stx-e _%__stx169727169728%_))))
                    (let ((_%tl158029158118%_
                           (let ()
                             (declare (not safe))
                             (##cdr _%e158027158113%_)))
                          (_%hd158028158116%_
                           (let ()
                             (declare (not safe))
                             (##car _%e158027158113%_))))
                      (if (let ()
                            (declare (not safe))
                            (gx#stx-pair? _%tl158029158118%_))
                          (let ((_%e158030158121%_
                                 (let ()
                                   (declare (not safe))
                                   (gx#stx-e _%tl158029158118%_))))
                            (let ((_%tl158032158126%_
                                   (let ()
                                     (declare (not safe))
                                     (##cdr _%e158030158121%_)))
                                  (_%hd158031158124%_
                                   (let ()
                                     (declare (not safe))
                                     (##car _%e158030158121%_))))
                              (if (let ()
                                    (declare (not safe))
                                    (gx#stx-pair? _%hd158031158124%_))
                                  (let ((_%e158033158129%_
                                         (let ()
                                           (declare (not safe))
                                           (gx#stx-e _%hd158031158124%_))))
                                    (let ((_%tl158035158134%_
                                           (let ()
                                             (declare (not safe))
                                             (##cdr _%e158033158129%_)))
                                          (_%hd158034158132%_
                                           (let ()
                                             (declare (not safe))
                                             (##car _%e158033158129%_))))
                                      (if (let ()
                                            (declare (not safe))
                                            (gx#identifier?
                                             _%hd158034158132%_))
                                          (if (let ()
                                                (declare (not safe))
                                                (gx#stx-eq?
                                                 '@type.signature
                                                 _%hd158034158132%_))
                                              (if (let ()
                                                    (declare (not safe))
                                                    (gx#stx-pair/null?
                                                     _%tl158035158134%_))
                                                  (let ((_%__splice169731169732%_
                                                         (let ()
                                                           (declare (not safe))
                                                           (gx#syntax-split-splice
                                                            _%tl158035158134%_
                                                            '0))))
                                                    (let ((_%tl158038158139%_
                                                           (let ()
                                                             (declare
                                                               (not safe))
                                                             (##vector-ref
                                                              _%__splice169731169732%_
                                                              '1)))
                                                          (_%target158036158137%_
                                                           (let ()
                                                             (declare
                                                               (not safe))
                                                             (##vector-ref
                                                              _%__splice169731169732%_
                                                              '0))))
                                                      (if (let ()
                                                            (declare
                                                              (not safe))
                                                            (gx#stx-null?
                                                             _%tl158038158139%_))
                                                          (_%__match169764169765%_
                                                           _%e158027158113%_
                                                           _%hd158028158116%_
                                                           _%tl158029158118%_
                                                           _%e158030158121%_
                                                           _%hd158031158124%_
                                                           _%tl158032158126%_
                                                           _%e158033158129%_
                                                           _%hd158034158132%_
                                                           _%tl158035158134%_
                                                           _%__splice169731169732%_
                                                           _%target158036158137%_
                                                           _%tl158038158139%_)
                                                          (if (let ()
                                                                (declare
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                          (not safe))
                        (gx#stx-pair? _%tl158032158126%_))
                      (let ((_%e158056158084%_
                             (let ()
                               (declare (not safe))
                               (gx#stx-e _%tl158032158126%_))))
                        (let ((_%tl158058158089%_
                               (let ()
                                 (declare (not safe))
                                 (##cdr _%e158056158084%_)))
                              (_%hd158057158087%_
                               (let ()
                                 (declare (not safe))
                                 (##car _%e158056158084%_))))
                          (if (let ()
                                (declare (not safe))
                                (gx#stx-null? _%tl158058158089%_))
                              (_%__kont169733169734%_
                               _%hd158057158087%_
                               _%hd158031158124%_)
                              (let ()
                                (declare (not safe))
                                (_%g158023158063%_)))))
                      (let () (declare (not safe)) (_%g158023158063%_))))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                                  (if (let ()
                                                        (declare (not safe))
                                                        (gx#stx-pair?
                                                         _%tl158032158126%_))
                                                      (let ((_%e158056158084%_
                                                             (let ()
                                                               (declare
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                         (not safe))
                       (gx#stx-e _%tl158032158126%_))))
                (let ((_%tl158058158089%_
                       (let () (declare (not safe)) (##cdr _%e158056158084%_)))
                      (_%hd158057158087%_
                       (let ()
                         (declare (not safe))
                         (##car _%e158056158084%_))))
                  (if (let ()
                        (declare (not safe))
                        (gx#stx-null? _%tl158058158089%_))
                      (_%__kont169733169734%_
                       _%hd158057158087%_
                       _%hd158031158124%_)
                      (let () (declare (not safe)) (_%g158023158063%_)))))
              (let () (declare (not safe)) (_%g158023158063%_))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                              (if (let ()
                                                    (declare (not safe))
                                                    (gx#stx-pair?
                                                     _%tl158032158126%_))
                                                  (let ((_%e158056158084%_
                                                         (let ()
                                                           (declare (not safe))
                                                           (gx#stx-e
                                                            _%tl158032158126%_))))
                                                    (let ((_%tl158058158089%_
                                                           (let ()
                                                             (declare
                                                               (not safe))
                                                             (##cdr _%e158056158084%_)))
                                                          (_%hd158057158087%_
                                                           (let ()
                                                             (declare
                                                               (not safe))
                                                             (##car _%e158056158084%_))))
                                                      (if (let ()
                                                            (declare
                                                              (not safe))
                                                            (gx#stx-null?
                                                             _%tl158058158089%_))
                                                          (_%__kont169733169734%_
                                                           _%hd158057158087%_
                                                           _%hd158031158124%_)
                                                          (let ()
                                                            (declare
                                                              (not safe))
                                                            (_%g158023158063%_)))))
                                                  (let ()
                                                    (declare (not safe))
                                                    (_%g158023158063%_))))
                                          (if (let ()
                                                (declare (not safe))
                                                (gx#stx-pair?
                                                 _%tl158032158126%_))
                                              (let ((_%e158056158084%_
                                                     (let ()
                                                       (declare (not safe))
                                                       (gx#stx-e
                                                        _%tl158032158126%_))))
                                                (let ((_%tl158058158089%_
                                                       (let ()
                                                         (declare (not safe))
                                                         (##cdr _%e158056158084%_)))
                                                      (_%hd158057158087%_
                                                       (let ()
                                                         (declare (not safe))
                                                         (##car _%e158056158084%_))))
                                                  (if (let ()
                                                        (declare (not safe))
                                                        (gx#stx-null?
                                                         _%tl158058158089%_))
                                                      (_%__kont169733169734%_
                                                       _%hd158057158087%_
                                                       _%hd158031158124%_)
                                                      (let ()
                                                        (declare (not safe))
                                                        (_%g158023158063%_)))))
                                              (let ()
                                                (declare (not safe))
                                                (_%g158023158063%_))))))
                                  (if (let ()
                                        (declare (not safe))
                                        (gx#stx-pair? _%tl158032158126%_))
                                      (let ((_%e158056158084%_
                                             (let ()
                                               (declare (not safe))
                                               (gx#stx-e _%tl158032158126%_))))
                                        (let ((_%tl158058158089%_
                                               (let ()
                                                 (declare (not safe))
                                                 (##cdr _%e158056158084%_)))
                                              (_%hd158057158087%_
                                               (let ()
                                                 (declare (not safe))
                                                 (##car _%e158056158084%_))))
                                          (if (let ()
                                                (declare (not safe))
                                                (gx#stx-null?
                                                 _%tl158058158089%_))
                                              (_%__kont169733169734%_
                                               _%hd158057158087%_
                                               _%hd158031158124%_)
                                              (let ()
                                                (declare (not safe))
                                                (_%g158023158063%_)))))
                                      (let ()
                                        (declare (not safe))
                                        (_%g158023158063%_))))))
                          (let () (declare (not safe)) (_%g158023158063%_)))))
                  (let () (declare (not safe)) (_%g158023158063%_))))))))
    (define gxc#lambda-expr?
      (lambda (_%expr157972%_)
        (let* ((_%__stx169787169788%_ _%expr157972%_)
               (_%g157975157985%_
                (lambda ()
                  (let ()
                    (declare (not safe))
                    (gx#raise-syntax-error
                     '#f
                     '"Bad syntax; invalid match target"
                     _%__stx169787169788%_)))))
          (let ((_%__kont169789169790%_ (lambda (_%L158005%_) '#t))
                (_%__kont169791169792%_ (lambda () '#f)))
            (if (let ()
                  (declare (not safe))
                  (gx#stx-pair? _%__stx169787169788%_))
                (let ((_%e157978157997%_
                       (let ()
                         (declare (not safe))
                         (gx#stx-e _%__stx169787169788%_))))
                  (let ((_%tl157980158002%_
                         (let ()
                           (declare (not safe))
                           (##cdr _%e157978157997%_)))
                        (_%hd157979158000%_
                         (let ()
                           (declare (not safe))
                           (##car _%e157978157997%_))))
                    (if (let ()
                          (declare (not safe))
                          (gx#identifier? _%hd157979158000%_))
                        (if (let ()
                              (declare (not safe))
                              (gx#stx-eq? '%#lambda _%hd157979158000%_))
                            (_%__kont169789169790%_ _%tl157980158002%_)
                            (_%__kont169791169792%_))
                        (_%__kont169791169792%_))))
                (_%__kont169791169792%_))))))
    (define gxc#case-lambda-expr?
      (lambda (_%expr157925%_)
        (let* ((_%__stx169805169806%_ _%expr157925%_)
               (_%g157928157938%_
                (lambda ()
                  (let ()
                    (declare (not safe))
                    (gx#raise-syntax-error
                     '#f
                     '"Bad syntax; invalid match target"
                     _%__stx169805169806%_)))))
          (let ((_%__kont169807169808%_ (lambda (_%L157958%_) '#t))
                (_%__kont169809169810%_ (lambda () '#f)))
            (if (let ()
                  (declare (not safe))
                  (gx#stx-pair? _%__stx169805169806%_))
                (let ((_%e157931157950%_
                       (let ()
                         (declare (not safe))
                         (gx#stx-e _%__stx169805169806%_))))
                  (let ((_%tl157933157955%_
                         (let ()
                           (declare (not safe))
                           (##cdr _%e157931157950%_)))
                        (_%hd157932157953%_
                         (let ()
                           (declare (not safe))
                           (##car _%e157931157950%_))))
                    (if (let ()
                          (declare (not safe))
                          (gx#identifier? _%hd157932157953%_))
                        (if (let ()
                              (declare (not safe))
                              (gx#stx-eq? '%#case-lambda _%hd157932157953%_))
                            (_%__kont169807169808%_ _%tl157933157955%_)
                            (_%__kont169809169810%_))
                        (_%__kont169809169810%_))))
                (_%__kont169809169810%_))))))
    (define gxc#opt-lambda-expr?
      (lambda (_%expr157794%_)
        (let* ((_%__stx169823169824%_ _%expr157794%_)
               (_%g157797157827%_
                (lambda ()
                  (let ()
                    (declare (not safe))
                    (gx#raise-syntax-error
                     '#f
                     '"Bad syntax; invalid match target"
                     _%__stx169823169824%_)))))
          (let ((_%__kont169825169826%_
                 (lambda (_%L157895%_ _%L157896%_ _%L157897%_)
                   (if (let ()
                         (declare (not safe))
                         (gx#identifier? _%L157897%_))
                       (if (gxc#lambda-expr? _%L157896%_)
                           (gxc#case-lambda-expr? _%L157895%_)
                           '#f)
                       '#f)))
                (_%__kont169827169828%_ (lambda () '#f)))
            (if (let ()
                  (declare (not safe))
                  (gx#stx-pair? _%__stx169823169824%_))
                (let ((_%e157802157839%_
                       (let ()
                         (declare (not safe))
                         (gx#stx-e _%__stx169823169824%_))))
                  (let ((_%tl157804157844%_
                         (let ()
                           (declare (not safe))
                           (##cdr _%e157802157839%_)))
                        (_%hd157803157842%_
                         (let ()
                           (declare (not safe))
                           (##car _%e157802157839%_))))
                    (if (let ()
                          (declare (not safe))
                          (gx#identifier? _%hd157803157842%_))
                        (if (let ()
                              (declare (not safe))
                              (gx#stx-eq? '%#let-values _%hd157803157842%_))
                            (if (let ()
                                  (declare (not safe))
                                  (gx#stx-pair? _%tl157804157844%_))
                                (let ((_%e157805157847%_
                                       (let ()
                                         (declare (not safe))
                                         (gx#stx-e _%tl157804157844%_))))
                                  (let ((_%tl157807157852%_
                                         (let ()
                                           (declare (not safe))
                                           (##cdr _%e157805157847%_)))
                                        (_%hd157806157850%_
                                         (let ()
                                           (declare (not safe))
                                           (##car _%e157805157847%_))))
                                    (if (let ()
                                          (declare (not safe))
                                          (gx#stx-pair? _%hd157806157850%_))
                                        (let ((_%e157808157855%_
                                               (let ()
                                                 (declare (not safe))
                                                 (gx#stx-e
                                                  _%hd157806157850%_))))
                                          (let ((_%tl157810157860%_
                                                 (let ()
                                                   (declare (not safe))
                                                   (##cdr _%e157808157855%_)))
                                                (_%hd157809157858%_
                                                 (let ()
                                                   (declare (not safe))
                                                   (##car _%e157808157855%_))))
                                            (if (let ()
                                                  (declare (not safe))
                                                  (gx#stx-pair?
                                                   _%hd157809157858%_))
                                                (let ((_%e157811157863%_
                                                       (let ()
                                                         (declare (not safe))
                                                         (gx#stx-e
                                                          _%hd157809157858%_))))
                                                  (let ((_%tl157813157868%_
                                                         (let ()
                                                           (declare (not safe))
                                                           (##cdr _%e157811157863%_)))
                                                        (_%hd157812157866%_
                                                         (let ()
                                                           (declare (not safe))
                                                           (##car _%e157811157863%_))))
                                                    (if (let ()
                                                          (declare (not safe))
                                                          (gx#stx-pair?
                                                           _%hd157812157866%_))
                                                        (let ((_%e157814157871%_
                                                               (let ()
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                         (declare (not safe))
                         (gx#stx-e _%hd157812157866%_))))
                  (let ((_%tl157816157876%_
                         (let ()
                           (declare (not safe))
                           (##cdr _%e157814157871%_)))
                        (_%hd157815157874%_
                         (let ()
                           (declare (not safe))
                           (##car _%e157814157871%_))))
                    (if (let ()
                          (declare (not safe))
                          (gx#stx-null? _%tl157816157876%_))
                        (if (let ()
                              (declare (not safe))
                              (gx#stx-pair? _%tl157813157868%_))
                            (let ((_%e157817157879%_
                                   (let ()
                                     (declare (not safe))
                                     (gx#stx-e _%tl157813157868%_))))
                              (let ((_%tl157819157884%_
                                     (let ()
                                       (declare (not safe))
                                       (##cdr _%e157817157879%_)))
                                    (_%hd157818157882%_
                                     (let ()
                                       (declare (not safe))
                                       (##car _%e157817157879%_))))
                                (if (let ()
                                      (declare (not safe))
                                      (gx#stx-null? _%tl157819157884%_))
                                    (if (let ()
                                          (declare (not safe))
                                          (gx#stx-null? _%tl157810157860%_))
                                        (if (let ()
                                              (declare (not safe))
                                              (gx#stx-pair?
                                               _%tl157807157852%_))
                                            (let ((_%e157820157887%_
                                                   (let ()
                                                     (declare (not safe))
                                                     (gx#stx-e
                                                      _%tl157807157852%_))))
                                              (let ((_%tl157822157892%_
                                                     (let ()
                                                       (declare (not safe))
                                                       (##cdr _%e157820157887%_)))
                                                    (_%hd157821157890%_
                                                     (let ()
                                                       (declare (not safe))
                                                       (##car _%e157820157887%_))))
                                                (if (let ()
                                                      (declare (not safe))
                                                      (gx#stx-null?
                                                       _%tl157822157892%_))
                                                    (_%__kont169825169826%_
                                                     _%hd157821157890%_
                                                     _%hd157818157882%_
                                                     _%hd157815157874%_)
                                                    (_%__kont169827169828%_))))
                                            (_%__kont169827169828%_))
                                        (_%__kont169827169828%_))
                                    (_%__kont169827169828%_))))
                            (_%__kont169827169828%_))
                        (_%__kont169827169828%_))))
                (_%__kont169827169828%_))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                                (_%__kont169827169828%_))))
                                        (_%__kont169827169828%_))))
                                (_%__kont169827169828%_))
                            (_%__kont169827169828%_))
                        (_%__kont169827169828%_))))
                (_%__kont169827169828%_))))))
    (define gxc#kw-lambda-expr?
      (lambda (_%expr157119%_)
        (let* ((_%__stx169885169886%_ _%expr157119%_)
               (_%g157122157280%_
                (lambda ()
                  (let ()
                    (declare (not safe))
                    (gx#raise-syntax-error
                     '#f
                     '"Bad syntax; invalid match target"
                     _%__stx169885169886%_)))))
          (let ((_%__kont169887169888%_
                 (lambda (_%L157668%_
                          _%L157669%_
                          _%L157670%_
                          _%L157671%_
                          _%L157672%_
                          _%L157673%_
                          _%L157674%_
                          _%L157675%_
                          _%L157676%_
                          _%L157677%_
                          _%L157678%_)
                   (if (let ()
                         (declare (not safe))
                         (gxc#runtime-identifier=? _%L157675%_ 'apply))
                       (if (let ()
                             (declare (not safe))
                             (gxc#runtime-identifier=? _%L157671%_ 'apply))
                           (if (let ()
                                 (declare (not safe))
                                 (gxc#runtime-identifier=?
                                  _%L157670%_
                                  'keyword-dispatch))
                               (if (let ()
                                     (declare (not safe))
                                     (gx#free-identifier=?
                                      _%L157678%_
                                      _%L157669%_))
                                   (if (let ()
                                         (declare (not safe))
                                         (gx#free-identifier=?
                                          _%L157677%_
                                          _%L157674%_))
                                       (if (let ()
                                             (declare (not safe))
                                             (gx#free-identifier=?
                                              _%L157672%_
                                              _%L157668%_))
                                           (let ()
                                             (declare (not safe))
                                             (gx#free-identifier=?
                                              _%L157676%_
                                              _%L157673%_))
                                           '#f)
                                       '#f)
                                   '#f)
                               '#f)
                           '#f)
                       '#f)))
                (_%__kont169889169890%_ (lambda () '#f)))
            (if (let ()
                  (declare (not safe))
                  (gx#stx-pair? _%__stx169885169886%_))
                (let ((_%e157135157292%_
                       (let ()
                         (declare (not safe))
                         (gx#stx-e _%__stx169885169886%_))))
                  (let ((_%tl157137157297%_
                         (let ()
                           (declare (not safe))
                           (##cdr _%e157135157292%_)))
                        (_%hd157136157295%_
                         (let ()
                           (declare (not safe))
                           (##car _%e157135157292%_))))
                    (if (let ()
                          (declare (not safe))
                          (gx#identifier? _%hd157136157295%_))
                        (if (let ()
                              (declare (not safe))
                              (gx#stx-eq? '%#let-values _%hd157136157295%_))
                            (if (let ()
                                  (declare (not safe))
                                  (gx#stx-pair? _%tl157137157297%_))
                                (let ((_%e157138157300%_
                                       (let ()
                                         (declare (not safe))
                                         (gx#stx-e _%tl157137157297%_))))
                                  (let ((_%tl157140157305%_
                                         (let ()
                                           (declare (not safe))
                                           (##cdr _%e157138157300%_)))
                                        (_%hd157139157303%_
                                         (let ()
                                           (declare (not safe))
                                           (##car _%e157138157300%_))))
                                    (if (let ()
                                          (declare (not safe))
                                          (gx#stx-pair? _%hd157139157303%_))
                                        (let ((_%e157141157308%_
                                               (let ()
                                                 (declare (not safe))
                                                 (gx#stx-e
                                                  _%hd157139157303%_))))
                                          (let ((_%tl157143157313%_
                                                 (let ()
                                                   (declare (not safe))
                                                   (##cdr _%e157141157308%_)))
                                                (_%hd157142157311%_
                                                 (let ()
                                                   (declare (not safe))
                                                   (##car _%e157141157308%_))))
                                            (if (let ()
                                                  (declare (not safe))
                                                  (gx#stx-pair?
                                                   _%hd157142157311%_))
                                                (let ((_%e157144157316%_
                                                       (let ()
                                                         (declare (not safe))
                                                         (gx#stx-e
                                                          _%hd157142157311%_))))
                                                  (let ((_%tl157146157321%_
                                                         (let ()
                                                           (declare (not safe))
                                                           (##cdr _%e157144157316%_)))
                                                        (_%hd157145157319%_
                                                         (let ()
                                                           (declare (not safe))
                                                           (##car _%e157144157316%_))))
                                                    (if (let ()
                                                          (declare (not safe))
                                                          (gx#stx-pair?
                                                           _%hd157145157319%_))
                                                        (let ((_%e157147157324%_
                                                               (let ()
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                         (declare (not safe))
                         (gx#stx-e _%hd157145157319%_))))
                  (let ((_%tl157149157329%_
                         (let ()
                           (declare (not safe))
                           (##cdr _%e157147157324%_)))
                        (_%hd157148157327%_
                         (let ()
                           (declare (not safe))
                           (##car _%e157147157324%_))))
                    (if (let ()
                          (declare (not safe))
                          (gx#stx-null? _%tl157149157329%_))
                        (if (let ()
                              (declare (not safe))
                              (gx#stx-pair? _%tl157146157321%_))
                            (let ((_%e157150157332%_
                                   (let ()
                                     (declare (not safe))
                                     (gx#stx-e _%tl157146157321%_))))
                              (let ((_%tl157152157337%_
                                     (let ()
                                       (declare (not safe))
                                       (##cdr _%e157150157332%_)))
                                    (_%hd157151157335%_
                                     (let ()
                                       (declare (not safe))
                                       (##car _%e157150157332%_))))
                                (if (let ()
                                      (declare (not safe))
                                      (gx#stx-pair? _%hd157151157335%_))
                                    (let ((_%e157153157340%_
                                           (let ()
                                             (declare (not safe))
                                             (gx#stx-e _%hd157151157335%_))))
                                      (let ((_%tl157155157345%_
                                             (let ()
                                               (declare (not safe))
                                               (##cdr _%e157153157340%_)))
                                            (_%hd157154157343%_
                                             (let ()
                                               (declare (not safe))
                                               (##car _%e157153157340%_))))
                                        (if (let ()
                                              (declare (not safe))
                                              (gx#identifier?
                                               _%hd157154157343%_))
                                            (if (let ()
                                                  (declare (not safe))
                                                  (gx#stx-eq?
                                                   '%#let-values
                                                   _%hd157154157343%_))
                                                (if (let ()
                                                      (declare (not safe))
                                                      (gx#stx-pair?
                                                       _%tl157155157345%_))
                                                    (let ((_%e157156157348%_
                                                           (let ()
                                                             (declare
                                                               (not safe))
                                                             (gx#stx-e
                                                              _%tl157155157345%_))))
                                                      (let ((_%tl157158157353%_
                                                             (let ()
                                                               (declare
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                         (not safe))
                       (##cdr _%e157156157348%_)))
                    (_%hd157157157351%_
                     (let () (declare (not safe)) (##car _%e157156157348%_))))
                (if (let ()
                      (declare (not safe))
                      (gx#stx-pair? _%hd157157157351%_))
                    (let ((_%e157159157356%_
                           (let ()
                             (declare (not safe))
                             (gx#stx-e _%hd157157157351%_))))
                      (let ((_%tl157161157361%_
                             (let ()
                               (declare (not safe))
                               (##cdr _%e157159157356%_)))
                            (_%hd157160157359%_
                             (let ()
                               (declare (not safe))
                               (##car _%e157159157356%_))))
                        (if (let ()
                              (declare (not safe))
                              (gx#stx-pair? _%hd157160157359%_))
                            (let ((_%e157162157364%_
                                   (let ()
                                     (declare (not safe))
                                     (gx#stx-e _%hd157160157359%_))))
                              (let ((_%tl157164157369%_
                                     (let ()
                                       (declare (not safe))
                                       (##cdr _%e157162157364%_)))
                                    (_%hd157163157367%_
                                     (let ()
                                       (declare (not safe))
                                       (##car _%e157162157364%_))))
                                (if (let ()
                                      (declare (not safe))
                                      (gx#stx-pair? _%hd157163157367%_))
                                    (let ((_%e157165157372%_
                                           (let ()
                                             (declare (not safe))
                                             (gx#stx-e _%hd157163157367%_))))
                                      (let ((_%tl157167157377%_
                                             (let ()
                                               (declare (not safe))
                                               (##cdr _%e157165157372%_)))
                                            (_%hd157166157375%_
                                             (let ()
                                               (declare (not safe))
                                               (##car _%e157165157372%_))))
                                        (if (let ()
                                              (declare (not safe))
                                              (gx#stx-null?
                                               _%tl157167157377%_))
                                            (if (let ()
                                                  (declare (not safe))
                                                  (gx#stx-pair?
                                                   _%tl157164157369%_))
                                                (let ((_%e157168157380%_
                                                       (let ()
                                                         (declare (not safe))
                                                         (gx#stx-e
                                                          _%tl157164157369%_))))
                                                  (let ((_%tl157170157385%_
                                                         (let ()
                                                           (declare (not safe))
                                                           (##cdr _%e157168157380%_)))
                                                        (_%hd157169157383%_
                                                         (let ()
                                                           (declare (not safe))
                                                           (##car _%e157168157380%_))))
                                                    (if (let ()
                                                          (declare (not safe))
                                                          (gx#stx-null?
                                                           _%tl157170157385%_))
                                                        (if (let ()
                                                              (declare
                                                                (not safe))
                                                              (gx#stx-null?
                                                               _%tl157161157361%_))
                                                            (if (let ()
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                          (declare (not safe))
                          (gx#stx-pair? _%tl157158157353%_))
                        (let ((_%e157171157388%_
                               (let ()
                                 (declare (not safe))
                                 (gx#stx-e _%tl157158157353%_))))
                          (let ((_%tl157173157393%_
                                 (let ()
                                   (declare (not safe))
                                   (##cdr _%e157171157388%_)))
                                (_%hd157172157391%_
                                 (let ()
                                   (declare (not safe))
                                   (##car _%e157171157388%_))))
                            (if (let ()
                                  (declare (not safe))
                                  (gx#stx-pair? _%hd157172157391%_))
                                (let ((_%e157174157396%_
                                       (let ()
                                         (declare (not safe))
                                         (gx#stx-e _%hd157172157391%_))))
                                  (let ((_%tl157176157401%_
                                         (let ()
                                           (declare (not safe))
                                           (##cdr _%e157174157396%_)))
                                        (_%hd157175157399%_
                                         (let ()
                                           (declare (not safe))
                                           (##car _%e157174157396%_))))
                                    (if (let ()
                                          (declare (not safe))
                                          (gx#identifier? _%hd157175157399%_))
                                        (if (let ()
                                              (declare (not safe))
                                              (gx#stx-eq?
                                               '%#lambda
                                               _%hd157175157399%_))
                                            (if (let ()
                                                  (declare (not safe))
                                                  (gx#stx-pair?
                                                   _%tl157176157401%_))
                                                (let ((_%e157177157404%_
                                                       (let ()
                                                         (declare (not safe))
                                                         (gx#stx-e
                                                          _%tl157176157401%_))))
                                                  (let ((_%tl157179157409%_
                                                         (let ()
                                                           (declare (not safe))
                                                           (##cdr _%e157177157404%_)))
                                                        (_%hd157178157407%_
                                                         (let ()
                                                           (declare (not safe))
                                                           (##car _%e157177157404%_))))
                                                    (if (let ()
                                                          (declare (not safe))
                                                          (gx#stx-pair?
                                                           _%hd157178157407%_))
                                                        (let ((_%e157180157412%_
                                                               (let ()
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                         (declare (not safe))
                         (gx#stx-e _%hd157178157407%_))))
                  (let ((_%tl157182157417%_
                         (let ()
                           (declare (not safe))
                           (##cdr _%e157180157412%_)))
                        (_%hd157181157415%_
                         (let ()
                           (declare (not safe))
                           (##car _%e157180157412%_))))
                    (if (let ()
                          (declare (not safe))
                          (gx#stx-pair? _%tl157179157409%_))
                        (let ((_%e157183157420%_
                               (let ()
                                 (declare (not safe))
                                 (gx#stx-e _%tl157179157409%_))))
                          (let ((_%tl157185157425%_
                                 (let ()
                                   (declare (not safe))
                                   (##cdr _%e157183157420%_)))
                                (_%hd157184157423%_
                                 (let ()
                                   (declare (not safe))
                                   (##car _%e157183157420%_))))
                            (if (let ()
                                  (declare (not safe))
                                  (gx#stx-pair? _%hd157184157423%_))
                                (let ((_%e157186157428%_
                                       (let ()
                                         (declare (not safe))
                                         (gx#stx-e _%hd157184157423%_))))
                                  (let ((_%tl157188157433%_
                                         (let ()
                                           (declare (not safe))
                                           (##cdr _%e157186157428%_)))
                                        (_%hd157187157431%_
                                         (let ()
                                           (declare (not safe))
                                           (##car _%e157186157428%_))))
                                    (if (let ()
                                          (declare (not safe))
                                          (gx#identifier? _%hd157187157431%_))
                                        (if (let ()
                                              (declare (not safe))
                                              (gx#stx-eq?
                                               '%#call
                                               _%hd157187157431%_))
                                            (if (let ()
                                                  (declare (not safe))
                                                  (gx#stx-pair?
                                                   _%tl157188157433%_))
                                                (let ((_%e157189157436%_
                                                       (let ()
                                                         (declare (not safe))
                                                         (gx#stx-e
                                                          _%tl157188157433%_))))
                                                  (let ((_%tl157191157441%_
                                                         (let ()
                                                           (declare (not safe))
                                                           (##cdr _%e157189157436%_)))
                                                        (_%hd157190157439%_
                                                         (let ()
                                                           (declare (not safe))
                                                           (##car _%e157189157436%_))))
                                                    (if (let ()
                                                          (declare (not safe))
                                                          (gx#stx-pair?
                                                           _%hd157190157439%_))
                                                        (let ((_%e157192157444%_
                                                               (let ()
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                         (declare (not safe))
                         (gx#stx-e _%hd157190157439%_))))
                  (let ((_%tl157194157449%_
                         (let ()
                           (declare (not safe))
                           (##cdr _%e157192157444%_)))
                        (_%hd157193157447%_
                         (let ()
                           (declare (not safe))
                           (##car _%e157192157444%_))))
                    (if (let ()
                          (declare (not safe))
                          (gx#identifier? _%hd157193157447%_))
                        (if (let ()
                              (declare (not safe))
                              (gx#stx-eq? '%#ref _%hd157193157447%_))
                            (if (let ()
                                  (declare (not safe))
                                  (gx#stx-pair? _%tl157194157449%_))
                                (let ((_%e157195157452%_
                                       (let ()
                                         (declare (not safe))
                                         (gx#stx-e _%tl157194157449%_))))
                                  (let ((_%tl157197157457%_
                                         (let ()
                                           (declare (not safe))
                                           (##cdr _%e157195157452%_)))
                                        (_%hd157196157455%_
                                         (let ()
                                           (declare (not safe))
                                           (##car _%e157195157452%_))))
                                    (if (let ()
                                          (declare (not safe))
                                          (gx#stx-null? _%tl157197157457%_))
                                        (if (let ()
                                              (declare (not safe))
                                              (gx#stx-pair?
                                               _%tl157191157441%_))
                                            (let ((_%e157198157460%_
                                                   (let ()
                                                     (declare (not safe))
                                                     (gx#stx-e
                                                      _%tl157191157441%_))))
                                              (let ((_%tl157200157465%_
                                                     (let ()
                                                       (declare (not safe))
                                                       (##cdr _%e157198157460%_)))
                                                    (_%hd157199157463%_
                                                     (let ()
                                                       (declare (not safe))
                                                       (##car _%e157198157460%_))))
                                                (if (let ()
                                                      (declare (not safe))
                                                      (gx#stx-pair?
                                                       _%hd157199157463%_))
                                                    (let ((_%e157201157468%_
                                                           (let ()
                                                             (declare
                                                               (not safe))
                                                             (gx#stx-e
                                                              _%hd157199157463%_))))
                                                      (let ((_%tl157203157473%_
                                                             (let ()
                                                               (declare
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                         (not safe))
                       (##cdr _%e157201157468%_)))
                    (_%hd157202157471%_
                     (let () (declare (not safe)) (##car _%e157201157468%_))))
                (if (let ()
                      (declare (not safe))
                      (gx#identifier? _%hd157202157471%_))
                    (if (let ()
                          (declare (not safe))
                          (gx#stx-eq? '%#ref _%hd157202157471%_))
                        (if (let ()
                              (declare (not safe))
                              (gx#stx-pair? _%tl157203157473%_))
                            (let ((_%e157204157476%_
                                   (let ()
                                     (declare (not safe))
                                     (gx#stx-e _%tl157203157473%_))))
                              (let ((_%tl157206157481%_
                                     (let ()
                                       (declare (not safe))
                                       (##cdr _%e157204157476%_)))
                                    (_%hd157205157479%_
                                     (let ()
                                       (declare (not safe))
                                       (##car _%e157204157476%_))))
                                (if (let ()
                                      (declare (not safe))
                                      (gx#stx-null? _%tl157206157481%_))
                                    (if (let ()
                                          (declare (not safe))
                                          (gx#stx-pair? _%tl157200157465%_))
                                        (let ((_%e157207157484%_
                                               (let ()
                                                 (declare (not safe))
                                                 (gx#stx-e
                                                  _%tl157200157465%_))))
                                          (let ((_%tl157209157489%_
                                                 (let ()
                                                   (declare (not safe))
                                                   (##cdr _%e157207157484%_)))
                                                (_%hd157208157487%_
                                                 (let ()
                                                   (declare (not safe))
                                                   (##car _%e157207157484%_))))
                                            (if (let ()
                                                  (declare (not safe))
                                                  (gx#stx-pair?
                                                   _%hd157208157487%_))
                                                (let ((_%e157210157492%_
                                                       (let ()
                                                         (declare (not safe))
                                                         (gx#stx-e
                                                          _%hd157208157487%_))))
                                                  (let ((_%tl157212157497%_
                                                         (let ()
                                                           (declare (not safe))
                                                           (##cdr _%e157210157492%_)))
                                                        (_%hd157211157495%_
                                                         (let ()
                                                           (declare (not safe))
                                                           (##car _%e157210157492%_))))
                                                    (if (let ()
                                                          (declare (not safe))
                                                          (gx#identifier?
                                                           _%hd157211157495%_))
                                                        (if (let ()
                                                              (declare
                                                                (not safe))
                                                              (gx#stx-eq?
                                                               '%#ref
                                                               _%hd157211157495%_))
                                                            (if (let ()
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                          (declare (not safe))
                          (gx#stx-pair? _%tl157212157497%_))
                        (let ((_%e157213157500%_
                               (let ()
                                 (declare (not safe))
                                 (gx#stx-e _%tl157212157497%_))))
                          (let ((_%tl157215157505%_
                                 (let ()
                                   (declare (not safe))
                                   (##cdr _%e157213157500%_)))
                                (_%hd157214157503%_
                                 (let ()
                                   (declare (not safe))
                                   (##car _%e157213157500%_))))
                            (if (let ()
                                  (declare (not safe))
                                  (gx#stx-null? _%tl157215157505%_))
                                (if (let ()
                                      (declare (not safe))
                                      (gx#stx-null? _%tl157185157425%_))
                                    (if (let ()
                                          (declare (not safe))
                                          (gx#stx-null? _%tl157173157393%_))
                                        (if (let ()
                                              (declare (not safe))
                                              (gx#stx-null?
                                               _%tl157152157337%_))
                                            (if (let ()
                                                  (declare (not safe))
                                                  (gx#stx-null?
                                                   _%tl157143157313%_))
                                                (if (let ()
                                                      (declare (not safe))
                                                      (gx#stx-pair?
                                                       _%tl157140157305%_))
                                                    (let ((_%e157216157508%_
                                                           (let ()
                                                             (declare
                                                               (not safe))
                                                             (gx#stx-e
                                                              _%tl157140157305%_))))
                                                      (let ((_%tl157218157513%_
                                                             (let ()
                                                               (declare
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                         (not safe))
                       (##cdr _%e157216157508%_)))
                    (_%hd157217157511%_
                     (let () (declare (not safe)) (##car _%e157216157508%_))))
                (if (let ()
                      (declare (not safe))
                      (gx#stx-pair? _%hd157217157511%_))
                    (let ((_%e157219157516%_
                           (let ()
                             (declare (not safe))
                             (gx#stx-e _%hd157217157511%_))))
                      (let ((_%tl157221157521%_
                             (let ()
                               (declare (not safe))
                               (##cdr _%e157219157516%_)))
                            (_%hd157220157519%_
                             (let ()
                               (declare (not safe))
                               (##car _%e157219157516%_))))
                        (if (let ()
                              (declare (not safe))
                              (gx#identifier? _%hd157220157519%_))
                            (if (let ()
                                  (declare (not safe))
                                  (gx#stx-eq? '%#lambda _%hd157220157519%_))
                                (if (let ()
                                      (declare (not safe))
                                      (gx#stx-pair? _%tl157221157521%_))
                                    (let ((_%e157222157524%_
                                           (let ()
                                             (declare (not safe))
                                             (gx#stx-e _%tl157221157521%_))))
                                      (let ((_%tl157224157529%_
                                             (let ()
                                               (declare (not safe))
                                               (##cdr _%e157222157524%_)))
                                            (_%hd157223157527%_
                                             (let ()
                                               (declare (not safe))
                                               (##car _%e157222157524%_))))
                                        (if (let ()
                                              (declare (not safe))
                                              (gx#stx-pair?
                                               _%tl157224157529%_))
                                            (let ((_%e157225157532%_
                                                   (let ()
                                                     (declare (not safe))
                                                     (gx#stx-e
                                                      _%tl157224157529%_))))
                                              (let ((_%tl157227157537%_
                                                     (let ()
                                                       (declare (not safe))
                                                       (##cdr _%e157225157532%_)))
                                                    (_%hd157226157535%_
                                                     (let ()
                                                       (declare (not safe))
                                                       (##car _%e157225157532%_))))
                                                (if (let ()
                                                      (declare (not safe))
                                                      (gx#stx-pair?
                                                       _%hd157226157535%_))
                                                    (let ((_%e157228157540%_
                                                           (let ()
                                                             (declare
                                                               (not safe))
                                                             (gx#stx-e
                                                              _%hd157226157535%_))))
                                                      (let ((_%tl157230157545%_
                                                             (let ()
                                                               (declare
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                         (not safe))
                       (##cdr _%e157228157540%_)))
                    (_%hd157229157543%_
                     (let () (declare (not safe)) (##car _%e157228157540%_))))
                (if (let ()
                      (declare (not safe))
                      (gx#identifier? _%hd157229157543%_))
                    (if (let ()
                          (declare (not safe))
                          (gx#stx-eq? '%#call _%hd157229157543%_))
                        (if (let ()
                              (declare (not safe))
                              (gx#stx-pair? _%tl157230157545%_))
                            (let ((_%e157231157548%_
                                   (let ()
                                     (declare (not safe))
                                     (gx#stx-e _%tl157230157545%_))))
                              (let ((_%tl157233157553%_
                                     (let ()
                                       (declare (not safe))
                                       (##cdr _%e157231157548%_)))
                                    (_%hd157232157551%_
                                     (let ()
                                       (declare (not safe))
                                       (##car _%e157231157548%_))))
                                (if (let ()
                                      (declare (not safe))
                                      (gx#stx-pair? _%hd157232157551%_))
                                    (let ((_%e157234157556%_
                                           (let ()
                                             (declare (not safe))
                                             (gx#stx-e _%hd157232157551%_))))
                                      (let ((_%tl157236157561%_
                                             (let ()
                                               (declare (not safe))
                                               (##cdr _%e157234157556%_)))
                                            (_%hd157235157559%_
                                             (let ()
                                               (declare (not safe))
                                               (##car _%e157234157556%_))))
                                        (if (let ()
                                              (declare (not safe))
                                              (gx#identifier?
                                               _%hd157235157559%_))
                                            (if (let ()
                                                  (declare (not safe))
                                                  (gx#stx-eq?
                                                   '%#ref
                                                   _%hd157235157559%_))
                                                (if (let ()
                                                      (declare (not safe))
                                                      (gx#stx-pair?
                                                       _%tl157236157561%_))
                                                    (let ((_%e157237157564%_
                                                           (let ()
                                                             (declare
                                                               (not safe))
                                                             (gx#stx-e
                                                              _%tl157236157561%_))))
                                                      (let ((_%tl157239157569%_
                                                             (let ()
                                                               (declare
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                         (not safe))
                       (##cdr _%e157237157564%_)))
                    (_%hd157238157567%_
                     (let () (declare (not safe)) (##car _%e157237157564%_))))
                (if (let ()
                      (declare (not safe))
                      (gx#stx-null? _%tl157239157569%_))
                    (if (let ()
                          (declare (not safe))
                          (gx#stx-pair? _%tl157233157553%_))
                        (let ((_%e157240157572%_
                               (let ()
                                 (declare (not safe))
                                 (gx#stx-e _%tl157233157553%_))))
                          (let ((_%tl157242157577%_
                                 (let ()
                                   (declare (not safe))
                                   (##cdr _%e157240157572%_)))
                                (_%hd157241157575%_
                                 (let ()
                                   (declare (not safe))
                                   (##car _%e157240157572%_))))
                            (if (let ()
                                  (declare (not safe))
                                  (gx#stx-pair? _%hd157241157575%_))
                                (let ((_%e157243157580%_
                                       (let ()
                                         (declare (not safe))
                                         (gx#stx-e _%hd157241157575%_))))
                                  (let ((_%tl157245157585%_
                                         (let ()
                                           (declare (not safe))
                                           (##cdr _%e157243157580%_)))
                                        (_%hd157244157583%_
                                         (let ()
                                           (declare (not safe))
                                           (##car _%e157243157580%_))))
                                    (if (let ()
                                          (declare (not safe))
                                          (gx#identifier? _%hd157244157583%_))
                                        (if (let ()
                                              (declare (not safe))
                                              (gx#stx-eq?
                                               '%#ref
                                               _%hd157244157583%_))
                                            (if (let ()
                                                  (declare (not safe))
                                                  (gx#stx-pair?
                                                   _%tl157245157585%_))
                                                (let ((_%e157246157588%_
                                                       (let ()
                                                         (declare (not safe))
                                                         (gx#stx-e
                                                          _%tl157245157585%_))))
                                                  (let ((_%tl157248157593%_
                                                         (let ()
                                                           (declare (not safe))
                                                           (##cdr _%e157246157588%_)))
                                                        (_%hd157247157591%_
                                                         (let ()
                                                           (declare (not safe))
                                                           (##car _%e157246157588%_))))
                                                    (if (let ()
                                                          (declare (not safe))
                                                          (gx#stx-null?
                                                           _%tl157248157593%_))
                                                        (if (let ()
                                                              (declare
                                                                (not safe))
                                                              (gx#stx-pair?
                                                               _%tl157242157577%_))
                                                            (let ((_%e157249157596%_
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                           (let ()
                             (declare (not safe))
                             (gx#stx-e _%tl157242157577%_))))
                      (let ((_%tl157251157601%_
                             (let ()
                               (declare (not safe))
                               (##cdr _%e157249157596%_)))
                            (_%hd157250157599%_
                             (let ()
                               (declare (not safe))
                               (##car _%e157249157596%_))))
                        (if (let ()
                              (declare (not safe))
                              (gx#stx-pair? _%hd157250157599%_))
                            (let ((_%e157252157604%_
                                   (let ()
                                     (declare (not safe))
                                     (gx#stx-e _%hd157250157599%_))))
                              (let ((_%tl157254157609%_
                                     (let ()
                                       (declare (not safe))
                                       (##cdr _%e157252157604%_)))
                                    (_%hd157253157607%_
                                     (let ()
                                       (declare (not safe))
                                       (##car _%e157252157604%_))))
                                (if (let ()
                                      (declare (not safe))
                                      (gx#identifier? _%hd157253157607%_))
                                    (if (let ()
                                          (declare (not safe))
                                          (gx#stx-eq?
                                           '%#quote
                                           _%hd157253157607%_))
                                        (if (let ()
                                              (declare (not safe))
                                              (gx#stx-pair?
                                               _%tl157254157609%_))
                                            (let ((_%e157255157612%_
                                                   (let ()
                                                     (declare (not safe))
                                                     (gx#stx-e
                                                      _%tl157254157609%_))))
                                              (let ((_%tl157257157617%_
                                                     (let ()
                                                       (declare (not safe))
                                                       (##cdr _%e157255157612%_)))
                                                    (_%hd157256157615%_
                                                     (let ()
                                                       (declare (not safe))
                                                       (##car _%e157255157612%_))))
                                                (if (let ()
                                                      (declare (not safe))
                                                      (gx#stx-null?
                                                       _%tl157257157617%_))
                                                    (if (let ()
                                                          (declare (not safe))
                                                          (gx#stx-pair?
                                                           _%tl157251157601%_))
                                                        (let ((_%e157258157620%_
                                                               (let ()
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                         (declare (not safe))
                         (gx#stx-e _%tl157251157601%_))))
                  (let ((_%tl157260157625%_
                         (let ()
                           (declare (not safe))
                           (##cdr _%e157258157620%_)))
                        (_%hd157259157623%_
                         (let ()
                           (declare (not safe))
                           (##car _%e157258157620%_))))
                    (if (let ()
                          (declare (not safe))
                          (gx#stx-pair? _%hd157259157623%_))
                        (let ((_%e157261157628%_
                               (let ()
                                 (declare (not safe))
                                 (gx#stx-e _%hd157259157623%_))))
                          (let ((_%tl157263157633%_
                                 (let ()
                                   (declare (not safe))
                                   (##cdr _%e157261157628%_)))
                                (_%hd157262157631%_
                                 (let ()
                                   (declare (not safe))
                                   (##car _%e157261157628%_))))
                            (if (let ()
                                  (declare (not safe))
                                  (gx#identifier? _%hd157262157631%_))
                                (if (let ()
                                      (declare (not safe))
                                      (gx#stx-eq? '%#ref _%hd157262157631%_))
                                    (if (let ()
                                          (declare (not safe))
                                          (gx#stx-pair? _%tl157263157633%_))
                                        (let ((_%e157264157636%_
                                               (let ()
                                                 (declare (not safe))
                                                 (gx#stx-e
                                                  _%tl157263157633%_))))
                                          (let ((_%tl157266157641%_
                                                 (let ()
                                                   (declare (not safe))
                                                   (##cdr _%e157264157636%_)))
                                                (_%hd157265157639%_
                                                 (let ()
                                                   (declare (not safe))
                                                   (##car _%e157264157636%_))))
                                            (if (let ()
                                                  (declare (not safe))
                                                  (gx#stx-null?
                                                   _%tl157266157641%_))
                                                (if (let ()
                                                      (declare (not safe))
                                                      (gx#stx-pair?
                                                       _%tl157260157625%_))
                                                    (let ((_%e157267157644%_
                                                           (let ()
                                                             (declare
                                                               (not safe))
                                                             (gx#stx-e
                                                              _%tl157260157625%_))))
                                                      (let ((_%tl157269157649%_
                                                             (let ()
                                                               (declare
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                         (not safe))
                       (##cdr _%e157267157644%_)))
                    (_%hd157268157647%_
                     (let () (declare (not safe)) (##car _%e157267157644%_))))
                (if (let ()
                      (declare (not safe))
                      (gx#stx-pair? _%hd157268157647%_))
                    (let ((_%e157270157652%_
                           (let ()
                             (declare (not safe))
                             (gx#stx-e _%hd157268157647%_))))
                      (let ((_%tl157272157657%_
                             (let ()
                               (declare (not safe))
                               (##cdr _%e157270157652%_)))
                            (_%hd157271157655%_
                             (let ()
                               (declare (not safe))
                               (##car _%e157270157652%_))))
                        (if (let ()
                              (declare (not safe))
                              (gx#identifier? _%hd157271157655%_))
                            (if (let ()
                                  (declare (not safe))
                                  (gx#stx-eq? '%#ref _%hd157271157655%_))
                                (if (let ()
                                      (declare (not safe))
                                      (gx#stx-pair? _%tl157272157657%_))
                                    (let ((_%e157273157660%_
                                           (let ()
                                             (declare (not safe))
                                             (gx#stx-e _%tl157272157657%_))))
                                      (let ((_%tl157275157665%_
                                             (let ()
                                               (declare (not safe))
                                               (##cdr _%e157273157660%_)))
                                            (_%hd157274157663%_
                                             (let ()
                                               (declare (not safe))
                                               (##car _%e157273157660%_))))
                                        (if (let ()
                                              (declare (not safe))
                                              (gx#stx-null?
                                               _%tl157275157665%_))
                                            (if (let ()
                                                  (declare (not safe))
                                                  (gx#stx-null?
                                                   _%tl157269157649%_))
                                                (if (let ()
                                                      (declare (not safe))
                                                      (gx#stx-null?
                                                       _%tl157227157537%_))
                                                    (if (let ()
                                                          (declare (not safe))
                                                          (gx#stx-null?
                                                           _%tl157218157513%_))
                                                        (_%__kont169887169888%_
                                                         _%hd157274157663%_
                                                         _%hd157265157639%_
                                                         _%hd157247157591%_
                                                         _%hd157238157567%_
                                                         _%hd157223157527%_
                                                         _%hd157214157503%_
                                                         _%hd157205157479%_
                                                         _%hd157196157455%_
                                                         _%hd157181157415%_
                                                         _%hd157166157375%_
                                                         _%hd157148157327%_)
                                                        (_%__kont169889169890%_))
                                                    (_%__kont169889169890%_))
                                                (_%__kont169889169890%_))
                                            (_%__kont169889169890%_))))
                                    (_%__kont169889169890%_))
                                (_%__kont169889169890%_))
                            (_%__kont169889169890%_))))
                    (_%__kont169889169890%_))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                                    (_%__kont169889169890%_))
                                                (_%__kont169889169890%_))))
                                        (_%__kont169889169890%_))
                                    (_%__kont169889169890%_))
                                (_%__kont169889169890%_))))
                        (_%__kont169889169890%_))))
                (_%__kont169889169890%_))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                                    (_%__kont169889169890%_))))
                                            (_%__kont169889169890%_))
                                        (_%__kont169889169890%_))
                                    (_%__kont169889169890%_))))
                            (_%__kont169889169890%_))))
                    (_%__kont169889169890%_))
                (_%__kont169889169890%_))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                                (_%__kont169889169890%_))
                                            (_%__kont169889169890%_))
                                        (_%__kont169889169890%_))))
                                (_%__kont169889169890%_))))
                        (_%__kont169889169890%_))
                    (_%__kont169889169890%_))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                                    (_%__kont169889169890%_))
                                                (_%__kont169889169890%_))
                                            (_%__kont169889169890%_))))
                                    (_%__kont169889169890%_))))
                            (_%__kont169889169890%_))
                        (_%__kont169889169890%_))
                    (_%__kont169889169890%_))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                                    (_%__kont169889169890%_))))
                                            (_%__kont169889169890%_))))
                                    (_%__kont169889169890%_))
                                (_%__kont169889169890%_))
                            (_%__kont169889169890%_))))
                    (_%__kont169889169890%_))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                                    (_%__kont169889169890%_))
                                                (_%__kont169889169890%_))
                                            (_%__kont169889169890%_))
                                        (_%__kont169889169890%_))
                                    (_%__kont169889169890%_))
                                (_%__kont169889169890%_))))
                        (_%__kont169889169890%_))
                    (_%__kont169889169890%_))
                (_%__kont169889169890%_))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                                (_%__kont169889169890%_))))
                                        (_%__kont169889169890%_))
                                    (_%__kont169889169890%_))))
                            (_%__kont169889169890%_))
                        (_%__kont169889169890%_))
                    (_%__kont169889169890%_))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                                    (_%__kont169889169890%_))))
                                            (_%__kont169889169890%_))
                                        (_%__kont169889169890%_))))
                                (_%__kont169889169890%_))
                            (_%__kont169889169890%_))
                        (_%__kont169889169890%_))))
                (_%__kont169889169890%_))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                                (_%__kont169889169890%_))
                                            (_%__kont169889169890%_))
                                        (_%__kont169889169890%_))))
                                (_%__kont169889169890%_))))
                        (_%__kont169889169890%_))))
                (_%__kont169889169890%_))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                                (_%__kont169889169890%_))
                                            (_%__kont169889169890%_))
                                        (_%__kont169889169890%_))))
                                (_%__kont169889169890%_))))
                        (_%__kont169889169890%_))
                    (_%__kont169889169890%_))
                (_%__kont169889169890%_))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                                (_%__kont169889169890%_))
                                            (_%__kont169889169890%_))))
                                    (_%__kont169889169890%_))))
                            (_%__kont169889169890%_))))
                    (_%__kont169889169890%_))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                                    (_%__kont169889169890%_))
                                                (_%__kont169889169890%_))
                                            (_%__kont169889169890%_))))
                                    (_%__kont169889169890%_))))
                            (_%__kont169889169890%_))
                        (_%__kont169889169890%_))))
                (_%__kont169889169890%_))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                                (_%__kont169889169890%_))))
                                        (_%__kont169889169890%_))))
                                (_%__kont169889169890%_))
                            (_%__kont169889169890%_))
                        (_%__kont169889169890%_))))
                (_%__kont169889169890%_))))))
    (define gxc#lift-case-lambda-clauses__%
      (lambda (_%stx156861%_ _%id156862%_ _%clauses156863%_ _%gensym?156864%_)
        (let _%lp156866%_ ((_%rest156868%_ _%clauses156863%_)
                           (_%ids156869%_ '())
                           (_%impls156870%_ '())
                           (_%clauses156871%_ '()))
          (let* ((_%rest156872156880%_ _%rest156868%_)
                 (_%else156874156888%_
                  (lambda ()
                    (values (reverse _%ids156869%_)
                            (reverse _%impls156870%_)
                            (reverse _%clauses156871%_))))
                 (_%K156876157093%_
                  (lambda (_%rest156891%_ _%clause156892%_)
                    (if (gxc#dispatch-lambda-form? _%clause156892%_)
                        (_%lp156866%_
                         _%rest156891%_
                         _%ids156869%_
                         _%impls156870%_
                         (cons _%clause156892%_ _%clauses156871%_))
                        (let* ((_%g156894156905%_
                                (lambda (_%g156895156902%_)
                                  (let ()
                                    (declare (not safe))
                                    (gx#raise-syntax-error
                                     '#f
                                     '"Bad syntax; invalid match target"
                                     _%g156895156902%_))))
                               (_%g156893157090%_
                                (lambda (_%g156895156908%_)
                                  (if (let ()
                                        (declare (not safe))
                                        (gx#stx-pair? _%g156895156908%_))
                                      (let ((_%e156898156910%_
                                             (let ()
                                               (declare (not safe))
                                               (gx#stx-e _%g156895156908%_))))
                                        (let ((_%hd156899156913%_
                                               (let ()
                                                 (declare (not safe))
                                                 (##car _%e156898156910%_)))
                                              (_%tl156900156915%_
                                               (let ()
                                                 (declare (not safe))
                                                 (##cdr _%e156898156910%_))))
                                          ((lambda (_%L156918%_ _%L156919%_)
                                             (let* ((_%id156936%_
                                                     (let ((__tmp171089
                                                            (let ()
                                                              (declare
                                                                (not safe))
                                                              (gx#stx-e
                                                               _%id156862%_)))
                                                           (__tmp171088
                                                            (length _%clauses156871%_))
                                                           (__tmp171087
                                                            (if _%gensym?156864%_
                                                                (let ()
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                          (declare (not safe))
                          (##gensym '__))
                        '"")))
               (declare (not safe))
               (make-symbol__1 __tmp171089 '"__" __tmp171088 __tmp171087)))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                                    (_%id156938%_
                                                     (let ((__tmp171090
                                                            (let ()
                                                              (declare
                                                                (not safe))
                                                              (gx#stx-source
                                                               _%stx156861%_))))
                                                       (declare (not safe))
                                                       (gx#core-quote-syntax__1
                                                        _%id156936%_
                                                        __tmp171090)))
                                                    (_%impl156940%_
                                                     (let ((__tmp171091
                                                            (cons (let ()
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                            (declare (not safe))
                            (gx#datum->syntax__0 '#f '%#lambda))
                          (cons _%L156919%_ _%L156918%_))))
               (declare (not safe))
               (gxc#xform-wrap-source __tmp171091 _%stx156861%_)))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                                    (_%clause157087%_
                                                     (let* ((_%__stx170269170270%_
                                                             _%L156919%_)
                                                            (_%g156944156972%_
                                                             (lambda ()
                                                               (let ()
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                         (declare (not safe))
                         (gx#raise-syntax-error
                          '#f
                          '"Bad syntax; invalid match target"
                          _%__stx170269170270%_)))))
               (let ((_%__kont170271170272%_
                      (lambda (_%L157066%_)
                        (cons _%L156919%_
                              (cons (let ((__tmp171092
                                           (cons '%#call
                                                 (cons (cons '%#ref
                                                             (cons _%id156938%_
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                           '()))
               (let ((__tmp171093
                      (lambda (_%g157076157079%_ _%g157077157081%_)
                        (cons (cons (let ()
                                      (declare (not safe))
                                      (gx#datum->syntax__0 '#f '%#ref))
                                    (cons _%g157076157079%_ '()))
                              _%g157077157081%_))))
                 (declare (not safe))
                 (__foldr1 __tmp171093 '() _%L157066%_))))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                      (declare (not safe))
                                      (gxc#xform-wrap-source
                                       __tmp171092
                                       _%stx156861%_))
                                    '()))))
                     (_%__kont170275170276%_
                      (lambda (_%L157017%_ _%L157018%_)
                        (cons _%L156919%_
                              (cons (let ((__tmp171094
                                           (cons '%#call
                                                 (cons (cons '%#ref
                                                             (cons 'apply '()))
                                                       (cons (cons '%#ref
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                           (cons _%id156938%_ '()))
                     (let ((__tmp171097
                            (cons (cons (let ()
                                          (declare (not safe))
                                          (gx#datum->syntax__0 '#f '%#ref))
                                        (cons _%L157017%_ '()))
                                  '()))
                           (__tmp171095
                            (let ((__tmp171096
                                   (lambda (_%g157029157032%_
                                            _%g157030157034%_)
                                     (cons (cons (let ()
                                                   (declare (not safe))
                                                   (gx#datum->syntax__0
                                                    '#f
                                                    '%#ref))
                                                 (cons _%g157029157032%_ '()))
                                           _%g157030157034%_))))
                              (declare (not safe))
                              (__foldr1 __tmp171096 '() _%L157018%_))))
                       (declare (not safe))
                       (__foldr1 cons __tmp171097 __tmp171095)))))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                      (declare (not safe))
                                      (gxc#xform-wrap-source
                                       __tmp171094
                                       _%stx156861%_))
                                    '()))))
                     (_%__kont170279170280%_
                      (lambda (_%L156977%_)
                        (cons _%L156919%_
                              (cons (let ((__tmp171098
                                           (cons '%#call
                                                 (cons (cons '%#ref
                                                             (cons 'apply '()))
                                                       (cons (cons '%#ref
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                           (cons _%id156938%_ '()))
                     (cons (cons (let ()
                                   (declare (not safe))
                                   (gx#datum->syntax__0 '#f '%#ref))
                                 (cons _%L156977%_ '()))
                           '()))))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                      (declare (not safe))
                                      (gxc#xform-wrap-source
                                       __tmp171098
                                       _%stx156861%_))
                                    '())))))
                 (let* ((_%__match170294170295%_
                         (lambda (_%__splice170277170278%_
                                  _%target156958156993%_
                                  _%tl156960156995%_)
                           (letrec ((_%loop156961156998%_
                                     (lambda (_%hd156959157001%_
                                              _%arg156965157003%_)
                                       (if (let ()
                                             (declare (not safe))
                                             (gx#stx-pair? _%hd156959157001%_))
                                           (let ((_%e156962157006%_
                                                  (let ()
                                                    (declare (not safe))
                                                    (gx#stx-e
                                                     _%hd156959157001%_))))
                                             (let ((_%lp-tl156964157011%_
                                                    (let ()
                                                      (declare (not safe))
                                                      (##cdr _%e156962157006%_)))
                                                   (_%lp-hd156963157009%_
                                                    (let ()
                                                      (declare (not safe))
                                                      (##car _%e156962157006%_))))
                                               (_%loop156961156998%_
                                                _%lp-tl156964157011%_
                                                (cons _%lp-hd156963157009%_
                                                      _%arg156965157003%_))))
                                           (let ((_%arg156966157014%_
                                                  (reverse _%arg156965157003%_)))
                                             (_%__kont170275170276%_
                                              _%tl156960156995%_
                                              _%arg156966157014%_))))))
                             (_%loop156961156998%_
                              _%target156958156993%_
                              '()))))
                        (_%__match170288170289%_
                         (lambda (_%__splice170273170274%_
                                  _%target156947157042%_
                                  _%tl156949157044%_)
                           (letrec ((_%loop156950157047%_
                                     (lambda (_%hd156948157050%_
                                              _%arg156954157052%_)
                                       (if (let ()
                                             (declare (not safe))
                                             (gx#stx-pair? _%hd156948157050%_))
                                           (let ((_%e156951157055%_
                                                  (let ()
                                                    (declare (not safe))
                                                    (gx#stx-e
                                                     _%hd156948157050%_))))
                                             (let ((_%lp-tl156953157060%_
                                                    (let ()
                                                      (declare (not safe))
                                                      (##cdr _%e156951157055%_)))
                                                   (_%lp-hd156952157058%_
                                                    (let ()
                                                      (declare (not safe))
                                                      (##car _%e156951157055%_))))
                                               (_%loop156950157047%_
                                                _%lp-tl156953157060%_
                                                (cons _%lp-hd156952157058%_
                                                      _%arg156954157052%_))))
                                           (let ((_%arg156955157063%_
                                                  (reverse _%arg156954157052%_)))
                                             (_%__kont170271170272%_
                                              _%arg156955157063%_))))))
                             (_%loop156950157047%_
                              _%target156947157042%_
                              '())))))
                   (if (let ()
                         (declare (not safe))
                         (gx#stx-pair/null? _%__stx170269170270%_))
                       (let ((_%__splice170273170274%_
                              (let ()
                                (declare (not safe))
                                (gx#syntax-split-splice
                                 _%__stx170269170270%_
                                 '0))))
                         (let ((_%tl156949157044%_
                                (let ()
                                  (declare (not safe))
                                  (##vector-ref _%__splice170273170274%_ '1)))
                               (_%target156947157042%_
                                (let ()
                                  (declare (not safe))
                                  (##vector-ref _%__splice170273170274%_ '0))))
                           (if (let ()
                                 (declare (not safe))
                                 (gx#stx-null? _%tl156949157044%_))
                               (_%__match170288170289%_
                                _%__splice170273170274%_
                                _%target156947157042%_
                                _%tl156949157044%_)
                               (_%__match170294170295%_
                                _%__splice170273170274%_
                                _%target156947157042%_
                                _%tl156949157044%_))))
                       (_%__kont170279170280%_ _%__stx170269170270%_)))))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                               (_%lp156866%_
                                                _%rest156891%_
                                                (cons _%id156938%_
                                                      _%ids156869%_)
                                                (cons _%impl156940%_
                                                      _%impls156870%_)
                                                (cons _%clause157087%_
                                                      _%clauses156871%_))))
                                           _%tl156900156915%_
                                           _%hd156899156913%_)))
                                      (_%g156894156905%_ _%g156895156908%_)))))
                          (_%g156893157090%_ _%clause156892%_))))))
            (if (pair? _%rest156872156880%_)
                (let ((_%hd156877157096%_
                       (let ()
                         (declare (not safe))
                         (##car _%rest156872156880%_)))
                      (_%tl156878157098%_
                       (let ()
                         (declare (not safe))
                         (##cdr _%rest156872156880%_))))
                  (let* ((_%clause157101%_ _%hd156877157096%_)
                         (_%rest157103%_ _%tl156878157098%_))
                    (_%K156876157093%_ _%rest157103%_ _%clause157101%_)))
                (_%else156874156888%_))))))
    (define gxc#lift-case-lambda-clauses__0
      (lambda (_%stx157108%_ _%id157109%_ _%clauses157110%_)
        (let ((_%gensym?157112%_ '#f))
          (gxc#lift-case-lambda-clauses__%
           _%stx157108%_
           _%id157109%_
           _%clauses157110%_
           _%gensym?157112%_))))
    (define gxc#lift-case-lambda-clauses
      (lambda _g171100_
        (let ((_g171099_ (let () (declare (not safe)) (##length _g171100_))))
          (cond ((let () (declare (not safe)) (##fx= _g171099_ 3))
                 (apply gxc#lift-case-lambda-clauses__0 _g171100_))
                ((let () (declare (not safe)) (##fx= _g171099_ 4))
                 (apply gxc#lift-case-lambda-clauses__% _g171100_))
                (else
                 (##raise-wrong-number-of-arguments-exception
                  gxc#lift-case-lambda-clauses
                  _g171100_))))))
    (define gxc#lift-top-lambda-define-values%
      (lambda (_%self156133%_ _%stx156134%_)
        (letrec ((_%case-lambda-clause-def156136%_
                  (lambda (_%id156857%_ _%impl156858%_)
                    (let ((__tmp171101
                           (cons '%#define-values
                                 (cons (cons _%id156857%_ '())
                                       (cons (let ()
                                               (declare (not safe))
                                               (gxc#compile-e__1
                                                _%self156133%_
                                                _%impl156858%_))
                                             '())))))
                      (declare (not safe))
                      (gxc#xform-wrap-source __tmp171101 _%stx156134%_))))
                 (_%opt-lambda-dispatch-name156137%_
                  (lambda (_%id156853%_)
                    (if (uninterned-symbol? _%id156853%_)
                        (let ((_%str156855%_ (symbol->string _%id156853%_)))
                          (if (let ()
                                (declare (not safe))
                                (##string-prefix? '"opt-lambda" _%str156855%_))
                              '"%"
                              _%id156853%_))
                        _%id156853%_)))
                 (_%kw-lambda-dispatch-name156138%_
                  (lambda (_%id156848%_ _%name156849%_)
                    (if (uninterned-symbol? _%id156848%_)
                        (let ((_%str156851%_ (symbol->string _%id156848%_)))
                          (if (let ()
                                (declare (not safe))
                                (##string-prefix? '"kw-lambda" _%str156851%_))
                              _%name156849%_
                              _%id156848%_))
                        _%id156848%_))))
          (let* ((_%__stx170317170318%_ _%stx156134%_)
                 (_%g156143156202%_
                  (lambda ()
                    (let ()
                      (declare (not safe))
                      (gx#raise-syntax-error
                       '#f
                       '"Bad syntax; invalid match target"
                       _%__stx170317170318%_)))))
            (let ((_%__kont170319170320%_
                   (lambda (_%L156756%_ _%L156757%_)
                     (let* ((_%__stx170297170298%_ _%L156756%_)
                            (_%g156774156788%_
                             (lambda ()
                               (let ()
                                 (declare (not safe))
                                 (gx#raise-syntax-error
                                  '#f
                                  '"Bad syntax; invalid match target"
                                  _%__stx170297170298%_)))))
                       (let ((_%__kont170299170300%_
                              (lambda (_%L156833%_) _%stx156134%_))
                             (_%__kont170301170302%_
                              (lambda (_%L156801%_)
                                (let ((_g171102_
                                       (gxc#lift-case-lambda-clauses__0
                                        _%stx156134%_
                                        _%L156757%_
                                        _%L156801%_)))
                                  (begin
                                    (let ((_g171103_
                                           (let ()
                                             (declare (not safe))
                                             (if (##values? _g171102_)
                                                 (##vector-length _g171102_)
                                                 1))))
                                      (if (not (let ()
                                                 (declare (not safe))
                                                 (##fx= _g171103_ 3)))
                                          (error "Context expects 3 values"
                                                 _g171103_)))
                                    (let ((_%ids156811%_
                                           (let ()
                                             (declare (not safe))
                                             (##vector-ref _g171102_ 0)))
                                          (_%impls156812%_
                                           (let ()
                                             (declare (not safe))
                                             (##vector-ref _g171102_ 1)))
                                          (_%clauses156813%_
                                           (let ()
                                             (declare (not safe))
                                             (##vector-ref _g171102_ 2))))
                                      (let* ((_%_156815%_
                                              (for-each
                                               gx#core-bind-runtime!
                                               _%ids156811%_))
                                             (_%defs156817%_
                                              (map _%case-lambda-clause-def156136%_
                                                   _%ids156811%_
                                                   _%impls156812%_)))
                                        (let ((__tmp171105
                                               (let ()
                                                 (declare (not safe))
                                                 (gxc#identifier-symbol
                                                  _%L156757%_)))
                                              (__tmp171104
                                               (map gxc#identifier-symbol
                                                    _%ids156811%_)))
                                          (declare (not safe))
                                          (gxc#verbose
                                           '"lift case-lambda clauses "
                                           __tmp171105
                                           '" => "
                                           __tmp171104))
                                        (let ((__tmp171106
                                               (cons '%#begin
                                                     (let ((__tmp171107
                                                            (cons (let ((__tmp171108
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                                 (cons '%#define-values
                                       (cons (cons _%L156757%_ '())
                                             (cons (let ((__tmp171110
                                                          (cons '%#case-lambda
                                                                _%clauses156813%_))
                                                         (__tmp171109
                                                          (let ()
                                                            (declare
                                                              (not safe))
                                                            (gx#datum->syntax__0
                                                             '#f
                                                             'case-lambda-expr))))
                                                     (declare (not safe))
                                                     (gxc#xform-wrap-source
                                                      __tmp171110
                                                      __tmp171109))
                                                   '())))))
                            (declare (not safe))
                            (gxc#xform-wrap-source __tmp171108 _%stx156134%_))
                          '())))
               (declare (not safe))
               (__foldr1 cons __tmp171107 _%defs156817%_)))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                          (declare (not safe))
                                          (gxc#xform-wrap-source
                                           __tmp171106
                                           _%stx156134%_)))))))))
                         (let ((_%__match170308170309%_
                                (lambda (_%e156777156825%_
                                         _%hd156778156828%_
                                         _%tl156779156830%_)
                                  (let ((_%L156833%_ _%tl156779156830%_))
                                    (if (let ()
                                          (declare (not safe))
                                          (__andmap1
                                           gxc#dispatch-lambda-form?
                                           _%L156833%_))
                                        (_%__kont170299170300%_ _%L156833%_)
                                        (_%__kont170301170302%_
                                         _%tl156779156830%_))))))
                           (if (let ()
                                 (declare (not safe))
                                 (gx#stx-pair? _%__stx170297170298%_))
                               (let ((_%e156777156825%_
                                      (let ()
                                        (declare (not safe))
                                        (gx#stx-e _%__stx170297170298%_))))
                                 (let ((_%tl156779156830%_
                                        (let ()
                                          (declare (not safe))
                                          (##cdr _%e156777156825%_)))
                                       (_%hd156778156828%_
                                        (let ()
                                          (declare (not safe))
                                          (##car _%e156777156825%_))))
                                   (_%__match170308170309%_
                                    _%e156777156825%_
                                    _%hd156778156828%_
                                    _%tl156779156830%_)))
                               (let ()
                                 (declare (not safe))
                                 (_%g156774156788%_))))))))
                  (_%__kont170321170322%_
                   (lambda (_%L156573%_ _%L156574%_)
                     (let* ((_%g156590156620%_
                             (lambda (_%g156591156617%_)
                               (let ()
                                 (declare (not safe))
                                 (gx#raise-syntax-error
                                  '#f
                                  '"Bad syntax; invalid match target"
                                  _%g156591156617%_))))
                            (_%g156589156716%_
                             (lambda (_%g156591156623%_)
                               (if (let ()
                                     (declare (not safe))
                                     (gx#stx-pair? _%g156591156623%_))
                                   (let ((_%e156595156625%_
                                          (let ()
                                            (declare (not safe))
                                            (gx#stx-e _%g156591156623%_))))
                                     (let ((_%hd156596156628%_
                                            (let ()
                                              (declare (not safe))
                                              (##car _%e156595156625%_)))
                                           (_%tl156597156630%_
                                            (let ()
                                              (declare (not safe))
                                              (##cdr _%e156595156625%_))))
                                       (if (let ()
                                             (declare (not safe))
                                             (gx#stx-pair? _%tl156597156630%_))
                                           (let ((_%e156598156633%_
                                                  (let ()
                                                    (declare (not safe))
                                                    (gx#stx-e
                                                     _%tl156597156630%_))))
                                             (let ((_%hd156599156636%_
                                                    (let ()
                                                      (declare (not safe))
                                                      (##car _%e156598156633%_)))
                                                   (_%tl156600156638%_
                                                    (let ()
                                                      (declare (not safe))
                                                      (##cdr _%e156598156633%_))))
                                               (if (let ()
                                                     (declare (not safe))
                                                     (gx#stx-pair?
                                                      _%hd156599156636%_))
                                                   (let ((_%e156601156641%_
                                                          (let ()
                                                            (declare
                                                              (not safe))
                                                            (gx#stx-e
                                                             _%hd156599156636%_))))
                                                     (let ((_%hd156602156644%_
                                                            (let ()
                                                              (declare
                                                                (not safe))
                                                              (##car _%e156601156641%_)))
                                                           (_%tl156603156646%_
                                                            (let ()
                                                              (declare
                                                                (not safe))
                                                              (##cdr _%e156601156641%_))))
                                                       (if (let ()
                                                             (declare
                                                               (not safe))
                                                             (gx#stx-pair?
                                                              _%hd156602156644%_))
                                                           (let ((_%e156604156649%_
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                          (let ()
                            (declare (not safe))
                            (gx#stx-e _%hd156602156644%_))))
                     (let ((_%hd156605156652%_
                            (let ()
                              (declare (not safe))
                              (##car _%e156604156649%_)))
                           (_%tl156606156654%_
                            (let ()
                              (declare (not safe))
                              (##cdr _%e156604156649%_))))
                       (if (let ()
                             (declare (not safe))
                             (gx#stx-pair? _%hd156605156652%_))
                           (let ((_%e156607156657%_
                                  (let ()
                                    (declare (not safe))
                                    (gx#stx-e _%hd156605156652%_))))
                             (let ((_%hd156608156660%_
                                    (let ()
                                      (declare (not safe))
                                      (##car _%e156607156657%_)))
                                   (_%tl156609156662%_
                                    (let ()
                                      (declare (not safe))
                                      (##cdr _%e156607156657%_))))
                               (if (let ()
                                     (declare (not safe))
                                     (gx#stx-null? _%tl156609156662%_))
                                   (if (let ()
                                         (declare (not safe))
                                         (gx#stx-pair? _%tl156606156654%_))
                                       (let ((_%e156610156665%_
                                              (let ()
                                                (declare (not safe))
                                                (gx#stx-e
                                                 _%tl156606156654%_))))
                                         (let ((_%hd156611156668%_
                                                (let ()
                                                  (declare (not safe))
                                                  (##car _%e156610156665%_)))
                                               (_%tl156612156670%_
                                                (let ()
                                                  (declare (not safe))
                                                  (##cdr _%e156610156665%_))))
                                           (if (let ()
                                                 (declare (not safe))
                                                 (gx#stx-null?
                                                  _%tl156612156670%_))
                                               (if (let ()
                                                     (declare (not safe))
                                                     (gx#stx-null?
                                                      _%tl156603156646%_))
                                                   (if (let ()
                                                         (declare (not safe))
                                                         (gx#stx-pair?
                                                          _%tl156600156638%_))
                                                       (let ((_%e156613156673%_
                                                              (let ()
                                                                (declare
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                          (not safe))
                        (gx#stx-e _%tl156600156638%_))))
                 (let ((_%hd156614156676%_
                        (let ()
                          (declare (not safe))
                          (##car _%e156613156673%_)))
                       (_%tl156615156678%_
                        (let ()
                          (declare (not safe))
                          (##cdr _%e156613156673%_))))
                   (if (let ()
                         (declare (not safe))
                         (gx#stx-null? _%tl156615156678%_))
                       ((lambda (_%L156681%_ _%L156682%_ _%L156683%_)
                          (let* ((_%lambda-id156707%_
                                  (let ((__tmp171112
                                         (let ()
                                           (declare (not safe))
                                           (gx#stx-e _%L156574%_)))
                                        (__tmp171111
                                         (_%opt-lambda-dispatch-name156137%_
                                          (let ()
                                            (declare (not safe))
                                            (gx#stx-e _%L156683%_)))))
                                    (declare (not safe))
                                    (make-symbol__1
                                     __tmp171112
                                     '"__"
                                     __tmp171111)))
                                 (_%lambda-id156709%_
                                  (let ((__tmp171113
                                         (let ()
                                           (declare (not safe))
                                           (gx#stx-source _%stx156134%_))))
                                    (declare (not safe))
                                    (gx#core-quote-syntax__1
                                     _%lambda-id156707%_
                                     __tmp171113)))
                                 (_%_156711%_
                                  (let ()
                                    (declare (not safe))
                                    (gx#core-bind-runtime!__0
                                     _%lambda-id156709%_)))
                                 (_%new-case-lambda-expr156713%_
                                  (let ()
                                    (declare (not safe))
                                    (gxc#apply-expression-subst__%
                                     '#f
                                     _%L156683%_
                                     _%lambda-id156709%_
                                     _%L156681%_))))
                            (let ((__tmp171115
                                   (let ()
                                     (declare (not safe))
                                     (gxc#identifier-symbol _%L156574%_)))
                                  (__tmp171114
                                   (let ()
                                     (declare (not safe))
                                     (gxc#identifier-symbol
                                      _%lambda-id156709%_))))
                              (declare (not safe))
                              (gxc#verbose
                               '"lift opt-lambda dispatch "
                               __tmp171115
                               '" => "
                               __tmp171114))
                            (let ((__tmp171116
                                   (cons '%#begin
                                         (cons (let ((__tmp171117
                                                      (cons '%#define-values
                                                            (cons (cons _%lambda-id156709%_
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                                '())
                          (cons (let ()
                                  (declare (not safe))
                                  (gxc#compile-e__1
                                   _%self156133%_
                                   _%L156682%_))
                                '())))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                                 (declare (not safe))
                                                 (gxc#xform-wrap-source
                                                  __tmp171117
                                                  _%stx156134%_))
                                               (cons (gxc#lift-top-lambda-define-values%
                                                      _%self156133%_
                                                      (let ((__tmp171118
                                                             (cons '%#define-values
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                           (cons (cons _%L156574%_ '())
                                 (cons _%new-case-lambda-expr156713%_ '())))))
                (declare (not safe))
                (gxc#xform-wrap-source __tmp171118 _%stx156134%_)))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                                     '())))))
                              (declare (not safe))
                              (gxc#xform-wrap-source
                               __tmp171116
                               _%stx156134%_))))
                        _%hd156614156676%_
                        _%hd156611156668%_
                        _%hd156608156660%_)
                       (_%g156590156620%_ _%g156591156623%_))))
               (_%g156590156620%_ _%g156591156623%_))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                                   (_%g156590156620%_
                                                    _%g156591156623%_))
                                               (_%g156590156620%_
                                                _%g156591156623%_))))
                                       (_%g156590156620%_ _%g156591156623%_))
                                   (_%g156590156620%_ _%g156591156623%_))))
                           (_%g156590156620%_ _%g156591156623%_))))
                   (_%g156590156620%_ _%g156591156623%_))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                                   (_%g156590156620%_
                                                    _%g156591156623%_))))
                                           (_%g156590156620%_
                                            _%g156591156623%_))))
                                   (_%g156590156620%_ _%g156591156623%_)))))
                       (_%g156589156716%_ _%L156573%_))))
                  (_%__kont170323170324%_
                   (lambda (_%L156285%_ _%L156286%_)
                     (let* ((_%g156302156355%_
                             (lambda (_%g156303156352%_)
                               (let ()
                                 (declare (not safe))
                                 (gx#raise-syntax-error
                                  '#f
                                  '"Bad syntax; invalid match target"
                                  _%g156303156352%_))))
                            (_%g156301156533%_
                             (lambda (_%g156303156358%_)
                               (if (let ()
                                     (declare (not safe))
                                     (gx#stx-pair? _%g156303156358%_))
                                   (let ((_%e156309156360%_
                                          (let ()
                                            (declare (not safe))
                                            (gx#stx-e _%g156303156358%_))))
                                     (let ((_%hd156310156363%_
                                            (let ()
                                              (declare (not safe))
                                              (##car _%e156309156360%_)))
                                           (_%tl156311156365%_
                                            (let ()
                                              (declare (not safe))
                                              (##cdr _%e156309156360%_))))
                                       (if (let ()
                                             (declare (not safe))
                                             (gx#stx-pair? _%tl156311156365%_))
                                           (let ((_%e156312156368%_
                                                  (let ()
                                                    (declare (not safe))
                                                    (gx#stx-e
                                                     _%tl156311156365%_))))
                                             (let ((_%hd156313156371%_
                                                    (let ()
                                                      (declare (not safe))
                                                      (##car _%e156312156368%_)))
                                                   (_%tl156314156373%_
                                                    (let ()
                                                      (declare (not safe))
                                                      (##cdr _%e156312156368%_))))
                                               (if (let ()
                                                     (declare (not safe))
                                                     (gx#stx-pair?
                                                      _%hd156313156371%_))
                                                   (let ((_%e156315156376%_
                                                          (let ()
                                                            (declare
                                                              (not safe))
                                                            (gx#stx-e
                                                             _%hd156313156371%_))))
                                                     (let ((_%hd156316156379%_
                                                            (let ()
                                                              (declare
                                                                (not safe))
                                                              (##car _%e156315156376%_)))
                                                           (_%tl156317156381%_
                                                            (let ()
                                                              (declare
                                                                (not safe))
                                                              (##cdr _%e156315156376%_))))
                                                       (if (let ()
                                                             (declare
                                                               (not safe))
                                                             (gx#stx-pair?
                                                              _%hd156316156379%_))
                                                           (let ((_%e156318156384%_
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                          (let ()
                            (declare (not safe))
                            (gx#stx-e _%hd156316156379%_))))
                     (let ((_%hd156319156387%_
                            (let ()
                              (declare (not safe))
                              (##car _%e156318156384%_)))
                           (_%tl156320156389%_
                            (let ()
                              (declare (not safe))
                              (##cdr _%e156318156384%_))))
                       (if (let ()
                             (declare (not safe))
                             (gx#stx-pair? _%hd156319156387%_))
                           (let ((_%e156321156392%_
                                  (let ()
                                    (declare (not safe))
                                    (gx#stx-e _%hd156319156387%_))))
                             (let ((_%hd156322156395%_
                                    (let ()
                                      (declare (not safe))
                                      (##car _%e156321156392%_)))
                                   (_%tl156323156397%_
                                    (let ()
                                      (declare (not safe))
                                      (##cdr _%e156321156392%_))))
                               (if (let ()
                                     (declare (not safe))
                                     (gx#stx-null? _%tl156323156397%_))
                                   (if (let ()
                                         (declare (not safe))
                                         (gx#stx-pair? _%tl156320156389%_))
                                       (let ((_%e156324156400%_
                                              (let ()
                                                (declare (not safe))
                                                (gx#stx-e
                                                 _%tl156320156389%_))))
                                         (let ((_%hd156325156403%_
                                                (let ()
                                                  (declare (not safe))
                                                  (##car _%e156324156400%_)))
                                               (_%tl156326156405%_
                                                (let ()
                                                  (declare (not safe))
                                                  (##cdr _%e156324156400%_))))
                                           (if (let ()
                                                 (declare (not safe))
                                                 (gx#stx-pair?
                                                  _%hd156325156403%_))
                                               (let ((_%e156327156408%_
                                                      (let ()
                                                        (declare (not safe))
                                                        (gx#stx-e
                                                         _%hd156325156403%_))))
                                                 (let ((_%hd156328156411%_
                                                        (let ()
                                                          (declare (not safe))
                                                          (##car _%e156327156408%_)))
                                                       (_%tl156329156413%_
                                                        (let ()
                                                          (declare (not safe))
                                                          (##cdr _%e156327156408%_))))
                                                   (if (let ()
                                                         (declare (not safe))
                                                         (gx#stx-pair?
                                                          _%tl156329156413%_))
                                                       (let ((_%e156330156416%_
                                                              (let ()
                                                                (declare
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                          (not safe))
                        (gx#stx-e _%tl156329156413%_))))
                 (let ((_%hd156331156419%_
                        (let ()
                          (declare (not safe))
                          (##car _%e156330156416%_)))
                       (_%tl156332156421%_
                        (let ()
                          (declare (not safe))
                          (##cdr _%e156330156416%_))))
                   (if (let ()
                         (declare (not safe))
                         (gx#stx-pair? _%hd156331156419%_))
                       (let ((_%e156333156424%_
                              (let ()
                                (declare (not safe))
                                (gx#stx-e _%hd156331156419%_))))
                         (let ((_%hd156334156427%_
                                (let ()
                                  (declare (not safe))
                                  (##car _%e156333156424%_)))
                               (_%tl156335156429%_
                                (let ()
                                  (declare (not safe))
                                  (##cdr _%e156333156424%_))))
                           (if (let ()
                                 (declare (not safe))
                                 (gx#stx-pair? _%hd156334156427%_))
                               (let ((_%e156336156432%_
                                      (let ()
                                        (declare (not safe))
                                        (gx#stx-e _%hd156334156427%_))))
                                 (let ((_%hd156337156435%_
                                        (let ()
                                          (declare (not safe))
                                          (##car _%e156336156432%_)))
                                       (_%tl156338156437%_
                                        (let ()
                                          (declare (not safe))
                                          (##cdr _%e156336156432%_))))
                                   (if (let ()
                                         (declare (not safe))
                                         (gx#stx-pair? _%hd156337156435%_))
                                       (let ((_%e156339156440%_
                                              (let ()
                                                (declare (not safe))
                                                (gx#stx-e
                                                 _%hd156337156435%_))))
                                         (let ((_%hd156340156443%_
                                                (let ()
                                                  (declare (not safe))
                                                  (##car _%e156339156440%_)))
                                               (_%tl156341156445%_
                                                (let ()
                                                  (declare (not safe))
                                                  (##cdr _%e156339156440%_))))
                                           (if (let ()
                                                 (declare (not safe))
                                                 (gx#stx-null?
                                                  _%tl156341156445%_))
                                               (if (let ()
                                                     (declare (not safe))
                                                     (gx#stx-pair?
                                                      _%tl156338156437%_))
                                                   (let ((_%e156342156448%_
                                                          (let ()
                                                            (declare
                                                              (not safe))
                                                            (gx#stx-e
                                                             _%tl156338156437%_))))
                                                     (let ((_%hd156343156451%_
                                                            (let ()
                                                              (declare
                                                                (not safe))
                                                              (##car _%e156342156448%_)))
                                                           (_%tl156344156453%_
                                                            (let ()
                                                              (declare
                                                                (not safe))
                                                              (##cdr _%e156342156448%_))))
                                                       (if (let ()
                                                             (declare
                                                               (not safe))
                                                             (gx#stx-null?
                                                              _%tl156344156453%_))
                                                           (if (let ()
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                         (declare (not safe))
                         (gx#stx-null? _%tl156335156429%_))
                       (if (let ()
                             (declare (not safe))
                             (gx#stx-pair? _%tl156332156421%_))
                           (let ((_%e156345156456%_
                                  (let ()
                                    (declare (not safe))
                                    (gx#stx-e _%tl156332156421%_))))
                             (let ((_%hd156346156459%_
                                    (let ()
                                      (declare (not safe))
                                      (##car _%e156345156456%_)))
                                   (_%tl156347156461%_
                                    (let ()
                                      (declare (not safe))
                                      (##cdr _%e156345156456%_))))
                               (if (let ()
                                     (declare (not safe))
                                     (gx#stx-null? _%tl156347156461%_))
                                   (if (let ()
                                         (declare (not safe))
                                         (gx#stx-null? _%tl156326156405%_))
                                       (if (let ()
                                             (declare (not safe))
                                             (gx#stx-null? _%tl156317156381%_))
                                           (if (let ()
                                                 (declare (not safe))
                                                 (gx#stx-pair?
                                                  _%tl156314156373%_))
                                               (let ((_%e156348156464%_
                                                      (let ()
                                                        (declare (not safe))
                                                        (gx#stx-e
                                                         _%tl156314156373%_))))
                                                 (let ((_%hd156349156467%_
                                                        (let ()
                                                          (declare (not safe))
                                                          (##car _%e156348156464%_)))
                                                       (_%tl156350156469%_
                                                        (let ()
                                                          (declare (not safe))
                                                          (##cdr _%e156348156464%_))))
                                                   (if (let ()
                                                         (declare (not safe))
                                                         (gx#stx-null?
                                                          _%tl156350156469%_))
                                                       ((lambda (_%L156472%_
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                         _%L156473%_
                         _%L156474%_
                         _%L156475%_
                         _%L156476%_)
                  (let* ((_%get-kws-id156516%_
                          (let ((__tmp171120
                                 (let ()
                                   (declare (not safe))
                                   (gx#stx-e _%L156286%_)))
                                (__tmp171119
                                 (_%kw-lambda-dispatch-name156138%_
                                  (let ()
                                    (declare (not safe))
                                    (gx#stx-e _%L156476%_))
                                  '"@")))
                            (declare (not safe))
                            (make-symbol__1 __tmp171120 '"__" __tmp171119)))
                         (_%get-kws-id156518%_
                          (let ((__tmp171121
                                 (let ()
                                   (declare (not safe))
                                   (gx#stx-source _%stx156134%_))))
                            (declare (not safe))
                            (gx#core-quote-syntax__1
                             _%get-kws-id156516%_
                             __tmp171121)))
                         (_%main-id156520%_
                          (let ((__tmp171123
                                 (let ()
                                   (declare (not safe))
                                   (gx#stx-e _%L156286%_)))
                                (__tmp171122
                                 (_%kw-lambda-dispatch-name156138%_
                                  (let ()
                                    (declare (not safe))
                                    (gx#stx-e _%L156475%_))
                                  '"%")))
                            (declare (not safe))
                            (make-symbol__1 __tmp171123 '"__" __tmp171122)))
                         (_%main-id156522%_
                          (let ((__tmp171124
                                 (let ()
                                   (declare (not safe))
                                   (gx#stx-source _%stx156134%_))))
                            (declare (not safe))
                            (gx#core-quote-syntax__1
                             _%main-id156520%_
                             __tmp171124)))
                         (_%_156524%_
                          (let ()
                            (declare (not safe))
                            (gx#core-bind-runtime!__0 _%get-kws-id156518%_)))
                         (_%_156526%_
                          (let ()
                            (declare (not safe))
                            (gx#core-bind-runtime!__0 _%main-id156522%_)))
                         (_%new-kw-dispatch156528%_
                          (let ()
                            (declare (not safe))
                            (gxc#apply-expression-subst__%
                             '#f
                             _%L156476%_
                             _%get-kws-id156518%_
                             _%L156472%_)))
                         (_%new-get-kws156530%_
                          (let ()
                            (declare (not safe))
                            (gxc#apply-expression-subst__%
                             '#f
                             _%L156475%_
                             _%main-id156522%_
                             _%L156473%_))))
                    (let ((__tmp171127
                           (let ()
                             (declare (not safe))
                             (gxc#identifier-symbol _%L156286%_)))
                          (__tmp171126
                           (let ()
                             (declare (not safe))
                             (gxc#identifier-symbol _%get-kws-id156518%_)))
                          (__tmp171125
                           (let ()
                             (declare (not safe))
                             (gxc#identifier-symbol _%main-id156522%_))))
                      (declare (not safe))
                      (gxc#verbose
                       '"lift kw-lambda dispatch "
                       __tmp171127
                       '" => "
                       __tmp171126
                       '" => "
                       __tmp171125))
                    (let ((__tmp171128
                           (cons '%#begin
                                 (cons (gxc#lift-top-lambda-define-values%
                                        _%self156133%_
                                        (let ((__tmp171129
                                               (cons '%#define-values
                                                     (cons (cons _%main-id156522%_
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                         '())
                   (cons _%L156474%_ '())))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                          (declare (not safe))
                                          (gxc#xform-wrap-source
                                           __tmp171129
                                           _%stx156134%_)))
                                       (cons (let ((__tmp171130
                                                    (cons '%#define-values
                                                          (cons (cons _%get-kws-id156518%_
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                              '())
                        (cons _%new-get-kws156530%_ '())))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                               (declare (not safe))
                                               (gxc#xform-wrap-source
                                                __tmp171130
                                                _%stx156134%_))
                                             (cons (let ((__tmp171131
                                                          (cons '%#define-values
                                                                (cons (cons _%L156286%_
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                                    '())
                              (cons _%new-kw-dispatch156528%_ '())))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                                     (declare (not safe))
                                                     (gxc#xform-wrap-source
                                                      __tmp171131
                                                      _%stx156134%_))
                                                   '()))))))
                      (declare (not safe))
                      (gxc#xform-wrap-source __tmp171128 _%stx156134%_))))
                _%hd156349156467%_
                _%hd156346156459%_
                _%hd156343156451%_
                _%hd156340156443%_
                _%hd156322156395%_)
               (_%g156302156355%_ _%g156303156358%_))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                               (_%g156302156355%_
                                                _%g156303156358%_))
                                           (_%g156302156355%_
                                            _%g156303156358%_))
                                       (_%g156302156355%_ _%g156303156358%_))
                                   (_%g156302156355%_ _%g156303156358%_))))
                           (_%g156302156355%_ _%g156303156358%_))
                       (_%g156302156355%_ _%g156303156358%_))
                   (_%g156302156355%_ _%g156303156358%_))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                                   (_%g156302156355%_
                                                    _%g156303156358%_))
                                               (_%g156302156355%_
                                                _%g156303156358%_))))
                                       (_%g156302156355%_ _%g156303156358%_))))
                               (_%g156302156355%_ _%g156303156358%_))))
                       (_%g156302156355%_ _%g156303156358%_))))
               (_%g156302156355%_ _%g156303156358%_))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                               (_%g156302156355%_
                                                _%g156303156358%_))))
                                       (_%g156302156355%_ _%g156303156358%_))
                                   (_%g156302156355%_ _%g156303156358%_))))
                           (_%g156302156355%_ _%g156303156358%_))))
                   (_%g156302156355%_ _%g156303156358%_))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                                   (_%g156302156355%_
                                                    _%g156303156358%_))))
                                           (_%g156302156355%_
                                            _%g156303156358%_))))
                                   (_%g156302156355%_ _%g156303156358%_)))))
                       (_%g156301156533%_ _%L156285%_))))
                  (_%__kont170325170326%_
                   (lambda (_%L156231%_ _%L156232%_)
                     (let ((__tmp171132
                            (cons '%#define-values
                                  (cons _%L156232%_
                                        (cons (let ()
                                                (declare (not safe))
                                                (gxc#compile-e__1
                                                 _%self156133%_
                                                 _%L156231%_))
                                              '())))))
                       (declare (not safe))
                       (gxc#xform-wrap-source __tmp171132 _%stx156134%_)))))
              (let* ((_%__match170410170411%_
                      (lambda (_%e156175156253%_
                               _%hd156176156256%_
                               _%tl156177156258%_
                               _%e156178156261%_
                               _%hd156179156264%_
                               _%tl156180156266%_
                               _%e156181156269%_
                               _%hd156182156272%_
                               _%tl156183156274%_
                               _%e156184156277%_
                               _%hd156185156280%_
                               _%tl156186156282%_)
                        (let ((_%L156285%_ _%hd156185156280%_)
                              (_%L156286%_ _%hd156182156272%_))
                          (if (and (let ()
                                     (declare (not safe))
                                     (gx#identifier? _%L156286%_))
                                   (gxc#kw-lambda-expr? _%L156285%_))
                              (_%__kont170323170324%_ _%L156285%_ _%L156286%_)
                              (_%__kont170325170326%_
                               _%hd156185156280%_
                               _%hd156179156264%_)))))
                     (_%__match170382170383%_
                      (lambda (_%e156161156541%_
                               _%hd156162156544%_
                               _%tl156163156546%_
                               _%e156164156549%_
                               _%hd156165156552%_
                               _%tl156166156554%_
                               _%e156167156557%_
                               _%hd156168156560%_
                               _%tl156169156562%_
                               _%e156170156565%_
                               _%hd156171156568%_
                               _%tl156172156570%_)
                        (let ((_%L156573%_ _%hd156171156568%_)
                              (_%L156574%_ _%hd156168156560%_))
                          (if (and (let ()
                                     (declare (not safe))
                                     (gx#identifier? _%L156574%_))
                                   (gxc#opt-lambda-expr? _%L156573%_))
                              (_%__kont170321170322%_ _%L156573%_ _%L156574%_)
                              (_%__match170410170411%_
                               _%e156161156541%_
                               _%hd156162156544%_
                               _%tl156163156546%_
                               _%e156164156549%_
                               _%hd156165156552%_
                               _%tl156166156554%_
                               _%e156167156557%_
                               _%hd156168156560%_
                               _%tl156169156562%_
                               _%e156170156565%_
                               _%hd156171156568%_
                               _%tl156172156570%_)))))
                     (_%__match170354170355%_
                      (lambda (_%e156147156724%_
                               _%hd156148156727%_
                               _%tl156149156729%_
                               _%e156150156732%_
                               _%hd156151156735%_
                               _%tl156152156737%_
                               _%e156153156740%_
                               _%hd156154156743%_
                               _%tl156155156745%_
                               _%e156156156748%_
                               _%hd156157156751%_
                               _%tl156158156753%_)
                        (let ((_%L156756%_ _%hd156157156751%_)
                              (_%L156757%_ _%hd156154156743%_))
                          (if (and (let ()
                                     (declare (not safe))
                                     (gx#identifier? _%L156757%_))
                                   (gxc#case-lambda-expr? _%L156756%_))
                              (_%__kont170319170320%_ _%L156756%_ _%L156757%_)
                              (_%__match170382170383%_
                               _%e156147156724%_
                               _%hd156148156727%_
                               _%tl156149156729%_
                               _%e156150156732%_
                               _%hd156151156735%_
                               _%tl156152156737%_
                               _%e156153156740%_
                               _%hd156154156743%_
                               _%tl156155156745%_
                               _%e156156156748%_
                               _%hd156157156751%_
                               _%tl156158156753%_))))))
                (if (let ()
                      (declare (not safe))
                      (gx#stx-pair? _%__stx170317170318%_))
                    (let ((_%e156147156724%_
                           (let ()
                             (declare (not safe))
                             (gx#stx-e _%__stx170317170318%_))))
                      (let ((_%tl156149156729%_
                             (let ()
                               (declare (not safe))
                               (##cdr _%e156147156724%_)))
                            (_%hd156148156727%_
                             (let ()
                               (declare (not safe))
                               (##car _%e156147156724%_))))
                        (if (let ()
                              (declare (not safe))
                              (gx#stx-pair? _%tl156149156729%_))
                            (let ((_%e156150156732%_
                                   (let ()
                                     (declare (not safe))
                                     (gx#stx-e _%tl156149156729%_))))
                              (let ((_%tl156152156737%_
                                     (let ()
                                       (declare (not safe))
                                       (##cdr _%e156150156732%_)))
                                    (_%hd156151156735%_
                                     (let ()
                                       (declare (not safe))
                                       (##car _%e156150156732%_))))
                                (if (let ()
                                      (declare (not safe))
                                      (gx#stx-pair? _%hd156151156735%_))
                                    (let ((_%e156153156740%_
                                           (let ()
                                             (declare (not safe))
                                             (gx#stx-e _%hd156151156735%_))))
                                      (let ((_%tl156155156745%_
                                             (let ()
                                               (declare (not safe))
                                               (##cdr _%e156153156740%_)))
                                            (_%hd156154156743%_
                                             (let ()
                                               (declare (not safe))
                                               (##car _%e156153156740%_))))
                                        (if (let ()
                                              (declare (not safe))
                                              (gx#stx-null?
                                               _%tl156155156745%_))
                                            (if (let ()
                                                  (declare (not safe))
                                                  (gx#stx-pair?
                                                   _%tl156152156737%_))
                                                (let ((_%e156156156748%_
                                                       (let ()
                                                         (declare (not safe))
                                                         (gx#stx-e
                                                          _%tl156152156737%_))))
                                                  (let ((_%tl156158156753%_
                                                         (let ()
                                                           (declare (not safe))
                                                           (##cdr _%e156156156748%_)))
                                                        (_%hd156157156751%_
                                                         (let ()
                                                           (declare (not safe))
                                                           (##car _%e156156156748%_))))
                                                    (if (let ()
                                                          (declare (not safe))
                                                          (gx#stx-null?
                                                           _%tl156158156753%_))
                                                        (_%__match170354170355%_
                                                         _%e156147156724%_
                                                         _%hd156148156727%_
                                                         _%tl156149156729%_
                                                         _%e156150156732%_
                                                         _%hd156151156735%_
                                                         _%tl156152156737%_
                                                         _%e156153156740%_
                                                         _%hd156154156743%_
                                                         _%tl156155156745%_
                                                         _%e156156156748%_
                                                         _%hd156157156751%_
                                                         _%tl156158156753%_)
                                                        (let ()
                                                          (declare (not safe))
                                                          (_%g156143156202%_)))))
                                                (let ()
                                                  (declare (not safe))
                                                  (_%g156143156202%_)))
                                            (if (let ()
                                                  (declare (not safe))
                                                  (gx#stx-pair?
                                                   _%tl156152156737%_))
                                                (let ((_%e156195156223%_
                                                       (let ()
                                                         (declare (not safe))
                                                         (gx#stx-e
                                                          _%tl156152156737%_))))
                                                  (let ((_%tl156197156228%_
                                                         (let ()
                                                           (declare (not safe))
                                                           (##cdr _%e156195156223%_)))
                                                        (_%hd156196156226%_
                                                         (let ()
                                                           (declare (not safe))
                                                           (##car _%e156195156223%_))))
                                                    (if (let ()
                                                          (declare (not safe))
                                                          (gx#stx-null?
                                                           _%tl156197156228%_))
                                                        (_%__kont170325170326%_
                                                         _%hd156196156226%_
                                                         _%hd156151156735%_)
                                                        (let ()
                                                          (declare (not safe))
                                                          (_%g156143156202%_)))))
                                                (let ()
                                                  (declare (not safe))
                                                  (_%g156143156202%_))))))
                                    (if (let ()
                                          (declare (not safe))
                                          (gx#stx-pair? _%tl156152156737%_))
                                        (let ((_%e156195156223%_
                                               (let ()
                                                 (declare (not safe))
                                                 (gx#stx-e
                                                  _%tl156152156737%_))))
                                          (let ((_%tl156197156228%_
                                                 (let ()
                                                   (declare (not safe))
                                                   (##cdr _%e156195156223%_)))
                                                (_%hd156196156226%_
                                                 (let ()
                                                   (declare (not safe))
                                                   (##car _%e156195156223%_))))
                                            (if (let ()
                                                  (declare (not safe))
                                                  (gx#stx-null?
                                                   _%tl156197156228%_))
                                                (_%__kont170325170326%_
                                                 _%hd156196156226%_
                                                 _%hd156151156735%_)
                                                (let ()
                                                  (declare (not safe))
                                                  (_%g156143156202%_)))))
                                        (let ()
                                          (declare (not safe))
                                          (_%g156143156202%_))))))
                            (let ()
                              (declare (not safe))
                              (_%g156143156202%_)))))
                    (let () (declare (not safe)) (_%g156143156202%_)))))))))
    (define gxc#lift-top-lambda-let-values%
      (lambda (_%self155060%_ _%stx155061%_)
        (letrec* ((_%bind-e__167796167797%_
                   (lambda (_%id156117%_ _%expr156118%_ _%compile?156119%_)
                     (cons (cons _%id156117%_ '())
                           (cons (if _%compile?156119%_
                                     (let ()
                                       (declare (not safe))
                                       (gxc#compile-e__1
                                        _%self155060%_
                                        _%expr156118%_))
                                     _%expr156118%_)
                                 '()))))
                  (_%bind-e__0__167798167799%_
                   (lambda (_%id156124%_ _%expr156125%_)
                     (let ((_%compile?156127%_ '#t))
                       (_%bind-e__167796167797%_
                        _%id156124%_
                        _%expr156125%_
                        _%compile?156127%_))))
                  (_%bind-e155063%_
                   (lambda _g171134_
                     (let ((_g171133_
                            (let ()
                              (declare (not safe))
                              (##length _g171134_))))
                       (cond ((let () (declare (not safe)) (##fx= _g171133_ 2))
                              (apply _%bind-e__0__167798167799%_ _g171134_))
                             ((let () (declare (not safe)) (##fx= _g171133_ 3))
                              (apply _%bind-e__167796167797%_ _g171134_))
                             (else
                              (##raise-wrong-number-of-arguments-exception
                               'case-lambda-dispatch
                               _g171134_))))))
                  (_%compile-bindings155064%_
                   (lambda (_%bindings155699%_)
                     (let _%lp155701%_ ((_%rest155703%_ _%bindings155699%_)
                                        (_%lift1155704%_ '())
                                        (_%lift2155705%_ '())
                                        (_%bind155706%_ '()))
                       (let* ((_%rest155707155715%_ _%rest155703%_)
                              (_%else155709155723%_
                               (lambda ()
                                 (values (reverse _%lift1155704%_)
                                         (reverse _%lift2155705%_)
                                         (reverse _%bind155706%_))))
                              (_%K155711156104%_
                               (lambda (_%rest155726%_ _%hd155727%_)
                                 (let* ((_%__stx170453170454%_ _%hd155727%_)
                                        (_%g155731155767%_
                                         (lambda ()
                                           (let ()
                                             (declare (not safe))
                                             (gx#raise-syntax-error
                                              '#f
                                              '"Bad syntax; invalid match target"
                                              _%__stx170453170454%_)))))
                                   (let ((_%__kont170455170456%_
                                          (lambda (_%L156010%_ _%L156011%_)
                                            (let* ((_%__stx170433170434%_
                                                    _%L156010%_)
                                                   (_%g156026156040%_
                                                    (lambda ()
                                                      (let ()
                                                        (declare (not safe))
                                                        (gx#raise-syntax-error
                                                         '#f
                                                         '"Bad syntax; invalid match target"
                                                         _%__stx170433170434%_)))))
                                              (let ((_%__kont170435170436%_
                                                     (lambda (_%L156089%_)
                                                       (_%lp155701%_
                                                        _%rest155726%_
                                                        _%lift1155704%_
                                                        _%lift2155705%_
                                                        (cons (_%bind-e__167796167797%_
                                                               _%L156011%_
                                                               _%L156010%_
                                                               '#f)
                                                              _%bind155706%_))))
                                                    (_%__kont170437170438%_
                                                     (lambda (_%L156053%_)
                                                       (let ((_g171135_
                                                              (gxc#lift-case-lambda-clauses__%
                                                               _%stx155061%_
                                                               _%L156011%_
                                                               _%L156053%_
                                                               '#t)))
                                                         (begin
                                                           (let ((_g171136_
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                          (let ()
                            (declare (not safe))
                            (if (##values? _g171135_)
                                (##vector-length _g171135_)
                                1))))
                     (if (not (let ()
                                (declare (not safe))
                                (##fx= _g171136_ 3)))
                         (error "Context expects 3 values" _g171136_)))
                   (let ((_%ids156063%_
                          (let ()
                            (declare (not safe))
                            (##vector-ref _g171135_ 0)))
                         (_%impls156064%_
                          (let ()
                            (declare (not safe))
                            (##vector-ref _g171135_ 1)))
                         (_%clauses156065%_
                          (let ()
                            (declare (not safe))
                            (##vector-ref _g171135_ 2))))
                     (let* ((_%_156067%_
                             (for-each gx#core-bind-runtime! _%ids156063%_))
                            (_%xbind156069%_
                             (map _%bind-e155063%_
                                  _%ids156063%_
                                  _%impls156064%_))
                            (_%expr*156071%_
                             (let ((__tmp171138
                                    (cons '%#case-lambda _%clauses156065%_))
                                   (__tmp171137
                                    (let ()
                                      (declare (not safe))
                                      (gx#datum->syntax__0
                                       '#f
                                       'case-lambda-expr))))
                               (declare (not safe))
                               (gxc#xform-wrap-source
                                __tmp171138
                                __tmp171137)))
                            (_%bind*156073%_
                             (_%bind-e__167796167797%_
                              _%L156011%_
                              _%expr*156071%_
                              '#f)))
                       (let ((__tmp171140
                              (let ()
                                (declare (not safe))
                                (gxc#identifier-symbol _%L156011%_)))
                             (__tmp171139
                              (map gxc#identifier-symbol _%ids156063%_)))
                         (declare (not safe))
                         (gxc#verbose
                          '"lift case-lambda clauses "
                          __tmp171140
                          '" => "
                          __tmp171139))
                       (_%lp155701%_
                        _%rest155726%_
                        _%lift1155704%_
                        (let ()
                          (declare (not safe))
                          (__foldl1 cons _%lift2155705%_ _%xbind156069%_))
                        (cons _%bind*156073%_ _%bind155706%_)))))))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                                (let ((_%__match170444170445%_
                                                       (lambda (_%e156029156081%_
                                                                _%hd156030156084%_
                                                                _%tl156031156086%_)
                                                         (let ((_%L156089%_
                                                                _%tl156031156086%_))
                                                           (if (let ()
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                         (declare (not safe))
                         (__andmap1 gxc#dispatch-lambda-form? _%L156089%_))
                       (_%__kont170435170436%_ _%L156089%_)
                       (_%__kont170437170438%_ _%tl156031156086%_))))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                                  (if (let ()
                                                        (declare (not safe))
                                                        (gx#stx-pair?
                                                         _%__stx170433170434%_))
                                                      (let ((_%e156029156081%_
                                                             (let ()
                                                               (declare
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                         (not safe))
                       (gx#stx-e _%__stx170433170434%_))))
                (let ((_%tl156031156086%_
                       (let () (declare (not safe)) (##cdr _%e156029156081%_)))
                      (_%hd156030156084%_
                       (let ()
                         (declare (not safe))
                         (##car _%e156029156081%_))))
                  (_%__match170444170445%_
                   _%e156029156081%_
                   _%hd156030156084%_
                   _%tl156031156086%_)))
              (let () (declare (not safe)) (_%g156026156040%_))))))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                         (_%__kont170457170458%_
                                          (lambda (_%L155837%_ _%L155838%_)
                                            (let* ((_%g155852155882%_
                                                    (lambda (_%g155853155879%_)
                                                      (let ()
                                                        (declare (not safe))
                                                        (gx#raise-syntax-error
                                                         '#f
                                                         '"Bad syntax; invalid match target"
                                                         _%g155853155879%_))))
                                                   (_%g155851155978%_
                                                    (lambda (_%g155853155885%_)
                                                      (if (let ()
                                                            (declare
                                                              (not safe))
                                                            (gx#stx-pair?
                                                             _%g155853155885%_))
                                                          (let ((_%e155857155887%_
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                         (let ()
                           (declare (not safe))
                           (gx#stx-e _%g155853155885%_))))
                    (let ((_%hd155858155890%_
                           (let ()
                             (declare (not safe))
                             (##car _%e155857155887%_)))
                          (_%tl155859155892%_
                           (let ()
                             (declare (not safe))
                             (##cdr _%e155857155887%_))))
                      (if (let ()
                            (declare (not safe))
                            (gx#stx-pair? _%tl155859155892%_))
                          (let ((_%e155860155895%_
                                 (let ()
                                   (declare (not safe))
                                   (gx#stx-e _%tl155859155892%_))))
                            (let ((_%hd155861155898%_
                                   (let ()
                                     (declare (not safe))
                                     (##car _%e155860155895%_)))
                                  (_%tl155862155900%_
                                   (let ()
                                     (declare (not safe))
                                     (##cdr _%e155860155895%_))))
                              (if (let ()
                                    (declare (not safe))
                                    (gx#stx-pair? _%hd155861155898%_))
                                  (let ((_%e155863155903%_
                                         (let ()
                                           (declare (not safe))
                                           (gx#stx-e _%hd155861155898%_))))
                                    (let ((_%hd155864155906%_
                                           (let ()
                                             (declare (not safe))
                                             (##car _%e155863155903%_)))
                                          (_%tl155865155908%_
                                           (let ()
                                             (declare (not safe))
                                             (##cdr _%e155863155903%_))))
                                      (if (let ()
                                            (declare (not safe))
                                            (gx#stx-pair? _%hd155864155906%_))
                                          (let ((_%e155866155911%_
                                                 (let ()
                                                   (declare (not safe))
                                                   (gx#stx-e
                                                    _%hd155864155906%_))))
                                            (let ((_%hd155867155914%_
                                                   (let ()
                                                     (declare (not safe))
                                                     (##car _%e155866155911%_)))
                                                  (_%tl155868155916%_
                                                   (let ()
                                                     (declare (not safe))
                                                     (##cdr _%e155866155911%_))))
                                              (if (let ()
                                                    (declare (not safe))
                                                    (gx#stx-pair?
                                                     _%hd155867155914%_))
                                                  (let ((_%e155869155919%_
                                                         (let ()
                                                           (declare (not safe))
                                                           (gx#stx-e
                                                            _%hd155867155914%_))))
                                                    (let ((_%hd155870155922%_
                                                           (let ()
                                                             (declare
                                                               (not safe))
                                                             (##car _%e155869155919%_)))
                                                          (_%tl155871155924%_
                                                           (let ()
                                                             (declare
                                                               (not safe))
                                                             (##cdr _%e155869155919%_))))
                                                      (if (let ()
                                                            (declare
                                                              (not safe))
                                                            (gx#stx-null?
                                                             _%tl155871155924%_))
                                                          (if (let ()
                                                                (declare
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                          (not safe))
                        (gx#stx-pair? _%tl155868155916%_))
                      (let ((_%e155872155927%_
                             (let ()
                               (declare (not safe))
                               (gx#stx-e _%tl155868155916%_))))
                        (let ((_%hd155873155930%_
                               (let ()
                                 (declare (not safe))
                                 (##car _%e155872155927%_)))
                              (_%tl155874155932%_
                               (let ()
                                 (declare (not safe))
                                 (##cdr _%e155872155927%_))))
                          (if (let ()
                                (declare (not safe))
                                (gx#stx-null? _%tl155874155932%_))
                              (if (let ()
                                    (declare (not safe))
                                    (gx#stx-null? _%tl155865155908%_))
                                  (if (let ()
                                        (declare (not safe))
                                        (gx#stx-pair? _%tl155862155900%_))
                                      (let ((_%e155875155935%_
                                             (let ()
                                               (declare (not safe))
                                               (gx#stx-e _%tl155862155900%_))))
                                        (let ((_%hd155876155938%_
                                               (let ()
                                                 (declare (not safe))
                                                 (##car _%e155875155935%_)))
                                              (_%tl155877155940%_
                                               (let ()
                                                 (declare (not safe))
                                                 (##cdr _%e155875155935%_))))
                                          (if (let ()
                                                (declare (not safe))
                                                (gx#stx-null?
                                                 _%tl155877155940%_))
                                              ((lambda (_%L155943%_
                                                        _%L155944%_
                                                        _%L155945%_)
                                                 (let* ((_%lambda-id155969%_
                                                         (let ((__tmp171142
                                                                (let ()
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                          (declare (not safe))
                          (gx#stx-e _%L155838%_)))
                       (__tmp171141
                        (let () (declare (not safe)) (##gensym '__))))
                   (declare (not safe))
                   (make-symbol__1 __tmp171142 __tmp171141)))
                (_%lambda-id155971%_
                 (let ((__tmp171143
                        (let ()
                          (declare (not safe))
                          (gx#stx-source _%stx155061%_))))
                   (declare (not safe))
                   (gx#core-quote-syntax__1 _%lambda-id155969%_ __tmp171143)))
                (_%_155973%_
                 (let ()
                   (declare (not safe))
                   (gx#core-bind-runtime!__0 _%lambda-id155971%_)))
                (_%new-case-lambda-expr155975%_
                 (let ()
                   (declare (not safe))
                   (gxc#apply-expression-subst__%
                    '#f
                    _%L155945%_
                    _%lambda-id155971%_
                    _%L155943%_))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                                   (let ((__tmp171145
                                                          (let ()
                                                            (declare
                                                              (not safe))
                                                            (gxc#identifier-symbol
                                                             _%L155838%_)))
                                                         (__tmp171144
                                                          (let ()
                                                            (declare
                                                              (not safe))
                                                            (gxc#identifier-symbol
                                                             _%lambda-id155971%_))))
                                                     (declare (not safe))
                                                     (gxc#verbose
                                                      '"lift opt-lambda dispatch "
                                                      __tmp171145
                                                      '" => "
                                                      __tmp171144))
                                                   (_%lp155701%_
                                                    (cons (_%bind-e__167796167797%_
                                                           _%L155838%_
                                                           _%new-case-lambda-expr155975%_
                                                           '#f)
                                                          _%rest155726%_)
                                                    (cons (_%bind-e__0__167798167799%_
                                                           _%lambda-id155971%_
                                                           _%L155944%_)
                                                          _%lift1155704%_)
                                                    _%lift2155705%_
                                                    _%bind155706%_)))
                                               _%hd155876155938%_
                                               _%hd155873155930%_
                                               _%hd155870155922%_)
                                              (_%g155852155882%_
                                               _%g155853155885%_))))
                                      (_%g155852155882%_ _%g155853155885%_))
                                  (_%g155852155882%_ _%g155853155885%_))
                              (_%g155852155882%_ _%g155853155885%_))))
                      (_%g155852155882%_ _%g155853155885%_))
                  (_%g155852155882%_ _%g155853155885%_))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                                  (_%g155852155882%_
                                                   _%g155853155885%_))))
                                          (_%g155852155882%_
                                           _%g155853155885%_))))
                                  (_%g155852155882%_ _%g155853155885%_))))
                          (_%g155852155882%_ _%g155853155885%_))))
                  (_%g155852155882%_ _%g155853155885%_)))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                              (_%g155851155978%_
                                               _%L155837%_))))
                                         (_%__kont170459170460%_
                                          (lambda (_%L155788%_ _%L155789%_)
                                            (_%lp155701%_
                                             _%rest155726%_
                                             _%lift1155704%_
                                             _%lift2155705%_
                                             (cons (cons _%L155789%_
                                                         (cons (let ()
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                         (declare (not safe))
                         (gxc#compile-e__1 _%self155060%_ _%L155788%_))
                       '()))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                                   _%bind155706%_)))))
                                     (let* ((_%__match170504170505%_
                                             (lambda (_%e155746155813%_
                                                      _%hd155747155816%_
                                                      _%tl155748155818%_
                                                      _%e155749155821%_
                                                      _%hd155750155824%_
                                                      _%tl155751155826%_
                                                      _%e155752155829%_
                                                      _%hd155753155832%_
                                                      _%tl155754155834%_)
                                               (let ((_%L155837%_
                                                      _%hd155753155832%_)
                                                     (_%L155838%_
                                                      _%hd155750155824%_))
                                                 (if (and (let ()
                                                            (declare
                                                              (not safe))
                                                            (gx#identifier?
                                                             _%L155838%_))
                                                          (gxc#opt-lambda-expr?
                                                           _%L155837%_))
                                                     (_%__kont170457170458%_
                                                      _%L155837%_
                                                      _%L155838%_)
                                                     (_%__kont170459170460%_
                                                      _%hd155753155832%_
                                                      _%hd155747155816%_)))))
                                            (_%__match170482170483%_
                                             (lambda (_%e155735155986%_
                                                      _%hd155736155989%_
                                                      _%tl155737155991%_
                                                      _%e155738155994%_
                                                      _%hd155739155997%_
                                                      _%tl155740155999%_
                                                      _%e155741156002%_
                                                      _%hd155742156005%_
                                                      _%tl155743156007%_)
                                               (let ((_%L156010%_
                                                      _%hd155742156005%_)
                                                     (_%L156011%_
                                                      _%hd155739155997%_))
                                                 (if (and (let ()
                                                            (declare
                                                              (not safe))
                                                            (gx#identifier?
                                                             _%L156011%_))
                                                          (gxc#case-lambda-expr?
                                                           _%L156010%_))
                                                     (_%__kont170455170456%_
                                                      _%L156010%_
                                                      _%L156011%_)
                                                     (_%__match170504170505%_
                                                      _%e155735155986%_
                                                      _%hd155736155989%_
                                                      _%tl155737155991%_
                                                      _%e155738155994%_
                                                      _%hd155739155997%_
                                                      _%tl155740155999%_
                                                      _%e155741156002%_
                                                      _%hd155742156005%_
                                                      _%tl155743156007%_))))))
                                       (if (let ()
                                             (declare (not safe))
                                             (gx#stx-pair?
                                              _%__stx170453170454%_))
                                           (let ((_%e155735155986%_
                                                  (let ()
                                                    (declare (not safe))
                                                    (gx#stx-e
                                                     _%__stx170453170454%_))))
                                             (let ((_%tl155737155991%_
                                                    (let ()
                                                      (declare (not safe))
                                                      (##cdr _%e155735155986%_)))
                                                   (_%hd155736155989%_
                                                    (let ()
                                                      (declare (not safe))
                                                      (##car _%e155735155986%_))))
                                               (if (let ()
                                                     (declare (not safe))
                                                     (gx#stx-pair?
                                                      _%hd155736155989%_))
                                                   (let ((_%e155738155994%_
                                                          (let ()
                                                            (declare
                                                              (not safe))
                                                            (gx#stx-e
                                                             _%hd155736155989%_))))
                                                     (let ((_%tl155740155999%_
                                                            (let ()
                                                              (declare
                                                                (not safe))
                                                              (##cdr _%e155738155994%_)))
                                                           (_%hd155739155997%_
                                                            (let ()
                                                              (declare
                                                                (not safe))
                                                              (##car _%e155738155994%_))))
                                                       (if (let ()
                                                             (declare
                                                               (not safe))
                                                             (gx#stx-null?
                                                              _%tl155740155999%_))
                                                           (if (let ()
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                         (declare (not safe))
                         (gx#stx-pair? _%tl155737155991%_))
                       (let ((_%e155741156002%_
                              (let ()
                                (declare (not safe))
                                (gx#stx-e _%tl155737155991%_))))
                         (let ((_%tl155743156007%_
                                (let ()
                                  (declare (not safe))
                                  (##cdr _%e155741156002%_)))
                               (_%hd155742156005%_
                                (let ()
                                  (declare (not safe))
                                  (##car _%e155741156002%_))))
                           (if (let ()
                                 (declare (not safe))
                                 (gx#stx-null? _%tl155743156007%_))
                               (_%__match170482170483%_
                                _%e155735155986%_
                                _%hd155736155989%_
                                _%tl155737155991%_
                                _%e155738155994%_
                                _%hd155739155997%_
                                _%tl155740155999%_
                                _%e155741156002%_
                                _%hd155742156005%_
                                _%tl155743156007%_)
                               (let ()
                                 (declare (not safe))
                                 (_%g155731155767%_)))))
                       (let () (declare (not safe)) (_%g155731155767%_)))
                   (if (let ()
                         (declare (not safe))
                         (gx#stx-pair? _%tl155737155991%_))
                       (let ((_%e155760155780%_
                              (let ()
                                (declare (not safe))
                                (gx#stx-e _%tl155737155991%_))))
                         (let ((_%tl155762155785%_
                                (let ()
                                  (declare (not safe))
                                  (##cdr _%e155760155780%_)))
                               (_%hd155761155783%_
                                (let ()
                                  (declare (not safe))
                                  (##car _%e155760155780%_))))
                           (if (let ()
                                 (declare (not safe))
                                 (gx#stx-null? _%tl155762155785%_))
                               (_%__kont170459170460%_
                                _%hd155761155783%_
                                _%hd155736155989%_)
                               (let ()
                                 (declare (not safe))
                                 (_%g155731155767%_)))))
                       (let () (declare (not safe)) (_%g155731155767%_))))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                                   (if (let ()
                                                         (declare (not safe))
                                                         (gx#stx-pair?
                                                          _%tl155737155991%_))
                                                       (let ((_%e155760155780%_
                                                              (let ()
                                                                (declare
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                          (not safe))
                        (gx#stx-e _%tl155737155991%_))))
                 (let ((_%tl155762155785%_
                        (let ()
                          (declare (not safe))
                          (##cdr _%e155760155780%_)))
                       (_%hd155761155783%_
                        (let ()
                          (declare (not safe))
                          (##car _%e155760155780%_))))
                   (if (let ()
                         (declare (not safe))
                         (gx#stx-null? _%tl155762155785%_))
                       (_%__kont170459170460%_
                        _%hd155761155783%_
                        _%hd155736155989%_)
                       (let () (declare (not safe)) (_%g155731155767%_)))))
               (let () (declare (not safe)) (_%g155731155767%_))))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                           (let ()
                                             (declare (not safe))
                                             (_%g155731155767%_)))))))))
                         (if (pair? _%rest155707155715%_)
                             (let ((_%hd155712156107%_
                                    (let ()
                                      (declare (not safe))
                                      (##car _%rest155707155715%_)))
                                   (_%tl155713156109%_
                                    (let ()
                                      (declare (not safe))
                                      (##cdr _%rest155707155715%_))))
                               (let* ((_%hd156112%_ _%hd155712156107%_)
                                      (_%rest156114%_ _%tl155713156109%_))
                                 (_%K155711156104%_
                                  _%rest156114%_
                                  _%hd156112%_)))
                             (_%else155709155723%_))))))
                  (_%lift-kw-lambda?155065%_
                   (lambda (_%bind155623%_)
                     (let* ((_%__stx170521170522%_ _%bind155623%_)
                            (_%g155626155643%_
                             (lambda ()
                               (let ()
                                 (declare (not safe))
                                 (gx#raise-syntax-error
                                  '#f
                                  '"Bad syntax; invalid match target"
                                  _%__stx170521170522%_)))))
                       (let ((_%__kont170523170524%_
                              (lambda (_%L155679%_ _%L155680%_)
                                (if (let ()
                                      (declare (not safe))
                                      (gx#identifier? _%L155680%_))
                                    (gxc#kw-lambda-expr? _%L155679%_)
                                    '#f)))
                             (_%__kont170525170526%_ (lambda () '#f)))
                         (if (let ()
                               (declare (not safe))
                               (gx#stx-pair? _%__stx170521170522%_))
                             (let ((_%e155630155655%_
                                    (let ()
                                      (declare (not safe))
                                      (gx#stx-e _%__stx170521170522%_))))
                               (let ((_%tl155632155660%_
                                      (let ()
                                        (declare (not safe))
                                        (##cdr _%e155630155655%_)))
                                     (_%hd155631155658%_
                                      (let ()
                                        (declare (not safe))
                                        (##car _%e155630155655%_))))
                                 (if (let ()
                                       (declare (not safe))
                                       (gx#stx-pair? _%hd155631155658%_))
                                     (let ((_%e155633155663%_
                                            (let ()
                                              (declare (not safe))
                                              (gx#stx-e _%hd155631155658%_))))
                                       (let ((_%tl155635155668%_
                                              (let ()
                                                (declare (not safe))
                                                (##cdr _%e155633155663%_)))
                                             (_%hd155634155666%_
                                              (let ()
                                                (declare (not safe))
                                                (##car _%e155633155663%_))))
                                         (if (let ()
                                               (declare (not safe))
                                               (gx#stx-null?
                                                _%tl155635155668%_))
                                             (if (let ()
                                                   (declare (not safe))
                                                   (gx#stx-pair?
                                                    _%tl155632155660%_))
                                                 (let ((_%e155636155671%_
                                                        (let ()
                                                          (declare (not safe))
                                                          (gx#stx-e
                                                           _%tl155632155660%_))))
                                                   (let ((_%tl155638155676%_
                                                          (let ()
                                                            (declare
                                                              (not safe))
                                                            (##cdr _%e155636155671%_)))
                                                         (_%hd155637155674%_
                                                          (let ()
                                                            (declare
                                                              (not safe))
                                                            (##car _%e155636155671%_))))
                                                     (if (let ()
                                                           (declare (not safe))
                                                           (gx#stx-null?
                                                            _%tl155638155676%_))
                                                         (_%__kont170523170524%_
                                                          _%hd155637155674%_
                                                          _%hd155634155666%_)
                                                         (_%__kont170525170526%_))))
                                                 (_%__kont170525170526%_))
                                             (_%__kont170525170526%_))))
                                     (_%__kont170525170526%_))))
                             (_%__kont170525170526%_))))))
                  (_%lift-kw-lambda-bindings155066%_
                   (lambda (_%bindings155233%_)
                     (let _%lp155235%_ ((_%rest155237%_ _%bindings155233%_)
                                        (_%lift1155238%_ '())
                                        (_%lift2155239%_ '())
                                        (_%bind155240%_ '()))
                       (let* ((_%rest155241155249%_ _%rest155237%_)
                              (_%else155243155257%_
                               (lambda ()
                                 (values (reverse _%lift1155238%_)
                                         (reverse _%lift2155239%_)
                                         (reverse _%bind155240%_))))
                              (_%K155245155611%_
                               (lambda (_%rest155260%_ _%hd155261%_)
                                 (let* ((_%__stx170551170552%_ _%hd155261%_)
                                        (_%g155264155289%_
                                         (lambda ()
                                           (let ()
                                             (declare (not safe))
                                             (gx#raise-syntax-error
                                              '#f
                                              '"Bad syntax; invalid match target"
                                              _%__stx170551170552%_)))))
                                   (let ((_%__kont170553170554%_
                                          (lambda (_%L155359%_ _%L155360%_)
                                            (let* ((_%g155374155427%_
                                                    (lambda (_%g155375155424%_)
                                                      (let ()
                                                        (declare (not safe))
                                                        (gx#raise-syntax-error
                                                         '#f
                                                         '"Bad syntax; invalid match target"
                                                         _%g155375155424%_))))
                                                   (_%g155373155605%_
                                                    (lambda (_%g155375155430%_)
                                                      (if (let ()
                                                            (declare
                                                              (not safe))
                                                            (gx#stx-pair?
                                                             _%g155375155430%_))
                                                          (let ((_%e155381155432%_
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                         (let ()
                           (declare (not safe))
                           (gx#stx-e _%g155375155430%_))))
                    (let ((_%hd155382155435%_
                           (let ()
                             (declare (not safe))
                             (##car _%e155381155432%_)))
                          (_%tl155383155437%_
                           (let ()
                             (declare (not safe))
                             (##cdr _%e155381155432%_))))
                      (if (let ()
                            (declare (not safe))
                            (gx#stx-pair? _%tl155383155437%_))
                          (let ((_%e155384155440%_
                                 (let ()
                                   (declare (not safe))
                                   (gx#stx-e _%tl155383155437%_))))
                            (let ((_%hd155385155443%_
                                   (let ()
                                     (declare (not safe))
                                     (##car _%e155384155440%_)))
                                  (_%tl155386155445%_
                                   (let ()
                                     (declare (not safe))
                                     (##cdr _%e155384155440%_))))
                              (if (let ()
                                    (declare (not safe))
                                    (gx#stx-pair? _%hd155385155443%_))
                                  (let ((_%e155387155448%_
                                         (let ()
                                           (declare (not safe))
                                           (gx#stx-e _%hd155385155443%_))))
                                    (let ((_%hd155388155451%_
                                           (let ()
                                             (declare (not safe))
                                             (##car _%e155387155448%_)))
                                          (_%tl155389155453%_
                                           (let ()
                                             (declare (not safe))
                                             (##cdr _%e155387155448%_))))
                                      (if (let ()
                                            (declare (not safe))
                                            (gx#stx-pair? _%hd155388155451%_))
                                          (let ((_%e155390155456%_
                                                 (let ()
                                                   (declare (not safe))
                                                   (gx#stx-e
                                                    _%hd155388155451%_))))
                                            (let ((_%hd155391155459%_
                                                   (let ()
                                                     (declare (not safe))
                                                     (##car _%e155390155456%_)))
                                                  (_%tl155392155461%_
                                                   (let ()
                                                     (declare (not safe))
                                                     (##cdr _%e155390155456%_))))
                                              (if (let ()
                                                    (declare (not safe))
                                                    (gx#stx-pair?
                                                     _%hd155391155459%_))
                                                  (let ((_%e155393155464%_
                                                         (let ()
                                                           (declare (not safe))
                                                           (gx#stx-e
                                                            _%hd155391155459%_))))
                                                    (let ((_%hd155394155467%_
                                                           (let ()
                                                             (declare
                                                               (not safe))
                                                             (##car _%e155393155464%_)))
                                                          (_%tl155395155469%_
                                                           (let ()
                                                             (declare
                                                               (not safe))
                                                             (##cdr _%e155393155464%_))))
                                                      (if (let ()
                                                            (declare
                                                              (not safe))
                                                            (gx#stx-null?
                                                             _%tl155395155469%_))
                                                          (if (let ()
                                                                (declare
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                          (not safe))
                        (gx#stx-pair? _%tl155392155461%_))
                      (let ((_%e155396155472%_
                             (let ()
                               (declare (not safe))
                               (gx#stx-e _%tl155392155461%_))))
                        (let ((_%hd155397155475%_
                               (let ()
                                 (declare (not safe))
                                 (##car _%e155396155472%_)))
                              (_%tl155398155477%_
                               (let ()
                                 (declare (not safe))
                                 (##cdr _%e155396155472%_))))
                          (if (let ()
                                (declare (not safe))
                                (gx#stx-pair? _%hd155397155475%_))
                              (let ((_%e155399155480%_
                                     (let ()
                                       (declare (not safe))
                                       (gx#stx-e _%hd155397155475%_))))
                                (let ((_%hd155400155483%_
                                       (let ()
                                         (declare (not safe))
                                         (##car _%e155399155480%_)))
                                      (_%tl155401155485%_
                                       (let ()
                                         (declare (not safe))
                                         (##cdr _%e155399155480%_))))
                                  (if (let ()
                                        (declare (not safe))
                                        (gx#stx-pair? _%tl155401155485%_))
                                      (let ((_%e155402155488%_
                                             (let ()
                                               (declare (not safe))
                                               (gx#stx-e _%tl155401155485%_))))
                                        (let ((_%hd155403155491%_
                                               (let ()
                                                 (declare (not safe))
                                                 (##car _%e155402155488%_)))
                                              (_%tl155404155493%_
                                               (let ()
                                                 (declare (not safe))
                                                 (##cdr _%e155402155488%_))))
                                          (if (let ()
                                                (declare (not safe))
                                                (gx#stx-pair?
                                                 _%hd155403155491%_))
                                              (let ((_%e155405155496%_
                                                     (let ()
                                                       (declare (not safe))
                                                       (gx#stx-e
                                                        _%hd155403155491%_))))
                                                (let ((_%hd155406155499%_
                                                       (let ()
                                                         (declare (not safe))
                                                         (##car _%e155405155496%_)))
                                                      (_%tl155407155501%_
                                                       (let ()
                                                         (declare (not safe))
                                                         (##cdr _%e155405155496%_))))
                                                  (if (let ()
                                                        (declare (not safe))
                                                        (gx#stx-pair?
                                                         _%hd155406155499%_))
                                                      (let ((_%e155408155504%_
                                                             (let ()
                                                               (declare
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                         (not safe))
                       (gx#stx-e _%hd155406155499%_))))
                (let ((_%hd155409155507%_
                       (let () (declare (not safe)) (##car _%e155408155504%_)))
                      (_%tl155410155509%_
                       (let ()
                         (declare (not safe))
                         (##cdr _%e155408155504%_))))
                  (if (let ()
                        (declare (not safe))
                        (gx#stx-pair? _%hd155409155507%_))
                      (let ((_%e155411155512%_
                             (let ()
                               (declare (not safe))
                               (gx#stx-e _%hd155409155507%_))))
                        (let ((_%hd155412155515%_
                               (let ()
                                 (declare (not safe))
                                 (##car _%e155411155512%_)))
                              (_%tl155413155517%_
                               (let ()
                                 (declare (not safe))
                                 (##cdr _%e155411155512%_))))
                          (if (let ()
                                (declare (not safe))
                                (gx#stx-null? _%tl155413155517%_))
                              (if (let ()
                                    (declare (not safe))
                                    (gx#stx-pair? _%tl155410155509%_))
                                  (let ((_%e155414155520%_
                                         (let ()
                                           (declare (not safe))
                                           (gx#stx-e _%tl155410155509%_))))
                                    (let ((_%hd155415155523%_
                                           (let ()
                                             (declare (not safe))
                                             (##car _%e155414155520%_)))
                                          (_%tl155416155525%_
                                           (let ()
                                             (declare (not safe))
                                             (##cdr _%e155414155520%_))))
                                      (if (let ()
                                            (declare (not safe))
                                            (gx#stx-null? _%tl155416155525%_))
                                          (if (let ()
                                                (declare (not safe))
                                                (gx#stx-null?
                                                 _%tl155407155501%_))
                                              (if (let ()
                                                    (declare (not safe))
                                                    (gx#stx-pair?
                                                     _%tl155404155493%_))
                                                  (let ((_%e155417155528%_
                                                         (let ()
                                                           (declare (not safe))
                                                           (gx#stx-e
                                                            _%tl155404155493%_))))
                                                    (let ((_%hd155418155531%_
                                                           (let ()
                                                             (declare
                                                               (not safe))
                                                             (##car _%e155417155528%_)))
                                                          (_%tl155419155533%_
                                                           (let ()
                                                             (declare
                                                               (not safe))
                                                             (##cdr _%e155417155528%_))))
                                                      (if (let ()
                                                            (declare
                                                              (not safe))
                                                            (gx#stx-null?
                                                             _%tl155419155533%_))
                                                          (if (let ()
                                                                (declare
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                          (not safe))
                        (gx#stx-null? _%tl155398155477%_))
                      (if (let ()
                            (declare (not safe))
                            (gx#stx-null? _%tl155389155453%_))
                          (if (let ()
                                (declare (not safe))
                                (gx#stx-pair? _%tl155386155445%_))
                              (let ((_%e155420155536%_
                                     (let ()
                                       (declare (not safe))
                                       (gx#stx-e _%tl155386155445%_))))
                                (let ((_%hd155421155539%_
                                       (let ()
                                         (declare (not safe))
                                         (##car _%e155420155536%_)))
                                      (_%tl155422155541%_
                                       (let ()
                                         (declare (not safe))
                                         (##cdr _%e155420155536%_))))
                                  (if (let ()
                                        (declare (not safe))
                                        (gx#stx-null? _%tl155422155541%_))
                                      ((lambda (_%L155544%_
                                                _%L155545%_
                                                _%L155546%_
                                                _%L155547%_
                                                _%L155548%_)
                                         (let* ((_%get-kws-id155588%_
                                                 (let ((__tmp171147
                                                        (let ()
                                                          (declare (not safe))
                                                          (gx#stx-e
                                                           _%L155360%_)))
                                                       (__tmp171146
                                                        (let ()
                                                          (declare (not safe))
                                                          (##gensym '__))))
                                                   (declare (not safe))
                                                   (make-symbol__1
                                                    __tmp171147
                                                    __tmp171146)))
                                                (_%get-kws-id155590%_
                                                 (let ((__tmp171148
                                                        (let ()
                                                          (declare (not safe))
                                                          (gx#stx-source
                                                           _%stx155061%_))))
                                                   (declare (not safe))
                                                   (gx#core-quote-syntax__1
                                                    _%get-kws-id155588%_
                                                    __tmp171148)))
                                                (_%main-id155592%_
                                                 (let ((__tmp171150
                                                        (let ()
                                                          (declare (not safe))
                                                          (gx#stx-e
                                                           _%L155360%_)))
                                                       (__tmp171149
                                                        (let ()
                                                          (declare (not safe))
                                                          (##gensym '__))))
                                                   (declare (not safe))
                                                   (make-symbol__1
                                                    __tmp171150
                                                    __tmp171149)))
                                                (_%main-id155594%_
                                                 (let ((__tmp171151
                                                        (let ()
                                                          (declare (not safe))
                                                          (gx#stx-source
                                                           _%stx155061%_))))
                                                   (declare (not safe))
                                                   (gx#core-quote-syntax__1
                                                    _%main-id155592%_
                                                    __tmp171151)))
                                                (_%_155596%_
                                                 (let ()
                                                   (declare (not safe))
                                                   (gx#core-bind-runtime!__0
                                                    _%get-kws-id155590%_)))
                                                (_%_155598%_
                                                 (let ()
                                                   (declare (not safe))
                                                   (gx#core-bind-runtime!__0
                                                    _%main-id155594%_)))
                                                (_%new-kw-dispatch155600%_
                                                 (let ()
                                                   (declare (not safe))
                                                   (gxc#apply-expression-subst__%
                                                    '#f
                                                    _%L155548%_
                                                    _%get-kws-id155590%_
                                                    _%L155544%_)))
                                                (_%new-get-kws155602%_
                                                 (let ()
                                                   (declare (not safe))
                                                   (gxc#apply-expression-subst__%
                                                    '#f
                                                    _%L155547%_
                                                    _%main-id155594%_
                                                    _%L155545%_))))
                                           (let ((__tmp171154
                                                  (let ()
                                                    (declare (not safe))
                                                    (gxc#identifier-symbol
                                                     _%L155360%_)))
                                                 (__tmp171153
                                                  (let ()
                                                    (declare (not safe))
                                                    (gxc#identifier-symbol
                                                     _%get-kws-id155590%_)))
                                                 (__tmp171152
                                                  (let ()
                                                    (declare (not safe))
                                                    (gxc#identifier-symbol
                                                     _%main-id155594%_))))
                                             (declare (not safe))
                                             (gxc#verbose
                                              '"lift kw-lambda dispatch "
                                              __tmp171154
                                              '" => "
                                              __tmp171153
                                              '" => "
                                              __tmp171152))
                                           (_%lp155235%_
                                            _%rest155260%_
                                            (cons (_%bind-e__167796167797%_
                                                   _%main-id155594%_
                                                   _%L155546%_
                                                   '#f)
                                                  _%lift1155238%_)
                                            (cons (_%bind-e__167796167797%_
                                                   _%get-kws-id155590%_
                                                   _%new-get-kws155602%_
                                                   '#f)
                                                  _%lift2155239%_)
                                            (cons (_%bind-e__167796167797%_
                                                   _%L155360%_
                                                   _%new-kw-dispatch155600%_
                                                   '#f)
                                                  _%bind155240%_))))
                                       _%hd155421155539%_
                                       _%hd155418155531%_
                                       _%hd155415155523%_
                                       _%hd155412155515%_
                                       _%hd155394155467%_)
                                      (_%g155374155427%_ _%g155375155430%_))))
                              (_%g155374155427%_ _%g155375155430%_))
                          (_%g155374155427%_ _%g155375155430%_))
                      (_%g155374155427%_ _%g155375155430%_))
                  (_%g155374155427%_ _%g155375155430%_))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                                  (_%g155374155427%_
                                                   _%g155375155430%_))
                                              (_%g155374155427%_
                                               _%g155375155430%_))
                                          (_%g155374155427%_
                                           _%g155375155430%_))))
                                  (_%g155374155427%_ _%g155375155430%_))
                              (_%g155374155427%_ _%g155375155430%_))))
                      (_%g155374155427%_ _%g155375155430%_))))
              (_%g155374155427%_ _%g155375155430%_))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                              (_%g155374155427%_
                                               _%g155375155430%_))))
                                      (_%g155374155427%_ _%g155375155430%_))))
                              (_%g155374155427%_ _%g155375155430%_))))
                      (_%g155374155427%_ _%g155375155430%_))
                  (_%g155374155427%_ _%g155375155430%_))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                                  (_%g155374155427%_
                                                   _%g155375155430%_))))
                                          (_%g155374155427%_
                                           _%g155375155430%_))))
                                  (_%g155374155427%_ _%g155375155430%_))))
                          (_%g155374155427%_ _%g155375155430%_))))
                  (_%g155374155427%_ _%g155375155430%_)))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                              (_%g155373155605%_
                                               _%L155359%_))))
                                         (_%__kont170555170556%_
                                          (lambda (_%L155310%_ _%L155311%_)
                                            (_%lp155235%_
                                             _%rest155260%_
                                             _%lift1155238%_
                                             _%lift2155239%_
                                             (cons (cons _%L155311%_
                                                         (cons _%L155310%_
                                                               '()))
                                                   _%bind155240%_)))))
                                     (let ((_%__match170578170579%_
                                            (lambda (_%e155268155335%_
                                                     _%hd155269155338%_
                                                     _%tl155270155340%_
                                                     _%e155271155343%_
                                                     _%hd155272155346%_
                                                     _%tl155273155348%_
                                                     _%e155274155351%_
                                                     _%hd155275155354%_
                                                     _%tl155276155356%_)
                                              (let ((_%L155359%_
                                                     _%hd155275155354%_)
                                                    (_%L155360%_
                                                     _%hd155272155346%_))
                                                (if (and (let ()
                                                           (declare (not safe))
                                                           (gx#identifier?
                                                            _%L155360%_))
                                                         (gxc#kw-lambda-expr?
                                                          _%L155359%_))
                                                    (_%__kont170553170554%_
                                                     _%L155359%_
                                                     _%L155360%_)
                                                    (_%__kont170555170556%_
                                                     _%hd155275155354%_
                                                     _%hd155269155338%_))))))
                                       (if (let ()
                                             (declare (not safe))
                                             (gx#stx-pair?
                                              _%__stx170551170552%_))
                                           (let ((_%e155268155335%_
                                                  (let ()
                                                    (declare (not safe))
                                                    (gx#stx-e
                                                     _%__stx170551170552%_))))
                                             (let ((_%tl155270155340%_
                                                    (let ()
                                                      (declare (not safe))
                                                      (##cdr _%e155268155335%_)))
                                                   (_%hd155269155338%_
                                                    (let ()
                                                      (declare (not safe))
                                                      (##car _%e155268155335%_))))
                                               (if (let ()
                                                     (declare (not safe))
                                                     (gx#stx-pair?
                                                      _%hd155269155338%_))
                                                   (let ((_%e155271155343%_
                                                          (let ()
                                                            (declare
                                                              (not safe))
                                                            (gx#stx-e
                                                             _%hd155269155338%_))))
                                                     (let ((_%tl155273155348%_
                                                            (let ()
                                                              (declare
                                                                (not safe))
                                                              (##cdr _%e155271155343%_)))
                                                           (_%hd155272155346%_
                                                            (let ()
                                                              (declare
                                                                (not safe))
                                                              (##car _%e155271155343%_))))
                                                       (if (let ()
                                                             (declare
                                                               (not safe))
                                                             (gx#stx-null?
                                                              _%tl155273155348%_))
                                                           (if (let ()
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                         (declare (not safe))
                         (gx#stx-pair? _%tl155270155340%_))
                       (let ((_%e155274155351%_
                              (let ()
                                (declare (not safe))
                                (gx#stx-e _%tl155270155340%_))))
                         (let ((_%tl155276155356%_
                                (let ()
                                  (declare (not safe))
                                  (##cdr _%e155274155351%_)))
                               (_%hd155275155354%_
                                (let ()
                                  (declare (not safe))
                                  (##car _%e155274155351%_))))
                           (if (let ()
                                 (declare (not safe))
                                 (gx#stx-null? _%tl155276155356%_))
                               (_%__match170578170579%_
                                _%e155268155335%_
                                _%hd155269155338%_
                                _%tl155270155340%_
                                _%e155271155343%_
                                _%hd155272155346%_
                                _%tl155273155348%_
                                _%e155274155351%_
                                _%hd155275155354%_
                                _%tl155276155356%_)
                               (let ()
                                 (declare (not safe))
                                 (_%g155264155289%_)))))
                       (let () (declare (not safe)) (_%g155264155289%_)))
                   (if (let ()
                         (declare (not safe))
                         (gx#stx-pair? _%tl155270155340%_))
                       (let ((_%e155282155302%_
                              (let ()
                                (declare (not safe))
                                (gx#stx-e _%tl155270155340%_))))
                         (let ((_%tl155284155307%_
                                (let ()
                                  (declare (not safe))
                                  (##cdr _%e155282155302%_)))
                               (_%hd155283155305%_
                                (let ()
                                  (declare (not safe))
                                  (##car _%e155282155302%_))))
                           (if (let ()
                                 (declare (not safe))
                                 (gx#stx-null? _%tl155284155307%_))
                               (_%__kont170555170556%_
                                _%hd155283155305%_
                                _%hd155269155338%_)
                               (let ()
                                 (declare (not safe))
                                 (_%g155264155289%_)))))
                       (let () (declare (not safe)) (_%g155264155289%_))))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                                   (if (let ()
                                                         (declare (not safe))
                                                         (gx#stx-pair?
                                                          _%tl155270155340%_))
                                                       (let ((_%e155282155302%_
                                                              (let ()
                                                                (declare
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                          (not safe))
                        (gx#stx-e _%tl155270155340%_))))
                 (let ((_%tl155284155307%_
                        (let ()
                          (declare (not safe))
                          (##cdr _%e155282155302%_)))
                       (_%hd155283155305%_
                        (let ()
                          (declare (not safe))
                          (##car _%e155282155302%_))))
                   (if (let ()
                         (declare (not safe))
                         (gx#stx-null? _%tl155284155307%_))
                       (_%__kont170555170556%_
                        _%hd155283155305%_
                        _%hd155269155338%_)
                       (let () (declare (not safe)) (_%g155264155289%_)))))
               (let () (declare (not safe)) (_%g155264155289%_))))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                           (let ()
                                             (declare (not safe))
                                             (_%g155264155289%_)))))))))
                         (if (pair? _%rest155241155249%_)
                             (let ((_%hd155246155614%_
                                    (let ()
                                      (declare (not safe))
                                      (##car _%rest155241155249%_)))
                                   (_%tl155247155616%_
                                    (let ()
                                      (declare (not safe))
                                      (##cdr _%rest155241155249%_))))
                               (let* ((_%hd155619%_ _%hd155246155614%_)
                                      (_%rest155621%_ _%tl155247155616%_))
                                 (_%K155245155611%_
                                  _%rest155621%_
                                  _%hd155619%_)))
                             (_%else155243155257%_)))))))
          (let* ((_%__stx170595170596%_ _%stx155061%_)
                 (_%g155069155095%_
                  (lambda ()
                    (let ()
                      (declare (not safe))
                      (gx#raise-syntax-error
                       '#f
                       '"Bad syntax; invalid match target"
                       _%__stx170595170596%_)))))
            (let ((_%__kont170597170598%_
                   (lambda (_%L155155%_ _%L155156%_)
                     (let ((__tmp171156
                            (lambda ()
                              (if (let ((__tmp171157
                                         (let ((__tmp171158
                                                (lambda (_%g155184155187%_
                                                         _%g155185155189%_)
                                                  (cons _%g155184155187%_
                                                        _%g155185155189%_))))
                                           (declare (not safe))
                                           (__foldr1
                                            __tmp171158
                                            '()
                                            _%L155156%_))))
                                    (declare (not safe))
                                    (__ormap1
                                     _%lift-kw-lambda?155065%_
                                     __tmp171157))
                                  (let ((_g171159_
                                         (_%lift-kw-lambda-bindings155066%_
                                          (let ((__tmp171161
                                                 (lambda (_%g155191155194%_
                                                          _%g155192155196%_)
                                                   (cons _%g155191155194%_
                                                         _%g155192155196%_))))
                                            (declare (not safe))
                                            (__foldr1
                                             __tmp171161
                                             '()
                                             _%L155156%_)))))
                                    (begin
                                      (let ((_g171160_
                                             (let ()
                                               (declare (not safe))
                                               (if (##values? _g171159_)
                                                   (##vector-length _g171159_)
                                                   1))))
                                        (if (not (let ()
                                                   (declare (not safe))
                                                   (##fx= _g171160_ 3)))
                                            (error "Context expects 3 values"
                                                   _g171160_)))
                                      (let ((_%lift1155199%_
                                             (let ()
                                               (declare (not safe))
                                               (##vector-ref _g171159_ 0)))
                                            (_%lift2155200%_
                                             (let ()
                                               (declare (not safe))
                                               (##vector-ref _g171159_ 1)))
                                            (_%hd155201%_
                                             (let ()
                                               (declare (not safe))
                                               (##vector-ref _g171159_ 2))))
                                        (let* ((_%expr155203%_
                                                (let ((__tmp171162
                                                       (cons '%#let-values
                                                             (cons _%hd155201%_
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                           (cons _%L155155%_ '())))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                                  (declare (not safe))
                                                  (gxc#xform-wrap-source
                                                   __tmp171162
                                                   _%stx155061%_)))
                                               (_%expr155205%_
                                                (let ((__tmp171163
                                                       (cons '%#let-values
                                                             (cons _%lift2155200%_
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                           (cons _%expr155203%_ '())))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                                  (declare (not safe))
                                                  (gxc#xform-wrap-source
                                                   __tmp171163
                                                   _%stx155061%_)))
                                               (_%expr155207%_
                                                (let ((__tmp171164
                                                       (cons '%#let-values
                                                             (cons _%lift1155199%_
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                           (cons _%expr155205%_ '())))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                                  (declare (not safe))
                                                  (gxc#xform-wrap-source
                                                   __tmp171164
                                                   _%stx155061%_))))
                                          (gxc#lift-top-lambda-let-values%
                                           _%self155060%_
                                           _%expr155207%_)))))
                                  (let ((_g171165_
                                         (_%compile-bindings155064%_
                                          (let ((__tmp171167
                                                 (lambda (_%g155209155212%_
                                                          _%g155210155214%_)
                                                   (cons _%g155209155212%_
                                                         _%g155210155214%_))))
                                            (declare (not safe))
                                            (__foldr1
                                             __tmp171167
                                             '()
                                             _%L155156%_)))))
                                    (begin
                                      (let ((_g171166_
                                             (let ()
                                               (declare (not safe))
                                               (if (##values? _g171165_)
                                                   (##vector-length _g171165_)
                                                   1))))
                                        (if (not (let ()
                                                   (declare (not safe))
                                                   (##fx= _g171166_ 3)))
                                            (error "Context expects 3 values"
                                                   _g171166_)))
                                      (let ((_%lift1155217%_
                                             (let ()
                                               (declare (not safe))
                                               (##vector-ref _g171165_ 0)))
                                            (_%lift2155218%_
                                             (let ()
                                               (declare (not safe))
                                               (##vector-ref _g171165_ 1)))
                                            (_%hd155219%_
                                             (let ()
                                               (declare (not safe))
                                               (##vector-ref _g171165_ 2))))
                                        (let* ((_%body155221%_
                                                (let ()
                                                  (declare (not safe))
                                                  (gxc#compile-e__1
                                                   _%self155060%_
                                                   _%L155155%_)))
                                               (_%expr155223%_
                                                (let ((__tmp171168
                                                       (cons '%#let-values
                                                             (cons _%hd155219%_
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                           (cons _%body155221%_ '())))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                                  (declare (not safe))
                                                  (gxc#xform-wrap-source
                                                   __tmp171168
                                                   _%stx155061%_)))
                                               (_%expr155225%_
                                                (if (null? _%lift2155218%_)
                                                    _%expr155223%_
                                                    (let ((__tmp171169
                                                           (cons '%#let-values
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                         (cons _%lift2155218%_ (cons _%expr155223%_ '())))))
              (declare (not safe))
              (gxc#xform-wrap-source __tmp171169 _%stx155061%_))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                               (_%expr155227%_
                                                (if (null? _%lift1155217%_)
                                                    _%expr155225%_
                                                    (let ((__tmp171170
                                                           (cons '%#let-values
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                         (cons _%lift1155217%_ (cons _%expr155225%_ '())))))
              (declare (not safe))
              (gxc#xform-wrap-source __tmp171170 _%stx155061%_)))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                          _%expr155227%_)))))))
                           (__tmp171155
                            (let ((__obj170848
                                   (let ()
                                     (declare (not safe))
                                     (##structure
                                      gx#local-context::t
                                      '#f
                                      '#f
                                      '#f
                                      '#f
                                      '#f))))
                              (let ()
                                (declare (not safe))
                                (gx#local-context:::init!__0 __obj170848))
                              __obj170848)))
                       (declare (not safe))
                       (__call-with-parameters
                        __tmp171156
                        gx#current-expander-context
                        __tmp171155))))
                  (_%__kont170601170602%_
                   (lambda ()
                     (let ()
                       (declare (not safe))
                       (gxc#xform-let-values% _%self155060%_ _%stx155061%_)))))
              (let ((_%__match170622170623%_
                     (lambda (_%e155073155107%_
                              _%hd155074155110%_
                              _%tl155075155112%_
                              _%e155076155115%_
                              _%hd155077155118%_
                              _%tl155078155120%_
                              _%__splice170599170600%_
                              _%target155079155123%_
                              _%tl155081155125%_)
                       (letrec ((_%loop155082155128%_
                                 (lambda (_%hd155080155131%_
                                          _%bind155086155133%_)
                                   (if (let ()
                                         (declare (not safe))
                                         (gx#stx-pair? _%hd155080155131%_))
                                       (let ((_%e155083155136%_
                                              (let ()
                                                (declare (not safe))
                                                (gx#stx-e
                                                 _%hd155080155131%_))))
                                         (let ((_%lp-tl155085155141%_
                                                (let ()
                                                  (declare (not safe))
                                                  (##cdr _%e155083155136%_)))
                                               (_%lp-hd155084155139%_
                                                (let ()
                                                  (declare (not safe))
                                                  (##car _%e155083155136%_))))
                                           (_%loop155082155128%_
                                            _%lp-tl155085155141%_
                                            (cons _%lp-hd155084155139%_
                                                  _%bind155086155133%_))))
                                       (let ((_%bind155087155144%_
                                              (reverse _%bind155086155133%_)))
                                         (if (let ()
                                               (declare (not safe))
                                               (gx#stx-pair?
                                                _%tl155078155120%_))
                                             (let ((_%e155088155147%_
                                                    (let ()
                                                      (declare (not safe))
                                                      (gx#stx-e
                                                       _%tl155078155120%_))))
                                               (let ((_%tl155090155152%_
                                                      (let ()
                                                        (declare (not safe))
                                                        (##cdr _%e155088155147%_)))
                                                     (_%hd155089155150%_
                                                      (let ()
                                                        (declare (not safe))
                                                        (##car _%e155088155147%_))))
                                                 (if (let ()
                                                       (declare (not safe))
                                                       (gx#stx-null?
                                                        _%tl155090155152%_))
                                                     (let ((_%L155155%_
                                                            _%hd155089155150%_)
                                                           (_%L155156%_
                                                            _%bind155087155144%_))
                                                       (if (let ((__tmp171171
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                          (let ((__tmp171172
                                 (lambda (_%g155176155179%_ _%g155177155181%_)
                                   (cons _%g155176155179%_
                                         _%g155177155181%_))))
                            (declare (not safe))
                            (__foldr1 __tmp171172 '() _%L155156%_))))
                     (declare (not safe))
                     (__ormap1 gxc#lift-top-lambda-binding? __tmp171171))
                   (_%__kont170597170598%_ _%L155155%_ _%L155156%_)
                   (_%__kont170601170602%_)))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                                     (_%__kont170601170602%_))))
                                             (_%__kont170601170602%_)))))))
                         (_%loop155082155128%_ _%target155079155123%_ '())))))
                (if (let ()
                      (declare (not safe))
                      (gx#stx-pair? _%__stx170595170596%_))
                    (let ((_%e155073155107%_
                           (let ()
                             (declare (not safe))
                             (gx#stx-e _%__stx170595170596%_))))
                      (let ((_%tl155075155112%_
                             (let ()
                               (declare (not safe))
                               (##cdr _%e155073155107%_)))
                            (_%hd155074155110%_
                             (let ()
                               (declare (not safe))
                               (##car _%e155073155107%_))))
                        (if (let ()
                              (declare (not safe))
                              (gx#stx-pair? _%tl155075155112%_))
                            (let ((_%e155076155115%_
                                   (let ()
                                     (declare (not safe))
                                     (gx#stx-e _%tl155075155112%_))))
                              (let ((_%tl155078155120%_
                                     (let ()
                                       (declare (not safe))
                                       (##cdr _%e155076155115%_)))
                                    (_%hd155077155118%_
                                     (let ()
                                       (declare (not safe))
                                       (##car _%e155076155115%_))))
                                (if (let ()
                                      (declare (not safe))
                                      (gx#stx-pair/null? _%hd155077155118%_))
                                    (let ((_%__splice170599170600%_
                                           (let ()
                                             (declare (not safe))
                                             (gx#syntax-split-splice
                                              _%hd155077155118%_
                                              '0))))
                                      (let ((_%tl155081155125%_
                                             (let ()
                                               (declare (not safe))
                                               (##vector-ref
                                                _%__splice170599170600%_
                                                '1)))
                                            (_%target155079155123%_
                                             (let ()
                                               (declare (not safe))
                                               (##vector-ref
                                                _%__splice170599170600%_
                                                '0))))
                                        (if (let ()
                                              (declare (not safe))
                                              (gx#stx-null?
                                               _%tl155081155125%_))
                                            (_%__match170622170623%_
                                             _%e155073155107%_
                                             _%hd155074155110%_
                                             _%tl155075155112%_
                                             _%e155076155115%_
                                             _%hd155077155118%_
                                             _%tl155078155120%_
                                             _%__splice170599170600%_
                                             _%target155079155123%_
                                             _%tl155081155125%_)
                                            (_%__kont170601170602%_))))
                                    (_%__kont170601170602%_))))
                            (_%__kont170601170602%_))))
                    (_%__kont170601170602%_))))))))
    (define gxc#lift-top-lambda-letrec-values%
      (lambda (_%self154199%_ _%stx154200%_)
        (letrec* ((_%bind-e__167801167802%_
                   (lambda (_%id155044%_ _%expr155045%_ _%compile?155046%_)
                     (cons (cons _%id155044%_ '())
                           (cons (if _%compile?155046%_
                                     (let ()
                                       (declare (not safe))
                                       (gxc#compile-e__1
                                        _%self154199%_
                                        _%expr155045%_))
                                     _%expr155045%_)
                                 '()))))
                  (_%bind-e__0__167803167804%_
                   (lambda (_%id155051%_ _%expr155052%_)
                     (let ((_%compile?155054%_ '#t))
                       (_%bind-e__167801167802%_
                        _%id155051%_
                        _%expr155052%_
                        _%compile?155054%_))))
                  (_%bind-e154202%_
                   (lambda _g171174_
                     (let ((_g171173_
                            (let ()
                              (declare (not safe))
                              (##length _g171174_))))
                       (cond ((let () (declare (not safe)) (##fx= _g171173_ 2))
                              (apply _%bind-e__0__167803167804%_ _g171174_))
                             ((let () (declare (not safe)) (##fx= _g171173_ 3))
                              (apply _%bind-e__167801167802%_ _g171174_))
                             (else
                              (##raise-wrong-number-of-arguments-exception
                               'case-lambda-dispatch
                               _g171174_))))))
                  (_%compile-bindings154203%_
                   (lambda (_%rest154338%_)
                     (let _%lp154340%_ ((_%rest154342%_ _%rest154338%_)
                                        (_%bind154343%_ '()))
                       (let* ((_%rest154344154352%_ _%rest154342%_)
                              (_%else154346154360%_
                               (lambda () (reverse _%bind154343%_)))
                              (_%K154348155031%_
                               (lambda (_%rest154363%_ _%hd154364%_)
                                 (let* ((_%__stx170645170646%_ _%hd154364%_)
                                        (_%g154369154416%_
                                         (lambda ()
                                           (let ()
                                             (declare (not safe))
                                             (gx#raise-syntax-error
                                              '#f
                                              '"Bad syntax; invalid match target"
                                              _%__stx170645170646%_)))))
                                   (let ((_%__kont170647170648%_
                                          (lambda (_%L154937%_ _%L154938%_)
                                            (let* ((_%__stx170625170626%_
                                                    _%L154937%_)
                                                   (_%g154953154967%_
                                                    (lambda ()
                                                      (let ()
                                                        (declare (not safe))
                                                        (gx#raise-syntax-error
                                                         '#f
                                                         '"Bad syntax; invalid match target"
                                                         _%__stx170625170626%_)))))
                                              (let ((_%__kont170627170628%_
                                                     (lambda (_%L155016%_)
                                                       (_%lp154340%_
                                                        _%rest154363%_
                                                        (cons (_%bind-e__167801167802%_
                                                               _%L154938%_
                                                               _%L154937%_
                                                               '#f)
                                                              _%bind154343%_))))
                                                    (_%__kont170629170630%_
                                                     (lambda (_%L154980%_)
                                                       (let ((_g171175_
                                                              (gxc#lift-case-lambda-clauses__%
                                                               _%stx154200%_
                                                               _%L154938%_
                                                               _%L154980%_
                                                               '#t)))
                                                         (begin
                                                           (let ((_g171176_
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                          (let ()
                            (declare (not safe))
                            (if (##values? _g171175_)
                                (##vector-length _g171175_)
                                1))))
                     (if (not (let ()
                                (declare (not safe))
                                (##fx= _g171176_ 3)))
                         (error "Context expects 3 values" _g171176_)))
                   (let ((_%ids154990%_
                          (let ()
                            (declare (not safe))
                            (##vector-ref _g171175_ 0)))
                         (_%impls154991%_
                          (let ()
                            (declare (not safe))
                            (##vector-ref _g171175_ 1)))
                         (_%clauses154992%_
                          (let ()
                            (declare (not safe))
                            (##vector-ref _g171175_ 2))))
                     (let* ((_%_154994%_
                             (for-each gx#core-bind-runtime! _%ids154990%_))
                            (_%xbind154996%_
                             (map _%bind-e154202%_
                                  _%ids154990%_
                                  _%impls154991%_))
                            (_%expr*154998%_
                             (let ((__tmp171178
                                    (cons '%#case-lambda _%clauses154992%_))
                                   (__tmp171177
                                    (let ()
                                      (declare (not safe))
                                      (gx#datum->syntax__0
                                       '#f
                                       'case-lambda-expr))))
                               (declare (not safe))
                               (gxc#xform-wrap-source
                                __tmp171178
                                __tmp171177)))
                            (_%bind*155000%_
                             (_%bind-e__167801167802%_
                              _%L154938%_
                              _%expr*154998%_
                              '#f)))
                       (let ((__tmp171180
                              (let ()
                                (declare (not safe))
                                (gxc#identifier-symbol _%L154938%_)))
                             (__tmp171179
                              (map gxc#identifier-symbol _%ids154990%_)))
                         (declare (not safe))
                         (gxc#verbose
                          '"lift case-lambda clauses "
                          __tmp171180
                          '" => "
                          __tmp171179))
                       (_%lp154340%_
                        _%rest154363%_
                        (cons _%bind*155000%_
                              (let ()
                                (declare (not safe))
                                (__foldl1
                                 cons
                                 _%bind154343%_
                                 _%xbind154996%_)))))))))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                                (let ((_%__match170636170637%_
                                                       (lambda (_%e154956155008%_
                                                                _%hd154957155011%_
                                                                _%tl154958155013%_)
                                                         (let ((_%L155016%_
                                                                _%tl154958155013%_))
                                                           (if (let ()
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                         (declare (not safe))
                         (__andmap1 gxc#dispatch-lambda-form? _%L155016%_))
                       (_%__kont170627170628%_ _%L155016%_)
                       (_%__kont170629170630%_ _%tl154958155013%_))))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                                  (if (let ()
                                                        (declare (not safe))
                                                        (gx#stx-pair?
                                                         _%__stx170625170626%_))
                                                      (let ((_%e154956155008%_
                                                             (let ()
                                                               (declare
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                         (not safe))
                       (gx#stx-e _%__stx170625170626%_))))
                (let ((_%tl154958155013%_
                       (let () (declare (not safe)) (##cdr _%e154956155008%_)))
                      (_%hd154957155011%_
                       (let ()
                         (declare (not safe))
                         (##car _%e154956155008%_))))
                  (_%__match170636170637%_
                   _%e154956155008%_
                   _%hd154957155011%_
                   _%tl154958155013%_)))
              (let () (declare (not safe)) (_%g154953154967%_))))))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                         (_%__kont170649170650%_
                                          (lambda (_%L154764%_ _%L154765%_)
                                            (let* ((_%g154779154809%_
                                                    (lambda (_%g154780154806%_)
                                                      (let ()
                                                        (declare (not safe))
                                                        (gx#raise-syntax-error
                                                         '#f
                                                         '"Bad syntax; invalid match target"
                                                         _%g154780154806%_))))
                                                   (_%g154778154905%_
                                                    (lambda (_%g154780154812%_)
                                                      (if (let ()
                                                            (declare
                                                              (not safe))
                                                            (gx#stx-pair?
                                                             _%g154780154812%_))
                                                          (let ((_%e154784154814%_
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                         (let ()
                           (declare (not safe))
                           (gx#stx-e _%g154780154812%_))))
                    (let ((_%hd154785154817%_
                           (let ()
                             (declare (not safe))
                             (##car _%e154784154814%_)))
                          (_%tl154786154819%_
                           (let ()
                             (declare (not safe))
                             (##cdr _%e154784154814%_))))
                      (if (let ()
                            (declare (not safe))
                            (gx#stx-pair? _%tl154786154819%_))
                          (let ((_%e154787154822%_
                                 (let ()
                                   (declare (not safe))
                                   (gx#stx-e _%tl154786154819%_))))
                            (let ((_%hd154788154825%_
                                   (let ()
                                     (declare (not safe))
                                     (##car _%e154787154822%_)))
                                  (_%tl154789154827%_
                                   (let ()
                                     (declare (not safe))
                                     (##cdr _%e154787154822%_))))
                              (if (let ()
                                    (declare (not safe))
                                    (gx#stx-pair? _%hd154788154825%_))
                                  (let ((_%e154790154830%_
                                         (let ()
                                           (declare (not safe))
                                           (gx#stx-e _%hd154788154825%_))))
                                    (let ((_%hd154791154833%_
                                           (let ()
                                             (declare (not safe))
                                             (##car _%e154790154830%_)))
                                          (_%tl154792154835%_
                                           (let ()
                                             (declare (not safe))
                                             (##cdr _%e154790154830%_))))
                                      (if (let ()
                                            (declare (not safe))
                                            (gx#stx-pair? _%hd154791154833%_))
                                          (let ((_%e154793154838%_
                                                 (let ()
                                                   (declare (not safe))
                                                   (gx#stx-e
                                                    _%hd154791154833%_))))
                                            (let ((_%hd154794154841%_
                                                   (let ()
                                                     (declare (not safe))
                                                     (##car _%e154793154838%_)))
                                                  (_%tl154795154843%_
                                                   (let ()
                                                     (declare (not safe))
                                                     (##cdr _%e154793154838%_))))
                                              (if (let ()
                                                    (declare (not safe))
                                                    (gx#stx-pair?
                                                     _%hd154794154841%_))
                                                  (let ((_%e154796154846%_
                                                         (let ()
                                                           (declare (not safe))
                                                           (gx#stx-e
                                                            _%hd154794154841%_))))
                                                    (let ((_%hd154797154849%_
                                                           (let ()
                                                             (declare
                                                               (not safe))
                                                             (##car _%e154796154846%_)))
                                                          (_%tl154798154851%_
                                                           (let ()
                                                             (declare
                                                               (not safe))
                                                             (##cdr _%e154796154846%_))))
                                                      (if (let ()
                                                            (declare
                                                              (not safe))
                                                            (gx#stx-null?
                                                             _%tl154798154851%_))
                                                          (if (let ()
                                                                (declare
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                          (not safe))
                        (gx#stx-pair? _%tl154795154843%_))
                      (let ((_%e154799154854%_
                             (let ()
                               (declare (not safe))
                               (gx#stx-e _%tl154795154843%_))))
                        (let ((_%hd154800154857%_
                               (let ()
                                 (declare (not safe))
                                 (##car _%e154799154854%_)))
                              (_%tl154801154859%_
                               (let ()
                                 (declare (not safe))
                                 (##cdr _%e154799154854%_))))
                          (if (let ()
                                (declare (not safe))
                                (gx#stx-null? _%tl154801154859%_))
                              (if (let ()
                                    (declare (not safe))
                                    (gx#stx-null? _%tl154792154835%_))
                                  (if (let ()
                                        (declare (not safe))
                                        (gx#stx-pair? _%tl154789154827%_))
                                      (let ((_%e154802154862%_
                                             (let ()
                                               (declare (not safe))
                                               (gx#stx-e _%tl154789154827%_))))
                                        (let ((_%hd154803154865%_
                                               (let ()
                                                 (declare (not safe))
                                                 (##car _%e154802154862%_)))
                                              (_%tl154804154867%_
                                               (let ()
                                                 (declare (not safe))
                                                 (##cdr _%e154802154862%_))))
                                          (if (let ()
                                                (declare (not safe))
                                                (gx#stx-null?
                                                 _%tl154804154867%_))
                                              ((lambda (_%L154870%_
                                                        _%L154871%_
                                                        _%L154872%_)
                                                 (let* ((_%lambda-id154896%_
                                                         (let ((__tmp171182
                                                                (let ()
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                          (declare (not safe))
                          (gx#stx-e _%L154765%_)))
                       (__tmp171181
                        (let () (declare (not safe)) (##gensym '__))))
                   (declare (not safe))
                   (make-symbol__1 __tmp171182 __tmp171181)))
                (_%lambda-id154898%_
                 (let ((__tmp171183
                        (let ()
                          (declare (not safe))
                          (gx#stx-source _%stx154200%_))))
                   (declare (not safe))
                   (gx#core-quote-syntax__1 _%lambda-id154896%_ __tmp171183)))
                (_%_154900%_
                 (let ()
                   (declare (not safe))
                   (gx#core-bind-runtime!__0 _%lambda-id154898%_)))
                (_%new-case-lambda-expr154902%_
                 (let ()
                   (declare (not safe))
                   (gxc#apply-expression-subst__%
                    '#f
                    _%L154872%_
                    _%lambda-id154898%_
                    _%L154870%_))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                                   (let ((__tmp171185
                                                          (let ()
                                                            (declare
                                                              (not safe))
                                                            (gxc#identifier-symbol
                                                             _%L154765%_)))
                                                         (__tmp171184
                                                          (let ()
                                                            (declare
                                                              (not safe))
                                                            (gxc#identifier-symbol
                                                             _%lambda-id154898%_))))
                                                     (declare (not safe))
                                                     (gxc#verbose
                                                      '"lift opt-lambda dispatch "
                                                      __tmp171185
                                                      '" => "
                                                      __tmp171184))
                                                   (_%lp154340%_
                                                    (cons (_%bind-e__167801167802%_
                                                           _%L154765%_
                                                           _%new-case-lambda-expr154902%_
                                                           '#f)
                                                          _%rest154363%_)
                                                    (cons (_%bind-e__0__167803167804%_
                                                           _%lambda-id154898%_
                                                           _%L154871%_)
                                                          _%bind154343%_))))
                                               _%hd154803154865%_
                                               _%hd154800154857%_
                                               _%hd154797154849%_)
                                              (_%g154779154809%_
                                               _%g154780154812%_))))
                                      (_%g154779154809%_ _%g154780154812%_))
                                  (_%g154779154809%_ _%g154780154812%_))
                              (_%g154779154809%_ _%g154780154812%_))))
                      (_%g154779154809%_ _%g154780154812%_))
                  (_%g154779154809%_ _%g154780154812%_))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                                  (_%g154779154809%_
                                                   _%g154780154812%_))))
                                          (_%g154779154809%_
                                           _%g154780154812%_))))
                                  (_%g154779154809%_ _%g154780154812%_))))
                          (_%g154779154809%_ _%g154780154812%_))))
                  (_%g154779154809%_ _%g154780154812%_)))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                              (_%g154778154905%_
                                               _%L154764%_))))
                                         (_%__kont170651170652%_
                                          (lambda (_%L154486%_ _%L154487%_)
                                            (let* ((_%g154501154554%_
                                                    (lambda (_%g154502154551%_)
                                                      (let ()
                                                        (declare (not safe))
                                                        (gx#raise-syntax-error
                                                         '#f
                                                         '"Bad syntax; invalid match target"
                                                         _%g154502154551%_))))
                                                   (_%g154500154732%_
                                                    (lambda (_%g154502154557%_)
                                                      (if (let ()
                                                            (declare
                                                              (not safe))
                                                            (gx#stx-pair?
                                                             _%g154502154557%_))
                                                          (let ((_%e154508154559%_
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                         (let ()
                           (declare (not safe))
                           (gx#stx-e _%g154502154557%_))))
                    (let ((_%hd154509154562%_
                           (let ()
                             (declare (not safe))
                             (##car _%e154508154559%_)))
                          (_%tl154510154564%_
                           (let ()
                             (declare (not safe))
                             (##cdr _%e154508154559%_))))
                      (if (let ()
                            (declare (not safe))
                            (gx#stx-pair? _%tl154510154564%_))
                          (let ((_%e154511154567%_
                                 (let ()
                                   (declare (not safe))
                                   (gx#stx-e _%tl154510154564%_))))
                            (let ((_%hd154512154570%_
                                   (let ()
                                     (declare (not safe))
                                     (##car _%e154511154567%_)))
                                  (_%tl154513154572%_
                                   (let ()
                                     (declare (not safe))
                                     (##cdr _%e154511154567%_))))
                              (if (let ()
                                    (declare (not safe))
                                    (gx#stx-pair? _%hd154512154570%_))
                                  (let ((_%e154514154575%_
                                         (let ()
                                           (declare (not safe))
                                           (gx#stx-e _%hd154512154570%_))))
                                    (let ((_%hd154515154578%_
                                           (let ()
                                             (declare (not safe))
                                             (##car _%e154514154575%_)))
                                          (_%tl154516154580%_
                                           (let ()
                                             (declare (not safe))
                                             (##cdr _%e154514154575%_))))
                                      (if (let ()
                                            (declare (not safe))
                                            (gx#stx-pair? _%hd154515154578%_))
                                          (let ((_%e154517154583%_
                                                 (let ()
                                                   (declare (not safe))
                                                   (gx#stx-e
                                                    _%hd154515154578%_))))
                                            (let ((_%hd154518154586%_
                                                   (let ()
                                                     (declare (not safe))
                                                     (##car _%e154517154583%_)))
                                                  (_%tl154519154588%_
                                                   (let ()
                                                     (declare (not safe))
                                                     (##cdr _%e154517154583%_))))
                                              (if (let ()
                                                    (declare (not safe))
                                                    (gx#stx-pair?
                                                     _%hd154518154586%_))
                                                  (let ((_%e154520154591%_
                                                         (let ()
                                                           (declare (not safe))
                                                           (gx#stx-e
                                                            _%hd154518154586%_))))
                                                    (let ((_%hd154521154594%_
                                                           (let ()
                                                             (declare
                                                               (not safe))
                                                             (##car _%e154520154591%_)))
                                                          (_%tl154522154596%_
                                                           (let ()
                                                             (declare
                                                               (not safe))
                                                             (##cdr _%e154520154591%_))))
                                                      (if (let ()
                                                            (declare
                                                              (not safe))
                                                            (gx#stx-null?
                                                             _%tl154522154596%_))
                                                          (if (let ()
                                                                (declare
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                          (not safe))
                        (gx#stx-pair? _%tl154519154588%_))
                      (let ((_%e154523154599%_
                             (let ()
                               (declare (not safe))
                               (gx#stx-e _%tl154519154588%_))))
                        (let ((_%hd154524154602%_
                               (let ()
                                 (declare (not safe))
                                 (##car _%e154523154599%_)))
                              (_%tl154525154604%_
                               (let ()
                                 (declare (not safe))
                                 (##cdr _%e154523154599%_))))
                          (if (let ()
                                (declare (not safe))
                                (gx#stx-pair? _%hd154524154602%_))
                              (let ((_%e154526154607%_
                                     (let ()
                                       (declare (not safe))
                                       (gx#stx-e _%hd154524154602%_))))
                                (let ((_%hd154527154610%_
                                       (let ()
                                         (declare (not safe))
                                         (##car _%e154526154607%_)))
                                      (_%tl154528154612%_
                                       (let ()
                                         (declare (not safe))
                                         (##cdr _%e154526154607%_))))
                                  (if (let ()
                                        (declare (not safe))
                                        (gx#stx-pair? _%tl154528154612%_))
                                      (let ((_%e154529154615%_
                                             (let ()
                                               (declare (not safe))
                                               (gx#stx-e _%tl154528154612%_))))
                                        (let ((_%hd154530154618%_
                                               (let ()
                                                 (declare (not safe))
                                                 (##car _%e154529154615%_)))
                                              (_%tl154531154620%_
                                               (let ()
                                                 (declare (not safe))
                                                 (##cdr _%e154529154615%_))))
                                          (if (let ()
                                                (declare (not safe))
                                                (gx#stx-pair?
                                                 _%hd154530154618%_))
                                              (let ((_%e154532154623%_
                                                     (let ()
                                                       (declare (not safe))
                                                       (gx#stx-e
                                                        _%hd154530154618%_))))
                                                (let ((_%hd154533154626%_
                                                       (let ()
                                                         (declare (not safe))
                                                         (##car _%e154532154623%_)))
                                                      (_%tl154534154628%_
                                                       (let ()
                                                         (declare (not safe))
                                                         (##cdr _%e154532154623%_))))
                                                  (if (let ()
                                                        (declare (not safe))
                                                        (gx#stx-pair?
                                                         _%hd154533154626%_))
                                                      (let ((_%e154535154631%_
                                                             (let ()
                                                               (declare
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                         (not safe))
                       (gx#stx-e _%hd154533154626%_))))
                (let ((_%hd154536154634%_
                       (let () (declare (not safe)) (##car _%e154535154631%_)))
                      (_%tl154537154636%_
                       (let ()
                         (declare (not safe))
                         (##cdr _%e154535154631%_))))
                  (if (let ()
                        (declare (not safe))
                        (gx#stx-pair? _%hd154536154634%_))
                      (let ((_%e154538154639%_
                             (let ()
                               (declare (not safe))
                               (gx#stx-e _%hd154536154634%_))))
                        (let ((_%hd154539154642%_
                               (let ()
                                 (declare (not safe))
                                 (##car _%e154538154639%_)))
                              (_%tl154540154644%_
                               (let ()
                                 (declare (not safe))
                                 (##cdr _%e154538154639%_))))
                          (if (let ()
                                (declare (not safe))
                                (gx#stx-null? _%tl154540154644%_))
                              (if (let ()
                                    (declare (not safe))
                                    (gx#stx-pair? _%tl154537154636%_))
                                  (let ((_%e154541154647%_
                                         (let ()
                                           (declare (not safe))
                                           (gx#stx-e _%tl154537154636%_))))
                                    (let ((_%hd154542154650%_
                                           (let ()
                                             (declare (not safe))
                                             (##car _%e154541154647%_)))
                                          (_%tl154543154652%_
                                           (let ()
                                             (declare (not safe))
                                             (##cdr _%e154541154647%_))))
                                      (if (let ()
                                            (declare (not safe))
                                            (gx#stx-null? _%tl154543154652%_))
                                          (if (let ()
                                                (declare (not safe))
                                                (gx#stx-null?
                                                 _%tl154534154628%_))
                                              (if (let ()
                                                    (declare (not safe))
                                                    (gx#stx-pair?
                                                     _%tl154531154620%_))
                                                  (let ((_%e154544154655%_
                                                         (let ()
                                                           (declare (not safe))
                                                           (gx#stx-e
                                                            _%tl154531154620%_))))
                                                    (let ((_%hd154545154658%_
                                                           (let ()
                                                             (declare
                                                               (not safe))
                                                             (##car _%e154544154655%_)))
                                                          (_%tl154546154660%_
                                                           (let ()
                                                             (declare
                                                               (not safe))
                                                             (##cdr _%e154544154655%_))))
                                                      (if (let ()
                                                            (declare
                                                              (not safe))
                                                            (gx#stx-null?
                                                             _%tl154546154660%_))
                                                          (if (let ()
                                                                (declare
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                          (not safe))
                        (gx#stx-null? _%tl154525154604%_))
                      (if (let ()
                            (declare (not safe))
                            (gx#stx-null? _%tl154516154580%_))
                          (if (let ()
                                (declare (not safe))
                                (gx#stx-pair? _%tl154513154572%_))
                              (let ((_%e154547154663%_
                                     (let ()
                                       (declare (not safe))
                                       (gx#stx-e _%tl154513154572%_))))
                                (let ((_%hd154548154666%_
                                       (let ()
                                         (declare (not safe))
                                         (##car _%e154547154663%_)))
                                      (_%tl154549154668%_
                                       (let ()
                                         (declare (not safe))
                                         (##cdr _%e154547154663%_))))
                                  (if (let ()
                                        (declare (not safe))
                                        (gx#stx-null? _%tl154549154668%_))
                                      ((lambda (_%L154671%_
                                                _%L154672%_
                                                _%L154673%_
                                                _%L154674%_
                                                _%L154675%_)
                                         (let* ((_%get-kws-id154715%_
                                                 (let ((__tmp171187
                                                        (let ()
                                                          (declare (not safe))
                                                          (gx#stx-e
                                                           _%L154487%_)))
                                                       (__tmp171186
                                                        (let ()
                                                          (declare (not safe))
                                                          (##gensym '__))))
                                                   (declare (not safe))
                                                   (make-symbol__1
                                                    __tmp171187
                                                    __tmp171186)))
                                                (_%get-kws-id154717%_
                                                 (let ((__tmp171188
                                                        (let ()
                                                          (declare (not safe))
                                                          (gx#stx-source
                                                           _%stx154200%_))))
                                                   (declare (not safe))
                                                   (gx#core-quote-syntax__1
                                                    _%get-kws-id154715%_
                                                    __tmp171188)))
                                                (_%main-id154719%_
                                                 (let ((__tmp171190
                                                        (let ()
                                                          (declare (not safe))
                                                          (gx#stx-e
                                                           _%L154487%_)))
                                                       (__tmp171189
                                                        (let ()
                                                          (declare (not safe))
                                                          (##gensym '__))))
                                                   (declare (not safe))
                                                   (make-symbol__1
                                                    __tmp171190
                                                    __tmp171189)))
                                                (_%main-id154721%_
                                                 (let ((__tmp171191
                                                        (let ()
                                                          (declare (not safe))
                                                          (gx#stx-source
                                                           _%stx154200%_))))
                                                   (declare (not safe))
                                                   (gx#core-quote-syntax__1
                                                    _%main-id154719%_
                                                    __tmp171191)))
                                                (_%_154723%_
                                                 (let ()
                                                   (declare (not safe))
                                                   (gx#core-bind-runtime!__0
                                                    _%get-kws-id154717%_)))
                                                (_%_154725%_
                                                 (let ()
                                                   (declare (not safe))
                                                   (gx#core-bind-runtime!__0
                                                    _%main-id154721%_)))
                                                (_%new-kw-dispatch154727%_
                                                 (let ()
                                                   (declare (not safe))
                                                   (gxc#apply-expression-subst__%
                                                    '#f
                                                    _%L154675%_
                                                    _%get-kws-id154717%_
                                                    _%L154671%_)))
                                                (_%new-get-kws154729%_
                                                 (let ()
                                                   (declare (not safe))
                                                   (gxc#apply-expression-subst__%
                                                    '#f
                                                    _%L154674%_
                                                    _%main-id154721%_
                                                    _%L154672%_))))
                                           (let ((__tmp171194
                                                  (let ()
                                                    (declare (not safe))
                                                    (gxc#identifier-symbol
                                                     _%L154487%_)))
                                                 (__tmp171193
                                                  (let ()
                                                    (declare (not safe))
                                                    (gxc#identifier-symbol
                                                     _%get-kws-id154717%_)))
                                                 (__tmp171192
                                                  (let ()
                                                    (declare (not safe))
                                                    (gxc#identifier-symbol
                                                     _%main-id154721%_))))
                                             (declare (not safe))
                                             (gxc#verbose
                                              '"lift kw-lambda dispatch "
                                              __tmp171194
                                              '" => "
                                              __tmp171193
                                              '" => "
                                              __tmp171192))
                                           (_%lp154340%_
                                            (cons (_%bind-e__167801167802%_
                                                   _%main-id154721%_
                                                   _%L154673%_
                                                   '#f)
                                                  (cons (_%bind-e__167801167802%_
                                                         _%get-kws-id154717%_
                                                         _%new-get-kws154729%_
                                                         '#f)
                                                        (cons (_%bind-e__167801167802%_
                                                               _%L154487%_
                                                               _%new-kw-dispatch154727%_
                                                               '#f)
                                                              _%rest154363%_)))
                                            _%bind154343%_)))
                                       _%hd154548154666%_
                                       _%hd154545154658%_
                                       _%hd154542154650%_
                                       _%hd154539154642%_
                                       _%hd154521154594%_)
                                      (_%g154501154554%_ _%g154502154557%_))))
                              (_%g154501154554%_ _%g154502154557%_))
                          (_%g154501154554%_ _%g154502154557%_))
                      (_%g154501154554%_ _%g154502154557%_))
                  (_%g154501154554%_ _%g154502154557%_))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                                  (_%g154501154554%_
                                                   _%g154502154557%_))
                                              (_%g154501154554%_
                                               _%g154502154557%_))
                                          (_%g154501154554%_
                                           _%g154502154557%_))))
                                  (_%g154501154554%_ _%g154502154557%_))
                              (_%g154501154554%_ _%g154502154557%_))))
                      (_%g154501154554%_ _%g154502154557%_))))
              (_%g154501154554%_ _%g154502154557%_))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                              (_%g154501154554%_
                                               _%g154502154557%_))))
                                      (_%g154501154554%_ _%g154502154557%_))))
                              (_%g154501154554%_ _%g154502154557%_))))
                      (_%g154501154554%_ _%g154502154557%_))
                  (_%g154501154554%_ _%g154502154557%_))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                                  (_%g154501154554%_
                                                   _%g154502154557%_))))
                                          (_%g154501154554%_
                                           _%g154502154557%_))))
                                  (_%g154501154554%_ _%g154502154557%_))))
                          (_%g154501154554%_ _%g154502154557%_))))
                  (_%g154501154554%_ _%g154502154557%_)))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                              (_%g154500154732%_
                                               _%L154486%_))))
                                         (_%__kont170653170654%_
                                          (lambda (_%L154437%_ _%L154438%_)
                                            (_%lp154340%_
                                             _%rest154363%_
                                             (cons (cons _%L154438%_
                                                         (cons (let ()
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                         (declare (not safe))
                         (gxc#compile-e__1 _%self154199%_ _%L154437%_))
                       '()))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                                   _%bind154343%_)))))
                                     (let* ((_%__match170720170721%_
                                             (lambda (_%e154395154462%_
                                                      _%hd154396154465%_
                                                      _%tl154397154467%_
                                                      _%e154398154470%_
                                                      _%hd154399154473%_
                                                      _%tl154400154475%_
                                                      _%e154401154478%_
                                                      _%hd154402154481%_
                                                      _%tl154403154483%_)
                                               (let ((_%L154486%_
                                                      _%hd154402154481%_)
                                                     (_%L154487%_
                                                      _%hd154399154473%_))
                                                 (if (and (let ()
                                                            (declare
                                                              (not safe))
                                                            (gx#identifier?
                                                             _%L154487%_))
                                                          (gxc#kw-lambda-expr?
                                                           _%L154486%_))
                                                     (_%__kont170651170652%_
                                                      _%L154486%_
                                                      _%L154487%_)
                                                     (_%__kont170653170654%_
                                                      _%hd154402154481%_
                                                      _%hd154396154465%_)))))
                                            (_%__match170698170699%_
                                             (lambda (_%e154384154740%_
                                                      _%hd154385154743%_
                                                      _%tl154386154745%_
                                                      _%e154387154748%_
                                                      _%hd154388154751%_
                                                      _%tl154389154753%_
                                                      _%e154390154756%_
                                                      _%hd154391154759%_
                                                      _%tl154392154761%_)
                                               (let ((_%L154764%_
                                                      _%hd154391154759%_)
                                                     (_%L154765%_
                                                      _%hd154388154751%_))
                                                 (if (and (let ()
                                                            (declare
                                                              (not safe))
                                                            (gx#identifier?
                                                             _%L154765%_))
                                                          (gxc#opt-lambda-expr?
                                                           _%L154764%_))
                                                     (_%__kont170649170650%_
                                                      _%L154764%_
                                                      _%L154765%_)
                                                     (_%__match170720170721%_
                                                      _%e154384154740%_
                                                      _%hd154385154743%_
                                                      _%tl154386154745%_
                                                      _%e154387154748%_
                                                      _%hd154388154751%_
                                                      _%tl154389154753%_
                                                      _%e154390154756%_
                                                      _%hd154391154759%_
                                                      _%tl154392154761%_)))))
                                            (_%__match170676170677%_
                                             (lambda (_%e154373154913%_
                                                      _%hd154374154916%_
                                                      _%tl154375154918%_
                                                      _%e154376154921%_
                                                      _%hd154377154924%_
                                                      _%tl154378154926%_
                                                      _%e154379154929%_
                                                      _%hd154380154932%_
                                                      _%tl154381154934%_)
                                               (let ((_%L154937%_
                                                      _%hd154380154932%_)
                                                     (_%L154938%_
                                                      _%hd154377154924%_))
                                                 (if (and (let ()
                                                            (declare
                                                              (not safe))
                                                            (gx#identifier?
                                                             _%L154938%_))
                                                          (gxc#case-lambda-expr?
                                                           _%L154937%_))
                                                     (_%__kont170647170648%_
                                                      _%L154937%_
                                                      _%L154938%_)
                                                     (_%__match170698170699%_
                                                      _%e154373154913%_
                                                      _%hd154374154916%_
                                                      _%tl154375154918%_
                                                      _%e154376154921%_
                                                      _%hd154377154924%_
                                                      _%tl154378154926%_
                                                      _%e154379154929%_
                                                      _%hd154380154932%_
                                                      _%tl154381154934%_))))))
                                       (if (let ()
                                             (declare (not safe))
                                             (gx#stx-pair?
                                              _%__stx170645170646%_))
                                           (let ((_%e154373154913%_
                                                  (let ()
                                                    (declare (not safe))
                                                    (gx#stx-e
                                                     _%__stx170645170646%_))))
                                             (let ((_%tl154375154918%_
                                                    (let ()
                                                      (declare (not safe))
                                                      (##cdr _%e154373154913%_)))
                                                   (_%hd154374154916%_
                                                    (let ()
                                                      (declare (not safe))
                                                      (##car _%e154373154913%_))))
                                               (if (let ()
                                                     (declare (not safe))
                                                     (gx#stx-pair?
                                                      _%hd154374154916%_))
                                                   (let ((_%e154376154921%_
                                                          (let ()
                                                            (declare
                                                              (not safe))
                                                            (gx#stx-e
                                                             _%hd154374154916%_))))
                                                     (let ((_%tl154378154926%_
                                                            (let ()
                                                              (declare
                                                                (not safe))
                                                              (##cdr _%e154376154921%_)))
                                                           (_%hd154377154924%_
                                                            (let ()
                                                              (declare
                                                                (not safe))
                                                              (##car _%e154376154921%_))))
                                                       (if (let ()
                                                             (declare
                                                               (not safe))
                                                             (gx#stx-null?
                                                              _%tl154378154926%_))
                                                           (if (let ()
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                         (declare (not safe))
                         (gx#stx-pair? _%tl154375154918%_))
                       (let ((_%e154379154929%_
                              (let ()
                                (declare (not safe))
                                (gx#stx-e _%tl154375154918%_))))
                         (let ((_%tl154381154934%_
                                (let ()
                                  (declare (not safe))
                                  (##cdr _%e154379154929%_)))
                               (_%hd154380154932%_
                                (let ()
                                  (declare (not safe))
                                  (##car _%e154379154929%_))))
                           (if (let ()
                                 (declare (not safe))
                                 (gx#stx-null? _%tl154381154934%_))
                               (_%__match170676170677%_
                                _%e154373154913%_
                                _%hd154374154916%_
                                _%tl154375154918%_
                                _%e154376154921%_
                                _%hd154377154924%_
                                _%tl154378154926%_
                                _%e154379154929%_
                                _%hd154380154932%_
                                _%tl154381154934%_)
                               (let ()
                                 (declare (not safe))
                                 (_%g154369154416%_)))))
                       (let () (declare (not safe)) (_%g154369154416%_)))
                   (if (let ()
                         (declare (not safe))
                         (gx#stx-pair? _%tl154375154918%_))
                       (let ((_%e154409154429%_
                              (let ()
                                (declare (not safe))
                                (gx#stx-e _%tl154375154918%_))))
                         (let ((_%tl154411154434%_
                                (let ()
                                  (declare (not safe))
                                  (##cdr _%e154409154429%_)))
                               (_%hd154410154432%_
                                (let ()
                                  (declare (not safe))
                                  (##car _%e154409154429%_))))
                           (if (let ()
                                 (declare (not safe))
                                 (gx#stx-null? _%tl154411154434%_))
                               (_%__kont170653170654%_
                                _%hd154410154432%_
                                _%hd154374154916%_)
                               (let ()
                                 (declare (not safe))
                                 (_%g154369154416%_)))))
                       (let () (declare (not safe)) (_%g154369154416%_))))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                                   (if (let ()
                                                         (declare (not safe))
                                                         (gx#stx-pair?
                                                          _%tl154375154918%_))
                                                       (let ((_%e154409154429%_
                                                              (let ()
                                                                (declare
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                          (not safe))
                        (gx#stx-e _%tl154375154918%_))))
                 (let ((_%tl154411154434%_
                        (let ()
                          (declare (not safe))
                          (##cdr _%e154409154429%_)))
                       (_%hd154410154432%_
                        (let ()
                          (declare (not safe))
                          (##car _%e154409154429%_))))
                   (if (let ()
                         (declare (not safe))
                         (gx#stx-null? _%tl154411154434%_))
                       (_%__kont170653170654%_
                        _%hd154410154432%_
                        _%hd154374154916%_)
                       (let () (declare (not safe)) (_%g154369154416%_)))))
               (let () (declare (not safe)) (_%g154369154416%_))))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                           (let ()
                                             (declare (not safe))
                                             (_%g154369154416%_)))))))))
                         (if (pair? _%rest154344154352%_)
                             (let ((_%hd154349155034%_
                                    (let ()
                                      (declare (not safe))
                                      (##car _%rest154344154352%_)))
                                   (_%tl154350155036%_
                                    (let ()
                                      (declare (not safe))
                                      (##cdr _%rest154344154352%_))))
                               (let* ((_%hd155039%_ _%hd154349155034%_)
                                      (_%rest155041%_ _%tl154350155036%_))
                                 (_%K154348155031%_
                                  _%rest155041%_
                                  _%hd155039%_)))
                             (_%else154346154360%_)))))))
          (let* ((_%__stx170737170738%_ _%stx154200%_)
                 (_%g154206154233%_
                  (lambda ()
                    (let ()
                      (declare (not safe))
                      (gx#raise-syntax-error
                       '#f
                       '"Bad syntax; invalid match target"
                       _%__stx170737170738%_)))))
            (let ((_%__kont170739170740%_
                   (lambda (_%L154293%_ _%L154294%_ _%L154295%_)
                     (let ((__tmp171196
                            (lambda ()
                              (let ((_%hd154332%_
                                     (_%compile-bindings154203%_
                                      (let ((__tmp171197
                                             (lambda (_%g154324154327%_
                                                      _%g154325154329%_)
                                               (cons _%g154324154327%_
                                                     _%g154325154329%_))))
                                        (declare (not safe))
                                        (__foldr1
                                         __tmp171197
                                         '()
                                         _%L154294%_))))
                                    (_%body154333%_
                                     (let ()
                                       (declare (not safe))
                                       (gxc#compile-e__1
                                        _%self154199%_
                                        _%L154293%_))))
                                (let ((__tmp171198
                                       (cons _%L154295%_
                                             (cons _%hd154332%_
                                                   (cons _%body154333%_
                                                         '())))))
                                  (declare (not safe))
                                  (gxc#xform-wrap-source
                                   __tmp171198
                                   _%stx154200%_)))))
                           (__tmp171195
                            (let ((__obj170849
                                   (let ()
                                     (declare (not safe))
                                     (##structure
                                      gx#local-context::t
                                      '#f
                                      '#f
                                      '#f
                                      '#f
                                      '#f))))
                              (let ()
                                (declare (not safe))
                                (gx#local-context:::init!__0 __obj170849))
                              __obj170849)))
                       (declare (not safe))
                       (__call-with-parameters
                        __tmp171196
                        gx#current-expander-context
                        __tmp171195))))
                  (_%__kont170743170744%_
                   (lambda ()
                     (let ()
                       (declare (not safe))
                       (gxc#xform-let-values% _%self154199%_ _%stx154200%_)))))
              (let ((_%__match170764170765%_
                     (lambda (_%e154211154245%_
                              _%hd154212154248%_
                              _%tl154213154250%_
                              _%e154214154253%_
                              _%hd154215154256%_
                              _%tl154216154258%_
                              _%__splice170741170742%_
                              _%target154217154261%_
                              _%tl154219154263%_)
                       (letrec ((_%loop154220154266%_
                                 (lambda (_%hd154218154269%_
                                          _%bind154224154271%_)
                                   (if (let ()
                                         (declare (not safe))
                                         (gx#stx-pair? _%hd154218154269%_))
                                       (let ((_%e154221154274%_
                                              (let ()
                                                (declare (not safe))
                                                (gx#stx-e
                                                 _%hd154218154269%_))))
                                         (let ((_%lp-tl154223154279%_
                                                (let ()
                                                  (declare (not safe))
                                                  (##cdr _%e154221154274%_)))
                                               (_%lp-hd154222154277%_
                                                (let ()
                                                  (declare (not safe))
                                                  (##car _%e154221154274%_))))
                                           (_%loop154220154266%_
                                            _%lp-tl154223154279%_
                                            (cons _%lp-hd154222154277%_
                                                  _%bind154224154271%_))))
                                       (let ((_%bind154225154282%_
                                              (reverse _%bind154224154271%_)))
                                         (if (let ()
                                               (declare (not safe))
                                               (gx#stx-pair?
                                                _%tl154216154258%_))
                                             (let ((_%e154226154285%_
                                                    (let ()
                                                      (declare (not safe))
                                                      (gx#stx-e
                                                       _%tl154216154258%_))))
                                               (let ((_%tl154228154290%_
                                                      (let ()
                                                        (declare (not safe))
                                                        (##cdr _%e154226154285%_)))
                                                     (_%hd154227154288%_
                                                      (let ()
                                                        (declare (not safe))
                                                        (##car _%e154226154285%_))))
                                                 (if (let ()
                                                       (declare (not safe))
                                                       (gx#stx-null?
                                                        _%tl154228154290%_))
                                                     (let ((_%L154293%_
                                                            _%hd154227154288%_)
                                                           (_%L154294%_
                                                            _%bind154225154282%_)
                                                           (_%L154295%_
                                                            _%hd154212154248%_))
                                                       (if (let ((__tmp171199
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                          (let ((__tmp171200
                                 (lambda (_%g154316154319%_ _%g154317154321%_)
                                   (cons _%g154316154319%_
                                         _%g154317154321%_))))
                            (declare (not safe))
                            (__foldr1 __tmp171200 '() _%L154294%_))))
                     (declare (not safe))
                     (__ormap1 gxc#lift-top-lambda-binding? __tmp171199))
                   (_%__kont170739170740%_ _%L154293%_ _%L154294%_ _%L154295%_)
                   (_%__kont170743170744%_)))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                                     (_%__kont170743170744%_))))
                                             (_%__kont170743170744%_)))))))
                         (_%loop154220154266%_ _%target154217154261%_ '())))))
                (if (let ()
                      (declare (not safe))
                      (gx#stx-pair? _%__stx170737170738%_))
                    (let ((_%e154211154245%_
                           (let ()
                             (declare (not safe))
                             (gx#stx-e _%__stx170737170738%_))))
                      (let ((_%tl154213154250%_
                             (let ()
                               (declare (not safe))
                               (##cdr _%e154211154245%_)))
                            (_%hd154212154248%_
                             (let ()
                               (declare (not safe))
                               (##car _%e154211154245%_))))
                        (if (let ()
                              (declare (not safe))
                              (gx#stx-pair? _%tl154213154250%_))
                            (let ((_%e154214154253%_
                                   (let ()
                                     (declare (not safe))
                                     (gx#stx-e _%tl154213154250%_))))
                              (let ((_%tl154216154258%_
                                     (let ()
                                       (declare (not safe))
                                       (##cdr _%e154214154253%_)))
                                    (_%hd154215154256%_
                                     (let ()
                                       (declare (not safe))
                                       (##car _%e154214154253%_))))
                                (if (let ()
                                      (declare (not safe))
                                      (gx#stx-pair/null? _%hd154215154256%_))
                                    (let ((_%__splice170741170742%_
                                           (let ()
                                             (declare (not safe))
                                             (gx#syntax-split-splice
                                              _%hd154215154256%_
                                              '0))))
                                      (let ((_%tl154219154263%_
                                             (let ()
                                               (declare (not safe))
                                               (##vector-ref
                                                _%__splice170741170742%_
                                                '1)))
                                            (_%target154217154261%_
                                             (let ()
                                               (declare (not safe))
                                               (##vector-ref
                                                _%__splice170741170742%_
                                                '0))))
                                        (if (let ()
                                              (declare (not safe))
                                              (gx#stx-null?
                                               _%tl154219154263%_))
                                            (_%__match170764170765%_
                                             _%e154211154245%_
                                             _%hd154212154248%_
                                             _%tl154213154250%_
                                             _%e154214154253%_
                                             _%hd154215154256%_
                                             _%tl154216154258%_
                                             _%__splice170741170742%_
                                             _%target154217154261%_
                                             _%tl154219154263%_)
                                            (_%__kont170743170744%_))))
                                    (_%__kont170743170744%_))))
                            (_%__kont170743170744%_))))
                    (_%__kont170743170744%_))))))))
    (define gxc#lift-top-lambda-binding?
      (lambda (_%bind154117%_)
        (let* ((_%__stx170767170768%_ _%bind154117%_)
               (_%g154120154137%_
                (lambda ()
                  (let ()
                    (declare (not safe))
                    (gx#raise-syntax-error
                     '#f
                     '"Bad syntax; invalid match target"
                     _%__stx170767170768%_)))))
          (let ((_%__kont170769170770%_
                 (lambda (_%L154173%_ _%L154174%_)
                   (if (let ()
                         (declare (not safe))
                         (gx#identifier? _%L154174%_))
                       (let ((_%$e154190%_
                              (gxc#case-lambda-expr? _%L154173%_)))
                         (if _%$e154190%_
                             _%$e154190%_
                             (let ((_%$e154193%_
                                    (gxc#opt-lambda-expr? _%L154173%_)))
                               (if _%$e154193%_
                                   _%$e154193%_
                                   (gxc#kw-lambda-expr? _%L154173%_)))))
                       '#f)))
                (_%__kont170771170772%_ (lambda () '#f)))
            (if (let ()
                  (declare (not safe))
                  (gx#stx-pair? _%__stx170767170768%_))
                (let ((_%e154124154149%_
                       (let ()
                         (declare (not safe))
                         (gx#stx-e _%__stx170767170768%_))))
                  (let ((_%tl154126154154%_
                         (let ()
                           (declare (not safe))
                           (##cdr _%e154124154149%_)))
                        (_%hd154125154152%_
                         (let ()
                           (declare (not safe))
                           (##car _%e154124154149%_))))
                    (if (let ()
                          (declare (not safe))
                          (gx#stx-pair? _%hd154125154152%_))
                        (let ((_%e154127154157%_
                               (let ()
                                 (declare (not safe))
                                 (gx#stx-e _%hd154125154152%_))))
                          (let ((_%tl154129154162%_
                                 (let ()
                                   (declare (not safe))
                                   (##cdr _%e154127154157%_)))
                                (_%hd154128154160%_
                                 (let ()
                                   (declare (not safe))
                                   (##car _%e154127154157%_))))
                            (if (let ()
                                  (declare (not safe))
                                  (gx#stx-null? _%tl154129154162%_))
                                (if (let ()
                                      (declare (not safe))
                                      (gx#stx-pair? _%tl154126154154%_))
                                    (let ((_%e154130154165%_
                                           (let ()
                                             (declare (not safe))
                                             (gx#stx-e _%tl154126154154%_))))
                                      (let ((_%tl154132154170%_
                                             (let ()
                                               (declare (not safe))
                                               (##cdr _%e154130154165%_)))
                                            (_%hd154131154168%_
                                             (let ()
                                               (declare (not safe))
                                               (##car _%e154130154165%_))))
                                        (if (let ()
                                              (declare (not safe))
                                              (gx#stx-null?
                                               _%tl154132154170%_))
                                            (_%__kont170769170770%_
                                             _%hd154131154168%_
                                             _%hd154128154160%_)
                                            (_%__kont170771170772%_))))
                                    (_%__kont170771170772%_))
                                (_%__kont170771170772%_))))
                        (_%__kont170771170772%_))))
                (_%__kont170771170772%_))))))))
