(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)))
+cl-sql (1.7.6-1) unstable; urgency=low
+
+ * Fix connection string (closes: 208610)
+
+ -- Kevin M. Rosenberg <kmr@debian.org> Thu, 4 Sep 2003 15:03:53 -0600
+
cl-sql (1.7.5-1) unstable; urgency=low
* Another fix for previous bug (closes: 207813)