Artifact 666b7393d67cdc722cb168448647e8d93934bed6c0cfb3459ea7936150039ddc:

• Executable file r37/lisp/csl/util/clash.red — part of check-in [f2fda60abd] at 2011-09-02 18:13:33 on branch master — Some historical releases purely for archival purposes

  git-svn-id: https://svn.code.sf.net/p/reduce-algebra/code/trunk/historical@1375 2bfe0521-f11c-4a00-b80e-6202646ff360 (user: arthurcnorman@users.sourceforge.net, size: 512) [annotate] [blame] [check-ins using] [more...]

% 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;