From f0cfd4554d546921f9cdbbba1461fe20c6bd81e8 Mon Sep 17 00:00:00 2001 From: Dimitri Fontaine Date: Fri, 8 Nov 2013 21:28:09 +0100 Subject: [PATCH] Some code cleanup. --- src/pgsql/schema.lisp | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) diff --git a/src/pgsql/schema.lisp b/src/pgsql/schema.lisp index a87ea99..d9b9a2a 100644 --- a/src/pgsql/schema.lisp +++ b/src/pgsql/schema.lisp @@ -235,10 +235,9 @@ (loop for index in indexes - for table-name = (index-table-name index) do - (let ((sql (format-pgsql-create-index index - :identifier-case identifier-case))) + (let ((sql + (format-pgsql-create-index index :identifier-case identifier-case))) (log-message :notice "~a" sql) (lp:submit-task channel #'pgsql-execute-with-timing