(DEFINE-FILE-INFO READTABLE "INTERLISP" PACKAGE "INTERLISP") (FILECREATED "14-Sep-94 18:24:58" ("compiled on " {DSK}lispusers>RPCLOWLEVEL.;1) "28-Jul-94 17:28:46" bcompl'd in "Medley 25-Aug-94 ..." dated "25-Aug-94 10:02:49") (FILECREATED " 8-Aug-88 11:21:37" {ERINYES}MEDLEY>RPCLOWLEVEL.;3 3722 changes to%: (VARS RPCLOWLEVELCOMS) (FNS STRING.ZEROBYTES) previous date%: " 8-Aug-88 11:13:29" {ERINYES}MEDLEY>RPCLOWLEVEL.;2) TCP.STREAM.SOCKET :D8 (I 0 STREAM) @ÉÉPNIL (12 TCP.CONTROL.BLOCK 5 STREAM) () TCP.SOCKET.EVENT :D8 (I 0 IPSOCKET) @ÉNIL (5 IPSOCKET) () STRING.ZEROBYTES :D8 (I 2 NBYTES I 1 FIRST I 0 STRING) @Êjð¦@ ‚@ÉAB (23 \CLEARBYTES 12 %%ARRAY-BASE) NIL () STRING.BOUTS :D8 (I 3 NBYTES I 2 FIRST I 1 STRING I 0 STREAM) /@AÊjð¦A ‚AÉHÉ É@ºHIBClJ(13 %%ARRAY-BASE) (33 FDEV 26 STREAM) () STRING.BINS :D8 (I 3 NBYTES I 2 FIRST I 1 STRING I 0 STREAM) /@AÊjð¦A ‚AÉHÉ É>ºHIBClJ(13 %%ARRAY-BASE) (33 FDEV 26 STREAM) () \IP.APPEND.BYTES :D8 (I 3 LENGTH I 2 OFFSET I 1 ADDR I 0 IP) #AB@l"Ð@È#C @l"ÐdÈCÔHIÍI(15 \MOVEBYTES) NIL () UDP.APPEND.BYTES :D8 (I 3 NBYTES I 2 OFFSET I 1 ADDR I 0 UDP) '@ABC @Hl"ÐHÊ"CàÐdÈCÔHIÍI(8 \IP.APPEND.BYTES) NIL () UDP.GET.BYTES :D8 (I 4 NBYTES I 3 DOFFSET I 2 DEST I 1 SOFFSET I 0 UDP) "@Hl"ÐHÊ"CàÐlkØâÐABCD B(30 \MOVEBYTES) NIL () UDP.MYGET.STRING :D8 (P 0 STRING I 2 LENGTH I 1 OFFSET I 0 UDP) OA£jb¿B @Yl"ÐIÊ"CàÐlkØâÐAHÊjð¦H ‚HÉHÊjð¦H ‚HÈB H(75 \MOVEBYTES 64 %%ARRAY-OFFSET 47 %%ARRAY-BASE 13 ALLOCSTRING) NIL () \UDP.SET.CHECKSUM.ZERO :D8 (L (0 UDP)) @Hl"ÐHÊ"CàÐjÍjNIL NIL () (PRETTYCOMPRINT RPCLOWLEVELCOMS) (RPAQQ RPCLOWLEVELCOMS ((PROPS (RPCLOWLEVEL MAKEFILE-ENVIRONMENT FILETYPE)) (FNS TCP.STREAM.SOCKET TCP.SOCKET.EVENT STRING.ZEROBYTES STRING.BOUTS STRING.BINS \IP.APPEND.BYTES UDP.APPEND.BYTES UDP.GET.BYTES UDP.MYGET.STRING \UDP.SET.CHECKSUM.ZERO) (DECLARE%: EVAL@COMPILE DONTCOPY (FILES (SOURCE ) TCPEXPORTS)) (DECLARE%: DONTEVAL@LOAD DOCOPY (P (CHANGENAME (QUOTE UDP.SEND) (QUOTE \UDP.SET.CHECKSUM) (QUOTE \UDP.SET.CHECKSUM.ZERO)))))) (PUTPROPS RPCLOWLEVEL MAKEFILE-ENVIRONMENT (:READTABLE "INTERLISP" :PACKAGE "INTERLISP")) (PUTPROPS RPCLOWLEVEL FILETYPE :COMPILE-FILE) (CHANGENAME (QUOTE UDP.SEND) (QUOTE \UDP.SET.CHECKSUM) (QUOTE \UDP.SET.CHECKSUM.ZERO)) (PUTPROPS RPCLOWLEVEL COPYRIGHT ("Stanford University and Xerox Corporation" 1987 1988)) NIL