;;;; Programmer: Kevin M. Rosenberg
;;;; Date Started: Apr 2000
;;;;
-;;;; $Id: classes.lisp,v 1.13 2002/11/23 18:41:41 kevin Exp $
+;;;; $Id: classes.lisp,v 1.14 2002/11/23 22:15:13 kevin Exp $
;;;;
;;;; This file, part of UMLisp, is
;;;; Copyright (c) 2000-2002 by Kevin M. Rosenberg, M.D.
(:metaclass hyperobject-class)
(:default-initargs :sab nil :rel nil :atx nil)
(:title "Associated Expression")
- (print-slots sab rel atx))
+ (:print-slots sab rel atx))
(defclass ucon (umlsclass)
((cui :type fixnum :initarg :cui :reader cui :print-formatter fmt-cui
(:metaclass hyperobject-class)
(:default-initargs :eui nil :wrd nil)
(:title "Lexical Term")
- (:print-list eui wrd))
+ (:print-slots eui wrd))
(defclass labr (umlsclass)
(:metaclass hyperobject-class)
(:default-initargs :ui nil :ui2 nil :ui3 nil)
(:title "Fully Inherited Set of Releatons (TUI's)")
- (:print-slots ui ui2 ui3)
+ (:print-slots ui ui2 ui3))
(defclass sstre2 (umlsclass)
((sty :type string :initarg :ui :reader sty)
-;;;; -*- Mode: Lisp; Syntax: ANSI-Common-Lisp; Base: 10; Package: umlisp -*-
+;;; -*- Mode: Lisp; Syntax: ANSI-Common-Lisp; Base: 10; Package: umlisp -*-
;;;; *************************************************************************
;;;; FILE IDENTIFICATION
;;;;
;;;; Programmer: Kevin M. Rosenberg
;;;; Date Started: Apr 2000
;;;;
-;;;; $Id: composite.lisp,v 1.10 2002/11/23 20:59:22 kevin Exp $
+;;;; $Id: composite.lisp,v 1.11 2002/11/23 22:15:13 kevin Exp $
;;;;
;;;; This file, part of UMLisp, is
;;;; Copyright (c) 2000-2002 by Kevin M. Rosenberg, M.D.
(:default-initargs :freq 0)
(:title "Concept and Count")
(:print-slots cui freq pfstr)
- (:ref-fields (cui find-ucon-cui))
(:documentation "Composite object of ucon/freq"))
(defclass ustr_freq (ustr)
(:metaclass hyperobject-class)
(:default-initargs :freq 0)
(:title "Semantic Type and Count")
- (:print-slots tui freq sty))
+ (:print-slots tui freq sty)
(:documentation "Composite object of usty/freq"))
(defun find-usty_freq-all ()
(kmrcl:aif (cui2 ucoc)
(let ((ucon2 (find-ucon-cui kmrcl::it)))
(when (ucon-is-tui? ucon2 tui)
- (push (make-instance 'ucon_freq :ucon ucon2 :freq (cof ucoc))
+ (push (make-instance 'ucon_freq :cui (cui ucon2) :lrl (lrl ucon2)
+ :pfstr (pfstr ucon2) :freq (cof ucoc))
ucon_freqs)))))
(setq ucon_freqs (delete-duplicates ucon_freqs :key #'cui))
(sort ucon_freqs #'> :key #'freq)))
(kmrcl:aif (aref ucon_freqs (cui ucon2))
(setf (freq kmrcl::it) (1+ (freq kmrcl::it)))
(setf (aref ucon_freqs (cui ucon2))
- (make-instance 'ucon_freq :ucon ucon2 :freq 1)))))
+ (make-instance 'ucon_freq :cui (cui ucon2) :lrl (lrl ucon2)
+ :pfstr (pfstr ucon2) :freq 1)))))
(let ((ucon_freq-list '()))
(dotimes (i (find-cui-max))
(declare (fixnum i))