X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=sql%2Fmetaclasses.lisp;h=ac0592087e6add41f5d3ed03428b5f3056b638a2;hb=9a70270bf9a1d60323ded33ce52bd0904544c70b;hp=0efa327dd94e123518c96255ea9ffea797a970e2;hpb=150e23be29d88d99e4114a8cff017b3cce005e10;p=clsql.git

diff --git a/sql/metaclasses.lisp b/sql/metaclasses.lisp
index 0efa327..ac05920 100644
--- 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)