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

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