Typo fix (of sorts)

Some API didn't get the table-name to table memo...
This commit is contained in:
Dimitri Fontaine 2016-01-11 01:42:18 +01:00
parent a3fd22acd3
commit 94ef8674ec

View File

@ -368,18 +368,18 @@
;;;
;;; Higher level API to care about indexes
;;;
(defun maybe-drop-indexes (target table-name &key (section :pre) drop-indexes)
(defun maybe-drop-indexes (target table &key (section :pre) drop-indexes)
"Drop the indexes for TABLE-NAME on TARGET PostgreSQL connection, and
returns a list of indexes to create again."
(with-pgsql-connection (target)
(let ((indexes (list-indexes table-name))
(let ((indexes (list-indexes table))
;; we get the list of indexes from PostgreSQL catalogs, so don't
;; question their spelling, just quote them.
(*identifier-case* :quote))
(cond ((and indexes (not drop-indexes))
(log-message :warning
"Target table ~s has ~d indexes defined against it."
table-name (length indexes))
(format-table-name table) (length indexes))
(log-message :warning
"That could impact loading performance badly.")
(log-message :warning