;;;; Programmer: Kevin M. Rosenberg
;;;; Date Started: Apr 2000
;;;;
-;;;; $Id: classes.lisp,v 1.6 2002/10/16 15:22:28 kevin Exp $
+;;;; $Id: classes.lisp,v 1.7 2002/10/16 17:37:18 kevin Exp $
;;;;
;;;; This file, part of UMLisp, is
;;;; Copyright (c) 2000-2002 by Kevin M. Rosenberg, M.D.
(eval-when (:compile-toplevel :load-toplevel :execute)
(defun english-term-p (obj)
- (and (eq (class-name (class-of obj)) 'uterm)
- (string-equal (lat obj) "ENG"))))
+ "Returns two values: T/NIL if term is english and T/NIL if obj is a TERM"
+ (if (eq (kmrcl::ml-class-name (kmrcl::ml-class-of obj)) 'uterm)
+ (values (string-equal (lat obj) "ENG") t)
+ (values nil nil))))
(defun display-umls-obj
(obj &key (os *standard-output*) (format :text) (label nil)