r10293: * sql/metaclasses.lisp: Don't change case of a :base-table string...

[clsql.git] / sql / oodml.lisp

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