(FILECREATED " 2-Jan-85 12:05:28" ("compiled on " {ERIS}LIBRARY>EVALSERVER.;21) "22-Dec-84 04:22:04" bcompl'd in "INTERLISP-D 22-Dec-84 ..." dated "22-Dec-84 07:51:50") (FILECREATED " 2-Jan-85 12:03:33" {ERIS}LIBRARY>EVALSERVER.;21 87454 changes to: (RESOURCES \P4S.SCRATCHLIST \P4S.STR.BYTEPOINTER \PIP.SCRATCHSPTR \GFP.TIMER \READPUPSTREAM \WRITEPUPSTREAM) ( RECORDS BVM.LOSES.PUPSOCKET) (MACROS \UNTCONC \ALLOCATE.BIGPUP RECLAIM.PUP RECLAIM.OUTPUT.PUP HOSTNUMBERP PROBABLYSOCKETP HOST#.FROM.ADDRESS NTWK#.FROM.ADDRESS \ES.LOCALHOSTNUMBER) (FNS \ES.BSPSENDFORM \ES.BSPSENDFORMPROC) previous date: " 2-Jan-85 11:06:20" {ERIS}STAGING>LIBRARY>EVALSERVER.;31) PRIN4.INTO.STRING D1 (L (1 MAX#CHARS.WANTED? 0 FORM) P 5 P4STRPTR I 2 OLDSTRING) PBBAndIIb0AlA!`dhh@Ji X bk b`Uj \BBBMNMOMO@H MOٻ@OKNOKl ǿKkԻBKLBh(173Q \P4S.FOOT 125Q ALLOCSTRING 111Q ALLOCSTRING 102Q LENGTH 73Q DCHCON) (250Q \\P4S.STR.BYTEPOINTER.GLOBALRESOURCE 242Q \\P4S.STR.BYTEPOINTER.GLOBALRESOURCE 146Q STRINGP 117Q \\P4S.STR.BYTEPOINTER.GLOBALRESOURCE 77Q \\P4S.SCRATCHLIST.GLOBALRESOURCE 60Q \\P4S.SCRATCHLIST.GLOBALRESOURCE 52Q \\P4S.SCRATCHLIST.GLOBALRESOURCE) () \P4S.FOOT D1 (L (2 FN 1 CHARSLIST 0 FORM)) Ag@i d h(20Q \P4S.PERCHAR 12Q \MAPCHARS) (5 \P4S.PERCHAR) () \P4S.PERCHAR D1 (L (0 C) F 3 P4STRPTR) *SSkjIg SH@SISHkZJ(24Q RETFROM) (21Q \P4S.FOOT) () \UNTCONC D1 (L (1 ITEM 0 QUEUE)) J@d;@ d@ h@@HAHJ@HHI@JiHHZX(25Q \ILLEGAL.ARG 12Q \ILLEGAL.ARG) NIL () \BOUNDNCHARSPA0001 D1 (L (0 C) F 0 N) jPmcg (17Q RETFROM) (14Q \BOUNDNCHARSP) () \BOUNDNCHARSP D1 (L (3 RDTBL 2 FLG 1 X) I 0 N) gABC i(10Q \MAPCHARS) (2 \BOUNDNCHARSPA0001) () READ.FROM.PUP D1 (L (1 DATASTARTBYTE 0 PUP)) @bg V`Jjddg !H@HdlP@lY IHdlPAdjZJH Hhj @lH@l(HA)Aj$AHAIAH Hh`  I(236Q \FZEROP 231Q PUTHASH 221Q READ 145Q ALLOCSTRING 124Q READ 33Q \MAKEBASEBYTESTREAM 13Q DEFINEDP) (226Q \STRINGOFDS 136Q \\READPUPSTREAM.GLOBALRESOURCE 130Q \\READPUPSTREAM.GLOBALRESOURCE 73Q STREAM 30Q INPUT 20Q \\READPUPSTREAM.GLOBALRESOURCE 10Q \MAKEBASEBYTESTREAM 3 ETHERPACKET) () PRINT.INTO.PUP D1 (L (4 NOERRORFLG 3 PRINFN 2 DATASTARTBYTE 1 PUP 0 FORM) P 10Q \INTERRUPTABLE) 1 AbpCdgh`j BnAlٍhnBlٹOAl(OBdAlOI@IO OIJAldJiOg g u`ujddg lPNANdMn[ KMBdAlԽNMNMNjCg@NlLAldNiNHihDo@ h(455Q ERROR 262Q \MAKEBASEBYTESTREAM 242Q ERROR 233Q DEFINEDP 161Q PRIN4.INTO.STRING 36Q ALLOCSTRING) (440Q \\WRITEPUPSTREAM.GLOBALRESOURCE 427Q \\WRITEPUPSTREAM.GLOBALRESOURCE 413Q STREAM 367Q PRIN4 355Q STREAM 340Q STREAM 257Q OUTPUT 247Q \\WRITEPUPSTREAM.GLOBALRESOURCE 237Q \MAKEBASEBYTESTREAM 230Q \MAKEBASEBYTESTREAM 221Q \\PIP.SCRATCHSPTR.GLOBALRESOURCE 167Q STRINGP 146Q STRINGP 117Q STRINGP 103Q STRINGP 62Q \\PIP.SCRATCHSPTR.GLOBALRESOURCE 30Q \\PIP.SCRATCHSPTR.GLOBALRESOURCE 16Q PRIN4 3 ETHERPACKET) ( 451Q "Form too big to Print into pup") \HNM.MEMBER D1 (L (1 L 0 HNM)) B@d@l AHhYddi@`dI @I iHX(70Q EQP 62Q ETHERHOSTNUMBER 15Q \LISPERROR) (46Q \LOCALPUPNETHOST) () \NORMALIZEHOSTNUM D1 (L (1 DEFAULTADDRESS 0 X)) 7@Ai`@j@dd `i  A @o (64Q ERROR 47Q ETHERHOSTNUMBER 43Q \BROADCASTADDRESS.ON.MYNET 30Q \FZEROP) (35Q \BROADCASTADDRESS.ON.MYNET 12Q \LOCALPUPNETHOST) ( 61Q "Not a valid Network Host identification") \BROADCASTADDRESS.ON.MYNET D1 NIL `NIL (7 \BROADCASTADDRESS.ON.MYNET 2 \LOCALPUPNETHOST) () \GETFILTEREDPUP D1 (L (5 TRACEINFO 4 WAITINGTIME? 3 PUP? 2 ID 1 TYPESLST 0 SOC) P 4 PX) `El j10Cg``@@ Oh\gCgbih_OO$BOO#8ABO OOOOhOOllYIOiO_``O"LO0O &`OOO`O Cgi0OO_ _LC`C EM `ME MHgM iDi*Ml!BBMll[KoM W`Mj  hCN@ Ni Ng h DdnHlHl D^iW@ ]Di@ iAMA`BBMllZJICgCdg+`Mj  g (774Q TCONC 770Q CLOCK 663Q AWAIT.EVENT 660Q PUPSOCKETEVENT 644Q GETPUP 627Q \CLOCK0 572Q TIMEREXPIRED? 562Q AWAIT.EVENT 555Q PUPSOCKETEVENT 536Q TCONC 532Q CLOCK 517Q ERROR 441Q \RELEASE.ETHERPACKET 416Q \ES.PRINTRACE 377Q \RELEASE.ETHERPACKET 327Q BLOCK 12Q \CLOCK0) (1003Q NEW 777Q \PUPINQUEUE 763Q \PUPINQUEUE 752Q NEW 743Q ? 670Q ETHERPACKET 567Q MILLISECONDS 541Q \PUPINQUEUE 525Q \PUPINQUEUE 432Q DELETE 425Q \\GFP.TIMER.GLOBALRESOURCE 410Q \ES.TRACE? 371Q ETHERPACKETTYPE# 334Q DELETE 317Q \PUPINQUEUE 301Q \PUPINQUEUE 252Q \PUPINQUEUE 246Q \PUPINQUEUE 113Q \\GFP.TIMER.GLOBALRESOURCE 100Q ? 46Q \PUPINQUEUE 36Q \PUPINQUEUE 26Q NEW 2 \\GFP.TIMER.GLOBALRESOURCE) ( 513Q "Error PUP received during indefinite wait") \SENDUNFILTEREDPUP D1 (L (2 TRACEINFO 1 PUP 0 SOC)) @A `ABdo h(26Q \ES.PRINTRACE 4 SENDPUP) (7 \ES.TRACE?) ( 23Q (\SENDUNFILTEREDPUP)) \ES.GETSOCKET D1 NIL #l jHHoHg Hk(32Q OPENPUPSOCKET 5 \CLOCK0) (27Q DONT) ( 21Q -20000000000Q) \ES.RECLAIM.PUP D1 (L (0 PUP)) @d` o @ (25Q \RELEASE.ETHERPACKET 20Q SHOULDNT 7 \ONQUEUE) (4 \FREE.PACKET.QUEUE) ( 15Q "Reclaiming a PUP already on the free queue") \ES.RELEASE.OUTPUT.PUP D1 (L (0 X)) @j@ h(16Q \RELEASE.ETHERPACKET) (3 ETHERPACKET) () \ES.BSPREADA0001 D1 (NAME ERRORSET L (0 NIL) F 2 RESETVARSLST F 3 PUPORT F 4 RESETY) IS So gH ihhhRcoHgg YhRcI ci(102Q READ 65Q OPENBSPSTREAM 15Q ERROR 3 OPENRTPSOCKET) (62Q \ES.BSERRORHANDLER 57Q \ES.BSPUPHANDLER 27Q BSPSOC 23Q CLOSEPUPSOCKET) ( 53Q (PROGN (CLOSEBSPSTREAM OLDVALUE)) 12Q "Failed to establish BSP connection") \ES.BSPREAD D1 (L (0 FORM) P 2 RESETY P 1 LISPXHIST P 0 PUPORT F 4 LISPXHIST F 5 RESETVARSLST F 6 MSG) L@H:Hd0Hd&T!Uog hg[ KJ oV (111Q ERROR 74Q ERROR! 66Q RESETRESTORE 54Q \ES.BSPREADA0001) (62Q ERROR 51Q INTERNAL) ( 105Q "Bad BSP connect message?" 46Q (\ES.BSPREADA0001)) \ES.BSPSENDFORM D1 (L (1 OPUP 0 FORM) F 1 RESETVARSLST) 9gHihhhQcgn`H A gH@h (66Q ADD.PROCESS 52Q PRINT.INTO.PUP 43Q PUPSOCKETNUMBER 2 OPENPUPSOCKET) (55Q \ES.BSPSENDFORMPROC 37Q \LOCALPUPNETHOST 31Q \ES.BSPINFO 10Q CLOSEPUPSOCKET) () \ES.BSPSENDFORMPROCA0001A0002 D1 (L (0 C) F 0 OUTSTREAM) P@ (4 BOUT) NIL () \ES.BSPSENDFORMPROCA0001 D1 (NAME ERRORSET L (0 NIL) F 1 STREAM F 2 RESETVARSLST F 3 OUTSTREAM F 4 RESETY F 5 FORM) TgQhhhRcQ cl lxHg Sg o gUi i ci(116Q PROCESS.RETURN 111Q \MAPCHARS 77Q ERROR 65Q BSPOPENP 55Q BLOCK 51Q TIMEREXPIRED? 34Q \DAYTIME0 23Q BSPOUTPUTSTREAM) (104Q \ES.BSPSENDFORMPROCA0001A0002 62Q OUTPUT 46Q SECONDS 2 CLOSEBSPSTREAM) ( 74Q "Timed out") \ES.BSPSENDFORMPROC D1 (L (0 PUPSOC) P 3 RESETY P 2 LISPXHIST P 1 OUTSTREAM P 0 STREAM I 1 FORM F 5 LISPXHIST F 6 RESETVARSLST) A hg@ho d-gd X#U!Vog hg\ Lh(75Q ERROR! 66Q RESETRESTORE 54Q \ES.BSPSENDFORMPROCA0001 32Q OPENBSPSTREAM 20Q OPENRTPSOCKET) (62Q ERROR 51Q INTERNAL 26Q NILL 6 SERVER) ( 46Q (\ES.BSPSENDFORMPROCA0001) 14Q 352300Q) REMOTEVALA0001 D1 (NAME ERRORSET L (0 NIL) F 14Q SERVERHOST F 15Q TIMEOUT.ms F 16Q FORM F 17Q MULTIPLE.RESPONSES? F 20Q RESETY) X `i HiH J`WH cIWnWjlˁlhJ Ill_OWHWH XnWi WI _WI Wl WJ JIW \dggLd`g Lll_OL%cl_kHWWjIWNlMJ JMIW dg#g0L`g WjggWJMWOk 4O1l lx_Og O n dgWjJOIL Mlgg JoMLio IWNlMJ JIo gWJMWOk Ld [LdJOIL dl!Kc igKnK loK o KoW JOIL Wo `Lo JOIL Lo (1124Q ERROR 1113Q \ES.EXITREMOTEVAL 1102Q \ES.PRINTRACE 1064Q ERROR 1052Q \ES.EXITREMOTEVAL 1041Q ERROR 1024Q CONCAT 1015Q ERRORSTRING 774Q \ES.BSPREAD 731Q \ES.EXITREMOTEVAL 710Q READ.FROM.PUP 701Q \ES.AddSweeping 657Q \SENDUNFILTEREDPUP 645Q SETUPPUP 630Q \GETFILTEREDPUP 606Q SHOULDNT 564Q \ES.EXITREMOTEVAL 534Q BLOCK 524Q PROCESS.FINISHEDP 513Q TIMEREXPIRED? 475Q \DAYTIME0 461Q \ES.AddSweeping 426Q SHOULDNT 370Q \ES.CERTIFYBROADWORKER 357Q SETUPPUP 273Q SHOULDNT 232Q \ES.SENDREQUEST 222Q DISCARDPUPS 212Q \CLOCK0 200Q PRINT.INTO.PUP 167Q \ES.BSPSENDFORM 160Q \BOUNDNCHARSP 144Q EQUAL 106Q SETUPPUP 55Q \NORMALIZEHOSTNUM 33Q \ES.GETSOCKET 13Q ALLOCATE.PUP 10Q \BROADCASTADDRESS.ON.MYNET) (1071Q \ES.TRACE? 754Q \ES.BSPINFO 663Q \ES.Re-acknowledge.service 603Q PROCESS.FINISHEDP 573Q ERROR 542Q NORMAL 510Q SECONDS 443Q \ES.RejectApplicants 437Q \ES.IgnoreApplicants 423Q PUP 416Q ETHERPACKETTYPE# 404Q ERROR 374Q TIMEREXPIRED? 270Q PUP 262Q ETHERPACKETTYPE# 247Q ERROR 237Q TIMEREXPIRED? 46Q \ES.LOSTSOCKETSLST 42Q \ES.LOSTSOCKETSLST 22Q ETHERPACKET 2 \BROADCASTADDRESS.ON.MYNET) ( 1121Q "Error PUP" 1077Q ("*** Server Errors-out on Connection Request" REMOTEVAL) 1061Q "Remote EVAL request timed out" 1034Q "Remote EVALuation failed to return." 1021Q "%"" 1010Q "Returned from Remote EVALuation with Error msg %"" 654Q ("Client Sends Acknowledgement for Services Rendered" REMOTEVAL) 624Q ("=== Client Gets Results in Hand!" REMOTEVAL) 615Q (312Q 314Q)) REMOTEVAL D1 (P 1 RESETY P 0 LISPXHIST I 3 TIMEOUT.ms I 2 MULTIPLE.RESPONSES? I 1 SERVERHOST I 0 FORM F 3 LISPXHIST F 4 RESETVARSLST) ZBkb@dldlih!@dd@ @o bS!Tog hgZ JI(125Q ERROR! 120Q RESETRESTORE 106Q REMOTEVALA0001 63Q ERROR 52Q DEFEVAL) (114Q ERROR 103Q INTERNAL) ( 100Q (REMOTEVALA0001) 60Q " is not a suitable value for the variable: FORM") \ES.SENDREQUEST D1 (L (2 TIMER 1 OPUP 0 MY.TRANSCEIVER)) Bl Bbk`AllHH#Hko$IHln>IԹoHd o o@AL @oJhI [B H`'gg lg`Ko KHkX(225Q \ES.PRINTRACE 174Q TIMEREXPIRED? 145Q \GETFILTEREDPUP 130Q \SENDUNFILTEREDPUP 114Q CONCAT 105Q ORDINALSUFFIXSTRING 7 \CLOCK0) (214Q \ES.TRACE? 210Q ERROR 171Q MILLISECONDS 165Q TIMEREXPIRED? 157Q \MAXETHERTRIES 20Q \ETHERTIMEOUT) ( 222Q ("=== Client Receives Acknowledgement of Request: " REMOTEVAL) 136Q (311Q 4) 120Q (REMOTEVAL) 111Q " time:" 100Q "=== Client Re-Dispatches Eval Request for " 55Q ("=== Client Dispatches an Eval Request:" REMOTEVAL)) \ES.CERTIFYBROADWORKER D1 (L (3 TIMER 2 OPUP 1 ID 0 SOC)) Bl(BldkHIIlkCHk`@Bo @oAJI ZC H`Bdgo-g$`Ao`Ao`Aog (73Q PROMPTPRINT) (70Q ?? 55Q \ES.DONEMENU 42Q \ES.RUNMENU 26Q \ES.IQMENU 20Q MIDDLE 4 LEFT) ( 64Q "Deletes this item from the status lists" 51Q "Aborts this service." 35Q "Removes this request from the input queue." 13Q "Shows more detailed information about this item.") \ES.INVALIDATE.STATUSW D1 (P 0 \INTERRUPTABLE) G``=` gh-`g`gg ` hkg` (104Q DSPFILL 67Q ACTIVEWP 61Q PUTWINDOWPROP 56Q PUTWINDOWPROP 17Q \INSUREWINDOW) (101Q EVALSERVER.STATUS.WINDOW 76Q INVERT 64Q EVALSERVER.STATUS.WINDOW 53Q \ES.UPDATE.STATUSW 50Q BUTTONEVENTFN 45Q EVALSERVER.STATUS.WINDOW 42Q OLDBUTTONEVENTFN 37Q EVALSERVER.STATUS.WINDOW 24Q \ES.UPDATE.STATUSW 14Q EVALSERVER.STATUS.WINDOW 6 WINDOWTYPE# 2 EVALSERVER.STATUS.WINDOW) () \ES.UPDATE.STATUSW D1 (L (0 WINDOW)) @g @gH H@kHh(24Q EVALSERVER.STATUS.WINDOW 21Q PUTWINDOWPROP 6 PUTWINDOWPROP) (15Q BUTTONEVENTFN 3 OLDBUTTONFN) () (PRETTYCOMPRINT EVALSERVERCOMS) (RPAQQ EVALSERVERCOMS ((LOCALVARS . T) (FILES (SYSLOAD FROM LISPUSERS) PLURAL) (COMS (* "Generally useful utilities") (FNS PRIN4.INTO.STRING \P4S.FOOT \P4S.PERCHAR \UNTCONC \BOUNDNCHARSP) ( DECLARE: EVAL@COMPILE DONTCOPY (MACROS \FILLINSTRPTR \UNTCONC) (RESOURCES \P4S.SCRATCHLIST \P4S.STR.BYTEPOINTER)) (INITRESOURCES \P4S.SCRATCHLIST \P4S.STR.BYTEPOINTER)) (COMS (* "Pup/Net assistance") (DECLARE: EVAL@COMPILE DONTCOPY (MACROS \ALLOCATE.BIGPUP RECLAIM.PUP RECLAIM.OUTPUT.PUP HOSTNUMBERP PROBABLYSOCKETP HOST#.FROM.ADDRESS NTWK#.FROM.ADDRESS \ES.LOCALHOSTNUMBER) (RECORDS BVM.LOSES.PUPSOCKET) (RESOURCES \PIP.SCRATCHSPTR \GFP.TIMER \READPUPSTREAM \WRITEPUPSTREAM) (FILES (LOADCOMP) BSP)) (MACROS #PUPDATABYTES #PUPDATABYTES.LEFT) ( INITRESOURCES \PIP.SCRATCHSPTR \GFP.TIMER \READPUPSTREAM \WRITEPUPSTREAM) (FNS READ.FROM.PUP PRINT.INTO.PUP \HNM.MEMBER \NORMALIZEHOSTNUM \BROADCASTADDRESS.ON.MYNET \GETFILTEREDPUP \SENDUNFILTEREDPUP \ES.GETSOCKET \ES.RECLAIM.PUP \ES.RELEASE.OUTPUT.PUP) (FNS \ES.BSPREAD \ES.BSPSENDFORM \ES.BSPSENDFORMPROC) (GLOBALVARS \PUPSOCKETS \LOCALPUPNETHOST \FREE.PACKET.QUEUE)) ( DECLARE: EVAL@COMPILE DONTCOPY (RECORDS TRANSACTIONNOTE) (MACROS TYPE\ID.OF.PUP? CONNECTIONIDP TRACEAPUP 1BYTETOPUP \BROADCASTADDRESS.ON.MYNET)) (VARS (\BROADCASTADDRESS.ON.MYNET NIL)) (DECLARE: EVAL@COMPILE DONTCOPY (CONSTANTS (TOOBIGPASSWORD 43690)) (CONSTANTS (\SOCKET#.EVALREQUEST 668) ( \PT.EVALREQUEST 200) (\PT.ACKNOWLEDGE 201) (\PT.EVALRESPONSE 202) (\PT.EVALREQUEST.NORESULT 203) ( \PT.EVALERROR 204) (\PT.EVALREQUEST.CERTIFY 205))) (INITVARS (EvalServerClientHosts NIL) ( EvalServerGaggedHosts (QUOTE (T))) (\EVALREQUEST.SOCKET NIL) (\ES.TTYWINDOW NIL) (\ES.TTYWINDOWSTREAM NIL) (\ES.MESSAGESTREAM NIL) (\ES.PURGEINTERVAL.SECS 180) (\ES.PENDINGSERVICES NIL) ( \ES.COMPLETEDSERVICES NIL) (\PUPINQUEUE NIL) (\PUPINQUEUE.MAXLENGTH 50) (\PUPINQUEUE.MAXAGE (TIMES 6 60 1000)) (\ES.LOSTSOCKETSLST NIL) (\ES.CurrentlyPendingService NIL)) (GLOBALVARS \PUPINQUEUE \PUPINQUEUE.MAXLENGTH \PUPINQUEUE.MAXAGE \EVALREQUEST.SOCKET \ES.TTYWINDOW \ES.TTYWINDOWSTREAM \ES.MESSAGESTREAM \ES.PURGEINTERVAL.SECS \ES.COMPLETEDSERVICES \ES.PENDINGSERVICES \ES.LOSTSOCKETSLST \BROADCASTADDRESS.ON.MYNET) (FNS REMOTEVAL \ES.SENDREQUEST \ES.CERTIFYBROADWORKER \ES.BSERRORHANDLER \ES.BSPUPHANDLER \ES.EXITREMOTEVAL \ES.CLOSEOUTSOCKET \ES.UNCACHE REMOTEABORT REMOTEAPPLY \ES.APPLYQQ EVALSERVER \ES.RESTART \ES.LISTENER \ES.DO1THING \ES.WAITFORCERTIFICATION \ES.DO1THING.TIMEOUT \ES.ABORTQQ EVALSERVER.ABORT EVALSERVER.STATUS \ES.MakeClientHostInfo \ES.DELETE1PENDING \ES.ABORTPENDING \ES.PURGEOLDTHINGS) (P (MOVD? (QUOTE SHOULDNT) (QUOTE \ES.BSPINFO))) (COMS (* "Things related to coordination of Broadcast case of REMOTEVAL") (DECLARE: EVAL@COMPILE DONTCOPY ( RECORDS BROADAPNOTE)) (INITVARS (\ES.BroadSweepQ (LIST NIL)) (\ES.BroadAppEVENT (CREATE.EVENT (QUOTE \ES.BroadAppEVENT)))) (GLOBALVARS \ES.BroadSweepQ \ES.BroadAppEVENT \ES.BroadAppSweeper) (FNS \ES.BroadAppSweeper \ES.AddSweeping \ES.Re-acknowledge.service \ES.IgnoreApplicants \ES.RejectApplicants \ES.WatchSocket \ES.ApplicantValid?)) (DECLARE: DONTEVAL@LOAD DONTEVAL@COMPILE DOCOPY (P (MAPC (QUOTE (LOGOUTFORMS SYSOUTFORMS MAKESYSFORMS)) (FUNCTION (LAMBDA (X) (MAPC (QUOTE (( BEFORE (\ES.UNCACHE)) (AFTER (\ES.RESTART)))) (FUNCTION (LAMBDA (Y) (APPLY (QUOTE ADDTOVAR) (CONS ( PACK* (CAR Y) X) (CDR Y))))))))))) (ALISTS (PUPPRINTMACROS 200 202 203 204 205)) (COMS (* "Debugging aids") (VARS (\ES.TRACE?) (EVALSERVER.STATUS.WINDOW) (\ES.LASTSTATUSLIST) (\ES.IQMENU) ( \ES.RUNMENU) (\ES.DONEMENU)) (FNS EVALSERVER.TRACE \ES.BUGGERTRACEWINDOW \ES.PRINTRACE) (FNS EVALSERVER.STATUS.WINDOW \ES.STATUSW.GETITEMS \ES.STATUSW.SELECTEDFN \ES.STATUSW.HELDFN \ES.INVALIDATE.STATUSW \ES.UPDATE.STATUSW) (DECLARE: EVAL@COMPILE DONTCOPY (GLOBALVARS \ES.TRACE? EVALSERVER.STATUS.WINDOW \ES.LASTSTATUSLIST \ES.IQMENU \ES.RUNMENU \ES.DONEMENU) (CONSTANTS LIGHTGRAYSHADE FUZZYSHADE))) (DECLARE: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS (ADDVARS ( NLAMA \ES.ABORTQQ \ES.APPLYQQ) (NLAML \ES.ABORTPENDING \ES.DO1THING \ES.LISTENER \ES.BSPSENDFORMPROC) (LAMA))))) (FILESLOAD (SYSLOAD FROM LISPUSERS) PLURAL) (/SETTOPVAL (QUOTE \\P4S.SCRATCHLIST.GLOBALRESOURCE)) (/SETTOPVAL (QUOTE \\P4S.STR.BYTEPOINTER.GLOBALRESOURCE)) (PUTPROPS #PUPDATABYTES DMACRO ((Pup) (IDIFFERENCE (FETCH PUPLENGTH OF Pup) \PUPOVLEN))) (PUTPROPS #PUPDATABYTES.LEFT DMACRO (OPENLAMBDA (Pup) (IDIFFERENCE \MAX.PUPLENGTH (#PUPDATABYTES Pup)) )) (/SETTOPVAL (QUOTE \\PIP.SCRATCHSPTR.GLOBALRESOURCE)) (/SETTOPVAL (QUOTE \\GFP.TIMER.GLOBALRESOURCE)) (/SETTOPVAL (QUOTE \\READPUPSTREAM.GLOBALRESOURCE)) (/SETTOPVAL (QUOTE \\WRITEPUPSTREAM.GLOBALRESOURCE)) (RPAQQ \BROADCASTADDRESS.ON.MYNET NIL) (RPAQ? EvalServerClientHosts NIL) (RPAQ? EvalServerGaggedHosts (QUOTE (T))) (RPAQ? \EVALREQUEST.SOCKET NIL) (RPAQ? \ES.TTYWINDOW NIL) (RPAQ? \ES.TTYWINDOWSTREAM NIL) (RPAQ? \ES.MESSAGESTREAM NIL) (RPAQ? \ES.PURGEINTERVAL.SECS 180) (RPAQ? \ES.PENDINGSERVICES NIL) (RPAQ? \ES.COMPLETEDSERVICES NIL) (RPAQ? \PUPINQUEUE NIL) (RPAQ? \PUPINQUEUE.MAXLENGTH 50) (RPAQ? \PUPINQUEUE.MAXAGE (TIMES 6 60 1000)) (RPAQ? \ES.LOSTSOCKETSLST NIL) (RPAQ? \ES.CurrentlyPendingService NIL) (MOVD? (QUOTE SHOULDNT) (QUOTE \ES.BSPINFO)) (RPAQ? \ES.BroadSweepQ (LIST NIL)) (RPAQ? \ES.BroadAppEVENT (CREATE.EVENT (QUOTE \ES.BroadAppEVENT))) (MAPC (QUOTE (LOGOUTFORMS SYSOUTFORMS MAKESYSFORMS)) (FUNCTION (LAMBDA (X) (MAPC (QUOTE ((BEFORE ( \ES.UNCACHE)) (AFTER (\ES.RESTART)))) (FUNCTION (LAMBDA (Y) (APPLY (QUOTE ADDTOVAR) (CONS (PACK* (CAR Y) X) (CDR Y))))))))) (ADDTOVAR PUPPRINTMACROS (200 CHARS 32 ...) (202 CHARS 32 ...) (203 CHARS 32 ...) (204 CHARS 32 ...) ( 205 BYTES 1 ...)) (RPAQQ \ES.TRACE? NIL) (RPAQQ EVALSERVER.STATUS.WINDOW NIL) (RPAQQ \ES.LASTSTATUSLIST NIL) (RPAQQ \ES.IQMENU NIL) (RPAQQ \ES.RUNMENU NIL) (RPAQQ \ES.DONEMENU NIL) (PUTPROPS EVALSERVER COPYRIGHT ("Xerox Corporation" 1982 1983 1984 1985)) NIL