(FILECREATED " 2-Aug-85 11:58:27" {IVY}<HTHOMPSON>LISP>RPC>RPCEVALCLIENT.;9
 3887   

      changes to:  (FNS MovdsForRPCEval ImportRPCEval UnimportRPCEval DispatchRPCEvalSignals 
			RPCClientStub.RPCEval RPCClientStub.RPCApply))


(* Copyright (c) 1985 by Xerox Corporation. All rights reserved.)

(PRETTYCOMPRINT RPCEVALCLIENTCOMS)

(RPAQQ RPCEVALCLIENTCOMS
 ((* Created by Lupine " 2-Aug-85 11:57:30")
			  (FNS MovdsForRPCEval ImportRPCEval UnimportRPCEval DispatchRPCEvalSignals 
			       RPCClientStub.RPCEval RPCClientStub.RPCApply)
			  (VARS (RPCEvalClientInterface))
			  (GLOBALVARS RPCEvalClientInterface)
			  (P (MovdsForRPCEval))
			  (DECLARE: EVAL@LOAD DONTEVAL@COMPILE DOCOPY (FILES (SYSLOAD)
									     RPC))))



(* Created by Lupine " 2-Aug-85 11:57:30")


(DEFINEQ

(MovdsForRPCEval

  [LAMBDA NIL                                                (* Lupine generated utility)

    (for
 p in
 '((RPCClientStub.RPCApply . RPCApply)
		(RPCClientStub.RPCEval . RPCEval)) do
 (
PUTD
 p::1 (
GETD
 p:1])

(ImportRPCEval

  [LAMBDA (type instance version)                            (* Lupine generated interface)

    (
CAR
 (push
 RPCEvalClientInterface (
ImportInterface
 (
OR
 type "RPCEval 2-Aug-85 11:57:29830")
						       instance version])

(UnimportRPCEval

  [LAMBDA (l..interface)                                     (* Lupine generated interface)

    (if
 l..interface
	then
 (if
 (
FMEMB
 l..interface RPCEvalClientInterface)
		 then
 (
UnimportInterface
 l..interface)
		      (RPCEvalClientInterface←(
DREMOVE
 l..interface RPCEvalClientInterface))
	       else
 (
ERROR
 "not imported" l..interface))
      else
 (for
 e in
 RPCEvalClientInterface do
 (
UnimportInterface
 e))
	   (RPCEvalClientInterface←NIL])

(DispatchRPCEvalSignals

  [LAMBDA (l..cPup l..conv)                                  (* Lupine generated dispatcher)

    (DECLARE
 (
SPECVARS
 l..cPup l..conv))
    (
SELECTQ
 (
\GetArgWord
 l..cPup l..conv)
	     (4 (
PROG
 (l..result)
		      (l..result←(
Signal
 'RemoteLispError
					 (
\UnmarshalArb
 l..cPup l..conv)))
		      (
\StartReturn
 l..cPup)
		      (
\MarshalArb
 l..cPup l..result l..conv)))
	     (
SHOULDNT
))
    l..cPup])

(RPCClientStub.RPCEval

  [LAMBDA (form l..interfaceArg l..conv)                     (* Lupine generated stub)

    (
PROG
 (l..cPup (l..interface (
OR
 l..interfaceArg RPCEvalClientInterface:1)))
          (DECLARE
 (
SPECVARS
 l..cPup))
          (l..cPup←(
\StartCall
 l..interface:1 l..interface::1 l..conv))
          (
\AddPupWord
 l..cPup 4 l..conv)
          (
\MarshalArb
 l..cPup form l..conv)
          (l..cPup←(
\Call
 l..cPup (
FUNCTION
 DispatchRPCEvalSignals)
			  l..conv))
          (
RETURN
 (
PROG1
 (
\UnmarshalArb
 l..cPup l..conv)
			 (
\RELEASE.PUP
 l..cPup])

(RPCClientStub.RPCApply

  [LAMBDA (fn args l..interfaceArg l..conv)                  (* Lupine generated stub)

    (
PROG
 (l..cPup (l..interface (
OR
 l..interfaceArg RPCEvalClientInterface:1)))
          (DECLARE
 (
SPECVARS
 l..cPup))
          (l..cPup←(
\StartCall
 l..interface:1 l..interface::1 l..conv))
          (
\AddPupWord
 l..cPup 5 l..conv)
          (
\MarshalArb
 l..cPup fn l..conv)
          (
\MarshalArb
 l..cPup args l..conv)
          (l..cPup←(
\Call
 l..cPup (
FUNCTION
 DispatchRPCEvalSignals)
			  l..conv))
          (
RETURN
 (
PROG1
 (
\UnmarshalArb
 l..cPup l..conv)
			 (
\RELEASE.PUP
 l..cPup])
)

(RPAQQ RPCEvalClientInterface
 NIL)
(DECLARE: DOEVAL@COMPILE DONTCOPY

(GLOBALVARS RPCEvalClientInterface)
)
(MovdsForRPCEval)
(DECLARE: EVAL@LOAD DONTEVAL@COMPILE DOCOPY 
(FILESLOAD (SYSLOAD)
	   RPC)
)
(PUTPROPS RPCEVALCLIENT COPYRIGHT ("Xerox Corporation" 1985))
(DECLARE: DONTCOPY
  (FILEMAP (NIL (793 3595 (MovdsForRPCEval 803 . 1052) (ImportRPCEval 1054 . 1312) (UnimportRPCEval 1314
 . 1835) (DispatchRPCEvalSignals 1837 . 2309) (RPCClientStub.RPCEval 2311 . 2927) (
RPCClientStub.RPCApply 2929 . 3593)))))
STOP