-(defun display-umls-obj
- (obj &key (os *standard-output*) (format :text) (label nil)
- (file-wrapper t) (english-only nil) (subobjects nil)
- (refvars nil))
- (display-ml-class
- obj :os os :format format :label label :subobjects subobjects
- :file-wrapper file-wrapper
- :english-only-function (if english-only #'english-term-p nil)
- :refvars refvars))
-
-(defmacro defludisp-ml-class (newfuncname lookup-func)
+
+(defgeneric print-umlsclass (obj &key os format label file-wrapper english-only subobjects refvars)
+ )
+
+(defmethod print-umlsclass ((obj umlsclass) &key (os *standard-output*) (format :text)
+ (label nil) (file-wrapper t) (english-only nil) (subobjects nil)
+ (refvars nil))
+ (print-hyperobject obj :os os :format format :label label :subobjects subobjects
+ :file-wrapper file-wrapper
+ :english-only-function (if english-only #'english-term-p nil)
+ :refvars refvars))
+
+
+(defmacro define-lookup-display (newfuncname lookup-func)