LOADUPFULLFONTS: don't choke on extra index.html files in postscript font directory (#2117)

Co-authored-by: Frank Halasz <[email protected]>

Author: masinter

internal/loadups/LOADUP-FULL

@@ -1,10 +1,12 @@
 (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
 
-
(FILECREATED "31-Jul-2023 18:28:53" {DSK}<home>frank>il>medley>gmedley>sources>LOADUP-FULL.;4
 4521   
+
(FILECREATED "23-Apr-2025 05:14:27" {DSK}<home>larry>il>medley>internal>loadups>LOADUP-FULL.;2
 4662   
 
-      :CHANGES-TO (FNS LOADUP-FULL)
+      :EDIT-BY "lmm"
 
-      :PREVIOUS-DATE "18-Jan-2023 16:23:36" {DSK}<home>frank>il>medley>gmedley>sources>LOADUP-FULL.;3
+      :CHANGES-TO (FNS LOADFULLFONTS)
+
+      :PREVIOUS-DATE "31-Jul-2023 18:28:53" {DSK}<home>larry>il>medley>internal>loadups>LOADUP-FULL.;1
 )
 
 
@@ -15,7 +17,8 @@
 (DEFINEQ
 
 (LOADFULLFONTS

-  [LAMBDA NIL
                                              (* ; "Edited 13-Feb-2021 22:51 by larry")

+  [LAMBDA NIL
                                                (* ; "Edited 23-Apr-2025 05:13 by lmm")


+                                                           (* ; "Edited 13-Feb-2021 22:51 by larry")

 
     (* ;; " Don't do Interpress. Do character set 0 and the symbol character sets 41Q, 42Q, 356Q, 357Q and extended and accented Latin 43Q and 361Q")

 
@@ -35,7 +38,7 @@
                      (PRINTOUT T T))
                (PRINTOUT T "  Loading postscript fonts" T)
                (for
 F in
 (FILDIR (CONCAT (CAR POSTSCRIPTFONTDIRECTORIES)
-                                        ">c0>*.*")) do
 (PSCFONT.READFONT F))
+                                        ">c0>*.PSCFONT")) do
 (PSCFONT.READFONT F))
                (PRINTOUT T "FULL fonts loaded" T])
 
 (LOADUP-FULL

@@ -86,5 +89,5 @@
 
 (FIXMETA
)
 (DECLARE%: DONTCOPY
-  (FILEMAP (NIL (467 4483 (LOADFULLFONTS 477 . 1918) (LOADUP-FULL 1920 . 4233) (FIXMETA 4235 . 4481)))))
+  (FILEMAP (NIL (493 4624 (LOADFULLFONTS 503 . 2059) (LOADUP-FULL 2061 . 4374) (FIXMETA 4376 . 4622)))))
 STOP