Remove charset-shifting characternames from XCCS, leaving constants (#2082)

The character names were a mistake

Author: rmkaplan

sources/XCCS

@@ -1,12 +1,12 @@
 (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
 
-
(FILECREATED "26-Mar-2024 11:00:37" {WMEDLEY}<sources>XCCS.;70
 14862  
+
(FILECREATED "25-Mar-2025 23:40:52" {WMEDLEY}<sources>XCCS.;72
 14656  
 
       :EDIT-BY rmk
 
-      :CHANGES-TO (FNS \XCCSFORMATBYTESTREAM)
+      :CHANGES-TO (VARS XCCSCOMS)
 
-      :PREVIOUS-DATE "19-Mar-2024 16:02:36" {WMEDLEY}<sources>XCCS.;68)
+      :PREVIOUS-DATE "26-Mar-2024 11:00:37" {WMEDLEY}<sources>XCCS.;70)
 
 
 (PRETTYCOMPRINT XCCSCOMS)
@@ -19,7 +19,6 @@
         (INITVARS (*SIGNAL-24BIT-NSENCODING-ERROR*))
         (DECLARE%: EVAL@COMPILE DONTCOPY (EXPORT (CONSTANTS (\NORUNCODE 255)
                                                         (NSCHARSETSHIFT 255))
-                                                (ALISTS (CHARACTERNAMES \NORUNCODE NSCHARSETSHIFT))
                                                 (MACROS \RUNCODED)))
         (DECLARE%: DONTEVAL@LOAD DOCOPY (P (\CREATE.XCCS.EXTERNALFORMAT])
 (DEFINEQ
@@ -276,9 +275,6 @@
 (CONSTANTS (\NORUNCODE 255)
        (NSCHARSETSHIFT 255))
 )
-
-(ADDTOVAR CHARACTERNAMES
 (\NORUNCODE 255)
-                         (NSCHARSETSHIFT 255))
 (DECLARE%: EVAL@COMPILE 
 
 (PUTPROPS \RUNCODED
 MACRO
 (OPENLAMBDA (STREAM)
@@ -298,8 +294,8 @@
 (\CREATE.XCCS.EXTERNALFORMAT
)
 )
 (DECLARE%: DONTCOPY
-  (FILEMAP (NIL (993 12249 (\XCCSINCCODE 1003 . 3982) (\XCCSPEEKCCODE 3984 . 6653) (\XCCSOUTCHAR 6655 . 
-8875) (\XCCSBACKCCODE 8877 . 10421) (\XCCSFORMATBYTESTREAM 10423 . 11044) (\XCCSCHARSETFN 11046 . 
-12247)) (12250 13023 (\CREATE.XCCS.EXTERNALFORMAT 12260 . 13021)) (13024 13855 (
-\NSIN.24BITENCODING.ERROR 13034 . 13853)))))
+  (FILEMAP (NIL (881 12137 (\XCCSINCCODE 891 . 3870) (\XCCSPEEKCCODE 3872 . 6541) (\XCCSOUTCHAR 6543 . 
+8763) (\XCCSBACKCCODE 8765 . 10309) (\XCCSFORMATBYTESTREAM 10311 . 10932) (\XCCSCHARSETFN 10934 . 
+12135)) (12138 12911 (\CREATE.XCCS.EXTERNALFORMAT 12148 . 12909)) (12912 13743 (
+\NSIN.24BITENCODING.ERROR 12922 . 13741)))))
 STOP