anchor.diff:    (append (if (listp phrase) phrase (list phrase)) (list word)))
   (defun get-phrase-query (words)
     (cons :phrase-query words))
  -      
  +(defun get-wild-query (word)
  +  (list :wild-query word))
   
   (defmethod parse ((self query-parser) query)
     (parselet ((parser (^ top-query)))
  
positive.code: 	 (add-word-to-phrase phrase-query 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))))
  
  
  (defchartype any-letter '(satisfies alphanumericp))
  
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)))
  