From da93461320509c8cda608f4c8f24194b1a5e8940 Mon Sep 17 00:00:00 2001 From: Stephen Compall Date: Sun, 4 Jan 2009 18:26:21 -0600 Subject: [PATCH] allow optional connect params in list-databases for PG databases Reported by Ken Harris in . --- sql/generic-postgresql.lisp | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) 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 -- 2.11.4.GIT