From 9c0bccac3fb46e0cb8ab6d2a63b7fc5a92221002 Mon Sep 17 00:00:00 2001
From: "Kevin M. Rosenberg" <kevin@rosenberg.net>
Date: Fri, 9 May 2003 11:04:06 +0000
Subject: [PATCH] r4893: Auto commit for Debian build

---
 create-sql.lisp   | 4 ++--
 debian/changelog  | 6 ++++++
 parse-common.lisp | 4 ++--
 3 files changed, 10 insertions(+), 4 deletions(-)

diff --git a/create-sql.lisp b/create-sql.lisp
index 4367e1d..8632daa 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.4 2003/05/09 00:06:38 kevin Exp $
+;;;; $Id: create-sql.lisp,v 1.5 2003/05/09 11:02:44 kevin Exp $
 ;;;;
 ;;;; This file, part of UMLisp, is
 ;;;;    Copyright (c) 2000-2002 by Kevin M. Rosenberg, M.D.
@@ -192,7 +192,7 @@ 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 (remove-if "MRXW.NONENG" *umls-files* :test #'string= :key #'fil))
+  (dolist (f (remove "MRXW.NONENG" *umls-files* :test #'string= :key #'fil))
     (translate-umls-file f extension)))
 
 (defun translate-umls-file (file extension)
diff --git a/debian/changelog b/debian/changelog
index ae47308..8bef08a 100644
--- a/debian/changelog
+++ b/debian/changelog
@@ -1,3 +1,9 @@
+cl-umlisp (3.1.1-1) unstable; urgency=low
+
+  * New upstream
+
+ -- Kevin M. Rosenberg <kmr@debian.org>  Fri,  9 May 2003 05:03:14 -0600
+
 cl-umlisp (3.1.0-1) unstable; urgency=low
 
   * Another pass of refactoring of parsing
diff --git a/parse-common.lisp b/parse-common.lisp
index bca8940..bf334ca 100644
--- a/parse-common.lisp
+++ b/parse-common.lisp
@@ -7,7 +7,7 @@
 ;;;; Author:        Kevin M. Rosenberg
 ;;;; Date Started:  Apr 2000
 ;;;;
-;;;; $Id: parse-common.lisp,v 1.13 2003/05/08 04:36:12 kevin Exp $
+;;;; $Id: parse-common.lisp,v 1.14 2003/05/09 11:04:06 kevin Exp $
 ;;;;
 ;;;; This file, part of UMLisp, is
 ;;;;    Copyright (c) 2000-2002 by Kevin M. Rosenberg, M.D.
@@ -184,7 +184,7 @@ Currently, these are the LEX and NET files."
     ucol))
 
 (defun make-empty-ucol (colname filename)
-  (warn "call in make-empty-ucol: ~A/~A" colname filename)
+  ;;(format "call in make-empty-ucol: ~A/~A" colname filename)
   (make-ucol (copy-seq colname) "Unknown" "" nil nil nil filename nil))
 
 (defun find-ucol (colname filename)
-- 
2.34.1