(unless (index-exists-p index-name :database database)
(return-from drop-index)))
(:error t))
+ (unless (db-use-column-on-drop-index? database)
+ (setq on nil))
(execute-command (format nil "DROP INDEX ~A~A" index-name
(if (null on) ""
(concatenate 'string " ON "