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

Modified Files: lowlevel.lisp pg-tests.lisp v3-protocol.lisp Log Message:

- fix to the lowlevel factorization

- modify parameter handling in v3 protocol to add parameters to the connection object, instead of issuing a warning

Date: Mon Mar 8 11:45:17 2004 Author: emarsden

Index: pg/lowlevel.lisp diff -u pg/lowlevel.lisp:1.1 pg/lowlevel.lisp:1.2 --- pg/lowlevel.lisp:1.1 Mon Mar 8 10:01:53 2004 +++ pg/lowlevel.lisp Mon Mar 8 11:45:16 2004 @@ -74,7 +74,7 @@

(defun %read-chars (connection howmany) (declare (type fixnum howmany)) - (let ((bytes (read-bytes connection howmany)) + (let ((bytes (%read-bytes connection howmany)) (str (make-string howmany))) (dotimes (i howmany) (setf (aref str i) (code-char (aref bytes i))))

Index: pg/pg-tests.lisp diff -u pg/pg-tests.lisp:1.4 pg/pg-tests.lisp:1.5 --- pg/pg-tests.lisp:1.4 Mon Mar 8 10:01:53 2004 +++ pg/pg-tests.lisp Mon Mar 8 11:45:16 2004 @@ -17,7 +17,7 @@

;; !!! CHANGE THE VALUES HERE !!! (defun call-with-test-connection (function) - (with-pg-connection (conn "template1" "emarsden" :host "locke" :port 5432) + (with-pg-connection (conn "template1" "emarsden" :host nil :port 5432) (funcall function conn)))

(defmacro with-test-connection ((conn) &body body)

Index: pg/v3-protocol.lisp diff -u pg/v3-protocol.lisp:1.3 pg/v3-protocol.lisp:1.4 --- pg/v3-protocol.lisp:1.3 Mon Mar 8 10:01:53 2004 +++ pg/v3-protocol.lisp Mon Mar 8 11:45:16 2004 @@ -457,10 +457,7 @@ ;; XXX investigate (let* ((parameter (read-from-packet packet :cstring)) (value (read-from-packet packet :cstring))) - ;;#+debug - (warn "~&Got unexpected parameter ~S = ~S" - parameter - value))) + (push (cons parameter value) (pgcon-parameters connection)))) ((#\A) ;; NotificationResponse ;; Not documented?