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@laas.fr -;;; Time-stamp: <2004-03-05 emarsden> +;;; Time-stamp: <2006-09-30 emarsden>

(in-package :postgresql) @@ -41,7 +41,8 @@ (progn ,@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