LLCHAR: Add \MAXCHARSET=65535, \MAXCHAR etc.

sources/LLCHAR

@@ -1,14 +1,12 @@
-(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
+(DEFINE-FILE-INFO :PACKAGE "INTERLISP" :READTABLE "INTERLISP" :BASE 10)
 
-
(FILECREATED "24-Aug-2025 11:50:57" 
-{DSK}<Users>kaplan>Local>medley3.5>working-medley>sources>LLCHAR.;14
 104478 
+
(FILECREATED "28-Mar-2026 08:50:21" {WMEDLEY}<sources>LLCHAR.;16
 104725 
 
       :EDIT-BY rmk
 
       :CHANGES-TO (VARS LLCHARCOMS)
 
-      :PREVIOUS-DATE "28-Apr-2022 08:52:36" 
-{DSK}<Users>kaplan>Local>medley3.5>working-medley>sources>LLCHAR.;13)
+      :PREVIOUS-DATE "24-Aug-2025 11:50:57" {WMEDLEY}<sources>LLCHAR.;14)
 
 
 (PRETTYCOMPRINT LLCHARCOMS)
@@ -45,7 +43,9 @@
                                    (CONSTANTS (\CHARMASK 255)
                                           (\MAXTHINCHAR 255)
                                           (\MAXFATCHAR 65535)
-                                          (\MAXCHARSET 255)
+                                          (\MAXCHARSET 65535)
+                                          (\MAXCHAR (LOGOR (LLSH \MAXCHARSET 8)
+                                                           \MAXTHINCHAR))
                                           (%#STRINGPWORDS 4))
                                    (MACROS \NATOMCHARS \NSTRINGCHARS)))
         (INITRESOURCES \NUMSTR \NUMSTR1 \PNAMESTRING)
@@ -1730,7 +1730,10 @@
 
 (RPAQQ \MAXFATCHAR
 65535)
 
-(RPAQQ \MAXCHARSET
 255)
+(RPAQQ \MAXCHARSET
 65535)
+
+(RPAQ \MAXCHAR
 (LOGOR (LLSH \MAXCHARSET 8)
+                      \MAXTHINCHAR))
 
 (RPAQQ %#STRINGPWORDS
 4)
 
@@ -1738,7 +1741,9 @@
 (CONSTANTS (\CHARMASK 255)
        (\MAXTHINCHAR 255)
        (\MAXFATCHAR 65535)
-       (\MAXCHARSET 255)
+       (\MAXCHARSET 65535)
+       (\MAXCHAR (LOGOR (LLSH \MAXCHARSET 8)
+                        \MAXTHINCHAR))
        (%#STRINGPWORDS 4))
 )
 (DECLARE%: EVAL@COMPILE 
@@ -1844,16 +1849,16 @@
 
 (PUTPROPS LLCHAR
 FILETYPE
 :FAKE-COMPILE-FILE)
 (DECLARE%: DONTCOPY
-  (FILEMAP (NIL (4108 74294 (ALLOCSTRING 4118 . 6141) (MKATOM 6143 . 6778) (SUBATOM 6780 . 8650) (
-CHARACTER 8652 . 9656) (\PARSE.NUMBER 9658 . 25378) (\INVALID.DOTTED.SYMBOL 25380 . 25875) (
-\INVALID.INTEGER 25877 . 27329) (\MKINTEGER 27331 . 30038) (MKSTRING 30040 . 32183) (
-\PRINDATUM.TO.STRING 32185 . 38363) (BKSYSBUF 38365 . 39899) (NCHARS 39901 . 41601) (NTHCHARCODE 41603
- . 43649) (RPLCHARCODE 43651 . 44712) (\RPLCHARCODE 44714 . 46249) (NTHCHAR 46251 . 46444) (RPLSTRING 
-46446 . 49657) (SUBSTRING 49659 . 52582) (GNC 52584 . 52757) (GNCCODE 52759 . 53527) (GLC 53529 . 
-53702) (GLCCODE 53704 . 54469) (STREQUAL 54471 . 56585) (STRING.EQUAL 56587 . 60925) (STRINGP 60927 . 
-61078) (CHCON1 61080 . 61867) (U-CASE 61869 . 65096) (L-CASE 65098 . 68958) (U-CASEP 68960 . 69534) (
-\SMASHABLESTRING 69536 . 69998) (\MAKEWRITABLESTRING 70000 . 70436) (\SMASHSTRING 70438 . 74144) (
-\FATTENSTRING 74146 . 74292)) (74479 79641 (\GETBASESTRING 74489 . 75143) (\PUTBASESTRING 75145 . 
-77884) (\PUTBASESTRINGFAT 77886 . 78632) (GetBcplString 78634 . 79299) (SetBcplString 79301 . 79639)) 
-(100978 103792 (%%COPY-ONED-ARRAY 100988 . 102838) (%%COPY-STRING-TO-ARRAY 102840 . 103790)))))
+  (FILEMAP (NIL (4182 74368 (ALLOCSTRING 4192 . 6215) (MKATOM 6217 . 6852) (SUBATOM 6854 . 8724) (
+CHARACTER 8726 . 9730) (\PARSE.NUMBER 9732 . 25452) (\INVALID.DOTTED.SYMBOL 25454 . 25949) (
+\INVALID.INTEGER 25951 . 27403) (\MKINTEGER 27405 . 30112) (MKSTRING 30114 . 32257) (
+\PRINDATUM.TO.STRING 32259 . 38437) (BKSYSBUF 38439 . 39973) (NCHARS 39975 . 41675) (NTHCHARCODE 41677
+ . 43723) (RPLCHARCODE 43725 . 44786) (\RPLCHARCODE 44788 . 46323) (NTHCHAR 46325 . 46518) (RPLSTRING 
+46520 . 49731) (SUBSTRING 49733 . 52656) (GNC 52658 . 52831) (GNCCODE 52833 . 53601) (GLC 53603 . 
+53776) (GLCCODE 53778 . 54543) (STREQUAL 54545 . 56659) (STRING.EQUAL 56661 . 60999) (STRINGP 61001 . 
+61152) (CHCON1 61154 . 61941) (U-CASE 61943 . 65170) (L-CASE 65172 . 69032) (U-CASEP 69034 . 69608) (
+\SMASHABLESTRING 69610 . 70072) (\MAKEWRITABLESTRING 70074 . 70510) (\SMASHSTRING 70512 . 74218) (
+\FATTENSTRING 74220 . 74366)) (74553 79715 (\GETBASESTRING 74563 . 75217) (\PUTBASESTRING 75219 . 
+77958) (\PUTBASESTRINGFAT 77960 . 78706) (GetBcplString 78708 . 79373) (SetBcplString 79375 . 79713)) 
+(101225 104039 (%%COPY-ONED-ARRAY 101235 . 103085) (%%COPY-STRING-TO-ARRAY 103087 . 104037)))))
 STOP