(FILECREATED "22-Sep-87 17:09:48" {QV}<PEDERSEN>LISP>KOTO>IDL-PATCH.;1
 610    

      changes to:  (VARS IDL-PATCHCOMS)
		   (FNS READ.FONTINTODESCRIPTOR))


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

(PRETTYCOMPRINT IDL-PATCHCOMS)

(RPAQQ IDL-PATCHCOMS
 ((FNS READ.FONTINTODESCRIPTOR)))
(DEFINEQ

(READ.FONTINTODESCRIPTOR

  [LAMBDA (STREAM)                                           (* edited: "22-Sep-87 17:06")

    (LET ((FONTLST (
READ
 STREAM)))
         (
FONTCREATE
 FONTLST])
)
(PUTPROPS IDL-PATCH COPYRIGHT ("Xerox Corporation" 1987))
(DECLARE: DONTCOPY
  (FILEMAP (NIL (321 530 (READ.FONTINTODESCRIPTOR 331 . 528)))))
STOP