(FILECREATED "12-Dec-84 13:37:02" {DANTE}<LISPNEW>PATCHES>NSFONTFILEPATCH.;1
 1237   

      changes to:  (VARS NSFONTFILEPATCHCOMS)
		   (FNS PATCHED\READACFONTFILE)

      previous date: "12-Dec-84 13:34:40" {DANTE}<LISPNEW>LIBRARY>NSFONTFILEPATCH.;1)


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

(PRETTYCOMPRINT NSFONTFILEPATCHCOMS)

(RPAQQ NSFONTFILEPATCHCOMS
 [(FNS PATCHED\READACFONTFILE)
			    (P (if (NULL (GETD (QUOTE ORIGINAL\READACFONTFILE)))
				   then
				   (PROG (INTERRUPTABLE)
					 (MOVD (QUOTE \READACFONTFILE)
					       (QUOTE ORIGINAL\READACFONTFILE))
					 (MOVD (QUOTE PATCHED\READACFONTFILE)
					       (QUOTE \READACFONTFILE])
(DEFINEQ

(PATCHED\READACFONTFILE

  [LAMBDA (STRM FAMILY SIZE FACE PAD.LEFT DONT.PAD.RIGHT)    (* edited: "12-Dec-84 13:27")

    (
PROG1
 (ORIGINAL\READACFONTFILE STRM FAMILY SIZE FACE PAD.LEFT DONT.PAD.RIGHT)
	   (
BLOCK
 2000])
)
[if (NULL (GETD (QUOTE ORIGINAL\READACFONTFILE)))
    then
    (PROG (INTERRUPTABLE)
	  (MOVD (QUOTE \READACFONTFILE)
		(QUOTE ORIGINAL\READACFONTFILE))
	  (MOVD (QUOTE PATCHED\READACFONTFILE)
		(QUOTE \READACFONTFILE]
(PUTPROPS NSFONTFILEPATCH COPYRIGHT ("Xerox Corporation" 1984))
(DECLARE: DONTCOPY
  (FILEMAP (NIL (689 932 (PATCHED\READACFONTFILE 699 . 930)))))
STOP