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

Modified Files: v3-protocol.lisp Log Message:

- fix bogus type declaration

- remove bogus use of CMUCL's finalization (can't reference dying object from the finalizer)

Date: Wed Mar 17 13:15:27 2004 Author: emarsden

Index: pg/v3-protocol.lisp diff -u pg/v3-protocol.lisp:1.6 pg/v3-protocol.lisp:1.7 --- pg/v3-protocol.lisp:1.6 Tue Mar 9 11:27:20 2004 +++ pg/v3-protocol.lisp Wed Mar 17 13:15:26 2004 @@ -1,7 +1,6 @@ ;;; v3-protocol.lisp -- frontend/backend protocol from PostgreSQL v7.4 ;;; ;;; Author: Peter Van Eynde pvaneynd@debian.org -;;; Time-stamp: <2004-03-08 emarsden>

(in-package :postgresql)

@@ -10,7 +9,7 @@ :initform (list)) (sql-stream :initform nil :accessor pgcon-sql-stream - :type (or nil stream)))) + :type (or null stream))))

(define-condition error-response (postgresql-error) @@ -365,7 +364,6 @@ (%send-cstring stream dbname) (%send-net-int stream 0 1) (%flush connection) - #+cmu (ext:finalize connection (lambda () (pg-disconnect connection)))

(loop :for packet = (read-packet connection)