RPC.LCOM

(DEFINE-FILE-INFO READTABLE "XCL" PACKAGE (DEFPACKAGE "RPC2" (USE "LISP" "XCL")))
(IL:FILECREATED "14-Sep-94 18:23:59" ("compiled on " IL:|{DSK}<lispcore>lispusers>RPC.;1|) 
"28-Jul-94 17:28:46" IL:|bcompl'd| IL:|in| "Medley 25-Aug-94 ..." IL:|dated| "25-Aug-94 10:02:49")
(IL:FILECREATED " 8-Aug-88 11:40:06" IL:{ERINYES}<LISPUSERS>MEDLEY>RPC.\;2 2644 IL:|changes| IL:|to:| 
(IL:VARS IL:RPCCOMS) IL:|previous| IL:|date:| "28-Apr-88 17:22:12" IL:{ERINYES}<LISPUSERS>MEDLEY>RPC.\;1
)
(IL:PRETTYCOMPRINT IL:RPCCOMS)
(IL:RPAQQ IL:RPCCOMS ((IL:* IL:|;;;;| "SUN REMOTE PROCEDURE CALLS") (IL:* IL:|;;;;| 
"Originally written by Jeff Finger at the SUMEX-AIM Computing Resource at Stanford University under support from National Institutes of Health Grant NIH 5P41 RR00785."
) (IL:* IL:|;;;;| "Modified to work under Maiko by Atty Mullins & Doug Cutting.") (IL:PROPS (IL:RPC 
IL:MAKEFILE-ENVIRONMENT IL:FILETYPE)) (IL:VARIABLES *USE-OS-NETWORKING*) (EVAL-WHEN (LOAD) (IL:P (IL:*
 IL:\; "Load the appropriate transport.") (COND (*USE-OS-NETWORKING* (IL:FILESLOAD (IL:SYSLOAD) IL:RPCOS
)) (T (IL:* IL:\; "Load only UDP.  If you want to use RPC over TCP, you must load TCP yourself") (
IL:FILESLOAD (IL:SYSLOAD IL:FROM IL:LISPUSERS) IL:TCPLLIP IL:TCPUDP IL:RPCLOWLEVEL) (WHEN (EQ 
IL:MAKESYSNAME :LYRIC) (IL:FILESLOAD (IL:SYSLOAD) IL:IPPATCHES))))) (IL:FILES (IL:SYSLOAD) IL:RPCSTRUCT
 IL:RPCCOMMON IL:RPCXDR IL:RPCRPC IL:RPCPORTMAPPER))))
(IL:PUTPROPS IL:RPC IL:MAKEFILE-ENVIRONMENT (:READTABLE "XCL" :PACKAGE (DEFPACKAGE "RPC2" (:USE "LISP"
 "XCL"))))
(IL:PUTPROPS IL:RPC IL:FILETYPE :COMPILE-FILE)
(DEFGLOBALPARAMETER *USE-OS-NETWORKING* (EQ (IL:MACHINETYPE) (QUOTE IL:MAIKO)) 
"If false, RPC will use Interlisp-D TCP/IP, if true RPC will use the host operating system's IPC mechanism."
)
(EVAL-WHEN (LOAD) (IL:* IL:\; "Load the appropriate transport.") (COND (*USE-OS-NETWORKING* (
IL:FILESLOAD (IL:SYSLOAD) IL:RPCOS)) (T (IL:* IL:\; 
"Load only UDP.  If you want to use RPC over TCP, you must load TCP yourself") (IL:FILESLOAD (IL:SYSLOAD
 IL:FROM IL:LISPUSERS) IL:TCPLLIP IL:TCPUDP IL:RPCLOWLEVEL) (WHEN (EQ IL:MAKESYSNAME :LYRIC) (
IL:FILESLOAD (IL:SYSLOAD) IL:IPPATCHES)))) (IL:FILESLOAD (IL:SYSLOAD) IL:RPCSTRUCT IL:RPCCOMMON 
IL:RPCXDR IL:RPCRPC IL:RPCPORTMAPPER))
(IL:PUTPROPS IL:RPC IL:COPYRIGHT ("Stanford University and Xerox Corporation" 1987 1988))
NIL