(DEFINE-FILE-INFO READTABLE "XCL" PACKAGE "RPC2")
(IL:FILECREATED "14-Sep-94 18:26:04" ("compiled on " IL:|{DSK}<lispcore>lispusers>RPCPORTMAPPER.;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:53:57" IL:{ERINYES}<LISPUSERS>MEDLEY>RPCPORTMAPPER.\;3 2642 IL:|changes|
 IL:|to:| (IL:VARS IL:RPCPORTMAPPERCOMS) (IL:FUNCTIONS PORTMAPPERDEF) IL:|previous| IL:|date:| 
" 8-Aug-88 11:40:30" IL:{ERINYES}<LISPUSERS>MEDLEY>RPCPORTMAPPER.\;2)
(IL:PRETTYCOMPRINT IL:RPCPORTMAPPERCOMS)
(IL:RPAQQ IL:RPCPORTMAPPERCOMS ((IL:PROPS (IL:RPCPORTMAPPER IL:MAKEFILE-ENVIRONMENT IL:FILETYPE)) (
EVAL-WHEN (COMPILE LOAD EVAL) (IL:STRUCTURES MAPSEQUENCE MAPSTRUCT)) (IL:FUNCTIONS PORTMAPPERDEF) (
EVAL-WHEN (LOAD EVAL) (IL:P (PORTMAPPERDEF)))))
(IL:PUTPROPS IL:RPCPORTMAPPER IL:MAKEFILE-ENVIRONMENT (:READTABLE "XCL" :PACKAGE "RPC2"))
(IL:PUTPROPS IL:RPCPORTMAPPER IL:FILETYPE :COMPILE-FILE)
(EVAL-WHEN (COMPILE LOAD EVAL) (DEFSTRUCT MAPSEQUENCE PROGRAM VERS PROTOCOL PORT) (DEFSTRUCT MAPSTRUCT
 PROGRAM VERS PROT PORT THEREST))
(DEFUN PORTMAPPERDEF NIL (IL:* IL:|;;| "Program that maps from programs to ports") (IL:NILL) (IL:* IL:\;
 "Keep DEFUN from expanding the DEFINE-REMOTE-PROGRAM macro any more than necessary") (
DEFINE-REMOTE-PROGRAM (QUOTE PORTMAPPER) 100000 2 (QUOTE UDP) :TYPES (QUOTE ((MAPSTRUCT (:UNION 
:BOOLEAN (NIL :VOID) (T (:STRUCT MAPSTRUCT (PROGRAM :UNSIGNED) (VERS :UNSIGNED) (PROT :UNSIGNED) (PORT
 :UNSIGNED) (THEREST MAPSTRUCT))))) (MAPSEQUENCE (:SEQUENCE (:STRUCT MAPSEQUENCE (PROGRAM :UNSIGNED) (
VERS :UNSIGNED) (PROTOCOL :UNSIGNED) (PORT :UNSIGNED)))))) :PROCEDURES (QUOTE ((NULL 0 NIL NIL) (
LOOKUP 3 (:UNSIGNED :UNSIGNED :UNSIGNED :UNSIGNED) (:UNSIGNED)) (DUMP 4 NIL (MAPSEQUENCE)) (BADDUMP 4 
NIL (MAPSTRUCT)) (INDIRECT 5 (:UNSIGNED :UNSIGNED :UNSIGNED :STRING) (:UNSIGNED :STRING))))) (IL:* 
IL:|;;| "TCP version of same.  Sad that we need this redundancy.") (DEFINE-REMOTE-PROGRAM (QUOTE 
TCPPORTMAPPER) 100000 2 (QUOTE TCP) :TYPES (QUOTE ((MAPSTRUCT (:UNION :BOOLEAN (NIL :VOID) (T (:STRUCT
 MAPSTRUCT (PROGRAM :UNSIGNED) (VERS :UNSIGNED) (PROT :UNSIGNED) (PORT :UNSIGNED) (THEREST MAPSTRUCT))
))) (MAPSEQUENCE (:SEQUENCE (:STRUCT MAPSEQUENCE (PROGRAM :UNSIGNED) (VERS :UNSIGNED) (PROTOCOL 
:UNSIGNED) (PORT :UNSIGNED)))))) :PROCEDURES (QUOTE ((NULL 0 NIL NIL) (LOOKUP 3 (:UNSIGNED :UNSIGNED 
:UNSIGNED :UNSIGNED) (:UNSIGNED)) (DUMP 4 NIL (MAPSEQUENCE)) (BADDUMP 4 NIL (MAPSTRUCT)) (INDIRECT 5 (
:UNSIGNED :UNSIGNED :UNSIGNED :STRING) (:UNSIGNED :STRING))))))
(EVAL-WHEN (LOAD EVAL) (PORTMAPPERDEF))
(IL:PUTPROPS IL:RPCPORTMAPPER IL:COPYRIGHT ("Stanford University and Xerox Corporation" 1987 1988))
NIL