X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=sql%2Fsyntax.lisp;h=9fca44542083ca0f1721fc46c13bb85577d18d16;hb=f246c3c7b48792a869cb1bae0637a2f00a0920bd;hp=bf3ce15484487696cd7e8fb1d6e4b5da5aa4fab1;hpb=73cf858d596ad1d51c745b478292433617cf9d72;p=clsql.git

diff --git a/sql/syntax.lisp b/sql/syntax.lisp
index bf3ce15..9fca445 100644
--- a/sql/syntax.lisp
+++ b/sql/syntax.lisp
@@ -14,8 +14,7 @@
 ;;;; (http://opensource.franz.com/preamble.html), also known as the LLGPL.
 ;;;; *************************************************************************
 
-
-(in-package #:clsql-sys)
+(in-package #:clsql)
 
 (defvar *original-reader-enter* nil)
 
@@ -158,7 +157,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)