(declare (block) (standard-bindings) (extended-bindings) (inlining-limit 200))
(begin
  (define |[1]#_g110018_|
    (##structure
     gx#syntax-quote::t
     'Error
     #f
     (gx#current-expander-context)
     '()))
  (define |[1]#_g110020_|
    (##structure
     gx#syntax-quote::t
     'UnboundKeyError::t
     #f
     (gx#current-expander-context)
     '()))
  (define |[1]#_g110022_|
    (##structure
     gx#syntax-quote::t
     'make-UnboundKeyError
     #f
     (gx#current-expander-context)
     '()))
  (define |[1]#_g110024_|
    (##structure
     gx#syntax-quote::t
     'UnboundKeyError?
     #f
     (gx#current-expander-context)
     '()))
  (define |[1]#_g110026_|
    (##structure
     gx#syntax-quote::t
     'UnboundKeyError-message
     #f
     (gx#current-expander-context)
     '()))
  (define |[1]#_g110027_|
    (##structure
     gx#syntax-quote::t
     'UnboundKeyError-irritants
     #f
     (gx#current-expander-context)
     '()))
  (define |[1]#_g110028_|
    (##structure
     gx#syntax-quote::t
     'UnboundKeyError-where
     #f
     (gx#current-expander-context)
     '()))
  (define |[1]#_g110029_|
    (##structure
     gx#syntax-quote::t
     'UnboundKeyError-continuation
     #f
     (gx#current-expander-context)
     '()))
  (define |[1]#_g110031_|
    (##structure
     gx#syntax-quote::t
     'UnboundKeyError-message-set!
     #f
     (gx#current-expander-context)
     '()))
  (define |[1]#_g110032_|
    (##structure
     gx#syntax-quote::t
     'UnboundKeyError-irritants-set!
     #f
     (gx#current-expander-context)
     '()))
  (define |[1]#_g110033_|
    (##structure
     gx#syntax-quote::t
     'UnboundKeyError-where-set!
     #f
     (gx#current-expander-context)
     '()))
  (define |[1]#_g110034_|
    (##structure
     gx#syntax-quote::t
     'UnboundKeyError-continuation-set!
     #f
     (gx#current-expander-context)
     '()))
  (define |[1]#_g110036_|
    (##structure
     gx#syntax-quote::t
     '&UnboundKeyError-message
     #f
     (gx#current-expander-context)
     '()))
  (define |[1]#_g110037_|
    (##structure
     gx#syntax-quote::t
     '&UnboundKeyError-irritants
     #f
     (gx#current-expander-context)
     '()))
  (define |[1]#_g110038_|
    (##structure
     gx#syntax-quote::t
     '&UnboundKeyError-where
     #f
     (gx#current-expander-context)
     '()))
  (define |[1]#_g110039_|
    (##structure
     gx#syntax-quote::t
     '&UnboundKeyError-continuation
     #f
     (gx#current-expander-context)
     '()))
  (define |[1]#_g110041_|
    (##structure
     gx#syntax-quote::t
     '&UnboundKeyError-message-set!
     #f
     (gx#current-expander-context)
     '()))
  (define |[1]#_g110042_|
    (##structure
     gx#syntax-quote::t
     '&UnboundKeyError-irritants-set!
     #f
     (gx#current-expander-context)
     '()))
  (define |[1]#_g110043_|
    (##structure
     gx#syntax-quote::t
     '&UnboundKeyError-where-set!
     #f
     (gx#current-expander-context)
     '()))
  (define |[1]#_g110044_|
    (##structure
     gx#syntax-quote::t
     '&UnboundKeyError-continuation-set!
     #f
     (gx#current-expander-context)
     '()))
  (define |[1]#_g110046_|
    (##structure
     gx#syntax-quote::t
     'HashTable
     #f
     (gx#current-expander-context)
     '()))
  (define |[1]#_g110048_|
    (##structure
     gx#syntax-quote::t
     'HashTable::t
     #f
     (gx#current-expander-context)
     '()))
  (define |[1]#_g110050_|
    (##structure
     gx#syntax-quote::t
     'HashTable::interface
     #f
     (gx#current-expander-context)
     '()))
  (define |[1]#_g110052_|
    (##structure
     gx#syntax-quote::t
     'make-HashTable
     #f
     (gx#current-expander-context)
     '()))
  (define |[1]#_g110054_|
    (##structure
     gx#syntax-quote::t
     'try-HashTable
     #f
     (gx#current-expander-context)
     '()))
  (define |[1]#_g110056_|
    (##structure
     gx#syntax-quote::t
     'HashTable?
     #f
     (gx#current-expander-context)
     '()))
  (define |[1]#_g110058_|
    (##structure
     gx#syntax-quote::t
     'is-HashTable?
     #f
     (gx#current-expander-context)
     '()))
  (define |[1]#_g110060_|
    (##structure
     gx#syntax-quote::t
     'HashTable-clear!
     #f
     (gx#current-expander-context)
     '()))
  (define |[1]#_g110061_|
    (##structure
     gx#syntax-quote::t
     'HashTable-copy
     #f
     (gx#current-expander-context)
     '()))
  (define |[1]#_g110062_|
    (##structure
     gx#syntax-quote::t
     'HashTable-delete!
     #f
     (gx#current-expander-context)
     '()))
  (define |[1]#_g110063_|
    (##structure
     gx#syntax-quote::t
     'HashTable-for-each
     #f
     (gx#current-expander-context)
     '()))
  (define |[1]#_g110064_|
    (##structure
     gx#syntax-quote::t
     'HashTable-length
     #f
     (gx#current-expander-context)
     '()))
  (define |[1]#_g110065_|
    (##structure
     gx#syntax-quote::t
     'HashTable-ref
     #f
     (gx#current-expander-context)
     '()))
  (define |[1]#_g110066_|
    (##structure
     gx#syntax-quote::t
     'HashTable-set!
     #f
     (gx#current-expander-context)
     '()))
  (define |[1]#_g110067_|
    (##structure
     gx#syntax-quote::t
     'HashTable-update!
     #f
     (gx#current-expander-context)
     '()))
  (define |[1]#_g110069_|
    (##structure
     gx#syntax-quote::t
     '&HashTable-clear!
     #f
     (gx#current-expander-context)
     '()))
  (define |[1]#_g110070_|
    (##structure
     gx#syntax-quote::t
     '&HashTable-copy
     #f
     (gx#current-expander-context)
     '()))
  (define |[1]#_g110071_|
    (##structure
     gx#syntax-quote::t
     '&HashTable-delete!
     #f
     (gx#current-expander-context)
     '()))
  (define |[1]#_g110072_|
    (##structure
     gx#syntax-quote::t
     '&HashTable-for-each
     #f
     (gx#current-expander-context)
     '()))
  (define |[1]#_g110073_|
    (##structure
     gx#syntax-quote::t
     '&HashTable-length
     #f
     (gx#current-expander-context)
     '()))
  (define |[1]#_g110074_|
    (##structure
     gx#syntax-quote::t
     '&HashTable-ref
     #f
     (gx#current-expander-context)
     '()))
  (define |[1]#_g110075_|
    (##structure
     gx#syntax-quote::t
     '&HashTable-set!
     #f
     (gx#current-expander-context)
     '()))
  (define |[1]#_g110076_|
    (##structure
     gx#syntax-quote::t
     '&HashTable-update!
     #f
     (gx#current-expander-context)
     '()))
  (define |[1]#_g110078_|
    (##structure
     gx#syntax-quote::t
     'Locker::t
     #f
     (gx#current-expander-context)
     '()))
  (define |[1]#_g110080_|
    (##structure
     gx#syntax-quote::t
     'Locker::interface
     #f
     (gx#current-expander-context)
     '()))
  (define |[1]#_g110082_|
    (##structure
     gx#syntax-quote::t
     'make-Locker
     #f
     (gx#current-expander-context)
     '()))
  (define |[1]#_g110084_|
    (##structure
     gx#syntax-quote::t
     'try-Locker
     #f
     (gx#current-expander-context)
     '()))
  (define |[1]#_g110086_|
    (##structure
     gx#syntax-quote::t
     'Locker?
     #f
     (gx#current-expander-context)
     '()))
  (define |[1]#_g110088_|
    (##structure
     gx#syntax-quote::t
     'is-Locker?
     #f
     (gx#current-expander-context)
     '()))
  (define |[1]#_g110090_|
    (##structure
     gx#syntax-quote::t
     'Locker-read-lock!
     #f
     (gx#current-expander-context)
     '()))
  (define |[1]#_g110091_|
    (##structure
     gx#syntax-quote::t
     'Locker-read-unlock!
     #f
     (gx#current-expander-context)
     '()))
  (define |[1]#_g110092_|
    (##structure
     gx#syntax-quote::t
     'Locker-write-lock!
     #f
     (gx#current-expander-context)
     '()))
  (define |[1]#_g110093_|
    (##structure
     gx#syntax-quote::t
     'Locker-write-unlock!
     #f
     (gx#current-expander-context)
     '()))
  (define |[1]#_g110095_|
    (##structure
     gx#syntax-quote::t
     '&Locker-read-lock!
     #f
     (gx#current-expander-context)
     '()))
  (define |[1]#_g110096_|
    (##structure
     gx#syntax-quote::t
     '&Locker-read-unlock!
     #f
     (gx#current-expander-context)
     '()))
  (define |[1]#_g110097_|
    (##structure
     gx#syntax-quote::t
     '&Locker-write-lock!
     #f
     (gx#current-expander-context)
     '()))
  (define |[1]#_g110098_|
    (##structure
     gx#syntax-quote::t
     '&Locker-write-unlock!
     #f
     (gx#current-expander-context)
     '()))
  (define |[1]#_g110100_|
    (##structure
     gx#syntax-quote::t
     'locked-hash-table::t
     #f
     (gx#current-expander-context)
     '()))
  (define |[1]#_g110102_|
    (##structure
     gx#syntax-quote::t
     'make-locked-hash-table
     #f
     (gx#current-expander-context)
     '()))
  (define |[1]#_g110104_|
    (##structure
     gx#syntax-quote::t
     'locked-hash-table?
     #f
     (gx#current-expander-context)
     '()))
  (define |[1]#_g110106_|
    (##structure
     gx#syntax-quote::t
     'locked-hash-table-table
     #f
     (gx#current-expander-context)
     '()))
  (define |[1]#_g110107_|
    (##structure
     gx#syntax-quote::t
     'locked-hash-table-lock
     #f
     (gx#current-expander-context)
     '()))
  (define |[1]#_g110109_|
    (##structure
     gx#syntax-quote::t
     'locked-hash-table-table-set!
     #f
     (gx#current-expander-context)
     '()))
  (define |[1]#_g110110_|
    (##structure
     gx#syntax-quote::t
     'locked-hash-table-lock-set!
     #f
     (gx#current-expander-context)
     '()))
  (define |[1]#_g110112_|
    (##structure
     gx#syntax-quote::t
     '&locked-hash-table-table
     #f
     (gx#current-expander-context)
     '()))
  (define |[1]#_g110113_|
    (##structure
     gx#syntax-quote::t
     '&locked-hash-table-lock
     #f
     (gx#current-expander-context)
     '()))
  (define |[1]#_g110115_|
    (##structure
     gx#syntax-quote::t
     '&locked-hash-table-table-set!
     #f
     (gx#current-expander-context)
     '()))
  (define |[1]#_g110116_|
    (##structure
     gx#syntax-quote::t
     '&locked-hash-table-lock-set!
     #f
     (gx#current-expander-context)
     '()))
  (define |[1]#_g110118_|
    (##structure
     gx#syntax-quote::t
     'checked-hash-table::t
     #f
     (gx#current-expander-context)
     '()))
  (define |[1]#_g110120_|
    (##structure
     gx#syntax-quote::t
     'make-checked-hash-table
     #f
     (gx#current-expander-context)
     '()))
  (define |[1]#_g110122_|
    (##structure
     gx#syntax-quote::t
     'checked-hash-table?
     #f
     (gx#current-expander-context)
     '()))
  (define |[1]#_g110124_|
    (##structure
     gx#syntax-quote::t
     'checked-hash-table-table
     #f
     (gx#current-expander-context)
     '()))
  (define |[1]#_g110125_|
    (##structure
     gx#syntax-quote::t
     'checked-hash-table-key-check
     #f
     (gx#current-expander-context)
     '()))
  (define |[1]#_g110127_|
    (##structure
     gx#syntax-quote::t
     'checked-hash-table-table-set!
     #f
     (gx#current-expander-context)
     '()))
  (define |[1]#_g110128_|
    (##structure
     gx#syntax-quote::t
     'checked-hash-table-key-check-set!
     #f
     (gx#current-expander-context)
     '()))
  (define |[1]#_g110130_|
    (##structure
     gx#syntax-quote::t
     '&checked-hash-table-table
     #f
     (gx#current-expander-context)
     '()))
  (define |[1]#_g110131_|
    (##structure
     gx#syntax-quote::t
     '&checked-hash-table-key-check
     #f
     (gx#current-expander-context)
     '()))
  (define |[1]#_g110133_|
    (##structure
     gx#syntax-quote::t
     '&checked-hash-table-table-set!
     #f
     (gx#current-expander-context)
     '()))
  (define |[1]#_g110134_|
    (##structure
     gx#syntax-quote::t
     '&checked-hash-table-key-check-set!
     #f
     (gx#current-expander-context)
     '()))
  (begin
    (define |[:0:]#UnboundKeyError|
      (let ((__obj109927
             (let ()
               (declare (not safe))
               (##structure
                gerbil/core/mop~MOP-2#class-type-info::t
                '#f
                '#f
                '#f
                '#f
                '#f
                '#f
                '#f
                '#f
                '#f
                '#f
                '#f
                '#f
                '#f
                '#f
                '#f
                '#f
                '#f
                '#f
                '#f
                '#f
                '#f))))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set!
           __obj109927
           'gerbil/runtime/hash#UnboundKeyError::t
           '1
           '#f
           '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj109927 'UnboundKeyError '2 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj109927 '() '4 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set!
           __obj109927
           '(continuation message irritants where)
           '6
           '#f
           '#f))
        (let ((__tmp110017 (cons |[1]#_g110018_| '())))
          (declare (not safe))
          (##unchecked-structure-set! __obj109927 __tmp110017 '3 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj109927 '#f '7 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj109927 '#f '8 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj109927 '#f '10 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj109927 ':init! '11 '#f '#f))
        (let ((__tmp110019 |[1]#_g110020_|))
          (declare (not safe))
          (##unchecked-structure-set! __obj109927 __tmp110019 '12 '#f '#f))
        (let ((__tmp110021 |[1]#_g110022_|))
          (declare (not safe))
          (##unchecked-structure-set! __obj109927 __tmp110021 '13 '#f '#f))
        (let ((__tmp110023 |[1]#_g110024_|))
          (declare (not safe))
          (##unchecked-structure-set! __obj109927 __tmp110023 '14 '#f '#f))
        (let ((__tmp110025
               (cons (cons 'message |[1]#_g110026_|)
                     (cons (cons 'irritants |[1]#_g110027_|)
                           (cons (cons 'where |[1]#_g110028_|)
                                 (cons (cons 'continuation |[1]#_g110029_|)
                                       '()))))))
          (declare (not safe))
          (##unchecked-structure-set! __obj109927 __tmp110025 '15 '#f '#f))
        (let ((__tmp110030
               (cons (cons 'message |[1]#_g110031_|)
                     (cons (cons 'irritants |[1]#_g110032_|)
                           (cons (cons 'where |[1]#_g110033_|)
                                 (cons (cons 'continuation |[1]#_g110034_|)
                                       '()))))))
          (declare (not safe))
          (##unchecked-structure-set! __obj109927 __tmp110030 '16 '#f '#f))
        (let ((__tmp110035
               (cons (cons 'message |[1]#_g110036_|)
                     (cons (cons 'irritants |[1]#_g110037_|)
                           (cons (cons 'where |[1]#_g110038_|)
                                 (cons (cons 'continuation |[1]#_g110039_|)
                                       '()))))))
          (declare (not safe))
          (##unchecked-structure-set! __obj109927 __tmp110035 '17 '#f '#f))
        (let ((__tmp110040
               (cons (cons 'message |[1]#_g110041_|)
                     (cons (cons 'irritants |[1]#_g110042_|)
                           (cons (cons 'where |[1]#_g110043_|)
                                 (cons (cons 'continuation |[1]#_g110044_|)
                                       '()))))))
          (declare (not safe))
          (##unchecked-structure-set! __obj109927 __tmp110040 '18 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj109927 '() '19 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj109927 '() '21 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj109927 '() '20 '#f '#f))
        __obj109927))
    (define |[:0:]#@HashTable|
      (let ((__obj109929
             (let ()
               (declare (not safe))
               (##structure
                |gerbil/core/contract~TypeReference[1]#type-reference::t|
                '#f))))
        (let ((__tmp110045 |[1]#_g110046_|))
          (declare (not safe))
          (##unchecked-structure-set! __obj109929 __tmp110045 '1 '#f '#f))
        __obj109929))
    (define |[:0:]#HashTable|
      (let ((__obj109930
             (let ()
               (declare (not safe))
               (##structure
                gerbil/core/contract~InterfaceInfo#interface-info::t
                '#f
                '#f
                '#f
                '#f
                '#f
                '#f
                '#f
                '#f
                '#f
                '#f
                '#f))))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj109930 'HashTable '1 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj109930 '() '2 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set!
           __obj109930
           '((clear! () :void)
             (copy () @HashTable)
             (delete! (key) :void)
             (for-each ((proc : :procedure)) :void)
             (length () :fixnum)
             (ref (key default) :t)
             (set! (key value) :void)
             (update! (key (proc : :procedure) default) :void))
           '3
           '#f
           '#f))
        (let ((__tmp110047 |[1]#_g110048_|))
          (declare (not safe))
          (##unchecked-structure-set! __obj109930 __tmp110047 '4 '#f '#f))
        (let ((__tmp110049 |[1]#_g110050_|))
          (declare (not safe))
          (##unchecked-structure-set! __obj109930 __tmp110049 '5 '#f '#f))
        (let ((__tmp110051 |[1]#_g110052_|))
          (declare (not safe))
          (##unchecked-structure-set! __obj109930 __tmp110051 '6 '#f '#f))
        (let ((__tmp110053 |[1]#_g110054_|))
          (declare (not safe))
          (##unchecked-structure-set! __obj109930 __tmp110053 '7 '#f '#f))
        (let ((__tmp110055 |[1]#_g110056_|))
          (declare (not safe))
          (##unchecked-structure-set! __obj109930 __tmp110055 '8 '#f '#f))
        (let ((__tmp110057 |[1]#_g110058_|))
          (declare (not safe))
          (##unchecked-structure-set! __obj109930 __tmp110057 '9 '#f '#f))
        (let ((__tmp110059
               (cons |[1]#_g110060_|
                     (cons |[1]#_g110061_|
                           (cons |[1]#_g110062_|
                                 (cons |[1]#_g110063_|
                                       (cons |[1]#_g110064_|
                                             (cons |[1]#_g110065_|
                                                   (cons |[1]#_g110066_|
                                                         (cons |[1]#_g110067_|
                                                               '()))))))))))
          (declare (not safe))
          (##unchecked-structure-set! __obj109930 __tmp110059 '10 '#f '#f))
        (let ((__tmp110068
               (cons |[1]#_g110069_|
                     (cons |[1]#_g110070_|
                           (cons |[1]#_g110071_|
                                 (cons |[1]#_g110072_|
                                       (cons |[1]#_g110073_|
                                             (cons |[1]#_g110074_|
                                                   (cons |[1]#_g110075_|
                                                         (cons |[1]#_g110076_|
                                                               '()))))))))))
          (declare (not safe))
          (##unchecked-structure-set! __obj109930 __tmp110068 '11 '#f '#f))
        __obj109930))
    (define |[:0:]#Locker|
      (let ((__obj109931
             (let ()
               (declare (not safe))
               (##structure
                gerbil/core/contract~InterfaceInfo#interface-info::t
                '#f
                '#f
                '#f
                '#f
                '#f
                '#f
                '#f
                '#f
                '#f
                '#f
                '#f))))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj109931 'Locker '1 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj109931 '() '2 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set!
           __obj109931
           '((read-lock! () :void)
             (read-unlock! () :void)
             (write-lock! () :void)
             (write-unlock! () :void))
           '3
           '#f
           '#f))
        (let ((__tmp110077 |[1]#_g110078_|))
          (declare (not safe))
          (##unchecked-structure-set! __obj109931 __tmp110077 '4 '#f '#f))
        (let ((__tmp110079 |[1]#_g110080_|))
          (declare (not safe))
          (##unchecked-structure-set! __obj109931 __tmp110079 '5 '#f '#f))
        (let ((__tmp110081 |[1]#_g110082_|))
          (declare (not safe))
          (##unchecked-structure-set! __obj109931 __tmp110081 '6 '#f '#f))
        (let ((__tmp110083 |[1]#_g110084_|))
          (declare (not safe))
          (##unchecked-structure-set! __obj109931 __tmp110083 '7 '#f '#f))
        (let ((__tmp110085 |[1]#_g110086_|))
          (declare (not safe))
          (##unchecked-structure-set! __obj109931 __tmp110085 '8 '#f '#f))
        (let ((__tmp110087 |[1]#_g110088_|))
          (declare (not safe))
          (##unchecked-structure-set! __obj109931 __tmp110087 '9 '#f '#f))
        (let ((__tmp110089
               (cons |[1]#_g110090_|
                     (cons |[1]#_g110091_|
                           (cons |[1]#_g110092_|
                                 (cons |[1]#_g110093_| '()))))))
          (declare (not safe))
          (##unchecked-structure-set! __obj109931 __tmp110089 '10 '#f '#f))
        (let ((__tmp110094
               (cons |[1]#_g110095_|
                     (cons |[1]#_g110096_|
                           (cons |[1]#_g110097_|
                                 (cons |[1]#_g110098_| '()))))))
          (declare (not safe))
          (##unchecked-structure-set! __obj109931 __tmp110094 '11 '#f '#f))
        __obj109931))
    (define |[:0:]#locked-hash-table|
      (let ((__obj109932
             (let ()
               (declare (not safe))
               (##structure
                gerbil/core/mop~MOP-2#class-type-info::t
                '#f
                '#f
                '#f
                '#f
                '#f
                '#f
                '#f
                '#f
                '#f
                '#f
                '#f
                '#f
                '#f
                '#f
                '#f
                '#f
                '#f
                '#f
                '#f
                '#f
                '#f))))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set!
           __obj109932
           'gerbil/runtime/hash#locked-hash-table::t
           '1
           '#f
           '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set!
           __obj109932
           'locked-hash-table
           '2
           '#f
           '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj109932 '(table lock) '4 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj109932 '(table lock) '6 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj109932 '() '3 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj109932 '#t '7 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj109932 '#t '8 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj109932 '#f '10 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj109932 '#f '11 '#f '#f))
        (let ((__tmp110099 |[1]#_g110100_|))
          (declare (not safe))
          (##unchecked-structure-set! __obj109932 __tmp110099 '12 '#f '#f))
        (let ((__tmp110101 |[1]#_g110102_|))
          (declare (not safe))
          (##unchecked-structure-set! __obj109932 __tmp110101 '13 '#f '#f))
        (let ((__tmp110103 |[1]#_g110104_|))
          (declare (not safe))
          (##unchecked-structure-set! __obj109932 __tmp110103 '14 '#f '#f))
        (let ((__tmp110105
               (cons (cons 'table |[1]#_g110106_|)
                     (cons (cons 'lock |[1]#_g110107_|) '()))))
          (declare (not safe))
          (##unchecked-structure-set! __obj109932 __tmp110105 '15 '#f '#f))
        (let ((__tmp110108
               (cons (cons 'table |[1]#_g110109_|)
                     (cons (cons 'lock |[1]#_g110110_|) '()))))
          (declare (not safe))
          (##unchecked-structure-set! __obj109932 __tmp110108 '16 '#f '#f))
        (let ((__tmp110111
               (cons (cons 'table |[1]#_g110112_|)
                     (cons (cons 'lock |[1]#_g110113_|) '()))))
          (declare (not safe))
          (##unchecked-structure-set! __obj109932 __tmp110111 '17 '#f '#f))
        (let ((__tmp110114
               (cons (cons 'table |[1]#_g110115_|)
                     (cons (cons 'lock |[1]#_g110116_|) '()))))
          (declare (not safe))
          (##unchecked-structure-set! __obj109932 __tmp110114 '18 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj109932 '() '19 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj109932 '() '21 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj109932 '() '20 '#f '#f))
        __obj109932))
    (define |[:0:]#checked-hash-table|
      (let ((__obj109933
             (let ()
               (declare (not safe))
               (##structure
                gerbil/core/mop~MOP-2#class-type-info::t
                '#f
                '#f
                '#f
                '#f
                '#f
                '#f
                '#f
                '#f
                '#f
                '#f
                '#f
                '#f
                '#f
                '#f
                '#f
                '#f
                '#f
                '#f
                '#f
                '#f
                '#f))))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set!
           __obj109933
           'gerbil/runtime/hash#checked-hash-table::t
           '1
           '#f
           '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set!
           __obj109933
           'checked-hash-table
           '2
           '#f
           '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set!
           __obj109933
           '(table key-check)
           '4
           '#f
           '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set!
           __obj109933
           '(table key-check)
           '6
           '#f
           '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj109933 '() '3 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj109933 '#t '7 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj109933 '#t '8 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj109933 '#f '10 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj109933 '#f '11 '#f '#f))
        (let ((__tmp110117 |[1]#_g110118_|))
          (declare (not safe))
          (##unchecked-structure-set! __obj109933 __tmp110117 '12 '#f '#f))
        (let ((__tmp110119 |[1]#_g110120_|))
          (declare (not safe))
          (##unchecked-structure-set! __obj109933 __tmp110119 '13 '#f '#f))
        (let ((__tmp110121 |[1]#_g110122_|))
          (declare (not safe))
          (##unchecked-structure-set! __obj109933 __tmp110121 '14 '#f '#f))
        (let ((__tmp110123
               (cons (cons 'table |[1]#_g110124_|)
                     (cons (cons 'key-check |[1]#_g110125_|) '()))))
          (declare (not safe))
          (##unchecked-structure-set! __obj109933 __tmp110123 '15 '#f '#f))
        (let ((__tmp110126
               (cons (cons 'table |[1]#_g110127_|)
                     (cons (cons 'key-check |[1]#_g110128_|) '()))))
          (declare (not safe))
          (##unchecked-structure-set! __obj109933 __tmp110126 '16 '#f '#f))
        (let ((__tmp110129
               (cons (cons 'table |[1]#_g110130_|)
                     (cons (cons 'key-check |[1]#_g110131_|) '()))))
          (declare (not safe))
          (##unchecked-structure-set! __obj109933 __tmp110129 '17 '#f '#f))
        (let ((__tmp110132
               (cons (cons 'table |[1]#_g110133_|)
                     (cons (cons 'key-check |[1]#_g110134_|) '()))))
          (declare (not safe))
          (##unchecked-structure-set! __obj109933 __tmp110132 '18 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj109933 '() '19 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj109933 '() '21 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj109933 '() '20 '#f '#f))
        __obj109933))
    (define |[:0:]#deflocked-hash-method|
      (lambda (_%$stx105051%_)
        (let* ((_%g105055105094%_
                (lambda (_%g105056105090%_)
                  (gx#raise-syntax-error
                   '#f
                   '"Bad syntax; invalid match target"
                   _%g105056105090%_)))
               (_%g105054105242%_
                (lambda (_%g105056105098%_)
                  (if (gx#stx-pair? _%g105056105098%_)
                      (let ((_%e105062105101%_
                             (gx#syntax-e _%g105056105098%_)))
                        (let ((_%hd105063105105%_
                               (let ()
                                 (declare (not safe))
                                 (##car _%e105062105101%_)))
                              (_%tl105064105108%_
                               (let ()
                                 (declare (not safe))
                                 (##cdr _%e105062105101%_))))
                          (if (gx#stx-pair? _%tl105064105108%_)
                              (let ((_%e105065105111%_
                                     (gx#syntax-e _%tl105064105108%_)))
                                (let ((_%hd105066105115%_
                                       (let ()
                                         (declare (not safe))
                                         (##car _%e105065105111%_)))
                                      (_%tl105067105118%_
                                       (let ()
                                         (declare (not safe))
                                         (##cdr _%e105065105111%_))))
                                  (if (gx#stx-pair? _%hd105066105115%_)
                                      (let ((_%e105068105121%_
                                             (gx#syntax-e _%hd105066105115%_)))
                                        (let ((_%hd105069105125%_
                                               (let ()
                                                 (declare (not safe))
                                                 (##car _%e105068105121%_)))
                                              (_%tl105070105128%_
                                               (let ()
                                                 (declare (not safe))
                                                 (##cdr _%e105068105121%_))))
                                          (if (gx#stx-pair/null?
                                               _%tl105070105128%_)
                                              (let ((_g110135_
                                                     (gx#syntax-split-splice
                                                      _%tl105070105128%_
                                                      '0)))
                                                (begin
                                                  (let ((_g110136_
                                                         (let ()
                                                           (declare (not safe))
                                                           (if (##values?
                                                                _g110135_)
                                                               (##vector-length
                                                                _g110135_)
                                                               1))))
                                                    (if (not (let ()
                                                               (declare
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                         (not safe))
                       (##fx= _g110136_ 2)))
                (error "Context expects 2 values" _g110136_)))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                                  (let ((_%target105071105131%_
                                                         (let ()
                                                           (declare (not safe))
                                                           (##vector-ref
                                                            _g110135_
                                                            0)))
                                                        (_%tl105073105134%_
                                                         (let ()
                                                           (declare (not safe))
                                                           (##vector-ref
                                                            _g110135_
                                                            1))))
                                                    (if (gx#stx-null?
                                                         _%tl105073105134%_)
                                                        (letrec ((_%loop105074105137%_
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                          (lambda (_%hd105072105141%_ _%arg105078105144%_)
                            (if (gx#stx-pair? _%hd105072105141%_)
                                (let ((_%e105075105147%_
                                       (gx#syntax-e _%hd105072105141%_)))
                                  (let ((_%lp-hd105076105151%_
                                         (let ()
                                           (declare (not safe))
                                           (##car _%e105075105147%_)))
                                        (_%lp-tl105077105154%_
                                         (let ()
                                           (declare (not safe))
                                           (##cdr _%e105075105147%_))))
                                    (_%loop105074105137%_
                                     _%lp-tl105077105154%_
                                     (cons _%lp-hd105076105151%_
                                           _%arg105078105144%_))))
                                (let ((_%arg105079105157%_
                                       (reverse _%arg105078105144%_)))
                                  (if (gx#stx-pair? _%tl105067105118%_)
                                      (let ((_%e105080105161%_
                                             (gx#syntax-e _%tl105067105118%_)))
                                        (let ((_%hd105081105165%_
                                               (let ()
                                                 (declare (not safe))
                                                 (##car _%e105080105161%_)))
                                              (_%tl105082105168%_
                                               (let ()
                                                 (declare (not safe))
                                                 (##cdr _%e105080105161%_))))
                                          (if (gx#stx-pair? _%tl105082105168%_)
                                              (let ((_%e105083105171%_
                                                     (gx#syntax-e
                                                      _%tl105082105168%_)))
                                                (let ((_%hd105084105175%_
                                                       (let ()
                                                         (declare (not safe))
                                                         (##car _%e105083105171%_)))
                                                      (_%tl105085105178%_
                                                       (let ()
                                                         (declare (not safe))
                                                         (##cdr _%e105083105171%_))))
                                                  (if (gx#stx-pair?
                                                       _%tl105085105178%_)
                                                      (let ((_%e105086105181%_
                                                             (gx#syntax-e
                                                              _%tl105085105178%_)))
                                                        (let ((_%hd105087105185%_
                                                               (let ()
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                         (declare (not safe))
                         (##car _%e105086105181%_)))
                      (_%tl105088105188%_
                       (let ()
                         (declare (not safe))
                         (##cdr _%e105086105181%_))))
                  (if (gx#stx-null? _%tl105088105188%_)
                      ((lambda (_%L105191%_
                                _%L105193%_
                                _%L105194%_
                                _%L105195%_
                                _%L105196%_)
                         (cons (gx#datum->syntax '#f 'defmethod)
                               (cons (cons (gx#datum->syntax '#f '@method)
                                           (cons _%L105196%_
                                                 (cons (gx#datum->syntax
                                                        '#f
                                                        'locked-hash-table)
                                                       '())))
                                     (cons (cons (gx#datum->syntax '#f 'lambda)
                                                 (cons (cons (gx#datum->syntax
                                                              '#f
                                                              'self)
                                                             (let ((__tmp110137
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                            (lambda (_%g105227105230%_ _%g105228105233%_)
                              (cons _%g105227105230%_ _%g105228105233%_))))
                       (declare (not safe))
                       (__foldr1 __tmp110137 '() _%L105195%_)))
               (cons (cons (gx#datum->syntax '#f 'let)
                           (cons (cons (cons (gx#datum->syntax '#f 'h)
                                             (cons (cons (gx#datum->syntax
                                                          '#f
                                                          '&locked-hash-table-table)
                                                         (cons (gx#datum->syntax
                                                                '#f
                                                                'self)
                                                               '()))
                                                   '()))
                                       (cons (cons (gx#datum->syntax '#f 'l)
                                                   (cons (cons (gx#datum->syntax
                                                                '#f
                                                                '&locked-hash-table-lock)
                                                               (cons (gx#datum->syntax
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                              '#f
                              'self)
                             '()))
                 '()))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                             '()))
                                 (cons (cons (gx#datum->syntax
                                              '#f
                                              'dynamic-wind)
                                             (cons (cons (gx#datum->syntax
                                                          '#f
                                                          'cut)
                                                         (cons _%L105194%_
                                                               (cons (gx#datum->syntax
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                              '#f
                              'l)
                             '())))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                                   (cons (cons (gx#datum->syntax
                                                                '#f
                                                                'cut)
                                                               (cons _%L105193%_
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                             (cons (gx#datum->syntax '#f 'h)
                                   (let ((__tmp110138
                                          (lambda (_%g105225105236%_
                                                   _%g105226105239%_)
                                            (cons _%g105225105236%_
                                                  _%g105226105239%_))))
                                     (declare (not safe))
                                     (__foldr1 __tmp110138 '() _%L105195%_)))))
                 (cons (cons (gx#datum->syntax '#f 'cut)
                             (cons _%L105191%_
                                   (cons (gx#datum->syntax '#f 'l) '())))
                       '()))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                       '())))
                     '())))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                           '()))))
                       _%hd105087105185%_
                       _%hd105084105175%_
                       _%hd105081105165%_
                       _%arg105079105157%_
                       _%hd105069105125%_)
                      (_%g105055105094%_ _%g105056105098%_))))
              (_%g105055105094%_ _%g105056105098%_))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                              (_%g105055105094%_
                                               _%g105056105098%_))))
                                      (_%g105055105094%_
                                       _%g105056105098%_)))))))
                  (_%loop105074105137%_ _%target105071105131%_ '()))
                (_%g105055105094%_ _%g105056105098%_)))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                              (_%g105055105094%_
                                               _%g105056105098%_))))
                                      (_%g105055105094%_ _%g105056105098%_))))
                              (_%g105055105094%_ _%g105056105098%_))))
                      (_%g105055105094%_ _%g105056105098%_)))))
          (_%g105054105242%_ _%$stx105051%_))))
    (define |[:0:]#defchecked-hash-method|
      (lambda (_%$stx105271%_)
        (let* ((_%g105275105314%_
                (lambda (_%g105276105310%_)
                  (gx#raise-syntax-error
                   '#f
                   '"Bad syntax; invalid match target"
                   _%g105276105310%_)))
               (_%g105274105477%_
                (lambda (_%g105276105318%_)
                  (if (gx#stx-pair? _%g105276105318%_)
                      (let ((_%e105282105321%_
                             (gx#syntax-e _%g105276105318%_)))
                        (let ((_%hd105283105325%_
                               (let ()
                                 (declare (not safe))
                                 (##car _%e105282105321%_)))
                              (_%tl105284105328%_
                               (let ()
                                 (declare (not safe))
                                 (##cdr _%e105282105321%_))))
                          (if (gx#stx-pair? _%tl105284105328%_)
                              (let ((_%e105285105331%_
                                     (gx#syntax-e _%tl105284105328%_)))
                                (let ((_%hd105286105335%_
                                       (let ()
                                         (declare (not safe))
                                         (##car _%e105285105331%_)))
                                      (_%tl105287105338%_
                                       (let ()
                                         (declare (not safe))
                                         (##cdr _%e105285105331%_))))
                                  (if (gx#stx-pair? _%hd105286105335%_)
                                      (let ((_%e105288105341%_
                                             (gx#syntax-e _%hd105286105335%_)))
                                        (let ((_%hd105289105345%_
                                               (let ()
                                                 (declare (not safe))
                                                 (##car _%e105288105341%_)))
                                              (_%tl105290105348%_
                                               (let ()
                                                 (declare (not safe))
                                                 (##cdr _%e105288105341%_))))
                                          (if (gx#stx-pair? _%tl105290105348%_)
                                              (let ((_%e105291105351%_
                                                     (gx#syntax-e
                                                      _%tl105290105348%_)))
                                                (let ((_%hd105292105355%_
                                                       (let ()
                                                         (declare (not safe))
                                                         (##car _%e105291105351%_)))
                                                      (_%tl105293105358%_
                                                       (let ()
                                                         (declare (not safe))
                                                         (##cdr _%e105291105351%_))))
                                                  (if (gx#stx-pair/null?
                                                       _%tl105293105358%_)
                                                      (let ((_g110139_
                                                             (gx#syntax-split-splice
                                                              _%tl105293105358%_
                                                              '0)))
                                                        (begin
                                                          (let ((_g110140_
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                         (let ()
                           (declare (not safe))
                           (if (##values? _g110139_)
                               (##vector-length _g110139_)
                               1))))
                    (if (not (let () (declare (not safe)) (##fx= _g110140_ 2)))
                        (error "Context expects 2 values" _g110140_)))
                  (let ((_%target105294105361%_
                         (let ()
                           (declare (not safe))
                           (##vector-ref _g110139_ 0)))
                        (_%tl105296105364%_
                         (let ()
                           (declare (not safe))
                           (##vector-ref _g110139_ 1))))
                    (if (gx#stx-null? _%tl105296105364%_)
                        (letrec ((_%loop105297105367%_
                                  (lambda (_%hd105295105371%_
                                           _%arg105301105374%_)
                                    (if (gx#stx-pair? _%hd105295105371%_)
                                        (let ((_%e105298105377%_
                                               (gx#syntax-e
                                                _%hd105295105371%_)))
                                          (let ((_%lp-hd105299105381%_
                                                 (let ()
                                                   (declare (not safe))
                                                   (##car _%e105298105377%_)))
                                                (_%lp-tl105300105384%_
                                                 (let ()
                                                   (declare (not safe))
                                                   (##cdr _%e105298105377%_))))
                                            (_%loop105297105367%_
                                             _%lp-tl105300105384%_
                                             (cons _%lp-hd105299105381%_
                                                   _%arg105301105374%_))))
                                        (let ((_%arg105302105387%_
                                               (reverse _%arg105301105374%_)))
                                          (if (gx#stx-pair? _%tl105287105338%_)
                                              (let ((_%e105303105391%_
                                                     (gx#syntax-e
                                                      _%tl105287105338%_)))
                                                (let ((_%hd105304105395%_
                                                       (let ()
                                                         (declare (not safe))
                                                         (##car _%e105303105391%_)))
                                                      (_%tl105305105398%_
                                                       (let ()
                                                         (declare (not safe))
                                                         (##cdr _%e105303105391%_))))
                                                  (if (gx#stx-pair?
                                                       _%tl105305105398%_)
                                                      (let ((_%e105306105401%_
                                                             (gx#syntax-e
                                                              _%tl105305105398%_)))
                                                        (let ((_%hd105307105405%_
                                                               (let ()
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                         (declare (not safe))
                         (##car _%e105306105401%_)))
                      (_%tl105308105408%_
                       (let ()
                         (declare (not safe))
                         (##cdr _%e105306105401%_))))
                  (if (gx#stx-null? _%tl105308105408%_)
                      ((lambda (_%L105411%_
                                _%L105413%_
                                _%L105414%_
                                _%L105415%_
                                _%L105416%_)
                         (cons (gx#datum->syntax '#f 'defmethod)
                               (cons (cons (gx#datum->syntax '#f '@method)
                                           (cons _%L105416%_
                                                 (cons (gx#datum->syntax
                                                        '#f
                                                        'checked-hash-table)
                                                       '())))
                                     (cons (cons (gx#datum->syntax '#f 'lambda)
                                                 (cons (cons _%L105415%_
                                                             (let ((__tmp110141
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                            (lambda (_%g105450105453%_ _%g105451105456%_)
                              (cons _%g105450105453%_ _%g105451105456%_))))
                       (declare (not safe))
                       (__foldr1 __tmp110141 '() _%L105414%_)))
               (cons (cons (gx#datum->syntax '#f 'declare)
                           (cons (cons (gx#datum->syntax '#f 'not)
                                       (cons (gx#datum->syntax '#f 'safe) '()))
                                 '()))
                     (cons (cons (gx#datum->syntax '#f 'let)
                                 (cons (cons (cons (gx#datum->syntax '#f 'h)
                                                   (cons (cons (gx#datum->syntax
                                                                '#f
                                                                '&checked-hash-table-table)
                                                               (cons _%L105415%_
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                             '()))
                 '()))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                             (cons (cons (gx#datum->syntax
                                                          '#f
                                                          'key?)
                                                         (cons (cons (gx#datum->syntax
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                              '#f
                              '&checked-hash-table-key-check)
                             (cons _%L105415%_ '()))
                       '()))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                                   '()))
                                       (cons (cons (gx#datum->syntax '#f 'if)
                                                   (cons (cons _%L105413%_
                                                               (cons (gx#datum->syntax
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                              '#f
                              'key?)
                             (let ((__tmp110142
                                    (lambda (_%g105448105459%_
                                             _%g105449105462%_)
                                      (cons _%g105448105459%_
                                            _%g105449105462%_))))
                               (declare (not safe))
                               (__foldr1 __tmp110142 '() _%L105414%_))))
                 (cons (cons _%L105411%_
                             (cons (gx#datum->syntax '#f 'h)
                                   (let ((__tmp110143
                                          (lambda (_%g105446105465%_
                                                   _%g105447105468%_)
                                            (cons _%g105446105465%_
                                                  _%g105447105468%_))))
                                     (declare (not safe))
                                     (__foldr1 __tmp110143 '() _%L105414%_))))
                       (cons (cons (gx#datum->syntax '#f 'abort!)
                                   (cons (cons (gx#datum->syntax
                                                '#f
                                                'raise-contract-violation-error)
                                               (cons '"invalid key"
                                                     (cons 'context:
                                                           (cons (cons (gx#datum->syntax
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                                '#f
                                'quote)
                               (cons _%L105411%_ '()))
                         (cons 'value:
                               (cons (cons (gx#datum->syntax '#f '@list)
                                           (let ((__tmp110144
                                                  (lambda (_%g105444105471%_
                                                           _%g105445105474%_)
                                                    (cons _%g105444105471%_
                                                          _%g105445105474%_))))
                                             (declare (not safe))
                                             (__foldr1
                                              __tmp110144
                                              '()
                                              _%L105414%_)))
                                     '()))))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                         '()))
                             '()))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                             '())))
                           '()))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                           '()))))
                       _%hd105307105405%_
                       _%hd105304105395%_
                       _%arg105302105387%_
                       _%hd105292105355%_
                       _%hd105289105345%_)
                      (_%g105275105314%_ _%g105276105318%_))))
              (_%g105275105314%_ _%g105276105318%_))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                              (_%g105275105314%_
                                               _%g105276105318%_)))))))
                          (_%loop105297105367%_ _%target105294105361%_ '()))
                        (_%g105275105314%_ _%g105276105318%_)))))
              (_%g105275105314%_ _%g105276105318%_))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                              (_%g105275105314%_
                                               _%g105276105318%_))))
                                      (_%g105275105314%_ _%g105276105318%_))))
                              (_%g105275105314%_ _%g105276105318%_))))
                      (_%g105275105314%_ _%g105276105318%_)))))
          (_%g105274105477%_ _%$stx105271%_))))
    (define |[:0:]#defhash-method|
      (lambda (_%$stx105506%_)
        (let* ((_%g105510105542%_
                (lambda (_%g105511105538%_)
                  (gx#raise-syntax-error
                   '#f
                   '"Bad syntax; invalid match target"
                   _%g105511105538%_)))
               (_%g105509105655%_
                (lambda (_%g105511105546%_)
                  (if (gx#stx-pair? _%g105511105546%_)
                      (let ((_%e105516105549%_
                             (gx#syntax-e _%g105511105546%_)))
                        (let ((_%hd105517105553%_
                               (let ()
                                 (declare (not safe))
                                 (##car _%e105516105549%_)))
                              (_%tl105518105556%_
                               (let ()
                                 (declare (not safe))
                                 (##cdr _%e105516105549%_))))
                          (if (gx#stx-pair? _%tl105518105556%_)
                              (let ((_%e105519105559%_
                                     (gx#syntax-e _%tl105518105556%_)))
                                (let ((_%hd105520105563%_
                                       (let ()
                                         (declare (not safe))
                                         (##car _%e105519105559%_)))
                                      (_%tl105521105566%_
                                       (let ()
                                         (declare (not safe))
                                         (##cdr _%e105519105559%_))))
                                  (if (gx#stx-pair? _%hd105520105563%_)
                                      (let ((_%e105522105569%_
                                             (gx#syntax-e _%hd105520105563%_)))
                                        (let ((_%hd105523105573%_
                                               (let ()
                                                 (declare (not safe))
                                                 (##car _%e105522105569%_)))
                                              (_%tl105524105576%_
                                               (let ()
                                                 (declare (not safe))
                                                 (##cdr _%e105522105569%_))))
                                          (if (gx#stx-pair? _%tl105524105576%_)
                                              (let ((_%e105525105579%_
                                                     (gx#syntax-e
                                                      _%tl105524105576%_)))
                                                (let ((_%hd105526105583%_
                                                       (let ()
                                                         (declare (not safe))
                                                         (##car _%e105525105579%_)))
                                                      (_%tl105527105586%_
                                                       (let ()
                                                         (declare (not safe))
                                                         (##cdr _%e105525105579%_))))
                                                  (if (gx#stx-pair/null?
                                                       _%tl105521105566%_)
                                                      (let ((_g110145_
                                                             (gx#syntax-split-splice
                                                              _%tl105521105566%_
                                                              '0)))
                                                        (begin
                                                          (let ((_g110146_
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                         (let ()
                           (declare (not safe))
                           (if (##values? _g110145_)
                               (##vector-length _g110145_)
                               1))))
                    (if (not (let () (declare (not safe)) (##fx= _g110146_ 2)))
                        (error "Context expects 2 values" _g110146_)))
                  (let ((_%target105528105589%_
                         (let ()
                           (declare (not safe))
                           (##vector-ref _g110145_ 0)))
                        (_%tl105530105592%_
                         (let ()
                           (declare (not safe))
                           (##vector-ref _g110145_ 1))))
                    (if (gx#stx-null? _%tl105530105592%_)
                        (letrec ((_%loop105531105595%_
                                  (lambda (_%hd105529105599%_
                                           _%body105535105602%_)
                                    (if (gx#stx-pair? _%hd105529105599%_)
                                        (let ((_%e105532105605%_
                                               (gx#syntax-e
                                                _%hd105529105599%_)))
                                          (let ((_%lp-hd105533105609%_
                                                 (let ()
                                                   (declare (not safe))
                                                   (##car _%e105532105605%_)))
                                                (_%lp-tl105534105612%_
                                                 (let ()
                                                   (declare (not safe))
                                                   (##cdr _%e105532105605%_))))
                                            (_%loop105531105595%_
                                             _%lp-tl105534105612%_
                                             (cons _%lp-hd105533105609%_
                                                   _%body105535105602%_))))
                                        (let ((_%body105536105615%_
                                               (reverse _%body105535105602%_)))
                                          ((lambda (_%L105619%_
                                                    _%L105621%_
                                                    _%L105622%_
                                                    _%L105623%_)
                                             (cons (gx#datum->syntax '#f 'def)
                                                   (cons (cons _%L105623%_
                                                               (cons (cons _%L105622%_
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                                   (cons (gx#datum->syntax '#f ':)
                                         (cons (gx#datum->syntax
                                                '#f
                                                'HashTable)
                                               '())))
                             _%L105621%_))
                 (let ((__tmp110147
                        (lambda (_%g105646105649%_ _%g105647105652%_)
                          (cons _%g105646105649%_ _%g105647105652%_))))
                   (declare (not safe))
                   (__foldr1 __tmp110147 '() _%L105619%_)))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                           _%body105536105615%_
                                           _%tl105527105586%_
                                           _%hd105526105583%_
                                           _%hd105523105573%_))))))
                          (_%loop105531105595%_ _%target105528105589%_ '()))
                        (_%g105510105542%_ _%g105511105546%_)))))
              (_%g105510105542%_ _%g105511105546%_))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                              (_%g105510105542%_
                                               _%g105511105546%_))))
                                      (_%g105510105542%_ _%g105511105546%_))))
                              (_%g105510105542%_ _%g105511105546%_))))
                      (_%g105510105542%_ _%g105511105546%_)))))
          (_%g105509105655%_ _%$stx105506%_))))))
