(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