anchor.diff:    (with-slots (megaseconds seconds microseconds) time
       (tuple '|bert| '|time| megaseconds seconds microseconds)))
   
  -(defmethod encode ((time bert-time))
  +(defmethod encode ((time bert-time) &key &allow-other-keys)
     (encode (translate-complex-type time)))
   
   
  
positive.code:   (with-slots (source options) regex
      (tuple '|bert| '|regex| (string-to-binary source) options)))
  
  (defmethod encode ((regex bert-regex))
    (encode (translate-complex-type regex)))
  
  
  
negative.code: 
  (defgeneric translate-complex-type (object)
    (:documentation "Translates tuples with the 'bert' tag to corresponding Lisp objects and vice versa."))
  
  (defgeneric encode (object &key berp-header)
    (:documentation "Encodes the BERT-translatable object to a vector of bytes."))
  
  
  (defclass bert-time ()
  