(FILECREATED "17-Feb-85 15:31:45" {ERIS}<LISP>INTERMEZZO>SOURCES>ABC.;2
 2399   

      changes to:  (VARS ABCCOMS)

      previous date: "27-Nov-84 18:00:34" {ERIS}<LISP>INTERMEZZO>SOURCES>ABC.;1)


(* Copyright (c) 1981, 1982, 1983, 1984, 1985 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)
		(ADDVARS (WHEREIS.HASH {ERIS}<LISP>INTERMEZZO>LIBRARY>SYSTEM.WHEREISHASH 
				       {ERIS}<LISP>INTERMEZZO>LIBRARY>LIBRARY.WHEREISHASH))
		(P (SETDIRECTORIES (QUOTE ERIS)
				   (QUOTE INTERMEZZO)
				   (QUOTE <LISP>INTERMEZZO>)))
		[P [RESETVARS ((CROSSCOMPILING T))
			      (FILESLOAD (SOURCE FROM {ERIS}<LISP>INTERMEZZO>LIBRARY>)
					 EXPORTS.ALL)
			      (SETDIRECTORIES (QUOTE ERIS)
					      (QUOTE INTERMEZZO)
					      (QUOTE <LISP>INTERMEZZO>))
			      (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)

(ADDTOVAR WHEREIS.HASH
 {ERIS}<LISP>INTERMEZZO>LIBRARY>SYSTEM.WHEREISHASH 
					       {ERIS}<LISP>INTERMEZZO>LIBRARY>LIBRARY.WHEREISHASH)
(SETDIRECTORIES (QUOTE ERIS)
		(QUOTE INTERMEZZO)
		(QUOTE <LISP>INTERMEZZO>))
[RESETVARS ((CROSSCOMPILING T))
	   (FILESLOAD (SOURCE FROM {ERIS}<LISP>INTERMEZZO>LIBRARY>)
		      EXPORTS.ALL)
	   (SETDIRECTORIES (QUOTE ERIS)
			   (QUOTE INTERMEZZO)
			   (QUOTE <LISP>INTERMEZZO>))
	   (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 1985))
(DECLARE: DONTCOPY
  (FILEMAP (NIL)))
STOP