(declare (block) (standard-bindings) (extended-bindings) (inlining-limit 200))
(begin
  (define |gerbil/core/contract~InterfaceInfo[1]#_g83922_|
    (##structure
     gx#syntax-quote::t
     'interface-info::t
     #f
     (gx#current-expander-context)
     '()))
  (define |gerbil/core/contract~InterfaceInfo[1]#_g83924_|
    (##structure
     gx#syntax-quote::t
     'make-interface-info
     #f
     (gx#current-expander-context)
     '()))
  (define |gerbil/core/contract~InterfaceInfo[1]#_g83926_|
    (##structure
     gx#syntax-quote::t
     'interface-info?
     #f
     (gx#current-expander-context)
     '()))
  (define |gerbil/core/contract~InterfaceInfo[1]#_g83928_|
    (##structure
     gx#syntax-quote::t
     'interface-info-name
     #f
     (gx#current-expander-context)
     '()))
  (define |gerbil/core/contract~InterfaceInfo[1]#_g83929_|
    (##structure
     gx#syntax-quote::t
     'interface-info-interface-mixin
     #f
     (gx#current-expander-context)
     '()))
  (define |gerbil/core/contract~InterfaceInfo[1]#_g83930_|
    (##structure
     gx#syntax-quote::t
     'interface-info-interface-methods
     #f
     (gx#current-expander-context)
     '()))
  (define |gerbil/core/contract~InterfaceInfo[1]#_g83931_|
    (##structure
     gx#syntax-quote::t
     'interface-info-instance-type
     #f
     (gx#current-expander-context)
     '()))
  (define |gerbil/core/contract~InterfaceInfo[1]#_g83932_|
    (##structure
     gx#syntax-quote::t
     'interface-info-interface-descriptor
     #f
     (gx#current-expander-context)
     '()))
  (define |gerbil/core/contract~InterfaceInfo[1]#_g83933_|
    (##structure
     gx#syntax-quote::t
     'interface-info-instance-constructor
     #f
     (gx#current-expander-context)
     '()))
  (define |gerbil/core/contract~InterfaceInfo[1]#_g83934_|
    (##structure
     gx#syntax-quote::t
     'interface-info-instance-try-constructor
     #f
     (gx#current-expander-context)
     '()))
  (define |gerbil/core/contract~InterfaceInfo[1]#_g83935_|
    (##structure
     gx#syntax-quote::t
     'interface-info-instance-predicate
     #f
     (gx#current-expander-context)
     '()))
  (define |gerbil/core/contract~InterfaceInfo[1]#_g83936_|
    (##structure
     gx#syntax-quote::t
     'interface-info-instance-satisfies-predicate
     #f
     (gx#current-expander-context)
     '()))
  (define |gerbil/core/contract~InterfaceInfo[1]#_g83937_|
    (##structure
     gx#syntax-quote::t
     'interface-info-implementation-methods
     #f
     (gx#current-expander-context)
     '()))
  (define |gerbil/core/contract~InterfaceInfo[1]#_g83938_|
    (##structure
     gx#syntax-quote::t
     'interface-info-unchecked-implementation-methods
     #f
     (gx#current-expander-context)
     '()))
  (define |gerbil/core/contract~InterfaceInfo[1]#_g83940_|
    (##structure
     gx#syntax-quote::t
     'interface-info-name-set!
     #f
     (gx#current-expander-context)
     '()))
  (define |gerbil/core/contract~InterfaceInfo[1]#_g83941_|
    (##structure
     gx#syntax-quote::t
     'interface-info-interface-mixin-set!
     #f
     (gx#current-expander-context)
     '()))
  (define |gerbil/core/contract~InterfaceInfo[1]#_g83942_|
    (##structure
     gx#syntax-quote::t
     'interface-info-interface-methods-set!
     #f
     (gx#current-expander-context)
     '()))
  (define |gerbil/core/contract~InterfaceInfo[1]#_g83943_|
    (##structure
     gx#syntax-quote::t
     'interface-info-instance-type-set!
     #f
     (gx#current-expander-context)
     '()))
  (define |gerbil/core/contract~InterfaceInfo[1]#_g83944_|
    (##structure
     gx#syntax-quote::t
     'interface-info-interface-descriptor-set!
     #f
     (gx#current-expander-context)
     '()))
  (define |gerbil/core/contract~InterfaceInfo[1]#_g83945_|
    (##structure
     gx#syntax-quote::t
     'interface-info-instance-constructor-set!
     #f
     (gx#current-expander-context)
     '()))
  (define |gerbil/core/contract~InterfaceInfo[1]#_g83946_|
    (##structure
     gx#syntax-quote::t
     'interface-info-instance-try-constructor-set!
     #f
     (gx#current-expander-context)
     '()))
  (define |gerbil/core/contract~InterfaceInfo[1]#_g83947_|
    (##structure
     gx#syntax-quote::t
     'interface-info-instance-predicate-set!
     #f
     (gx#current-expander-context)
     '()))
  (define |gerbil/core/contract~InterfaceInfo[1]#_g83948_|
    (##structure
     gx#syntax-quote::t
     'interface-info-instance-satisfies-predicate-set!
     #f
     (gx#current-expander-context)
     '()))
  (define |gerbil/core/contract~InterfaceInfo[1]#_g83949_|
    (##structure
     gx#syntax-quote::t
     'interface-info-implementation-methods-set!
     #f
     (gx#current-expander-context)
     '()))
  (define |gerbil/core/contract~InterfaceInfo[1]#_g83950_|
    (##structure
     gx#syntax-quote::t
     'interface-info-unchecked-implementation-methods-set!
     #f
     (gx#current-expander-context)
     '()))
  (define |gerbil/core/contract~InterfaceInfo[1]#_g83952_|
    (##structure
     gx#syntax-quote::t
     '&interface-info-name
     #f
     (gx#current-expander-context)
     '()))
  (define |gerbil/core/contract~InterfaceInfo[1]#_g83953_|
    (##structure
     gx#syntax-quote::t
     '&interface-info-interface-mixin
     #f
     (gx#current-expander-context)
     '()))
  (define |gerbil/core/contract~InterfaceInfo[1]#_g83954_|
    (##structure
     gx#syntax-quote::t
     '&interface-info-interface-methods
     #f
     (gx#current-expander-context)
     '()))
  (define |gerbil/core/contract~InterfaceInfo[1]#_g83955_|
    (##structure
     gx#syntax-quote::t
     '&interface-info-instance-type
     #f
     (gx#current-expander-context)
     '()))
  (define |gerbil/core/contract~InterfaceInfo[1]#_g83956_|
    (##structure
     gx#syntax-quote::t
     '&interface-info-interface-descriptor
     #f
     (gx#current-expander-context)
     '()))
  (define |gerbil/core/contract~InterfaceInfo[1]#_g83957_|
    (##structure
     gx#syntax-quote::t
     '&interface-info-instance-constructor
     #f
     (gx#current-expander-context)
     '()))
  (define |gerbil/core/contract~InterfaceInfo[1]#_g83958_|
    (##structure
     gx#syntax-quote::t
     '&interface-info-instance-try-constructor
     #f
     (gx#current-expander-context)
     '()))
  (define |gerbil/core/contract~InterfaceInfo[1]#_g83959_|
    (##structure
     gx#syntax-quote::t
     '&interface-info-instance-predicate
     #f
     (gx#current-expander-context)
     '()))
  (define |gerbil/core/contract~InterfaceInfo[1]#_g83960_|
    (##structure
     gx#syntax-quote::t
     '&interface-info-instance-satisfies-predicate
     #f
     (gx#current-expander-context)
     '()))
  (define |gerbil/core/contract~InterfaceInfo[1]#_g83961_|
    (##structure
     gx#syntax-quote::t
     '&interface-info-implementation-methods
     #f
     (gx#current-expander-context)
     '()))
  (define |gerbil/core/contract~InterfaceInfo[1]#_g83962_|
    (##structure
     gx#syntax-quote::t
     '&interface-info-unchecked-implementation-methods
     #f
     (gx#current-expander-context)
     '()))
  (define |gerbil/core/contract~InterfaceInfo[1]#_g83964_|
    (##structure
     gx#syntax-quote::t
     '&interface-info-name-set!
     #f
     (gx#current-expander-context)
     '()))
  (define |gerbil/core/contract~InterfaceInfo[1]#_g83965_|
    (##structure
     gx#syntax-quote::t
     '&interface-info-interface-mixin-set!
     #f
     (gx#current-expander-context)
     '()))
  (define |gerbil/core/contract~InterfaceInfo[1]#_g83966_|
    (##structure
     gx#syntax-quote::t
     '&interface-info-interface-methods-set!
     #f
     (gx#current-expander-context)
     '()))
  (define |gerbil/core/contract~InterfaceInfo[1]#_g83967_|
    (##structure
     gx#syntax-quote::t
     '&interface-info-instance-type-set!
     #f
     (gx#current-expander-context)
     '()))
  (define |gerbil/core/contract~InterfaceInfo[1]#_g83968_|
    (##structure
     gx#syntax-quote::t
     '&interface-info-interface-descriptor-set!
     #f
     (gx#current-expander-context)
     '()))
  (define |gerbil/core/contract~InterfaceInfo[1]#_g83969_|
    (##structure
     gx#syntax-quote::t
     '&interface-info-instance-constructor-set!
     #f
     (gx#current-expander-context)
     '()))
  (define |gerbil/core/contract~InterfaceInfo[1]#_g83970_|
    (##structure
     gx#syntax-quote::t
     '&interface-info-instance-try-constructor-set!
     #f
     (gx#current-expander-context)
     '()))
  (define |gerbil/core/contract~InterfaceInfo[1]#_g83971_|
    (##structure
     gx#syntax-quote::t
     '&interface-info-instance-predicate-set!
     #f
     (gx#current-expander-context)
     '()))
  (define |gerbil/core/contract~InterfaceInfo[1]#_g83972_|
    (##structure
     gx#syntax-quote::t
     '&interface-info-instance-satisfies-predicate-set!
     #f
     (gx#current-expander-context)
     '()))
  (define |gerbil/core/contract~InterfaceInfo[1]#_g83973_|
    (##structure
     gx#syntax-quote::t
     '&interface-info-implementation-methods-set!
     #f
     (gx#current-expander-context)
     '()))
  (define |gerbil/core/contract~InterfaceInfo[1]#_g83974_|
    (##structure
     gx#syntax-quote::t
     '&interface-info-unchecked-implementation-methods-set!
     #f
     (gx#current-expander-context)
     '()))
  (define |gerbil/core/contract~InterfaceInfo[:0:]#interface-info|
    (let ((__obj83837
           (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!
         __obj83837
         'gerbil/core/contract~InterfaceInfo#interface-info::t
         '1
         '#f
         '#f))
      (let ()
        (declare (not safe))
        (##unchecked-structure-set! __obj83837 'interface-info '2 '#f '#f))
      (let ()
        (declare (not safe))
        (##unchecked-structure-set!
         __obj83837
         '(name interface-mixin
                interface-methods
                instance-type
                interface-descriptor
                instance-constructor
                instance-try-constructor
                instance-predicate
                instance-satisfies-predicate
                implementation-methods
                unchecked-implementation-methods)
         '4
         '#f
         '#f))
      (let ()
        (declare (not safe))
        (##unchecked-structure-set! __obj83837 '() '3 '#f '#f))
      (let ()
        (declare (not safe))
        (##unchecked-structure-set! __obj83837 '#f '7 '#f '#f))
      (let ()
        (declare (not safe))
        (##unchecked-structure-set! __obj83837 '#f '8 '#f '#f))
      (let ()
        (declare (not safe))
        (##unchecked-structure-set! __obj83837 '#f '10 '#f '#f))
      (let ()
        (declare (not safe))
        (##unchecked-structure-set! __obj83837 '#f '11 '#f '#f))
      (let ((__tmp83921 |gerbil/core/contract~InterfaceInfo[1]#_g83922_|))
        (declare (not safe))
        (##unchecked-structure-set! __obj83837 __tmp83921 '12 '#f '#f))
      (let ((__tmp83923 |gerbil/core/contract~InterfaceInfo[1]#_g83924_|))
        (declare (not safe))
        (##unchecked-structure-set! __obj83837 __tmp83923 '13 '#f '#f))
      (let ((__tmp83925 |gerbil/core/contract~InterfaceInfo[1]#_g83926_|))
        (declare (not safe))
        (##unchecked-structure-set! __obj83837 __tmp83925 '14 '#f '#f))
      (let ((__tmp83927
             (cons (cons 'name
                         |gerbil/core/contract~InterfaceInfo[1]#_g83928_|)
                   (cons (cons 'interface-mixin
                               |gerbil/core/contract~InterfaceInfo[1]#_g83929_|)
                         (cons (cons 'interface-methods
                                     |gerbil/core/contract~InterfaceInfo[1]#_g83930_|)
                               (cons (cons 'instance-type
                                           |gerbil/core/contract~InterfaceInfo[1]#_g83931_|)
                                     (cons (cons 'interface-descriptor
                                                 |gerbil/core/contract~InterfaceInfo[1]#_g83932_|)
                                           (cons (cons 'instance-constructor
                                                       |gerbil/core/contract~InterfaceInfo[1]#_g83933_|)
                                                 (cons (cons 'instance-try-constructor
                                                             |gerbil/core/contract~InterfaceInfo[1]#_g83934_|)
                                                       (cons (cons 'instance-predicate
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                           |gerbil/core/contract~InterfaceInfo[1]#_g83935_|)
                     (cons (cons 'instance-satisfies-predicate
                                 |gerbil/core/contract~InterfaceInfo[1]#_g83936_|)
                           (cons (cons 'implementation-methods
                                       |gerbil/core/contract~InterfaceInfo[1]#_g83937_|)
                                 (cons (cons 'unchecked-implementation-methods
                                             |gerbil/core/contract~InterfaceInfo[1]#_g83938_|)
                                       '())))))))))))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
        (declare (not safe))
        (##unchecked-structure-set! __obj83837 __tmp83927 '15 '#f '#f))
      (let ((__tmp83939
             (cons (cons 'name
                         |gerbil/core/contract~InterfaceInfo[1]#_g83940_|)
                   (cons (cons 'interface-mixin
                               |gerbil/core/contract~InterfaceInfo[1]#_g83941_|)
                         (cons (cons 'interface-methods
                                     |gerbil/core/contract~InterfaceInfo[1]#_g83942_|)
                               (cons (cons 'instance-type
                                           |gerbil/core/contract~InterfaceInfo[1]#_g83943_|)
                                     (cons (cons 'interface-descriptor
                                                 |gerbil/core/contract~InterfaceInfo[1]#_g83944_|)
                                           (cons (cons 'instance-constructor
                                                       |gerbil/core/contract~InterfaceInfo[1]#_g83945_|)
                                                 (cons (cons 'instance-try-constructor
                                                             |gerbil/core/contract~InterfaceInfo[1]#_g83946_|)
                                                       (cons (cons 'instance-predicate
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                           |gerbil/core/contract~InterfaceInfo[1]#_g83947_|)
                     (cons (cons 'instance-satisfies-predicate
                                 |gerbil/core/contract~InterfaceInfo[1]#_g83948_|)
                           (cons (cons 'implementation-methods
                                       |gerbil/core/contract~InterfaceInfo[1]#_g83949_|)
                                 (cons (cons 'unchecked-implementation-methods
                                             |gerbil/core/contract~InterfaceInfo[1]#_g83950_|)
                                       '())))))))))))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
        (declare (not safe))
        (##unchecked-structure-set! __obj83837 __tmp83939 '16 '#f '#f))
      (let ((__tmp83951
             (cons (cons 'name
                         |gerbil/core/contract~InterfaceInfo[1]#_g83952_|)
                   (cons (cons 'interface-mixin
                               |gerbil/core/contract~InterfaceInfo[1]#_g83953_|)
                         (cons (cons 'interface-methods
                                     |gerbil/core/contract~InterfaceInfo[1]#_g83954_|)
                               (cons (cons 'instance-type
                                           |gerbil/core/contract~InterfaceInfo[1]#_g83955_|)
                                     (cons (cons 'interface-descriptor
                                                 |gerbil/core/contract~InterfaceInfo[1]#_g83956_|)
                                           (cons (cons 'instance-constructor
                                                       |gerbil/core/contract~InterfaceInfo[1]#_g83957_|)
                                                 (cons (cons 'instance-try-constructor
                                                             |gerbil/core/contract~InterfaceInfo[1]#_g83958_|)
                                                       (cons (cons 'instance-predicate
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                           |gerbil/core/contract~InterfaceInfo[1]#_g83959_|)
                     (cons (cons 'instance-satisfies-predicate
                                 |gerbil/core/contract~InterfaceInfo[1]#_g83960_|)
                           (cons (cons 'implementation-methods
                                       |gerbil/core/contract~InterfaceInfo[1]#_g83961_|)
                                 (cons (cons 'unchecked-implementation-methods
                                             |gerbil/core/contract~InterfaceInfo[1]#_g83962_|)
                                       '())))))))))))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
        (declare (not safe))
        (##unchecked-structure-set! __obj83837 __tmp83951 '17 '#f '#f))
      (let ((__tmp83963
             (cons (cons 'name
                         |gerbil/core/contract~InterfaceInfo[1]#_g83964_|)
                   (cons (cons 'interface-mixin
                               |gerbil/core/contract~InterfaceInfo[1]#_g83965_|)
                         (cons (cons 'interface-methods
                                     |gerbil/core/contract~InterfaceInfo[1]#_g83966_|)
                               (cons (cons 'instance-type
                                           |gerbil/core/contract~InterfaceInfo[1]#_g83967_|)
                                     (cons (cons 'interface-descriptor
                                                 |gerbil/core/contract~InterfaceInfo[1]#_g83968_|)
                                           (cons (cons 'instance-constructor
                                                       |gerbil/core/contract~InterfaceInfo[1]#_g83969_|)
                                                 (cons (cons 'instance-try-constructor
                                                             |gerbil/core/contract~InterfaceInfo[1]#_g83970_|)
                                                       (cons (cons 'instance-predicate
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                           |gerbil/core/contract~InterfaceInfo[1]#_g83971_|)
                     (cons (cons 'instance-satisfies-predicate
                                 |gerbil/core/contract~InterfaceInfo[1]#_g83972_|)
                           (cons (cons 'implementation-methods
                                       |gerbil/core/contract~InterfaceInfo[1]#_g83973_|)
                                 (cons (cons 'unchecked-implementation-methods
                                             |gerbil/core/contract~InterfaceInfo[1]#_g83974_|)
                                       '())))))))))))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
        (declare (not safe))
        (##unchecked-structure-set! __obj83837 __tmp83963 '18 '#f '#f))
      __obj83837)))
