;;;; (http://opensource.franz.com/preamble.html), also known as the LLGPL.
;;;; *************************************************************************
-(in-package #:clsql-sys)
+(in-package #:clsql)
;; Keep a hashtable for mapping symbols to sql generator functions,
;; for use by the bracketed reader syntax.
`(progn
(defun ,function ,@body)
(let ((symbol (cadr (member :symbol ',definition-keys))))
- (setf (gethash (if symbol (string-upcase symbol) ',function)
+ (setf (gethash (if symbol (symbol-name-default-case symbol) ',function)
*sql-op-table*)
',function))))