`(progn
(defun ,function ,@body)
(let ((symbol (cadr (member :symbol ',definition-keys))))
- (setf (gethash (if symbol (clsql-base-sys:symbol-name-default-case symbol) ',function)
+ (setf (gethash (if symbol (symbol-name-default-case symbol) ',function)
*sql-op-table*)
',function))))