anchor.diff:  					  :window-size 8192)))
       (push connection *tcp-connections*)
       (tcp4-send-packet connection seq 0 nil :ack-p nil :syn-p t)
  -    (when (sys.int::process-wait-with-timeout "TCP connect" 100
  -				     (lambda () (not (eql (tcp-connection-state connection) :syn-sent))))
  +    (when (not (sys.int::process-wait-with-timeout "TCP connect" 100
  +                                                   (lambda ()
  +                                                     (not (eql (tcp-connection-state connection) :syn-sent)))))
         (setf (tcp-connection-state connection) :closed))
       connection))
   
  
positive.code:              ((>= offset end))
             (tcp-send connection data offset (min (+ offset mss) end))))
          (t ;; Send one packet.
           (let ((s-next (tcp-connection-s-next connection)))
             (setf (tcp-connection-s-next connection)
                   (logand (+ s-next (- end start))
                           #xFFFFFFFF))
             (tcp4-send-packet connection s-next
                               (tcp-connection-r-next connection)
                               (if (and (eql start 0)
                                        (eql end (length data)))
                                   data
                                   (subseq data start end))
                               :psh-p t)))))))
  
  (defvar *test-message* #(#x47 #x45 #x54 #x20 #x2F #x0D #x0A #x0D #x0A))
  
  (defun send-ping (destination &optional (identifier 0) (sequence-number 0) payload)
    (let ((packet (make-array (+ 8 (if payload (length payload) 56)))))
  
negative.code:                   (funcall (second server) connection))
                   (t (tcp4-send-packet connection blah (logand #xFFFFFFFF (1+ seq)) nil
                                        :ack-p t :rst-p t))))))
        (t (format t "Ignoring packet from ~X ~S~%" remote-ip
                   (subseq packet start end))
           (unless (logtest flags +tcp4-flag-rst+)
             (let ((connection (make-tcp-connection :state :syn-received
                                                    :local-port local-port
                                                    :remote-port remote-port
  