X-Git-Url: http://git.kpe.io/?p=clsql.git;a=blobdiff_plain;f=sql%2Fsyntax.lisp;h=5a713d0f20d6a4c6e75b41dbfafae8212e1abe5f;hp=f3f8372ead60213381c58282821bb4c8ed757d10;hb=8a8ee2d7d791b7a3efaed06420802a925d16fca3;hpb=7f0e4a65d1b425f2fa58fc7cce8296c1a6c52c2f

diff --git a/sql/syntax.lisp b/sql/syntax.lisp
index f3f8372..5a713d0 100644
--- a/sql/syntax.lisp
+++ b/sql/syntax.lisp
@@ -1,19 +1,20 @@
 ;;;; -*- Mode: LISP; Syntax: ANSI-Common-Lisp; Base: 10 -*-
-;;;; ======================================================================
-;;;; File:    package.lisp
-;;;; Updated: <04/04/2004 12:05:16 marcusp>
-;;;; ======================================================================
+;;;; *************************************************************************
 ;;;;
-;;;; Description ==========================================================
-;;;; ======================================================================
+;;;; $Id$
 ;;;;
-;;;; CLSQL-USQL square bracket symbolic query syntax. Functions for
+;;;; CLSQL square bracket symbolic query syntax. Functions for
 ;;;; enabling and disabling the syntax and for building SQL
 ;;;; expressions using the syntax.
 ;;;;
-;;;; ======================================================================
+;;;; This file is part of CLSQL.
+;;;;
+;;;; CLSQL users are granted the rights to distribute and use this software
+;;;; as governed by the terms of the Lisp Lesser GNU Public License
+;;;; (http://opensource.franz.com/preamble.html), also known as the LLGPL.
+;;;; *************************************************************************
 
-(in-package :clsql-usql-sys)
+(in-package #:clsql-sys)
 
 (defvar *original-reader-enter* nil)
 
@@ -156,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)