anchor.diff:    (marshal-sequence (object-profiles objref)
                       #'marshal-tagged-component buffer))
   
  -(defmethod marshal-ior ((objref null) buffer)
  -  (marshal-string "" buffer)
  -  (marshal-ulong 0 buffer))
  +
   
   (defun marshal-write-union (union params buffer)
     (let* ((discriminant (union-discriminator union))
  
positive.code: (defun marshal-octet (n buffer)
    (declare (type buffer buffer)
             (optimize (speed 3) (debug 0)))
    (vector-push-extend n (buffer-octets buffer) 200))
  
  (defun marshal-bool (s buffer)
    (marshal-octet (if s 1 0) buffer))
  
negative.code:         (declare (type (integer 0 8) x))
          (vector-push-extend 0 octets) ))))
  
  #-clisp
  (defun marshal-number (n size buffer)
    (declare (fixnum size)
             (integer n)
  