anchor.diff:  	(add-query query (term-query "one") :must-occur)
   	(add-query query (term-query "two") :must-occur)
   	(check-query-results index query '(0 4)))
  +      (check-query-results index "+one +two" '(0 4))
         (let ((query (make-instance 'boolean-query)))
   	(add-query query (term-query "two") :must-occur)
   	(add-query query (term-query "three") :must-occur)
   	(add-query query (term-query "four") :must-occur)
   	(check-query-results index query '(5 7)))
  +      (check-query-results index "+two +three +four" '(5 7))
         (let ((query (make-instance 'boolean-query)))
   	(add-query query (term-query "one") :should-occur)
   	(add-query query (term-query "five") :should-occur)
  -	(check-query-results index query '(0 1 3 4 6 7))))
  +	(check-query-results index query '(0 1 3 4 6 7)))
  +      (check-query-results index "one five" '(0 1 3 4 6 7)))
       (atest index-with-array-2
   	   (document-values (get-document index 7) "def_field")
   	   "two three four five"
  
positive.code:     (atest search-results-correct
  	   (reverse results)
  	   expected
  	   #'set=)))
  
  (defun do-test-index-with-array (index)
    (let ((data '(#("one two")
  
negative.code: 			    :term (make-term (slot-value index 'default-search-field)
  					     term))))
        (check-query-results index (term-query "one") '(0 1 3 4 6))
        (check-query-results index "one" '(0 1 3 4 6))
        (let ((query (make-instance 'boolean-query)))
  	(add-query query (term-query "one") :must-occur)
  	(check-query-results index query '(0 1 3 4 6)))
        (check-query-results index "+one" '(0 1 3 4 6))
        (let ((query (make-instance 'boolean-query)))
  	(add-query query (term-query "one") :should-occur)
  	(check-query-results index query '(0 1 3 4 6)))
  