anchor.diff:  
   (in-package #:cl-sphinx-search)
   
  +
   (declaim (optimize (debug 3) (safety 3) (speed 0) (space 0)))
   
  -
   (defvar *response-length* ())
  -
   
   (defmacro adv-p (n)
     `(setf p (+ p ,n)))
  
positive.code:     given range.
  "))
  
  (defmethod set-filter-float-range ((client sphinx-client) attr min max &key (exclude nil))
    (%set-filter-range client +sph-filter-floatrange+ attr min max :exclude exclude))
  
  (defmethod %set-filter-range ((client sphinx-client) type attr min max &key (exclude nil))
    (assert (and (numberp min) (numberp max) (>= max min)))
    (push `(,type ,attr ,min ,max ,(cond (exclude 1) (t 0))) (filters client))
    client)
  
negative.code:                  (setf left (- left (length chunk))))
                 (return))))
        (close (%socket client))
        (setf (%socket client) ())
        (let ((done (length response)))
          #+SPHINX-SEARCH-DEBUG (format t "got response of length: ~a~%raw response: ~a~%" done response)
          (cond ((or (not response)
  