Path: utzoo!mnetor!uunet!lll-winken!lll-lcc!ames!pasteur!ucbvax!XEROX.COM!Lanning.pa
From: Lanning.pa@XEROX.COM (Stanley's Tool Works)
Newsgroups: comp.sys.xerox
Subject: Re: problems with ADVICEs in lyric
Message-ID: <880219-162400-9959@Xerox>
Date: 20 Feb 88 00:23:00 GMT
Sender: daemon@ucbvax.BERKELEY.EDU
Organization: The Internet
Lines: 14

With a small amount of effort, you can write a function PURGE-FILE-ADVICE that
removes redundent advice from a file.  Then add the form (PURGE-FILE-ADVICE
FILE) to the list MAKEFILEFORMS.

PURGE-FILE-ADVICE might look like

(LAMBDA (FILE)
  (for FN in (FILECOMSLST FILE 'ADVICE) do
     (PUTDEF FN 'ADVICE
        (CL:REMOVE-DUPLICATES (GETDEF FN 'ADVICE)
                              :TEST #'EQUAL))))

I haven't tested this out, but something like it will work.

----- smL