Change default SQL server host

[umlisp.git] / sql-classes.lisp

diff --git a/sql-classes.lisp b/sql-classes.lisp
index 2b468dc095080d61e621470005df128dbf1131b1..d086fd4969689c1ecf9424ef17616be5314510e1 100644 (file)
--- a/sql-classes.lisp
+++ b/sql-classes.lisp
@@ -23,20 +23,6 @@
 (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)