:paui (ensure-integer paui)
:sab sab :rela rela :ptr ptr :hcd hcd :cvf cvf)))
-(defun find-usat-ui (cui &key lui sui (srl *current-srl*))
+(defun find-usat-ui (cui &optional lui sui &key (srl *current-srl*))
(ensure-cui-integer cui)
(ensure-lui-integer lui)
(ensure-sui-integer sui)