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