X-Git-Url: http://git.kpe.io/?p=clsql.git;a=blobdiff_plain;f=sql%2Fsql.lisp;h=e3e064a7cdb983fef043fd58c3a8146ccc1a7601;hp=057c135774ae2b4252c275bfa469ad2b8426b3a9;hb=21ae7203d719886a1f044992e463d5f463727ac0;hpb=4c89485f5cdb21a334de9c35adfded30db0c75e7

diff --git a/sql/sql.lisp b/sql/sql.lisp
index 057c135..e3e064a 100644
--- a/sql/sql.lisp
+++ b/sql/sql.lisp
@@ -58,7 +58,9 @@
   (dolist (index (list-indexes :database database))
     (drop-index index :database database))
   (dolist (seq (list-sequences :database database))
-    (drop-sequence seq :database database)))
+    (drop-sequence seq :database database))
+  (when (eq :oracle (database-type database))
+    (ignore-errors (execute-command "PURGE RECYCLEBIN" :database database))))
 
 (defun print-query (query-exp &key titles (formats t) (sizes t) (stream t)
 			      (database *default-database*))