-(defun print-umlsclass (obj &key (stream *standard-output*) (category :compact-text)
- (file-wrapper t) (english-only nil) (subobjects nil)
- (refvars nil))
+(defun print-umlsclass (obj &key (stream *standard-output*)
+ (category :compact-text)
+ (file-wrapper t) (english-only t) (subobjects nil)
+ (refvars nil) (link-printer nil))