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: 				   (progn
  				     (add-position self
  						   field-name
  						   (token-text token)
  						   position
  						   (make-instance 'term-vector-offset-info
  								  :start-offset (+ offset (token-start token))
  
negative.code: 	    (setf (gethash term posting-table) (make-instance 'posting
  							      :term term
  							      :position position
  							      :offset tv-offset-info)))))))
  
  (defmethod sort-posting-table ((self document-writer))
    (with-slots (posting-table) self
      (let ((postings (coerce (loop for posting being the hash-values in posting-table
  				 collect posting)
  			    'vector)))
        (setf postings (sort postings #'term< :key #'term)))))
  
  (defmethod write-postings ((self document-writer) postings segment)
    (with-slots (directory field-infos term-index-interval) self
  