X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=classes.lisp;h=1c656299575a35e334ae89ac3b442bd96de44f8f;hb=bd9f41ad4699320d51c338377b51b75c34bbc647;hp=05af0fbf36fe4fc0ceb49dcbbe01796453cd1c1c;hpb=7f30522f16a7c528b5a0f0ee493bbb0cb1aef77b;p=umlisp.git

diff --git a/classes.lisp b/classes.lisp
index 05af0fb..1c65629 100644
--- a/classes.lisp
+++ b/classes.lisp
@@ -194,6 +194,7 @@
   (:user-name "Relationship")
   (:default-print-slots stype1 rel cui2 aui2 stype2 rela rui srui sab sl rg dir suppress pfstr2))
 
+#+mrcoc
 (defclass ucoc (umlsclass)
   ((cui1 :value-type fixnum :initarg :cui1 :reader cui1 :print-formatter fmt-cui)
    (aui1 :value-type fixnum :initarg :aui1 :reader aui1 :print-formatter fmt-aui)
@@ -227,7 +228,8 @@
    (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))
-   (s#coc :reader s#coc :subobject (find-ucoc-cui cui)))
+   #+mrcoc (s#coc :reader s#coc :subobject (find-ucoc-cui cui))
+   )
   (:metaclass hyperobject-class)
   (:user-name "Concept")
   (:default-print-slots cui lrl pfstr))
@@ -270,7 +272,8 @@
    (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))
-   (s#coc :reader s#coc :subobject (find-ucoc-cui cui)))
+   #+mrcoc (s#coc :reader s#coc :subobject (find-ucoc-cui cui))
+   )
   (:documentation "CONSO is a new concept from the RRF files.")
   (:metaclass hyperobject-class)
   (:user-name "Concept")