projects
/
umlisp.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
56ac568
)
r4831: Auto commit for Debian build
author
Kevin M. Rosenberg
<kevin@rosenberg.net>
Tue, 6 May 2003 04:42:55 +0000
(
04:42
+0000)
committer
Kevin M. Rosenberg
<kevin@rosenberg.net>
Tue, 6 May 2003 04:42:55 +0000
(
04:42
+0000)
sql-create.lisp
patch
|
blob
|
history
diff --git
a/sql-create.lisp
b/sql-create.lisp
index 096d3d4d41765ebf91e6e852e111f6a05da8b1b9..700af8f6c9c06f1ac8e74faa256467d2c733963a 100644
(file)
--- a/
sql-create.lisp
+++ b/
sql-create.lisp
@@
-7,7
+7,7
@@
;;;; Programmer: Kevin M. Rosenberg
;;;; Date Started: Apr 2000
;;;;
;;;; Programmer: Kevin M. Rosenberg
;;;; Date Started: Apr 2000
;;;;
-;;;; $Id: sql-create.lisp,v 1.1
2 2003/05/06 04:33:14
kevin Exp $
+;;;; $Id: sql-create.lisp,v 1.1
3 2003/05/06 04:42:55
kevin Exp $
;;;;
;;;; This file, part of UMLisp, is
;;;; Copyright (c) 2000-2002 by Kevin M. Rosenberg, M.D.
;;;;
;;;; This file, part of UMLisp, is
;;;; Copyright (c) 2000-2002 by Kevin M. Rosenberg, M.D.
@@
-197,8
+197,8
@@
This is much faster that using create-umls-db-insert."
"Translate a umls file into a format suitable for sql copy cmd"
(let ((output-path (umls-pathname filename extension))
(input-files (mklist files)))
"Translate a umls file into a format suitable for sql copy cmd"
(let ((output-path (umls-pathname filename extension))
(input-files (mklist files)))
- (if (probe-file path)
- (format t "File ~A already exists: skipping~%" path)
+ (if (probe-file
output-
path)
+ (format t "File ~A already exists: skipping~%"
output-
path)
(dolist (input-file input-files)
(with-open-file (ostream output-path :direction :output)
(with-umls-file (line (umls-file-fil input-file))
(dolist (input-file input-files)
(with-open-file (ostream output-path :direction :output)
(with-umls-file (line (umls-file-fil input-file))