[pg-cvs] CVS pg

[emarsden]

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 at 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