(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)

(FILECREATED "21-Aug-2021 18:24:59" {DSK}<home>larry>medley>greetfiles>SIMPLE-INIT.;2
 2224   

      changes to%:  (VARS SIMPLE-INITCOMS)

      previous date%: " 6-Feb-2021 16:44:35" {DSK}<home>larry>medley>greetfiles>SIMPLE-INIT.;1)


(PRETTYCOMPRINT SIMPLE-INITCOMS)

(RPAQQ SIMPLE-INITCOMS

       ((P (LOAD? (CONCAT (OR (UNIX-GETENV "MEDLEYDIR")
                              "")
                         "/sources/MEDLEYDIR.LCOM")))
        (VARS (FILING.ENUMERATION.DEPTH 1)
              [LOGINDIR (DIRECTORYNAME (OR (UNIX-GETENV "LOGINDIR")
                                           (UNIX-GETENV "HOME"]
              [USERGREETFILES `((,LOGINDIR "INIT" COM)
                                (,LOGINDIR "INIT"]
              (COPYRIGHTSRESERVED NIL))
        [P (KEYACTION 'LOCK '(LOCKTOGGLE . IGNORE]
        (FNS INTERLISPMODE)))

(LOAD? (CONCAT (OR (UNIX-GETENV "MEDLEYDIR")
                   "")
              "/sources/MEDLEYDIR.LCOM"))

(RPAQQ FILING.ENUMERATION.DEPTH
 1)

(RPAQ LOGINDIR
 (DIRECTORYNAME (OR (UNIX-GETENV "LOGINDIR")
                                      (UNIX-GETENV "HOME"))))

(RPAQ USERGREETFILES
 `((,LOGINDIR "INIT" COM)
                           (,LOGINDIR "INIT")))

(RPAQQ COPYRIGHTSRESERVED
 NIL)

(KEYACTION 'LOCK '(LOCKTOGGLE . IGNORE))
(DEFINEQ

(INTERLISPMODE

  [LAMBDA (OLD?)                                             (* N.H.Briggs " 2-Feb-88 14:26")

    (PROCESSPROP 'EXEC 'PROFILE (XCL:COPY-PROFILE (if
 OLD?
                                                      then
 "OLD-INTERLISP-T"
                                                    else
 "INTERLISP")))
    (XCL:SET-DEFAULT-EXEC-TYPE (if
 OLD?
                                   then
 "OLD-INTERLISP-T"
                                 else
 "INTERLISP"))
    (SETQ *DEFAULT-MAKEFILE-ENVIRONMENT* (LIST :READTABLE (if
 OLD?
                                                              then
 "OLD-INTERLISP-FILE"
                                                            else
 "INTERLISP")
                                               :PACKAGE "INTERLISP"])
)
(DECLARE%: DONTCOPY
  (FILEMAP (NIL (1376 2201 (INTERLISPMODE 1386 . 2199)))))
STOP