XEROX COURIEREVALSERVE 2 4 1 COURIEREVALSERVE 1 4 By: Christopher Lane (Lane@Sumex-Aim.Stanford.Edu) Requires: COURIERSERVE COURIEREVALSERVE implements both the client and server routines for the simple example remote evaluation server described in the COURIERSERVE documentation. This module defines two user functions: (REMOTEEVAL FORM COURIERSTREAM NOERRORFLG) [Function] (REMOTEAPPLY FN ARGS COURIERSTREAM NOERRORFLG) [Function] The COURIERSTREAM is obtained by calling COURIER.OPEN with a host that is running the Courier server and has COURIEREVALSERVE loaded. If the NOERRORFLG is non-NIL, it is returned if an error is signaled by the remote host, otherwise the functions cause an error. Due to the removal of ERRORN in the Lyric release, the error handling is not as informative as in earlier versions. If you are connected to a pre-Lyric host, errors will work as before, otherwise instead of signaling the actual remote error (eg. 'Undefined car of form') the generic 'Remote evaluation error!' error is raised. This is to maintain (temporary) backward compatibiliy in the EVAL Courier program. Hopefully, this will be replaced with a new version of the EVAL program designed to correctly remote the new condition-based error handler.(LIST ((PAGE NIL (PAPERSIZE LETTER STARTINGPAGE# 46) (0 0 612 792) ((FOLIO NIL (PARALOOKS (QUAD CENTERED) CHARLOOKS (SUPERSCRIPT 0 INVISIBLE OFF SELECTPOINT OFF PROTECTED OFF SIZE 10 FAMILY MODERN OVERLINE OFF STRIKEOUT OFF UNDERLINE OFF EXPANSION REGULAR SLOPE REGULAR WEIGHT MEDIUM INVERTED OFF USERINFO NIL STYLE NIL) FORMATINFO NIL) (174 36 288 36) NIL) (HEADING NIL (HEADINGTYPE RUNNINGHEAD) (84 744 528 36) NIL) (TEXT NIL NIL (84 96 456 600) NIL))) (PAGE NIL (PAPERSIZE NIL . LETTER) (0 0 612 792) ((FOLIO NIL (PARALOOKS (QUAD CENTERED) CHARLOOKS (SUPERSCRIPT 0 INVISIBLE OFF SELECTPOINT OFF PROTECTED OFF SIZE 10 FAMILY MODERN OVERLINE OFF STRIKEOUT OFF UNDERLINE OFF EXPANSION REGULAR SLOPE REGULAR WEIGHT MEDIUM INVERTED OFF USERINFO NIL STYLE NIL) FORMATINFO NIL) (174 36 288 36) NIL) (HEADING NIL (HEADINGTYPE RUNNINGHEAD) (84 744 528 36) NIL) (TEXT NIL NIL (84 96 456 600) NIL))) (PAGE NIL (PAPERSIZE NIL . LETTER) (0 0 612 792) ((FOLIO NIL (PARALOOKS (QUAD CENTERED) CHARLOOKS (SUPERSCRIPT 0 INVISIBLE OFF SELECTPOINT OFF PROTECTED OFF SIZE 10 FAMILY MODERN OVERLINE OFF STRIKEOUT OFF UNDERLINE OFF EXPANSION REGULAR SLOPE REGULAR WEIGHT MEDIUM INVERTED OFF USERINFO NIL STYLE NIL) FORMATINFO NIL) (174 36 288 36) NIL) (HEADING NIL (HEADINGTYPE RUNNINGHEAD) (84 744 528 36) NIL) (TEXT NIL NIL (84 96 456 600) NIL)))))1(((8(8D PAGEHEADING RUNNINGHEADTERMINAL  HELVETICA MODERN MODERN MODERN MODERNMODERN LOGO HRULE.GETFNMODERN  HRULE.GETFNMODERN  HRULE.GETFNMODERN  HRULE.GETFNMODERN  HRULE.GETFNMODERN 4(        Y eAz