From cf0a1997b66f3e09e595c3c6fb04b08c0d2a4e61 Mon Sep 17 00:00:00 2001 From: "Kevin M. Rosenberg" Date: Sat, 6 Sep 2003 03:49:44 +0000 Subject: [PATCH] r6292: updates for connection string --- db-postgresql/postgresql-sql.lisp | 12 +++++++++++- debian/changelog | 6 ++++++ 2 files changed, 17 insertions(+), 1 deletion(-) diff --git a/db-postgresql/postgresql-sql.lisp b/db-postgresql/postgresql-sql.lisp index a199ba5..ac13a30 100644 --- a/db-postgresql/postgresql-sql.lisp +++ b/db-postgresql/postgresql-sql.lisp @@ -96,7 +96,17 @@ (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 'string + ":" + (etypecase port + (integer (write-to-string port)) + (string port)))) + "/" db "/" user))) (defmethod database-connect (connection-spec (database-type (eql :postgresql))) diff --git a/debian/changelog b/debian/changelog index babf461..1ba9125 100644 --- a/debian/changelog +++ b/debian/changelog @@ -1,3 +1,9 @@ +cl-sql (1.7.6-1) unstable; urgency=low + + * Fix connection string (closes: 208610) + + -- Kevin M. Rosenberg Thu, 4 Sep 2003 15:03:53 -0600 + cl-sql (1.7.5-1) unstable; urgency=low * Another fix for previous bug (closes: 207813) -- 2.34.1