(declare (block) (standard-bindings) (extended-bindings) (inlining-limit 200))
(begin
  (define |gerbil/core/mop~MOP-3[1]#_g27115_|
    (##structure
     gx#syntax-quote::t
     'class-type-info::t
     #f
     (gx#current-expander-context)
     '()))
  (define |gerbil/core/mop~MOP-3[1]#_g27117_|
    (##structure
     gx#syntax-quote::t
     'make-class-type-info
     #f
     (gx#current-expander-context)
     '()))
  (define |gerbil/core/mop~MOP-3[1]#_g27119_|
    (##structure
     gx#syntax-quote::t
     'class-type-info?
     #f
     (gx#current-expander-context)
     '()))
  (define |gerbil/core/mop~MOP-3[1]#_g27121_|
    (##structure
     gx#syntax-quote::t
     '!class-type-id
     #f
     (gx#current-expander-context)
     '()))
  (define |gerbil/core/mop~MOP-3[1]#_g27122_|
    (##structure
     gx#syntax-quote::t
     '!class-type-name
     #f
     (gx#current-expander-context)
     '()))
  (define |gerbil/core/mop~MOP-3[1]#_g27123_|
    (##structure
     gx#syntax-quote::t
     '!class-type-super
     #f
     (gx#current-expander-context)
     '()))
  (define |gerbil/core/mop~MOP-3[1]#_g27124_|
    (##structure
     gx#syntax-quote::t
     '!class-type-slots
     #f
     (gx#current-expander-context)
     '()))
  (define |gerbil/core/mop~MOP-3[1]#_g27125_|
    (##structure
     gx#syntax-quote::t
     '!class-type-precedence-list
     #f
     (gx#current-expander-context)
     '()))
  (define |gerbil/core/mop~MOP-3[1]#_g27126_|
    (##structure
     gx#syntax-quote::t
     '!class-type-ordered-slots
     #f
     (gx#current-expander-context)
     '()))
  (define |gerbil/core/mop~MOP-3[1]#_g27127_|
    (##structure
     gx#syntax-quote::t
     '!class-type-struct?
     #f
     (gx#current-expander-context)
     '()))
  (define |gerbil/core/mop~MOP-3[1]#_g27128_|
    (##structure
     gx#syntax-quote::t
     '!class-type-final?
     #f
     (gx#current-expander-context)
     '()))
  (define |gerbil/core/mop~MOP-3[1]#_g27129_|
    (##structure
     gx#syntax-quote::t
     '!class-type-system?
     #f
     (gx#current-expander-context)
     '()))
  (define |gerbil/core/mop~MOP-3[1]#_g27130_|
    (##structure
     gx#syntax-quote::t
     '!class-type-metaclass
     #f
     (gx#current-expander-context)
     '()))
  (define |gerbil/core/mop~MOP-3[1]#_g27131_|
    (##structure
     gx#syntax-quote::t
     '!class-type-constructor-method
     #f
     (gx#current-expander-context)
     '()))
  (define |gerbil/core/mop~MOP-3[1]#_g27132_|
    (##structure
     gx#syntax-quote::t
     '!class-type-descriptor
     #f
     (gx#current-expander-context)
     '()))
  (define |gerbil/core/mop~MOP-3[1]#_g27133_|
    (##structure
     gx#syntax-quote::t
     '!class-type-constructor
     #f
     (gx#current-expander-context)
     '()))
  (define |gerbil/core/mop~MOP-3[1]#_g27134_|
    (##structure
     gx#syntax-quote::t
     '!class-type-predicate
     #f
     (gx#current-expander-context)
     '()))
  (define |gerbil/core/mop~MOP-3[1]#_g27135_|
    (##structure
     gx#syntax-quote::t
     '!class-type-accessors
     #f
     (gx#current-expander-context)
     '()))
  (define |gerbil/core/mop~MOP-3[1]#_g27136_|
    (##structure
     gx#syntax-quote::t
     '!class-type-mutators
     #f
     (gx#current-expander-context)
     '()))
  (define |gerbil/core/mop~MOP-3[1]#_g27137_|
    (##structure
     gx#syntax-quote::t
     '!class-type-unchecked-accessors
     #f
     (gx#current-expander-context)
     '()))
  (define |gerbil/core/mop~MOP-3[1]#_g27138_|
    (##structure
     gx#syntax-quote::t
     '!class-type-unchecked-mutators
     #f
     (gx#current-expander-context)
     '()))
  (define |gerbil/core/mop~MOP-3[1]#_g27139_|
    (##structure
     gx#syntax-quote::t
     '!class-type-slot-types
     #f
     (gx#current-expander-context)
     '()))
  (define |gerbil/core/mop~MOP-3[1]#_g27140_|
    (##structure
     gx#syntax-quote::t
     '!class-type-slot-defaults
     #f
     (gx#current-expander-context)
     '()))
  (define |gerbil/core/mop~MOP-3[1]#_g27141_|
    (##structure
     gx#syntax-quote::t
     '!class-type-slot-contracts
     #f
     (gx#current-expander-context)
     '()))
  (define |gerbil/core/mop~MOP-3[1]#_g27143_|
    (##structure
     gx#syntax-quote::t
     '!class-type-id-set!
     #f
     (gx#current-expander-context)
     '()))
  (define |gerbil/core/mop~MOP-3[1]#_g27144_|
    (##structure
     gx#syntax-quote::t
     '!class-type-name-set!
     #f
     (gx#current-expander-context)
     '()))
  (define |gerbil/core/mop~MOP-3[1]#_g27145_|
    (##structure
     gx#syntax-quote::t
     '!class-type-super-set!
     #f
     (gx#current-expander-context)
     '()))
  (define |gerbil/core/mop~MOP-3[1]#_g27146_|
    (##structure
     gx#syntax-quote::t
     '!class-type-slots-set!
     #f
     (gx#current-expander-context)
     '()))
  (define |gerbil/core/mop~MOP-3[1]#_g27147_|
    (##structure
     gx#syntax-quote::t
     '!class-type-precedence-list-set!
     #f
     (gx#current-expander-context)
     '()))
  (define |gerbil/core/mop~MOP-3[1]#_g27148_|
    (##structure
     gx#syntax-quote::t
     '!class-type-ordered-slots-set!
     #f
     (gx#current-expander-context)
     '()))
  (define |gerbil/core/mop~MOP-3[1]#_g27149_|
    (##structure
     gx#syntax-quote::t
     '!class-type-struct?-set!
     #f
     (gx#current-expander-context)
     '()))
  (define |gerbil/core/mop~MOP-3[1]#_g27150_|
    (##structure
     gx#syntax-quote::t
     '!class-type-final?-set!
     #f
     (gx#current-expander-context)
     '()))
  (define |gerbil/core/mop~MOP-3[1]#_g27151_|
    (##structure
     gx#syntax-quote::t
     '!class-type-system?-set!
     #f
     (gx#current-expander-context)
     '()))
  (define |gerbil/core/mop~MOP-3[1]#_g27152_|
    (##structure
     gx#syntax-quote::t
     '!class-type-metaclass-set!
     #f
     (gx#current-expander-context)
     '()))
  (define |gerbil/core/mop~MOP-3[1]#_g27153_|
    (##structure
     gx#syntax-quote::t
     '!class-type-constructor-method-set!
     #f
     (gx#current-expander-context)
     '()))
  (define |gerbil/core/mop~MOP-3[1]#_g27154_|
    (##structure
     gx#syntax-quote::t
     '!class-type-descriptor-set!
     #f
     (gx#current-expander-context)
     '()))
  (define |gerbil/core/mop~MOP-3[1]#_g27155_|
    (##structure
     gx#syntax-quote::t
     '!class-type-constructor-set!
     #f
     (gx#current-expander-context)
     '()))
  (define |gerbil/core/mop~MOP-3[1]#_g27156_|
    (##structure
     gx#syntax-quote::t
     '!class-type-predicate-set!
     #f
     (gx#current-expander-context)
     '()))
  (define |gerbil/core/mop~MOP-3[1]#_g27157_|
    (##structure
     gx#syntax-quote::t
     '!class-type-accessors-set!
     #f
     (gx#current-expander-context)
     '()))
  (define |gerbil/core/mop~MOP-3[1]#_g27158_|
    (##structure
     gx#syntax-quote::t
     '!class-type-mutators-set!
     #f
     (gx#current-expander-context)
     '()))
  (define |gerbil/core/mop~MOP-3[1]#_g27159_|
    (##structure
     gx#syntax-quote::t
     '!class-type-unchecked-accessors-set!
     #f
     (gx#current-expander-context)
     '()))
  (define |gerbil/core/mop~MOP-3[1]#_g27160_|
    (##structure
     gx#syntax-quote::t
     '!class-type-unchecked-mutators-set!
     #f
     (gx#current-expander-context)
     '()))
  (define |gerbil/core/mop~MOP-3[1]#_g27161_|
    (##structure
     gx#syntax-quote::t
     '!class-type-slot-types-set!
     #f
     (gx#current-expander-context)
     '()))
  (define |gerbil/core/mop~MOP-3[1]#_g27162_|
    (##structure
     gx#syntax-quote::t
     '!class-type-slot-defaults-set!
     #f
     (gx#current-expander-context)
     '()))
  (define |gerbil/core/mop~MOP-3[1]#_g27163_|
    (##structure
     gx#syntax-quote::t
     '!class-type-slot-contracts-set!
     #f
     (gx#current-expander-context)
     '()))
  (define |gerbil/core/mop~MOP-3[1]#_g27165_|
    (##structure
     gx#syntax-quote::t
     '&!class-type-id
     #f
     (gx#current-expander-context)
     '()))
  (define |gerbil/core/mop~MOP-3[1]#_g27166_|
    (##structure
     gx#syntax-quote::t
     '&!class-type-name
     #f
     (gx#current-expander-context)
     '()))
  (define |gerbil/core/mop~MOP-3[1]#_g27167_|
    (##structure
     gx#syntax-quote::t
     '&!class-type-super
     #f
     (gx#current-expander-context)
     '()))
  (define |gerbil/core/mop~MOP-3[1]#_g27168_|
    (##structure
     gx#syntax-quote::t
     '&!class-type-slots
     #f
     (gx#current-expander-context)
     '()))
  (define |gerbil/core/mop~MOP-3[1]#_g27169_|
    (##structure
     gx#syntax-quote::t
     '&!class-type-precedence-list
     #f
     (gx#current-expander-context)
     '()))
  (define |gerbil/core/mop~MOP-3[1]#_g27170_|
    (##structure
     gx#syntax-quote::t
     '&!class-type-ordered-slots
     #f
     (gx#current-expander-context)
     '()))
  (define |gerbil/core/mop~MOP-3[1]#_g27171_|
    (##structure
     gx#syntax-quote::t
     '&!class-type-struct?
     #f
     (gx#current-expander-context)
     '()))
  (define |gerbil/core/mop~MOP-3[1]#_g27172_|
    (##structure
     gx#syntax-quote::t
     '&!class-type-final?
     #f
     (gx#current-expander-context)
     '()))
  (define |gerbil/core/mop~MOP-3[1]#_g27173_|
    (##structure
     gx#syntax-quote::t
     '&!class-type-system?
     #f
     (gx#current-expander-context)
     '()))
  (define |gerbil/core/mop~MOP-3[1]#_g27174_|
    (##structure
     gx#syntax-quote::t
     '&!class-type-constructor-method
     #f
     (gx#current-expander-context)
     '()))
  (define |gerbil/core/mop~MOP-3[1]#_g27175_|
    (##structure
     gx#syntax-quote::t
     '&!class-type-descriptor
     #f
     (gx#current-expander-context)
     '()))
  (define |gerbil/core/mop~MOP-3[1]#_g27176_|
    (##structure
     gx#syntax-quote::t
     '&!class-type-constructor
     #f
     (gx#current-expander-context)
     '()))
  (define |gerbil/core/mop~MOP-3[1]#_g27177_|
    (##structure
     gx#syntax-quote::t
     '&!class-type-predicate
     #f
     (gx#current-expander-context)
     '()))
  (define |gerbil/core/mop~MOP-3[1]#_g27178_|
    (##structure
     gx#syntax-quote::t
     '&!class-type-accessors
     #f
     (gx#current-expander-context)
     '()))
  (define |gerbil/core/mop~MOP-3[1]#_g27179_|
    (##structure
     gx#syntax-quote::t
     '&!class-type-mutators
     #f
     (gx#current-expander-context)
     '()))
  (define |gerbil/core/mop~MOP-3[1]#_g27180_|
    (##structure
     gx#syntax-quote::t
     '&!class-type-unchecked-accessors
     #f
     (gx#current-expander-context)
     '()))
  (define |gerbil/core/mop~MOP-3[1]#_g27181_|
    (##structure
     gx#syntax-quote::t
     '&!class-type-unchecked-mutators
     #f
     (gx#current-expander-context)
     '()))
  (define |gerbil/core/mop~MOP-3[1]#_g27182_|
    (##structure
     gx#syntax-quote::t
     '&!class-type-slot-types
     #f
     (gx#current-expander-context)
     '()))
  (define |gerbil/core/mop~MOP-3[1]#_g27183_|
    (##structure
     gx#syntax-quote::t
     '&!class-type-slot-defaults
     #f
     (gx#current-expander-context)
     '()))
  (define |gerbil/core/mop~MOP-3[1]#_g27184_|
    (##structure
     gx#syntax-quote::t
     '&!class-type-slot-contracts
     #f
     (gx#current-expander-context)
     '()))
  (define |gerbil/core/mop~MOP-3[1]#_g27186_|
    (##structure
     gx#syntax-quote::t
     '&!class-type-id-set!
     #f
     (gx#current-expander-context)
     '()))
  (define |gerbil/core/mop~MOP-3[1]#_g27187_|
    (##structure
     gx#syntax-quote::t
     '&!class-type-name-set!
     #f
     (gx#current-expander-context)
     '()))
  (define |gerbil/core/mop~MOP-3[1]#_g27188_|
    (##structure
     gx#syntax-quote::t
     '&!class-type-super-set!
     #f
     (gx#current-expander-context)
     '()))
  (define |gerbil/core/mop~MOP-3[1]#_g27189_|
    (##structure
     gx#syntax-quote::t
     '&!class-type-slots-set!
     #f
     (gx#current-expander-context)
     '()))
  (define |gerbil/core/mop~MOP-3[1]#_g27190_|
    (##structure
     gx#syntax-quote::t
     '&!class-type-precedence-list-set!
     #f
     (gx#current-expander-context)
     '()))
  (define |gerbil/core/mop~MOP-3[1]#_g27191_|
    (##structure
     gx#syntax-quote::t
     '&!class-type-ordered-slots-set!
     #f
     (gx#current-expander-context)
     '()))
  (define |gerbil/core/mop~MOP-3[1]#_g27192_|
    (##structure
     gx#syntax-quote::t
     '&!class-type-struct?-set!
     #f
     (gx#current-expander-context)
     '()))
  (define |gerbil/core/mop~MOP-3[1]#_g27193_|
    (##structure
     gx#syntax-quote::t
     '&!class-type-final?-set!
     #f
     (gx#current-expander-context)
     '()))
  (define |gerbil/core/mop~MOP-3[1]#_g27194_|
    (##structure
     gx#syntax-quote::t
     '&!class-type-system?-set!
     #f
     (gx#current-expander-context)
     '()))
  (define |gerbil/core/mop~MOP-3[1]#_g27195_|
    (##structure
     gx#syntax-quote::t
     '&!class-type-metaclass-set!
     #f
     (gx#current-expander-context)
     '()))
  (define |gerbil/core/mop~MOP-3[1]#_g27196_|
    (##structure
     gx#syntax-quote::t
     '&!class-type-constructor-method-set!
     #f
     (gx#current-expander-context)
     '()))
  (define |gerbil/core/mop~MOP-3[1]#_g27197_|
    (##structure
     gx#syntax-quote::t
     '&!class-type-descriptor-set!
     #f
     (gx#current-expander-context)
     '()))
  (define |gerbil/core/mop~MOP-3[1]#_g27198_|
    (##structure
     gx#syntax-quote::t
     '&!class-type-constructor-set!
     #f
     (gx#current-expander-context)
     '()))
  (define |gerbil/core/mop~MOP-3[1]#_g27199_|
    (##structure
     gx#syntax-quote::t
     '&!class-type-predicate-set!
     #f
     (gx#current-expander-context)
     '()))
  (define |gerbil/core/mop~MOP-3[1]#_g27200_|
    (##structure
     gx#syntax-quote::t
     '&!class-type-accessors-set!
     #f
     (gx#current-expander-context)
     '()))
  (define |gerbil/core/mop~MOP-3[1]#_g27201_|
    (##structure
     gx#syntax-quote::t
     '&!class-type-mutators-set!
     #f
     (gx#current-expander-context)
     '()))
  (define |gerbil/core/mop~MOP-3[1]#_g27202_|
    (##structure
     gx#syntax-quote::t
     '&!class-type-unchecked-accessors-set!
     #f
     (gx#current-expander-context)
     '()))
  (define |gerbil/core/mop~MOP-3[1]#_g27203_|
    (##structure
     gx#syntax-quote::t
     '&!class-type-unchecked-mutators-set!
     #f
     (gx#current-expander-context)
     '()))
  (define |gerbil/core/mop~MOP-3[1]#_g27204_|
    (##structure
     gx#syntax-quote::t
     '&!class-type-slot-types-set!
     #f
     (gx#current-expander-context)
     '()))
  (define |gerbil/core/mop~MOP-3[1]#_g27205_|
    (##structure
     gx#syntax-quote::t
     '&!class-type-slot-defaults-set!
     #f
     (gx#current-expander-context)
     '()))
  (define |gerbil/core/mop~MOP-3[1]#_g27206_|
    (##structure
     gx#syntax-quote::t
     '&!class-type-slot-contracts-set!
     #f
     (gx#current-expander-context)
     '()))
  (define |gerbil/core/mop~MOP-3[:0:]#class-type-info|
    (let ((__obj27023
           (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!
         __obj27023
         'gerbil.core#class-type-info::t
         '1
         '#f
         '#f))
      (let ()
        (declare (not safe))
        (##unchecked-structure-set! __obj27023 'class-type-info '2 '#f '#f))
      (let ()
        (declare (not safe))
        (##unchecked-structure-set! __obj27023 '() '3 '#f '#f))
      (let ()
        (declare (not safe))
        (##unchecked-structure-set!
         __obj27023
         '(id name
              super
              slots
              precedence-list
              ordered-slots
              struct?
              final?
              system?
              metaclass
              constructor-method
              type-descriptor
              constructor
              predicate
              accessors
              mutators
              unchecked-accessors
              unchecked-mutators
              slot-types
              slot-defaults
              slot-contracts)
         '4
         '#f
         '#f))
      (let ()
        (declare (not safe))
        (##unchecked-structure-set! __obj27023 '#f '7 '#f '#f))
      (let ()
        (declare (not safe))
        (##unchecked-structure-set! __obj27023 '#f '8 '#f '#f))
      (let ()
        (declare (not safe))
        (##unchecked-structure-set! __obj27023 '#f '9 '#f '#f))
      (let ()
        (declare (not safe))
        (##unchecked-structure-set! __obj27023 '#f '11 '#f '#f))
      (let ((__tmp27114 |gerbil/core/mop~MOP-3[1]#_g27115_|))
        (declare (not safe))
        (##unchecked-structure-set! __obj27023 __tmp27114 '12 '#f '#f))
      (let ((__tmp27116 |gerbil/core/mop~MOP-3[1]#_g27117_|))
        (declare (not safe))
        (##unchecked-structure-set! __obj27023 __tmp27116 '13 '#f '#f))
      (let ((__tmp27118 |gerbil/core/mop~MOP-3[1]#_g27119_|))
        (declare (not safe))
        (##unchecked-structure-set! __obj27023 __tmp27118 '14 '#f '#f))
      (let ((__tmp27120
             (cons (cons 'id |gerbil/core/mop~MOP-3[1]#_g27121_|)
                   (cons (cons 'name |gerbil/core/mop~MOP-3[1]#_g27122_|)
                         (cons (cons 'super
                                     |gerbil/core/mop~MOP-3[1]#_g27123_|)
                               (cons (cons 'slots
                                           |gerbil/core/mop~MOP-3[1]#_g27124_|)
                                     (cons (cons 'precedence-list
                                                 |gerbil/core/mop~MOP-3[1]#_g27125_|)
                                           (cons (cons 'ordered-slots
                                                       |gerbil/core/mop~MOP-3[1]#_g27126_|)
                                                 (cons (cons 'struct?
                                                             |gerbil/core/mop~MOP-3[1]#_g27127_|)
                                                       (cons (cons 'final?
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                           |gerbil/core/mop~MOP-3[1]#_g27128_|)
                     (cons (cons 'system? |gerbil/core/mop~MOP-3[1]#_g27129_|)
                           (cons (cons 'metaclass
                                       |gerbil/core/mop~MOP-3[1]#_g27130_|)
                                 (cons (cons 'constructor-method
                                             |gerbil/core/mop~MOP-3[1]#_g27131_|)
                                       (cons (cons 'type-descriptor
                                                   |gerbil/core/mop~MOP-3[1]#_g27132_|)
                                             (cons (cons 'constructor
                                                         |gerbil/core/mop~MOP-3[1]#_g27133_|)
                                                   (cons (cons 'predicate
                                                               |gerbil/core/mop~MOP-3[1]#_g27134_|)
                                                         (cons (cons 'accessors
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                             |gerbil/core/mop~MOP-3[1]#_g27135_|)
                       (cons (cons 'mutators
                                   |gerbil/core/mop~MOP-3[1]#_g27136_|)
                             (cons (cons 'unchecked-accessors
                                         |gerbil/core/mop~MOP-3[1]#_g27137_|)
                                   (cons (cons 'unchecked-mutators
                                               |gerbil/core/mop~MOP-3[1]#_g27138_|)
                                         (cons (cons 'slot-types
                                                     |gerbil/core/mop~MOP-3[1]#_g27139_|)
                                               (cons (cons 'slot-defaults
                                                           |gerbil/core/mop~MOP-3[1]#_g27140_|)
                                                     (cons (cons 'slot-contracts
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                         |gerbil/core/mop~MOP-3[1]#_g27141_|)
                   '())))))))))))))))))))))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
        (declare (not safe))
        (##unchecked-structure-set! __obj27023 __tmp27120 '15 '#f '#f))
      (let ((__tmp27142
             (cons (cons 'id |gerbil/core/mop~MOP-3[1]#_g27143_|)
                   (cons (cons 'name |gerbil/core/mop~MOP-3[1]#_g27144_|)
                         (cons (cons 'super
                                     |gerbil/core/mop~MOP-3[1]#_g27145_|)
                               (cons (cons 'slots
                                           |gerbil/core/mop~MOP-3[1]#_g27146_|)
                                     (cons (cons 'precedence-list
                                                 |gerbil/core/mop~MOP-3[1]#_g27147_|)
                                           (cons (cons 'ordered-slots
                                                       |gerbil/core/mop~MOP-3[1]#_g27148_|)
                                                 (cons (cons 'struct?
                                                             |gerbil/core/mop~MOP-3[1]#_g27149_|)
                                                       (cons (cons 'final?
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                           |gerbil/core/mop~MOP-3[1]#_g27150_|)
                     (cons (cons 'system? |gerbil/core/mop~MOP-3[1]#_g27151_|)
                           (cons (cons 'metaclass
                                       |gerbil/core/mop~MOP-3[1]#_g27152_|)
                                 (cons (cons 'constructor-method
                                             |gerbil/core/mop~MOP-3[1]#_g27153_|)
                                       (cons (cons 'type-descriptor
                                                   |gerbil/core/mop~MOP-3[1]#_g27154_|)
                                             (cons (cons 'constructor
                                                         |gerbil/core/mop~MOP-3[1]#_g27155_|)
                                                   (cons (cons 'predicate
                                                               |gerbil/core/mop~MOP-3[1]#_g27156_|)
                                                         (cons (cons 'accessors
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                             |gerbil/core/mop~MOP-3[1]#_g27157_|)
                       (cons (cons 'mutators
                                   |gerbil/core/mop~MOP-3[1]#_g27158_|)
                             (cons (cons 'unchecked-accessors
                                         |gerbil/core/mop~MOP-3[1]#_g27159_|)
                                   (cons (cons 'unchecked-mutators
                                               |gerbil/core/mop~MOP-3[1]#_g27160_|)
                                         (cons (cons 'slot-types
                                                     |gerbil/core/mop~MOP-3[1]#_g27161_|)
                                               (cons (cons 'slot-defaults
                                                           |gerbil/core/mop~MOP-3[1]#_g27162_|)
                                                     (cons (cons 'slot-contracts
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                         |gerbil/core/mop~MOP-3[1]#_g27163_|)
                   '())))))))))))))))))))))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
        (declare (not safe))
        (##unchecked-structure-set! __obj27023 __tmp27142 '16 '#f '#f))
      (let ((__tmp27164
             (cons (cons 'id |gerbil/core/mop~MOP-3[1]#_g27165_|)
                   (cons (cons 'name |gerbil/core/mop~MOP-3[1]#_g27166_|)
                         (cons (cons 'super
                                     |gerbil/core/mop~MOP-3[1]#_g27167_|)
                               (cons (cons 'slots
                                           |gerbil/core/mop~MOP-3[1]#_g27168_|)
                                     (cons (cons 'precedence-list
                                                 |gerbil/core/mop~MOP-3[1]#_g27169_|)
                                           (cons (cons 'ordered-slots
                                                       |gerbil/core/mop~MOP-3[1]#_g27170_|)
                                                 (cons (cons 'struct?
                                                             |gerbil/core/mop~MOP-3[1]#_g27171_|)
                                                       (cons (cons 'final?
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                           |gerbil/core/mop~MOP-3[1]#_g27172_|)
                     (cons (cons 'system? |gerbil/core/mop~MOP-3[1]#_g27173_|)
                           (cons (cons 'metaclass
                                       |gerbil/core/mop~MOP-3[1]#_g27130_|)
                                 (cons (cons 'constructor-method
                                             |gerbil/core/mop~MOP-3[1]#_g27174_|)
                                       (cons (cons 'type-descriptor
                                                   |gerbil/core/mop~MOP-3[1]#_g27175_|)
                                             (cons (cons 'constructor
                                                         |gerbil/core/mop~MOP-3[1]#_g27176_|)
                                                   (cons (cons 'predicate
                                                               |gerbil/core/mop~MOP-3[1]#_g27177_|)
                                                         (cons (cons 'accessors
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                             |gerbil/core/mop~MOP-3[1]#_g27178_|)
                       (cons (cons 'mutators
                                   |gerbil/core/mop~MOP-3[1]#_g27179_|)
                             (cons (cons 'unchecked-accessors
                                         |gerbil/core/mop~MOP-3[1]#_g27180_|)
                                   (cons (cons 'unchecked-mutators
                                               |gerbil/core/mop~MOP-3[1]#_g27181_|)
                                         (cons (cons 'slot-types
                                                     |gerbil/core/mop~MOP-3[1]#_g27182_|)
                                               (cons (cons 'slot-defaults
                                                           |gerbil/core/mop~MOP-3[1]#_g27183_|)
                                                     (cons (cons 'slot-contracts
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                         |gerbil/core/mop~MOP-3[1]#_g27184_|)
                   '())))))))))))))))))))))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
        (declare (not safe))
        (##unchecked-structure-set! __obj27023 __tmp27164 '17 '#f '#f))
      (let ((__tmp27185
             (cons (cons 'id |gerbil/core/mop~MOP-3[1]#_g27186_|)
                   (cons (cons 'name |gerbil/core/mop~MOP-3[1]#_g27187_|)
                         (cons (cons 'super
                                     |gerbil/core/mop~MOP-3[1]#_g27188_|)
                               (cons (cons 'slots
                                           |gerbil/core/mop~MOP-3[1]#_g27189_|)
                                     (cons (cons 'precedence-list
                                                 |gerbil/core/mop~MOP-3[1]#_g27190_|)
                                           (cons (cons 'ordered-slots
                                                       |gerbil/core/mop~MOP-3[1]#_g27191_|)
                                                 (cons (cons 'struct?
                                                             |gerbil/core/mop~MOP-3[1]#_g27192_|)
                                                       (cons (cons 'final?
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                           |gerbil/core/mop~MOP-3[1]#_g27193_|)
                     (cons (cons 'system? |gerbil/core/mop~MOP-3[1]#_g27194_|)
                           (cons (cons 'metaclass
                                       |gerbil/core/mop~MOP-3[1]#_g27195_|)
                                 (cons (cons 'constructor-method
                                             |gerbil/core/mop~MOP-3[1]#_g27196_|)
                                       (cons (cons 'type-descriptor
                                                   |gerbil/core/mop~MOP-3[1]#_g27197_|)
                                             (cons (cons 'constructor
                                                         |gerbil/core/mop~MOP-3[1]#_g27198_|)
                                                   (cons (cons 'predicate
                                                               |gerbil/core/mop~MOP-3[1]#_g27199_|)
                                                         (cons (cons 'accessors
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                             |gerbil/core/mop~MOP-3[1]#_g27200_|)
                       (cons (cons 'mutators
                                   |gerbil/core/mop~MOP-3[1]#_g27201_|)
                             (cons (cons 'unchecked-accessors
                                         |gerbil/core/mop~MOP-3[1]#_g27202_|)
                                   (cons (cons 'unchecked-mutators
                                               |gerbil/core/mop~MOP-3[1]#_g27203_|)
                                         (cons (cons 'slot-types
                                                     |gerbil/core/mop~MOP-3[1]#_g27204_|)
                                               (cons (cons 'slot-defaults
                                                           |gerbil/core/mop~MOP-3[1]#_g27205_|)
                                                     (cons (cons 'slot-contracts
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                         |gerbil/core/mop~MOP-3[1]#_g27206_|)
                   '())))))))))))))))))))))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
        (declare (not safe))
        (##unchecked-structure-set! __obj27023 __tmp27185 '18 '#f '#f))
      __obj27023)))
