r5339: *** empty log message ***

diff --git a/class-support.lisp b/class-support.lisp
index 141b23310580f4ec651dbad13c30a77ee97826b2..b106046d2b732387a6c248d5b25f0ffac2940756 100644 (file)
--- 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 4da40885eec12e3712c88a5b756de36e80bb3885..ca386145144042bb0d3cb30f49d77d316897578d 100644 (file)
--- 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 3cf39b166061b2cdca15ded8b3439228e5b94ded..f53f100c4bb5d3bb06184c716b0a612a38b018fe 100644 (file)
--- 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 3c9d84cc93d637fbf10090788ca193e53963bced..1be342cc855f65d3e92dd897d44e57e647e105ae 100644 (file)
--- 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))