anchor.diff:                            (pack "N/a*" (if (select client)
                                              (select client)
                                              "")))))
  -    #+SPHINX-SEARCH-DEBUG (format t "req is: ~a~%" (string-to-octets req))
  +    #+SPHINX-SEARCH-DEBUG (format t "req is: ~a~%" (string-to-octets req :encoding (%encoding client)))
       (setf (reqs client) (append (reqs client) (list req))))
     (length (reqs client)))
   
  
positive.code:                  (setf response (concatenate 'string response chunk))
                   (setf left (- left (length chunk))))
                 (return))))
        (close fp)
        (let ((done (length response)))
          #+SPHINX-SEARCH-DEBUG (format t "got response of length: ~a~%raw response: ~a~%" done response)
          (cond ((or (not response)
  
negative.code:       res)))
  
  
  (defmethod %get-response ((client sphinx-client) &key client-version)
    (multiple-value-bind (status version len) (unpack "n2N" (%read-from client 8))
      #+SPHINX-SEARCH-DEBUG (format t "status: ~a~%version: ~a~%length: ~a~%" status version len)
      (let ((response ())
            (left len))
  