;;;; -*- Mode: LISP; Syntax: ANSI-Common-Lisp; Base: 10 -*-
;;;; *************************************************************************
;;;;
-;;;; $Id$
-;;;;
;;;; Generic postgresql layer, used by db-postgresql and db-postgresql-socket
;;;;
;;;; This file is part of CLSQL.
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