[pg-cvs] CVS pg

[emarsden]

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

Modified Files:
	v3-protocol.lisp sysdep.lisp 
Log Message:
Disabling buffering of the socket stream on CLISP greatly improves performance.


--- /project/pg/cvsroot/pg/v3-protocol.lisp	2006/09/24 15:08:38	1.24
+++ /project/pg/cvsroot/pg/v3-protocol.lisp	2006/09/24 15:50:18	1.25
@@ -374,7 +374,8 @@
 
     (%send-net-int stream (char-code code) 1)
     (%send-net-int stream length 4 )
-    (write-sequence data stream)))
+    (write-sequence data stream)
+    (%flush connection)))
 
 
 (defun pg-connect/v3 (dbname user &key (host "localhost") (port 5432) (password ""))
--- /project/pg/cvsroot/pg/sysdep.lisp	2006/09/23 12:24:28	1.15
+++ /project/pg/cvsroot/pg/sysdep.lisp	2006/09/24 15:50:18	1.16
@@ -1,7 +1,7 @@
 ;;; sysdep.lisp -- system-dependent parts of pg-dot-lisp
 ;;;
 ;;; Author: Eric Marsden <eric.marsden at free.fr>
-;;; Time-stamp: <2006-09-20 emarsden>
+;;; Time-stamp: <2006-09-24 emarsden>
 ;;
 ;;
 
@@ -127,7 +127,9 @@
   (handler-case
    (#+lisp=cl socket:socket-connect
     #-lisp=cl lisp:socket-connect
-    port host :element-type '(unsigned-byte 8))
+    port host
+    :element-type '(unsigned-byte 8)
+    :buffered t)
    (error (e)
       (declare (ignore e))
       (error 'connection-failure :host host :port port))))