;;;; (http://opensource.franz.com/preamble.html), also known as the LLGPL.
;;;; *************************************************************************
-
-(in-package #:clsql-sys)
+(in-package #:clsql)
(defvar *original-reader-enter* nil)
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)