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)