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:     #+SPHINX-SEARCH-DEBUG (format t "requests:~%~A~%length requests: ~a~%" requests (length requests))
      (let ((data (pack "nnN/a*" +searchd-command-search+ +ver-command-search+ requests)))
        (setf (reqs client) ())
        (let ((fp (%connect client)))
          (when fp
            (%send client :fp fp :data data)
            (let ((response (%get-response client :fp fp :client-version +ver-command-search+)))
              #+SPHINX-SEARCH-DEBUG (format t "run-queries response: ~a~%" response)
              (when response
                (setf *response-length* (length response))
                (%parse-response response (length (reqs client))))))))))
  
  
  (defgeneric add-query (client query &key index comment)
  
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))
  