From: Kevin M. Rosenberg <kevin@rosenberg.net>
Date: Sun, 4 May 2003 08:55:52 +0000 (+0000)
Subject: r4800: Auto commit for Debian build
X-Git-Tag: v2006ac.2~201
X-Git-Url: http://git.kpe.io/?a=commitdiff_plain;h=48a89995e768d67fcda55849a70b0ea759ad190a;p=umlisp.git

r4800: Auto commit for Debian build
---

diff --git a/sql-create.lisp b/sql-create.lisp
index 4d10d3d..101a02a 100644
--- 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"