(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