anchor.diff:                      (expect-code-or-lose conn 200)
                       (send-raw-line conn command)
                       (socket-accept server-socket))
  -               (close (socket-stream server-socket))))))))
  +               (socket-close server-socket)))))))
   
   (defgeneric flush-response (conn))
   
  
positive.code: (defmethod setup-port ((conn ftp-connection) &key (element-type '(unsigned-byte 8)))
    (with-ftp-connection-slots (conn)
      (let ((server-socket
             (loop for p = (+ 1025 (random 10000))
                   for s = (ignore-errors
                             (socket-listen :port p
                                            :element-type element-type))
                   when s return s))
            (local-ip (get-local-name socket)))
        (send-port-command conn local-ip (get-local-port server-socket))
        server-socket)))
  
  
negative.code:                (send-raw-line conn command)
                 data-socket)))
            (t
             (let ((server-socket (setup-port conn :element-type (ecase type
                                                                   ((:binary :image)
                                                                    '(unsigned-byte 8))
                                                                   (:ascii 'character)))))
               (unwind-protect
                    (progn
                      (when (and rest (integerp rest))
  