anchor.diff:      If @code{:exclude} is set, excludes results that match the filter.
   "))
   
  -(defmethod set-filter ((client sphinx-client) attr values &key (exclude nil))
  +(defmethod set-filter ((client sphinx-client) attr values &key (exclude ()))
     (assert (and (listp values) (> (length values) 0)))
     (dolist (item values)
       (assert (numberp item)))
  
positive.code: 
  
  (defmethod %connect ((client sphinx-client))
    (cond ((%socket client))
          ((%path client)
           (setf (%socket client)
  
negative.code:                                               (pack "N/a*" (first (anchor client)))
                                                (pack "N/a*" (third (anchor client)))
                                                (%pack-float (second (anchor client)))
                                                (%pack-float (fourth (anchor client)))))
                                  (t
                                   (pack "N" 0)))
                            (%pack-hash (index-weights client))
  