anchor.diff:                        (tcp-connection-s-next connection)
                         (tcp-connection-r-next connection)
                         nil
  -                      :fin-p t
  -                      ;; Shouldn't actually rst here...
  -                      :rst-p t)))
  +                      :fin-p t)))
  +
  +(defmethod sys.int::stream-element-type* ((stream tcp-stream))
  +  'character)
   
   (defun ethernet-init ()
     (setf *cards* '()
  
positive.code: 	(push port *allocated-tcp-ports*)
  	(return port)))))
  
  (defun random (limit &optional random-state)
    0)
  
  (defun tcp-connect (ip port)
    (let* ((source-port (allocate-local-tcp-port))
  
negative.code:                   (funcall (second server) connection))
                   (t (tcp4-send-packet connection blah (logand #xFFFFFFFF (1+ seq)) nil
                                        :ack-p t :rst-p t))))))
        (t (unless (logtest flags +tcp4-flag-rst+)
             (let ((connection (make-tcp-connection :state :syn-received
                                                    :local-port local-port
                                                    :remote-port remote-port
                                                    :remote-ip remote-ip
                                                    :s-next 0
                                                    :r-next 0
                                                    :window-size 8192)))
               (tcp4-send-packet connection 0 0 nil
                                 :ack-p nil :rst-p t)))))))
  
  (defun %receive-packet (interface packet)
    (dolist (hook *raw-packet-hooks*)
  