LLREAD - removed duplication, added CHARSET.ENCODE. Encode charsets in LOADFULLFONTS

internal/loadups/LOADUP-FULL

@@ -1,12 +1,12 @@
 (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
 
-
(FILECREATED " 2-Sep-2025 20:07:20" {WMEDLEY}<internal>loadups>LOADUP-FULL.;33
 5541   
+
(FILECREATED "20-Sep-2025 14:18:19" {WMEDLEY}<internal>loadups>LOADUP-FULL.;34
 5662   
 
       :EDIT-BY rmk
 
       :CHANGES-TO (FNS LOADFULLFONTS)
 
-      :PREVIOUS-DATE " 1-Sep-2025 11:59:41" {WMEDLEY}<internal>loadups>LOADUP-FULL.;31)
+      :PREVIOUS-DATE " 2-Sep-2025 20:07:20" {WMEDLEY}<internal>loadups>LOADUP-FULL.;33)
 
 
 (PRETTYCOMPRINT LOADUP-FULLCOMS)
@@ -16,7 +16,8 @@
 (DEFINEQ
 
 (LOADFULLFONTS

-  [LAMBDA NIL
                                                (* ; "Edited  2-Sep-2025 20:06 by rmk")


+  [LAMBDA NIL
                                                (* ; "Edited 20-Sep-2025 14:17 by rmk")


+                                                             (* ; "Edited  2-Sep-2025 20:06 by rmk")


                                                              (* ; "Edited 13-Jul-2025 11:40 by rmk")


                                                              (* ; "Edited 30-Jun-2025 00:04 by rmk")


                                                              (* ; "Edited 20-Jun-2025 11:16 by rmk")


@@ -37,7 +38,7 @@
              do
 (PRINTOUT T SIZE " ")
                 (for
 FACE in
 '(MRR BRR MIR)
                    do
 (FONTCREATE FAMILY SIZE FACE 0 'DISPLAY NIL 0)
-                      (for
 CSET in
 '(33 34 35 238 239 241)
+                      (for
 CSET in
 '("41" "42" "43" "356" "357" "361")
                          do
 (NLSETQ (FONTCREATE FAMILY SIZE FACE 0 'DISPLAY NIL CSET]
           (PRINTOUT T T))
     (PRINTOUT T "  Loading postscript fonts" T)
@@ -99,5 +100,5 @@
 
 (FIXMETA
)
 (DECLARE%: DONTCOPY
-  (FILEMAP (NIL (458 5503 (LOADFULLFONTS 468 . 2482) (LOADUP-FULL 2484 . 5253) (FIXMETA 5255 . 5501)))))
+  (FILEMAP (NIL (458 5624 (LOADFULLFONTS 468 . 2603) (LOADUP-FULL 2605 . 5374) (FIXMETA 5376 . 5622)))))
 STOP