[pg-cvs] CVS pg

[emarsden]

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

Modified Files:
	utility.lisp sysdep.lisp 
Log Message:
Code cleanups.


--- /project/pg/cvsroot/pg/utility.lisp	2004/03/05 18:08:08	1.1
+++ /project/pg/cvsroot/pg/utility.lisp	2006/10/22 19:22:39	1.2
@@ -1,7 +1,7 @@
 ;;; utility.lisp -- wrapper functions and macros
 ;;;
 ;;; Author: Eric Marsden <emarsden at laas.fr>
-;;; Time-stamp: <2004-03-05 emarsden>
+;;; Time-stamp: <2006-09-30 emarsden>
 
 
 (in-package :postgresql)
@@ -41,7 +41,8 @@
          (progn , at body)
        (when ,con (pg-disconnect ,con)))))
 
-#-old-version
+;; this is the old version
+#+(or)
 (defmacro with-pg-transaction (con &body body)
   "Execute BODY forms in a BEGIN..END block.
 If a PostgreSQL error occurs during execution of the forms, execute
--- /project/pg/cvsroot/pg/sysdep.lisp	2006/09/30 16:51:12	1.17
+++ /project/pg/cvsroot/pg/sysdep.lisp	2006/10/22 19:22:39	1.18
@@ -168,7 +168,6 @@
           (socket:make-socket :type :stream
                               :address-family :file
                               :connect :active
-                              ;; :local-filename (format nil "~A.s.PGSQL.~D" (string host) port)
                               :remote-filename (format nil "~A.s.PGSQL.~D" (string host) port)
                               :format :binary)
           (socket:make-socket :remote-host host