r9395: 18 May 2004 Kevin Rosenberg (kevin@rosenberg.net)

[clsql.git] / sql / table.lisp

diff --git a/sql/table.lisp b/sql/table.lisp
index 3820c19bd61d623a02ee50aeae155fe605c15789..1b28c4ff10db3b6b37bf181ee09b702576978b3e 100644 (file)
--- a/sql/table.lisp
+++ b/sql/table.lisp
@@ -61,7 +61,10 @@ if IF-DOES-NOT-EXIST is :error."
          (return-from drop-table nil)))
       (:error
        t))
-    (let ((expr (concatenate 'string "DROP TABLE " table-name)))
+    (let ((expr (concatenate 'string "DROP TABLE " table-name
+                            (if (eq :oracle (database-type database))
+                                " PURGE"
+                              ""))))
       (execute-command expr :database database))))
 
 (defun list-tables (&key (owner nil) (database *default-database*))