X-Git-Url: http://git.kpe.io/?p=umlisp.git;a=blobdiff_plain;f=classes.lisp;h=9ed9be8388f4d499e8097c98964efc55edfcd3d7;hp=996a7cdde8bb2f781a23b38aabee46443dabad03;hb=a58ac3e24919f15c832aafde4f0d0c40df8f353e;hpb=177557bbd7d32edf3bbcc7f141e079cdcf26fe88

diff --git a/classes.lisp b/classes.lisp
index 996a7cd..9ed9be8 100644
--- a/classes.lisp
+++ b/classes.lisp
@@ -168,17 +168,6 @@
   (:user-name "Source")
   (:default-print-slots aui sab code saui sdui scui tty srl))
 
-(defclass ulo (umlsclass)
-  ((isn :value-type string :initarg :isn :reader isn)
-   (fr :value-type fixnum :initarg :fr :reader fr)
-   (un :value-type string :initarg :un :reader un)
-   (sui :value-type fixnum :initarg :sui :reader sui :print-formatter fmt-sui)
-   (sna :value-type string :initarg :sna :reader sna)
-   (soui :value-type string :initarg :soui :reader soui))
-  (:metaclass hyperobject-class)
-  (:user-name "Locator")
-  (:default-print-slots isn fr un sna soui sui))
-
 (defclass uterm (umlsclass)
   ((lui :value-type fixnum :initarg :lui :reader lui :print-formatter fmt-lui
 	:hyperlink find-uterm-lui)
@@ -256,7 +245,6 @@
    (s#map :reader s#map :subobject (find-umap-cui cui))
    (s#smap :reader s#smap :subobject (find-usmap-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#sat :reader s#sat :subobject (find-usat-ui cui))
    (s#rel :reader s#rel :subobject (find-urel-cui cui))
@@ -298,7 +286,6 @@
    (s#map :reader s#map :subobject (find-umap-cui cui))
    (s#smap :reader s#smap :subobject (find-usmap-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#sat :reader s#sat :subobject (find-usat-ui cui))
    (s#rel :reader s#rel :subobject (find-urel-cui cui))