From 78849aa930b4215a487b0a08492989196556efdd Mon Sep 17 00:00:00 2001 From: "Kevin M. Rosenberg" Date: Fri, 9 May 2003 00:06:38 +0000 Subject: [PATCH] r4883: Auto commit for Debian build --- create-sql.lisp | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/create-sql.lisp b/create-sql.lisp index 80d842a..4367e1d 100644 --- a/create-sql.lisp +++ b/create-sql.lisp @@ -7,7 +7,7 @@ ;;;; Author: Kevin M. Rosenberg ;;;; Date Started: Apr 2000 ;;;; -;;;; $Id: create-sql.lisp,v 1.3 2003/05/08 04:36:12 kevin Exp $ +;;;; $Id: create-sql.lisp,v 1.4 2003/05/09 00:06:38 kevin Exp $ ;;;; ;;;; This file, part of UMLisp, is ;;;; Copyright (c) 2000-2002 by Kevin M. Rosenberg, M.D. @@ -192,7 +192,8 @@ This is much faster that using create-umls-db-insert." (defun translate-all-files (&optional (extension ".trans")) "Copy translated files and return postgresql copy commands to import" (make-noneng-index-file extension) - (dolist (f *umls-files*) (translate-umls-file f extension))) + (dolist (f (remove-if "MRXW.NONENG" *umls-files* :test #'string= :key #'fil)) + (translate-umls-file f extension))) (defun translate-umls-file (file extension) "Translate a umls file into a format suitable for sql copy cmd" -- 2.34.1