(declare (block) (standard-bindings) (extended-bindings) (inlining-limit 200))
(begin
  (define |std/parser/lexer[1]#_g4750_|
    (##structure
     gx#syntax-quote::t
     'token-stream::t
     #f
     (gx#current-expander-context)
     '()))
  (define |std/parser/lexer[1]#_g4751_|
    (##structure
     gx#syntax-quote::t
     'make-token-stream
     #f
     (gx#current-expander-context)
     '()))
  (define |std/parser/lexer[1]#_g4752_|
    (##structure
     gx#syntax-quote::t
     'token-stream?
     #f
     (gx#current-expander-context)
     '()))
  (define |std/parser/lexer[1]#_g4753_|
    (##structure
     gx#syntax-quote::t
     'token-stream-cs
     #f
     (gx#current-expander-context)
     '()))
  (define |std/parser/lexer[1]#_g4754_|
    (##structure
     gx#syntax-quote::t
     'token-stream-buf
     #f
     (gx#current-expander-context)
     '()))
  (define |std/parser/lexer[1]#_g4755_|
    (##structure
     gx#syntax-quote::t
     'token-stream-Ls
     #f
     (gx#current-expander-context)
     '()))
  (define |std/parser/lexer[1]#_g4756_|
    (##structure
     gx#syntax-quote::t
     'token-stream-Rs
     #f
     (gx#current-expander-context)
     '()))
  (define |std/parser/lexer[1]#_g4757_|
    (##structure
     gx#syntax-quote::t
     'token-stream-$$
     #f
     (gx#current-expander-context)
     '()))
  (define |std/parser/lexer[1]#_g4758_|
    (##structure
     gx#syntax-quote::t
     'token-stream-cs-set!
     #f
     (gx#current-expander-context)
     '()))
  (define |std/parser/lexer[1]#_g4759_|
    (##structure
     gx#syntax-quote::t
     'token-stream-buf-set!
     #f
     (gx#current-expander-context)
     '()))
  (define |std/parser/lexer[1]#_g4760_|
    (##structure
     gx#syntax-quote::t
     'token-stream-Ls-set!
     #f
     (gx#current-expander-context)
     '()))
  (define |std/parser/lexer[1]#_g4761_|
    (##structure
     gx#syntax-quote::t
     'token-stream-Rs-set!
     #f
     (gx#current-expander-context)
     '()))
  (define |std/parser/lexer[1]#_g4762_|
    (##structure
     gx#syntax-quote::t
     'token-stream-$$-set!
     #f
     (gx#current-expander-context)
     '()))
  (define |std/parser/lexer[:0:]#token-stream|
    (|gerbil/core$<MOP>$<MOP:2>[1]#make-extended-struct-info|
     'runtime-identifier:
     |std/parser/lexer[1]#_g4750_|
     'expander-identifiers:
     (cons '#f
           (cons |std/parser/lexer[1]#_g4750_|
                 (cons |std/parser/lexer[1]#_g4751_|
                       (cons |std/parser/lexer[1]#_g4752_|
                             (cons (cons |std/parser/lexer[1]#_g4753_|
                                         (cons |std/parser/lexer[1]#_g4754_|
                                               (cons |std/parser/lexer[1]#_g4755_|
                                                     (cons |std/parser/lexer[1]#_g4756_|
                                                           (cons |std/parser/lexer[1]#_g4757_|
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                         '())))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                   (cons (cons |std/parser/lexer[1]#_g4758_|
                                               (cons |std/parser/lexer[1]#_g4759_|
                                                     (cons |std/parser/lexer[1]#_g4760_|
                                                           (cons |std/parser/lexer[1]#_g4761_|
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                         (cons |std/parser/lexer[1]#_g4762_| '())))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                         '()))))))
     'type-exhibitor:
     (|gerbil/core$<MOP>$<MOP:2>[1]#make-runtime-struct-exhibitor|
      '#f
      '#f
      'token-stream
      '#f
      '((final: . #t))
      '(cs buf Ls Rs $$)))))
