define fyn_pl
p "=>=>=>=>=>=>=>=> begin =>=>=>=>=>=>=>=>"
set $___tmp = $arg0.pListHead
while $___tmp
p $___tmp.arKey
set $___tmp = $___tmp.pListNext
end
p "<=<=<=<=<=<=<=<= end <=<=<=<=<=<=<=<="
end
使用
fyn_pl *executor_globals.class_table
fyn_pl *executor_globals.included_files