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 (loop
for index in indexes for index in indexes
for table-name = (index-table-name index)
do do
(let ((sql (format-pgsql-create-index index (let ((sql
:identifier-case identifier-case))) (format-pgsql-create-index index :identifier-case identifier-case)))
(log-message :notice "~a" sql) (log-message :notice "~a" sql)
(lp:submit-task channel (lp:submit-task channel
#'pgsql-execute-with-timing #'pgsql-execute-with-timing