X-Git-Url: http://git.kpe.io/?p=clsql.git;a=blobdiff_plain;f=sql%2Ftable.lisp;h=b9a5ef1bd1534d9215e441123549c63d9d299ef0;hp=d51960e3e06f617536bd167693d4ea9b3c5e4707;hb=db5e98459718c42c3ba6aba2b45b61c26837c991;hpb=947d861d8857ce104a5c61ba993c3cf468a730d8

diff --git a/sql/table.lisp b/sql/table.lisp
index d51960e..b9a5ef1 100644
--- a/sql/table.lisp
+++ b/sql/table.lisp
@@ -174,7 +174,8 @@ specification of a table to drop the index from."
        (unless (index-exists-p index-name :database database)
          (return-from drop-index)))
       (:error t))
-    (unless (db-type-use-column-on-drop-index? (database-underlying-type database))
+    (unless (db-type-use-column-on-drop-index? 
+	     (database-underlying-type database))
       (setq on nil))
     (execute-command (format nil "DROP INDEX ~A~A" index-name
                              (if (null on) ""