(FILECREATED " 2-Aug-85 12:01:32" ("compiled on " {IVY}LISP>RPC>RPCEVALSERVER.;9) "19-Mar-85 14:34:17" recompiled exprs: HideRPCEvalServerMovds ExportRPCEval UnexportRPCEval RPCEvalServerDispatch CatchRemoteLispError RPCEvalServerStub RPCApplyServerStub in "INTERLISP-D 19-Jun-85 ..." dated "19-Jun-85 10:24:28") (FILECREATED " 2-Aug-85 11:58:43" {IVY}LISP>RPC>RPCEVALSERVER.;9 4126 changes to: (FNS HideRPCEvalServerMovds ExportRPCEval UnexportRPCEval RPCEvalServerDispatch CatchRemoteLispError RPCEvalServerStub RPCApplyServerStub)) HideRPCEvalServerMovds D1 (P 0 p) 0o°&dHH ¿H ¿HHH µÛh(47Q CHANGENAME 33Q PUTD 25Q PUTD 22Q GETD) NIL ( 3 ((RPCApply Hidden.RPCApply . RPCApplyServerStub) (RPCEval Hidden.RPCEval . RPCEvalServerStub))) ExportRPCEval D1 (I 4 password I 3 user I 2 version I 1 instance I 0 type) &`šog ¿CD@µoABg (40Q ExportInterface 15Q ERROR) (43Q RPCEvalServerInterface 34Q RPCEvalServerDispatch 12Q RPCEval 2 RPCEvalServerInterface) ( 27Q "RPCEval 2-Aug-85 11:57:29830" 7 "Already exported") UnexportRPCEval D1 NIL `µ og h(21Q UnexportInterface 16Q ERROR) (25Q RPCEvalServerInterface 13Q RPCEval 2 RPCEvalServerInterface) ( 10Q "not exported") RPCEvalServerDispatchA0001 D1 (I 1 arg I 0 type F 0 l..conv) @gð´ AP h(13Q CatchRemoteLispError) (3 RemoteLispError) () RPCEvalServerDispatchA0002 D1 (NAME ERRORSET F 0 l..pup F 1 l..conv F 2 request) Rdlð–¿PQ Œlð•PQ ‚h(31Q SHOULDNT 25Q RPCApplyServerStub 13Q RPCEvalServerStub) NIL () RPCEvalServerDispatch D1 (P 4 $Exit$ P 3 result P 2 $SignalArg$ P 1 $SignalType$ P 0 $SignalCatcher$ I 2 l..conv I 1 request I 0 l..pup) #gAo [µ Lµið‘h(40Q SHOULDNT 25Q ERROR! 14Q RPCEvalServerDispatchA0002) (2 RPCEvalServerDispatchA0001) ( 11Q (RPCEvalServerDispatchA0002)) CatchRemoteLispError D1 (I 1 l..conv I 0 arg F 0 l..cPup) P Pl P@A PhA cdA (34Q \UnmarshalArb 25Q \Call 17Q \MarshalArb 11Q \AddPupWord 3 \StartSignal) NIL () RPCEvalServerStub D1 (P 1 l..arg1 P 0 l..result I 1 l..conv I 0 l..cPup)  @A Yd X@ @HA @(27Q \MarshalArb 21Q \StartReturn 14Q RPCEval 7 \UnmarshalArb) NIL () RPCApplyServerStub D1 (P 2 l..arg2 P 1 l..arg1 P 0 l..result I 1 l..conv I 0 l..cPup) "0@A Y@A ZIJ X@ @HA @(36Q \MarshalArb 30Q \StartReturn 23Q RPCApply 15Q \UnmarshalArb 7 \UnmarshalArb) NIL () (PRETTYCOMPRINT RPCEVALSERVERCOMS) (RPAQQ RPCEVALSERVERCOMS ((* Created by Lupine " 2-Aug-85 11:57:29") (FNS HideRPCEvalServerMovds ExportRPCEval UnexportRPCEval RPCEvalServerDispatch CatchRemoteLispError RPCEvalServerStub RPCApplyServerStub) (VARS (RPCEvalServerInterface)) (GLOBALVARS RPCEvalServerInterface) (DECLARE: DONTCOPY EVAL@COMPILE EVAL@LOAD (FILES (LOADCOMP) SIGNAL)) (DECLARE: EVAL@LOAD DONTEVAL@COMPILE DOCOPY (FILES (SYSLOAD) RPC)) (P (COND ((EQ (QUOTE Y) (ASKUSER 15 (QUOTE N) "Hide server fns (must have been already loaded)? ")) (HideRPCEvalServerMovds)))))) (RPAQQ RPCEvalServerInterface NIL) (FILESLOAD (SYSLOAD) RPC) (COND ((EQ (QUOTE Y) (ASKUSER 15 (QUOTE N) "Hide server fns (must have been already loaded)? ")) ( HideRPCEvalServerMovds))) (PUTPROPS RPCEVALSERVER COPYRIGHT ("Xerox Corporation" 1985)) NIL