X-Git-Url: http://git.kpe.io/?p=umlisp.git;a=blobdiff_plain;f=create-sql.lisp;fp=create-sql.lisp;h=3a1902019df6632feb72dcfecb2d3595913912c7;hp=20964f5c4ae3a6a8f4023ecf033582a759061856;hb=6b0acc8fd6324c9a8000d224808a50a781ea8c74;hpb=d6fa830c8e84a5c18b47eaf56ec924095d358efb

diff --git a/create-sql.lisp b/create-sql.lisp
index 20964f5..3a19020 100644
--- 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"))
@@ -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)