X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=class-support.lisp;h=47463dd194610fb454fc6a7b5a37ff484bf58cb5;hb=bd9f41ad4699320d51c338377b51b75c34bbc647;hp=0352c742f0b5523876603b003ae1c92b4b4a96e9;hpb=7f30522f16a7c528b5a0f0ee493bbb0cb1aef77b;p=umlisp.git

diff --git a/class-support.lisp b/class-support.lisp
index 0352c74..47463dd 100644
--- a/class-support.lisp
+++ b/class-support.lisp
@@ -291,6 +291,7 @@
         (sort (copy-seq f) 'string-lessp :key 'u::pfstr2)
         f)))
 
+#+mrcoc
 (defun filter-ucocs (ucocs &key (remove-duplicate-pfstr2 t) (sort :pfstr2))
   (when remove-duplicate-pfstr2
     (setq ucocs (remove-duplicates ucocs :test 'equal :key 'u::pfstr2)))
@@ -364,6 +365,8 @@
 
 
 #+scl
-(dolist (c '(urank udef usat uso ucxt ustr uterm usty urel ucoc uatx uconso uxw uxnw uxns lexterm labr lagr lcmp lmod lnom lprn lprp lspl ltrm ltyp lwd sdef sstr sstre1 sstre2 usrl))
+(dolist (c '(urank udef usat uso ucxt ustr uterm usty urel
+             #+mrcoc ucoc
+             uatx uconso uxw uxnw uxns lexterm labr lagr lcmp lmod lnom lprn lprp lspl ltrm ltyp lwd sdef sstr sstre1 sstre2 usrl))
     (let ((cl (find-class c)))
       (clos:finalize-inheritance cl)))