anchor.diff:  
   
   (defmethod %connect ((client sphinx-client))
  +  #+SPHINX-SEARCH-DEBUG (format t "socket is: ~a~%" (%socket client))
     (cond ((%socket client))
           ((%path client)
            (setf (%socket client)
  
positive.code: 
  (in-package #:cl-sphinx-search)
  
  (declaim (optimize (debug 3) (safety 3) (speed 0) (space 0)))
  
  
  (defvar *response-length* ())
  
  
  (defmacro adv-p (n)
    `(setf p (+ p ,n)))
  
negative.code:                  (setf left (- left (length chunk))))
                 (return))))
        (close (%socket client))
        (setf (%socket client) ())
        (let ((done (length response)))
          #+SPHINX-SEARCH-DEBUG (format t "got response of length: ~a~%raw response: ~a~%" done response)
          (cond ((or (not response)
  