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

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)