anchor.diff:  	 (add-word-to-phrase phrase-query word)))
      "\""))
   
  +(defprod field-query ()
  +  (^ (word ":" query)
  +     (list :field word query)))
  +
  +(defprod wild-query ()
  +  (^ wild-word (get-wild-query wild-word)))
  +
   (defprod white-space () (/ #\space #\tab #\page))
   
   (defprod word () (non-wild-letter (* non-wild-letter)))
   (defprod any-word () (any-letter (* any-letter)))
   (defprod wild-word () (/ (wild-letter (? any-word))
  -			 (word wild-letter (* any-letter))))
  +			 (word wild-letter (? any-word))))
   
   
   (defchartype any-letter '(satisfies alphanumericp))
  
positive.code:   (append (if (listp phrase) phrase (list phrase)) (list word)))
  (defun get-phrase-query (words)
    (cons :phrase-query words))
        
  
  (defmethod parse ((self query-parser) query)
    (parselet ((parser (^ top-query)))
  
negative.code: 	(get-boolean-clause query :should-occur))))
  
  (defprod query ()
    (/ (^ wild-query)
       (^ field-query)
       (^ term-query)
       (^ phrase-query
  	(get-phrase-query phrase-query))
       ))
  
  (defprod term-query ()
    (^ word (get-term-query word)))
  