r9162: case-sensitive changes

[clsql.git] / sql / metaclasses.lisp

diff --git a/sql/metaclasses.lisp b/sql/metaclasses.lisp
index 0efa327dd94e123518c96255ea9ffea797a970e2..ac0592087e6add41f5d3ed03428b5f3056b638a2 100644 (file)
--- a/sql/metaclasses.lisp
+++ b/sql/metaclasses.lisp
@@ -151,7 +151,7 @@ of the default method.  The extra allowed options are the value of the
        ((typep arg 'sql-ident)
         (slot-value arg 'name))
        ((stringp arg)
-        (intern (string-upcase arg)))))
+        (intern (symbol-name-default-case arg)))))
 
 (defun column-name-from-arg (arg)
   (cond ((symbolp arg)
@@ -159,7 +159,7 @@ of the default method.  The extra allowed options are the value of the
        ((typep arg 'sql-ident)
         (slot-value arg 'name))
        ((stringp arg)
-        (intern (string-upcase arg)))))
+        (intern (symbol-name-default-case arg)))))
 
 
 (defun remove-keyword-arg (arglist akey)