-;; 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)))
-