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