From 10e07cff82ca556d6470adde6516dc70e85df112 Mon Sep 17 00:00:00 2001 From: rmkaplan Date: Fri, 17 Apr 2026 14:01:54 -0700 Subject: [PATCH] Fixing CHARACTERNAMES --- sources/FILESETS | 8 ++++---- sources/LLREAD | 39 ++++++++++++++++++++------------------- sources/LLREAD.LCOM | Bin 25263 -> 25295 bytes 3 files changed, 24 insertions(+), 23 deletions(-) diff --git a/sources/FILESETS b/sources/FILESETS index 23b3f4f1..73f5984f 100644 --- a/sources/FILESETS +++ b/sources/FILESETS @@ -1,12 +1,12 @@ (DEFINE-FILE-INFO :PACKAGE "INTERLISP" :READTABLE "INTERLISP" :BASE 10) -(FILECREATED "16-Apr-2026 09:01:52" {WMEDLEY}FILESETS.;34 6272 +(FILECREATED "17-Apr-2026 13:42:24" {WMEDLEY}FILESETS.;35 6272 :EDIT-BY rmk - :CHANGES-TO (VARS 1LISPSET) + :CHANGES-TO (VARS 0LISPSET) - :PREVIOUS-DATE " 9-Mar-2026 12:36:02" {WMEDLEY}FILESETS.;33) + :PREVIOUS-DATE "16-Apr-2026 09:01:52" {WMEDLEY}FILESETS.;34) (PRETTYCOMPRINT FILESETSCOMS) @@ -50,7 +50,7 @@ (RPAQQ 0LISPSET (PACKAGE-CONVERSION-TABLE LLFAULT LLSUBRS LLBFS LLNEW FILEIO LLARRAYELT EXTERNALFORMAT IOCHAR UNICODE-FORMATS IMAGEIO LLBASIC LLGC LLINTERP LLMVS - DEFSTRUCT-RUN-TIME SETF-RUNTIME CMLSEQBASICS LLARITH LLFLOAT LLBIGNUM LLREAD + DEFSTRUCT-RUN-TIME SETF-RUNTIME CMLSEQBASICS LLARITH LLFLOAT LLREAD LLBIGNUM MCCS LLCHAR LLSTK LLDATATYPE LLKEY LLTIMER)) (RPAQQ 1LISPSET diff --git a/sources/LLREAD b/sources/LLREAD index 543ea31a..8ad489a2 100644 --- a/sources/LLREAD +++ b/sources/LLREAD @@ -1,12 +1,12 @@ (DEFINE-FILE-INFO :PACKAGE "INTERLISP" :READTABLE "INTERLISP" :BASE 10) -(FILECREATED "17-Apr-2026 00:48:15" {WMEDLEY}LLREAD.;125 99837 +(FILECREATED "17-Apr-2026 13:52:16" {WMEDLEY}LLREAD.;126 99879 :EDIT-BY rmk :CHANGES-TO (VARS LLREADCOMS) - :PREVIOUS-DATE "20-Sep-2025 14:18:31" {WMEDLEY}LLREAD.;123) + :PREVIOUS-DATE "17-Apr-2026 00:48:15" {WMEDLEY}LLREAD.;125) (PRETTYCOMPRINT LLREADCOMS) @@ -41,7 +41,7 @@ Four Five Six Seven Eight Nine INFINITY EMQUAD ENQUAD THINSPACE HAIRSPACE FIGURESPACE LEFT-DOUBLEQUOTE RIGHT-DOUBLEQUOTE EMDASH Union Intersection And Or Contourintegral Integral Summation Product Radical - All Exists Member INFINITY) + All Exists Member INFINITY Notmember) (CHARACTERSETNAMES Meta Function Greek Cyrillic Hira Hiragana Kata Katakana Kanji))) (DECLARE%: DOEVAL@COMPILE DONTCOPY (CONSTANTS * READTYPES) @@ -1741,7 +1741,8 @@ (All "357,265") (Exists "357,264") (Member "357,112") - (INFINITY "41,147")) + (INFINITY "41,147") + (Notmember "357,113")) (ADDTOVAR CHARACTERSETNAMES (Meta 1) (Function 2) @@ -1855,19 +1856,19 @@ (ADDTOVAR LAMA CL:PARSE-INTEGER CL:READ-DELIMITED-LIST CL:READ-PRESERVING-WHITESPACE CL:READ) ) (DECLARE%: DONTCOPY - (FILEMAP (NIL (3963 12407 (LASTC 3973 . 4279) (PEEKC 4281 . 4669) (PEEKCCODE 4671 . 5082) (RATOM 5084 - . 6165) (READ 6167 . 6727) (READC 6729 . 7370) (READCCODE 7372 . 8131) (READP 8133 . 8685) ( -SETREADMACROFLG 8687 . 8986) (SKIPSEPRCODES 8988 . 10068) (SKIPSEPRS 10070 . 10456) (SKREAD 10458 . -12405)) (12453 21062 (CL:READ 12463 . 13012) (CL:READ-PRESERVING-WHITESPACE 13014 . 13736) ( -CL:READ-DELIMITED-LIST 13738 . 14653) (CL:PARSE-INTEGER 14655 . 21060)) (21155 33632 (RSTRING 21165 . -21897) (READ-EXTENDED-TOKEN 21899 . 25771) (\RSTRING2 25773 . 33630)) (33668 64401 (\TOP-LEVEL-READ -33678 . 35661) (\SUBREAD 35663 . 60817) (\SUBREADCONCAT 60819 . 61442) (\ORIG-READ.SYMBOL 61444 . -62512) (\ORIG-INVALID.SYMBOL 62514 . 63413) (\APPLYREADMACRO 63415 . 63831) (INREADMACROP 63833 . -64399)) (64560 64735 (READQUOTE 64570 . 64733)) (64760 76664 (READVBAR 64770 . 66101) (READHASHMACRO -66103 . 71913) (DEFMACRO-LAMBDA-LIST-KEYWORD-P 71915 . 72135) (DIGITBASEP 72137 . 72871) ( -READNUMBERINBASE 72873 . 74759) (ESTIMATE-DIMENSIONALITY 74761 . 75086) (SKIP.HASH.COMMENT 75088 . -76056) (CMLREAD.FEATURE.PARSER 76058 . 76662)) (76708 77974 (CHARACTER.READ 76718 . 77972)) (78007 -89925 (CHARCODE.DECODE 78017 . 83186) (CHARCODE.ENCODE 83188 . 87630) (CHARCODEP 87632 . 88161) ( -CHARSET.DECODE 88163 . 89111) (CHARSET.ENCODE 89113 . 89923)) (89926 94422 (HEXNUM? 89936 . 92279) ( -OCTALNUM? 92281 . 93094) (HEXSTRING 93096 . 94420))))) + (FILEMAP (NIL (3973 12417 (LASTC 3983 . 4289) (PEEKC 4291 . 4679) (PEEKCCODE 4681 . 5092) (RATOM 5094 + . 6175) (READ 6177 . 6737) (READC 6739 . 7380) (READCCODE 7382 . 8141) (READP 8143 . 8695) ( +SETREADMACROFLG 8697 . 8996) (SKIPSEPRCODES 8998 . 10078) (SKIPSEPRS 10080 . 10466) (SKREAD 10468 . +12415)) (12463 21072 (CL:READ 12473 . 13022) (CL:READ-PRESERVING-WHITESPACE 13024 . 13746) ( +CL:READ-DELIMITED-LIST 13748 . 14663) (CL:PARSE-INTEGER 14665 . 21070)) (21165 33642 (RSTRING 21175 . +21907) (READ-EXTENDED-TOKEN 21909 . 25781) (\RSTRING2 25783 . 33640)) (33678 64411 (\TOP-LEVEL-READ +33688 . 35671) (\SUBREAD 35673 . 60827) (\SUBREADCONCAT 60829 . 61452) (\ORIG-READ.SYMBOL 61454 . +62522) (\ORIG-INVALID.SYMBOL 62524 . 63423) (\APPLYREADMACRO 63425 . 63841) (INREADMACROP 63843 . +64409)) (64570 64745 (READQUOTE 64580 . 64743)) (64770 76674 (READVBAR 64780 . 66111) (READHASHMACRO +66113 . 71923) (DEFMACRO-LAMBDA-LIST-KEYWORD-P 71925 . 72145) (DIGITBASEP 72147 . 72881) ( +READNUMBERINBASE 72883 . 74769) (ESTIMATE-DIMENSIONALITY 74771 . 75096) (SKIP.HASH.COMMENT 75098 . +76066) (CMLREAD.FEATURE.PARSER 76068 . 76672)) (76718 77984 (CHARACTER.READ 76728 . 77982)) (78017 +89935 (CHARCODE.DECODE 78027 . 83196) (CHARCODE.ENCODE 83198 . 87640) (CHARCODEP 87642 . 88171) ( +CHARSET.DECODE 88173 . 89121) (CHARSET.ENCODE 89123 . 89933)) (89936 94432 (HEXNUM? 89946 . 92289) ( +OCTALNUM? 92291 . 93104) (HEXSTRING 93106 . 94430))))) STOP diff --git a/sources/LLREAD.LCOM b/sources/LLREAD.LCOM index 213340ccd22504bc4db9dc30a06e8f73fa5a7998..f8901519c5d052c1591dd6d4460fe08d1d46098c 100644 GIT binary patch delta 183 zcmZ2~l=1vg#tF$BhQ?N=MplMq6SMUg%_h$3gbPew$SB8dreJAlVQx7&fYElcIHU3A z1B?$MxD@>IOL9|llTwQ&FNiW^=Th*^Imka)VX{qhkT6$FP-fiY>lhjuZ*EA`X9NI0={DH_ delta 141 zcmV;80CNA&#R0Fy0gz(|FfckaI65&kk!vmiHIbT$lbHc01|T^(I5RhsPysy@GB7Pu zWpFJrFfuhDF*G_cI65;ilc50~0W-6}0pM7Zs#-AzAV_I)VIT^V;#yn?O+iCaPg5WY vlSW%o6I@bdW@&6}LUm?lWpYMtDIh2cldD@qlki&`0SdDVT!96%qG2ro`|d0$