projects
/
umlisp.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
fee295e
)
r11483: add :force option to MRXW_NONENG
author
Kevin M. Rosenberg
<kevin@rosenberg.net>
Mon, 8 Jan 2007 15:13:28 +0000
(15:13 +0000)
committer
Kevin M. Rosenberg
<kevin@rosenberg.net>
Mon, 8 Jan 2007 15:13:28 +0000
(15:13 +0000)
create-sql.lisp
patch
|
blob
|
history
diff --git
a/create-sql.lisp
b/create-sql.lisp
index 697ecb0a0eb858260cb67f8c9387b510773ac0d9..9ed31c5cfcbcf7c3928d8b38999ad78817f846a5 100644
(file)
--- a/
create-sql.lisp
+++ b/
create-sql.lisp
@@
-277,7
+277,7
@@
This is much faster that using create-umls-db-insert."
(defun translate-all-files (&key (extension "-trans") verbose force)
"Translate all *umls-files* to optimized import format."
- (make-noneng-index-file extension)
+ (make-noneng-index-file extension
:force force
)
(dolist (f (remove "MRXW_NONENG.RRF" *umls-files* :test #'string= :key #'fil))
(when verbose (format t "UMLS Import: Translating file ~A.~%" (fil f)))
(translate-umls-file f extension :force force)))