anchor.diff:                 (sockets:make-socket :address-family :internet :type :stream
                                       :remote-host (%host client)
                                       :remote-port (%port client)))))
  -  (let ((v (unpack "N*" (%read-from (%socket client) 4))))
  +  (let ((v (unpack "N*" (%read-from client 4))))
       (if (< v 1)
           (progn
             (close (%socket client))
  -          (setf (last-error client) "connection to socket failed"))
  +          (setf (last-error client) "connection to socket failed")
  +          ())
           (progn
             (sockets:send-to (%socket client)
                              (string-to-octets (pack "N" 1) :encoding :latin-1))
  
positive.code:            (values status p "ok")))))
  
  
  (defmethod %send ((client sphinx-client) &key fp data)
    #+SPHINX-SEARCH-DEBUG (format t "writing to socket ~a~%" fp)
    #+SPHINX-SEARCH-DEBUG (format t "data to be sent: ~a~%" data)
    #+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)))
  
  
  (defun %pack-overrides (overrides)
  
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))
  