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:        filters))
  
  
  
  
  (defun %pack-hash (hash-table)
    (concatenate 'string
                 (pack "N" (hash-table-count hash-table))
  
negative.code:           #+SPHINX-SEARCH-DEBUG (format t "recieved version number: ~a~%" v)
            (%socket client)))))
  
  
  (defun %read-from (socket size)
    (let ((rec (sockets:receive-from socket :size size)))
      #+SPHINX-SEARCH-DEBUG (format t "recieved bytes: ~a~%" rec)
      (let ((res
  