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

[Eric Marsden]

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 at 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)