From 2a66f76606c881ae58289e0e5e14ec8aabc9331a Mon Sep 17 00:00:00 2001
From: rmkaplan <ron.kaplan@post.harvard.edu>
Date: Wed, 26 Mar 2025 00:04:20 -0700
Subject: [PATCH] Remove charset-shifting characternames from XCCS, leaving
 constants

---
 sources/XCCS      |  18 +++++++-----------
 sources/XCCS.LCOM | Bin 3069 -> 2991 bytes
 2 files changed, 7 insertions(+), 11 deletions(-)

diff --git a/sources/XCCS b/sources/XCCS
index fc9233d3..5c70c8d0 100644
--- a/sources/XCCS
+++ b/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
diff --git a/sources/XCCS.LCOM b/sources/XCCS.LCOM
index e7f455c8add96df47bc3a24fd5135c9d369b5da3..b8ed53e68c6ce88f28917aa20a4bbece1bd55c29 100644
GIT binary patch
delta 267
zcmew>zFvGngs`cuZ(@<Ik%5t^f|0S6iGh`=(Zp<R2_sDfB_k6gIRh&r3o9d|iR;9Z
z^72bEGV{_EGV>Ia+(LbP6p$6_>FFscq$HN4reHO|Oi7bV!_Cvj)j7!3F~rpcs0f=2
zs-+!_6bwzwOwAOmTwOdvbe$p<igL3Rteia@{oGxHbwm6WG{PK%f)%(ToSlQ6{e6Qq
z6|4e+T*Ey5LxXi)fJRT2XEfS;jxn55)Ys8D$Uj&iCMeX;+26(0MN?B#L1S`0xAJ6p
K4w=boxdQ+IN<``a

delta 326
zcmZvWF-yZh9L0%)U@|&H)ZtHDa!A7E8q<1{*UN=QlAPRKv`PmHbr8X!xViZO#Bkrk
z4*K;3Q*fxz^}Y9d@2&hF|6{tJMfH3c5lm7@5{fY$47;b(1B@Ub_@9>&dX{vb{@rZK
zxh|xtnHk?2p^Xx(hR0_Jingj?6N}?GfW`dfVX?Jt7$7$+%1ZFQ!ie0yIb;`-bd(WW
zI!6~pqru%ehk#xwab3z*M|qDzkeqM4%_t^xkae$zJK5;#+qv1hWL2q+hLBH~V%!MT
uuv%!CHBz+=m$`sOuRSe{o|J__2*R3iCHu@@B1db{wcwrDckkHVd-4~{M^tM7