(FILECREATED "18-JUL-83 22:31:03" <BLISP>ABC.;6
    1999

      changes to:  (VARS ABCCOMS)

      previous date: " 9-JUL-83 00:44:30" <BLISP>ABC.;5)


(* Copyright (c) 1981, 1982, 1983 by Xerox Corporation)

(PRETTYCOMPRINT ABCCOMS)

(RPAQQ ABCCOMS
 ((VARS (CLISPIFYPRETTYFLG)
		      (MSRECORDTRANFLG T)
		      (DWIMIFYCOMPFLG)
		      (MSMACROPROPS COMPILERMACROPROPS)
		      (CLISPIFYPRETTYFLG)
		      (RECOMPILEDEFAULT (QUOTE CHANGES))
		      (CLEANUPOPTIONS (QUOTE (RC F)))
		      (GLOBALVARFLG T)
		      (CROSSCOMPILING (QUOTE ASK)))
		[DECLARE: EVAL@LOADWHEN (EQ (SYSTEMTYPE)
					    (QUOTE D))
			  (ADDVARS (DIRECTORIES {PHYLUM}<LISPCORE>SOURCES> {PHYLUM}<LISPCORE>SYSTEM>))
			  (P (CLISPDEC (QUOTE FFETCHFIELD))
			     [RESETVARS ((CROSSCOMPILING T))
					(FILESLOAD (SOURCE)
						   EXPORTS.ALL FILESETS)
					(AND (EQ (ASKUSER DWIMWAIT (QUOTE Y)
							  "Check imports? " NIL T)
						 (QUOTE Y))
					     (ERSETQ (CHECKIMPORTS EXPORTFILES T]
			     (LISPXUNREAD (QUOTE (SHH (SETQQ DFNFLG PROP]
		(FILES (SYSLOAD FROM VALUEOF LISPUSERSDIRECTORIES)
		       SAMEDIR)))

(RPAQQ CLISPIFYPRETTYFLG
 NIL)

(RPAQQ MSRECORDTRANFLG
 T)

(RPAQQ DWIMIFYCOMPFLG
 NIL)

(RPAQ MSMACROPROPS
 COMPILERMACROPROPS)

(RPAQQ CLISPIFYPRETTYFLG
 NIL)

(RPAQQ RECOMPILEDEFAULT
 CHANGES)

(RPAQQ CLEANUPOPTIONS
 (RC F))

(RPAQQ GLOBALVARFLG
 T)

(RPAQQ CROSSCOMPILING
 ASK)
(DECLARE: EVAL@LOADWHEN (EQ (SYSTEMTYPE)
			    (QUOTE D)) 

(ADDTOVAR DIRECTORIES
 {PHYLUM}<LISPCORE>SOURCES> {PHYLUM}<LISPCORE>SYSTEM>)

(CLISPDEC (QUOTE FFETCHFIELD))
[RESETVARS ((CROSSCOMPILING T))
	   (FILESLOAD (SOURCE)
		      EXPORTS.ALL FILESETS)
	   (AND (EQ (ASKUSER DWIMWAIT (QUOTE Y)
			     "Check imports? " NIL T)
		    (QUOTE Y))
		(ERSETQ (CHECKIMPORTS EXPORTFILES T]
[LISPXUNREAD (QUOTE (SHH (SETQQ DFNFLG PROP]
)
(FILESLOAD (SYSLOAD FROM VALUEOF LISPUSERSDIRECTORIES)
	   SAMEDIR)
(PUTPROPS ABC COPYRIGHT ("Xerox Corporation" 1981 1982 1983))
(DECLARE: DONTCOPY
  (FILEMAP (NIL)))
STOP