(declare (block) (standard-bindings) (extended-bindings) (inlining-limit 200))
(begin
  (define |std/net/httpd/handler[1]#_g6597_|
    (##structure
     gx#syntax-quote::t
     'http-request::t
     #f
     (gx#current-expander-context)
     '()))
  (define |std/net/httpd/handler[1]#_g6598_|
    (##structure
     gx#syntax-quote::t
     'make-http-request
     #f
     (gx#current-expander-context)
     '()))
  (define |std/net/httpd/handler[1]#_g6599_|
    (##structure
     gx#syntax-quote::t
     'http-request?
     #f
     (gx#current-expander-context)
     '()))
  (define |std/net/httpd/handler[1]#_g6600_|
    (##structure
     gx#syntax-quote::t
     'http-request-buf
     #f
     (gx#current-expander-context)
     '()))
  (define |std/net/httpd/handler[1]#_g6601_|
    (##structure
     gx#syntax-quote::t
     'http-request-client
     #f
     (gx#current-expander-context)
     '()))
  (define |std/net/httpd/handler[1]#_g6602_|
    (##structure
     gx#syntax-quote::t
     'http-request-method
     #f
     (gx#current-expander-context)
     '()))
  (define |std/net/httpd/handler[1]#_g6603_|
    (##structure
     gx#syntax-quote::t
     'http-request-url
     #f
     (gx#current-expander-context)
     '()))
  (define |std/net/httpd/handler[1]#_g6604_|
    (##structure
     gx#syntax-quote::t
     'http-request-path
     #f
     (gx#current-expander-context)
     '()))
  (define |std/net/httpd/handler[1]#_g6605_|
    (##structure
     gx#syntax-quote::t
     'http-request-params
     #f
     (gx#current-expander-context)
     '()))
  (define |std/net/httpd/handler[1]#_g6606_|
    (##structure
     gx#syntax-quote::t
     'http-request-proto
     #f
     (gx#current-expander-context)
     '()))
  (define |std/net/httpd/handler[1]#_g6607_|
    (##structure
     gx#syntax-quote::t
     'http-request-headers
     #f
     (gx#current-expander-context)
     '()))
  (define |std/net/httpd/handler[1]#_g6608_|
    (##structure
     gx#syntax-quote::t
     'http-request-data
     #f
     (gx#current-expander-context)
     '()))
  (define |std/net/httpd/handler[1]#_g6609_|
    (##structure
     gx#syntax-quote::t
     'http-request-buf-set!
     #f
     (gx#current-expander-context)
     '()))
  (define |std/net/httpd/handler[1]#_g6610_|
    (##structure
     gx#syntax-quote::t
     'http-request-client-set!
     #f
     (gx#current-expander-context)
     '()))
  (define |std/net/httpd/handler[1]#_g6611_|
    (##structure
     gx#syntax-quote::t
     'http-request-method-set!
     #f
     (gx#current-expander-context)
     '()))
  (define |std/net/httpd/handler[1]#_g6612_|
    (##structure
     gx#syntax-quote::t
     'http-request-url-set!
     #f
     (gx#current-expander-context)
     '()))
  (define |std/net/httpd/handler[1]#_g6613_|
    (##structure
     gx#syntax-quote::t
     'http-request-path-set!
     #f
     (gx#current-expander-context)
     '()))
  (define |std/net/httpd/handler[1]#_g6614_|
    (##structure
     gx#syntax-quote::t
     'http-request-params-set!
     #f
     (gx#current-expander-context)
     '()))
  (define |std/net/httpd/handler[1]#_g6615_|
    (##structure
     gx#syntax-quote::t
     'http-request-proto-set!
     #f
     (gx#current-expander-context)
     '()))
  (define |std/net/httpd/handler[1]#_g6616_|
    (##structure
     gx#syntax-quote::t
     'http-request-headers-set!
     #f
     (gx#current-expander-context)
     '()))
  (define |std/net/httpd/handler[1]#_g6617_|
    (##structure
     gx#syntax-quote::t
     'http-request-data-set!
     #f
     (gx#current-expander-context)
     '()))
  (define |std/net/httpd/handler[1]#_g6618_|
    (##structure
     gx#syntax-quote::t
     'http-response::t
     #f
     (gx#current-expander-context)
     '()))
  (define |std/net/httpd/handler[1]#_g6619_|
    (##structure
     gx#syntax-quote::t
     'make-http-response
     #f
     (gx#current-expander-context)
     '()))
  (define |std/net/httpd/handler[1]#_g6620_|
    (##structure
     gx#syntax-quote::t
     'http-response?
     #f
     (gx#current-expander-context)
     '()))
  (define |std/net/httpd/handler[1]#_g6621_|
    (##structure
     gx#syntax-quote::t
     'http-response-buf
     #f
     (gx#current-expander-context)
     '()))
  (define |std/net/httpd/handler[1]#_g6622_|
    (##structure
     gx#syntax-quote::t
     'http-response-output
     #f
     (gx#current-expander-context)
     '()))
  (define |std/net/httpd/handler[1]#_g6623_|
    (##structure
     gx#syntax-quote::t
     'http-response-close?
     #f
     (gx#current-expander-context)
     '()))
  (define |std/net/httpd/handler[1]#_g6624_|
    (##structure
     gx#syntax-quote::t
     'http-response-buf-set!
     #f
     (gx#current-expander-context)
     '()))
  (define |std/net/httpd/handler[1]#_g6625_|
    (##structure
     gx#syntax-quote::t
     'http-response-output-set!
     #f
     (gx#current-expander-context)
     '()))
  (define |std/net/httpd/handler[1]#_g6626_|
    (##structure
     gx#syntax-quote::t
     'http-response-close?-set!
     #f
     (gx#current-expander-context)
     '()))
  (begin
    (define |std/net/httpd/handler[:0:]#http-request|
      (|gerbil/core$<MOP>$<MOP:2>[1]#make-extended-struct-info|
       'runtime-identifier:
       |std/net/httpd/handler[1]#_g6597_|
       'expander-identifiers:
       (cons '#f
             (cons |std/net/httpd/handler[1]#_g6597_|
                   (cons |std/net/httpd/handler[1]#_g6598_|
                         (cons |std/net/httpd/handler[1]#_g6599_|
                               (cons (cons |std/net/httpd/handler[1]#_g6600_|
                                           (cons |std/net/httpd/handler[1]#_g6601_|
                                                 (cons |std/net/httpd/handler[1]#_g6602_|
                                                       (cons |std/net/httpd/handler[1]#_g6603_|
                                                             (cons |std/net/httpd/handler[1]#_g6604_|
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                           (cons |std/net/httpd/handler[1]#_g6605_|
                                 (cons |std/net/httpd/handler[1]#_g6606_|
                                       (cons |std/net/httpd/handler[1]#_g6607_|
                                             (cons |std/net/httpd/handler[1]#_g6608_|
                                                   '())))))))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                     (cons (cons |std/net/httpd/handler[1]#_g6609_|
                                                 (cons |std/net/httpd/handler[1]#_g6610_|
                                                       (cons |std/net/httpd/handler[1]#_g6611_|
                                                             (cons |std/net/httpd/handler[1]#_g6612_|
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                           (cons |std/net/httpd/handler[1]#_g6613_|
                                 (cons |std/net/httpd/handler[1]#_g6614_|
                                       (cons |std/net/httpd/handler[1]#_g6615_|
                                             (cons |std/net/httpd/handler[1]#_g6616_|
                                                   (cons |std/net/httpd/handler[1]#_g6617_|
                                                         '())))))))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                           '()))))))
       'type-exhibitor:
       (|gerbil/core$<MOP>$<MOP:2>[1]#make-runtime-struct-exhibitor|
        '#f
        '#f
        'http-request
        '#f
        '((final: . #t))
        '(buf client method url path params proto headers data))))
    (define |std/net/httpd/handler[:0:]#http-response|
      (|gerbil/core$<MOP>$<MOP:2>[1]#make-extended-struct-info|
       'runtime-identifier:
       |std/net/httpd/handler[1]#_g6618_|
       'expander-identifiers:
       (cons '#f
             (cons |std/net/httpd/handler[1]#_g6618_|
                   (cons |std/net/httpd/handler[1]#_g6619_|
                         (cons |std/net/httpd/handler[1]#_g6620_|
                               (cons (cons |std/net/httpd/handler[1]#_g6621_|
                                           (cons |std/net/httpd/handler[1]#_g6622_|
                                                 (cons |std/net/httpd/handler[1]#_g6623_|
                                                       '())))
                                     (cons (cons |std/net/httpd/handler[1]#_g6624_|
                                                 (cons |std/net/httpd/handler[1]#_g6625_|
                                                       (cons |std/net/httpd/handler[1]#_g6626_|
                                                             '())))
                                           '()))))))
       'type-exhibitor:
       (|gerbil/core$<MOP>$<MOP:2>[1]#make-runtime-struct-exhibitor|
        '#f
        '#f
        'http-response
        '#f
        '((final: . #t))
        '(buf output close?))))
    (define |std/net/httpd/handler[:0:]#defsetter|
      (lambda (_$stx436_)
        (let* ((_g440465_
                (lambda (_g441461_)
                  (gx#raise-syntax-error '#f '"Bad syntax" _g441461_)))
               (_g439548_
                (lambda (_g441469_)
                  (if (gx#stx-pair? _g441469_)
                      (let ((_e445472_ (gx#syntax-e _g441469_)))
                        (let ((_hd446476_
                               (let () (declare (not safe)) (##car _e445472_)))
                              (_tl447479_
                               (let ()
                                 (declare (not safe))
                                 (##cdr _e445472_))))
                          (if (gx#stx-pair? _tl447479_)
                              (let ((_e448482_ (gx#syntax-e _tl447479_)))
                                (let ((_hd449486_
                                       (let ()
                                         (declare (not safe))
                                         (##car _e448482_)))
                                      (_tl450489_
                                       (let ()
                                         (declare (not safe))
                                         (##cdr _e448482_))))
                                  (if (gx#stx-pair? _hd449486_)
                                      (let ((_e451492_
                                             (gx#syntax-e _hd449486_)))
                                        (let ((_hd452496_
                                               (let ()
                                                 (declare (not safe))
                                                 (##car _e451492_)))
                                              (_tl453499_
                                               (let ()
                                                 (declare (not safe))
                                                 (##cdr _e451492_))))
                                          (if (gx#stx-pair? _tl453499_)
                                              (let ((_e454502_
                                                     (gx#syntax-e _tl453499_)))
                                                (let ((_hd455506_
                                                       (let ()
                                                         (declare (not safe))
                                                         (##car _e454502_)))
                                                      (_tl456509_
                                                       (let ()
                                                         (declare (not safe))
                                                         (##cdr _e454502_))))
                                                  (if (gx#stx-null? _tl456509_)
                                                      (if (gx#stx-pair?
                                                           _tl450489_)
                                                          (let ((_e457512_
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                         (gx#syntax-e _tl450489_)))
                    (let ((_hd458516_
                           (let () (declare (not safe)) (##car _e457512_)))
                          (_tl459519_
                           (let () (declare (not safe)) (##cdr _e457512_))))
                      (if (gx#stx-null? _tl459519_)
                          ((lambda (_L522_ _L524_ _L525_)
                             (cons (gx#datum->syntax '#f 'def)
                                   (cons (cons _L525_
                                               (cons (gx#datum->syntax
                                                      '#f
                                                      'val)
                                                     '()))
                                         (cons (cons (gx#datum->syntax '#f 'if)
                                                     (cons (cons (gx#datum->syntax
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                          '#f
                          '?)
                         (cons _L522_ (cons (gx#datum->syntax '#f 'val) '())))
                   (cons (cons (gx#datum->syntax '#f 'set!)
                               (cons _L524_
                                     (cons (gx#datum->syntax '#f 'val) '())))
                         (cons (cons (gx#datum->syntax '#f 'error)
                                     (cons '"Cannot set httpd parameter; Bad argument"
                                           (cons (gx#datum->syntax '#f 'val)
                                                 '())))
                               '()))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                               '()))))
                           _hd458516_
                           _hd455506_
                           _hd452496_)
                          (_g440465_ _g441469_))))
                  (_g440465_ _g441469_))
              (_g440465_ _g441469_))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                              (_g440465_ _g441469_))))
                                      (_g440465_ _g441469_))))
                              (_g440465_ _g441469_))))
                      (_g440465_ _g441469_)))))
          (_g439548_ _$stx436_))))))
