(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "XCL" BASE 10) (FILECREATED " 4-Apr-2024 18:51:03" ("compiled on " |{DSK}frank>il>ncmedley>lispusers>PLOTANDNC-PATCH.;2|) " 3-Apr-2024 17:17:18" |tcompl'd| |in| "APPS 3-Apr-2024 ..." |dated| " 3-Apr-2024 17:17:26") (FILECREATED " 4-Apr-2024 18:50:50" |{DSK}frank>il>ncmedley>lispusers>PLOTANDNC-PATCH.;2| 1814 :PREVIOUS-DATE "22-Jan-88 15:45:26" |{DSK}frank>il>ncmedley>lispusers>PLOTANDNC-PATCH.;1|) READFONT :D8 (P 0 PROPLIST I 0 STREAM) 4@ Hg'Hg'Hg'Hg'Hg' (49 FONTCREATE 5 READ) (42 DEVICE 35 ROTATION 28 FACE 21 SIZE 14 FAMILY) () READ.FONTINTODESCRIPTOR :D8 (I 0 STREAM) g@ (15 APPLY 10 READ) (4 FONTCREATE) () (PRETTYCOMPRINT PLOTANDNC-PATCHCOMS) (RPAQQ PLOTANDNC-PATCHCOMS ((* |;;| "define font read fns used by plot and notecards so system can read either kind") (FNS READFONT READ.FONTINTODESCRIPTOR) (P (* |;;| "make sure these read fns are registered to avoid messages when reading") (PUSHNEW HPRINTREADFNS ( QUOTE READFONT)) (PUSHNEW HPRINTREADFNS (QUOTE READ.FONTINTODESCRIPTOR))))) (PUSHNEW HPRINTREADFNS (QUOTE READFONT)) (PUSHNEW HPRINTREADFNS (QUOTE READ.FONTINTODESCRIPTOR)) NIL