From: Kevin M. Rosenberg <kevin@rosenberg.net>
Date: Mon, 4 Nov 2002 19:19:04 +0000 (+0000)
Subject: r3292: *** empty log message ***
X-Git-Tag: v2006ac.2~307
X-Git-Url: http://git.kpe.io/?p=umlisp.git;a=commitdiff_plain;h=7d4ec12b5748570badb8e3ac884ff3cdc4b83de1

r3292: *** empty log message ***
---

diff --git a/classes.lisp b/classes.lisp
index b82410b..3e40a53 100644
--- a/classes.lisp
+++ b/classes.lisp
@@ -7,7 +7,7 @@
 ;;;; Programmer:    Kevin M. Rosenberg
 ;;;; Date Started:  Apr 2000
 ;;;;
-;;;; $Id: classes.lisp,v 1.9 2002/11/04 18:02:13 kevin Exp $
+;;;; $Id: classes.lisp,v 1.10 2002/11/04 19:19:04 kevin Exp $
 ;;;;
 ;;;; This file, part of UMLisp, is
 ;;;;    Copyright (c) 2000-2002 by Kevin M. Rosenberg, M.D.
@@ -19,21 +19,12 @@
 (in-package :umlisp)
 (declaim (optimize (speed 3) (safety 1) (compilation-speed 0) (debug 3)))
 
-(defclass umlsclass ()
+(defclass umlsclass (hyperobject)
   ()
   (:metaclass hyperobject-class)
   (:documentation "Parent class of all UMLS objects. It is based on the HYPEROBJECT-CLASS metaclass that provides object printing functions."))
 
 
-(defmethod print-object ((obj umlsclass) (s stream))
-  (print-unreadable-object (obj s :type t :identity t)
-    (let ((fmt (make-instance 'kmrcl::textformat)))
-      (apply #'format 
-	     s (funcall (kmrcl::obj-data-fmtstr fmt) obj)
-	     (multiple-value-list 
-	      (funcall (funcall (kmrcl::obj-data-value-func fmt) obj) obj))))))
-
-
 (defclass usrl (umlsclass)
   ((sab :type string :initarg :sab :reader sab)
    (srl :type integer :initarg :srl :reader srl))
@@ -526,7 +517,7 @@
 (eval-when (:compile-toplevel :load-toplevel :execute)
 (defun english-term-p (obj)
   "Returns two values: T/NIL if term is english and T/NIL if obj is a TERM"
-  (if (eq (kmrcl::hyperobject-class-name (kmrcl::hyperobject-class-of obj)) 'uterm)
+  (if (eq (hyperobject::portable-class-name (hyperobject::portable-class-of obj)) 'uterm)
       (values (string-equal (lat obj) "ENG") t)
     (values nil nil))))
 
diff --git a/debian/changelog b/debian/changelog
index 47e1a86..12e7cfc 100644
--- a/debian/changelog
+++ b/debian/changelog
@@ -1,3 +1,9 @@
+cl-umlisp (1.2.1-2) unstable; urgency=low
+
+  * Fix print-object
+
+ -- Kevin M. Rosenberg <kmr@debian.org>  Mon,  4 Nov 2002 11:49:29 -0700
+
 cl-umlisp (1.2-1) unstable; urgency=low
 
   * New upstream