anchor.diff:  
   
   
  -;;;; unmarshal value
  +;;;; Unmarshal Value
   
   
   (defun unmarshal-value-header (valuetag buffer)
  
positive.code:         (if chunking-p (find-end-of-value))))))
  
  
  (defun unmarshal-value (buffer &optional expected-id)
    (unmarshal-record
     (lambda (buffer) 
       (without-chunking (buffer)
         (let ((valuetag (unmarshal-long buffer)))
           (unless (zerop valuetag)
             (unmarshal-value-1 valuetag buffer expected-id)))))
     buffer))
  
  (defun unmarshal-value-1 (valuetag buffer expected-id)
    (multiple-value-bind (chunked repoid)
                         (unmarshal-value-header valuetag buffer)
      (let (tc symbol truncate)
        (unless repoid
          (setq repoid expected-id))
  
negative.code:   (marshal-record box
                    (lambda (box buffer)
                      (let ((chunking (not (zerop *chunking-level*))))
                        (end-chunk buffer)
                        (marshal-value-header (op:id tc) chunking buffer)
                        (marshal-value-state chunking
                                             (list (box-data box))
                                             (list (op:content_type tc))
  