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(a)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
