      (= (class value) java.lang.Long) (.setLongValue field value)
      :default (.setIntValue field -1))))
 
-(defn #^String distill-plaintext
+(defn ^String distill-plaintext
   "Distills the text value from an HTML string, followed by the
    values of any alt and title attributes of <img/> tags separated
    by newlines."

    (when (pos? (alength (.getClauses bq)))
      (QueryWrapperFilter. bq))))

(defn #^Document get-doc [reader doc-id]
  "Reads the document with the provided doc-id from the index."
  (.document reader doc-id))


                description]}
        vix-doc]

    (doto ^Document (Document.)
          ;; create a fulltext field with all the values to search on
          ;; mashed together in a single value. This field is not stored.
          (.add (create-field "fulltext"
