
# list
procedure command2arglist(symbol)
#================================
# build arglist in standard order from atlist & pplist
# NOTE: (copy problem) physically deletes pplist from symbol
local sym,format,NEWarglist
sym := copy(symbol)
if find_stype("pplist",sym) then {
	format := new_bse(" ","{",[sym],"}")
	NEWarglist := format2rolelist(format)  # role.icn
} else {
	NEWarglist := []
}
return NEWarglist
end
