(declare (block) (standard-bindings) (extended-bindings) (inlining-limit 200))
(begin
  (define |gerbil/core/mop~MOP-5[1]#_g27244_|
    (##structure
     gx#syntax-quote::t
     't::t
     #f
     (gx#current-expander-context)
     '()))
  (define |gerbil/core/mop~MOP-5[1]#_g27246_|
    (##structure
     gx#syntax-quote::t
     'true
     #f
     (gx#current-expander-context)
     '()))
  (define |gerbil/core/mop~MOP-5[1]#_g27248_|
    (##structure gx#syntax-quote::t ':t #f (gx#current-expander-context) '()))
  (define |gerbil/core/mop~MOP-5[1]#_g27250_|
    (##structure
     gx#syntax-quote::t
     'class::t
     #f
     (gx#current-expander-context)
     '()))
  (define |gerbil/core/mop~MOP-5[1]#_g27252_|
    (##structure
     gx#syntax-quote::t
     'class-type?
     #f
     (gx#current-expander-context)
     '()))
  (define |gerbil/core/mop~MOP-5[1]#_g27256_|
    (##structure
     gx#syntax-quote::t
     'make-class-type
     #f
     (gx#current-expander-context)
     '()))
  (define |gerbil/core/mop~MOP-5[1]#_g27259_|
    (##structure
     gx#syntax-quote::t
     'class-type-id
     #f
     (gx#current-expander-context)
     '()))
  (define |gerbil/core/mop~MOP-5[1]#_g27260_|
    (##structure
     gx#syntax-quote::t
     'class-type-name
     #f
     (gx#current-expander-context)
     '()))
  (define |gerbil/core/mop~MOP-5[1]#_g27261_|
    (##structure
     gx#syntax-quote::t
     'class-type-super
     #f
     (gx#current-expander-context)
     '()))
  (define |gerbil/core/mop~MOP-5[1]#_g27262_|
    (##structure
     gx#syntax-quote::t
     'class-type-flags
     #f
     (gx#current-expander-context)
     '()))
  (define |gerbil/core/mop~MOP-5[1]#_g27263_|
    (##structure
     gx#syntax-quote::t
     'class-type-fields
     #f
     (gx#current-expander-context)
     '()))
  (define |gerbil/core/mop~MOP-5[1]#_g27264_|
    (##structure
     gx#syntax-quote::t
     'class-type-precedence-list
     #f
     (gx#current-expander-context)
     '()))
  (define |gerbil/core/mop~MOP-5[1]#_g27265_|
    (##structure
     gx#syntax-quote::t
     'class-type-slot-vector
     #f
     (gx#current-expander-context)
     '()))
  (define |gerbil/core/mop~MOP-5[1]#_g27266_|
    (##structure
     gx#syntax-quote::t
     'class-type-slot-table
     #f
     (gx#current-expander-context)
     '()))
  (define |gerbil/core/mop~MOP-5[1]#_g27267_|
    (##structure
     gx#syntax-quote::t
     'class-type-properties
     #f
     (gx#current-expander-context)
     '()))
  (define |gerbil/core/mop~MOP-5[1]#_g27268_|
    (##structure
     gx#syntax-quote::t
     'class-type-constructor
     #f
     (gx#current-expander-context)
     '()))
  (define |gerbil/core/mop~MOP-5[1]#_g27269_|
    (##structure
     gx#syntax-quote::t
     'class-type-methods
     #f
     (gx#current-expander-context)
     '()))
  (define |gerbil/core/mop~MOP-5[1]#_g27271_|
    (##structure
     gx#syntax-quote::t
     '&class-type-id
     #f
     (gx#current-expander-context)
     '()))
  (define |gerbil/core/mop~MOP-5[1]#_g27272_|
    (##structure
     gx#syntax-quote::t
     '&class-type-name
     #f
     (gx#current-expander-context)
     '()))
  (define |gerbil/core/mop~MOP-5[1]#_g27273_|
    (##structure
     gx#syntax-quote::t
     '&class-type-super
     #f
     (gx#current-expander-context)
     '()))
  (define |gerbil/core/mop~MOP-5[1]#_g27274_|
    (##structure
     gx#syntax-quote::t
     '&class-type-flags
     #f
     (gx#current-expander-context)
     '()))
  (define |gerbil/core/mop~MOP-5[1]#_g27275_|
    (##structure
     gx#syntax-quote::t
     '&class-type-fields
     #f
     (gx#current-expander-context)
     '()))
  (define |gerbil/core/mop~MOP-5[1]#_g27276_|
    (##structure
     gx#syntax-quote::t
     '&class-type-precedence-list
     #f
     (gx#current-expander-context)
     '()))
  (define |gerbil/core/mop~MOP-5[1]#_g27277_|
    (##structure
     gx#syntax-quote::t
     '&class-type-slot-vector
     #f
     (gx#current-expander-context)
     '()))
  (define |gerbil/core/mop~MOP-5[1]#_g27278_|
    (##structure
     gx#syntax-quote::t
     '&class-type-slot-table
     #f
     (gx#current-expander-context)
     '()))
  (define |gerbil/core/mop~MOP-5[1]#_g27279_|
    (##structure
     gx#syntax-quote::t
     '&class-type-properties
     #f
     (gx#current-expander-context)
     '()))
  (define |gerbil/core/mop~MOP-5[1]#_g27280_|
    (##structure
     gx#syntax-quote::t
     '&class-type-constructor
     #f
     (gx#current-expander-context)
     '()))
  (define |gerbil/core/mop~MOP-5[1]#_g27281_|
    (##structure
     gx#syntax-quote::t
     '&class-type-methods
     #f
     (gx#current-expander-context)
     '()))
  (define |gerbil/core/mop~MOP-5[1]#_g27284_|
    (##structure
     gx#syntax-quote::t
     'object::t
     #f
     (gx#current-expander-context)
     '()))
  (define |gerbil/core/mop~MOP-5[1]#_g27288_|
    (##structure
     gx#syntax-quote::t
     'immediate::t
     #f
     (gx#current-expander-context)
     '()))
  (define |gerbil/core/mop~MOP-5[1]#_g27290_|
    (##structure
     gx#syntax-quote::t
     'immediate?
     #f
     (gx#current-expander-context)
     '()))
  (define |gerbil/core/mop~MOP-5[1]#_g27292_|
    (##structure
     gx#syntax-quote::t
     ':immediate
     #f
     (gx#current-expander-context)
     '()))
  (define |gerbil/core/mop~MOP-5[1]#_g27294_|
    (##structure
     gx#syntax-quote::t
     'char::t
     #f
     (gx#current-expander-context)
     '()))
  (define |gerbil/core/mop~MOP-5[1]#_g27296_|
    (##structure
     gx#syntax-quote::t
     'char?
     #f
     (gx#current-expander-context)
     '()))
  (define |gerbil/core/mop~MOP-5[1]#_g27299_|
    (##structure
     gx#syntax-quote::t
     'boolean::t
     #f
     (gx#current-expander-context)
     '()))
  (define |gerbil/core/mop~MOP-5[1]#_g27301_|
    (##structure
     gx#syntax-quote::t
     'boolean?
     #f
     (gx#current-expander-context)
     '()))
  (define |gerbil/core/mop~MOP-5[1]#_g27304_|
    (##structure
     gx#syntax-quote::t
     'atom::t
     #f
     (gx#current-expander-context)
     '()))
  (define |gerbil/core/mop~MOP-5[1]#_g27306_|
    (##structure
     gx#syntax-quote::t
     'atom?
     #f
     (gx#current-expander-context)
     '()))
  (define |gerbil/core/mop~MOP-5[1]#_g27308_|
    (##structure
     gx#syntax-quote::t
     ':atom
     #f
     (gx#current-expander-context)
     '()))
  (define |gerbil/core/mop~MOP-5[1]#_g27310_|
    (##structure
     gx#syntax-quote::t
     'void::t
     #f
     (gx#current-expander-context)
     '()))
  (define |gerbil/core/mop~MOP-5[1]#_g27312_|
    (##structure
     gx#syntax-quote::t
     'void?
     #f
     (gx#current-expander-context)
     '()))
  (define |gerbil/core/mop~MOP-5[1]#_g27315_|
    (##structure
     gx#syntax-quote::t
     'eof::t
     #f
     (gx#current-expander-context)
     '()))
  (define |gerbil/core/mop~MOP-5[1]#_g27317_|
    (##structure
     gx#syntax-quote::t
     'eof-object?
     #f
     (gx#current-expander-context)
     '()))
  (define |gerbil/core/mop~MOP-5[1]#_g27319_|
    (##structure
     gx#syntax-quote::t
     ':boolean
     #f
     (gx#current-expander-context)
     '()))
  (define |gerbil/core/mop~MOP-5[1]#_g27321_|
    (##structure
     gx#syntax-quote::t
     'true::t
     #f
     (gx#current-expander-context)
     '()))
  (define |gerbil/core/mop~MOP-5[1]#_g27323_|
    (##structure
     gx#syntax-quote::t
     'true?
     #f
     (gx#current-expander-context)
     '()))
  (define |gerbil/core/mop~MOP-5[1]#_g27326_|
    (##structure
     gx#syntax-quote::t
     'false::t
     #f
     (gx#current-expander-context)
     '()))
  (define |gerbil/core/mop~MOP-5[1]#_g27328_|
    (##structure gx#syntax-quote::t 'not #f (gx#current-expander-context) '()))
  (define |gerbil/core/mop~MOP-5[1]#_g27331_|
    (##structure
     gx#syntax-quote::t
     'special::t
     #f
     (gx#current-expander-context)
     '()))
  (define |gerbil/core/mop~MOP-5[1]#_g27333_|
    (##structure
     gx#syntax-quote::t
     'special?
     #f
     (gx#current-expander-context)
     '()))
  (define |gerbil/core/mop~MOP-5[1]#_g27336_|
    (##structure
     gx#syntax-quote::t
     'number::t
     #f
     (gx#current-expander-context)
     '()))
  (define |gerbil/core/mop~MOP-5[1]#_g27338_|
    (##structure
     gx#syntax-quote::t
     'number?
     #f
     (gx#current-expander-context)
     '()))
  (define |gerbil/core/mop~MOP-5[1]#_g27340_|
    (##structure
     gx#syntax-quote::t
     ':number
     #f
     (gx#current-expander-context)
     '()))
  (define |gerbil/core/mop~MOP-5[1]#_g27342_|
    (##structure
     gx#syntax-quote::t
     'real::t
     #f
     (gx#current-expander-context)
     '()))
  (define |gerbil/core/mop~MOP-5[1]#_g27344_|
    (##structure
     gx#syntax-quote::t
     'real?
     #f
     (gx#current-expander-context)
     '()))
  (define |gerbil/core/mop~MOP-5[1]#_g27346_|
    (##structure
     gx#syntax-quote::t
     ':real
     #f
     (gx#current-expander-context)
     '()))
  (define |gerbil/core/mop~MOP-5[1]#_g27348_|
    (##structure
     gx#syntax-quote::t
     'integer::t
     #f
     (gx#current-expander-context)
     '()))
  (define |gerbil/core/mop~MOP-5[1]#_g27350_|
    (##structure
     gx#syntax-quote::t
     'exact-integer?
     #f
     (gx#current-expander-context)
     '()))
  (define |gerbil/core/mop~MOP-5[1]#_g27352_|
    (##structure
     gx#syntax-quote::t
     ':integer
     #f
     (gx#current-expander-context)
     '()))
  (define |gerbil/core/mop~MOP-5[1]#_g27354_|
    (##structure
     gx#syntax-quote::t
     'fixnum::t
     #f
     (gx#current-expander-context)
     '()))
  (define |gerbil/core/mop~MOP-5[1]#_g27356_|
    (##structure
     gx#syntax-quote::t
     'fixnum?
     #f
     (gx#current-expander-context)
     '()))
  (define |gerbil/core/mop~MOP-5[1]#_g27359_|
    (##structure
     gx#syntax-quote::t
     'bignum::t
     #f
     (gx#current-expander-context)
     '()))
  (define |gerbil/core/mop~MOP-5[1]#_g27361_|
    (##structure
     gx#syntax-quote::t
     '##bignum?
     #f
     (gx#current-expander-context)
     '()))
  (define |gerbil/core/mop~MOP-5[1]#_g27364_|
    (##structure
     gx#syntax-quote::t
     'ratnum::t
     #f
     (gx#current-expander-context)
     '()))
  (define |gerbil/core/mop~MOP-5[1]#_g27366_|
    (##structure
     gx#syntax-quote::t
     '##ratnum?
     #f
     (gx#current-expander-context)
     '()))
  (define |gerbil/core/mop~MOP-5[1]#_g27369_|
    (##structure
     gx#syntax-quote::t
     'flonum::t
     #f
     (gx#current-expander-context)
     '()))
  (define |gerbil/core/mop~MOP-5[1]#_g27371_|
    (##structure
     gx#syntax-quote::t
     'flonum?
     #f
     (gx#current-expander-context)
     '()))
  (define |gerbil/core/mop~MOP-5[1]#_g27374_|
    (##structure
     gx#syntax-quote::t
     'cpxnum::t
     #f
     (gx#current-expander-context)
     '()))
  (define |gerbil/core/mop~MOP-5[1]#_g27376_|
    (##structure
     gx#syntax-quote::t
     '##cpxnum?
     #f
     (gx#current-expander-context)
     '()))
  (define |gerbil/core/mop~MOP-5[1]#_g27379_|
    (##structure
     gx#syntax-quote::t
     'symbolic::t
     #f
     (gx#current-expander-context)
     '()))
  (define |gerbil/core/mop~MOP-5[1]#_g27381_|
    (##structure
     gx#syntax-quote::t
     'symbolic?
     #f
     (gx#current-expander-context)
     '()))
  (define |gerbil/core/mop~MOP-5[1]#_g27383_|
    (##structure
     gx#syntax-quote::t
     ':symbolic
     #f
     (gx#current-expander-context)
     '()))
  (define |gerbil/core/mop~MOP-5[1]#_g27385_|
    (##structure
     gx#syntax-quote::t
     'symbol::t
     #f
     (gx#current-expander-context)
     '()))
  (define |gerbil/core/mop~MOP-5[1]#_g27387_|
    (##structure
     gx#syntax-quote::t
     'symbol?
     #f
     (gx#current-expander-context)
     '()))
  (define |gerbil/core/mop~MOP-5[1]#_g27390_|
    (##structure
     gx#syntax-quote::t
     'keyword::t
     #f
     (gx#current-expander-context)
     '()))
  (define |gerbil/core/mop~MOP-5[1]#_g27392_|
    (##structure
     gx#syntax-quote::t
     'keyword?
     #f
     (gx#current-expander-context)
     '()))
  (define |gerbil/core/mop~MOP-5[1]#_g27395_|
    (##structure
     gx#syntax-quote::t
     'list::t
     #f
     (gx#current-expander-context)
     '()))
  (define |gerbil/core/mop~MOP-5[1]#_g27397_|
    (##structure
     gx#syntax-quote::t
     'list?
     #f
     (gx#current-expander-context)
     '()))
  (define |gerbil/core/mop~MOP-5[1]#_g27399_|
    (##structure
     gx#syntax-quote::t
     ':list
     #f
     (gx#current-expander-context)
     '()))
  (define |gerbil/core/mop~MOP-5[1]#_g27401_|
    (##structure
     gx#syntax-quote::t
     'pair::t
     #f
     (gx#current-expander-context)
     '()))
  (define |gerbil/core/mop~MOP-5[1]#_g27403_|
    (##structure
     gx#syntax-quote::t
     'pair?
     #f
     (gx#current-expander-context)
     '()))
  (define |gerbil/core/mop~MOP-5[1]#_g27406_|
    (##structure
     gx#syntax-quote::t
     'null::t
     #f
     (gx#current-expander-context)
     '()))
  (define |gerbil/core/mop~MOP-5[1]#_g27408_|
    (##structure
     gx#syntax-quote::t
     'null?
     #f
     (gx#current-expander-context)
     '()))
  (define |gerbil/core/mop~MOP-5[1]#_g27411_|
    (##structure
     gx#syntax-quote::t
     'sequence::t
     #f
     (gx#current-expander-context)
     '()))
  (define |gerbil/core/mop~MOP-5[1]#_g27413_|
    (##structure
     gx#syntax-quote::t
     'sequence?
     #f
     (gx#current-expander-context)
     '()))
  (define |gerbil/core/mop~MOP-5[1]#_g27415_|
    (##structure
     gx#syntax-quote::t
     ':sequence
     #f
     (gx#current-expander-context)
     '()))
  (define |gerbil/core/mop~MOP-5[1]#_g27417_|
    (##structure
     gx#syntax-quote::t
     'vector::t
     #f
     (gx#current-expander-context)
     '()))
  (define |gerbil/core/mop~MOP-5[1]#_g27419_|
    (##structure
     gx#syntax-quote::t
     'vector?
     #f
     (gx#current-expander-context)
     '()))
  (define |gerbil/core/mop~MOP-5[1]#_g27422_|
    (##structure
     gx#syntax-quote::t
     'string::t
     #f
     (gx#current-expander-context)
     '()))
  (define |gerbil/core/mop~MOP-5[1]#_g27424_|
    (##structure
     gx#syntax-quote::t
     'string?
     #f
     (gx#current-expander-context)
     '()))
  (define |gerbil/core/mop~MOP-5[1]#_g27427_|
    (##structure
     gx#syntax-quote::t
     'hvector::t
     #f
     (gx#current-expander-context)
     '()))
  (define |gerbil/core/mop~MOP-5[1]#_g27429_|
    (##structure
     gx#syntax-quote::t
     'hvector?
     #f
     (gx#current-expander-context)
     '()))
  (define |gerbil/core/mop~MOP-5[1]#_g27431_|
    (##structure
     gx#syntax-quote::t
     ':hvector
     #f
     (gx#current-expander-context)
     '()))
  (define |gerbil/core/mop~MOP-5[1]#_g27433_|
    (##structure
     gx#syntax-quote::t
     'u8vector::t
     #f
     (gx#current-expander-context)
     '()))
  (define |gerbil/core/mop~MOP-5[1]#_g27435_|
    (##structure
     gx#syntax-quote::t
     'u8vector?
     #f
     (gx#current-expander-context)
     '()))
  (define |gerbil/core/mop~MOP-5[1]#_g27438_|
    (##structure
     gx#syntax-quote::t
     's8vector::t
     #f
     (gx#current-expander-context)
     '()))
  (define |gerbil/core/mop~MOP-5[1]#_g27440_|
    (##structure
     gx#syntax-quote::t
     's8vector?
     #f
     (gx#current-expander-context)
     '()))
  (define |gerbil/core/mop~MOP-5[1]#_g27443_|
    (##structure
     gx#syntax-quote::t
     'u16vector::t
     #f
     (gx#current-expander-context)
     '()))
  (define |gerbil/core/mop~MOP-5[1]#_g27445_|
    (##structure
     gx#syntax-quote::t
     'u16vector?
     #f
     (gx#current-expander-context)
     '()))
  (define |gerbil/core/mop~MOP-5[1]#_g27448_|
    (##structure
     gx#syntax-quote::t
     's16vector::t
     #f
     (gx#current-expander-context)
     '()))
  (define |gerbil/core/mop~MOP-5[1]#_g27450_|
    (##structure
     gx#syntax-quote::t
     's16vector?
     #f
     (gx#current-expander-context)
     '()))
  (define |gerbil/core/mop~MOP-5[1]#_g27453_|
    (##structure
     gx#syntax-quote::t
     'u32vector::t
     #f
     (gx#current-expander-context)
     '()))
  (define |gerbil/core/mop~MOP-5[1]#_g27455_|
    (##structure
     gx#syntax-quote::t
     'u32vector?
     #f
     (gx#current-expander-context)
     '()))
  (define |gerbil/core/mop~MOP-5[1]#_g27458_|
    (##structure
     gx#syntax-quote::t
     's32vector::t
     #f
     (gx#current-expander-context)
     '()))
  (define |gerbil/core/mop~MOP-5[1]#_g27460_|
    (##structure
     gx#syntax-quote::t
     's32vector?
     #f
     (gx#current-expander-context)
     '()))
  (define |gerbil/core/mop~MOP-5[1]#_g27463_|
    (##structure
     gx#syntax-quote::t
     'u64vector::t
     #f
     (gx#current-expander-context)
     '()))
  (define |gerbil/core/mop~MOP-5[1]#_g27465_|
    (##structure
     gx#syntax-quote::t
     'u64vector?
     #f
     (gx#current-expander-context)
     '()))
  (define |gerbil/core/mop~MOP-5[1]#_g27468_|
    (##structure
     gx#syntax-quote::t
     's64vector::t
     #f
     (gx#current-expander-context)
     '()))
  (define |gerbil/core/mop~MOP-5[1]#_g27470_|
    (##structure
     gx#syntax-quote::t
     's64vector?
     #f
     (gx#current-expander-context)
     '()))
  (define |gerbil/core/mop~MOP-5[1]#_g27473_|
    (##structure
     gx#syntax-quote::t
     'f32vector::t
     #f
     (gx#current-expander-context)
     '()))
  (define |gerbil/core/mop~MOP-5[1]#_g27475_|
    (##structure
     gx#syntax-quote::t
     'f32vector?
     #f
     (gx#current-expander-context)
     '()))
  (define |gerbil/core/mop~MOP-5[1]#_g27478_|
    (##structure
     gx#syntax-quote::t
     'f64vector::t
     #f
     (gx#current-expander-context)
     '()))
  (define |gerbil/core/mop~MOP-5[1]#_g27480_|
    (##structure
     gx#syntax-quote::t
     'f64vector?
     #f
     (gx#current-expander-context)
     '()))
  (define |gerbil/core/mop~MOP-5[1]#_g27483_|
    (##structure
     gx#syntax-quote::t
     'values::t
     #f
     (gx#current-expander-context)
     '()))
  (define |gerbil/core/mop~MOP-5[1]#_g27485_|
    (##structure
     gx#syntax-quote::t
     '##values?
     #f
     (gx#current-expander-context)
     '()))
  (define |gerbil/core/mop~MOP-5[1]#_g27488_|
    (##structure
     gx#syntax-quote::t
     'box::t
     #f
     (gx#current-expander-context)
     '()))
  (define |gerbil/core/mop~MOP-5[1]#_g27490_|
    (##structure
     gx#syntax-quote::t
     'box?
     #f
     (gx#current-expander-context)
     '()))
  (define |gerbil/core/mop~MOP-5[1]#_g27493_|
    (##structure
     gx#syntax-quote::t
     'frame::t
     #f
     (gx#current-expander-context)
     '()))
  (define |gerbil/core/mop~MOP-5[1]#_g27495_|
    (##structure
     gx#syntax-quote::t
     '##frame?
     #f
     (gx#current-expander-context)
     '()))
  (define |gerbil/core/mop~MOP-5[1]#_g27498_|
    (##structure
     gx#syntax-quote::t
     'continuation::t
     #f
     (gx#current-expander-context)
     '()))
  (define |gerbil/core/mop~MOP-5[1]#_g27500_|
    (##structure
     gx#syntax-quote::t
     'continuation?
     #f
     (gx#current-expander-context)
     '()))
  (define |gerbil/core/mop~MOP-5[1]#_g27503_|
    (##structure
     gx#syntax-quote::t
     'promise::t
     #f
     (gx#current-expander-context)
     '()))
  (define |gerbil/core/mop~MOP-5[1]#_g27505_|
    (##structure
     gx#syntax-quote::t
     'promise?
     #f
     (gx#current-expander-context)
     '()))
  (define |gerbil/core/mop~MOP-5[1]#_g27508_|
    (##structure
     gx#syntax-quote::t
     'weak::t
     #f
     (gx#current-expander-context)
     '()))
  (define |gerbil/core/mop~MOP-5[1]#_g27510_|
    (##structure
     gx#syntax-quote::t
     'weak?
     #f
     (gx#current-expander-context)
     '()))
  (define |gerbil/core/mop~MOP-5[1]#_g27513_|
    (##structure
     gx#syntax-quote::t
     'foreign::t
     #f
     (gx#current-expander-context)
     '()))
  (define |gerbil/core/mop~MOP-5[1]#_g27515_|
    (##structure
     gx#syntax-quote::t
     'foreign?
     #f
     (gx#current-expander-context)
     '()))
  (define |gerbil/core/mop~MOP-5[1]#_g27518_|
    (##structure
     gx#syntax-quote::t
     'procedure::t
     #f
     (gx#current-expander-context)
     '()))
  (define |gerbil/core/mop~MOP-5[1]#_g27520_|
    (##structure
     gx#syntax-quote::t
     'procedure?
     #f
     (gx#current-expander-context)
     '()))
  (define |gerbil/core/mop~MOP-5[1]#_g27523_|
    (##structure
     gx#syntax-quote::t
     'time::t
     #f
     (gx#current-expander-context)
     '()))
  (define |gerbil/core/mop~MOP-5[1]#_g27525_|
    (##structure
     gx#syntax-quote::t
     'time?
     #f
     (gx#current-expander-context)
     '()))
  (define |gerbil/core/mop~MOP-5[1]#_g27528_|
    (##structure
     gx#syntax-quote::t
     'thread::t
     #f
     (gx#current-expander-context)
     '()))
  (define |gerbil/core/mop~MOP-5[1]#_g27530_|
    (##structure
     gx#syntax-quote::t
     'thread?
     #f
     (gx#current-expander-context)
     '()))
  (define |gerbil/core/mop~MOP-5[1]#_g27533_|
    (##structure
     gx#syntax-quote::t
     'thread-group::t
     #f
     (gx#current-expander-context)
     '()))
  (define |gerbil/core/mop~MOP-5[1]#_g27535_|
    (##structure
     gx#syntax-quote::t
     'thread-group?
     #f
     (gx#current-expander-context)
     '()))
  (define |gerbil/core/mop~MOP-5[1]#_g27538_|
    (##structure
     gx#syntax-quote::t
     'mutex::t
     #f
     (gx#current-expander-context)
     '()))
  (define |gerbil/core/mop~MOP-5[1]#_g27540_|
    (##structure
     gx#syntax-quote::t
     'mutex?
     #f
     (gx#current-expander-context)
     '()))
  (define |gerbil/core/mop~MOP-5[1]#_g27543_|
    (##structure
     gx#syntax-quote::t
     'condvar::t
     #f
     (gx#current-expander-context)
     '()))
  (define |gerbil/core/mop~MOP-5[1]#_g27545_|
    (##structure
     gx#syntax-quote::t
     'condvar?
     #f
     (gx#current-expander-context)
     '()))
  (define |gerbil/core/mop~MOP-5[1]#_g27548_|
    (##structure
     gx#syntax-quote::t
     'port::t
     #f
     (gx#current-expander-context)
     '()))
  (define |gerbil/core/mop~MOP-5[1]#_g27550_|
    (##structure
     gx#syntax-quote::t
     'port?
     #f
     (gx#current-expander-context)
     '()))
  (define |gerbil/core/mop~MOP-5[1]#_g27552_|
    (##structure
     gx#syntax-quote::t
     ':port
     #f
     (gx#current-expander-context)
     '()))
  (define |gerbil/core/mop~MOP-5[1]#_g27554_|
    (##structure
     gx#syntax-quote::t
     'object-port::t
     #f
     (gx#current-expander-context)
     '()))
  (define |gerbil/core/mop~MOP-5[1]#_g27556_|
    (##structure
     gx#syntax-quote::t
     'object-port?
     #f
     (gx#current-expander-context)
     '()))
  (define |gerbil/core/mop~MOP-5[1]#_g27558_|
    (##structure
     gx#syntax-quote::t
     ':object-port
     #f
     (gx#current-expander-context)
     '()))
  (define |gerbil/core/mop~MOP-5[1]#_g27560_|
    (##structure
     gx#syntax-quote::t
     'character-port::t
     #f
     (gx#current-expander-context)
     '()))
  (define |gerbil/core/mop~MOP-5[1]#_g27562_|
    (##structure
     gx#syntax-quote::t
     'character-port?
     #f
     (gx#current-expander-context)
     '()))
  (define |gerbil/core/mop~MOP-5[1]#_g27564_|
    (##structure
     gx#syntax-quote::t
     ':character-port
     #f
     (gx#current-expander-context)
     '()))
  (define |gerbil/core/mop~MOP-5[1]#_g27566_|
    (##structure
     gx#syntax-quote::t
     'byte-port::t
     #f
     (gx#current-expander-context)
     '()))
  (define |gerbil/core/mop~MOP-5[1]#_g27568_|
    (##structure
     gx#syntax-quote::t
     'byte-port?
     #f
     (gx#current-expander-context)
     '()))
  (define |gerbil/core/mop~MOP-5[1]#_g27570_|
    (##structure
     gx#syntax-quote::t
     ':byte-port
     #f
     (gx#current-expander-context)
     '()))
  (define |gerbil/core/mop~MOP-5[1]#_g27572_|
    (##structure
     gx#syntax-quote::t
     'device-port::t
     #f
     (gx#current-expander-context)
     '()))
  (define |gerbil/core/mop~MOP-5[1]#_g27574_|
    (##structure
     gx#syntax-quote::t
     'device-port?
     #f
     (gx#current-expander-context)
     '()))
  (define |gerbil/core/mop~MOP-5[1]#_g27577_|
    (##structure
     gx#syntax-quote::t
     'vector-port::t
     #f
     (gx#current-expander-context)
     '()))
  (define |gerbil/core/mop~MOP-5[1]#_g27579_|
    (##structure
     gx#syntax-quote::t
     'vector-port?
     #f
     (gx#current-expander-context)
     '()))
  (define |gerbil/core/mop~MOP-5[1]#_g27582_|
    (##structure
     gx#syntax-quote::t
     'string-port::t
     #f
     (gx#current-expander-context)
     '()))
  (define |gerbil/core/mop~MOP-5[1]#_g27584_|
    (##structure
     gx#syntax-quote::t
     'string-port?
     #f
     (gx#current-expander-context)
     '()))
  (define |gerbil/core/mop~MOP-5[1]#_g27587_|
    (##structure
     gx#syntax-quote::t
     'u8vector-port::t
     #f
     (gx#current-expander-context)
     '()))
  (define |gerbil/core/mop~MOP-5[1]#_g27589_|
    (##structure
     gx#syntax-quote::t
     'u8vector-port?
     #f
     (gx#current-expander-context)
     '()))
  (define |gerbil/core/mop~MOP-5[1]#_g27592_|
    (##structure
     gx#syntax-quote::t
     'raw-device-port::t
     #f
     (gx#current-expander-context)
     '()))
  (define |gerbil/core/mop~MOP-5[1]#_g27594_|
    (##structure
     gx#syntax-quote::t
     'raw-device-port?
     #f
     (gx#current-expander-context)
     '()))
  (define |gerbil/core/mop~MOP-5[1]#_g27597_|
    (##structure
     gx#syntax-quote::t
     'tcp-server-port::t
     #f
     (gx#current-expander-context)
     '()))
  (define |gerbil/core/mop~MOP-5[1]#_g27599_|
    (##structure
     gx#syntax-quote::t
     'tcp-server-port?
     #f
     (gx#current-expander-context)
     '()))
  (define |gerbil/core/mop~MOP-5[1]#_g27602_|
    (##structure
     gx#syntax-quote::t
     'udp-port::t
     #f
     (gx#current-expander-context)
     '()))
  (define |gerbil/core/mop~MOP-5[1]#_g27604_|
    (##structure
     gx#syntax-quote::t
     'udp-port?
     #f
     (gx#current-expander-context)
     '()))
  (define |gerbil/core/mop~MOP-5[1]#_g27607_|
    (##structure
     gx#syntax-quote::t
     'directory-port::t
     #f
     (gx#current-expander-context)
     '()))
  (define |gerbil/core/mop~MOP-5[1]#_g27609_|
    (##structure
     gx#syntax-quote::t
     'directory-port?
     #f
     (gx#current-expander-context)
     '()))
  (define |gerbil/core/mop~MOP-5[1]#_g27612_|
    (##structure
     gx#syntax-quote::t
     'event-queue-port::t
     #f
     (gx#current-expander-context)
     '()))
  (define |gerbil/core/mop~MOP-5[1]#_g27614_|
    (##structure
     gx#syntax-quote::t
     'event-queue-port?
     #f
     (gx#current-expander-context)
     '()))
  (define |gerbil/core/mop~MOP-5[1]#_g27617_|
    (##structure
     gx#syntax-quote::t
     'table::t
     #f
     (gx#current-expander-context)
     '()))
  (define |gerbil/core/mop~MOP-5[1]#_g27619_|
    (##structure
     gx#syntax-quote::t
     'table?
     #f
     (gx#current-expander-context)
     '()))
  (define |gerbil/core/mop~MOP-5[1]#_g27622_|
    (##structure
     gx#syntax-quote::t
     'readenv::t
     #f
     (gx#current-expander-context)
     '()))
  (define |gerbil/core/mop~MOP-5[1]#_g27624_|
    (##structure
     gx#syntax-quote::t
     'readenv?
     #f
     (gx#current-expander-context)
     '()))
  (define |gerbil/core/mop~MOP-5[1]#_g27627_|
    (##structure
     gx#syntax-quote::t
     'writeenv::t
     #f
     (gx#current-expander-context)
     '()))
  (define |gerbil/core/mop~MOP-5[1]#_g27629_|
    (##structure
     gx#syntax-quote::t
     'writeenv?
     #f
     (gx#current-expander-context)
     '()))
  (define |gerbil/core/mop~MOP-5[1]#_g27632_|
    (##structure
     gx#syntax-quote::t
     'readtable::t
     #f
     (gx#current-expander-context)
     '()))
  (define |gerbil/core/mop~MOP-5[1]#_g27634_|
    (##structure
     gx#syntax-quote::t
     'readtable?
     #f
     (gx#current-expander-context)
     '()))
  (define |gerbil/core/mop~MOP-5[1]#_g27637_|
    (##structure
     gx#syntax-quote::t
     'processor::t
     #f
     (gx#current-expander-context)
     '()))
  (define |gerbil/core/mop~MOP-5[1]#_g27639_|
    (##structure
     gx#syntax-quote::t
     'processor?
     #f
     (gx#current-expander-context)
     '()))
  (define |gerbil/core/mop~MOP-5[1]#_g27642_|
    (##structure
     gx#syntax-quote::t
     'vm::t
     #f
     (gx#current-expander-context)
     '()))
  (define |gerbil/core/mop~MOP-5[1]#_g27644_|
    (##structure gx#syntax-quote::t 'vm? #f (gx#current-expander-context) '()))
  (define |gerbil/core/mop~MOP-5[1]#_g27647_|
    (##structure
     gx#syntax-quote::t
     'file-info::t
     #f
     (gx#current-expander-context)
     '()))
  (define |gerbil/core/mop~MOP-5[1]#_g27649_|
    (##structure
     gx#syntax-quote::t
     'file-info?
     #f
     (gx#current-expander-context)
     '()))
  (define |gerbil/core/mop~MOP-5[1]#_g27652_|
    (##structure
     gx#syntax-quote::t
     'socket-info::t
     #f
     (gx#current-expander-context)
     '()))
  (define |gerbil/core/mop~MOP-5[1]#_g27654_|
    (##structure
     gx#syntax-quote::t
     'socket-info?
     #f
     (gx#current-expander-context)
     '()))
  (define |gerbil/core/mop~MOP-5[1]#_g27657_|
    (##structure
     gx#syntax-quote::t
     'address-info::t
     #f
     (gx#current-expander-context)
     '()))
  (define |gerbil/core/mop~MOP-5[1]#_g27659_|
    (##structure
     gx#syntax-quote::t
     'address-info?
     #f
     (gx#current-expander-context)
     '()))
  (begin
    (define |gerbil/core/mop~MOP-5[:0:]#defsystem-class-info|
      (lambda (_%stx26512%_)
        (let* ((_%g2651526550%_
                (lambda (_%g2651626546%_)
                  (gx#raise-syntax-error
                   '#f
                   '"Bad syntax; invalid match target"
                   _%g2651626546%_)))
               (_%g2651426744%_
                (lambda (_%g2651626554%_)
                  (if (gx#stx-pair? _%g2651626554%_)
                      (let ((_%e2652126557%_ (gx#syntax-e _%g2651626554%_)))
                        (let ((_%hd2652226561%_
                               (let ()
                                 (declare (not safe))
                                 (##car _%e2652126557%_)))
                              (_%tl2652326564%_
                               (let ()
                                 (declare (not safe))
                                 (##cdr _%e2652126557%_))))
                          (if (gx#stx-pair? _%tl2652326564%_)
                              (let ((_%e2652426567%_
                                     (gx#syntax-e _%tl2652326564%_)))
                                (let ((_%hd2652526571%_
                                       (let ()
                                         (declare (not safe))
                                         (##car _%e2652426567%_)))
                                      (_%tl2652626574%_
                                       (let ()
                                         (declare (not safe))
                                         (##cdr _%e2652426567%_))))
                                  (if (gx#stx-pair? _%tl2652626574%_)
                                      (let ((_%e2652726577%_
                                             (gx#syntax-e _%tl2652626574%_)))
                                        (let ((_%hd2652826581%_
                                               (let ()
                                                 (declare (not safe))
                                                 (##car _%e2652726577%_)))
                                              (_%tl2652926584%_
                                               (let ()
                                                 (declare (not safe))
                                                 (##cdr _%e2652726577%_))))
                                          (if (gx#stx-pair? _%tl2652926584%_)
                                              (let ((_%e2653026587%_
                                                     (gx#syntax-e
                                                      _%tl2652926584%_)))
                                                (let ((_%hd2653126591%_
                                                       (let ()
                                                         (declare (not safe))
                                                         (##car _%e2653026587%_)))
                                                      (_%tl2653226594%_
                                                       (let ()
                                                         (declare (not safe))
                                                         (##cdr _%e2653026587%_))))
                                                  (if (gx#stx-pair/null?
                                                       _%hd2653126591%_)
                                                      (let ((_g27241_
                                                             (gx#syntax-split-splice
                                                              _%hd2653126591%_
                                                              '0)))
                                                        (begin
                                                          (let ((_g27242_
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                         (let ()
                           (declare (not safe))
                           (if (##values? _g27241_)
                               (##vector-length _g27241_)
                               1))))
                    (if (not (let () (declare (not safe)) (##fx= _g27242_ 2)))
                        (error "Context expects 2 values" _g27242_)))
                  (let ((_%target2653326597%_
                         (let ()
                           (declare (not safe))
                           (##vector-ref _g27241_ 0)))
                        (_%tl2653526600%_
                         (let ()
                           (declare (not safe))
                           (##vector-ref _g27241_ 1))))
                    (if (gx#stx-null? _%tl2653526600%_)
                        (letrec ((_%loop2653626603%_
                                  (lambda (_%hd2653426607%_
                                           _%super2654026610%_)
                                    (if (gx#stx-pair? _%hd2653426607%_)
                                        (let ((_%e2653726613%_
                                               (gx#syntax-e _%hd2653426607%_)))
                                          (let ((_%lp-hd2653826617%_
                                                 (let ()
                                                   (declare (not safe))
                                                   (##car _%e2653726613%_)))
                                                (_%lp-tl2653926620%_
                                                 (let ()
                                                   (declare (not safe))
                                                   (##cdr _%e2653726613%_))))
                                            (_%loop2653626603%_
                                             _%lp-tl2653926620%_
                                             (cons _%lp-hd2653826617%_
                                                   _%super2654026610%_))))
                                        (let ((_%super2654126623%_
                                               (reverse _%super2654026610%_)))
                                          (if (gx#stx-pair? _%tl2653226594%_)
                                              (let ((_%e2654226627%_
                                                     (gx#syntax-e
                                                      _%tl2653226594%_)))
                                                (let ((_%hd2654326631%_
                                                       (let ()
                                                         (declare (not safe))
                                                         (##car _%e2654226627%_)))
                                                      (_%tl2654426634%_
                                                       (let ()
                                                         (declare (not safe))
                                                         (##cdr _%e2654226627%_))))
                                                  (if (gx#stx-null?
                                                       _%tl2654426634%_)
                                                      ((lambda (_%L26637%_
                                                                _%L26639%_
                                                                _%L26640%_
                                                                _%L26641%_)
                                                         (let* ((_%klass26668%_
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                         (gx#eval-syntax _%L26640%_))
                        (_%g2667126686%_
                         (lambda (_%g2667226682%_)
                           (gx#raise-syntax-error
                            '#f
                            '"Bad syntax; invalid match target"
                            _%g2667226682%_)))
                        (_%g2667026740%_
                         (lambda (_%g2667226690%_)
                           (if (gx#stx-pair? _%g2667226690%_)
                               (let ((_%e2667526693%_
                                      (gx#syntax-e _%g2667226690%_)))
                                 (let ((_%hd2667626697%_
                                        (let ()
                                          (declare (not safe))
                                          (##car _%e2667526693%_)))
                                       (_%tl2667726700%_
                                        (let ()
                                          (declare (not safe))
                                          (##cdr _%e2667526693%_))))
                                   (if (gx#stx-pair? _%tl2667726700%_)
                                       (let ((_%e2667826703%_
                                              (gx#syntax-e _%tl2667726700%_)))
                                         (let ((_%hd2667926707%_
                                                (let ()
                                                  (declare (not safe))
                                                  (##car _%e2667826703%_)))
                                               (_%tl2668026710%_
                                                (let ()
                                                  (declare (not safe))
                                                  (##cdr _%e2667826703%_))))
                                           (if (gx#stx-null? _%tl2668026710%_)
                                               ((lambda (_%L26713%_ _%L26715%_)
                                                  (cons (gx#datum->syntax
                                                         '#f
                                                         'defsyntax)
                                                        (cons _%L26641%_
                                                              (cons (cons (gx#datum->syntax
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                                   '#f
                                   'make-class-type-info)
                                  (cons 'id:
                                        (cons (cons (gx#datum->syntax
                                                     '#f
                                                     'quote)
                                                    (cons _%L26715%_ '()))
                                              (cons 'name:
                                                    (cons (cons (gx#datum->syntax
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                         '#f
                         'quote)
                        (cons _%L26713%_ '()))
                  (cons 'super:
                        (cons (cons (gx#datum->syntax '#f '@list)
                                    (foldr (lambda (_%g2673126734%_
                                                    _%g2673226737%_)
                                             (cons (cons (gx#datum->syntax
                                                          '#f
                                                          'quote-syntax)
                                                         (cons _%g2673126734%_
                                                               '()))
                                                   _%g2673226737%_))
                                           '()
                                           _%L26639%_))
                              (cons 'slots:
                                    (cons (cons (gx#datum->syntax '#f '@list)
                                                '())
                                          (cons 'system?:
                                                (cons '#t
                                                      (cons 'type-descriptor:
                                                            (cons (cons (gx#datum->syntax
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                                 '#f
                                 'quote-syntax)
                                (cons _%L26640%_ '()))
                          (cons 'predicate:
                                (cons (cons (gx#datum->syntax
                                             '#f
                                             'quote-syntax)
                                            (cons _%L26637%_ '()))
                                      (cons 'accessors:
                                            (cons (cons (gx#datum->syntax
                                                         '#f
                                                         '@list)
                                                        '())
                                                  (cons 'mutators:
                                                        (cons (cons (gx#datum->syntax
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                             '#f
                             '@list)
                            '())
                      (cons 'unchecked-accessors:
                            (cons (cons (gx#datum->syntax '#f '@list) '())
                                  (cons 'unchecked-mutators:
                                        (cons (cons (gx#datum->syntax
                                                     '#f
                                                     '@list)
                                                    '())
                                              '())))))))))))))))))))))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                            '()))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                                _%hd2667926707%_
                                                _%hd2667626697%_)
                                               (_%g2667126686%_
                                                _%g2667226690%_))))
                                       (_%g2667126686%_ _%g2667226690%_))))
                               (_%g2667126686%_ _%g2667226690%_)))))
                   (_%g2667026740%_
                    (list (class-type-id _%klass26668%_)
                          (class-type-name _%klass26668%_)))))
               _%hd2654326631%_
               _%super2654126623%_
               _%hd2652826581%_
               _%hd2652526571%_)
              (_%g2651526550%_ _%g2651626554%_))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                              (_%g2651526550%_
                                               _%g2651626554%_)))))))
                          (_%loop2653626603%_ _%target2653326597%_ '()))
                        (_%g2651526550%_ _%g2651626554%_)))))
              (_%g2651526550%_ _%g2651626554%_))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                              (_%g2651526550%_
                                               _%g2651626554%_))))
                                      (_%g2651526550%_ _%g2651626554%_))))
                              (_%g2651526550%_ _%g2651626554%_))))
                      (_%g2651526550%_ _%g2651626554%_)))))
          (_%g2651426744%_ _%stx26512%_))))
    (define |gerbil/core/mop~MOP-5[:0:]#:t|
      (let ((__obj27027
             (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! __obj27027 't '1 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27027 't '2 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27027 '() '3 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27027 '() '4 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27027 '#t '9 '#f '#f))
        (let ((__tmp27243 |gerbil/core/mop~MOP-5[1]#_g27244_|))
          (declare (not safe))
          (##unchecked-structure-set! __obj27027 __tmp27243 '12 '#f '#f))
        (let ((__tmp27245 |gerbil/core/mop~MOP-5[1]#_g27246_|))
          (declare (not safe))
          (##unchecked-structure-set! __obj27027 __tmp27245 '14 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27027 '() '15 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27027 '() '16 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27027 '() '17 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27027 '() '18 '#f '#f))
        __obj27027))
    (define |gerbil/core/mop~MOP-5[:0:]#:class|
      (let ((__obj27028
             (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! __obj27028 'class '1 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27028 'class '2 '#f '#f))
        (let ((__tmp27247 (cons |gerbil/core/mop~MOP-5[1]#_g27248_| '())))
          (declare (not safe))
          (##unchecked-structure-set! __obj27028 __tmp27247 '3 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27028 '() '4 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27028 '#t '9 '#f '#f))
        (let ((__tmp27249 |gerbil/core/mop~MOP-5[1]#_g27250_|))
          (declare (not safe))
          (##unchecked-structure-set! __obj27028 __tmp27249 '12 '#f '#f))
        (let ((__tmp27251 |gerbil/core/mop~MOP-5[1]#_g27252_|))
          (declare (not safe))
          (##unchecked-structure-set! __obj27028 __tmp27251 '14 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27028 '() '15 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27028 '() '16 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27028 '() '17 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27028 '() '18 '#f '#f))
        __obj27028))
    (define |gerbil/core/mop~MOP-5[:0:]#class|
      (let ((__obj27029
             (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! __obj27029 'class '1 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27029 'class '2 '#f '#f))
        (let ((__tmp27253 (cons |gerbil/core/mop~MOP-5[1]#_g27248_| '())))
          (declare (not safe))
          (##unchecked-structure-set! __obj27029 __tmp27253 '3 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set!
           __obj27029
           '(id name
                super
                flags
                fields
                precedence-list
                slot-vector
                slot-table
                properties
                constructor
                methods)
           '4
           '#f
           '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27029 '#t '7 '#f '#f))
        (let ((__tmp27254 |gerbil/core/mop~MOP-5[1]#_g27250_|))
          (declare (not safe))
          (##unchecked-structure-set! __obj27029 __tmp27254 '12 '#f '#f))
        (let ((__tmp27255 |gerbil/core/mop~MOP-5[1]#_g27256_|))
          (declare (not safe))
          (##unchecked-structure-set! __obj27029 __tmp27255 '13 '#f '#f))
        (let ((__tmp27257 |gerbil/core/mop~MOP-5[1]#_g27252_|))
          (declare (not safe))
          (##unchecked-structure-set! __obj27029 __tmp27257 '14 '#f '#f))
        (let ((__tmp27258
               (cons (cons 'id |gerbil/core/mop~MOP-5[1]#_g27259_|)
                     (cons (cons 'name |gerbil/core/mop~MOP-5[1]#_g27260_|)
                           (cons (cons 'super
                                       |gerbil/core/mop~MOP-5[1]#_g27261_|)
                                 (cons (cons 'flags
                                             |gerbil/core/mop~MOP-5[1]#_g27262_|)
                                       (cons (cons 'fields
                                                   |gerbil/core/mop~MOP-5[1]#_g27263_|)
                                             (cons (cons 'precedence-list
                                                         |gerbil/core/mop~MOP-5[1]#_g27264_|)
                                                   (cons (cons 'slot-vector
                                                               |gerbil/core/mop~MOP-5[1]#_g27265_|)
                                                         (cons (cons 'slot-table
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                             |gerbil/core/mop~MOP-5[1]#_g27266_|)
                       (cons (cons 'properties
                                   |gerbil/core/mop~MOP-5[1]#_g27267_|)
                             (cons (cons 'constructor
                                         |gerbil/core/mop~MOP-5[1]#_g27268_|)
                                   (cons (cons 'methods
                                               |gerbil/core/mop~MOP-5[1]#_g27269_|)
                                         '())))))))))))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
          (declare (not safe))
          (##unchecked-structure-set! __obj27029 __tmp27258 '15 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27029 '() '16 '#f '#f))
        (let ((__tmp27270
               (cons (cons 'id |gerbil/core/mop~MOP-5[1]#_g27271_|)
                     (cons (cons 'name |gerbil/core/mop~MOP-5[1]#_g27272_|)
                           (cons (cons 'super
                                       |gerbil/core/mop~MOP-5[1]#_g27273_|)
                                 (cons (cons 'flags
                                             |gerbil/core/mop~MOP-5[1]#_g27274_|)
                                       (cons (cons 'fields
                                                   |gerbil/core/mop~MOP-5[1]#_g27275_|)
                                             (cons (cons 'precedence-list
                                                         |gerbil/core/mop~MOP-5[1]#_g27276_|)
                                                   (cons (cons 'slot-vector
                                                               |gerbil/core/mop~MOP-5[1]#_g27277_|)
                                                         (cons (cons 'slot-table
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                             |gerbil/core/mop~MOP-5[1]#_g27278_|)
                       (cons (cons 'properties
                                   |gerbil/core/mop~MOP-5[1]#_g27279_|)
                             (cons (cons 'constructor
                                         |gerbil/core/mop~MOP-5[1]#_g27280_|)
                                   (cons (cons 'methods
                                               |gerbil/core/mop~MOP-5[1]#_g27281_|)
                                         '())))))))))))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
          (declare (not safe))
          (##unchecked-structure-set! __obj27029 __tmp27270 '17 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27029 '() '18 '#f '#f))
        __obj27029))
    (define |gerbil/core/mop~MOP-5[:0:]#:object|
      (let ((__obj27030
             (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! __obj27030 'object '1 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27030 'object '2 '#f '#f))
        (let ((__tmp27282 (cons |gerbil/core/mop~MOP-5[1]#_g27248_| '())))
          (declare (not safe))
          (##unchecked-structure-set! __obj27030 __tmp27282 '3 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27030 '() '4 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27030 '#t '9 '#f '#f))
        (let ((__tmp27283 |gerbil/core/mop~MOP-5[1]#_g27284_|))
          (declare (not safe))
          (##unchecked-structure-set! __obj27030 __tmp27283 '12 '#f '#f))
        (let ((__tmp27285 |gerbil/core/mop~MOP-5[1]#_g27246_|))
          (declare (not safe))
          (##unchecked-structure-set! __obj27030 __tmp27285 '14 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27030 '() '15 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27030 '() '16 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27030 '() '17 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27030 '() '18 '#f '#f))
        __obj27030))
    (define |gerbil/core/mop~MOP-5[:0:]#:immediate|
      (let ((__obj27031
             (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! __obj27031 'immediate '1 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27031 'immediate '2 '#f '#f))
        (let ((__tmp27286 (cons |gerbil/core/mop~MOP-5[1]#_g27248_| '())))
          (declare (not safe))
          (##unchecked-structure-set! __obj27031 __tmp27286 '3 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27031 '() '4 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27031 '#t '9 '#f '#f))
        (let ((__tmp27287 |gerbil/core/mop~MOP-5[1]#_g27288_|))
          (declare (not safe))
          (##unchecked-structure-set! __obj27031 __tmp27287 '12 '#f '#f))
        (let ((__tmp27289 |gerbil/core/mop~MOP-5[1]#_g27290_|))
          (declare (not safe))
          (##unchecked-structure-set! __obj27031 __tmp27289 '14 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27031 '() '15 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27031 '() '16 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27031 '() '17 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27031 '() '18 '#f '#f))
        __obj27031))
    (define |gerbil/core/mop~MOP-5[:0:]#:char|
      (let ((__obj27032
             (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! __obj27032 'char '1 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27032 'char '2 '#f '#f))
        (let ((__tmp27291 (cons |gerbil/core/mop~MOP-5[1]#_g27292_| '())))
          (declare (not safe))
          (##unchecked-structure-set! __obj27032 __tmp27291 '3 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27032 '() '4 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27032 '#t '9 '#f '#f))
        (let ((__tmp27293 |gerbil/core/mop~MOP-5[1]#_g27294_|))
          (declare (not safe))
          (##unchecked-structure-set! __obj27032 __tmp27293 '12 '#f '#f))
        (let ((__tmp27295 |gerbil/core/mop~MOP-5[1]#_g27296_|))
          (declare (not safe))
          (##unchecked-structure-set! __obj27032 __tmp27295 '14 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27032 '() '15 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27032 '() '16 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27032 '() '17 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27032 '() '18 '#f '#f))
        __obj27032))
    (define |gerbil/core/mop~MOP-5[:0:]#:boolean|
      (let ((__obj27033
             (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! __obj27033 'boolean '1 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27033 'boolean '2 '#f '#f))
        (let ((__tmp27297 (cons |gerbil/core/mop~MOP-5[1]#_g27292_| '())))
          (declare (not safe))
          (##unchecked-structure-set! __obj27033 __tmp27297 '3 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27033 '() '4 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27033 '#t '9 '#f '#f))
        (let ((__tmp27298 |gerbil/core/mop~MOP-5[1]#_g27299_|))
          (declare (not safe))
          (##unchecked-structure-set! __obj27033 __tmp27298 '12 '#f '#f))
        (let ((__tmp27300 |gerbil/core/mop~MOP-5[1]#_g27301_|))
          (declare (not safe))
          (##unchecked-structure-set! __obj27033 __tmp27300 '14 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27033 '() '15 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27033 '() '16 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27033 '() '17 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27033 '() '18 '#f '#f))
        __obj27033))
    (define |gerbil/core/mop~MOP-5[:0:]#:atom|
      (let ((__obj27034
             (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! __obj27034 'atom '1 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27034 'atom '2 '#f '#f))
        (let ((__tmp27302 (cons |gerbil/core/mop~MOP-5[1]#_g27292_| '())))
          (declare (not safe))
          (##unchecked-structure-set! __obj27034 __tmp27302 '3 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27034 '() '4 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27034 '#t '9 '#f '#f))
        (let ((__tmp27303 |gerbil/core/mop~MOP-5[1]#_g27304_|))
          (declare (not safe))
          (##unchecked-structure-set! __obj27034 __tmp27303 '12 '#f '#f))
        (let ((__tmp27305 |gerbil/core/mop~MOP-5[1]#_g27306_|))
          (declare (not safe))
          (##unchecked-structure-set! __obj27034 __tmp27305 '14 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27034 '() '15 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27034 '() '16 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27034 '() '17 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27034 '() '18 '#f '#f))
        __obj27034))
    (define |gerbil/core/mop~MOP-5[:0:]#:void|
      (let ((__obj27035
             (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! __obj27035 'void '1 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27035 'void '2 '#f '#f))
        (let ((__tmp27307 (cons |gerbil/core/mop~MOP-5[1]#_g27308_| '())))
          (declare (not safe))
          (##unchecked-structure-set! __obj27035 __tmp27307 '3 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27035 '() '4 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27035 '#t '9 '#f '#f))
        (let ((__tmp27309 |gerbil/core/mop~MOP-5[1]#_g27310_|))
          (declare (not safe))
          (##unchecked-structure-set! __obj27035 __tmp27309 '12 '#f '#f))
        (let ((__tmp27311 |gerbil/core/mop~MOP-5[1]#_g27312_|))
          (declare (not safe))
          (##unchecked-structure-set! __obj27035 __tmp27311 '14 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27035 '() '15 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27035 '() '16 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27035 '() '17 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27035 '() '18 '#f '#f))
        __obj27035))
    (define |gerbil/core/mop~MOP-5[:0:]#:eof|
      (let ((__obj27036
             (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! __obj27036 'eof '1 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27036 'eof '2 '#f '#f))
        (let ((__tmp27313 (cons |gerbil/core/mop~MOP-5[1]#_g27308_| '())))
          (declare (not safe))
          (##unchecked-structure-set! __obj27036 __tmp27313 '3 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27036 '() '4 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27036 '#t '9 '#f '#f))
        (let ((__tmp27314 |gerbil/core/mop~MOP-5[1]#_g27315_|))
          (declare (not safe))
          (##unchecked-structure-set! __obj27036 __tmp27314 '12 '#f '#f))
        (let ((__tmp27316 |gerbil/core/mop~MOP-5[1]#_g27317_|))
          (declare (not safe))
          (##unchecked-structure-set! __obj27036 __tmp27316 '14 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27036 '() '15 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27036 '() '16 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27036 '() '17 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27036 '() '18 '#f '#f))
        __obj27036))
    (define |gerbil/core/mop~MOP-5[:0:]#:true|
      (let ((__obj27037
             (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! __obj27037 'true '1 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27037 'true '2 '#f '#f))
        (let ((__tmp27318
               (cons |gerbil/core/mop~MOP-5[1]#_g27319_|
                     (cons |gerbil/core/mop~MOP-5[1]#_g27308_| '()))))
          (declare (not safe))
          (##unchecked-structure-set! __obj27037 __tmp27318 '3 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27037 '() '4 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27037 '#t '9 '#f '#f))
        (let ((__tmp27320 |gerbil/core/mop~MOP-5[1]#_g27321_|))
          (declare (not safe))
          (##unchecked-structure-set! __obj27037 __tmp27320 '12 '#f '#f))
        (let ((__tmp27322 |gerbil/core/mop~MOP-5[1]#_g27323_|))
          (declare (not safe))
          (##unchecked-structure-set! __obj27037 __tmp27322 '14 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27037 '() '15 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27037 '() '16 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27037 '() '17 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27037 '() '18 '#f '#f))
        __obj27037))
    (define |gerbil/core/mop~MOP-5[:0:]#:false|
      (let ((__obj27038
             (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! __obj27038 'false '1 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27038 'false '2 '#f '#f))
        (let ((__tmp27324
               (cons |gerbil/core/mop~MOP-5[1]#_g27319_|
                     (cons |gerbil/core/mop~MOP-5[1]#_g27308_| '()))))
          (declare (not safe))
          (##unchecked-structure-set! __obj27038 __tmp27324 '3 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27038 '() '4 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27038 '#t '9 '#f '#f))
        (let ((__tmp27325 |gerbil/core/mop~MOP-5[1]#_g27326_|))
          (declare (not safe))
          (##unchecked-structure-set! __obj27038 __tmp27325 '12 '#f '#f))
        (let ((__tmp27327 |gerbil/core/mop~MOP-5[1]#_g27328_|))
          (declare (not safe))
          (##unchecked-structure-set! __obj27038 __tmp27327 '14 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27038 '() '15 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27038 '() '16 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27038 '() '17 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27038 '() '18 '#f '#f))
        __obj27038))
    (define |gerbil/core/mop~MOP-5[:0:]#:special|
      (let ((__obj27039
             (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! __obj27039 'special '1 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27039 'special '2 '#f '#f))
        (let ((__tmp27329 (cons |gerbil/core/mop~MOP-5[1]#_g27308_| '())))
          (declare (not safe))
          (##unchecked-structure-set! __obj27039 __tmp27329 '3 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27039 '() '4 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27039 '#t '9 '#f '#f))
        (let ((__tmp27330 |gerbil/core/mop~MOP-5[1]#_g27331_|))
          (declare (not safe))
          (##unchecked-structure-set! __obj27039 __tmp27330 '12 '#f '#f))
        (let ((__tmp27332 |gerbil/core/mop~MOP-5[1]#_g27333_|))
          (declare (not safe))
          (##unchecked-structure-set! __obj27039 __tmp27332 '14 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27039 '() '15 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27039 '() '16 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27039 '() '17 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27039 '() '18 '#f '#f))
        __obj27039))
    (define |gerbil/core/mop~MOP-5[:0:]#:number|
      (let ((__obj27040
             (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! __obj27040 'number '1 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27040 'number '2 '#f '#f))
        (let ((__tmp27334 (cons |gerbil/core/mop~MOP-5[1]#_g27248_| '())))
          (declare (not safe))
          (##unchecked-structure-set! __obj27040 __tmp27334 '3 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27040 '() '4 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27040 '#t '9 '#f '#f))
        (let ((__tmp27335 |gerbil/core/mop~MOP-5[1]#_g27336_|))
          (declare (not safe))
          (##unchecked-structure-set! __obj27040 __tmp27335 '12 '#f '#f))
        (let ((__tmp27337 |gerbil/core/mop~MOP-5[1]#_g27338_|))
          (declare (not safe))
          (##unchecked-structure-set! __obj27040 __tmp27337 '14 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27040 '() '15 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27040 '() '16 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27040 '() '17 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27040 '() '18 '#f '#f))
        __obj27040))
    (define |gerbil/core/mop~MOP-5[:0:]#:real|
      (let ((__obj27041
             (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! __obj27041 'real '1 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27041 'real '2 '#f '#f))
        (let ((__tmp27339 (cons |gerbil/core/mop~MOP-5[1]#_g27340_| '())))
          (declare (not safe))
          (##unchecked-structure-set! __obj27041 __tmp27339 '3 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27041 '() '4 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27041 '#t '9 '#f '#f))
        (let ((__tmp27341 |gerbil/core/mop~MOP-5[1]#_g27342_|))
          (declare (not safe))
          (##unchecked-structure-set! __obj27041 __tmp27341 '12 '#f '#f))
        (let ((__tmp27343 |gerbil/core/mop~MOP-5[1]#_g27344_|))
          (declare (not safe))
          (##unchecked-structure-set! __obj27041 __tmp27343 '14 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27041 '() '15 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27041 '() '16 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27041 '() '17 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27041 '() '18 '#f '#f))
        __obj27041))
    (define |gerbil/core/mop~MOP-5[:0:]#:integer|
      (let ((__obj27042
             (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! __obj27042 'integer '1 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27042 'integer '2 '#f '#f))
        (let ((__tmp27345 (cons |gerbil/core/mop~MOP-5[1]#_g27346_| '())))
          (declare (not safe))
          (##unchecked-structure-set! __obj27042 __tmp27345 '3 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27042 '() '4 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27042 '#t '9 '#f '#f))
        (let ((__tmp27347 |gerbil/core/mop~MOP-5[1]#_g27348_|))
          (declare (not safe))
          (##unchecked-structure-set! __obj27042 __tmp27347 '12 '#f '#f))
        (let ((__tmp27349 |gerbil/core/mop~MOP-5[1]#_g27350_|))
          (declare (not safe))
          (##unchecked-structure-set! __obj27042 __tmp27349 '14 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27042 '() '15 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27042 '() '16 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27042 '() '17 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27042 '() '18 '#f '#f))
        __obj27042))
    (define |gerbil/core/mop~MOP-5[:0:]#:fixnum|
      (let ((__obj27043
             (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! __obj27043 'fixnum '1 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27043 'fixnum '2 '#f '#f))
        (let ((__tmp27351
               (cons |gerbil/core/mop~MOP-5[1]#_g27352_|
                     (cons |gerbil/core/mop~MOP-5[1]#_g27292_| '()))))
          (declare (not safe))
          (##unchecked-structure-set! __obj27043 __tmp27351 '3 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27043 '() '4 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27043 '#t '9 '#f '#f))
        (let ((__tmp27353 |gerbil/core/mop~MOP-5[1]#_g27354_|))
          (declare (not safe))
          (##unchecked-structure-set! __obj27043 __tmp27353 '12 '#f '#f))
        (let ((__tmp27355 |gerbil/core/mop~MOP-5[1]#_g27356_|))
          (declare (not safe))
          (##unchecked-structure-set! __obj27043 __tmp27355 '14 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27043 '() '15 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27043 '() '16 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27043 '() '17 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27043 '() '18 '#f '#f))
        __obj27043))
    (define |gerbil/core/mop~MOP-5[:0:]#:bignum|
      (let ((__obj27044
             (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! __obj27044 'bignum '1 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27044 'bignum '2 '#f '#f))
        (let ((__tmp27357 (cons |gerbil/core/mop~MOP-5[1]#_g27352_| '())))
          (declare (not safe))
          (##unchecked-structure-set! __obj27044 __tmp27357 '3 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27044 '() '4 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27044 '#t '9 '#f '#f))
        (let ((__tmp27358 |gerbil/core/mop~MOP-5[1]#_g27359_|))
          (declare (not safe))
          (##unchecked-structure-set! __obj27044 __tmp27358 '12 '#f '#f))
        (let ((__tmp27360 |gerbil/core/mop~MOP-5[1]#_g27361_|))
          (declare (not safe))
          (##unchecked-structure-set! __obj27044 __tmp27360 '14 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27044 '() '15 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27044 '() '16 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27044 '() '17 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27044 '() '18 '#f '#f))
        __obj27044))
    (define |gerbil/core/mop~MOP-5[:0:]#:ratnum|
      (let ((__obj27045
             (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! __obj27045 'ratnum '1 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27045 'ratnum '2 '#f '#f))
        (let ((__tmp27362 (cons |gerbil/core/mop~MOP-5[1]#_g27346_| '())))
          (declare (not safe))
          (##unchecked-structure-set! __obj27045 __tmp27362 '3 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27045 '() '4 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27045 '#t '9 '#f '#f))
        (let ((__tmp27363 |gerbil/core/mop~MOP-5[1]#_g27364_|))
          (declare (not safe))
          (##unchecked-structure-set! __obj27045 __tmp27363 '12 '#f '#f))
        (let ((__tmp27365 |gerbil/core/mop~MOP-5[1]#_g27366_|))
          (declare (not safe))
          (##unchecked-structure-set! __obj27045 __tmp27365 '14 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27045 '() '15 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27045 '() '16 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27045 '() '17 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27045 '() '18 '#f '#f))
        __obj27045))
    (define |gerbil/core/mop~MOP-5[:0:]#:flonum|
      (let ((__obj27046
             (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! __obj27046 'flonum '1 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27046 'flonum '2 '#f '#f))
        (let ((__tmp27367 (cons |gerbil/core/mop~MOP-5[1]#_g27346_| '())))
          (declare (not safe))
          (##unchecked-structure-set! __obj27046 __tmp27367 '3 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27046 '() '4 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27046 '#t '9 '#f '#f))
        (let ((__tmp27368 |gerbil/core/mop~MOP-5[1]#_g27369_|))
          (declare (not safe))
          (##unchecked-structure-set! __obj27046 __tmp27368 '12 '#f '#f))
        (let ((__tmp27370 |gerbil/core/mop~MOP-5[1]#_g27371_|))
          (declare (not safe))
          (##unchecked-structure-set! __obj27046 __tmp27370 '14 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27046 '() '15 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27046 '() '16 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27046 '() '17 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27046 '() '18 '#f '#f))
        __obj27046))
    (define |gerbil/core/mop~MOP-5[:0:]#:cpxnum|
      (let ((__obj27047
             (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! __obj27047 'cpxnum '1 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27047 'cpxnum '2 '#f '#f))
        (let ((__tmp27372 (cons |gerbil/core/mop~MOP-5[1]#_g27340_| '())))
          (declare (not safe))
          (##unchecked-structure-set! __obj27047 __tmp27372 '3 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27047 '() '4 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27047 '#t '9 '#f '#f))
        (let ((__tmp27373 |gerbil/core/mop~MOP-5[1]#_g27374_|))
          (declare (not safe))
          (##unchecked-structure-set! __obj27047 __tmp27373 '12 '#f '#f))
        (let ((__tmp27375 |gerbil/core/mop~MOP-5[1]#_g27376_|))
          (declare (not safe))
          (##unchecked-structure-set! __obj27047 __tmp27375 '14 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27047 '() '15 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27047 '() '16 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27047 '() '17 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27047 '() '18 '#f '#f))
        __obj27047))
    (define |gerbil/core/mop~MOP-5[:0:]#:symbolic|
      (let ((__obj27048
             (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! __obj27048 'symbolic '1 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27048 'symbolic '2 '#f '#f))
        (let ((__tmp27377 (cons |gerbil/core/mop~MOP-5[1]#_g27248_| '())))
          (declare (not safe))
          (##unchecked-structure-set! __obj27048 __tmp27377 '3 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27048 '() '4 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27048 '#t '9 '#f '#f))
        (let ((__tmp27378 |gerbil/core/mop~MOP-5[1]#_g27379_|))
          (declare (not safe))
          (##unchecked-structure-set! __obj27048 __tmp27378 '12 '#f '#f))
        (let ((__tmp27380 |gerbil/core/mop~MOP-5[1]#_g27381_|))
          (declare (not safe))
          (##unchecked-structure-set! __obj27048 __tmp27380 '14 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27048 '() '15 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27048 '() '16 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27048 '() '17 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27048 '() '18 '#f '#f))
        __obj27048))
    (define |gerbil/core/mop~MOP-5[:0:]#:symbol|
      (let ((__obj27049
             (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! __obj27049 'symbol '1 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27049 'symbol '2 '#f '#f))
        (let ((__tmp27382 (cons |gerbil/core/mop~MOP-5[1]#_g27383_| '())))
          (declare (not safe))
          (##unchecked-structure-set! __obj27049 __tmp27382 '3 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27049 '() '4 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27049 '#t '9 '#f '#f))
        (let ((__tmp27384 |gerbil/core/mop~MOP-5[1]#_g27385_|))
          (declare (not safe))
          (##unchecked-structure-set! __obj27049 __tmp27384 '12 '#f '#f))
        (let ((__tmp27386 |gerbil/core/mop~MOP-5[1]#_g27387_|))
          (declare (not safe))
          (##unchecked-structure-set! __obj27049 __tmp27386 '14 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27049 '() '15 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27049 '() '16 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27049 '() '17 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27049 '() '18 '#f '#f))
        __obj27049))
    (define |gerbil/core/mop~MOP-5[:0:]#:keyword|
      (let ((__obj27050
             (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! __obj27050 'keyword '1 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27050 'keyword '2 '#f '#f))
        (let ((__tmp27388 (cons |gerbil/core/mop~MOP-5[1]#_g27383_| '())))
          (declare (not safe))
          (##unchecked-structure-set! __obj27050 __tmp27388 '3 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27050 '() '4 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27050 '#t '9 '#f '#f))
        (let ((__tmp27389 |gerbil/core/mop~MOP-5[1]#_g27390_|))
          (declare (not safe))
          (##unchecked-structure-set! __obj27050 __tmp27389 '12 '#f '#f))
        (let ((__tmp27391 |gerbil/core/mop~MOP-5[1]#_g27392_|))
          (declare (not safe))
          (##unchecked-structure-set! __obj27050 __tmp27391 '14 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27050 '() '15 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27050 '() '16 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27050 '() '17 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27050 '() '18 '#f '#f))
        __obj27050))
    (define |gerbil/core/mop~MOP-5[:0:]#:list|
      (let ((__obj27051
             (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! __obj27051 'list '1 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27051 'list '2 '#f '#f))
        (let ((__tmp27393 (cons |gerbil/core/mop~MOP-5[1]#_g27248_| '())))
          (declare (not safe))
          (##unchecked-structure-set! __obj27051 __tmp27393 '3 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27051 '() '4 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27051 '#t '9 '#f '#f))
        (let ((__tmp27394 |gerbil/core/mop~MOP-5[1]#_g27395_|))
          (declare (not safe))
          (##unchecked-structure-set! __obj27051 __tmp27394 '12 '#f '#f))
        (let ((__tmp27396 |gerbil/core/mop~MOP-5[1]#_g27397_|))
          (declare (not safe))
          (##unchecked-structure-set! __obj27051 __tmp27396 '14 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27051 '() '15 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27051 '() '16 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27051 '() '17 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27051 '() '18 '#f '#f))
        __obj27051))
    (define |gerbil/core/mop~MOP-5[:0:]#:pair|
      (let ((__obj27052
             (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! __obj27052 'pair '1 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27052 'pair '2 '#f '#f))
        (let ((__tmp27398 (cons |gerbil/core/mop~MOP-5[1]#_g27399_| '())))
          (declare (not safe))
          (##unchecked-structure-set! __obj27052 __tmp27398 '3 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27052 '() '4 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27052 '#t '9 '#f '#f))
        (let ((__tmp27400 |gerbil/core/mop~MOP-5[1]#_g27401_|))
          (declare (not safe))
          (##unchecked-structure-set! __obj27052 __tmp27400 '12 '#f '#f))
        (let ((__tmp27402 |gerbil/core/mop~MOP-5[1]#_g27403_|))
          (declare (not safe))
          (##unchecked-structure-set! __obj27052 __tmp27402 '14 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27052 '() '15 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27052 '() '16 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27052 '() '17 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27052 '() '18 '#f '#f))
        __obj27052))
    (define |gerbil/core/mop~MOP-5[:0:]#:null|
      (let ((__obj27053
             (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! __obj27053 'null '1 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27053 'null '2 '#f '#f))
        (let ((__tmp27404
               (cons |gerbil/core/mop~MOP-5[1]#_g27399_|
                     (cons |gerbil/core/mop~MOP-5[1]#_g27308_| '()))))
          (declare (not safe))
          (##unchecked-structure-set! __obj27053 __tmp27404 '3 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27053 '() '4 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27053 '#t '9 '#f '#f))
        (let ((__tmp27405 |gerbil/core/mop~MOP-5[1]#_g27406_|))
          (declare (not safe))
          (##unchecked-structure-set! __obj27053 __tmp27405 '12 '#f '#f))
        (let ((__tmp27407 |gerbil/core/mop~MOP-5[1]#_g27408_|))
          (declare (not safe))
          (##unchecked-structure-set! __obj27053 __tmp27407 '14 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27053 '() '15 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27053 '() '16 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27053 '() '17 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27053 '() '18 '#f '#f))
        __obj27053))
    (define |gerbil/core/mop~MOP-5[:0:]#:sequence|
      (let ((__obj27054
             (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! __obj27054 'sequence '1 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27054 'sequence '2 '#f '#f))
        (let ((__tmp27409 (cons |gerbil/core/mop~MOP-5[1]#_g27248_| '())))
          (declare (not safe))
          (##unchecked-structure-set! __obj27054 __tmp27409 '3 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27054 '() '4 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27054 '#t '9 '#f '#f))
        (let ((__tmp27410 |gerbil/core/mop~MOP-5[1]#_g27411_|))
          (declare (not safe))
          (##unchecked-structure-set! __obj27054 __tmp27410 '12 '#f '#f))
        (let ((__tmp27412 |gerbil/core/mop~MOP-5[1]#_g27413_|))
          (declare (not safe))
          (##unchecked-structure-set! __obj27054 __tmp27412 '14 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27054 '() '15 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27054 '() '16 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27054 '() '17 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27054 '() '18 '#f '#f))
        __obj27054))
    (define |gerbil/core/mop~MOP-5[:0:]#:vector|
      (let ((__obj27055
             (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! __obj27055 'vector '1 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27055 'vector '2 '#f '#f))
        (let ((__tmp27414 (cons |gerbil/core/mop~MOP-5[1]#_g27415_| '())))
          (declare (not safe))
          (##unchecked-structure-set! __obj27055 __tmp27414 '3 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27055 '() '4 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27055 '#t '9 '#f '#f))
        (let ((__tmp27416 |gerbil/core/mop~MOP-5[1]#_g27417_|))
          (declare (not safe))
          (##unchecked-structure-set! __obj27055 __tmp27416 '12 '#f '#f))
        (let ((__tmp27418 |gerbil/core/mop~MOP-5[1]#_g27419_|))
          (declare (not safe))
          (##unchecked-structure-set! __obj27055 __tmp27418 '14 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27055 '() '15 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27055 '() '16 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27055 '() '17 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27055 '() '18 '#f '#f))
        __obj27055))
    (define |gerbil/core/mop~MOP-5[:0:]#:string|
      (let ((__obj27056
             (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! __obj27056 'string '1 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27056 'string '2 '#f '#f))
        (let ((__tmp27420 (cons |gerbil/core/mop~MOP-5[1]#_g27415_| '())))
          (declare (not safe))
          (##unchecked-structure-set! __obj27056 __tmp27420 '3 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27056 '() '4 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27056 '#t '9 '#f '#f))
        (let ((__tmp27421 |gerbil/core/mop~MOP-5[1]#_g27422_|))
          (declare (not safe))
          (##unchecked-structure-set! __obj27056 __tmp27421 '12 '#f '#f))
        (let ((__tmp27423 |gerbil/core/mop~MOP-5[1]#_g27424_|))
          (declare (not safe))
          (##unchecked-structure-set! __obj27056 __tmp27423 '14 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27056 '() '15 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27056 '() '16 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27056 '() '17 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27056 '() '18 '#f '#f))
        __obj27056))
    (define |gerbil/core/mop~MOP-5[:0:]#:hvector|
      (let ((__obj27057
             (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! __obj27057 'hvector '1 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27057 'hvector '2 '#f '#f))
        (let ((__tmp27425 (cons |gerbil/core/mop~MOP-5[1]#_g27415_| '())))
          (declare (not safe))
          (##unchecked-structure-set! __obj27057 __tmp27425 '3 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27057 '() '4 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27057 '#t '9 '#f '#f))
        (let ((__tmp27426 |gerbil/core/mop~MOP-5[1]#_g27427_|))
          (declare (not safe))
          (##unchecked-structure-set! __obj27057 __tmp27426 '12 '#f '#f))
        (let ((__tmp27428 |gerbil/core/mop~MOP-5[1]#_g27429_|))
          (declare (not safe))
          (##unchecked-structure-set! __obj27057 __tmp27428 '14 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27057 '() '15 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27057 '() '16 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27057 '() '17 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27057 '() '18 '#f '#f))
        __obj27057))
    (define |gerbil/core/mop~MOP-5[:0:]#:u8vector|
      (let ((__obj27058
             (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! __obj27058 'u8vector '1 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27058 'u8vector '2 '#f '#f))
        (let ((__tmp27430 (cons |gerbil/core/mop~MOP-5[1]#_g27431_| '())))
          (declare (not safe))
          (##unchecked-structure-set! __obj27058 __tmp27430 '3 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27058 '() '4 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27058 '#t '9 '#f '#f))
        (let ((__tmp27432 |gerbil/core/mop~MOP-5[1]#_g27433_|))
          (declare (not safe))
          (##unchecked-structure-set! __obj27058 __tmp27432 '12 '#f '#f))
        (let ((__tmp27434 |gerbil/core/mop~MOP-5[1]#_g27435_|))
          (declare (not safe))
          (##unchecked-structure-set! __obj27058 __tmp27434 '14 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27058 '() '15 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27058 '() '16 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27058 '() '17 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27058 '() '18 '#f '#f))
        __obj27058))
    (define |gerbil/core/mop~MOP-5[:0:]#:s8vector|
      (let ((__obj27059
             (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! __obj27059 's8vector '1 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27059 's8vector '2 '#f '#f))
        (let ((__tmp27436 (cons |gerbil/core/mop~MOP-5[1]#_g27431_| '())))
          (declare (not safe))
          (##unchecked-structure-set! __obj27059 __tmp27436 '3 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27059 '() '4 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27059 '#t '9 '#f '#f))
        (let ((__tmp27437 |gerbil/core/mop~MOP-5[1]#_g27438_|))
          (declare (not safe))
          (##unchecked-structure-set! __obj27059 __tmp27437 '12 '#f '#f))
        (let ((__tmp27439 |gerbil/core/mop~MOP-5[1]#_g27440_|))
          (declare (not safe))
          (##unchecked-structure-set! __obj27059 __tmp27439 '14 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27059 '() '15 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27059 '() '16 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27059 '() '17 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27059 '() '18 '#f '#f))
        __obj27059))
    (define |gerbil/core/mop~MOP-5[:0:]#:u16vector|
      (let ((__obj27060
             (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! __obj27060 'u16vector '1 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27060 'u16vector '2 '#f '#f))
        (let ((__tmp27441 (cons |gerbil/core/mop~MOP-5[1]#_g27431_| '())))
          (declare (not safe))
          (##unchecked-structure-set! __obj27060 __tmp27441 '3 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27060 '() '4 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27060 '#t '9 '#f '#f))
        (let ((__tmp27442 |gerbil/core/mop~MOP-5[1]#_g27443_|))
          (declare (not safe))
          (##unchecked-structure-set! __obj27060 __tmp27442 '12 '#f '#f))
        (let ((__tmp27444 |gerbil/core/mop~MOP-5[1]#_g27445_|))
          (declare (not safe))
          (##unchecked-structure-set! __obj27060 __tmp27444 '14 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27060 '() '15 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27060 '() '16 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27060 '() '17 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27060 '() '18 '#f '#f))
        __obj27060))
    (define |gerbil/core/mop~MOP-5[:0:]#:s16vector|
      (let ((__obj27061
             (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! __obj27061 's16vector '1 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27061 's16vector '2 '#f '#f))
        (let ((__tmp27446 (cons |gerbil/core/mop~MOP-5[1]#_g27431_| '())))
          (declare (not safe))
          (##unchecked-structure-set! __obj27061 __tmp27446 '3 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27061 '() '4 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27061 '#t '9 '#f '#f))
        (let ((__tmp27447 |gerbil/core/mop~MOP-5[1]#_g27448_|))
          (declare (not safe))
          (##unchecked-structure-set! __obj27061 __tmp27447 '12 '#f '#f))
        (let ((__tmp27449 |gerbil/core/mop~MOP-5[1]#_g27450_|))
          (declare (not safe))
          (##unchecked-structure-set! __obj27061 __tmp27449 '14 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27061 '() '15 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27061 '() '16 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27061 '() '17 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27061 '() '18 '#f '#f))
        __obj27061))
    (define |gerbil/core/mop~MOP-5[:0:]#:u32vector|
      (let ((__obj27062
             (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! __obj27062 'u32vector '1 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27062 'u32vector '2 '#f '#f))
        (let ((__tmp27451 (cons |gerbil/core/mop~MOP-5[1]#_g27431_| '())))
          (declare (not safe))
          (##unchecked-structure-set! __obj27062 __tmp27451 '3 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27062 '() '4 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27062 '#t '9 '#f '#f))
        (let ((__tmp27452 |gerbil/core/mop~MOP-5[1]#_g27453_|))
          (declare (not safe))
          (##unchecked-structure-set! __obj27062 __tmp27452 '12 '#f '#f))
        (let ((__tmp27454 |gerbil/core/mop~MOP-5[1]#_g27455_|))
          (declare (not safe))
          (##unchecked-structure-set! __obj27062 __tmp27454 '14 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27062 '() '15 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27062 '() '16 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27062 '() '17 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27062 '() '18 '#f '#f))
        __obj27062))
    (define |gerbil/core/mop~MOP-5[:0:]#:s32vector|
      (let ((__obj27063
             (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! __obj27063 's32vector '1 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27063 's32vector '2 '#f '#f))
        (let ((__tmp27456 (cons |gerbil/core/mop~MOP-5[1]#_g27431_| '())))
          (declare (not safe))
          (##unchecked-structure-set! __obj27063 __tmp27456 '3 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27063 '() '4 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27063 '#t '9 '#f '#f))
        (let ((__tmp27457 |gerbil/core/mop~MOP-5[1]#_g27458_|))
          (declare (not safe))
          (##unchecked-structure-set! __obj27063 __tmp27457 '12 '#f '#f))
        (let ((__tmp27459 |gerbil/core/mop~MOP-5[1]#_g27460_|))
          (declare (not safe))
          (##unchecked-structure-set! __obj27063 __tmp27459 '14 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27063 '() '15 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27063 '() '16 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27063 '() '17 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27063 '() '18 '#f '#f))
        __obj27063))
    (define |gerbil/core/mop~MOP-5[:0:]#:u64vector|
      (let ((__obj27064
             (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! __obj27064 'u64vector '1 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27064 'u64vector '2 '#f '#f))
        (let ((__tmp27461 (cons |gerbil/core/mop~MOP-5[1]#_g27431_| '())))
          (declare (not safe))
          (##unchecked-structure-set! __obj27064 __tmp27461 '3 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27064 '() '4 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27064 '#t '9 '#f '#f))
        (let ((__tmp27462 |gerbil/core/mop~MOP-5[1]#_g27463_|))
          (declare (not safe))
          (##unchecked-structure-set! __obj27064 __tmp27462 '12 '#f '#f))
        (let ((__tmp27464 |gerbil/core/mop~MOP-5[1]#_g27465_|))
          (declare (not safe))
          (##unchecked-structure-set! __obj27064 __tmp27464 '14 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27064 '() '15 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27064 '() '16 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27064 '() '17 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27064 '() '18 '#f '#f))
        __obj27064))
    (define |gerbil/core/mop~MOP-5[:0:]#:s64vector|
      (let ((__obj27065
             (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! __obj27065 's64vector '1 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27065 's64vector '2 '#f '#f))
        (let ((__tmp27466 (cons |gerbil/core/mop~MOP-5[1]#_g27431_| '())))
          (declare (not safe))
          (##unchecked-structure-set! __obj27065 __tmp27466 '3 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27065 '() '4 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27065 '#t '9 '#f '#f))
        (let ((__tmp27467 |gerbil/core/mop~MOP-5[1]#_g27468_|))
          (declare (not safe))
          (##unchecked-structure-set! __obj27065 __tmp27467 '12 '#f '#f))
        (let ((__tmp27469 |gerbil/core/mop~MOP-5[1]#_g27470_|))
          (declare (not safe))
          (##unchecked-structure-set! __obj27065 __tmp27469 '14 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27065 '() '15 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27065 '() '16 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27065 '() '17 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27065 '() '18 '#f '#f))
        __obj27065))
    (define |gerbil/core/mop~MOP-5[:0:]#:f32vector|
      (let ((__obj27066
             (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! __obj27066 'f32vector '1 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27066 'f32vector '2 '#f '#f))
        (let ((__tmp27471 (cons |gerbil/core/mop~MOP-5[1]#_g27431_| '())))
          (declare (not safe))
          (##unchecked-structure-set! __obj27066 __tmp27471 '3 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27066 '() '4 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27066 '#t '9 '#f '#f))
        (let ((__tmp27472 |gerbil/core/mop~MOP-5[1]#_g27473_|))
          (declare (not safe))
          (##unchecked-structure-set! __obj27066 __tmp27472 '12 '#f '#f))
        (let ((__tmp27474 |gerbil/core/mop~MOP-5[1]#_g27475_|))
          (declare (not safe))
          (##unchecked-structure-set! __obj27066 __tmp27474 '14 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27066 '() '15 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27066 '() '16 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27066 '() '17 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27066 '() '18 '#f '#f))
        __obj27066))
    (define |gerbil/core/mop~MOP-5[:0:]#:f64vector|
      (let ((__obj27067
             (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! __obj27067 'f64vector '1 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27067 'f64vector '2 '#f '#f))
        (let ((__tmp27476 (cons |gerbil/core/mop~MOP-5[1]#_g27431_| '())))
          (declare (not safe))
          (##unchecked-structure-set! __obj27067 __tmp27476 '3 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27067 '() '4 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27067 '#t '9 '#f '#f))
        (let ((__tmp27477 |gerbil/core/mop~MOP-5[1]#_g27478_|))
          (declare (not safe))
          (##unchecked-structure-set! __obj27067 __tmp27477 '12 '#f '#f))
        (let ((__tmp27479 |gerbil/core/mop~MOP-5[1]#_g27480_|))
          (declare (not safe))
          (##unchecked-structure-set! __obj27067 __tmp27479 '14 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27067 '() '15 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27067 '() '16 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27067 '() '17 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27067 '() '18 '#f '#f))
        __obj27067))
    (define |gerbil/core/mop~MOP-5[:0:]#:values|
      (let ((__obj27068
             (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! __obj27068 'values '1 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27068 'values '2 '#f '#f))
        (let ((__tmp27481 (cons |gerbil/core/mop~MOP-5[1]#_g27248_| '())))
          (declare (not safe))
          (##unchecked-structure-set! __obj27068 __tmp27481 '3 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27068 '() '4 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27068 '#t '9 '#f '#f))
        (let ((__tmp27482 |gerbil/core/mop~MOP-5[1]#_g27483_|))
          (declare (not safe))
          (##unchecked-structure-set! __obj27068 __tmp27482 '12 '#f '#f))
        (let ((__tmp27484 |gerbil/core/mop~MOP-5[1]#_g27485_|))
          (declare (not safe))
          (##unchecked-structure-set! __obj27068 __tmp27484 '14 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27068 '() '15 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27068 '() '16 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27068 '() '17 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27068 '() '18 '#f '#f))
        __obj27068))
    (define |gerbil/core/mop~MOP-5[:0:]#:box|
      (let ((__obj27069
             (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! __obj27069 'box '1 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27069 'box '2 '#f '#f))
        (let ((__tmp27486 (cons |gerbil/core/mop~MOP-5[1]#_g27248_| '())))
          (declare (not safe))
          (##unchecked-structure-set! __obj27069 __tmp27486 '3 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27069 '() '4 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27069 '#t '9 '#f '#f))
        (let ((__tmp27487 |gerbil/core/mop~MOP-5[1]#_g27488_|))
          (declare (not safe))
          (##unchecked-structure-set! __obj27069 __tmp27487 '12 '#f '#f))
        (let ((__tmp27489 |gerbil/core/mop~MOP-5[1]#_g27490_|))
          (declare (not safe))
          (##unchecked-structure-set! __obj27069 __tmp27489 '14 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27069 '() '15 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27069 '() '16 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27069 '() '17 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27069 '() '18 '#f '#f))
        __obj27069))
    (define |gerbil/core/mop~MOP-5[:0:]#:frame|
      (let ((__obj27070
             (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! __obj27070 'frame '1 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27070 'frame '2 '#f '#f))
        (let ((__tmp27491 (cons |gerbil/core/mop~MOP-5[1]#_g27248_| '())))
          (declare (not safe))
          (##unchecked-structure-set! __obj27070 __tmp27491 '3 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27070 '() '4 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27070 '#t '9 '#f '#f))
        (let ((__tmp27492 |gerbil/core/mop~MOP-5[1]#_g27493_|))
          (declare (not safe))
          (##unchecked-structure-set! __obj27070 __tmp27492 '12 '#f '#f))
        (let ((__tmp27494 |gerbil/core/mop~MOP-5[1]#_g27495_|))
          (declare (not safe))
          (##unchecked-structure-set! __obj27070 __tmp27494 '14 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27070 '() '15 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27070 '() '16 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27070 '() '17 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27070 '() '18 '#f '#f))
        __obj27070))
    (define |gerbil/core/mop~MOP-5[:0:]#:continuation|
      (let ((__obj27071
             (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! __obj27071 'continuation '1 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27071 'continuation '2 '#f '#f))
        (let ((__tmp27496 (cons |gerbil/core/mop~MOP-5[1]#_g27248_| '())))
          (declare (not safe))
          (##unchecked-structure-set! __obj27071 __tmp27496 '3 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27071 '() '4 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27071 '#t '9 '#f '#f))
        (let ((__tmp27497 |gerbil/core/mop~MOP-5[1]#_g27498_|))
          (declare (not safe))
          (##unchecked-structure-set! __obj27071 __tmp27497 '12 '#f '#f))
        (let ((__tmp27499 |gerbil/core/mop~MOP-5[1]#_g27500_|))
          (declare (not safe))
          (##unchecked-structure-set! __obj27071 __tmp27499 '14 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27071 '() '15 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27071 '() '16 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27071 '() '17 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27071 '() '18 '#f '#f))
        __obj27071))
    (define |gerbil/core/mop~MOP-5[:0:]#:promise|
      (let ((__obj27072
             (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! __obj27072 'promise '1 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27072 'promise '2 '#f '#f))
        (let ((__tmp27501 (cons |gerbil/core/mop~MOP-5[1]#_g27248_| '())))
          (declare (not safe))
          (##unchecked-structure-set! __obj27072 __tmp27501 '3 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27072 '() '4 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27072 '#t '9 '#f '#f))
        (let ((__tmp27502 |gerbil/core/mop~MOP-5[1]#_g27503_|))
          (declare (not safe))
          (##unchecked-structure-set! __obj27072 __tmp27502 '12 '#f '#f))
        (let ((__tmp27504 |gerbil/core/mop~MOP-5[1]#_g27505_|))
          (declare (not safe))
          (##unchecked-structure-set! __obj27072 __tmp27504 '14 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27072 '() '15 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27072 '() '16 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27072 '() '17 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27072 '() '18 '#f '#f))
        __obj27072))
    (define |gerbil/core/mop~MOP-5[:0:]#:weak|
      (let ((__obj27073
             (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! __obj27073 'weak '1 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27073 'weak '2 '#f '#f))
        (let ((__tmp27506 (cons |gerbil/core/mop~MOP-5[1]#_g27248_| '())))
          (declare (not safe))
          (##unchecked-structure-set! __obj27073 __tmp27506 '3 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27073 '() '4 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27073 '#t '9 '#f '#f))
        (let ((__tmp27507 |gerbil/core/mop~MOP-5[1]#_g27508_|))
          (declare (not safe))
          (##unchecked-structure-set! __obj27073 __tmp27507 '12 '#f '#f))
        (let ((__tmp27509 |gerbil/core/mop~MOP-5[1]#_g27510_|))
          (declare (not safe))
          (##unchecked-structure-set! __obj27073 __tmp27509 '14 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27073 '() '15 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27073 '() '16 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27073 '() '17 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27073 '() '18 '#f '#f))
        __obj27073))
    (define |gerbil/core/mop~MOP-5[:0:]#:foreign|
      (let ((__obj27074
             (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! __obj27074 'foreign '1 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27074 'foreign '2 '#f '#f))
        (let ((__tmp27511 (cons |gerbil/core/mop~MOP-5[1]#_g27248_| '())))
          (declare (not safe))
          (##unchecked-structure-set! __obj27074 __tmp27511 '3 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27074 '() '4 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27074 '#t '9 '#f '#f))
        (let ((__tmp27512 |gerbil/core/mop~MOP-5[1]#_g27513_|))
          (declare (not safe))
          (##unchecked-structure-set! __obj27074 __tmp27512 '12 '#f '#f))
        (let ((__tmp27514 |gerbil/core/mop~MOP-5[1]#_g27515_|))
          (declare (not safe))
          (##unchecked-structure-set! __obj27074 __tmp27514 '14 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27074 '() '15 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27074 '() '16 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27074 '() '17 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27074 '() '18 '#f '#f))
        __obj27074))
    (define |gerbil/core/mop~MOP-5[:0:]#:procedure|
      (let ((__obj27075
             (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! __obj27075 'procedure '1 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27075 'procedure '2 '#f '#f))
        (let ((__tmp27516 (cons |gerbil/core/mop~MOP-5[1]#_g27248_| '())))
          (declare (not safe))
          (##unchecked-structure-set! __obj27075 __tmp27516 '3 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27075 '() '4 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27075 '#t '9 '#f '#f))
        (let ((__tmp27517 |gerbil/core/mop~MOP-5[1]#_g27518_|))
          (declare (not safe))
          (##unchecked-structure-set! __obj27075 __tmp27517 '12 '#f '#f))
        (let ((__tmp27519 |gerbil/core/mop~MOP-5[1]#_g27520_|))
          (declare (not safe))
          (##unchecked-structure-set! __obj27075 __tmp27519 '14 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27075 '() '15 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27075 '() '16 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27075 '() '17 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27075 '() '18 '#f '#f))
        __obj27075))
    (define |gerbil/core/mop~MOP-5[:0:]#:time|
      (let ((__obj27076
             (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! __obj27076 'time::t '1 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27076 'time '2 '#f '#f))
        (let ((__tmp27521 (cons |gerbil/core/mop~MOP-5[1]#_g27248_| '())))
          (declare (not safe))
          (##unchecked-structure-set! __obj27076 __tmp27521 '3 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27076 '() '4 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27076 '#t '9 '#f '#f))
        (let ((__tmp27522 |gerbil/core/mop~MOP-5[1]#_g27523_|))
          (declare (not safe))
          (##unchecked-structure-set! __obj27076 __tmp27522 '12 '#f '#f))
        (let ((__tmp27524 |gerbil/core/mop~MOP-5[1]#_g27525_|))
          (declare (not safe))
          (##unchecked-structure-set! __obj27076 __tmp27524 '14 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27076 '() '15 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27076 '() '16 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27076 '() '17 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27076 '() '18 '#f '#f))
        __obj27076))
    (define |gerbil/core/mop~MOP-5[:0:]#:thread|
      (let ((__obj27077
             (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! __obj27077 'thread::t '1 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27077 'thread '2 '#f '#f))
        (let ((__tmp27526 (cons |gerbil/core/mop~MOP-5[1]#_g27248_| '())))
          (declare (not safe))
          (##unchecked-structure-set! __obj27077 __tmp27526 '3 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27077 '() '4 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27077 '#t '9 '#f '#f))
        (let ((__tmp27527 |gerbil/core/mop~MOP-5[1]#_g27528_|))
          (declare (not safe))
          (##unchecked-structure-set! __obj27077 __tmp27527 '12 '#f '#f))
        (let ((__tmp27529 |gerbil/core/mop~MOP-5[1]#_g27530_|))
          (declare (not safe))
          (##unchecked-structure-set! __obj27077 __tmp27529 '14 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27077 '() '15 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27077 '() '16 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27077 '() '17 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27077 '() '18 '#f '#f))
        __obj27077))
    (define |gerbil/core/mop~MOP-5[:0:]#:thread-group|
      (let ((__obj27078
             (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! __obj27078 'thread-group::t '1 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27078 'thread-group '2 '#f '#f))
        (let ((__tmp27531 (cons |gerbil/core/mop~MOP-5[1]#_g27248_| '())))
          (declare (not safe))
          (##unchecked-structure-set! __obj27078 __tmp27531 '3 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27078 '() '4 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27078 '#t '9 '#f '#f))
        (let ((__tmp27532 |gerbil/core/mop~MOP-5[1]#_g27533_|))
          (declare (not safe))
          (##unchecked-structure-set! __obj27078 __tmp27532 '12 '#f '#f))
        (let ((__tmp27534 |gerbil/core/mop~MOP-5[1]#_g27535_|))
          (declare (not safe))
          (##unchecked-structure-set! __obj27078 __tmp27534 '14 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27078 '() '15 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27078 '() '16 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27078 '() '17 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27078 '() '18 '#f '#f))
        __obj27078))
    (define |gerbil/core/mop~MOP-5[:0:]#:mutex|
      (let ((__obj27079
             (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! __obj27079 'mutex::t '1 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27079 'mutex '2 '#f '#f))
        (let ((__tmp27536 (cons |gerbil/core/mop~MOP-5[1]#_g27248_| '())))
          (declare (not safe))
          (##unchecked-structure-set! __obj27079 __tmp27536 '3 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27079 '() '4 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27079 '#t '9 '#f '#f))
        (let ((__tmp27537 |gerbil/core/mop~MOP-5[1]#_g27538_|))
          (declare (not safe))
          (##unchecked-structure-set! __obj27079 __tmp27537 '12 '#f '#f))
        (let ((__tmp27539 |gerbil/core/mop~MOP-5[1]#_g27540_|))
          (declare (not safe))
          (##unchecked-structure-set! __obj27079 __tmp27539 '14 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27079 '() '15 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27079 '() '16 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27079 '() '17 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27079 '() '18 '#f '#f))
        __obj27079))
    (define |gerbil/core/mop~MOP-5[:0:]#:condvar|
      (let ((__obj27080
             (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!
           __obj27080
           'condition-variable::t
           '1
           '#f
           '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set!
           __obj27080
           'condition-variable
           '2
           '#f
           '#f))
        (let ((__tmp27541 (cons |gerbil/core/mop~MOP-5[1]#_g27248_| '())))
          (declare (not safe))
          (##unchecked-structure-set! __obj27080 __tmp27541 '3 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27080 '() '4 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27080 '#t '9 '#f '#f))
        (let ((__tmp27542 |gerbil/core/mop~MOP-5[1]#_g27543_|))
          (declare (not safe))
          (##unchecked-structure-set! __obj27080 __tmp27542 '12 '#f '#f))
        (let ((__tmp27544 |gerbil/core/mop~MOP-5[1]#_g27545_|))
          (declare (not safe))
          (##unchecked-structure-set! __obj27080 __tmp27544 '14 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27080 '() '15 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27080 '() '16 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27080 '() '17 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27080 '() '18 '#f '#f))
        __obj27080))
    (define |gerbil/core/mop~MOP-5[:0:]#:port|
      (let ((__obj27081
             (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! __obj27081 'port::t '1 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27081 'port '2 '#f '#f))
        (let ((__tmp27546 (cons |gerbil/core/mop~MOP-5[1]#_g27248_| '())))
          (declare (not safe))
          (##unchecked-structure-set! __obj27081 __tmp27546 '3 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27081 '() '4 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27081 '#t '9 '#f '#f))
        (let ((__tmp27547 |gerbil/core/mop~MOP-5[1]#_g27548_|))
          (declare (not safe))
          (##unchecked-structure-set! __obj27081 __tmp27547 '12 '#f '#f))
        (let ((__tmp27549 |gerbil/core/mop~MOP-5[1]#_g27550_|))
          (declare (not safe))
          (##unchecked-structure-set! __obj27081 __tmp27549 '14 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27081 '() '15 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27081 '() '16 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27081 '() '17 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27081 '() '18 '#f '#f))
        __obj27081))
    (define |gerbil/core/mop~MOP-5[:0:]#:object-port|
      (let ((__obj27082
             (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! __obj27082 'object-port::t '1 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27082 'object-port '2 '#f '#f))
        (let ((__tmp27551 (cons |gerbil/core/mop~MOP-5[1]#_g27552_| '())))
          (declare (not safe))
          (##unchecked-structure-set! __obj27082 __tmp27551 '3 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27082 '() '4 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27082 '#t '9 '#f '#f))
        (let ((__tmp27553 |gerbil/core/mop~MOP-5[1]#_g27554_|))
          (declare (not safe))
          (##unchecked-structure-set! __obj27082 __tmp27553 '12 '#f '#f))
        (let ((__tmp27555 |gerbil/core/mop~MOP-5[1]#_g27556_|))
          (declare (not safe))
          (##unchecked-structure-set! __obj27082 __tmp27555 '14 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27082 '() '15 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27082 '() '16 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27082 '() '17 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27082 '() '18 '#f '#f))
        __obj27082))
    (define |gerbil/core/mop~MOP-5[:0:]#:character-port|
      (let ((__obj27083
             (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!
           __obj27083
           'character-port::t
           '1
           '#f
           '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27083 'character-port '2 '#f '#f))
        (let ((__tmp27557 (cons |gerbil/core/mop~MOP-5[1]#_g27558_| '())))
          (declare (not safe))
          (##unchecked-structure-set! __obj27083 __tmp27557 '3 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27083 '() '4 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27083 '#t '9 '#f '#f))
        (let ((__tmp27559 |gerbil/core/mop~MOP-5[1]#_g27560_|))
          (declare (not safe))
          (##unchecked-structure-set! __obj27083 __tmp27559 '12 '#f '#f))
        (let ((__tmp27561 |gerbil/core/mop~MOP-5[1]#_g27562_|))
          (declare (not safe))
          (##unchecked-structure-set! __obj27083 __tmp27561 '14 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27083 '() '15 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27083 '() '16 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27083 '() '17 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27083 '() '18 '#f '#f))
        __obj27083))
    (define |gerbil/core/mop~MOP-5[:0:]#:byte-port|
      (let ((__obj27084
             (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! __obj27084 'byte-port::t '1 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27084 'byte-port '2 '#f '#f))
        (let ((__tmp27563 (cons |gerbil/core/mop~MOP-5[1]#_g27564_| '())))
          (declare (not safe))
          (##unchecked-structure-set! __obj27084 __tmp27563 '3 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27084 '() '4 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27084 '#t '9 '#f '#f))
        (let ((__tmp27565 |gerbil/core/mop~MOP-5[1]#_g27566_|))
          (declare (not safe))
          (##unchecked-structure-set! __obj27084 __tmp27565 '12 '#f '#f))
        (let ((__tmp27567 |gerbil/core/mop~MOP-5[1]#_g27568_|))
          (declare (not safe))
          (##unchecked-structure-set! __obj27084 __tmp27567 '14 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27084 '() '15 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27084 '() '16 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27084 '() '17 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27084 '() '18 '#f '#f))
        __obj27084))
    (define |gerbil/core/mop~MOP-5[:0:]#:device-port|
      (let ((__obj27085
             (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! __obj27085 'device-port::t '1 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27085 'device-port '2 '#f '#f))
        (let ((__tmp27569 (cons |gerbil/core/mop~MOP-5[1]#_g27570_| '())))
          (declare (not safe))
          (##unchecked-structure-set! __obj27085 __tmp27569 '3 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27085 '() '4 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27085 '#t '9 '#f '#f))
        (let ((__tmp27571 |gerbil/core/mop~MOP-5[1]#_g27572_|))
          (declare (not safe))
          (##unchecked-structure-set! __obj27085 __tmp27571 '12 '#f '#f))
        (let ((__tmp27573 |gerbil/core/mop~MOP-5[1]#_g27574_|))
          (declare (not safe))
          (##unchecked-structure-set! __obj27085 __tmp27573 '14 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27085 '() '15 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27085 '() '16 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27085 '() '17 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27085 '() '18 '#f '#f))
        __obj27085))
    (define |gerbil/core/mop~MOP-5[:0:]#:vector-port|
      (let ((__obj27086
             (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! __obj27086 'vector-port::t '1 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27086 'vector-port '2 '#f '#f))
        (let ((__tmp27575 (cons |gerbil/core/mop~MOP-5[1]#_g27558_| '())))
          (declare (not safe))
          (##unchecked-structure-set! __obj27086 __tmp27575 '3 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27086 '() '4 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27086 '#t '9 '#f '#f))
        (let ((__tmp27576 |gerbil/core/mop~MOP-5[1]#_g27577_|))
          (declare (not safe))
          (##unchecked-structure-set! __obj27086 __tmp27576 '12 '#f '#f))
        (let ((__tmp27578 |gerbil/core/mop~MOP-5[1]#_g27579_|))
          (declare (not safe))
          (##unchecked-structure-set! __obj27086 __tmp27578 '14 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27086 '() '15 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27086 '() '16 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27086 '() '17 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27086 '() '18 '#f '#f))
        __obj27086))
    (define |gerbil/core/mop~MOP-5[:0:]#:string-port|
      (let ((__obj27087
             (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! __obj27087 'string-port::t '1 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27087 'string-port '2 '#f '#f))
        (let ((__tmp27580 (cons |gerbil/core/mop~MOP-5[1]#_g27564_| '())))
          (declare (not safe))
          (##unchecked-structure-set! __obj27087 __tmp27580 '3 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27087 '() '4 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27087 '#t '9 '#f '#f))
        (let ((__tmp27581 |gerbil/core/mop~MOP-5[1]#_g27582_|))
          (declare (not safe))
          (##unchecked-structure-set! __obj27087 __tmp27581 '12 '#f '#f))
        (let ((__tmp27583 |gerbil/core/mop~MOP-5[1]#_g27584_|))
          (declare (not safe))
          (##unchecked-structure-set! __obj27087 __tmp27583 '14 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27087 '() '15 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27087 '() '16 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27087 '() '17 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27087 '() '18 '#f '#f))
        __obj27087))
    (define |gerbil/core/mop~MOP-5[:0:]#:u8vector-port|
      (let ((__obj27088
             (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! __obj27088 'u8vector-port::t '1 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27088 'u8vector-port '2 '#f '#f))
        (let ((__tmp27585 (cons |gerbil/core/mop~MOP-5[1]#_g27570_| '())))
          (declare (not safe))
          (##unchecked-structure-set! __obj27088 __tmp27585 '3 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27088 '() '4 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27088 '#t '9 '#f '#f))
        (let ((__tmp27586 |gerbil/core/mop~MOP-5[1]#_g27587_|))
          (declare (not safe))
          (##unchecked-structure-set! __obj27088 __tmp27586 '12 '#f '#f))
        (let ((__tmp27588 |gerbil/core/mop~MOP-5[1]#_g27589_|))
          (declare (not safe))
          (##unchecked-structure-set! __obj27088 __tmp27588 '14 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27088 '() '15 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27088 '() '16 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27088 '() '17 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27088 '() '18 '#f '#f))
        __obj27088))
    (define |gerbil/core/mop~MOP-5[:0:]#:raw-device-port|
      (let ((__obj27089
             (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!
           __obj27089
           'raw-device-port::t
           '1
           '#f
           '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27089 'raw-device-port '2 '#f '#f))
        (let ((__tmp27590 (cons |gerbil/core/mop~MOP-5[1]#_g27552_| '())))
          (declare (not safe))
          (##unchecked-structure-set! __obj27089 __tmp27590 '3 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27089 '() '4 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27089 '#t '9 '#f '#f))
        (let ((__tmp27591 |gerbil/core/mop~MOP-5[1]#_g27592_|))
          (declare (not safe))
          (##unchecked-structure-set! __obj27089 __tmp27591 '12 '#f '#f))
        (let ((__tmp27593 |gerbil/core/mop~MOP-5[1]#_g27594_|))
          (declare (not safe))
          (##unchecked-structure-set! __obj27089 __tmp27593 '14 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27089 '() '15 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27089 '() '16 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27089 '() '17 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27089 '() '18 '#f '#f))
        __obj27089))
    (define |gerbil/core/mop~MOP-5[:0:]#:tcp-server-port|
      (let ((__obj27090
             (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!
           __obj27090
           'tcp-server-port::t
           '1
           '#f
           '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27090 'tcp-server-port '2 '#f '#f))
        (let ((__tmp27595 (cons |gerbil/core/mop~MOP-5[1]#_g27558_| '())))
          (declare (not safe))
          (##unchecked-structure-set! __obj27090 __tmp27595 '3 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27090 '() '4 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27090 '#t '9 '#f '#f))
        (let ((__tmp27596 |gerbil/core/mop~MOP-5[1]#_g27597_|))
          (declare (not safe))
          (##unchecked-structure-set! __obj27090 __tmp27596 '12 '#f '#f))
        (let ((__tmp27598 |gerbil/core/mop~MOP-5[1]#_g27599_|))
          (declare (not safe))
          (##unchecked-structure-set! __obj27090 __tmp27598 '14 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27090 '() '15 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27090 '() '16 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27090 '() '17 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27090 '() '18 '#f '#f))
        __obj27090))
    (define |gerbil/core/mop~MOP-5[:0:]#:udp-port|
      (let ((__obj27091
             (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! __obj27091 'udp-port::t '1 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27091 'udp-port '2 '#f '#f))
        (let ((__tmp27600 (cons |gerbil/core/mop~MOP-5[1]#_g27558_| '())))
          (declare (not safe))
          (##unchecked-structure-set! __obj27091 __tmp27600 '3 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27091 '() '4 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27091 '#t '9 '#f '#f))
        (let ((__tmp27601 |gerbil/core/mop~MOP-5[1]#_g27602_|))
          (declare (not safe))
          (##unchecked-structure-set! __obj27091 __tmp27601 '12 '#f '#f))
        (let ((__tmp27603 |gerbil/core/mop~MOP-5[1]#_g27604_|))
          (declare (not safe))
          (##unchecked-structure-set! __obj27091 __tmp27603 '14 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27091 '() '15 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27091 '() '16 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27091 '() '17 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27091 '() '18 '#f '#f))
        __obj27091))
    (define |gerbil/core/mop~MOP-5[:0:]#:directory-port|
      (let ((__obj27092
             (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!
           __obj27092
           'directory-port::t
           '1
           '#f
           '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27092 'directory-port '2 '#f '#f))
        (let ((__tmp27605 (cons |gerbil/core/mop~MOP-5[1]#_g27558_| '())))
          (declare (not safe))
          (##unchecked-structure-set! __obj27092 __tmp27605 '3 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27092 '() '4 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27092 '#t '9 '#f '#f))
        (let ((__tmp27606 |gerbil/core/mop~MOP-5[1]#_g27607_|))
          (declare (not safe))
          (##unchecked-structure-set! __obj27092 __tmp27606 '12 '#f '#f))
        (let ((__tmp27608 |gerbil/core/mop~MOP-5[1]#_g27609_|))
          (declare (not safe))
          (##unchecked-structure-set! __obj27092 __tmp27608 '14 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27092 '() '15 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27092 '() '16 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27092 '() '17 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27092 '() '18 '#f '#f))
        __obj27092))
    (define |gerbil/core/mop~MOP-5[:0:]#:event-queue-port|
      (let ((__obj27093
             (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!
           __obj27093
           'event-queue-port::t
           '1
           '#f
           '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27093 'event-queue-port '2 '#f '#f))
        (let ((__tmp27610 (cons |gerbil/core/mop~MOP-5[1]#_g27558_| '())))
          (declare (not safe))
          (##unchecked-structure-set! __obj27093 __tmp27610 '3 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27093 '() '4 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27093 '#t '9 '#f '#f))
        (let ((__tmp27611 |gerbil/core/mop~MOP-5[1]#_g27612_|))
          (declare (not safe))
          (##unchecked-structure-set! __obj27093 __tmp27611 '12 '#f '#f))
        (let ((__tmp27613 |gerbil/core/mop~MOP-5[1]#_g27614_|))
          (declare (not safe))
          (##unchecked-structure-set! __obj27093 __tmp27613 '14 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27093 '() '15 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27093 '() '16 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27093 '() '17 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27093 '() '18 '#f '#f))
        __obj27093))
    (define |gerbil/core/mop~MOP-5[:0:]#:table|
      (let ((__obj27094
             (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! __obj27094 'table::t '1 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27094 'table '2 '#f '#f))
        (let ((__tmp27615 (cons |gerbil/core/mop~MOP-5[1]#_g27248_| '())))
          (declare (not safe))
          (##unchecked-structure-set! __obj27094 __tmp27615 '3 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27094 '() '4 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27094 '#t '9 '#f '#f))
        (let ((__tmp27616 |gerbil/core/mop~MOP-5[1]#_g27617_|))
          (declare (not safe))
          (##unchecked-structure-set! __obj27094 __tmp27616 '12 '#f '#f))
        (let ((__tmp27618 |gerbil/core/mop~MOP-5[1]#_g27619_|))
          (declare (not safe))
          (##unchecked-structure-set! __obj27094 __tmp27618 '14 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27094 '() '15 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27094 '() '16 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27094 '() '17 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27094 '() '18 '#f '#f))
        __obj27094))
    (define |gerbil/core/mop~MOP-5[:0:]#:readenv|
      (let ((__obj27095
             (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! __obj27095 'readenv::t '1 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27095 'readenv '2 '#f '#f))
        (let ((__tmp27620 (cons |gerbil/core/mop~MOP-5[1]#_g27248_| '())))
          (declare (not safe))
          (##unchecked-structure-set! __obj27095 __tmp27620 '3 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27095 '() '4 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27095 '#t '9 '#f '#f))
        (let ((__tmp27621 |gerbil/core/mop~MOP-5[1]#_g27622_|))
          (declare (not safe))
          (##unchecked-structure-set! __obj27095 __tmp27621 '12 '#f '#f))
        (let ((__tmp27623 |gerbil/core/mop~MOP-5[1]#_g27624_|))
          (declare (not safe))
          (##unchecked-structure-set! __obj27095 __tmp27623 '14 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27095 '() '15 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27095 '() '16 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27095 '() '17 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27095 '() '18 '#f '#f))
        __obj27095))
    (define |gerbil/core/mop~MOP-5[:0:]#:writeenv|
      (let ((__obj27096
             (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! __obj27096 'writeenv::t '1 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27096 'writeenv '2 '#f '#f))
        (let ((__tmp27625 (cons |gerbil/core/mop~MOP-5[1]#_g27248_| '())))
          (declare (not safe))
          (##unchecked-structure-set! __obj27096 __tmp27625 '3 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27096 '() '4 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27096 '#t '9 '#f '#f))
        (let ((__tmp27626 |gerbil/core/mop~MOP-5[1]#_g27627_|))
          (declare (not safe))
          (##unchecked-structure-set! __obj27096 __tmp27626 '12 '#f '#f))
        (let ((__tmp27628 |gerbil/core/mop~MOP-5[1]#_g27629_|))
          (declare (not safe))
          (##unchecked-structure-set! __obj27096 __tmp27628 '14 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27096 '() '15 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27096 '() '16 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27096 '() '17 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27096 '() '18 '#f '#f))
        __obj27096))
    (define |gerbil/core/mop~MOP-5[:0:]#:readtable|
      (let ((__obj27097
             (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! __obj27097 'readtable::t '1 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27097 'readtable '2 '#f '#f))
        (let ((__tmp27630 (cons |gerbil/core/mop~MOP-5[1]#_g27248_| '())))
          (declare (not safe))
          (##unchecked-structure-set! __obj27097 __tmp27630 '3 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27097 '() '4 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27097 '#t '9 '#f '#f))
        (let ((__tmp27631 |gerbil/core/mop~MOP-5[1]#_g27632_|))
          (declare (not safe))
          (##unchecked-structure-set! __obj27097 __tmp27631 '12 '#f '#f))
        (let ((__tmp27633 |gerbil/core/mop~MOP-5[1]#_g27634_|))
          (declare (not safe))
          (##unchecked-structure-set! __obj27097 __tmp27633 '14 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27097 '() '15 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27097 '() '16 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27097 '() '17 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27097 '() '18 '#f '#f))
        __obj27097))
    (define |gerbil/core/mop~MOP-5[:0:]#:processor|
      (let ((__obj27098
             (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! __obj27098 'processor::t '1 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27098 'processor '2 '#f '#f))
        (let ((__tmp27635 (cons |gerbil/core/mop~MOP-5[1]#_g27248_| '())))
          (declare (not safe))
          (##unchecked-structure-set! __obj27098 __tmp27635 '3 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27098 '() '4 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27098 '#t '9 '#f '#f))
        (let ((__tmp27636 |gerbil/core/mop~MOP-5[1]#_g27637_|))
          (declare (not safe))
          (##unchecked-structure-set! __obj27098 __tmp27636 '12 '#f '#f))
        (let ((__tmp27638 |gerbil/core/mop~MOP-5[1]#_g27639_|))
          (declare (not safe))
          (##unchecked-structure-set! __obj27098 __tmp27638 '14 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27098 '() '15 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27098 '() '16 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27098 '() '17 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27098 '() '18 '#f '#f))
        __obj27098))
    (define |gerbil/core/mop~MOP-5[:0:]#:vm|
      (let ((__obj27099
             (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! __obj27099 'vm::t '1 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27099 'vm '2 '#f '#f))
        (let ((__tmp27640 (cons |gerbil/core/mop~MOP-5[1]#_g27248_| '())))
          (declare (not safe))
          (##unchecked-structure-set! __obj27099 __tmp27640 '3 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27099 '() '4 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27099 '#t '9 '#f '#f))
        (let ((__tmp27641 |gerbil/core/mop~MOP-5[1]#_g27642_|))
          (declare (not safe))
          (##unchecked-structure-set! __obj27099 __tmp27641 '12 '#f '#f))
        (let ((__tmp27643 |gerbil/core/mop~MOP-5[1]#_g27644_|))
          (declare (not safe))
          (##unchecked-structure-set! __obj27099 __tmp27643 '14 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27099 '() '15 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27099 '() '16 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27099 '() '17 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27099 '() '18 '#f '#f))
        __obj27099))
    (define |gerbil/core/mop~MOP-5[:0:]#:file-info|
      (let ((__obj27100
             (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! __obj27100 'file-info::t '1 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27100 'file-info '2 '#f '#f))
        (let ((__tmp27645 (cons |gerbil/core/mop~MOP-5[1]#_g27248_| '())))
          (declare (not safe))
          (##unchecked-structure-set! __obj27100 __tmp27645 '3 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27100 '() '4 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27100 '#t '9 '#f '#f))
        (let ((__tmp27646 |gerbil/core/mop~MOP-5[1]#_g27647_|))
          (declare (not safe))
          (##unchecked-structure-set! __obj27100 __tmp27646 '12 '#f '#f))
        (let ((__tmp27648 |gerbil/core/mop~MOP-5[1]#_g27649_|))
          (declare (not safe))
          (##unchecked-structure-set! __obj27100 __tmp27648 '14 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27100 '() '15 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27100 '() '16 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27100 '() '17 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27100 '() '18 '#f '#f))
        __obj27100))
    (define |gerbil/core/mop~MOP-5[:0:]#:socket-info|
      (let ((__obj27101
             (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! __obj27101 'socket-info::t '1 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27101 'socket-info '2 '#f '#f))
        (let ((__tmp27650 (cons |gerbil/core/mop~MOP-5[1]#_g27248_| '())))
          (declare (not safe))
          (##unchecked-structure-set! __obj27101 __tmp27650 '3 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27101 '() '4 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27101 '#t '9 '#f '#f))
        (let ((__tmp27651 |gerbil/core/mop~MOP-5[1]#_g27652_|))
          (declare (not safe))
          (##unchecked-structure-set! __obj27101 __tmp27651 '12 '#f '#f))
        (let ((__tmp27653 |gerbil/core/mop~MOP-5[1]#_g27654_|))
          (declare (not safe))
          (##unchecked-structure-set! __obj27101 __tmp27653 '14 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27101 '() '15 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27101 '() '16 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27101 '() '17 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27101 '() '18 '#f '#f))
        __obj27101))
    (define |gerbil/core/mop~MOP-5[:0:]#:address-info|
      (let ((__obj27102
             (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! __obj27102 'address-info::t '1 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27102 'address-info '2 '#f '#f))
        (let ((__tmp27655 (cons |gerbil/core/mop~MOP-5[1]#_g27248_| '())))
          (declare (not safe))
          (##unchecked-structure-set! __obj27102 __tmp27655 '3 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27102 '() '4 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27102 '#t '9 '#f '#f))
        (let ((__tmp27656 |gerbil/core/mop~MOP-5[1]#_g27657_|))
          (declare (not safe))
          (##unchecked-structure-set! __obj27102 __tmp27656 '12 '#f '#f))
        (let ((__tmp27658 |gerbil/core/mop~MOP-5[1]#_g27659_|))
          (declare (not safe))
          (##unchecked-structure-set! __obj27102 __tmp27658 '14 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27102 '() '15 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27102 '() '16 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27102 '() '17 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj27102 '() '18 '#f '#f))
        __obj27102))))
