(FILECREATED " 6-Dec-85 16:58:18" {ERIS}<LISPUSERS>KOTO>RPCEVAL.;2
 1439   

      changes to:  (FNS RPCApply RPCEval \DoEvAp)

      previous date: " 2-Aug-85 15:40:33" {ERIS}<LISPUSERS>KOTO>RPCEVAL.;1)


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

(PRETTYCOMPRINT RPCEVALCOMS)

(RPAQQ RPCEVALCOMS
 ((VARS RPCEvalSignals RPCEvalSpec)
		      (FNS RPCApply RPCEval \DoEvAp)))

(RPAQQ RPCEvalSignals
 ((RemoteLispError (ARGS ARB)
					  (RETURNS ARB))))

(RPAQQ RPCEvalSpec
 ((RPCEval (form ARB)
			       (RETURNS ARB))
		      (RPCApply (fn ARB)
				(args ARB)
				(RETURNS ARB))))
(DEFINEQ

(RPCApply

  [LAMBDA (fn args)                                          (* lmm " 6-Dec-85 16:56")

    (\DoEvAp
 (
QUOTE
 APPLY)
	       (
LIST
 fn args])

(RPCEval

  [LAMBDA (form)                                             (* lmm " 6-Dec-85 16:56")

    (\DoEvAp
 (
QUOTE
 EVAL)
	       (
LIST
 form])

(\DoEvAp

  [LAMBDA (fn args)                                          (* lmm " 6-Dec-85 16:57")

    (enable

         LispError => 
[sresume
 (
EVAL
 (
Signal
 (
QUOTE
 RemoteLispError)
						      (
CONS
 (
CAR
 (fetch
 (LispError eMess)
									of
 arg))
							      (
CADR
 (fetch
 (LispError eMess)
									 of
 arg]
       (
APPLY
 fn args))])
)
(PUTPROPS RPCEVAL COPYRIGHT ("Xerox Corporation" 1985))
(DECLARE: DONTCOPY
  (FILEMAP (NIL (620 1361 (RPCApply 630 . 797) (RPCEval 799 . 961) (\DoEvAp 963 . 1359)))))
STOP