X-Git-Url: http://git.kpe.io/?p=clsql.git;a=blobdiff_plain;f=sql%2Foodml.lisp;h=ed7aae16889770fe71018684d9f66efa6a53cecd;hp=7f606636631fb913e8d4624c8c371f7e6f155946;hb=e71ada356f23f76d406be7d7f9ecc9dd9891109f;hpb=92978bcc8387f65acdd400a62adb07b7ca5b80aa

diff --git a/sql/oodml.lisp b/sql/oodml.lisp
index 7f60663..ed7aae1 100644
--- a/sql/oodml.lisp
+++ b/sql/oodml.lisp
@@ -248,6 +248,7 @@
     (if vd
 	(let ((qualifier (key-qualifier-for-instance instance :database vd)))
 	  (delete-records :from vt :where qualifier :database vd)
+	  (setf (records-caches vd) nil)
 	  (setf (slot-value instance 'view-database) nil)
           (values))
 	(signal-no-database-error vd))))