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

[Eric Marsden]

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?