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@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))))