(defun set-current-srl (srl)
(setq *current-srl* srl))
-;; SQLNAME is required for collision of SQL reserved words (MYSQL 8: RANK)
-;; and column names in UMLS (RANK in MRRANK)
-(defvar *sql-reserved-names* '("RANK"))
-(defmethod sqlname ((c ucol))
- (sqlname (col c)))
-(defmethod sqlname ((name string))
- (if (find name *sql-reserved-names* :test #'string-equal)
- (concatenate 'string "_" name)
- name))
-(defmethod sqlname ((l list))
- (mapcar #'sqlname l))
-(defmethod sqlname ((s symbol))
- (sqlname (symbol-name s)))
-
(defmacro query-string (table fields srl where-name where-value
&key (lrl "KCUILRL") single distinct order like limit
filter)