X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=sql-classes.lisp;h=d086fd4969689c1ecf9424ef17616be5314510e1;hb=a23039d046bf7f98cd71a9e053c385dda4a3eac0;hp=2b468dc095080d61e621470005df128dbf1131b1;hpb=6b0acc8fd6324c9a8000d224808a50a781ea8c74;p=umlisp.git

diff --git a/sql-classes.lisp b/sql-classes.lisp
index 2b468dc..d086fd4 100644
--- 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)