r10290: 29 Jan 2005 Kevin Rosenberg <kevin@rosenberg.net>

[clsql.git] / sql / oodml.lisp

diff --git a/sql/oodml.lisp b/sql/oodml.lisp
index 7f606636631fb913e8d4624c8c371f7e6f155946..ed7aae16889770fe71018684d9f66efa6a53cecd 100644 (file)
--- 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))))