(FILECREATED "11-Aug-87 08:41:56" ("compiled on " {MCS:MCS:STANFORD}COURIERSERVE.;7) "27-Apr-87 16:48:49" tcompl'd in "Xerox Lisp 10-Aug-87 ..." dated "10-Aug-87 10:21:40") (FILECREATED "30-Jun-87 08:58:22" {MCS:MCS:STANFORD}COURIERSERVE.;7 changes to: (FNS \COURIER.SERVE \FIND.COURIER.PROGRAM \EXPEDITEDCOURIER.SERVE COURIER.REJECT \COURIER.APPLY \COURIER.SETUP.REPLY \EXPEDITEDCOURIERSERVER \COURIERSERVER \FIND.COURIER.PROCEDURE) (VARS COURIERSERVECOMS) (PROPS (COURIER.EXPEDITED.CALL ARGNAMES) (COURIER.CALL ARGNAMES)) previous date: "13-Aug-86 11:46:50" {XDE:MCS:STANFORD}KOTO>COURIERSERVE.;1) COURIER.START.SERVER D4 NIL 2g )`` o` hlhgo h(45 SPP.OPEN 29 PRIN1 18 TERPRI 5 FIND.PROCESS) (37 COURIER.LISTENER 26 COURIERTRACEFILE 15 COURIERTRACEFILE 10 COURIERTRACEFLG 2 COURIER.LISTENER) ( 41 (SERVER.FUNCTION \COURIERSERVER OTHERXIPHANDLER \EXPEDITEDCOURIERSERVER) 23 "Courier Server started") COURIER.RETURN D4 (P 1 STREAM P 0 RESULTS I 3 RESULTLST I 2 PROCEDURE I 1 PROGRAM I 0 COURIERSTREAM) C ABgA` XCH @l YdACH @I @ @l (64 COURIER.REJECT 57 COURIER.REJECT 52 \COURIER.FINISH.REPLY 46 \COURIER.EXPEDITED.ARGS 38 \COURIER.SETUP.REPLY 30 EQLENGTH 27 LENGTH 17 \GET.COURIER.DEFINITION 14 GETHASH) (11 \COURIERPROGRAM 7 PROCEDURES) () COURIER.ABORT D4 (P 1 ERRORFORM P 0 STREAM I 3 RESULTLST I 2 ERROR I 1 PROGRAM I 0 COURIERSTREAM) C@l BA` g'"HIZK JKl HACI @H l (64 COURIER.REJECT 58 \COURIER.FINISH.REPLY 52 \COURIER.EXPEDITED.ARGS 42 \BOUT 33 \BOUT 13 GETHASH 5 \COURIER.SETUP.REPLY) (17 ERRORS 10 \COURIERPROGRAM) () COURIER.REJECT D4 (P 0 STREAM I 2 RESULTLST I 1 ERROR I 0 COURIERSTREAM) @k AA3;AAdgn)gj!AdgkglAglbHA HAl Ak*HBYJ IJl HB[L KLl @H (134 \COURIER.FINISH.REPLY 128 \BOUT 119 \BOUT 108 \BOUT 99 \BOUT 84 \BOUT 75 \BOUT 66 SHOULDNT 4 \COURIER.SETUP.REPLY) (58 INVALID.ARGUMENTS 49 NO.SUCH.PROCEDURE 40 NO.SUCH.VERSION 30 NO.SUCH.PROGRAM 19 UNSPECIFIED) () CLOSE.BULK.DATA D4 (P 0 CON I 1 ABORTFLG I 0 STREAM) @!Hh.H8h@Rlj!@Rlj"@ :@kIA@k #@ @ :@kJAib@ @j Hh0Hh8@h@jAH6g*@g*g(117 SPP.DSTYPE 111 \ABORT.BULK.DATA 82 SPP.SENDEOM 76 SPP.SENDATTENTION) (172 ERROR! 169 STREAM 162 \COURIER.EOF 159 STREAM 154 SPPCON 144 STREAM 136 STREAM 129 SPPCON 121 SPPCON 93 FDEV 88 STREAM 61 FDEV 56 STREAM 42 STREAM 28 STREAM 19 SPPCON 12 SPPCON 3 STREAM) () \COURIERSERVERA0001 D4 (NAME SI*UNWIND-PROTECT* P 1 HIGH.VERSION P 0 LOW.VERSION I 0 SI*CLEANUP-FORMS* F 2 STREAM F 3 SI*RESETFORMS*) gRhhdSc Rj Rg*`gR `'` o` k` R ` R R XR R YRj Rl Rj Rl R HllIRi R K`G` o` k` R ` k` H` k` I` h(227 PRIN1 219 SPACES 211 PRIN1 203 SPACES 195 PRIN1 189 SPP.DESTADDRESS 184 SPACES 176 PRIN1 165 TERPRI 152 \COURIER.SERVE 147 SPP.CLEAREOM 131 SPP.FORCEOUTPUT 127 \BOUT 120 \BOUT 115 \BOUT 108 \BOUT 88 PRIN1 82 SPP.DESTADDRESS 77 SPACES 69 PRIN1 58 TERPRI 47 PROCESS.NAME 44 PACK* 41 SPP.DESTADDRESS 22 SPP.DSTYPE) (224 COURIERTRACEFILE 216 COURIERTRACEFILE 208 COURIERTRACEFILE 200 COURIERTRACEFILE 192 COURIERTRACEFILE 181 COURIERTRACEFILE 173 COURIERTRACEFILE 162 COURIERTRACEFILE 157 COURIERTRACEFLG 85 COURIERTRACEFILE 74 COURIERTRACEFILE 66 COURIERTRACEFILE 55 COURIERTRACEFILE 50 COURIERTRACEFLG 37 COURIER 34 \RUNNING.PROCESS 29 \COURIER.EOF 26 STREAM 2 CLOSEF?) ( 170 "Client requesting unknown version of Courier" 63 "Server opened connection with") \COURIERSERVER D4 (P 1 SI*RESETFORMS* P 0 LISPXHIST I 0 STREAM F 2 LISPXHIST) Rg  (19 CLVALUES-LIST 15 SIRESETUNWIND 12 \MVLIST 9 \COURIERSERVERA0001) (6 SIRESETUNWIND) () \COURIER.SERVE D4 (P 12 FLG P 8 RESULTLST P 7 VERSIONS P 6 PROCDEF P 5 PGMDEF P 4 PROCEDURE P 3 PROCEDURE# P 2 VERSION# P 1 PROGRAM# P 0 PROGRAM I 0 STREAM)  @ h@ @ j@g@ @ @ @ @ @ @ @ غ@ @ ػIJ _JOX%@kO! O_OO! OlO ` ]K \5HLgM ^N@HLMN gIb@l>@l9_OOOO_O__OOOO_O_{@j  @ _@ g@ (280 SHOULDNT 271 SPP.CLEAREOM 253 SPP.EOFP 245 COURIER.REJECT 169 \COURIER.APPLY 140 \GET.COURIER.DEFINITION 128 \FIND.COURIER.PROCEDURE 123 GETHASH 114 COURIER.REJECT 68 \FIND.COURIER.PROGRAM 34 STREAMPROP 3 SPP.EOFP) (265 EOM 172 FLUSH 136 PROCEDURES 120 \COURIERPROGRAM 25 TRANSACTIONID) () \COURIER.APPLYA0001A0002 D4 (P 1 SI*CATCH-RETURN-FROM* P 0 SI*DUMMY-FOR-CATCH* F 2 FN F 3 STREAM F 4 PROGRAM F 5 SINLSETQ-VALUE F 6 PROCEDURE F 7 ARGLST) i@RSTVW hc g(16 APPLY) (23 NORMAL) () \COURIER.APPLYA0001 D4 (NAME SI*UNWIND-PROTECT* P 12 *CONDITION-HANDLER-BINDINGS* P 11 SI*NLSETQFLAG* P 10 *PROCEED-CASES* P 9 SINLSETQ-VALUE P 8 TYPE P 3 DATASTREAM P 2 RESULTS P 1 ARGLST P 0 XIPSOCKETPAIR I 0 SI*CLEANUP-FORMS* F 13 STREAM F 14 PROGRAM F 15 PROCDEF F 16 PROCEDURE F 17 *PROCEED-CASES* F 18 *CONDITION-HANDLER-BINDINGS* F 19 FN F 20 PGMDEF) { @WgWXghl cWALMYHW gW  `W"ioW$ O gOZ4`%` o` k` W&` Wn hKJdgWWW J K cy_gOgMW W dk!djdldlW g)WOgggWW W(W [WWO _NOh^]L\Oh^dgWWJJ gWJJ h(375 COURIER.REJECT 355 COURIER.ABORT 307 COURIER.READ 296 \BULK.DATA.STREAM 267 SHOULDNT 256 COURIER.REJECT 199 CLOSE.BULK.DATA 193 OPENP 186 COURIER.RETURN 156 COURIER.REJECT 147 PRIN1 138 SPACES 130 PRIN1 119 TERPRI 95 \COURIER.APPLYA0001A0002 69 SPP.CLEAREOM 59 SPP.EOFP 26 \CREATE.EXPEDITED.STREAM) (361 REJECT 338 ABORT 284 OUTPUT 280 INPUT 275 BULK.DATA.SOURCE 260 FLUSH 220 BULK.DATA.SOURCE 213 BULK.DATA.SINK 169 RETURN 144 COURIERTRACEFILE 135 COURIERTRACEFILE 127 COURIERTRACEFILE 116 COURIERTRACEFILE 111 COURIERTRACEFLG 99 NORMAL 76 SINLSETQ-PROCEED-CASE 62 EOM 20 INPUT 9 XIPSOCKETPAIR) ( 124 "Courier server function break:" 84 (CLERROR . SINLSETQHANDLER)) \COURIER.APPLY D4 (P 1 SI*RESETFORMS* P 0 LISPXHIST I 5 PROCDEF I 4 PGMDEF I 3 PROCEDURE I 2 PROGRAM I 1 STREAM I 0 FN F 2 LISPXHIST) Rg  (19 CLVALUES-LIST 15 SIRESETUNWIND 12 \MVLIST 9 \COURIER.APPLYA0001) (6 SIRESETUNWIND) () \COURIER.SETUP.REPLY D4 (P 0 TRANSACTIONID I 1 TYPE I 0 STREAM) I@dg3@ghl bg @A @Al @H @Hl @(69 \BOUT 60 \BOUT 54 \BOUT 45 \BOUT 38 STREAMPROP 29 \CREATE.EXPEDITED.STREAM) (35 TRANSACTIONID 23 OUTPUT 9 XIPSOCKETPAIR) () \COURIER.FINISH.REPLY D4 (I 1 STREAM I 0 COURIERSTREAM) 4@dg'A@ @g@@  (49 SPP.SENDEOM 45 SENDXIP 25 SWAPXIPADDRESSES) (34 FREE 31 ETHERPACKET 15 STREAM 6 XIPSOCKETPAIR) () \FIND.COURIER.PROGRAMA0001 D4 (I 1 KEY I 0 VALUE F 0 VERSIONS F 1 PROGRAM F 2 VERSION) %@Q @APc@R g (34 RETFROM 26 EQP 6 EQP) (31 MAPHASH) () \FIND.COURIER.PROGRAM D4 (P 0 VERSIONS I 1 VERSION I 0 PROGRAM) `g H(11 MAPHASH) (8 \FIND.COURIER.PROGRAMA0001 5 \COURIERPROGRAM) () \FIND.COURIER.PROCEDURE D4 (P 7 OTHERPROGRAM P 0 PROCEDURE I 1 PROCEDURE# I 0 PGMDEF) gP@g'hYh@g'!MNdZA JiI_` g'[ h^M]\A LiK(90 EQP 64 GETHASH 44 EQP) (68 PROCEDURES 61 \COURIERPROGRAM 22 INHERITS 7 PROCEDURES) () \EXPEDITEDCOURIERSERVER D4 (P 0 XIPSOCKETPAIR I 1 SOCKET I 0 XIP) `*` o` k` @l' ` g@A@0ll@1X`N` o` k` @l' ` k` @0` k` @1` H gHddi3 gHhh (183 ADD.PROCESS 154 COURIER.REJECT 149 PRIN1 139 SPACES 131 PRIN1 121 SPACES 113 PRIN1 107 \LOADNSADDRESS 99 SPACES 91 PRIN1 80 TERPRI 43 PRIN1 37 \LOADNSADDRESS 29 SPACES 21 PRIN1 10 TERPRI) (173 QUOTE 158 \EXPEDITEDCOURIER.SERVE 146 COURIERTRACEFILE 136 COURIERTRACEFILE 128 COURIERTRACEFILE 118 COURIERTRACEFILE 110 COURIERTRACEFILE 96 COURIERTRACEFILE 88 COURIERTRACEFILE 77 COURIERTRACEFILE 72 COURIERTRACEFLG 47 XIPSOCKETPAIR 40 COURIERTRACEFILE 26 COURIERTRACEFILE 18 COURIERTRACEFILE 7 COURIERTRACEFILE 2 COURIERTRACEFLG) ( 85 "Client requesting unknown version of Courier" 15 "Expedited server connection with") \EXPEDITEDCOURIER.SERVE D4 (P 6 RESULTLST P 5 VERSIONS P 4 PROCDEF P 3 PGMDEF P 2 PROCEDURE P 1 PROGRAM I 0 XIPSOCKETPAIR) @H2j`Hl0l H6 ]H6MY"@kM! OYOM! OgO ~` [H7 Z/IJgK \L@IJKL F@l>@l9_OOOO_O__OOOO_O_@j h(207 SHOULDNT 202 COURIER.REJECT 132 \COURIER.APPLY 103 \GET.COURIER.DEFINITION 91 \FIND.COURIER.PROCEDURE 84 GETHASH 76 COURIER.REJECT 32 \FIND.COURIER.PROGRAM 26 \GETBASEFIXP) (99 PROCEDURES 81 \COURIERPROGRAM) () \CREATE.EXPEDITED.STREAM D4 (P 1 END P 0 STREAM I 3 OFFSET I 2 OSTREAM I 1 ACCESS I 0 XIP) oBl H` HA H@lHAg@Cln@Cll$HHIIAgHg*HgH(22 \SETACCESS) (105 \COURIER.EXPEDITED.OVERFLOW 102 STREAM 95 \COURIER.EOF 92 STREAM 86 INPUT 75 STREAM 71 STREAM 40 INPUT 36 STREAM 26 STREAM 15 \BASEBYTESDEVICE 12 STREAM) () (PRETTYCOMPRINT COURIERSERVECOMS) (RPAQQ COURIERSERVECOMS ((FNS COURIER.START.SERVER COURIER.RETURN COURIER.ABORT COURIER.REJECT CLOSE.BULK.DATA) (FNS \COURIERSERVER \COURIER.SERVE \COURIER.APPLY \COURIER.SETUP.REPLY \COURIER.FINISH.REPLY \FIND.COURIER.PROGRAM \FIND.COURIER.PROCEDURE) (FNS \EXPEDITEDCOURIERSERVER \EXPEDITEDCOURIER.SERVE \CREATE.EXPEDITED.STREAM) (PROP ARGNAMES COURIER.CALL COURIER.EXPEDITED.CALL) (CONSTANTS (\REJECT.NOSUCHPROGRAM 0) (\REJECT.NOSUCHVERSION 1) (\REJECT.NOSUCHPROCEDURE 2) ( \REJECT.INVALIDARGUMENTS 3) (\REJECT.UNSPECIFIED 65535) (\SINK.NULL 0) (\SINK.IMMEDIATE 1) ( \SINK.PASSIVE 2) (\SINK.ACTIVE 3)) (DECLARE: DONTCOPY (RECORDS COURIERSERVERFN XIPSOCKETPAIR)))) (PUTPROPS COURIER.CALL ARGNAMES (NIL (STREAM PROGRAM PROCEDURE ARG1 %... ARGn NOERRORFLG) . U)) (PUTPROPS COURIER.EXPEDITED.CALL ARGNAMES (NIL (ADDRESS SOCKET PROGRAM PROCEDURE ARG1 %... ARGn NOERRORFLG) . U)) (RPAQQ \REJECT.NOSUCHPROGRAM 0) (RPAQQ \REJECT.NOSUCHVERSION 1) (RPAQQ \REJECT.NOSUCHPROCEDURE 2) (RPAQQ \REJECT.INVALIDARGUMENTS 3) (RPAQQ \REJECT.UNSPECIFIED 65535) (RPAQQ \SINK.NULL 0) (RPAQQ \SINK.IMMEDIATE 1) (RPAQQ \SINK.PASSIVE 2) (RPAQQ \SINK.ACTIVE 3) (CONSTANTS (\REJECT.NOSUCHPROGRAM 0) (\REJECT.NOSUCHVERSION 1) (\REJECT.NOSUCHPROCEDURE 2) ( \REJECT.INVALIDARGUMENTS 3) (\REJECT.UNSPECIFIED 65535) (\SINK.NULL 0) (\SINK.IMMEDIATE 1) ( \SINK.PASSIVE 2) (\SINK.ACTIVE 3)) (PUTPROPS COURIERSERVE COPYRIGHT ("Xerox Corporation & Stanford University" 1985 1986 1987)) NIL