anchor.diff:           (assert (or (not external-format)
                        (eql external-format :default)))
            (make-instance 'tcp-octet-stream
  -                        :connection (tcp-connect (sys.net::resolve-address address) port)))
  +                        :connection (tcp-connect (sys.net::resolve-address address) port
  +                                                 :persist persist
  +                                                 :timeout timeout)))
           (t
            (error "Unsupported element type ~S" element-type))))
  
positive.code:   (setf end (or end (length data)))
    (with-tcp-connection-locked connection
      (check-connection-error connection)
      ;; FIXME: It should be an error to send after close.
      (when (or (eql (tcp-connection-state connection) :established)
                (eql (tcp-connection-state connection) :close-wait))
  
negative.code: (defmethod stream-element-type ((stream tcp-octet-stream))
    '(unsigned-byte 8))
  
  (defun tcp-stream-connect (address port &key element-type external-format persist timeout)
    (cond ((or (not element-type)
               (sys.int::type-equal element-type 'character))
           (make-instance 'tcp-stream
                          :connection (tcp-connect (sys.net::resolve-address address) port
                                                   :persist persist
                                                   :timeout timeout)
                          :external-format (sys.int::make-external-format
                                            (or element-type 'character)
                                            (or external-format :default)
  