(FILECREATED "20-Mar-86 08:02:05" {ROSEBOWL}<FEUERMAN>LISP>NCCOURIER.;1 1906 changes to: (VARS NCCOURIERCOMS) (FNS NCCOURIER.READ.UID NCCOURIER.WRITE.UID) (PROPS (UID COURIERDEF))) (PRETTYCOMPRINT NCCOURIERCOMS) (RPAQQ NCCOURIERCOMS ((FNS NCCOURIER.READ.UID NCCOURIER.WRITE.UID) (PROP COURIERDEF UID))) (DEFINEQ (NCCOURIER.READ.UID [LAMBDA (STREAM) (* Feuerman "19-Mar-86 16:28") (create UID UID0 ←(COURIER.READ STREAM NIL (QUOTE CARDINAL)) UID1 ←(COURIER.READ STREAM NIL (QUOTE CARDINAL)) UID2 ←(COURIER.READ STREAM NIL (QUOTE CARDINAL)) UID3 ←(COURIER.READ STREAM NIL (QUOTE CARDINAL)) UID4 ←(COURIER.READ STREAM NIL (QUOTE CARDINAL)) UID5 ←(COURIER.READ STREAM NIL (QUOTE CARDINAL)) UID6 ←(COURIER.READ STREAM NIL (QUOTE CARDINAL]) (NCCOURIER.WRITE.UID [LAMBDA (STREAM VALUE) (* Feuerman "19-Mar-86 16:26") (COURIER.WRITE STREAM (ffetch (UID UID0) of VALUE) NIL (QUOTE CARDINAL)) (COURIER.WRITE STREAM (ffetch (UID UID1) of VALUE) NIL (QUOTE CARDINAL)) (COURIER.WRITE STREAM (ffetch (UID UID2) of VALUE) NIL (QUOTE CARDINAL)) (COURIER.WRITE STREAM (ffetch (UID UID3) of VALUE) NIL (QUOTE CARDINAL)) (COURIER.WRITE STREAM (ffetch (UID UID4) of VALUE) NIL (QUOTE CARDINAL)) (COURIER.WRITE STREAM (ffetch (UID UID5) of VALUE) NIL (QUOTE CARDINAL)) (COURIER.WRITE STREAM (ffetch (UID UID6) of VALUE) NIL (QUOTE CARDINAL]) ) (PUTPROPS UID COURIERDEF (NCCOURIER.READ.UID NCCOURIER.WRITE.UID 7)) (DECLARE: DONTCOPY (FILEMAP (NIL (340 1810 (NCCOURIER.READ.UID 350 . 937) (NCCOURIER.WRITE.UID 939 . 1808))))) STOP