File [qv]<IDL>koto>IDL-PATCH.DCOM!1

(FILECREATED "22-Sep-87 17:10:18" ("compiled on " {QV}<PEDERSEN>LISP>KOTO>IDL-PATCH.;1) 
"12-Nov-85 14:59:23" recompiled ALL in "INTERLISP-D  1-Jun-86 ..." dated " 1-Jun-86 16:16:51")
(FILECREATED "22-Sep-87 17:09:48" {QV}<PEDERSEN>LISP>KOTO>IDL-PATCH.;1 610 changes to: (VARS 
IDL-PATCHCOMS) (FNS READ.FONTINTODESCRIPTOR))
READ.FONTINTODESCRIPTOR D1
(P 0 FONTLST I 0 STREAM) 
@	H	(12Q FONTCREATE 3 READ)
NIL
()
(PRETTYCOMPRINT IDL-PATCHCOMS)
(RPAQQ IDL-PATCHCOMS ((FNS READ.FONTINTODESCRIPTOR)))
(PUTPROPS IDL-PATCH COPYRIGHT ("Xerox Corporation" 1987))
NIL