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

[Peter Van Eynde]

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

Modified Files:
	v3-protocol.lisp 
Log Message:
Corrected wrong code for Close Complete
Date: Mon Sep 20 00:32:33 2004
Author: pvaneynde

Index: pg/v3-protocol.lisp
diff -u pg/v3-protocol.lisp:1.14 pg/v3-protocol.lisp:1.15
--- pg/v3-protocol.lisp:1.14	Mon Sep 20 00:13:35 2004
+++ pg/v3-protocol.lisp	Mon Sep 20 00:32:33 2004
@@ -946,7 +946,7 @@
   (loop :for packet = (read-packet connection)
         :do
         (case (pg-packet-type packet)
-          ((#\B #\Z)
+          ((#\3 #\Z)
            ;; Close Complete
            ;; or
            ;; ReadyForQuery