(declare (block) (standard-bindings) (extended-bindings) (inlining-limit 200))
(begin
  (define |[1]#_g103894_|
    (##structure
     gx#syntax-quote::t
     'Exception::t
     #f
     (gx#current-expander-context)
     '()))
  (define |[1]#_g103896_|
    (##structure
     gx#syntax-quote::t
     'make-Exception
     #f
     (gx#current-expander-context)
     '()))
  (define |[1]#_g103898_|
    (##structure
     gx#syntax-quote::t
     'Exception?
     #f
     (gx#current-expander-context)
     '()))
  (define |[1]#_g103900_|
    (##structure
     gx#syntax-quote::t
     'StackTrace::t
     #f
     (gx#current-expander-context)
     '()))
  (define |[1]#_g103902_|
    (##structure
     gx#syntax-quote::t
     'make-StackTrace
     #f
     (gx#current-expander-context)
     '()))
  (define |[1]#_g103904_|
    (##structure
     gx#syntax-quote::t
     'StackTrace?
     #f
     (gx#current-expander-context)
     '()))
  (define |[1]#_g103906_|
    (##structure
     gx#syntax-quote::t
     'StackTrace-continuation
     #f
     (gx#current-expander-context)
     '()))
  (define |[1]#_g103908_|
    (##structure
     gx#syntax-quote::t
     'StackTrace-continuation-set!
     #f
     (gx#current-expander-context)
     '()))
  (define |[1]#_g103910_|
    (##structure
     gx#syntax-quote::t
     '&StackTrace-continuation
     #f
     (gx#current-expander-context)
     '()))
  (define |[1]#_g103912_|
    (##structure
     gx#syntax-quote::t
     '&StackTrace-continuation-set!
     #f
     (gx#current-expander-context)
     '()))
  (define |[1]#_g103914_|
    (##structure
     gx#syntax-quote::t
     'StackTrace
     #f
     (gx#current-expander-context)
     '()))
  (define |[1]#_g103915_|
    (##structure
     gx#syntax-quote::t
     'Exception
     #f
     (gx#current-expander-context)
     '()))
  (define |[1]#_g103917_|
    (##structure
     gx#syntax-quote::t
     'Error::t
     #f
     (gx#current-expander-context)
     '()))
  (define |[1]#_g103919_|
    (##structure
     gx#syntax-quote::t
     'make-Error
     #f
     (gx#current-expander-context)
     '()))
  (define |[1]#_g103921_|
    (##structure
     gx#syntax-quote::t
     'Error?
     #f
     (gx#current-expander-context)
     '()))
  (define |[1]#_g103923_|
    (##structure
     gx#syntax-quote::t
     'Error-message
     #f
     (gx#current-expander-context)
     '()))
  (define |[1]#_g103924_|
    (##structure
     gx#syntax-quote::t
     'Error-irritants
     #f
     (gx#current-expander-context)
     '()))
  (define |[1]#_g103925_|
    (##structure
     gx#syntax-quote::t
     'Error-where
     #f
     (gx#current-expander-context)
     '()))
  (define |[1]#_g103926_|
    (##structure
     gx#syntax-quote::t
     'Error-continuation
     #f
     (gx#current-expander-context)
     '()))
  (define |[1]#_g103928_|
    (##structure
     gx#syntax-quote::t
     'Error-message-set!
     #f
     (gx#current-expander-context)
     '()))
  (define |[1]#_g103929_|
    (##structure
     gx#syntax-quote::t
     'Error-irritants-set!
     #f
     (gx#current-expander-context)
     '()))
  (define |[1]#_g103930_|
    (##structure
     gx#syntax-quote::t
     'Error-where-set!
     #f
     (gx#current-expander-context)
     '()))
  (define |[1]#_g103931_|
    (##structure
     gx#syntax-quote::t
     'Error-continuation-set!
     #f
     (gx#current-expander-context)
     '()))
  (define |[1]#_g103933_|
    (##structure
     gx#syntax-quote::t
     '&Error-message
     #f
     (gx#current-expander-context)
     '()))
  (define |[1]#_g103934_|
    (##structure
     gx#syntax-quote::t
     '&Error-irritants
     #f
     (gx#current-expander-context)
     '()))
  (define |[1]#_g103935_|
    (##structure
     gx#syntax-quote::t
     '&Error-where
     #f
     (gx#current-expander-context)
     '()))
  (define |[1]#_g103936_|
    (##structure
     gx#syntax-quote::t
     '&Error-continuation
     #f
     (gx#current-expander-context)
     '()))
  (define |[1]#_g103938_|
    (##structure
     gx#syntax-quote::t
     '&Error-message-set!
     #f
     (gx#current-expander-context)
     '()))
  (define |[1]#_g103939_|
    (##structure
     gx#syntax-quote::t
     '&Error-irritants-set!
     #f
     (gx#current-expander-context)
     '()))
  (define |[1]#_g103940_|
    (##structure
     gx#syntax-quote::t
     '&Error-where-set!
     #f
     (gx#current-expander-context)
     '()))
  (define |[1]#_g103941_|
    (##structure
     gx#syntax-quote::t
     '&Error-continuation-set!
     #f
     (gx#current-expander-context)
     '()))
  (define |[1]#_g103943_|
    (##structure
     gx#syntax-quote::t
     'Error
     #f
     (gx#current-expander-context)
     '()))
  (define |[1]#_g103945_|
    (##structure
     gx#syntax-quote::t
     'ContractViolation::t
     #f
     (gx#current-expander-context)
     '()))
  (define |[1]#_g103947_|
    (##structure
     gx#syntax-quote::t
     'make-ContractViolation
     #f
     (gx#current-expander-context)
     '()))
  (define |[1]#_g103949_|
    (##structure
     gx#syntax-quote::t
     'ContractViolation?
     #f
     (gx#current-expander-context)
     '()))
  (define |[1]#_g103951_|
    (##structure
     gx#syntax-quote::t
     'ContractViolation-message
     #f
     (gx#current-expander-context)
     '()))
  (define |[1]#_g103952_|
    (##structure
     gx#syntax-quote::t
     'ContractViolation-irritants
     #f
     (gx#current-expander-context)
     '()))
  (define |[1]#_g103953_|
    (##structure
     gx#syntax-quote::t
     'ContractViolation-where
     #f
     (gx#current-expander-context)
     '()))
  (define |[1]#_g103954_|
    (##structure
     gx#syntax-quote::t
     'ContractViolation-continuation
     #f
     (gx#current-expander-context)
     '()))
  (define |[1]#_g103956_|
    (##structure
     gx#syntax-quote::t
     'ContractViolation-message-set!
     #f
     (gx#current-expander-context)
     '()))
  (define |[1]#_g103957_|
    (##structure
     gx#syntax-quote::t
     'ContractViolation-irritants-set!
     #f
     (gx#current-expander-context)
     '()))
  (define |[1]#_g103958_|
    (##structure
     gx#syntax-quote::t
     'ContractViolation-where-set!
     #f
     (gx#current-expander-context)
     '()))
  (define |[1]#_g103959_|
    (##structure
     gx#syntax-quote::t
     'ContractViolation-continuation-set!
     #f
     (gx#current-expander-context)
     '()))
  (define |[1]#_g103961_|
    (##structure
     gx#syntax-quote::t
     '&ContractViolation-message
     #f
     (gx#current-expander-context)
     '()))
  (define |[1]#_g103962_|
    (##structure
     gx#syntax-quote::t
     '&ContractViolation-irritants
     #f
     (gx#current-expander-context)
     '()))
  (define |[1]#_g103963_|
    (##structure
     gx#syntax-quote::t
     '&ContractViolation-where
     #f
     (gx#current-expander-context)
     '()))
  (define |[1]#_g103964_|
    (##structure
     gx#syntax-quote::t
     '&ContractViolation-continuation
     #f
     (gx#current-expander-context)
     '()))
  (define |[1]#_g103966_|
    (##structure
     gx#syntax-quote::t
     '&ContractViolation-message-set!
     #f
     (gx#current-expander-context)
     '()))
  (define |[1]#_g103967_|
    (##structure
     gx#syntax-quote::t
     '&ContractViolation-irritants-set!
     #f
     (gx#current-expander-context)
     '()))
  (define |[1]#_g103968_|
    (##structure
     gx#syntax-quote::t
     '&ContractViolation-where-set!
     #f
     (gx#current-expander-context)
     '()))
  (define |[1]#_g103969_|
    (##structure
     gx#syntax-quote::t
     '&ContractViolation-continuation-set!
     #f
     (gx#current-expander-context)
     '()))
  (define |[1]#_g103972_|
    (##structure
     gx#syntax-quote::t
     'RuntimeException::t
     #f
     (gx#current-expander-context)
     '()))
  (define |[1]#_g103974_|
    (##structure
     gx#syntax-quote::t
     'make-RuntimeException
     #f
     (gx#current-expander-context)
     '()))
  (define |[1]#_g103976_|
    (##structure
     gx#syntax-quote::t
     'RuntimeException?
     #f
     (gx#current-expander-context)
     '()))
  (define |[1]#_g103978_|
    (##structure
     gx#syntax-quote::t
     'RuntimeException-exception
     #f
     (gx#current-expander-context)
     '()))
  (define |[1]#_g103979_|
    (##structure
     gx#syntax-quote::t
     'RuntimeException-continuation
     #f
     (gx#current-expander-context)
     '()))
  (define |[1]#_g103981_|
    (##structure
     gx#syntax-quote::t
     'RuntimeException-exception-set!
     #f
     (gx#current-expander-context)
     '()))
  (define |[1]#_g103982_|
    (##structure
     gx#syntax-quote::t
     'RuntimeException-continuation-set!
     #f
     (gx#current-expander-context)
     '()))
  (define |[1]#_g103984_|
    (##structure
     gx#syntax-quote::t
     '&RuntimeException-exception
     #f
     (gx#current-expander-context)
     '()))
  (define |[1]#_g103985_|
    (##structure
     gx#syntax-quote::t
     '&RuntimeException-continuation
     #f
     (gx#current-expander-context)
     '()))
  (define |[1]#_g103987_|
    (##structure
     gx#syntax-quote::t
     '&RuntimeException-exception-set!
     #f
     (gx#current-expander-context)
     '()))
  (define |[1]#_g103988_|
    (##structure
     gx#syntax-quote::t
     '&RuntimeException-continuation-set!
     #f
     (gx#current-expander-context)
     '()))
  (begin
    (define |[:0:]#Exception|
      (let ((__obj103857
             (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!
           __obj103857
           'gerbil/runtime/error#Exception::t
           '1
           '#f
           '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj103857 'Exception '2 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj103857 '() '4 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj103857 '() '6 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj103857 '() '3 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj103857 '#f '7 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj103857 '#f '8 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj103857 '#f '10 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj103857 '#f '11 '#f '#f))
        (let ((__tmp103893 |[1]#_g103894_|))
          (declare (not safe))
          (##unchecked-structure-set! __obj103857 __tmp103893 '12 '#f '#f))
        (let ((__tmp103895 |[1]#_g103896_|))
          (declare (not safe))
          (##unchecked-structure-set! __obj103857 __tmp103895 '13 '#f '#f))
        (let ((__tmp103897 |[1]#_g103898_|))
          (declare (not safe))
          (##unchecked-structure-set! __obj103857 __tmp103897 '14 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj103857 '() '15 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj103857 '() '16 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj103857 '() '17 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj103857 '() '18 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj103857 '() '19 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj103857 '() '21 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj103857 '() '20 '#f '#f))
        __obj103857))
    (define |[:0:]#StackTrace|
      (let ((__obj103858
             (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!
           __obj103858
           'gerbil/runtime/error#StackTrace::t
           '1
           '#f
           '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj103858 'StackTrace '2 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj103858 '(continuation) '4 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj103858 '(continuation) '6 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj103858 '() '3 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj103858 '#f '7 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj103858 '#f '8 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj103858 '#f '10 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj103858 '#f '11 '#f '#f))
        (let ((__tmp103899 |[1]#_g103900_|))
          (declare (not safe))
          (##unchecked-structure-set! __obj103858 __tmp103899 '12 '#f '#f))
        (let ((__tmp103901 |[1]#_g103902_|))
          (declare (not safe))
          (##unchecked-structure-set! __obj103858 __tmp103901 '13 '#f '#f))
        (let ((__tmp103903 |[1]#_g103904_|))
          (declare (not safe))
          (##unchecked-structure-set! __obj103858 __tmp103903 '14 '#f '#f))
        (let ((__tmp103905 (cons (cons 'continuation |[1]#_g103906_|) '())))
          (declare (not safe))
          (##unchecked-structure-set! __obj103858 __tmp103905 '15 '#f '#f))
        (let ((__tmp103907 (cons (cons 'continuation |[1]#_g103908_|) '())))
          (declare (not safe))
          (##unchecked-structure-set! __obj103858 __tmp103907 '16 '#f '#f))
        (let ((__tmp103909 (cons (cons 'continuation |[1]#_g103910_|) '())))
          (declare (not safe))
          (##unchecked-structure-set! __obj103858 __tmp103909 '17 '#f '#f))
        (let ((__tmp103911 (cons (cons 'continuation |[1]#_g103912_|) '())))
          (declare (not safe))
          (##unchecked-structure-set! __obj103858 __tmp103911 '18 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj103858 '() '19 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj103858 '() '21 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj103858 '() '20 '#f '#f))
        __obj103858))
    (define |[:0:]#Error|
      (let ((__obj103859
             (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!
           __obj103859
           'gerbil/runtime/error#Error::t
           '1
           '#f
           '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj103859 'Error '2 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set!
           __obj103859
           '(message irritants where)
           '4
           '#f
           '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set!
           __obj103859
           '(continuation message irritants where)
           '6
           '#f
           '#f))
        (let ((__tmp103913 (cons |[1]#_g103914_| (cons |[1]#_g103915_| '()))))
          (declare (not safe))
          (##unchecked-structure-set! __obj103859 __tmp103913 '3 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj103859 '#f '7 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj103859 '#f '8 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj103859 '#f '10 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj103859 ':init! '11 '#f '#f))
        (let ((__tmp103916 |[1]#_g103917_|))
          (declare (not safe))
          (##unchecked-structure-set! __obj103859 __tmp103916 '12 '#f '#f))
        (let ((__tmp103918 |[1]#_g103919_|))
          (declare (not safe))
          (##unchecked-structure-set! __obj103859 __tmp103918 '13 '#f '#f))
        (let ((__tmp103920 |[1]#_g103921_|))
          (declare (not safe))
          (##unchecked-structure-set! __obj103859 __tmp103920 '14 '#f '#f))
        (let ((__tmp103922
               (cons (cons 'message |[1]#_g103923_|)
                     (cons (cons 'irritants |[1]#_g103924_|)
                           (cons (cons 'where |[1]#_g103925_|)
                                 (cons (cons 'continuation |[1]#_g103926_|)
                                       '()))))))
          (declare (not safe))
          (##unchecked-structure-set! __obj103859 __tmp103922 '15 '#f '#f))
        (let ((__tmp103927
               (cons (cons 'message |[1]#_g103928_|)
                     (cons (cons 'irritants |[1]#_g103929_|)
                           (cons (cons 'where |[1]#_g103930_|)
                                 (cons (cons 'continuation |[1]#_g103931_|)
                                       '()))))))
          (declare (not safe))
          (##unchecked-structure-set! __obj103859 __tmp103927 '16 '#f '#f))
        (let ((__tmp103932
               (cons (cons 'message |[1]#_g103933_|)
                     (cons (cons 'irritants |[1]#_g103934_|)
                           (cons (cons 'where |[1]#_g103935_|)
                                 (cons (cons 'continuation |[1]#_g103936_|)
                                       '()))))))
          (declare (not safe))
          (##unchecked-structure-set! __obj103859 __tmp103932 '17 '#f '#f))
        (let ((__tmp103937
               (cons (cons 'message |[1]#_g103938_|)
                     (cons (cons 'irritants |[1]#_g103939_|)
                           (cons (cons 'where |[1]#_g103940_|)
                                 (cons (cons 'continuation |[1]#_g103941_|)
                                       '()))))))
          (declare (not safe))
          (##unchecked-structure-set! __obj103859 __tmp103937 '18 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj103859 '() '19 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj103859 '() '21 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj103859 '() '20 '#f '#f))
        __obj103859))
    (define |[:0:]#ContractViolation|
      (let ((__obj103860
             (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!
           __obj103860
           'gerbil/runtime/error#ContractViolation::t
           '1
           '#f
           '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set!
           __obj103860
           'ContractViolation
           '2
           '#f
           '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj103860 '() '4 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set!
           __obj103860
           '(continuation message irritants where)
           '6
           '#f
           '#f))
        (let ((__tmp103942 (cons |[1]#_g103943_| '())))
          (declare (not safe))
          (##unchecked-structure-set! __obj103860 __tmp103942 '3 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj103860 '#f '7 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj103860 '#f '8 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj103860 '#f '10 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj103860 '#f '11 '#f '#f))
        (let ((__tmp103944 |[1]#_g103945_|))
          (declare (not safe))
          (##unchecked-structure-set! __obj103860 __tmp103944 '12 '#f '#f))
        (let ((__tmp103946 |[1]#_g103947_|))
          (declare (not safe))
          (##unchecked-structure-set! __obj103860 __tmp103946 '13 '#f '#f))
        (let ((__tmp103948 |[1]#_g103949_|))
          (declare (not safe))
          (##unchecked-structure-set! __obj103860 __tmp103948 '14 '#f '#f))
        (let ((__tmp103950
               (cons (cons 'message |[1]#_g103951_|)
                     (cons (cons 'irritants |[1]#_g103952_|)
                           (cons (cons 'where |[1]#_g103953_|)
                                 (cons (cons 'continuation |[1]#_g103954_|)
                                       '()))))))
          (declare (not safe))
          (##unchecked-structure-set! __obj103860 __tmp103950 '15 '#f '#f))
        (let ((__tmp103955
               (cons (cons 'message |[1]#_g103956_|)
                     (cons (cons 'irritants |[1]#_g103957_|)
                           (cons (cons 'where |[1]#_g103958_|)
                                 (cons (cons 'continuation |[1]#_g103959_|)
                                       '()))))))
          (declare (not safe))
          (##unchecked-structure-set! __obj103860 __tmp103955 '16 '#f '#f))
        (let ((__tmp103960
               (cons (cons 'message |[1]#_g103961_|)
                     (cons (cons 'irritants |[1]#_g103962_|)
                           (cons (cons 'where |[1]#_g103963_|)
                                 (cons (cons 'continuation |[1]#_g103964_|)
                                       '()))))))
          (declare (not safe))
          (##unchecked-structure-set! __obj103860 __tmp103960 '17 '#f '#f))
        (let ((__tmp103965
               (cons (cons 'message |[1]#_g103966_|)
                     (cons (cons 'irritants |[1]#_g103967_|)
                           (cons (cons 'where |[1]#_g103968_|)
                                 (cons (cons 'continuation |[1]#_g103969_|)
                                       '()))))))
          (declare (not safe))
          (##unchecked-structure-set! __obj103860 __tmp103965 '18 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj103860 '() '19 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj103860 '() '21 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj103860 '() '20 '#f '#f))
        __obj103860))
    (define |[:0:]#RuntimeException|
      (let ((__obj103861
             (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!
           __obj103861
           'gerbil/runtime/error#RuntimeException::t
           '1
           '#f
           '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set!
           __obj103861
           'RuntimeException
           '2
           '#f
           '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj103861 '(exception) '4 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set!
           __obj103861
           '(continuation exception)
           '6
           '#f
           '#f))
        (let ((__tmp103970 (cons |[1]#_g103914_| (cons |[1]#_g103915_| '()))))
          (declare (not safe))
          (##unchecked-structure-set! __obj103861 __tmp103970 '3 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj103861 '#f '7 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj103861 '#f '8 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj103861 '#f '10 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj103861 '#f '11 '#f '#f))
        (let ((__tmp103971 |[1]#_g103972_|))
          (declare (not safe))
          (##unchecked-structure-set! __obj103861 __tmp103971 '12 '#f '#f))
        (let ((__tmp103973 |[1]#_g103974_|))
          (declare (not safe))
          (##unchecked-structure-set! __obj103861 __tmp103973 '13 '#f '#f))
        (let ((__tmp103975 |[1]#_g103976_|))
          (declare (not safe))
          (##unchecked-structure-set! __obj103861 __tmp103975 '14 '#f '#f))
        (let ((__tmp103977
               (cons (cons 'exception |[1]#_g103978_|)
                     (cons (cons 'continuation |[1]#_g103979_|) '()))))
          (declare (not safe))
          (##unchecked-structure-set! __obj103861 __tmp103977 '15 '#f '#f))
        (let ((__tmp103980
               (cons (cons 'exception |[1]#_g103981_|)
                     (cons (cons 'continuation |[1]#_g103982_|) '()))))
          (declare (not safe))
          (##unchecked-structure-set! __obj103861 __tmp103980 '16 '#f '#f))
        (let ((__tmp103983
               (cons (cons 'exception |[1]#_g103984_|)
                     (cons (cons 'continuation |[1]#_g103985_|) '()))))
          (declare (not safe))
          (##unchecked-structure-set! __obj103861 __tmp103983 '17 '#f '#f))
        (let ((__tmp103986
               (cons (cons 'exception |[1]#_g103987_|)
                     (cons (cons 'continuation |[1]#_g103988_|) '()))))
          (declare (not safe))
          (##unchecked-structure-set! __obj103861 __tmp103986 '18 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj103861 '() '19 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj103861 '() '21 '#f '#f))
        (let ()
          (declare (not safe))
          (##unchecked-structure-set! __obj103861 '() '20 '#f '#f))
        __obj103861))
    (define |[:0:]#defruntime-exception|
      (lambda (_%stx101999%_)
        (let* ((_%g102002102029%_
                (lambda (_%g102003102025%_)
                  (gx#raise-syntax-error
                   '#f
                   '"Bad syntax; invalid match target"
                   _%g102003102025%_)))
               (_%g102001102265%_
                (lambda (_%g102003102033%_)
                  (if (gx#stx-pair? _%g102003102033%_)
                      (let ((_%e102006102036%_
                             (gx#syntax-e _%g102003102033%_)))
                        (let ((_%hd102007102040%_
                               (let ()
                                 (declare (not safe))
                                 (##car _%e102006102036%_)))
                              (_%tl102008102043%_
                               (let ()
                                 (declare (not safe))
                                 (##cdr _%e102006102036%_))))
                          (if (gx#stx-pair? _%tl102008102043%_)
                              (let ((_%e102009102046%_
                                     (gx#syntax-e _%tl102008102043%_)))
                                (let ((_%hd102010102050%_
                                       (let ()
                                         (declare (not safe))
                                         (##car _%e102009102046%_)))
                                      (_%tl102011102053%_
                                       (let ()
                                         (declare (not safe))
                                         (##cdr _%e102009102046%_))))
                                  (if (gx#stx-pair? _%hd102010102050%_)
                                      (let ((_%e102012102056%_
                                             (gx#syntax-e _%hd102010102050%_)))
                                        (let ((_%hd102013102060%_
                                               (let ()
                                                 (declare (not safe))
                                                 (##car _%e102012102056%_)))
                                              (_%tl102014102063%_
                                               (let ()
                                                 (declare (not safe))
                                                 (##cdr _%e102012102056%_))))
                                          (if (gx#stx-pair/null?
                                               _%tl102014102063%_)
                                              (let ((_g103989_
                                                     (gx#syntax-split-splice
                                                      _%tl102014102063%_
                                                      '0)))
                                                (begin
                                                  (let ((_g103990_
                                                         (let ()
                                                           (declare (not safe))
                                                           (if (##values?
                                                                _g103989_)
                                                               (##vector-length
                                                                _g103989_)
                                                               1))))
                                                    (if (not (let ()
                                                               (declare
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                         (not safe))
                       (##fx= _g103990_ 2)))
                (error "Context expects 2 values" _g103990_)))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                                  (let ((_%target102015102066%_
                                                         (let ()
                                                           (declare (not safe))
                                                           (##vector-ref
                                                            _g103989_
                                                            0)))
                                                        (_%tl102017102069%_
                                                         (let ()
                                                           (declare (not safe))
                                                           (##vector-ref
                                                            _g103989_
                                                            1))))
                                                    (if (gx#stx-null?
                                                         _%tl102017102069%_)
                                                        (letrec ((_%loop102018102072%_
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                          (lambda (_%hd102016102076%_ _%getf102022102079%_)
                            (if (gx#stx-pair? _%hd102016102076%_)
                                (let ((_%e102019102082%_
                                       (gx#syntax-e _%hd102016102076%_)))
                                  (let ((_%lp-hd102020102086%_
                                         (let ()
                                           (declare (not safe))
                                           (##car _%e102019102082%_)))
                                        (_%lp-tl102021102089%_
                                         (let ()
                                           (declare (not safe))
                                           (##cdr _%e102019102082%_))))
                                    (_%loop102018102072%_
                                     _%lp-tl102021102089%_
                                     (cons _%lp-hd102020102086%_
                                           _%getf102022102079%_))))
                                (let ((_%getf102023102092%_
                                       (reverse _%getf102022102079%_)))
                                  (if (gx#stx-null? _%tl102011102053%_)
                                      ((lambda (_%L102096%_ _%L102098%_)
                                         (let* ((_%g102119102143%_
                                                 (lambda (_%g102120102139%_)
                                                   (gx#raise-syntax-error
                                                    '#f
                                                    '"Bad syntax; invalid match target"
                                                    _%g102120102139%_)))
                                                (_%g102118102250%_
                                                 (lambda (_%g102120102147%_)
                                                   (if (gx#stx-pair?
                                                        _%g102120102147%_)
                                                       (let ((_%e102123102150%_
                                                              (gx#syntax-e
                                                               _%g102120102147%_)))
                                                         (let ((_%hd102124102154%_
                                                                (let ()
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                          (declare (not safe))
                          (##car _%e102123102150%_)))
                       (_%tl102125102157%_
                        (let ()
                          (declare (not safe))
                          (##cdr _%e102123102150%_))))
                   (if (gx#stx-pair? _%tl102125102157%_)
                       (let ((_%e102126102160%_
                              (gx#syntax-e _%tl102125102157%_)))
                         (let ((_%hd102127102164%_
                                (let ()
                                  (declare (not safe))
                                  (##car _%e102126102160%_)))
                               (_%tl102128102167%_
                                (let ()
                                  (declare (not safe))
                                  (##cdr _%e102126102160%_))))
                           (if (gx#stx-pair/null? _%hd102127102164%_)
                               (let ((_g103991_
                                      (gx#syntax-split-splice
                                       _%hd102127102164%_
                                       '0)))
                                 (begin
                                   (let ((_g103992_
                                          (let ()
                                            (declare (not safe))
                                            (if (##values? _g103991_)
                                                (##vector-length _g103991_)
                                                1))))
                                     (if (not (let ()
                                                (declare (not safe))
                                                (##fx= _g103992_ 2)))
                                         (error "Context expects 2 values"
                                                _g103992_)))
                                   (let ((_%target102129102170%_
                                          (let ()
                                            (declare (not safe))
                                            (##vector-ref _g103991_ 0)))
                                         (_%tl102131102173%_
                                          (let ()
                                            (declare (not safe))
                                            (##vector-ref _g103991_ 1))))
                                     (if (gx#stx-null? _%tl102131102173%_)
                                         (letrec ((_%loop102132102176%_
                                                   (lambda (_%hd102130102180%_
                                                            _%macro-getf102136102183%_)
                                                     (if (gx#stx-pair?
                                                          _%hd102130102180%_)
                                                         (let ((_%e102133102186%_
                                                                (gx#syntax-e
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                         _%hd102130102180%_)))
                   (let ((_%lp-hd102134102190%_
                          (let ()
                            (declare (not safe))
                            (##car _%e102133102186%_)))
                         (_%lp-tl102135102193%_
                          (let ()
                            (declare (not safe))
                            (##cdr _%e102133102186%_))))
                     (_%loop102132102176%_
                      _%lp-tl102135102193%_
                      (cons _%lp-hd102134102190%_
                            _%macro-getf102136102183%_))))
                 (let ((_%macro-getf102137102196%_
                        (reverse _%macro-getf102136102183%_)))
                   (if (gx#stx-null? _%tl102128102167%_)
                       ((lambda (_%L102200%_ _%L102202%_)
                          (cons (gx#datum->syntax '#f 'begin)
                                (cons (cons (gx#datum->syntax '#f 'extern)
                                            (cons _%L102202%_
                                                  (let ((__tmp103993
                                                         (lambda (_%g102227102230%_
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                          _%g102228102233%_)
                   (cons _%g102227102230%_ _%g102228102233%_))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                                    (declare (not safe))
                                                    (__foldr1
                                                     __tmp103993
                                                     '()
                                                     _%L102200%_))))
                                      (cons (cons (gx#datum->syntax '#f 'def)
                                                  (cons (cons _%L102098%_
                                                              (cons (gx#datum->syntax
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                             '#f
                             'exn)
                            '()))
                (cons (cons (gx#datum->syntax '#f 'if)
                            (cons (cons (gx#datum->syntax
                                         '#f
                                         'RuntimeException?)
                                        (cons (gx#datum->syntax '#f 'exn) '()))
                                  (cons (cons (gx#datum->syntax '#f 'let)
                                              (cons (cons (gx#datum->syntax
                                                           '#f
                                                           'e)
                                                          (cons (cons (gx#datum->syntax
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                               '#f
                               '&RuntimeException-exception)
                              (cons (gx#datum->syntax '#f 'exn) '()))
                        '()))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                                    (cons (cons _%L102202%_
                                                                (cons (gx#datum->syntax
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                               '#f
                               'e)
                              '()))
                  '())))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                        (cons (cons _%L102202%_
                                                    (cons (gx#datum->syntax
                                                           '#f
                                                           'exn)
                                                          '()))
                                              '()))))
                      '())))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                            (begin
                                              (gx#syntax-check-splice-targets
                                               _%L102096%_
                                               _%L102200%_
                                               _%L102096%_
                                               _%L102200%_
                                               _%L102096%_)
                                              (let ((__tmp103994
                                                     (lambda (_%g102221102236%_
                                                              _%g102222102239%_
                                                              _%g102223102241%_
                                                              _%g102224102243%_
                                                              _%g102225102245%_
                                                              _%g102226102247%_)
                                                       (cons (cons (gx#datum->syntax
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                            '#f
                            'def)
                           (cons (cons _%g102221102236%_
                                       (cons (gx#datum->syntax '#f 'exn) '()))
                                 (cons (cons (gx#datum->syntax '#f 'if)
                                             (cons (cons (gx#datum->syntax
                                                          '#f
                                                          'RuntimeException?)
                                                         (cons (gx#datum->syntax
                                                                '#f
                                                                'exn)
                                                               '()))
                                                   (cons (cons (gx#datum->syntax
                                                                '#f
                                                                'let)
                                                               (cons (cons (gx#datum->syntax
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                                    '#f
                                    'e)
                                   (cons (cons (gx#datum->syntax
                                                '#f
                                                '&RuntimeException-exception)
                                               (cons (gx#datum->syntax
                                                      '#f
                                                      'exn)
                                                     '()))
                                         '()))
                             (cons (cons (gx#datum->syntax '#f 'if)
                                         (cons (cons _%L102202%_
                                                     (cons (gx#datum->syntax
                                                            '#f
                                                            'e)
                                                           '()))
                                               (cons (cons _%g102222102239%_
                                                           (cons (gx#datum->syntax
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                          '#f
                          'e)
                         '()))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                                     (cons (cons (gx#datum->syntax
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                          '#f
                          'error)
                         (cons '"not an instance"
                               (cons (cons (gx#datum->syntax '#f 'quote)
                                           (cons _%L102098%_ '()))
                                     (cons (cons (gx#datum->syntax '#f '@list)
                                                 (cons (cons (gx#datum->syntax
                                                              '#f
                                                              'quote)
                                                             (cons _%g102221102236%_
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                           '()))
               (cons (gx#datum->syntax '#f 'e) '())))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                           '()))))
                   '()))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                   '())))
                 (cons (cons (gx#datum->syntax '#f 'if)
                             (cons (cons _%L102202%_
                                         (cons (gx#datum->syntax '#f 'exn)
                                               '()))
                                   (cons (cons _%g102222102239%_
                                               (cons (gx#datum->syntax
                                                      '#f
                                                      'exn)
                                                     '()))
                                         (cons (cons (gx#datum->syntax
                                                      '#f
                                                      'error)
                                                     (cons '"not an instance"
                                                           (cons (cons (gx#datum->syntax
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                                '#f
                                'quote)
                               (cons _%L102098%_ '()))
                         (cons (cons (gx#datum->syntax '#f '@list)
                                     (cons (cons (gx#datum->syntax '#f 'quote)
                                                 (cons _%g102221102236%_ '()))
                                           (cons (gx#datum->syntax '#f 'exn)
                                                 '())))
                               '()))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                               '()))))
                       '()))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                       '())))
                     _%g102226102247%_))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                                (declare (not safe))
                                                (__foldr*
                                                 __tmp103994
                                                 '()
                                                 _%L102096%_
                                                 _%L102200%_
                                                 _%L102096%_
                                                 _%L102200%_
                                                 _%L102096%_)))))))
                        _%macro-getf102137102196%_
                        _%hd102124102154%_)
                       (_%g102119102143%_ _%g102120102147%_)))))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                           (_%loop102132102176%_
                                            _%target102129102170%_
                                            '()))
                                         (_%g102119102143%_
                                          _%g102120102147%_)))))
                               (_%g102119102143%_ _%g102120102147%_))))
                       (_%g102119102143%_ _%g102120102147%_))))
               (_%g102119102143%_ _%g102120102147%_)))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                           (_%g102118102250%_
                                            (list (gx#stx-identifier
                                                   _%L102098%_
                                                   '"macro-"
                                                   _%L102098%_)
                                                  (map (lambda (_%f102254%_)
                                                         (gx#stx-identifier
                                                          _%f102254%_
                                                          '"macro-"
                                                          _%f102254%_))
                                                       (let ((__tmp103995
                                                              (lambda (_%g102256102259%_
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                               _%g102257102262%_)
                        (cons _%g102256102259%_ _%g102257102262%_))))
                 (declare (not safe))
                 (__foldr1 __tmp103995 '() _%L102096%_)))))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                       _%getf102023102092%_
                                       _%hd102013102060%_)
                                      (_%g102002102029%_
                                       _%g102003102033%_)))))))
                  (_%loop102018102072%_ _%target102015102066%_ '()))
                (_%g102002102029%_ _%g102003102033%_)))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                              (_%g102002102029%_
                                               _%g102003102033%_))))
                                      (_%g102002102029%_ _%g102003102033%_))))
                              (_%g102002102029%_ _%g102003102033%_))))
                      (_%g102002102029%_ _%g102003102033%_)))))
          (_%g102001102265%_ _%stx101999%_))))
    (define |[:0:]#defruntime-exceptions|
      (lambda (_%$stx102271%_)
        (let* ((_%g102275102295%_
                (lambda (_%g102276102291%_)
                  (gx#raise-syntax-error
                   '#f
                   '"Bad syntax; invalid match target"
                   _%g102276102291%_)))
               (_%g102274102366%_
                (lambda (_%g102276102299%_)
                  (if (gx#stx-pair? _%g102276102299%_)
                      (let ((_%e102278102302%_
                             (gx#syntax-e _%g102276102299%_)))
                        (let ((_%hd102279102306%_
                               (let ()
                                 (declare (not safe))
                                 (##car _%e102278102302%_)))
                              (_%tl102280102309%_
                               (let ()
                                 (declare (not safe))
                                 (##cdr _%e102278102302%_))))
                          (if (gx#stx-pair/null? _%tl102280102309%_)
                              (let ((_g103996_
                                     (gx#syntax-split-splice
                                      _%tl102280102309%_
                                      '0)))
                                (begin
                                  (let ((_g103997_
                                         (let ()
                                           (declare (not safe))
                                           (if (##values? _g103996_)
                                               (##vector-length _g103996_)
                                               1))))
                                    (if (not (let ()
                                               (declare (not safe))
                                               (##fx= _g103997_ 2)))
                                        (error "Context expects 2 values"
                                               _g103997_)))
                                  (let ((_%target102281102312%_
                                         (let ()
                                           (declare (not safe))
                                           (##vector-ref _g103996_ 0)))
                                        (_%tl102283102315%_
                                         (let ()
                                           (declare (not safe))
                                           (##vector-ref _g103996_ 1))))
                                    (if (gx#stx-null? _%tl102283102315%_)
                                        (letrec ((_%loop102284102318%_
                                                  (lambda (_%hd102282102322%_
                                                           _%defexn102288102325%_)
                                                    (if (gx#stx-pair?
                                                         _%hd102282102322%_)
                                                        (let ((_%e102285102328%_
                                                               (gx#syntax-e
                                                                _%hd102282102322%_)))
                                                          (let ((_%lp-hd102286102332%_
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                         (let ()
                           (declare (not safe))
                           (##car _%e102285102328%_)))
                        (_%lp-tl102287102335%_
                         (let ()
                           (declare (not safe))
                           (##cdr _%e102285102328%_))))
                    (_%loop102284102318%_
                     _%lp-tl102287102335%_
                     (cons _%lp-hd102286102332%_ _%defexn102288102325%_))))
                (let ((_%defexn102289102338%_
                       (reverse _%defexn102288102325%_)))
                  ((lambda (_%L102342%_)
                     (cons (gx#datum->syntax '#f 'begin)
                           (let ((__tmp103998
                                  (lambda (_%g102357102360%_ _%g102358102363%_)
                                    (cons (cons (gx#datum->syntax
                                                 '#f
                                                 'defruntime-exception)
                                                (cons _%g102357102360%_ '()))
                                          _%g102358102363%_))))
                             (declare (not safe))
                             (__foldr1 __tmp103998 '() _%L102342%_))))
                   _%defexn102289102338%_))))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                          (_%loop102284102318%_
                                           _%target102281102312%_
                                           '()))
                                        (_%g102275102295%_
                                         _%g102276102299%_)))))
                              (_%g102275102295%_ _%g102276102299%_))))
                      (_%g102275102295%_ _%g102276102299%_)))))
          (_%g102274102366%_ _%$stx102271%_))))))
