anchor.diff:  		    (test term-vector-io-add-documents-7 (aref (aref (offsets tv) 0) 0) (t 0 5) #'term-vector-offset-info=)
   		    (test term-vector-io-add-documents-8 (aref (aref (offsets tv) 0) 1) (t 34 39) #'term-vector-offset-info=)
   		    (test term-vector-io-add-documents-9 (aref (aref (offsets tv) 0) 2) (t 45 50) #'term-vector-offset-info=)
  -		    (test term-vector-io-add-documents-10 (aref (terms tv) 1) "word2" #'string=)
  +		    (test term-vector-io-add-documents-10 (aref (terms tv) 1) "woord2" #'string=)
   		    (test term-vector-io-add-documents-11 (aref (term-frequencies tv) 1) 2)
   		    (test term-vector-io-add-documents-12 (aref (aref (positions tv) 1) 0) 2)
   		    (test term-vector-io-add-documents-13 (aref (aref (positions tv) 1) 1) 9)
  
positive.code: 		     (list
  		      (make-instance 'segment-term-vector
  				     :field "field1"
  				     :terms (vector "word1" "word2")
  				     :term-frequencies (vector 3 2)
  				     :positions (vector (vector 1 5 8)
  							(vector 2 9))
  
negative.code: 					   :segment "_test"
  					   :field-infos (fixture-var 'fis))))
  		  (let ((tv (get-field-tv tv-r 0 "field1")))
  		    (print tv)
  		    (test term-vector-io-add-documents-1 (size tv) 2)
  		    (test term-vector-io-add-documents-2 (aref (terms tv) 0) "word1" #'string=)
  		    (test term-vector-io-add-documents-3 (aref (term-frequencies tv) 0) 3)
  