(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