Update of /project/pg/cvsroot/pg In directory clnet:/tmp/cvs-serv32279

Modified Files: v3-protocol.lisp Log Message: Don't flush the network stream in SEND-PACKET, because it slows down API calls that have multiple SEND-PACKET calls in them. From attila.lendvai@gmail.com.

--- /project/pg/cvsroot/pg/v3-protocol.lisp 2006/11/26 18:05:11 1.30 +++ /project/pg/cvsroot/pg/v3-protocol.lisp 2006/12/16 13:29:28 1.31 @@ -375,9 +375,8 @@ (incf position (length value)))))

(%send-net-int stream (char-code code) 1) - (%send-net-int stream length 4 ) - (write-sequence data stream) - (%flush connection))) + (%send-net-int stream length 4) + (write-sequence data stream)))

(defun pg-connect/v3 (dbname user &key (host "localhost") (port 5432) (password "") (encoding *pg-client-encoding*)) @@ -540,7 +539,8 @@ (t (warn "We had to provide data, but my sql-stream isn't an input-stream. Aborting transfer") ;; CopyFail - (send-packet connection #\f '((:cstring "No input data provided")))))) + (send-packet connection #\f '((:cstring "No input data provided"))) + (%flush connection))))

((#\H) ;; CopyOutResponse