r4800: Auto commit for Debian build

diff --git a/sql-create.lisp b/sql-create.lisp
index 4d10d3da4c7216fa5d7b3678369684805fe5bec5..101a02a06a0debfac257b5450cb1c287b55749e8 100644 (file)
--- a/sql-create.lisp
+++ b/sql-create.lisp
@@ -7,7 +7,7 @@
 ;;;; Programmer:    Kevin M. Rosenberg
 ;;;; Date Started:  Apr 2000
 ;;;;
-;;;; $Id: sql-create.lisp,v 1.5 2003/05/04 08:52:13 kevin Exp $
+;;;; $Id: sql-create.lisp,v 1.6 2003/05/04 08:55:52 kevin Exp $
 ;;;;
 ;;;; This file, part of UMLisp, is
 ;;;;    Copyright (c) 2000-2002 by Kevin M. Rosenberg, M.D.
@@ -50,7 +50,7 @@
                              (format nil "~a (~a)" sqltype (umls-col-max c))
                              sqltype))))))
     (format nil "CREATE TABLE ~a (~{~a~^,~})" (umls-file-table file)
-           (mapcar col-func (umls-cols-for-umls-file file))))))
+           (mapcar col-func (umls-cols-for-umls-file file)))))
 
 (defun create-custom-table-cmd (tablename sql-cmd)
   "Return SQL command to create a custom table"
@@ -79,7 +79,7 @@
                   (mapcar2-append-string insert-func
                                          (remove-custom-cols (umls-file-colstructs file)) 
                                          values)
-                  (custom-col-values (custom-colstructs-for-file file) values "," t)))
+                  (custom-col-values-old (custom-colstructs-for-file file) values "," t)))
      )))
 
 (defun insert-col-value (col value)
@@ -303,7 +303,7 @@ This is much faster that using create-umls-db-insert."
                    "|"))
                 (remove-custom-cols (umls-file-colstructs file)) 
                 line)
-               (custom-col-values (custom-colstructs-for-file file) line "|" nil))))
+               (custom-col-values-old (custom-colstructs-for-file file) line "|" nil))))
 
 (defun umls-translate (file line)
   "Translate a single line for sql output"