(* ;;-*-LISP-*- Keep EMACS happy ********************************
*
*     STRIPPED DOWN VERSION OF MY INITIALIZATION CODE
*
****************************************************************)

(DEFINEQ (SPEECH.INIT.ROACH (LAMBDA ()
 (PROG ()
  (* Breaks and resets *)
  (ADDTOVAR BREAKRESETFORMS (BREAKRESET T))
  (SETQ CLOSEBREAKWINDOWFLG 'ALL)
  (SETQ HELPFLAG 'BREAK%!)
  (* Carets. *)
  (RPLACA (CDR \CARET) 0)
  (SETQ BXCARET \CARET)
  (SETQ BXHICARET \CARET)
  (SETQ DEFAULTCARET \CARET)
  (* Give CLISP a lobotomy -- wish I could set CLISPFLG NIL *)
  (FOR CHAR IN CLISPCHARS
   WHEN (NOT (EQ CHAR '%←))
   DO (CLDISABLE CHAR))
  (REMPROP '- 'LISPFN)
  (FOR ATOM IN '(AND OR NOT FIRST INSIDE)
   DO (CLDISABLE ATOM))
  (SETQ CLISPFLG T)
  (SETQ CL%:FLG NIL)
  (SETQ CLREMPARSFLG NIL)
  (SETQ CLISPIFYPACKFLG NIL)
  (SETQ CLISPIFYENGLSHFLG NIL)
  (SETQ CLISPIFYPRETTYFLG NIL)
  (SETQ CLISPIFTRANFLG NIL)
  (* Compilation *)
  (SETQ CLEANUPOPTIONS '(RC ST))
  (ADVISE '(ASKUSER IN COMPSETREAD)
	  'BEFORE
	  '(RETURN 'ST))
  (* Dedit *)
  (MOVD 'EDITREC 'DR)
  (MOVD 'EDITE 'DE)
  (* Directories *)
  (ADDTOVAR DIRECTORIES 
	    {PHYLUM}<SPEECH>
	    {DSK})
  (SETQ LOGINHOST/DIR '{PHYLUM}<ROACH>LISP>)
  (CNDIR '{PHYLUM}<SPEECH>)
  (* Dwim and spelling correction *)
  (SETQ NOSPELLFLG T)
  (SETQ DWIMWAIT 20)
  (* Editting *)
  (SETQ INITIALS 'kbr%:)
  (SETQ EDITCHARACTERS NIL)
  (SETQ EDITCOMSA (DREMOVE '%\ EDITCOMSA))
  (SETQ EDITCOMSL (DREMOVE '%\ EDITCOMSL))
  (SETQ EDITUNSAVEBLOCKFLG NIL)
  (* Greet *)
  (ADDTOVAR GREETDATES
	    ("1-APR" . "April Fool%'s")
	    ("7-MAY" . "Happy Birthday"))
  (* LISPXMACROS - what a mistake *)
  (MOVD '/CNDIR 'CONN)
  (MOVD 'FILEBROWSER 'FB)
  (FOR PAIR IN LISPXMACROS
   WHEN (GETD (CAR PAIR))
   DO (* Use fn instead of macro *)
   (RPLACA PAIR '*IGNORE*))
  (* PHYLEX%: *)
  (SETQ CH.NET.HINT 131)
  (SETQ CH.DEFAULT.DOMAIN "XSIS NORTH")
  (START.CLEARINGHOUSE)
  (SETPASSWORD '{PHYLEX%:}
	       'ROACH:XSIS% North
	       (PACKC '(66 69 83 83 69 76)))
  (* Pretty printing *)
  (SETQ SYSPRETTYFLG T)
  (SETQ **COMMENT**FLG NIL)
  (* Miscellaneous *)
  (ADDTOVAR INITIALSLST (ROACH Kelly kbr%:))
  (ADDTOVAR NETWORKOSTYPES (MAXC2 . TENEX))
  (ADDTOVAR PROMPTCHARFORMS (MAILWATCHER))
  (COND (LOGOW (CLOSEW LOGOW)))
  (COND ((EQ \MACHINETYPE \DANDELION)
	 (KEYACTION 'SUPERSCRIPT '(LOCKDOWN))
	 (KEYACTION 'SUBSCRIPT '(LOCKUP))))
  (METASHIFT T)
  (MOVD 'TRUE 'BREAKCHECK)
  (MOVD? 'RECLOOK 'OLD.RECLOOK)
  (MOVD 'NEW.RECLOOK 'RECLOOK)
  (MOVD? 'PRETTYPRINT 'OLD.PRETTYPRINT)
  (MOVD 'NEW.PRETTYPRINT 'PRETTYPRINT)
  (MOVD? 'PRINTDEF 'OLD.PRINTDEF)
  (MOVD 'NEW.PRINTDEF 'PRINTDEF)
  (MOVD? 'SMARTARGLIST 'OLD.SMARTARGLIST)
  (MOVD 'NEW.SMARTARGLIST 'SMARTARGLIST)
  (PUTPROP 'ROACH 'MAILBOX 'MAXC2)
  (RECLAIMMIN 10000)
  (RAISE NIL)
  (SETQ #RPARS MAX.FIXP)
  (SETQ CHANGESARRAY NIL)
  (SETQ CHAT.INTERRUPTS '((8 HELP)))
  (SETQ COPYRIGHTOWNERS '((X "Xerox Corporation")))
  (SETQ CURRENTINTERRUPTS (COPY \CURRENTINTERRUPTS))
  (SETQ CUTEFLG NIL)
  (SETQ DEBUG T)
  (SETQ DEFAULTCHATHOST 'MAXC2)
  (SETQ DEFAULTPRINTINGHOST 'QUAKE)
  (SETQ DEFAULTRENAMEMETHOD 'MASTERSCOPE)
  (SETQ FILEPKGFLG NIL)
  (SETQ NORMALCOMMENTSFLG T)
  (SETQ LINESPERPAGE 65)
  (SETQ PFDEFAULT T)
  (SETQ PUPTRACEFLG NIL)
  (SETQ SAVEVMWAIT 600000)
  (SHAPEW PROMPTWINDOW (CREATE REGION
			       BOTTOM ← 740
			       LEFT ← 251
			       WIDTH ← 496
			       HEIGHT ← 67))
))))

(DEFINEQ (BREAKRESET (LAMBDA (FLAG)
  (* FLAG = T if entering break.  NIL if exiting. *)
  (PROG ()
    (COND ((NOT FLAG)(CLOSEBREAK)))
))))

(DEFINEQ (NEW.PRETTYPRINT (LAMBDA (FNS PRETTYDEFLG FNSLST)
  (* Fix PRETTYPRINT not to print square brackets even though 
     #RPARS = MAX.FIXP. *)
  (RESETLST (RESETSAVE #RPARS NIL)
	    (OLD.PRETTYPRINT FNS PRETTYDEFLG FNSLST))
)))

(DEFINEQ (NEW.PRINTDEF (LAMBDA (EXPR LEFT DEF TAILFLG FNSLST FILE)
  (* Fix PRINTDEF not to print square brackets. *)
  (RESETLST (RESETSAVE #RPARS NIL)
            (OLD.PRINTDEF EXPR LEFT DEF TAILFLG FNSLST FILE))
)))

(DEFINEQ (NEW.RECLOOK (LAMBDA (RECNAME TL LOCALDEC PARENT ERROR)
  (* Fix RECLOOK to search system SYSTEMRECLST too. *)
  (OR (OLD.RECLOOK RECNAME TL LOCALDEC PARENT ERROR)
      (SYSRECLOOK1 RECNAME)))))

(DEFINEQ (NEW.SMARTARGLIST (LAMBDA (FN EXPLAINFLG TAIL)
  (* Fix SMARTARGLIST not to cause errors in TTYIN. *)
  (COND ((AND (NULL (GETD FN))
	      (NULL (GETPROP FN 'ARGNAMES)))
	 '(undefined))
	(T (OLD.SMARTARGLIST FN EXPLAINFLG TAIL))))))

(SPEECH.INIT.ROACH)

(* ****************************************************************
*MAKE INTERFISH HAPPY
****************************************************************)

STOP