(FILECREATED " 9-Mar-86 15:34:38" {ERIS}<LISPCORE>BVM>ABC.;2
 2383   

      changes to:  (VARS ABCCOMS)

      previous date: "30-Oct-85 16:43:36" {ERIS}<LISPCORE>BVM>ABC.;1)


(* Copyright (c) 1981, 1982, 1983, 1984, 1985, 1986 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))
                      (CROSSCOMPILING (QUOTE ASK)))
                (FILES (SOURCE)
                       FILESETS)
                (FILES (SYSLOAD)
                       SAMEDIR WHEREIS)
                (ADDVARS (WHEREIS.HASH {ERIS}<LISPCORE>SOURCES>SYSTEM.WHEREISHASH))
                (P (MOVD? (QUOTE APPLY*)
                          (QUOTE SPREADAPPLY*))
                   [RESETVARS ((CROSSCOMPILING T))
                          (LOAD? (QUOTE {ERIS}<LISPCORE>BVM>EXPORTS.ALL))
                          (AND (EQ (ASKUSER DWIMWAIT (QUOTE N)
                                          "Check imports? " NIL T)
                                   (QUOTE Y))
                               (ERSETQ (CHECKIMPORTS EXPORTFILES T]
                   (LISPXUNREAD (QUOTE (SHH (SETQQ DFNFLG PROP])

(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)

(RPAQQ CROSSCOMPILING
 ASK)
(FILESLOAD (SOURCE)
       FILESETS)
(FILESLOAD (SYSLOAD)
       SAMEDIR WHEREIS)

(ADDTOVAR WHEREIS.HASH
 {ERIS}<LISPCORE>SOURCES>SYSTEM.WHEREISHASH)
(MOVD? (QUOTE APPLY*)
       (QUOTE SPREADAPPLY*))
[RESETVARS ((CROSSCOMPILING T))
       (LOAD? (QUOTE {ERIS}<LISPCORE>BVM>EXPORTS.ALL))
       (AND (EQ (ASKUSER DWIMWAIT (QUOTE N)
                       "Check imports? " NIL T)
                (QUOTE Y))
            (ERSETQ (CHECKIMPORTS EXPORTFILES T]
[LISPXUNREAD (QUOTE (SHH (SETQQ DFNFLG PROP]
(PUTPROPS ABC COPYRIGHT ("Xerox Corporation" 1981 1982 1983 1984 1985 1986))
(DECLARE: DONTCOPY
  (FILEMAP (NIL)))
STOP