File r38/lisp/csl/util/clash.red artifact c5f6daa9fc part of check-in 87ba6d7183
% Identify clashes between function definitions... symbolic; % for each n in oblist() do put(n, 'load!-source, t); load!-source := t; for each m in library!-members() do load!-source m; linelength 100; for each n in oblist() do << z := get(n, 'load!-source); if not atom z and cdr z then << prin n; ttab 30; princ " defined in "; for each z1 in z do << princ " "; princ z1>>; terpri() >> >>; quit;