From 39a479e5f9a18b8e9211cac3e8391ee29e54c3ee Mon Sep 17 00:00:00 2001
From: "Kevin M. Rosenberg" <kevin@rosenberg.net>
Date: Sat, 19 Jul 2003 20:32:48 +0000
Subject: [PATCH] r5339: *** empty log message ***

---
 class-support.lisp | 5 ++++-
 debian/copyright   | 6 +++---
 package.lisp       | 4 ++--
 utils.lisp         | 4 ++--
 4 files changed, 11 insertions(+), 8 deletions(-)

diff --git a/class-support.lisp b/class-support.lisp
index 141b233..b106046 100644
--- a/class-support.lisp
+++ b/class-support.lisp
@@ -7,7 +7,7 @@
 ;;;; Author:       Kevin M. Rosenberg
 ;;;; Date Started: Apr 2000
 ;;;;
-;;;; $Id: class-support.lisp,v 1.16 2003/07/16 20:40:43 kevin Exp $
+;;;; $Id: class-support.lisp,v 1.17 2003/07/19 20:32:48 kevin Exp $
 ;;;;
 ;;;; This file, part of UMLisp, is
 ;;;;    Copyright (c) 2000-2003 by Kevin M. Rosenberg, M.D.
@@ -163,6 +163,9 @@
 (defun remove-non-english-terms (uterms)
   (remove-if-not #'english-term-p uterms))
 
+(defun remove-english-terms (uterms)
+  (remove-if #'english-term-p uterms))
+
 
 #+(or scl cmu)
 (dolist (c '(urank udef usat uso ucxt ustr ulo uterm usty urel ucoc uatx ucon uxw uxnw uxns lexterm labr lagr lcmp lmod lnom lprn lprp lspl ltrm ltyp lwd sdef sstr sstre1 sstre2 usrl))
diff --git a/debian/copyright b/debian/copyright
index 4da4088..ca38614 100644
--- a/debian/copyright
+++ b/debian/copyright
@@ -6,10 +6,10 @@ It was downloaded from ftp://umlisp.b9.com
 Upstream Author: Kevin M. Rosenberg <kevin@rosenberg.net>
 
 
-UMLisp is Copyright (C) 2000-2002 by Kevin M. Rosenberg It is
-open-source software govened by the GNU General Public License.  This
+UMLisp is Copyright (C) 2000-2002 by Kevin M. Rosenberg. UMLisp is
+open-source software governed by the GNU General Public License.  This
 license is located in the file /usr/share/common-licenses/GPL of your
-Debian filesyste.
+Debian filesystem.
 
 This code is distributed in the hope that it will be useful, but
 without any warranty; without even the implied warranty of
diff --git a/package.lisp b/package.lisp
index 3cf39b1..f53f100 100644
--- a/package.lisp
+++ b/package.lisp
@@ -7,7 +7,7 @@
 ;;;; Programmer:    Kevin M. Rosenberg
 ;;;; Date Started:  Apr 2000
 ;;;;
-;;;; $Id: package.lisp,v 1.25 2003/06/29 16:21:09 kevin Exp $
+;;;; $Id: package.lisp,v 1.26 2003/07/19 20:32:48 kevin Exp $
 ;;;;
 ;;;; This file, part of UMLisp, is
 ;;;;    Copyright (c) 2000-2003 by Kevin M. Rosenberg, M.D.
@@ -41,7 +41,7 @@
    
    ;; From class-support.lisp
    #:ucon-has-tui
-   #:english-term-p #:remove-non-english-terms
+   #:english-term-p #:remove-non-english-terms #:remove-english-terms
    #:fmt-cui #:fmt-tui #:fmt-sui #:fmt-eui #:fmt-tui
    #:display-con #:display-term #:display-str
    #:uterm-pfstr
diff --git a/utils.lisp b/utils.lisp
index 3c9d84c..1be342c 100644
--- a/utils.lisp
+++ b/utils.lisp
@@ -7,7 +7,7 @@
 ;;;; Author:        Kevin M. Rosenberg
 ;;;; Date Started:  Apr 2000
 ;;;;
-;;;; $Id: utils.lisp,v 1.9 2003/06/15 19:01:01 kevin Exp $
+;;;; $Id: utils.lisp,v 1.10 2003/07/19 20:32:48 kevin Exp $
 ;;;;
 ;;;; This file, part of UMLisp, is
 ;;;;    Copyright (c) 2000-2003 by Kevin M. Rosenberg, M.D.
@@ -87,7 +87,7 @@
   (+ (* +cuisui-scale+ cui) sui))
 
 (defun make-cuilui (cui lui)
-  (declare (fixnum cui sui)
+  (declare (fixnum cui lui)
 	   (optimize (speed 3) (safety 0) (space 0)))
   (+ (* +cuisui-scale+ cui) lui))
 
-- 
2.34.1