12345678910111213141516171819202122232425262728293031 |
- % Identify clashes between function definitions...
- symbolic;
- load!-selected!-source();
- linelength 100;
- symbolic procedure remdups z;
- if null z then z
- else if member(car z, cdr z) then remdups cdr z
- else car z . remdups cdr z;
- << terpri();
- for each n in oblist() do <<
- z := get(n, 'load!-source);
- z := remdups z;
- % I know that fmprint and tmprint are near duplicates and so I will not
- % mention clashes that only involve exactly those two.
- if length z > 1 and
- not (z = '("fmprint" "tmprint") or
- z = '("tmprint" "fmprint")) then <<
- prin n; ttab 30; princ " defined in ";
- for each z1 in z do <<
- princ " "; princ z1>>;
- terpri() >> >> >>;
- quit;
|