Remove FLUSHFONTSINCORE--FLUSHFONTCACHE is more general

library/POSTSCRIPTSTREAM

@@ -1,13 +1,12 @@
 (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
 
-
(FILECREATED "24-Dec-2025 11:36:54" {WMEDLEY}<library>POSTSCRIPTSTREAM.;61
 258642 
+
(FILECREATED "31-Dec-2025 22:38:51" {WMEDLEY}<library>POSTSCRIPTSTREAM.;62
 258688 
 
       :EDIT-BY rmk
 
-      :CHANGES-TO (ALISTS (PRINTFILETYPES POSTSCRIPT))
-                  (FNS POSTSCRIPT.FONTSAVAILABLE)
+      :CHANGES-TO (FNS POSTSCRIPT.INIT)
 
-      :PREVIOUS-DATE "12-Dec-2025 19:16:22" {WMEDLEY}<library>POSTSCRIPTSTREAM.;59)
+      :PREVIOUS-DATE "24-Dec-2025 11:36:54" {WMEDLEY}<library>POSTSCRIPTSTREAM.;61)
 
 
 (PRETTYCOMPRINT POSTSCRIPTSTREAMCOMS)
@@ -376,7 +375,8 @@
 (DEFINEQ
 
 (POSTSCRIPT.INIT

-  [LAMBDA NIL
                                                (* ; "Edited  9-Sep-2025 21:57 by rmk")


+  [LAMBDA NIL
                                                (* ; "Edited 31-Dec-2025 22:38 by rmk")


+                                                             (* ; "Edited  9-Sep-2025 21:57 by rmk")


                                                              (* ; "Edited 22-Aug-2025 21:34 by rmk")


                                                             (* ; "Edited 14-May-2018 10:48 by rmk:")


                                                              (* ; "Edited  4-Feb-93 21:08 by jds")

@@ -423,7 +423,7 @@
 
     (* ;; "Eliminate any existing postscript fonts, to start with a clean slate if reinitializing.")

 
-    (FLUSHFONTSINCORE '* '* '* '* 'POSTSCRIPT)
+    (FLUSHFONTCACHE NIL '* '* '* '* 'POSTSCRIPT)
     (SETQ POSTSCRIPTFONTCACHE NIL)
     (SETQ \POSTSCRIPT.CHARTYPE (CL:MAKE-ARRAY 256 :INITIAL-ELEMENT T))
 
@@ -4397,38 +4397,38 @@
 (ADDTOVAR LAMA
 POSTSCRIPT.PUTCOMMAND)
 )
 (DECLARE%: DONTCOPY
-  (FILEMAP (NIL (22399 32607 (POSTSCRIPT.INIT 22409 . 29213) (POSTSCRIPT.PUTRGBCOLOR 29215 . 30237) (
-\PSC.COLOR.TO.RGB 30239 . 32605)) (33593 69015 (PSCFONT.READFONT 33603 . 35511) (PSCFONT.SPELLFILE 
-35513 . 36326) (PSCFONT.COERCEFILE 36328 . 37900) (PSCFONTFROMCACHE.SPELLFILE 37902 . 38887) (
-PSCFONTFROMCACHE.COERCEFILE 38889 . 40541) (PSCFONT.WRITEFONT 40543 . 41558) (READ-AFM-FILE 41560 . 
-47431) (CONVERT-AFM-FILES 47433 . 48645) (POSTSCRIPT.GETFONTID 48647 . 50042) (POSTSCRIPT.FONTCREATE 
-50044 . 62938) (\POSTSCRIPT.SPECIALFONT.SCALEDWIDTHS 62940 . 65337) (POSTSCRIPT.FONTSAVAILABLE 65339
- . 67626) (POSTSCRIPT.FONTEXISTS? 67628 . 69013)) (69016 78739 (OPENPOSTSCRIPTSTREAM 69026 . 78405) (
-CLOSEPOSTSCRIPTSTREAM 78407 . 78737)) (78784 85699 (POSTSCRIPT.HARDCOPYW 78794 . 81901) (
-POSTSCRIPT.TEDIT 81903 . 82355) (POSTSCRIPT.TEXT 82357 . 82944) (POSTSCRIPTFILEP 82946 . 84434) (
-MAKEEPSFILE 84436 . 85697)) (85700 129274 (POSTSCRIPT.BITMAPSCALE 85710 . 88166) (
-POSTSCRIPT.CLOSESTRING 88168 . 88721) (POSTSCRIPT.ENDPAGE 88723 . 89614) (POSTSCRIPT.OUTSTR 89616 . 
-90833) (POSTSCRIPT.PUTBITMAPBYTES 90835 . 99306) (POSTSCRIPT.PUTCOMMAND 99308 . 100297) (
-POSTSCRIPT.SET-FAKE-LANDSCAPE 100299 . 104819) (POSTSCRIPT.SHOWACCUM 104821 . 106976) (
-POSTSCRIPT.STARTPAGE 106978 . 109510) (\POSTSCRIPTTAB 109512 . 110309) (\PS.BOUTFIXP 110311 . 111591) 
-(\PS.SCALEHACK 111593 . 114236) (\PS.SCALEREGION 114238 . 114798) (\SCALEDBITBLT.PSC 114800 . 119110) 
-(\SETPOS.PSC 119112 . 119593) (\SETXFORM.PSC 119595 . 122179) (\STRINGWIDTH.PSC 122181 . 122654) (
-\SWITCHFONTS.PSC 122656 . 128148) (\TERPRI.PSC 128150 . 129272)) (129309 183165 (\BITBLT.PSC 129319 . 
-129871) (\BLTSHADE.PSC 129873 . 134534) (\CHARWIDTH.PSC 134536 . 135043) (\CREATECHARSET.PSC 135045 . 
-136401) (\DRAWARC.PSC 136403 . 138781) (\DRAWCIRCLE.PSC 138783 . 141034) (\DRAWCURVE.PSC 141036 . 
-144880) (\DRAWELLIPSE.PSC 144882 . 147246) (\DRAWLINE.PSC 147248 . 149988) (\DRAWPOINT.PSC 149990 . 
-150566) (\DRAWPOLYGON.PSC 150568 . 153697) (\DSPBOTTOMMARGIN.PSC 153699 . 154386) (
-\DSPCLIPPINGREGION.PSC 154388 . 155763) (\DSPCOLOR.PSC 155765 . 156696) (\DSPFONT.PSC 156698 . 160335)
- (\DSPLEFTMARGIN.PSC 160337 . 161023) (\DSPLINEFEED.PSC 161025 . 161615) (\DSPPUSHSTATE.PSC 161617 . 
-163077) (\DSPPOPSTATE.PSC 163079 . 166564) (\DSPRESET.PSC 166566 . 167231) (\DSPRIGHTMARGIN.PSC 167233
- . 167922) (\DSPROTATE.PSC 167924 . 168923) (\DSPSCALE.PSC 168925 . 169877) (\DSPSCALE2.PSC 169879 . 
-170719) (\DSPSPACEFACTOR.PSC 170721 . 171642) (\DSPTOPMARGIN.PSC 171644 . 172215) (\DSPTRANSLATE.PSC 
-172217 . 174248) (\DSPXPOSITION.PSC 174250 . 174814) (\DSPYPOSITION.PSC 174816 . 175407) (
-\FILLCIRCLE.PSC 175409 . 177634) (\FILLPOLYGON.PSC 177636 . 180873) (\FIXLINELENGTH.PSC 180875 . 
-182194) (\MOVETO.PSC 182196 . 182966) (\NEWPAGE.PSC 182968 . 183163)) (183221 205367 (
-\POSTSCRIPT.CHANGECHARSET 183231 . 183949) (\POSTSCRIPT.OUTCHARFN 183951 . 196221) (
-\POSTSCRIPT.PRINTSLUG 196223 . 197947) (\POSTSCRIPT.SPECIALOUTCHARFN 197949 . 200300) (\UPDATE.PSC 
-200302 . 201548) (\POSTSCRIPT.ACCENTFN 201550 . 202492) (\POSTSCRIPT.ACCENTPAIR 202494 . 205365)) (
-205465 207110 (\PSC.SPACEDISP 205475 . 205754) (\PSC.SPACEWID 205756 . 206375) (\PSC.SYMBOLS 206377 . 
-207108)) (207219 210210 (\POSTSCRIPT.NSHASH 207229 . 210208)))))
+  (FILEMAP (NIL (22334 32653 (POSTSCRIPT.INIT 22344 . 29259) (POSTSCRIPT.PUTRGBCOLOR 29261 . 30283) (
+\PSC.COLOR.TO.RGB 30285 . 32651)) (33639 69061 (PSCFONT.READFONT 33649 . 35557) (PSCFONT.SPELLFILE 
+35559 . 36372) (PSCFONT.COERCEFILE 36374 . 37946) (PSCFONTFROMCACHE.SPELLFILE 37948 . 38933) (
+PSCFONTFROMCACHE.COERCEFILE 38935 . 40587) (PSCFONT.WRITEFONT 40589 . 41604) (READ-AFM-FILE 41606 . 
+47477) (CONVERT-AFM-FILES 47479 . 48691) (POSTSCRIPT.GETFONTID 48693 . 50088) (POSTSCRIPT.FONTCREATE 
+50090 . 62984) (\POSTSCRIPT.SPECIALFONT.SCALEDWIDTHS 62986 . 65383) (POSTSCRIPT.FONTSAVAILABLE 65385
+ . 67672) (POSTSCRIPT.FONTEXISTS? 67674 . 69059)) (69062 78785 (OPENPOSTSCRIPTSTREAM 69072 . 78451) (
+CLOSEPOSTSCRIPTSTREAM 78453 . 78783)) (78830 85745 (POSTSCRIPT.HARDCOPYW 78840 . 81947) (
+POSTSCRIPT.TEDIT 81949 . 82401) (POSTSCRIPT.TEXT 82403 . 82990) (POSTSCRIPTFILEP 82992 . 84480) (
+MAKEEPSFILE 84482 . 85743)) (85746 129320 (POSTSCRIPT.BITMAPSCALE 85756 . 88212) (
+POSTSCRIPT.CLOSESTRING 88214 . 88767) (POSTSCRIPT.ENDPAGE 88769 . 89660) (POSTSCRIPT.OUTSTR 89662 . 
+90879) (POSTSCRIPT.PUTBITMAPBYTES 90881 . 99352) (POSTSCRIPT.PUTCOMMAND 99354 . 100343) (
+POSTSCRIPT.SET-FAKE-LANDSCAPE 100345 . 104865) (POSTSCRIPT.SHOWACCUM 104867 . 107022) (
+POSTSCRIPT.STARTPAGE 107024 . 109556) (\POSTSCRIPTTAB 109558 . 110355) (\PS.BOUTFIXP 110357 . 111637) 
+(\PS.SCALEHACK 111639 . 114282) (\PS.SCALEREGION 114284 . 114844) (\SCALEDBITBLT.PSC 114846 . 119156) 
+(\SETPOS.PSC 119158 . 119639) (\SETXFORM.PSC 119641 . 122225) (\STRINGWIDTH.PSC 122227 . 122700) (
+\SWITCHFONTS.PSC 122702 . 128194) (\TERPRI.PSC 128196 . 129318)) (129355 183211 (\BITBLT.PSC 129365 . 
+129917) (\BLTSHADE.PSC 129919 . 134580) (\CHARWIDTH.PSC 134582 . 135089) (\CREATECHARSET.PSC 135091 . 
+136447) (\DRAWARC.PSC 136449 . 138827) (\DRAWCIRCLE.PSC 138829 . 141080) (\DRAWCURVE.PSC 141082 . 
+144926) (\DRAWELLIPSE.PSC 144928 . 147292) (\DRAWLINE.PSC 147294 . 150034) (\DRAWPOINT.PSC 150036 . 
+150612) (\DRAWPOLYGON.PSC 150614 . 153743) (\DSPBOTTOMMARGIN.PSC 153745 . 154432) (
+\DSPCLIPPINGREGION.PSC 154434 . 155809) (\DSPCOLOR.PSC 155811 . 156742) (\DSPFONT.PSC 156744 . 160381)
+ (\DSPLEFTMARGIN.PSC 160383 . 161069) (\DSPLINEFEED.PSC 161071 . 161661) (\DSPPUSHSTATE.PSC 161663 . 
+163123) (\DSPPOPSTATE.PSC 163125 . 166610) (\DSPRESET.PSC 166612 . 167277) (\DSPRIGHTMARGIN.PSC 167279
+ . 167968) (\DSPROTATE.PSC 167970 . 168969) (\DSPSCALE.PSC 168971 . 169923) (\DSPSCALE2.PSC 169925 . 
+170765) (\DSPSPACEFACTOR.PSC 170767 . 171688) (\DSPTOPMARGIN.PSC 171690 . 172261) (\DSPTRANSLATE.PSC 
+172263 . 174294) (\DSPXPOSITION.PSC 174296 . 174860) (\DSPYPOSITION.PSC 174862 . 175453) (
+\FILLCIRCLE.PSC 175455 . 177680) (\FILLPOLYGON.PSC 177682 . 180919) (\FIXLINELENGTH.PSC 180921 . 
+182240) (\MOVETO.PSC 182242 . 183012) (\NEWPAGE.PSC 183014 . 183209)) (183267 205413 (
+\POSTSCRIPT.CHANGECHARSET 183277 . 183995) (\POSTSCRIPT.OUTCHARFN 183997 . 196267) (
+\POSTSCRIPT.PRINTSLUG 196269 . 197993) (\POSTSCRIPT.SPECIALOUTCHARFN 197995 . 200346) (\UPDATE.PSC 
+200348 . 201594) (\POSTSCRIPT.ACCENTFN 201596 . 202538) (\POSTSCRIPT.ACCENTPAIR 202540 . 205411)) (
+205511 207156 (\PSC.SPACEDISP 205521 . 205800) (\PSC.SPACEWID 205802 . 206421) (\PSC.SYMBOLS 206423 . 
+207154)) (207265 210256 (\POSTSCRIPT.NSHASH 207275 . 210254)))))
 STOP