From: Kevin Rosenberg Date: Fri, 4 Sep 2009 17:53:45 +0000 (-0600) Subject: Allow optional connect parameters for postgresql databases X-Git-Url: https://repo.or.cz/w/clsql/s11.git/commitdiff_plain/399877696a9ea31648ed27f656495bb36c67b03a Allow optional connect parameters for postgresql databases --- diff --git a/ChangeLog b/ChangeLog index 8e85b69..b1108b6 100644 --- a/ChangeLog +++ b/ChangeLog @@ -2,6 +2,8 @@ * sql/fdml.lisp: Rework do-query to use supplied database parameter when passed a sql-object-query (thanks to JTK ) + * sql/generic-postgresql.lisp: Allow optional connect + parameters for postgresql databases (thanks to Stephen Compall) 31 Aug 2009 Kevin Rosenberg * sql/db-interface.lisp: Fix spelling error (thanks to diff --git a/sql/generic-postgresql.lisp b/sql/generic-postgresql.lisp index 70a8e9f..370c633 100644 --- a/sql/generic-postgresql.lisp +++ b/sql/generic-postgresql.lisp @@ -244,9 +244,9 @@ database nil nil))))) (defun postgresql-database-list (connection-spec type) - (destructuring-bind (host name user password) connection-spec + (destructuring-bind (host name &rest other-args) connection-spec (declare (ignore name)) - (let ((database (database-connect (list host "template1" user password) + (let ((database (database-connect (list* host "template1" other-args) type))) (unwind-protect (progn