:cui2 (ensure-integer cui2) :aui2 (ensure-integer aui2) :stype2 stype2
:rui (ensure-integer rui) :srui srui :rela rela :sab sab :sl sl :rg rg :dir dir
:suppress suppress :cvf cvf :pfstr2 (find-pfstr-cui cui2))))
:cui2 (ensure-integer cui2) :aui2 (ensure-integer aui2) :stype2 stype2
:rui (ensure-integer rui) :srui srui :rela rela :sab sab :sl sl :rg rg :dir dir
:suppress suppress :cvf cvf :pfstr2 (find-pfstr-cui cui2))))