(FILECREATED "17-Oct-84 13:50:59" {PHYLUM}<IDL>CM>INIT.;1
 5673   

      changes to:  (VARS INITCOMS)
		   (FNS INIT.IDL)

      previous date: "21-Aug-84 15:18:54" {PHYLUM}<LFG>PARSER>INIT.;4)


(PRETTYCOMPRINT INITCOMS)

(RPAQQ INITCOMS
 [(E (RESETSAVE CLISPIFYPRETTYFLG NIL))
		 (FNS INIT.IDL FILE PPR)
		 (DECLARE: DONTEVAL@LOAD DOCOPY (P (INIT.IDL lastname firstname initials maildir)))
		 (DECLARE: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS
			   (ADDVARS (NLAMA PPR FILE)
				    (NLAML INIT.IDL)
				    (LAMA])
(DEFINEQ

(INIT.IDL

  [NLAMBDA (LASTNAME FIRSTNAME INITIALS MAILDIR)             (* edited: "17-Oct-84 13:49")

    [
COND

      ((
OR
 (
NULL
 LASTNAME)
	   (
EQ
 LASTNAME (
QUOTE
 lastname)))                   (* We are running the unmodified template file)

	(
SETQ
 LASTNAME (
USERNAME
 NIL T))
	(
SETQ
 FIRSTNAME (
SETQ
 INITIALS (
SETQ
 MAILDIR NIL]
    [
SETQ
 LASTNAME (
SUBATOM
 LASTNAME 1 (
SUB1
 (
OR
 (
STRPOS
 ".PA" LASTNAME)
						 0]
    [
SELECTQ
 LASTNAME
	     (LFG (
SETQ
 LASTNAME (
MKATOM
 (
PROMPTFORWORD
 "What is your REAL name? ")))
		  (
SETQ
 LOGINHOST/DIR (
PACK*
 (
QUOTE
 {PHYLUM}<IDL>)
					     LASTNAME
					     (
QUOTE
 >)))
		  (
SETQ
 MAILDIR (
PACK*
 LOGINHOST/DIR (
QUOTE
 MAIL>)))
		  (
TERPRI
))
	     (NIL)
	     (
PROGN
 (
SETQ
 LOGINHOST/DIR (
PACK*
 (
QUOTE
 {PHYLUM}<)
					       LASTNAME
					       (
QUOTE
 >LISP>)))
		    (
OR
 MAILDIR (
SETQ
 MAILDIR (
PACK*
 (
QUOTE
 {PHYLUM}<)
						     LASTNAME
						     (
QUOTE
 >MAIL>]
    (
RPAQQ
 COPYRIGHTOWNERS ((Xerox "Xerox Corporation")))
    (
RPAQQ
 DWIMWAIT 30)
    (
RPAQQ
 PFDEFAULT T)
    (
RPAQQ
 CHANGESARRAY NIL)
    (
RPAQQ
 AUTOBACKTRACEFLG T)
    (
RPAQQ
 CLISPIFYENGLSHFLG NIL)
    (
RPAQQ
 CUTEFLG NIL)
    (
RPAQQ
 EDITCHARACTERS (J (H G)
			     Z Y N (O NIL)))
    (
RPAQQ
 **COMMENT**FLG "  (* --)  ")
    (
RPAQQ
 EDITUNSAVEBLOCKFLG NIL)
    (
RPAQQ
 NORMALCOMMENTSFLG T)
    (
RPAQQ
 DEFAULTRENAMEMETHOD MASTERSCOPE)
    (
RPAQQ
 LINESPERPAGE 69)
    (
RPAQQ
 CLEANUPOPTIONS (RC ST))
    (
RPAQQ
 TTYINCOMPLETEFLG NIL)
    (
AND
 (
OPENWP
 LOGOW)
	 (
CLOSEW
 LOGOW))
    (
WINDOWPROP
 PROMPTWINDOW (
QUOTE
 TITLE)
		NIL)
    (
SHAPEW
 PROMPTWINDOW (
CREATEREGION
 20 744 542 63))
    (
RPAQ
 LAFITEDEFAULTHOST&DIR MAILDIR)                     (* LAFITE)

    (
RPAQQ
 LAFITEUSEHIGHESTVERSIONFLG T)
    (
RPAQQ
 LAFITESTATUSWINDOWPOSITION (585 . 751))
    [
PROGN
 (
SETUSERNAME
 LASTNAME)
	   [
ADDTOVAR
 BEFORELOGOUTFORMS (
OR
 (
STRPOS
 ".PA" (
USERNAME
 NIL T))
					   (
SETUSERNAME
 (
PACK*
 (
USERNAME
 NIL T)
							       (
QUOTE
 .PA]
	   (
ADDTOVAR
 AFTERLOGOUTFORMS (
SETUSERNAME
 (
SUBATOM
 (
USERNAME
 NIL T)
							    1
							    (
SUB1
 (
OR
 (
STRPOS
 ".PA" (
USERNAME
 NIL T))
								      0]
    (
COND

      ((
AND
 LASTNAME (
DEFINEDP
 (
QUOTE
 LAFITE)))
	(
RPAQ
 LAFITEHARDCOPYFONT (
FONTCREATE
 (
QUOTE
 CLASSIC)
					     10 NIL NIL (
QUOTE
 DISPLAY)))
	[
RPAQ
 LAFITEDISPLAYFONT (
RPAQ
 LAFITEEDITORFONT (
FONTCREATE
 (
QUOTE
 TIMESROMAN)
								   10 NIL NIL (
QUOTE
 DISPLAY]
	(
LAFITE
 (
QUOTE
 ON)
		NIL)))
    (
RPAQQ
 DEFAULTCHATHOST PARC-CSLI)
    (
ADDTOVAR
 CHAT.ALLHOSTS MAXC2 PHYLUM ERIS PARC-CSLI IVY INDIGO)
    (
METASHIFT
 T)
    [
ADDTOVAR
 EDITMACROS
	      (SHOWD NIL UP
		     (ORR ((E (
RESETFORM
 (
OUTPUT
 T)
					 (
PROGN
 (
PRINTDEF

						  (
OR
 [
EDITGETD
 (
##
 1)
								(
AND
 (
CDR
 L)
								     (
EDITL0
 L (
QUOTE
 (!0]
						      (
ERROR!
))
						  NIL T)
						(
TERPRI
)))
			      T))
			  ((E (
QUOTE
 SHOWD?]
    (
ADDTOVAR
 EDITCOMSA SHOWD)
    [
AND
 LASTNAME (push
 INITIALSLST (
LIST
 (
PACK*
 LASTNAME (
QUOTE
 .PA))
					  FIRSTNAME
					  (if
 (
EQ
 (
NTHCHAR
 INITIALS -1)
						  (
QUOTE
 :))
					      then
 INITIALS
					    else
 (
PACK*
 (
OR
 INITIALS (
L-CASE
 LASTNAME))
							(
QUOTE
 :]
    (
ADDTOVAR
 DIRECTORIES {PHYLUM}<IDL>SOURCES> {DSK})
    (
RPAQ
 DIRECTORIES (
CONS
 LOGINHOST/DIR DIRECTORIES))
    (
MOVD?
 (
QUOTE
 EDITF)
	   (
QUOTE
 EF))
    (
MOVD?
 (
QUOTE
 EDITV)
	   (
QUOTE
 EV))
    (
MOVD?
 (
QUOTE
 EDITP)
	   (
QUOTE
 EP))
    (
MOVD?
 (
QUOTE
 EDITREC)
	   (
QUOTE
 ER))
    (
RAISE
)
    (for
 X in
 (
QUOTE
 (
AND
 OR
)) do
 (
REMPROP
 X (
QUOTE
 CLISPINFIX)))
    (
AND
 (
NULL
 (
EVALV
 (
QUOTE
 TESTSYS)))
	 (
SETQ
 CLISPIFYPRETTYFLG (
QUOTE
 CHANGES))
	 (
SETQ
 CLISPIFTRANFLG (
QUOTE
 T])

(FILE

  [NLAMBDA ARGS                                              (* rmk: "25-JUL-79 23:31")

    [COND
      ((CDR ARGS)
	(/SETATOMVAL (FILECOMS (CAR ARGS))
		     (COND
		       ((AND (LITATOM (CADR ARGS))
			     (NULL (CDDR ARGS)))
			 (GETATOMVAL (CADR ARGS)))
		       (T (CDR ARGS]
    (RESETFORM (RADIX 10)
	       (MAKEFILE (CAR ARGS])

(PPR

  [NLAMBDA X                                                 (* rmk: "25-JUL-79 23:37")

    (RESETFORM (OUTPUT T)
	       (MAPC (OR (LISTP X)
			 (LIST X))
		     (FUNCTION (LAMBDA (R)
			 [PRINTDEF (OR (APPEND (RECLOOK R)
					       (FIELDLOOK R))
				       (CONS R (QUOTE (not found]
			 (TERPRI T])
)
(DECLARE: DONTEVAL@LOAD DOCOPY 
(INIT.IDL lastname firstname initials maildir)
)
(DECLARE: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS 

(ADDTOVAR NLAMA
 PPR FILE)

(ADDTOVAR NLAML
 INIT.IDL)

(ADDTOVAR LAMA
 )
)
(PUTPROPS INIT COPYRIGHT (NONE))
(DECLARE: DONTCOPY
  (FILEMAP (NIL (538 5389 (INIT.IDL 548 . 4715) (FILE 4717 . 5069) (PPR 5071 . 5387)))))
STOP