projects
/
umlisp.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
r11439: remove MRLO as this has been deleted from the UMLS since 2004AB
[umlisp.git]
/
class-support.lisp
diff --git
a/class-support.lisp
b/class-support.lisp
index 69983a621434a642ecb603a6ee7b65a95b755bc2..3847eb5ef2813d876b4e41be5b76692a7ac20f4f 100644
(file)
--- a/
class-support.lisp
+++ b/
class-support.lisp
@@
-198,11
+198,6
@@
"Returns T if UCON has a semantic type of TUI."
(some #'(lambda (usty) (= tui (tui usty))) (s#sty ucon)))
"Returns T if UCON has a semantic type of TUI."
(some #'(lambda (usty) (= tui (tui usty))) (s#sty ucon)))
-(defgeneric suistr (lo))
-(defmethod suistr ((lo ulo))
- "Return the string for a ulo object"
- (find-string-sui (sui lo)))
-
(defgeneric pf-ustr (obj))
(defmethod pf-ustr ((ucon ucon))
"Return the preferred ustr for a ucon"
(defgeneric pf-ustr (obj))
(defmethod pf-ustr ((ucon ucon))
"Return the preferred ustr for a ucon"
@@
-374,7
+369,7
@@
#+scl
#+scl
-(dolist (c '(urank udef usat uso ucxt ustr u
lo uterm usty urel ucoc uatx ucon
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 u
term 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))
(let ((cl (find-class c)))
(clos:finalize-inheritance cl)))
(let ((cl (find-class c)))
(clos:finalize-inheritance cl)))