Update of /project/pg/cvsroot/pg In directory clnet:/tmp/cvs-serv8006

Modified Files: v3-protocol.lisp TODO Log Message: Make the v3 protocol ERROR-RESPONSE inherit from BACKEND-ERROR.

--- /project/pg/cvsroot/pg/v3-protocol.lisp 2006/09/19 06:57:28 1.23 +++ /project/pg/cvsroot/pg/v3-protocol.lisp 2006/09/24 15:08:38 1.24 @@ -14,7 +14,7 @@ :type (or null stream))))

-(define-condition error-response (postgresql-error) +(define-condition error-response (backend-error) ((severity :initarg :severity :reader error-response-severity) (code :initarg :code @@ -122,7 +122,7 @@ (apply #'cerror "Try to continue, should do a rollback" 'error-response - args))) + (append (list :reason "Backend error") args))))

(defun read-and-handle-notification-response (connection packet) @@ -282,6 +282,9 @@ (string (convert-string-from-bytes octets encoding))) string)))

+ +(defgeneric read-octets-from-packet (packet length)) + (defmethod read-octets-from-packet ((packet pg-packet) (length integer)) (let ((result (make-array length :element-type '(unsigned-byte 8)))) (with-slots (data position) packet --- /project/pg/cvsroot/pg/TODO 2006/09/23 12:24:28 1.3 +++ /project/pg/cvsroot/pg/TODO 2006/09/24 15:08:38 1.4 @@ -1,3 +1,7 @@ + - rethink the error signaling code (perhaps implement finer-grained + exceptions when using the v3 protocol) + + - SSL support