X-Git-Url: http://git.kpe.io/?p=clsql.git;a=blobdiff_plain;f=sql%2Fsyntax.lisp;h=371f046614ebe338a2d1325c4760968f184b2835;hp=bf3ce15484487696cd7e8fb1d6e4b5da5aa4fab1;hb=9a70270bf9a1d60323ded33ce52bd0904544c70b;hpb=813ae0f6f92e4b9dfac48528d64a6ae8b229d3a1

diff --git a/sql/syntax.lisp b/sql/syntax.lisp
index bf3ce15..371f046 100644
--- a/sql/syntax.lisp
+++ b/sql/syntax.lisp
@@ -158,7 +158,7 @@ attribute and type."
 for the operator."
   (typecase operation
     (string nil)
-    (symbol (gethash (string-upcase (symbol-name operation))
+    (symbol (gethash (symbol-name-default-case (symbol-name operation))
                      *sql-op-table*))))
 
 (defun sql-operation (operation &rest rest)