(FILECREATED " 1-Apr-86 08:26:22" {ROSEBOWL}<FEUERMAN>LISP>NCCLIENTTEST.;2
 1206   

      changes to:  (FNS NCCLIENTTEST.READOFFSTREAM)

      previous date: " 1-Apr-86 08:23:23" {ROSEBOWL}<FEUERMAN>LISP>NCCLIENTTEST.;1)


(PRETTYCOMPRINT NCCLIENTTESTCOMS)

(RPAQQ NCCLIENTTESTCOMS
 ((FNS NCCLIENTTEST.READOFFSTREAM)))
(DEFINEQ

(NCCLIENTTEST.READOFFSTREAM

  [LAMBDA (STREAM)                                           (* Feuerman " 1-Apr-86 08:26")

    (
PROG
 [
LENGTH
 IDENTIFIER VERSIONNUMBER DATE UID (CONTENTSSTREAM (
OPENSTREAM
 (
QUOTE
 
										      {NODIRCORE})
										      (
QUOTE
 BOTH]
	    (
SETFILEPTR
 STREAM 0)
	    (
SETQ
 LENGTH (NC.ReadPtr STREAM 3))
	    (
SETQ
 IDENTIFIER (
READ
 STREAM NC.OrigReadTable))
	    (
READC
 STREAM)
	    (
SETQ
 VERSIONNUMBER (NC.ReadPtr STREAM 1))
	    (
SETQ
 DATE (
NC.ReadDate
 STREAM))
	    (
SETQ
 UID (
NC.ReadUID
 STREAM))
	    (
COPYBYTES
 STREAM CONTENTSSTREAM)
	    (
SETFILEPTR
 CONTENTSSTREAM 0)
	    (
RETURN
 (for
 I in
 (
QUOTE
 (
LENGTH
 IDENTIFIER VERSIONNUMBER DATE UID 
						       CONTENTSSTREAM))
			 collect
 (
CONS
 I (
EVAL
 I])
)
(DECLARE: DONTCOPY
  (FILEMAP (NIL (328 1184 (NCCLIENTTEST.READOFFSTREAM 338 . 1182)))))
STOP