(declare (block) (standard-bindings) (extended-bindings) (inlining-limit 200))
(begin
  (define |std/crypto/hmac[1]#_g4557_|
    (##structure
     gx#syntax-quote::t
     'hmac::t
     #f
     (gx#current-expander-context)
     '()))
  (define |std/crypto/hmac[1]#_g4558_|
    (##structure
     gx#syntax-quote::t
     'make-hmac
     #f
     (gx#current-expander-context)
     '()))
  (define |std/crypto/hmac[1]#_g4559_|
    (##structure
     gx#syntax-quote::t
     'hmac?
     #f
     (gx#current-expander-context)
     '()))
  (define |std/crypto/hmac[1]#_g4560_|
    (##structure
     gx#syntax-quote::t
     'hmac-md
     #f
     (gx#current-expander-context)
     '()))
  (define |std/crypto/hmac[1]#_g4561_|
    (##structure
     gx#syntax-quote::t
     'hmac-ctx
     #f
     (gx#current-expander-context)
     '()))
  (define |std/crypto/hmac[1]#_g4562_|
    (##structure
     gx#syntax-quote::t
     'hmac-md-set!
     #f
     (gx#current-expander-context)
     '()))
  (define |std/crypto/hmac[1]#_g4563_|
    (##structure
     gx#syntax-quote::t
     'hmac-ctx-set!
     #f
     (gx#current-expander-context)
     '()))
  (begin
    (define |std/crypto/hmac[:0:]#hmac|
      (|gerbil/core$<MOP>$<MOP:2>[1]#make-extended-struct-info|
       'runtime-identifier:
       |std/crypto/hmac[1]#_g4557_|
       'expander-identifiers:
       (cons '#f
             (cons |std/crypto/hmac[1]#_g4557_|
                   (cons |std/crypto/hmac[1]#_g4558_|
                         (cons |std/crypto/hmac[1]#_g4559_|
                               (cons (cons |std/crypto/hmac[1]#_g4560_|
                                           (cons |std/crypto/hmac[1]#_g4561_|
                                                 '()))
                                     (cons (cons |std/crypto/hmac[1]#_g4562_|
                                                 (cons |std/crypto/hmac[1]#_g4563_|
                                                       '()))
                                           '()))))))
       'type-exhibitor:
       (|gerbil/core$<MOP>$<MOP:2>[1]#make-runtime-struct-exhibitor|
        'std/crypto#hmac::t
        '#f
        'hmac
        ':init!
        '()
        '(md ctx))))
    (define |std/crypto/hmac[:0:]#define-hmac|
      (lambda (_$stx400_)
        (let* ((_g404422_
                (lambda (_g405418_)
                  (gx#raise-syntax-error '#f '"Bad syntax" _g405418_)))
               (_g403479_
                (lambda (_g405426_)
                  (if (gx#stx-pair? _g405426_)
                      (let ((_e408429_ (gx#syntax-e _g405426_)))
                        (let ((_hd409433_
                               (let () (declare (not safe)) (##car _e408429_)))
                              (_tl410436_
                               (let ()
                                 (declare (not safe))
                                 (##cdr _e408429_))))
                          (if (gx#stx-pair? _tl410436_)
                              (let ((_e411439_ (gx#syntax-e _tl410436_)))
                                (let ((_hd412443_
                                       (let ()
                                         (declare (not safe))
                                         (##car _e411439_)))
                                      (_tl413446_
                                       (let ()
                                         (declare (not safe))
                                         (##cdr _e411439_))))
                                  (if (gx#stx-pair? _tl413446_)
                                      (let ((_e414449_
                                             (gx#syntax-e _tl413446_)))
                                        (let ((_hd415453_
                                               (let ()
                                                 (declare (not safe))
                                                 (##car _e414449_)))
                                              (_tl416456_
                                               (let ()
                                                 (declare (not safe))
                                                 (##cdr _e414449_))))
                                          (if (gx#stx-null? _tl416456_)
                                              ((lambda (_L459_ _L461_)
                                                 (cons (gx#datum->syntax
                                                        '#f
                                                        'def)
                                                       (cons (cons _L461_
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                           (cons (gx#datum->syntax '#f 'key)
                                 (cons (gx#datum->syntax '#f 'bytes)
                                       (cons (cons (gx#datum->syntax
                                                    '#f
                                                    'start)
                                                   (cons '#f '()))
                                             (cons (cons (gx#datum->syntax
                                                          '#f
                                                          'end)
                                                         (cons '#f '()))
                                                   '())))))
                     (cons (cons (gx#datum->syntax '#f 'hmac-digest)
                                 (cons _L459_
                                       (cons (gx#datum->syntax '#f 'key)
                                             (cons (gx#datum->syntax
                                                    '#f
                                                    'bytes)
                                                   (cons (gx#datum->syntax
                                                          '#f
                                                          'start)
                                                         (cons (gx#datum->syntax
                                                                '#f
                                                                'end)
                                                               '()))))))
                           '()))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                               _hd415453_
                                               _hd412443_)
                                              (_g404422_ _g405426_))))
                                      (_g404422_ _g405426_))))
                              (_g404422_ _g405426_))))
                      (_g404422_ _g405426_)))))
          (_g403479_ _$stx400_))))))
