From fb4ca1fe9532db131d859a801f2668e6f0dd30ee Mon Sep 17 00:00:00 2001 From: "Kevin M. Rosenberg" Date: Sat, 12 Apr 2003 05:45:50 +0000 Subject: [PATCH] r4453: Automatic commit for debian_version_2_6_5-1 --- classes.lisp | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) diff --git a/classes.lisp b/classes.lisp index 05a9de0..6f29ca6 100644 --- a/classes.lisp +++ b/classes.lisp @@ -7,7 +7,7 @@ ;;;; Programmer: Kevin M. Rosenberg ;;;; Date Started: Apr 2000 ;;;; -;;;; $Id: classes.lisp,v 1.29 2003/03/29 20:12:50 kevin Exp $ +;;;; $Id: classes.lisp,v 1.30 2003/04/12 05:45:50 kevin Exp $ ;;;; ;;;; This file, part of UMLisp, is ;;;; Copyright (c) 2000-2002 by Kevin M. Rosenberg, M.D. @@ -228,14 +228,14 @@ :hyperlink find-ucon-cui) (lrl :value-type fixnum :initarg :lrl :reader lrl) (pfstr :value-type cdata :initarg :pfstr :reader pfstr) - (s#term :reader s#term :subobject (find-uterm-cui cui)) (s#def :reader s#def :subobject (find-udef-cui cui)) - (s#lo :reader s#lo :subobject (find-ulo-cui cui)) - (s#rel :reader s#rel :subobject (find-urel-cui cui)) - (s#coc :reader s#coc :subobject (find-ucoc-cui cui)) + (s#sty :reader s#sty :subobject (find-usty-cui cui)) (s#sat :reader s#sat :subobject (find-usat-ui cui)) (s#atx :reader s#atx :subobject (find-uatx-cui cui)) - (s#sty :reader s#sty :subobject (find-usty-cui cui))) + (s#lo :reader s#lo :subobject (find-ulo-cui cui)) + (s#term :reader s#term :subobject (find-uterm-cui cui)) + (s#rel :reader s#rel :subobject (find-urel-cui cui)) + (s#coc :reader s#coc :subobject (find-ucoc-cui cui))) (:metaclass hyperobject-class) (:default-initargs :cui nil :lrl nil :pfstr nil) (:user-name "Concept") -- 2.34.1