From 94ef8674ece0594d406424318ae01a92d2e80e91 Mon Sep 17 00:00:00 2001 From: Dimitri Fontaine Date: Mon, 11 Jan 2016 01:42:18 +0100 Subject: [PATCH] Typo fix (of sorts) Some API didn't get the table-name to table memo... --- src/pgsql/schema.lisp | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/src/pgsql/schema.lisp b/src/pgsql/schema.lisp index 28af15c..da5bb87 100644 --- a/src/pgsql/schema.lisp +++ b/src/pgsql/schema.lisp @@ -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