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

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*))