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

diff --git a/sql/oodml.lisp b/sql/oodml.lisp
index 7f60663..b1a5d6a 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 (record-caches vd) nil)
 	  (setf (slot-value instance 'view-database) nil)
           (values))
 	(signal-no-database-error vd))))