diff --git a/internal/loadups/LOADUP-FULL b/internal/loadups/LOADUP-FULL index 55171e07d..155ab7077 100644 --- a/internal/loadups/LOADUP-FULL +++ b/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}frank>il>medley>gmedley>sources>LOADUP-FULL.;4 4521 +(FILECREATED "23-Apr-2025 05:14:27" {DSK}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}frank>il>medley>gmedley>sources>LOADUP-FULL.;3 + :CHANGES-TO (FNS LOADFULLFONTS) + + :PREVIOUS-DATE "31-Jul-2023 18:28:53" {DSK}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 diff --git a/internal/loadups/LOADUP-FULL.LCOM b/internal/loadups/LOADUP-FULL.LCOM index 518982003..1332ec1f6 100644 Binary files a/internal/loadups/LOADUP-FULL.LCOM and b/internal/loadups/LOADUP-FULL.LCOM differ