anchor.diff:  
   (defmethod add-position ((self document-writer) field text position tv-offset-info)
     (with-slots (term-buffer posting-table) self
  -    (print term-buffer)
       (set-term term-buffer field text)
       (let ((posting (gethash term-buffer posting-table)))
         (if posting
  
positive.code: 					   max-field-length)
  				   (return))))
  			     (when last-token
  			       (incf offset (+ (token-end token) 1))))
  			(close stream)))))
  	    (setf (aref field-lengths field-number) length)
  	    (setf (aref field-positions field-number) position)
  
negative.code: 		       (write-vint freq 0)
  		       (write-vint freq posting-freq)))
  		 (let ((last-position 0))
  		   (dosequence (position (positions posting))
  		     (write-vint prox (- position last-position))
  		     (setf last-position position)))
  		 (let ((term-field (term-field (term posting))))
  		   (when (not (equal current-field term-field))
  		     (setf current-field term-field)
  		     (let ((fi (get-field field-infos current-field)))
  