[pg-cvs] CVS pg

[emarsden]

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