anchor.diff:      (values (nreverse fields) p)))
   
   
  -(defmacro adv-p (n)
  -  `(setf p (+ p ,n)))
  -
  -
   (defun %get-response-status (response start)
     (let ((status (unpack "N" (subseq response start (+ start 4))))
           (p (+ start 4)))
  
positive.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
  
negative.code:        filters))
  
  
  (defun %pack-hash (hash-table)
    (concatenate 'string
                 (pack "N" (hash-table-count hash-table))
  