(FILECREATED "29-Oct-86 11:30:29" {QV}<NOTECARDS>1.3K>NEXT>KIRKPATCH031.;1
 1300   

      changes to:  (VARS KIRKPATCH031COMS)
		   (FNS NC.ReadCRP NC.AddCRIfNeeded))


(* Copyright (c) 1986 by Xerox Corporation. All rights reserved.)

(PRETTYCOMPRINT KIRKPATCH031COMS)

(RPAQQ KIRKPATCH031COMS
 ((* * changed in NCFILECARD)
			   (FNS NC.AddCRIfNeeded)
			   (* * new for NCFILECARD)
			   (FNS NC.ReadCRP)))
(* * changed in NCFILECARD)


(DEFINEQ

(NC.AddCRIfNeeded

  (LAMBDA (Stream)                                           (* kirk: "23-Oct-86 15:42")


          (* * Check last character of Stream. If not a CR, then add one.)



    (LET ((Len (fetch
 (
TEXTOBJ
 TEXTLEN) of
 (
TEXTOBJ
 Stream))))
         (if
 (
NOT
 (
ZEROP
 Len))
	     then
 (
SETFILEPTR
 Stream (
SUB1
 Len))
		    (if
 (
NOT
 (NC.ReadCRP
 Stream))
			then
 (
PROGN
 (
NC.AppendStringToStream
 Stream NC.CRString)
					T))))))
)
(* * new for NCFILECARD)


(DEFINEQ

(NC.ReadCRP

  (LAMBDA (Stream)                                           (* kirk: "23-Oct-86 15:24")


          (* * Check next character of stream is CR)



    (
EQ
 13 (
BIN
 Stream))))
)
(PUTPROPS KIRKPATCH031 COPYRIGHT ("Xerox Corporation" 1986))
(DECLARE: DONTCOPY
  (FILEMAP (NIL (453 970 (NC.AddCRIfNeeded 463 . 968)) (1002 1217 (NC.ReadCRP 1012 . 1215)))))
STOP