(FILECREATED "10-JUL-78 13:30:54" <KRL>LOADDSYS.;87
 2405   

     changes to:  DSYSFILES

     previous date: "26-MAY-78 16:44:28" <KRL>LOADDSYS.;85)


(PRETTYCOMPRINT LOADDSYSCOMS)

(RPAQQ LOADDSYSCOMS
 [(* for loading up the display system)
		     (FNS LoadDsys)
		     (VARS DSYSFILES DLINKFIXFORMS USERNAMESPLST DSYSMINFSLST
			   (DEFAULTKRL (QUOTE <KRL1>KRL.SAV)))
		     [ADDVARS (LISPXMACROS (GOAWAY (DGOAWAYFN]
		     (DECLARE: DONTCOPY EVAL@COMPILE DONTEVAL@LOAD
			       (P (COND ((EQ (GETATOMVAL (QUOTE BACKGROUNDLST))
					     (QUOTE NOBIND))
					 (SETQ BACKGROUNDLST NIL)))
				  (COND ((EQ (GETATOMVAL (QUOTE RECORDSCOMS))
					     (QUOTE NOBIND))
					 (LOAD (QUOTE <KBA>RECORDS)
					       T)))
				  (COND ((EQ (GETATOMVAL (QUOTE DISPCOMPCOMS))
					     (QUOTE NOBIND))
					 (LOAD (QUOTE <KBA>DISPCOMP)
					       T])
(* for loading up the display system)


(DEFINEQ

(LoadDsys

  [LAMBDA (KFILE DONTSETUPFLG)                         (* mlm: "11-MAY-78 11:06")

    (DECLARE
 (USEDFREE DSYSFILES))
    (LOADFILES 'KRL DSYSFILES 'COM T)
    (LOADFNS 'GENNAME '<KRL1>PROCESS.COM 'SYSLOAD)
    (AND ~DONTSETUPFLG (SetUpKrlMonitor KFILE])
)

(RPAQQ DSYSFILES
 (<MODEL>DMISC <KBA>DNET <MODEL>BARGRAPH <MODEL>DISPLAYTREE DMONITOR DISPLAYFNS 
		   DSYSCHANGES))

(RPAQQ DLINKFIXFORMS
 NIL)

(RPAQQ USERNAMESPLST
 (Bobrow BSmith Deutsch Fikes HThompson Kaplan Kay Laaser Levy Masinter Model 
			     Norman Sheil Teitelman Winograd Hthompson))

(RPAQQ DSYSMINFSLST
 ((ARRAYP 3000)
		     (SWPARRAYP 100)
		     (STACKP 200)
		     (LISTP 8000)
		     (VCELLP 500)
		     (LITATOM 500)
		     (FLOATP 500)
		     (FIXP 3000)
		     (STRINGP 1000)
		     (ATOM.CHARS 2000)
		     (STRING.CHARS 3000)
		     (TXDTRECORD 2000)
		     (TXDTADDR 500)
		     (TXDTGRABBEDOBJ 300)
		     (TXDTBUFFER 300)))

(RPAQQ DEFAULTKRL
 <KRL1>KRL.SAV)

(ADDTOVAR LISPXMACROS
 (GOAWAY (DGOAWAYFN)))
(DECLARE: DONTCOPY EVAL@COMPILE DONTEVAL@LOAD 
(COND ((EQ (GETATOMVAL (QUOTE BACKGROUNDLST))
	   (QUOTE NOBIND))
       (SETQ BACKGROUNDLST NIL)))
(COND ((EQ (GETATOMVAL (QUOTE RECORDSCOMS))
	   (QUOTE NOBIND))
       (LOAD (QUOTE <KBA>RECORDS)
	     T)))
(COND ((EQ (GETATOMVAL (QUOTE DISPCOMPCOMS))
	   (QUOTE NOBIND))
       (LOAD (QUOTE <KBA>DISPCOMP)
	     T)))
)
(DECLARE: DONTCOPY
  (FILEMAP (NIL (923 1218 (LoadDsys 935 . 1215)))))
STOP