From: Kevin M. Rosenberg Date: Sat, 29 Jan 2005 00:54:17 +0000 (+0000) Subject: r10293: * sql/metaclasses.lisp: Don't change case of a :base-table string... X-Git-Tag: v3.8.6~178 X-Git-Url: http://git.kpe.io/?p=clsql.git;a=commitdiff_plain;h=961735a91f4baf6acfb1eef0590087a070997296 r10293: * sql/metaclasses.lisp: Don't change case of a :base-table string supplied to def-view-class [fix suggested by Fred Gilham]. --- diff --git a/ChangeLog b/ChangeLog index 0b3f351..c9e214e 100644 --- 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 * tests/*.lisp: Change Vladamir to Vladimir per Cyrus Harmon's diff --git a/sql/metaclasses.lisp b/sql/metaclasses.lisp index 909f622..c76a210 100644 --- 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 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))))