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

diff --git a/ChangeLog b/ChangeLog
index 0b3f351cb5924554bdad60a52b6622619008d70b..c9e214e906226a3116b6f60335fdf528cba37df1 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -3,6 +3,8 @@
        * sql/oodml.lisp: Clear view instance cache when delete-instance-records
        is invoked [suggested by Alan Shutko].
        * uffi/clsql-uffi-loader.lisp: Improvements for loading with SBCL X86-64
+       * sql/metaclasses.lisp: Don't change case of a :base-table string supplied
+       to def-view-class [fix suggested by Fred Gilham].
        
 25 Jan 2005 Kevin Rosenberg <kevin@rosenberg.net>
        * tests/*.lisp: Change Vladamir to Vladimir per Cyrus Harmon's

diff --git a/sql/metaclasses.lisp b/sql/metaclasses.lisp
index 909f622b4ffcc1f0f1137d372c8327581403ba86..c76a210f6e8c6aedc3337ca93ba48027f6717fb1 100644 (file)
--- a/sql/metaclasses.lisp
+++ b/sql/metaclasses.lisp
@@ -78,7 +78,7 @@
        ((typep arg 'sql-ident)
         (slot-value arg 'name))
        ((stringp arg)
-        (intern (symbol-name-default-case arg)))))
+        (intern arg))))
 
 (defun column-name-from-arg (arg)
   (cond ((symbolp arg)

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