(FILECREATED "12-Dec-84 13:37:14" ("compiled on " {DANTE}PATCHES>NSFONTFILEPATCH.;1) "10-Dec-84 17:38:51" tcompl'd in "INTERLISP-D 10-Dec-84 ..." dated "10-Dec-84 18:01:59") (FILECREATED "12-Dec-84 13:37:02" {DANTE}PATCHES>NSFONTFILEPATCH.;1 1237 changes to: (VARS NSFONTFILEPATCHCOMS) (FNS PATCHED\READACFONTFILE) previous date: "12-Dec-84 13:34:40" {DANTE}LIBRARY>NSFONTFILEPATCH.;1) PATCHED\READACFONTFILE D1 (I 5 DONT.PAD.RIGHT I 4 PAD.LEFT I 3 FACE I 2 SIZE I 1 FAMILY I 0 STRM) @ABCDE nÐ ¿(17Q BLOCK 11Q ORIGINAL\READACFONTFILE) NIL () (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))))))) (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)) NIL