X-Git-Url: http://git.kpe.io/?p=clsql.git;a=blobdiff_plain;f=sql%2Fmetaclasses.lisp;h=c76a210f6e8c6aedc3337ca93ba48027f6717fb1;hp=909f622b4ffcc1f0f1137d372c8327581403ba86;hb=706c29aa55b25e5b7c7f90460589a4702b1390e7;hpb=e16a346ab24dc2ee91ce331baef039767bca57e9

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)