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

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