From 961735a91f4baf6acfb1eef0590087a070997296 Mon Sep 17 00:00:00 2001 From: "Kevin M. Rosenberg" Date: Sat, 29 Jan 2005 00:54:17 +0000 Subject: [PATCH 1/1] r10293: * sql/metaclasses.lisp: Don't change case of a :base-table string supplied to def-view-class [fix suggested by Fred Gilham]. --- ChangeLog | 2 ++ sql/metaclasses.lisp | 2 +- sql/oodml.lisp | 2 +- 3 files changed, 4 insertions(+), 2 deletions(-) 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)))) -- 2.34.1