(FILECREATED "31-OCT-83 18:38:49" {PHYLUM}<LISPCORE>SOURCES>IMPLMANUAL.;1 1116 changes to: (VARS IMPLMANUALCOMS MYFILETYPES) (FNS COMPILE.ATOMS)) (PRETTYCOMPRINT IMPLMANUALCOMS) (RPAQQ IMPLMANUALCOMS ((VARS MYFILETYPES) (FNS COMPILE.ATOMS))) (RPAQQ MYFILETYPES (CURSORS BITMAPS TEMPLATES UGLYVARS HORRIBLEVARS CONSTANTS GLOBALRESOURCES USERMACROS SYSRECORDS RECORDS (PRETTYDEFMACROS . FILEPKGCOMS) MACROS LISPXMACROS INITRECORDS I.S.OPRS (FILEPKGTYPES . FILEPKGCOMS) FILES DEFS ALISTS GLOBALVARS VARS INITVARS FNS ARRAY ORIGINAL ADVISE ADVICE BLOCKS)) (DEFINEQ (COMPILE.ATOMS [LAMBDA (ATOMFILE) (* jds "31-OCT-83 18:01") (PROG (ATOMLIST) (for F in SYSFILES do (printout ATOMFILE T T "---------------" T F T) (for TYPE in MYFILETYPES when (SETQ ATOMLIST (FILECOMSLST F TYPE)) do (printout ATOMFILE ,, TYPE T) (for AT in (SORT ATOMLIST) do (printout ATOMFILE ,, ,, AT T))) (PRINT F]) ) (DECLARE: DONTCOPY (FILEMAP (NIL (623 1094 (COMPILE.ATOMS 633 . 1092))))) STOP