X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=sql%2Ftable.lisp;h=1b28c4ff10db3b6b37bf181ee09b702576978b3e;hb=5be31565b7d87b90f0e79a9e61af84ad05e12920;hp=ad8c55a5ef699e363015f2e4d928fbdf4f214fb8;hpb=b43e20a168dae4ae9d176ebc0fbf18ea6e4517dc;p=clsql.git

diff --git a/sql/table.lisp b/sql/table.lisp
index ad8c55a..1b28c4f 100644
--- a/sql/table.lisp
+++ b/sql/table.lisp
@@ -15,7 +15,7 @@
 ;;;; (http://opensource.franz.com/preamble.html), also known as the LLGPL.
 ;;;; *************************************************************************
 
-(in-package #:clsql)
+(in-package #:clsql-sys)
 
 
 ;; Utilities
@@ -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*))