From 50906c48e75ed9e7bc7723d7588ebc7dbe795169 Mon Sep 17 00:00:00 2001 From: "Kevin M. Rosenberg" Date: Sun, 31 Aug 2003 08:22:16 +0000 Subject: [PATCH] r5585: *** empty log message *** --- db-postgresql-socket/postgresql-socket-sql.lisp | 13 +++++++++++-- debian/changelog | 8 +++++++- 2 files changed, 18 insertions(+), 3 deletions(-) diff --git a/db-postgresql-socket/postgresql-socket-sql.lisp b/db-postgresql-socket/postgresql-socket-sql.lisp index a9cb8f5..a4d946b 100644 --- a/db-postgresql-socket/postgresql-socket-sql.lisp +++ b/db-postgresql-socket/postgresql-socket-sql.lisp @@ -8,7 +8,7 @@ ;;;; Original code by Pierre R. Mai ;;;; Date Started: Feb 2002 ;;;; -;;;; $Id: postgresql-socket-sql.lisp,v 1.2 2003/05/02 03:05:54 kevin Exp $ +;;;; $Id: postgresql-socket-sql.lisp,v 1.3 2003/08/31 08:22:16 kevin Exp $ ;;;; ;;;; This file, part of CLSQL, is Copyright (c) 2002 by Kevin M. Rosenberg ;;;; and Copyright (c) 1999-2001 by Pierre R. Mai @@ -150,7 +150,16 @@ doesn't depend on UFFI." (destructuring-bind (host db user password &optional port options tty) connection-spec (declare (ignore password options tty)) - (concatenate 'string host (if port ":") (if port port) "/" db "/" user))) + (concatenate 'string + (etypecase host + (pathname (namestring host)) + (string host)) + (when port + (concatenate ":" + (etypecase port + (integer (write-to-string port)) + (string port)))) + "/" db "/" user))) (defmethod database-connect (connection-spec (database-type (eql :postgresql-socket))) diff --git a/debian/changelog b/debian/changelog index 2f44cc5..167faa1 100644 --- a/debian/changelog +++ b/debian/changelog @@ -1,3 +1,9 @@ +cl-sql (1.7.4-1) unstable; urgency=low + + * New upstream (closes: 207813) + + -- Kevin M. Rosenberg Sun, 31 Aug 2003 02:19:45 -0600 + cl-sql (1.7.3-1) unstable; urgency=low * New upstream @@ -5,7 +11,7 @@ cl-sql (1.7.3-1) unstable; urgency=low is preventing entire source package from moving into testing since acl-pro-installer is only supported on x86 and ppc. - -- Kevin M. Rosenberg Wed, 20 Aug 2003 10:57:50 -0600 + -- Kevin M. Rosenberg Sun, 31 Aug 2003 02:19:31 -0600 cl-sql (1.7.2-1) unstable; urgency=low -- 2.34.1