[pg-cvs] CVS update: pg/v3-protocol.lisp

[Peter Van Eynde]

Update of /project/pg/cvsroot/pg
In directory common-lisp.net:/tmp/cvs-serv9466

Modified Files:
	v3-protocol.lisp 
Log Message:
fixed extended queries for newer versions of postgreSQL, they need the sync message
Date: Mon Sep 20 00:13:35 2004
Author: pvaneynde

Index: pg/v3-protocol.lisp
diff -u pg/v3-protocol.lisp:1.13 pg/v3-protocol.lisp:1.14
--- pg/v3-protocol.lisp:1.13	Fri Aug 13 18:50:37 2004
+++ pg/v3-protocol.lisp	Mon Sep 20 00:13:35 2004
@@ -938,6 +938,10 @@
                #\C
                `((:char ,type)
                  (:cstring ,name)))
+  ;; make it a sync point
+  (send-packet connection
+               #\S
+               nil)
   (%flush connection)
   (loop :for packet = (read-packet connection)
         :do