anchor.diff:                            (pack "N/a*" (if (select client)
                                              (select client)
                                              "")))))
  -   #+SPHINX-SEARCH-DEBUG (format t "req is: ~a~%" (string-to-octets req))
  -   (setf (reqs client) (append (reqs client) (list req))))
  - (length (reqs client)))
  +    #+SPHINX-SEARCH-DEBUG (format t "req is: ~a~%" (string-to-octets req))
  +    (setf (reqs client) (append (reqs client) (list req))))
  +  (length (reqs client)))
   
   
   (defun %pack-overrides (overrides)
  
positive.code:         ((%path client)
           (setf (%socket client)
                 (sockets:make-socket :address-family :local :type :stream
                              :local-filename (namestring (%path client)))))
          (t
           (setf (%socket client)
                 (sockets:make-socket :address-family :internet :type :stream
  
negative.code:   #+SPHINX-SEARCH-DEBUG (format t "data as octets: ~a~%" (string-to-octets data :encoding :latin-1))
    (sockets:send-to fp (string-to-octets data :encoding :latin-1))
    ;;(finish-output fp)
    )
  
  
  (defmethod add-query ((client sphinx-client) &key query (index "*") (comment ""))
    (let ((req (concatenate 'string
                            (pack "NNNNN" (offset client) (limit client) (mode client) (ranker client) (sort-mode client))
                            (pack "N/a*" (sort-by client))
                            (pack "N/a*" query)
  