Change default SQL server host

[umlisp.git] / create-sql.lisp

diff --git a/create-sql.lisp b/create-sql.lisp
index 27f65de0b431681ea6c3a5148b6cfea2a922d13c..3a1902019df6632feb72dcfecb2d3595913912c7 100644 (file)
--- a/create-sql.lisp
+++ b/create-sql.lisp
@@ -30,7 +30,7 @@
                   (setq sqltype "VARCHAR2(20)")))))
 
              (concatenate 'string
-               (col c)
+               (sqlname c)
                " "
                (if (or (string-equal sqltype "VARCHAR")
                        (string-equal sqltype "CHAR"))
@@ -292,7 +292,7 @@
     (insert-ustats-count conn "Hierarchcy" "MRHIER" "*" "KSRL" srl)
     (insert-ustats-count conn "Mappings" "MRMAP" "*" "KSRL" srl)
     (insert-ustats-count conn "Simple Mappings" "MRSMAP" "*" "KSRL" srl)
-    (insert-ustats-count conn "Co-occuring Concept Count" "MRCOC" "*" "KLRL" srl)
+#+mrcoc (insert-ustats-count conn "Co-occuring Concept Count" "MRCOC" "*" "KLRL" srl)
     (insert-ustats-count conn "Definition Count" "MRDEF" "*" "KSRL" srl)
     (insert-ustats-count conn "Rank Count" "MRRANK" "*" "KSRL" srl)
     (insert-ustats-count conn "Relationship Count" "MRREL" "*" "KSRL" srl)
@@ -403,7 +403,7 @@ This is much faster that using create-umls-db-insert."
           (delete-file output-path)
           nil)
         ((eql input-lines translated-lines)
-          (format t "Translated file ~A already exists: skipping...~%" output-path)
+          (format t "Translated file ~A exists and is proper number of lines: skipping...~%" output-path)
           t)
         ((eql input-lines 0)
           (warn "The number of input lines is 0 for output file ~A." output-path)