(declare (block) (standard-bindings) (extended-bindings))
(begin
  (define std/actor/rpc/base#!rpc-protocol::t
    (make-struct-type
     'std/actor/rpc/base#!rpc-protocol::t
     '#f
     '2
     '!rpc-protocol
     '()
     '#f
     '(connect accept)))
  (define std/actor/rpc/base#!rpc-protocol?
    (make-struct-predicate std/actor/rpc/base#!rpc-protocol::t))
  (define std/actor/rpc/base#make-!rpc-protocol
    (lambda _$args5126_
      (apply make-struct-instance
             std/actor/rpc/base#!rpc-protocol::t
             _$args5126_)))
  (define std/actor/rpc/base#!rpc-protocol-connect
    (make-struct-field-accessor std/actor/rpc/base#!rpc-protocol::t '0))
  (define std/actor/rpc/base#!rpc-protocol-accept
    (make-struct-field-accessor std/actor/rpc/base#!rpc-protocol::t '1))
  (define std/actor/rpc/base#!rpc-protocol-connect-set!
    (make-struct-field-mutator std/actor/rpc/base#!rpc-protocol::t '0))
  (define std/actor/rpc/base#!rpc-protocol-accept-set!
    (make-struct-field-mutator std/actor/rpc/base#!rpc-protocol::t '1))
  (define std/actor/rpc/base#xdr-read-uuid
    (lambda (_buffer5122_)
      (let ((_bytes5124_ (make-u8vector std/misc/uuid#uuid-length)))
        (std/net/bio/input#bio-read-bytes _bytes5124_ _buffer5122_)
        (let ()
          (declare (not safe))
          (##structure std/misc/uuid#uuid::t _bytes5124_ '#f)))))
  (define std/actor/rpc/base#xdr-write-uuid
    (lambda (_obj5119_ _buffer5120_)
      (std/net/bio/output#bio-write-subu8vector
       (##direct-structure-ref _obj5119_ '1 std/misc/uuid#uuid::t '#f)
       '0
       std/misc/uuid#uuid-length
       _buffer5120_)))
  (table-set!
   std/actor/xdr#+xdr-default-type-registry+
   (let () (declare (not safe)) (##type-id std/misc/uuid#uuid::t))
   (let ()
     (declare (not safe))
     (##structure
      std/actor/xdr#XDR::t
      std/actor/rpc/base#xdr-read-uuid
      std/actor/rpc/base#xdr-write-uuid)))
  (table-set!
   std/actor/xdr#+xdr-default-type-registry+
   (let () (declare (not safe)) (##type-id std/actor/message#actor-error::t))
   (let ((__tmp10816
          (lambda (_buffer5116_)
            (std/actor/xdr#xdr-read-struct
             std/actor/message#actor-error::t
             _buffer5116_))))
     (declare (not safe))
     (##structure
      std/actor/xdr#XDR::t
      __tmp10816
      std/actor/xdr#xdr-write-struct)))
  (table-set!
   std/actor/xdr#+xdr-default-type-registry+
   (let () (declare (not safe)) (##type-id std/actor/proto#remote-error::t))
   (let ((__tmp10817
          (lambda (_buffer5113_)
            (std/actor/xdr#xdr-read-struct
             std/actor/proto#remote-error::t
             _buffer5113_))))
     (declare (not safe))
     (##structure
      std/actor/xdr#XDR::t
      __tmp10817
      std/actor/xdr#xdr-write-struct)))
  (table-set!
   std/actor/xdr#+xdr-default-type-registry+
   (let () (declare (not safe)) (##type-id std/actor/proto#rpc-error::t))
   (let ((__tmp10818
          (lambda (_buffer5110_)
            (std/actor/xdr#xdr-read-struct
             std/actor/proto#rpc-error::t
             _buffer5110_))))
     (declare (not safe))
     (##structure
      std/actor/xdr#XDR::t
      __tmp10818
      std/actor/xdr#xdr-write-struct)))
  (define std/actor/rpc/base#rpc::proto
    (let ((__tmp10819 (hash-copy std/actor/xdr#+xdr-default-type-registry+)))
      (declare (not safe))
      (##structure
       std/actor/proto#!protocol::t
       'std/actor#rpc
       '()
       __tmp10819)))
  (define std/actor/rpc/base#rpc.connect::t
    (make-struct-type
     'std/actor#rpc.connect::t
     '#f
     '3
     'rpc.connect
     '((final: . #t))
     '#f
     '(id address proto)))
  (define std/actor/rpc/base#rpc.connect?
    (make-struct-predicate std/actor/rpc/base#rpc.connect::t))
  (define std/actor/rpc/base#make-rpc.connect
    (lambda _$args5107_
      (apply make-struct-instance
             std/actor/rpc/base#rpc.connect::t
             _$args5107_)))
  (define std/actor/rpc/base#rpc.connect-id
    (make-struct-field-accessor std/actor/rpc/base#rpc.connect::t '0))
  (define std/actor/rpc/base#rpc.connect-address
    (make-struct-field-accessor std/actor/rpc/base#rpc.connect::t '1))
  (define std/actor/rpc/base#rpc.connect-proto
    (make-struct-field-accessor std/actor/rpc/base#rpc.connect::t '2))
  (define std/actor/rpc/base#rpc.connect-id-set!
    (make-struct-field-mutator std/actor/rpc/base#rpc.connect::t '0))
  (define std/actor/rpc/base#rpc.connect-address-set!
    (make-struct-field-mutator std/actor/rpc/base#rpc.connect::t '1))
  (define std/actor/rpc/base#rpc.connect-proto-set!
    (make-struct-field-mutator std/actor/rpc/base#rpc.connect::t '2))
  (define std/actor/rpc/base#xdr-rpc.connect-read
    (lambda (_buffer5105_)
      (std/actor/xdr#xdr-read-struct
       std/actor/rpc/base#rpc.connect::t
       _buffer5105_)))
  (define std/actor/rpc/base#xdr-rpc.connect-write
    (lambda (_obj5102_ _buffer5103_)
      (std/actor/xdr#xdr-write-struct _obj5102_ _buffer5103_)))
  (define std/actor/rpc/base#rpc.connect::xdr
    (let ()
      (declare (not safe))
      (##structure
       std/actor/xdr#XDR::t
       std/actor/rpc/base#xdr-rpc.connect-read
       std/actor/rpc/base#xdr-rpc.connect-write)))
  (table-set!
   (##direct-structure-ref
    std/actor/rpc/base#rpc::proto
    '3
    std/actor/proto#!protocol::t
    '#f)
   'std/actor#rpc.connect::t
   std/actor/rpc/base#rpc.connect::xdr)
  (define std/actor/rpc/base#rpc.register::t
    (make-struct-type
     'std/actor#rpc.register::t
     '#f
     '2
     'rpc.register
     '((final: . #t))
     '#f
     '(id proto)))
  (define std/actor/rpc/base#rpc.register?
    (make-struct-predicate std/actor/rpc/base#rpc.register::t))
  (define std/actor/rpc/base#make-rpc.register
    (lambda _$args5099_
      (apply make-struct-instance
             std/actor/rpc/base#rpc.register::t
             _$args5099_)))
  (define std/actor/rpc/base#rpc.register-id
    (make-struct-field-accessor std/actor/rpc/base#rpc.register::t '0))
  (define std/actor/rpc/base#rpc.register-proto
    (make-struct-field-accessor std/actor/rpc/base#rpc.register::t '1))
  (define std/actor/rpc/base#rpc.register-id-set!
    (make-struct-field-mutator std/actor/rpc/base#rpc.register::t '0))
  (define std/actor/rpc/base#rpc.register-proto-set!
    (make-struct-field-mutator std/actor/rpc/base#rpc.register::t '1))
  (define std/actor/rpc/base#xdr-rpc.register-read
    (lambda (_buffer5097_)
      (std/actor/xdr#xdr-read-struct
       std/actor/rpc/base#rpc.register::t
       _buffer5097_)))
  (define std/actor/rpc/base#xdr-rpc.register-write
    (lambda (_obj5094_ _buffer5095_)
      (std/actor/xdr#xdr-write-struct _obj5094_ _buffer5095_)))
  (define std/actor/rpc/base#rpc.register::xdr
    (let ()
      (declare (not safe))
      (##structure
       std/actor/xdr#XDR::t
       std/actor/rpc/base#xdr-rpc.register-read
       std/actor/rpc/base#xdr-rpc.register-write)))
  (table-set!
   (##direct-structure-ref
    std/actor/rpc/base#rpc::proto
    '3
    std/actor/proto#!protocol::t
    '#f)
   'std/actor#rpc.register::t
   std/actor/rpc/base#rpc.register::xdr)
  (define std/actor/rpc/base#rpc.unregister::t
    (make-struct-type
     'std/actor#rpc.unregister::t
     '#f
     '1
     'rpc.unregister
     '((final: . #t))
     '#f
     '(id)))
  (define std/actor/rpc/base#rpc.unregister?
    (make-struct-predicate std/actor/rpc/base#rpc.unregister::t))
  (define std/actor/rpc/base#make-rpc.unregister
    (lambda _$args5091_
      (apply make-struct-instance
             std/actor/rpc/base#rpc.unregister::t
             _$args5091_)))
  (define std/actor/rpc/base#rpc.unregister-id
    (make-struct-field-accessor std/actor/rpc/base#rpc.unregister::t '0))
  (define std/actor/rpc/base#rpc.unregister-id-set!
    (make-struct-field-mutator std/actor/rpc/base#rpc.unregister::t '0))
  (define std/actor/rpc/base#xdr-rpc.unregister-read
    (lambda (_buffer5089_)
      (std/actor/xdr#xdr-read-struct
       std/actor/rpc/base#rpc.unregister::t
       _buffer5089_)))
  (define std/actor/rpc/base#xdr-rpc.unregister-write
    (lambda (_obj5086_ _buffer5087_)
      (std/actor/xdr#xdr-write-struct _obj5086_ _buffer5087_)))
  (define std/actor/rpc/base#rpc.unregister::xdr
    (let ()
      (declare (not safe))
      (##structure
       std/actor/xdr#XDR::t
       std/actor/rpc/base#xdr-rpc.unregister-read
       std/actor/rpc/base#xdr-rpc.unregister-write)))
  (table-set!
   (##direct-structure-ref
    std/actor/rpc/base#rpc::proto
    '3
    std/actor/proto#!protocol::t
    '#f)
   'std/actor#rpc.unregister::t
   std/actor/rpc/base#rpc.unregister::xdr)
  (define std/actor/rpc/base#rpc.resolve::t
    (make-struct-type
     'std/actor#rpc.resolve::t
     '#f
     '1
     'rpc.resolve
     '((final: . #t))
     '#f
     '(id)))
  (define std/actor/rpc/base#rpc.resolve?
    (make-struct-predicate std/actor/rpc/base#rpc.resolve::t))
  (define std/actor/rpc/base#make-rpc.resolve
    (lambda _$args5083_
      (apply make-struct-instance
             std/actor/rpc/base#rpc.resolve::t
             _$args5083_)))
  (define std/actor/rpc/base#rpc.resolve-id
    (make-struct-field-accessor std/actor/rpc/base#rpc.resolve::t '0))
  (define std/actor/rpc/base#rpc.resolve-id-set!
    (make-struct-field-mutator std/actor/rpc/base#rpc.resolve::t '0))
  (define std/actor/rpc/base#xdr-rpc.resolve-read
    (lambda (_buffer5081_)
      (std/actor/xdr#xdr-read-struct
       std/actor/rpc/base#rpc.resolve::t
       _buffer5081_)))
  (define std/actor/rpc/base#xdr-rpc.resolve-write
    (lambda (_obj5078_ _buffer5079_)
      (std/actor/xdr#xdr-write-struct _obj5078_ _buffer5079_)))
  (define std/actor/rpc/base#rpc.resolve::xdr
    (let ()
      (declare (not safe))
      (##structure
       std/actor/xdr#XDR::t
       std/actor/rpc/base#xdr-rpc.resolve-read
       std/actor/rpc/base#xdr-rpc.resolve-write)))
  (table-set!
   (##direct-structure-ref
    std/actor/rpc/base#rpc::proto
    '3
    std/actor/proto#!protocol::t
    '#f)
   'std/actor#rpc.resolve::t
   std/actor/rpc/base#rpc.resolve::xdr)
  (define std/actor/rpc/base#rpc.server-address::t
    (make-struct-type
     'std/actor#rpc.server-address::t
     '#f
     '0
     'rpc.server-address
     '((final: . #t))
     '#f
     '()))
  (define std/actor/rpc/base#rpc.server-address?
    (make-struct-predicate std/actor/rpc/base#rpc.server-address::t))
  (define std/actor/rpc/base#make-rpc.server-address
    (lambda _$args5075_
      (apply make-struct-instance
             std/actor/rpc/base#rpc.server-address::t
             _$args5075_)))
  (define std/actor/rpc/base#xdr-rpc.server-address-read
    (lambda (_buffer5073_)
      (std/actor/xdr#xdr-read-struct
       std/actor/rpc/base#rpc.server-address::t
       _buffer5073_)))
  (define std/actor/rpc/base#xdr-rpc.server-address-write
    (lambda (_obj5070_ _buffer5071_)
      (std/actor/xdr#xdr-write-struct _obj5070_ _buffer5071_)))
  (define std/actor/rpc/base#rpc.server-address::xdr
    (let ()
      (declare (not safe))
      (##structure
       std/actor/xdr#XDR::t
       std/actor/rpc/base#xdr-rpc.server-address-read
       std/actor/rpc/base#xdr-rpc.server-address-write)))
  (table-set!
   (##direct-structure-ref
    std/actor/rpc/base#rpc::proto
    '3
    std/actor/proto#!protocol::t
    '#f)
   'std/actor#rpc.server-address::t
   std/actor/rpc/base#rpc.server-address::xdr)
  (define std/actor/rpc/base#rpc.connection-accept::t
    (make-struct-type
     'std/actor#rpc.connection-accept::t
     '#f
     '2
     'rpc.connection-accept
     '((final: . #t))
     '#f
     '(sock sa)))
  (define std/actor/rpc/base#rpc.connection-accept?
    (make-struct-predicate std/actor/rpc/base#rpc.connection-accept::t))
  (define std/actor/rpc/base#make-rpc.connection-accept
    (lambda _$args5067_
      (apply make-struct-instance
             std/actor/rpc/base#rpc.connection-accept::t
             _$args5067_)))
  (define std/actor/rpc/base#rpc.connection-accept-sock
    (make-struct-field-accessor
     std/actor/rpc/base#rpc.connection-accept::t
     '0))
  (define std/actor/rpc/base#rpc.connection-accept-sa
    (make-struct-field-accessor
     std/actor/rpc/base#rpc.connection-accept::t
     '1))
  (define std/actor/rpc/base#rpc.connection-accept-sock-set!
    (make-struct-field-mutator std/actor/rpc/base#rpc.connection-accept::t '0))
  (define std/actor/rpc/base#rpc.connection-accept-sa-set!
    (make-struct-field-mutator std/actor/rpc/base#rpc.connection-accept::t '1))
  (define std/actor/rpc/base#xdr-rpc.connection-accept-read
    (lambda (_buffer5065_)
      (std/actor/xdr#xdr-read-struct
       std/actor/rpc/base#rpc.connection-accept::t
       _buffer5065_)))
  (define std/actor/rpc/base#xdr-rpc.connection-accept-write
    (lambda (_obj5062_ _buffer5063_)
      (std/actor/xdr#xdr-write-struct _obj5062_ _buffer5063_)))
  (define std/actor/rpc/base#rpc.connection-accept::xdr
    (let ()
      (declare (not safe))
      (##structure
       std/actor/xdr#XDR::t
       std/actor/rpc/base#xdr-rpc.connection-accept-read
       std/actor/rpc/base#xdr-rpc.connection-accept-write)))
  (table-set!
   (##direct-structure-ref
    std/actor/rpc/base#rpc::proto
    '3
    std/actor/proto#!protocol::t
    '#f)
   'std/actor#rpc.connection-accept::t
   std/actor/rpc/base#rpc.connection-accept::xdr)
  (define std/actor/rpc/base#rpc.connection-shutdown::t
    (make-struct-type
     'std/actor#rpc.connection-shutdown::t
     '#f
     '0
     'rpc.connection-shutdown
     '((final: . #t))
     '#f
     '()))
  (define std/actor/rpc/base#rpc.connection-shutdown?
    (make-struct-predicate std/actor/rpc/base#rpc.connection-shutdown::t))
  (define std/actor/rpc/base#make-rpc.connection-shutdown
    (lambda _$args5059_
      (apply make-struct-instance
             std/actor/rpc/base#rpc.connection-shutdown::t
             _$args5059_)))
  (define std/actor/rpc/base#xdr-rpc.connection-shutdown-read
    (lambda (_buffer5057_)
      (std/actor/xdr#xdr-read-struct
       std/actor/rpc/base#rpc.connection-shutdown::t
       _buffer5057_)))
  (define std/actor/rpc/base#xdr-rpc.connection-shutdown-write
    (lambda (_obj5054_ _buffer5055_)
      (std/actor/xdr#xdr-write-struct _obj5054_ _buffer5055_)))
  (define std/actor/rpc/base#rpc.connection-shutdown::xdr
    (let ()
      (declare (not safe))
      (##structure
       std/actor/xdr#XDR::t
       std/actor/rpc/base#xdr-rpc.connection-shutdown-read
       std/actor/rpc/base#xdr-rpc.connection-shutdown-write)))
  (table-set!
   (##direct-structure-ref
    std/actor/rpc/base#rpc::proto
    '3
    std/actor/proto#!protocol::t
    '#f)
   'std/actor#rpc.connection-shutdown::t
   std/actor/rpc/base#rpc.connection-shutdown::xdr)
  (define std/actor/rpc/base#rpc.connection-close::t
    (make-struct-type
     'std/actor#rpc.connection-close::t
     '#f
     '0
     'rpc.connection-close
     '((final: . #t))
     '#f
     '()))
  (define std/actor/rpc/base#rpc.connection-close?
    (make-struct-predicate std/actor/rpc/base#rpc.connection-close::t))
  (define std/actor/rpc/base#make-rpc.connection-close
    (lambda _$args5051_
      (apply make-struct-instance
             std/actor/rpc/base#rpc.connection-close::t
             _$args5051_)))
  (define std/actor/rpc/base#xdr-rpc.connection-close-read
    (lambda (_buffer5049_)
      (std/actor/xdr#xdr-read-struct
       std/actor/rpc/base#rpc.connection-close::t
       _buffer5049_)))
  (define std/actor/rpc/base#xdr-rpc.connection-close-write
    (lambda (_obj5046_ _buffer5047_)
      (std/actor/xdr#xdr-write-struct _obj5046_ _buffer5047_)))
  (define std/actor/rpc/base#rpc.connection-close::xdr
    (let ()
      (declare (not safe))
      (##structure
       std/actor/xdr#XDR::t
       std/actor/rpc/base#xdr-rpc.connection-close-read
       std/actor/rpc/base#xdr-rpc.connection-close-write)))
  (table-set!
   (##direct-structure-ref
    std/actor/rpc/base#rpc::proto
    '3
    std/actor/proto#!protocol::t
    '#f)
   'std/actor#rpc.connection-close::t
   std/actor/rpc/base#rpc.connection-close::xdr)
  (define std/actor/rpc/base#rpc.monitor::t
    (make-struct-type
     'std/actor#rpc.monitor::t
     '#f
     '1
     'rpc.monitor
     '((final: . #t))
     '#f
     '(remote)))
  (define std/actor/rpc/base#rpc.monitor?
    (make-struct-predicate std/actor/rpc/base#rpc.monitor::t))
  (define std/actor/rpc/base#make-rpc.monitor
    (lambda _$args5043_
      (apply make-struct-instance
             std/actor/rpc/base#rpc.monitor::t
             _$args5043_)))
  (define std/actor/rpc/base#rpc.monitor-remote
    (make-struct-field-accessor std/actor/rpc/base#rpc.monitor::t '0))
  (define std/actor/rpc/base#rpc.monitor-remote-set!
    (make-struct-field-mutator std/actor/rpc/base#rpc.monitor::t '0))
  (define std/actor/rpc/base#xdr-rpc.monitor-read
    (lambda (_buffer5041_)
      (std/actor/xdr#xdr-read-struct
       std/actor/rpc/base#rpc.monitor::t
       _buffer5041_)))
  (define std/actor/rpc/base#xdr-rpc.monitor-write
    (lambda (_obj5038_ _buffer5039_)
      (std/actor/xdr#xdr-write-struct _obj5038_ _buffer5039_)))
  (define std/actor/rpc/base#rpc.monitor::xdr
    (let ()
      (declare (not safe))
      (##structure
       std/actor/xdr#XDR::t
       std/actor/rpc/base#xdr-rpc.monitor-read
       std/actor/rpc/base#xdr-rpc.monitor-write)))
  (table-set!
   (##direct-structure-ref
    std/actor/rpc/base#rpc::proto
    '3
    std/actor/proto#!protocol::t
    '#f)
   'std/actor#rpc.monitor::t
   std/actor/rpc/base#rpc.monitor::xdr)
  (define std/actor/rpc/base#rpc.unmonitor::t
    (make-struct-type
     'std/actor#rpc.unmonitor::t
     '#f
     '1
     'rpc.unmonitor
     '((final: . #t))
     '#f
     '(remote)))
  (define std/actor/rpc/base#rpc.unmonitor?
    (make-struct-predicate std/actor/rpc/base#rpc.unmonitor::t))
  (define std/actor/rpc/base#make-rpc.unmonitor
    (lambda _$args5035_
      (apply make-struct-instance
             std/actor/rpc/base#rpc.unmonitor::t
             _$args5035_)))
  (define std/actor/rpc/base#rpc.unmonitor-remote
    (make-struct-field-accessor std/actor/rpc/base#rpc.unmonitor::t '0))
  (define std/actor/rpc/base#rpc.unmonitor-remote-set!
    (make-struct-field-mutator std/actor/rpc/base#rpc.unmonitor::t '0))
  (define std/actor/rpc/base#xdr-rpc.unmonitor-read
    (lambda (_buffer5033_)
      (std/actor/xdr#xdr-read-struct
       std/actor/rpc/base#rpc.unmonitor::t
       _buffer5033_)))
  (define std/actor/rpc/base#xdr-rpc.unmonitor-write
    (lambda (_obj5030_ _buffer5031_)
      (std/actor/xdr#xdr-write-struct _obj5030_ _buffer5031_)))
  (define std/actor/rpc/base#rpc.unmonitor::xdr
    (let ()
      (declare (not safe))
      (##structure
       std/actor/xdr#XDR::t
       std/actor/rpc/base#xdr-rpc.unmonitor-read
       std/actor/rpc/base#xdr-rpc.unmonitor-write)))
  (table-set!
   (##direct-structure-ref
    std/actor/rpc/base#rpc::proto
    '3
    std/actor/proto#!protocol::t
    '#f)
   'std/actor#rpc.unmonitor::t
   std/actor/rpc/base#rpc.unmonitor::xdr)
  (define std/actor/rpc/base#rpc.disconnect::t
    (make-struct-type
     'std/actor#rpc.disconnect::t
     '#f
     '1
     'rpc.disconnect
     '((final: . #t))
     '#f
     '(remote)))
  (define std/actor/rpc/base#rpc.disconnect?
    (make-struct-predicate std/actor/rpc/base#rpc.disconnect::t))
  (define std/actor/rpc/base#make-rpc.disconnect
    (lambda _$args5027_
      (apply make-struct-instance
             std/actor/rpc/base#rpc.disconnect::t
             _$args5027_)))
  (define std/actor/rpc/base#rpc.disconnect-remote
    (make-struct-field-accessor std/actor/rpc/base#rpc.disconnect::t '0))
  (define std/actor/rpc/base#rpc.disconnect-remote-set!
    (make-struct-field-mutator std/actor/rpc/base#rpc.disconnect::t '0))
  (define std/actor/rpc/base#xdr-rpc.disconnect-read
    (lambda (_buffer5025_)
      (std/actor/xdr#xdr-read-struct
       std/actor/rpc/base#rpc.disconnect::t
       _buffer5025_)))
  (define std/actor/rpc/base#xdr-rpc.disconnect-write
    (lambda (_obj5022_ _buffer5023_)
      (std/actor/xdr#xdr-write-struct _obj5022_ _buffer5023_)))
  (define std/actor/rpc/base#rpc.disconnect::xdr
    (let ()
      (declare (not safe))
      (##structure
       std/actor/xdr#XDR::t
       std/actor/rpc/base#xdr-rpc.disconnect-read
       std/actor/rpc/base#xdr-rpc.disconnect-write)))
  (table-set!
   (##direct-structure-ref
    std/actor/rpc/base#rpc::proto
    '3
    std/actor/proto#!protocol::t
    '#f)
   'std/actor#rpc.disconnect::t
   std/actor/rpc/base#rpc.disconnect::xdr)
  (define std/actor/rpc/base#rpc.shutdown::t
    (make-struct-type
     'std/actor#rpc.shutdown::t
     '#f
     '0
     'rpc.shutdown
     '((final: . #t))
     '#f
     '()))
  (define std/actor/rpc/base#rpc.shutdown?
    (make-struct-predicate std/actor/rpc/base#rpc.shutdown::t))
  (define std/actor/rpc/base#make-rpc.shutdown
    (lambda _$args5019_
      (apply make-struct-instance
             std/actor/rpc/base#rpc.shutdown::t
             _$args5019_)))
  (define std/actor/rpc/base#xdr-rpc.shutdown-read
    (lambda (_buffer5017_)
      (std/actor/xdr#xdr-read-struct
       std/actor/rpc/base#rpc.shutdown::t
       _buffer5017_)))
  (define std/actor/rpc/base#xdr-rpc.shutdown-write
    (lambda (_obj5012_ _buffer5014_)
      (std/actor/xdr#xdr-write-struct _obj5012_ _buffer5014_)))
  (define std/actor/rpc/base#rpc.shutdown::xdr
    (let ()
      (declare (not safe))
      (##structure
       std/actor/xdr#XDR::t
       std/actor/rpc/base#xdr-rpc.shutdown-read
       std/actor/rpc/base#xdr-rpc.shutdown-write)))
  (table-set!
   (##direct-structure-ref
    std/actor/rpc/base#rpc::proto
    '3
    std/actor/proto#!protocol::t
    '#f)
   'std/actor#rpc.shutdown::t
   std/actor/rpc/base#rpc.shutdown::xdr)
  (define std/actor/rpc/base#null-uuid
    (std/misc/uuid#u8vector->uuid (make-u8vector std/misc/uuid#uuid-length)))
  (define std/actor/rpc/base#rpc-monitor__%
    (lambda (_thread4992_ _msg4993_)
      (letrec ((_thread-monitor4995_
                (lambda (_server4997_ _thread4998_ _msg4999_)
                  (with-exception-catcher
                   values
                   (lambda () (thread-join! _thread4998_)))
                  (thread-send _server4997_ _msg4999_))))
        (gerbil/gambit/threads#spawn/name
         'rpc-monitor
         _thread-monitor4995_
         (current-thread)
         _thread4992_
         _msg4993_))))
  (define std/actor/rpc/base#rpc-monitor__0
    (lambda (_thread5005_)
      (let ((_msg5007_ _thread5005_))
        (std/actor/rpc/base#rpc-monitor__% _thread5005_ _msg5007_))))
  (define std/actor/rpc/base#rpc-monitor
    (lambda _g10821_
      (let ((_g10820_ (let () (declare (not safe)) (##length _g10821_))))
        (cond ((let () (declare (not safe)) (##fx= _g10820_ 1))
               (apply std/actor/rpc/base#rpc-monitor__0 _g10821_))
              ((let () (declare (not safe)) (##fx= _g10820_ 2))
               (apply std/actor/rpc/base#rpc-monitor__% _g10821_))
              (else
               (##raise-wrong-number-of-arguments-exception
                std/actor/rpc/base#rpc-monitor
                _g10821_))))))
  (define std/actor/rpc/base#make-uuid-table
    (lambda ()
      (make-table 'test: std/misc/uuid#uuid=? 'hash: std/misc/uuid#uuid-hash)))
  (define std/actor/rpc/base#+protocols+ (std/actor/rpc/base#make-uuid-table))
  (define std/actor/rpc/base#bind-protocol!
    (lambda (_id4987_ _proto4988_)
      (if (let ()
            (declare (not safe))
            (##structure-direct-instance-of?
             _proto4988_
             'std/actor/proto#!protocol::t))
          '#!void
          (error '"Bad protocol" _proto4988_))
      (table-set!
       std/actor/rpc/base#+protocols+
       (std/misc/uuid#UUID _id4987_)
       _proto4988_)))
  (define std/actor/rpc/base#lookup-protocol
    (lambda (_uuid4985_)
      (table-ref std/actor/rpc/base#+protocols+ _uuid4985_ '#f)))
  (define std/actor/rpc/base#make-actor-table
    (lambda ()
      (let ((__obj10815 (make-object std/misc/sync#sync-hash::t '2)))
        (std/misc/sync#sync-hash:::init!
         __obj10815
         (std/actor/rpc/base#make-uuid-table))
        __obj10815)))
  (define std/actor/rpc/base#actor-table-put!
    (lambda (_at4979_ _uuid4980_ _actor4981_ _proto4982_)
      (std/misc/sync#sync-hash-put!
       _at4979_
       _uuid4980_
       (values _actor4981_ _proto4982_)))))
