anchor.diff:      :initarg :last-warning
       :initform ""
       :documentation "last warning message")
  +   (status
  +    :accessor status
  +    :initarg :status
  +    :initform ()
  +    :documentation "status of last query")
      (reqs
       :accessor reqs
       :initarg :reqs
  
positive.code:                (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))))
      (if (< v 1)
          (progn
            (close (%socket client))
  
negative.code:   #+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)
  