r4893: Auto commit for Debian build

diff --git a/create-sql.lisp b/create-sql.lisp
index 4367e1d4f216371ab93435b9dc277153e87ede73..8632daab775a4d089aa0b3e900fcd0737c694310 100644 (file)
--- 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 ae47308c04bd326d9e10bee8d9e0d58ae34635a2..8bef08a46355ffe43c2a52a635d511a368ef0d92 100644 (file)
--- 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 bca8940c9232bed5688c014aa1945af96c4cf9c1..bf334ca7edeaf15924b72517f80b6f09309541fd 100644 (file)
--- 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)