- (destructuring-bind (host name user password) connection-spec
- (let ((database (database-connect (list host "template1" user password)
+ (destructuring-bind (host name user password &optional port optional tty) connection-spec
+ (let ((database (database-connect (list host "postgres" user password)