anchor.diff:                   (setf response (concatenate 'string response chunk))
                    (setf left (- left (length chunk))))
                  (return))))
  -      (close fp)
  +      (close (%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)
  
positive.code:     :initarg :socket
      :initform ()
      :documentation "searchd unix-domain socket")
     (offset
      :accessor offset
      :initarg :offset
  
negative.code:   (:documentation
     "@short{The sphinx-search class.}
  
      @begin{pre}
      (let ((sph (make-instance 'sphinx-client :host \"localhost\" :port 3315)))
         (add-query sph \"test\")
         (run-queries sph))
      @end{pre}
  
      The interface to the search daemon goes through this class.
  
      Set options and settings of the search to be performed on an object
  