Some code cleanup.

This commit is contained in:
Dimitri Fontaine 2013-11-08 21:28:09 +01:00
parent 2f759a3638
commit f0cfd4554d

View File

@ -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