From 1d8315575a3260f46cb2541d197b86c81f1a5f0a Mon Sep 17 00:00:00 2001 From: Nathan Bird Date: Wed, 29 Jun 2011 14:27:49 -0400 Subject: [PATCH] whitespace for readability --- db-odbc/odbc-sql.lisp | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/db-odbc/odbc-sql.lisp b/db-odbc/odbc-sql.lisp index dfb0b45..961da0b 100644 --- a/db-odbc/odbc-sql.lisp +++ b/db-odbc/odbc-sql.lisp @@ -28,13 +28,15 @@ (defmethod database-name-from-spec (connection-spec (database-type (eql :odbc))) - (check-connection-spec connection-spec database-type (dsn user password &key connection-string completion window-handle)) + (check-connection-spec connection-spec database-type + (dsn user password &key connection-string completion window-handle)) (destructuring-bind (dsn user password &key connection-string completion window-handle) connection-spec (declare (ignore password connection-string completion window-handle)) (concatenate 'string dsn "/" user))) (defmethod database-connect (connection-spec (database-type (eql :odbc))) - (check-connection-spec connection-spec database-type (dsn user password &key connection-string completion window-handle)) + (check-connection-spec connection-spec database-type + (dsn user password &key connection-string completion window-handle)) (destructuring-bind (dsn user password &key connection-string (completion :no-prompt) window-handle) connection-spec (handler-case (let ((db (make-instance 'odbc-database -- 2.34.1