(FILECREATED " 3-Sep-84 12:52:02" {ERIS}<LISPCORE>SOURCES>ABC.;7
 1793   

      changes to:  (VARS ABCCOMS)

      previous date: "17-Aug-84 21:40:28" {ERIS}<LISPCORE>SOURCES>ABC.;6)


(* Copyright (c) 1981, 1982, 1983, 1984 by Xerox Corporation. All rights reserved.)

(PRETTYCOMPRINT ABCCOMS)

(RPAQQ ABCCOMS
 [(VARS (CLISPIFYPRETTYFLG)
		      (MSRECORDTRANFLG T)
		      (DWIMIFYCOMPFLG)
		      (MSMACROPROPS COMPILERMACROPROPS)
		      (CLEANUPOPTIONS (QUOTE (RC F)))
		      (CROSSCOMPILING T)
		      (ASKEDITHIST T)
		      (RECOMPILEDEFAULT (QUOTE CHANGES)))
		(FILES FILESETS)
		(P (SETDIRECTORIES))
		[P [RESETVARS ((CROSSCOMPILING T))
			      (FILESLOAD (SOURCE FROM {ERIS}<LISPCORE>LIBRARY>)
					 EXPORTS.ALL)
			      (SETDIRECTORIES)
			      (FILESLOAD SAMEDIR WHEREIS)
			      (AND (EQ (ASKUSER DWIMWAIT (QUOTE Y)
						"Check imports? " NIL T)
				       (QUOTE Y))
				   (ERSETQ (CHECKIMPORTS EXPORTFILES T]
		   (LISPXUNREAD (QUOTE (SHH (SETQQ DFNFLG PROP]
		(VARS (CROSSCOMPILING (QUOTE ASK])

(RPAQQ CLISPIFYPRETTYFLG
 NIL)

(RPAQQ MSRECORDTRANFLG
 T)

(RPAQQ DWIMIFYCOMPFLG
 NIL)

(RPAQ MSMACROPROPS
 COMPILERMACROPROPS)

(RPAQQ CLEANUPOPTIONS
 (RC F))

(RPAQQ CROSSCOMPILING
 T)

(RPAQQ ASKEDITHIST
 T)

(RPAQQ RECOMPILEDEFAULT
 CHANGES)
(FILESLOAD FILESETS)
(SETDIRECTORIES)
[RESETVARS ((CROSSCOMPILING T))
	   (FILESLOAD (SOURCE FROM {ERIS}<LISPCORE>LIBRARY>)
		      EXPORTS.ALL)
	   (SETDIRECTORIES)
	   (FILESLOAD SAMEDIR WHEREIS)
	   (AND (EQ (ASKUSER DWIMWAIT (QUOTE Y)
			     "Check imports? " NIL T)
		    (QUOTE Y))
		(ERSETQ (CHECKIMPORTS EXPORTFILES T]
[LISPXUNREAD (QUOTE (SHH (SETQQ DFNFLG PROP]

(RPAQQ CROSSCOMPILING
 ASK)
(PUTPROPS ABC COPYRIGHT ("Xerox Corporation" 1981 1982 1983 1984))
(DECLARE: DONTCOPY
  (FILEMAP (NIL)))
STOP