From: Kevin M. Rosenberg Date: Fri, 29 Nov 2002 23:14:38 +0000 (+0000) Subject: r3522: *** empty log message *** X-Git-Tag: v2006ac.2~288 X-Git-Url: http://git.kpe.io/?p=umlisp.git;a=commitdiff_plain;h=0bf370434a1c50e6dc100db41c843e1b291401bb r3522: *** empty log message *** --- diff --git a/classes.lisp b/classes.lisp index 2ca6b77..94a3ffe 100644 --- a/classes.lisp +++ b/classes.lisp @@ -7,7 +7,7 @@ ;;;; Programmer: Kevin M. Rosenberg ;;;; Date Started: Apr 2000 ;;;; -;;;; $Id: classes.lisp,v 1.17 2002/11/25 07:45:36 kevin Exp $ +;;;; $Id: classes.lisp,v 1.18 2002/11/29 23:14:38 kevin Exp $ ;;;; ;;;; This file, part of UMLisp, is ;;;; Copyright (c) 2000-2002 by Kevin M. Rosenberg, M.D. @@ -47,14 +47,14 @@ (defclass udef (umlsclass) ((def :type cdata :initarg :def :reader def) - (sab :type string :initarg :sab :reader sab :reference find-usab-rsab)) + (sab :type string :initarg :sab :reader sab :hyperlink find-usab-rsab)) (:metaclass hyperobject-class) (:default-initargs :def nil :sab nil) (:title "Definition") (:print-slots sab def)) (defclass usat (umlsclass) - ((sab :type string :initarg :sab :reader sab :reference find-usab-rsab) + ((sab :type string :initarg :sab :reader sab :hyperlink find-usab-rsab) (code :type string :initarg :code :reader code) (atn :type string :initarg :atn :reader atn) (atv :type cdata :initarg :atv :reader atv)) @@ -67,7 +67,7 @@ ((vcui :type fixnum :initarg :vcui :reader vcui :print-formatter fmt-cui) (rcui :type fixnum :initarg :rcui :reader rcui :print-formatter fmt-cui) (vsab :type string :initarg :vsab :reader vsab) - (rsab :type string :initarg :rsab :reader rsab :reference find-ucan-sab) + (rsab :type string :initarg :rsab :reader rsab :hyperlink find-ucan-sab) (son :type string :initarg :son :reader son) (sf :type string :initarg :sf :reader sf) (sver :type string :initarg :sver :reader sver) @@ -99,9 +99,9 @@ curver sabin)) (defclass uso (umlsclass) - ((sab :type string :initarg :sab :reader sab :reference find-usab-rsab) + ((sab :type string :initarg :sab :reader sab :hyperlink find-usab-rsab) (code :type string :initarg :code :reader code) - (tty :type string :initarg :tty :reader tty :reference find-btty-tty) + (tty :type string :initarg :tty :reader tty :hyperlink find-btty-tty) (srl :type fixnum :initarg :srl :reader srl)) (:metaclass hyperobject-class) (:default-initargs :sab nil :code nil :tty nil :srl nil) @@ -109,13 +109,13 @@ (:print-slots sab code tty srl)) (defclass ucxt (umlsclass) - ((sab :type string :initarg :sab :reader sab :reference find-usab-rsab) + ((sab :type string :initarg :sab :reader sab :hyperlink find-usab-rsab) (code :type string :initarg :code :reader code) (rnk :type fixnum :initarg :rnk :reader rnk) (cxn :type fixnum :initarg :cxn :reader cxn) (cxl :type string :initarg :cxl :reader cxl) (cxs :type cdata :initarg :cxs :reader cxs) - (cui2 :type fixnum :initarg :cui2 :reader cui2 :reference find-ucon-cui + (cui2 :type fixnum :initarg :cui2 :reader cui2 :hyperlink find-ucon-cui :print-formatter fmt-cui) (hcd :type string :initarg :hcd :reader hcd) (rela :type string :initarg :rela :reader rela) @@ -128,10 +128,10 @@ (defclass ustr (umlsclass) ((sui :type fixnum :initarg :sui :reader sui :print-formatter fmt-sui - :reference find-ustr-sui) + :hyperlink find-ustr-sui) (cui :type fixnum :initarg :cui :reader cui :print-formatter fmt-cui) (lui :type fixnum :initarg :lui :reader lui :print-formatter fmt-lui - :reference find-uterm-lui) + :hyperlink find-uterm-lui) (cuisui :type integer :initarg :cuisui :reader cuisui ) (str :type cdata :initarg :str :reader str) (lrl :type fixnum :initarg :lrl :reader lrl) @@ -158,7 +158,7 @@ (:print-slots isn fr un sna soui sui)) (defclass uterm (umlsclass) - ((lui :type fixnum :initarg :lui :reader lui :reference find-uterm-lui) + ((lui :type fixnum :initarg :lui :reader lui :hyperlink find-uterm-lui) (cui :type fixnum :initarg :cui :reader cui) (lat :type string :initarg :lat :reader lat) (ts :type string :initarg :ts :reader ts) @@ -172,7 +172,7 @@ (defclass usty (umlsclass) ((tui :type fixnum :initarg :tui :reader tui :print-formatter fmt-tui - :reference (find-ucon-tui ("subobjects" "no"))) + :hyperlink (find-ucon-tui ("subobjects" "no"))) (sty :type string :initarg :sty :reader sty)) (:metaclass hyperobject-class) (:default-initargs :tui nil :sty nil) @@ -180,13 +180,13 @@ (:print-slots tui sty)) (defclass urel (umlsclass) - ((rel :type string :initarg :rel :reader rel :reference find-brel-rel) + ((rel :type string :initarg :rel :reader rel :hyperlink find-brel-rel) (cui1 :type fixnum :initarg :cui1 :reader cui1 :print-formatter fmt-cui) - (cui2 :type fixnum :initarg :cui2 :reader cui2 :reference find-ucon-sui + (cui2 :type fixnum :initarg :cui2 :reader cui2 :hyperlink find-ucon-sui :print-formatter fmt-cui) (pfstr2 :type cdata :initarg :pfstr2 :reader pfstr2) (rela :type string :initarg :rela :reader rela) - (sab :type string :initarg :sab :reader sab :reference find-usab-rsab) + (sab :type string :initarg :sab :reader sab :hyperlink find-usab-rsab) (sl :type string :initarg :sl :reader sl) (mg :type string :initarg :mg :reader mg)) (:metaclass hyperobject-class) @@ -198,7 +198,7 @@ (defclass ucoc (umlsclass) ((cui1 :type fixnum :initarg :cui1 :reader cui1 :print-formatter fmt-cui) (cui2 :type fixnum :initarg :cui2 :reader cui2 :print-formatter fmt-cui - :reference find-ucon-cui) + :hyperlink find-ucon-cui) (pfstr2 :type cdata :initarg :pfstr2 :reader pfstr2) (soc :type string :initarg :soc :reader soc) (cot :type string :initarg :cot :reader cot) @@ -222,7 +222,7 @@ (defclass ucon (umlsclass) ((cui :type fixnum :initarg :cui :reader cui :print-formatter fmt-cui - :reference find-ucon-cui) + :hyperlink find-ucon-cui) (pfstr :type cdata :initarg :pfstr :reader pfstr) (lrl :type fixnum :initarg :lrl :reader lrl) (s#term :reader s#term :subobject t) @@ -271,7 +271,7 @@ (defclass lexterm (umlsclass) ((eui :type fixnum :initarg :eui :reader eui :print-formatter fmt-eui - :reference find-lexterm-eui) + :hyperlink find-lexterm-eui) (wrd :type string :initarg :wrd :reader wrd) (s#abr :reader s#abr :subobject t) (s#agr :reader s#agr :subobject t)