e routines
k*
%s=x25gen.newinfo
(f/!=/m-nmam)*
%s
m-*
((t/%routine/,t/%function/,t/%map/,t/%predicate/)i/ %spec/pm,m)*
m-*
(t/%spec/i/ /40l*r40(v/ /e)*pm,m)*
g
%endoffile
%c

prep x25gen.newinfo,infos#imp,clean
dimp11 infos#imp
dlink11
infos#rel
.stack 2000
.stackseg 6
.name info
.end
infoy
destroy dobj.ninfoy
rename infoy#abs,dobj.ninfoy
cherish infos#lst,dobj.ninfoy