LLREAD: CHARACTERNAMES saved with ALISTS instead of VARS commands

Also CHARACTERSETNAMES. So that initial values don't smash or pick up the values that might otherwise be active in a development environment.
2026-01-12 00:42:56 +00:00 · 2023-06-17 20:14:00 -07:00 · 2023-06-17 20:14:00 -07:00 · 28c673f296
commit 28c673f296
parent e067e02dde
2 changed files with 53 additions and 50 deletions
--- a/sources/LLREAD
+++ b/sources/LLREAD
@ -1,12 +1,12 @@
 (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)

-(FILECREATED "19-Jul-2022 23:36:54" 
-{DSK}<users>kaplan>local>medley3.5>working-medley>sources>LLREAD.;102 89980  
+(FILECREATED "17-Jun-2023 13:12:06" {WMEDLEY}<sources>LLREAD.;104 90176  

-      :CHANGES-TO (FNS PEEKCCODE SKIPSEPRCODES \SUBREAD)
+      :EDIT-BY rmk

-      :PREVIOUS-DATE "10-Sep-2021 19:41:58" 
-{DSK}<users>kaplan>local>medley3.5>working-medley>sources>LLREAD.;101)
+      :CHANGES-TO (VARS LLREADCOMS CHARACTERNAMES)
+
+      :PREVIOUS-DATE "19-Jul-2022 23:36:54" {WMEDLEY}<sources>LLREAD.;102)


 (* ; "
@ -37,7 +37,10 @@ Copyright (c) 1981-1988, 1990-1991, 1993, 2021 by Venue & Xerox Corporation.
        (COMS                                                (* ; "Reading characters with #\")
              (FNS CHARACTER.READ CHARCODE.DECODE)
              (FNS HEXNUM? OCTALNUM?)
-              (VARS CHARACTERNAMES CHARACTERSETNAMES))
+              (ALISTS (CHARACTERNAMES Page Form FF Rubout Del Null Escape Esc Bell Tab Backspace Bs 
+                             Newline CR EOL Return Tenexeol Space Sp Linefeed LF)
+                     (CHARACTERSETNAMES Meta Function Greek Cyrillic Hira Hiragana Kata Katakana 
+                            Kanji)))
        (DECLARE%: DOEVAL@COMPILE DONTCOPY (CONSTANTS * READTYPES)
               (MACROS .CALL.SUBREAD. FIXDOT RBCONTEXT PROPRB \RDCONC)
               (SPECVARS *READ-NEWLINE-SUPPRESS* \RefillBufferFn)
@ -1523,38 +1526,38 @@ Copyright (c) 1981-1988, 1990-1991, 1993, 2021 by Venue & Xerox Corporation.
                ELSE (RETURN NIL)) FINALLY (RETURN NUM])
 )

-(RPAQQ CHARACTERNAMES
-       (("Page" 12)
-        ("Form" 12)
-        ("FF" 12)
-        ("Rubout" 127)
-        ("Del" 127)
-        ("Null" 0)
-        ("Escape" 27)
-        ("Esc" 27)
-        ("Bell" 7)
-        ("Tab" 9)
-        ("Backspace" 8)
-        ("Bs" 8)
-        ("Newline" 13)
-        ("CR" 13)
-        ("EOL" 13)
-        ("Return" 13)
-        ("Tenexeol" 31)
-        ("Space" 32)
-        ("Sp" 32)
-        ("Linefeed" 10)
-        ("LF" 10)))
+(ADDTOVAR CHARACTERNAMES
+          (Page 12)
+          (Form 12)
+          (FF 12)
+          (Rubout 127)
+          (Del 127)
+          (Null 0)
+          (Escape 27)
+          (Esc 27)
+          (Bell 7)
+          (Tab 9)
+          (Backspace 8)
+          (Bs 8)
+          (Newline 13)
+          (CR 13)
+          (EOL 13)
+          (Return 13)
+          (Tenexeol 31)
+          (Space 32)
+          (Sp 32)
+          (Linefeed 10)
+          (LF 10))

-(RPAQQ CHARACTERSETNAMES (("Meta" 1)
-                          ("Function" 2)
-                          ("Greek" 38)
-                          ("Cyrillic" 39)
-                          ("Hira" 36)
-                          ("Hiragana" 36)
-                          ("Kata" 37)
-                          ("Katakana" 37)
-                          ("Kanji" 48)))
+(ADDTOVAR CHARACTERSETNAMES (Meta 1)
+                            (Function 2)
+                            (Greek 38)
+                            (Cyrillic 39)
+                            (Hira 36)
+                            (Hiragana 36)
+                            (Kata 37)
+                            (Katakana 37)
+                            (Kanji 48))
 (DECLARE%: DOEVAL@COMPILE DONTCOPY 

 (RPAQQ READTYPES (READ.RT RATOM.RT NOPROPRB.RT PROPRB.RT))
@ -1660,17 +1663,17 @@ Copyright (c) 1981-1988, 1990-1991, 1993, 2021 by Venue & Xerox Corporation.
 (PUTPROPS LLREAD COPYRIGHT ("Venue & Xerox Corporation" 1981 1982 1983 1984 1985 1986 1987 1988 1990 
 1991 1993 2021))
 (DECLARE%: DONTCOPY
-  (FILEMAP (NIL (3265 11709 (LASTC 3275 . 3581) (PEEKC 3583 . 3971) (PEEKCCODE 3973 . 4384) (RATOM 4386
- . 5467) (READ 5469 . 6029) (READC 6031 . 6672) (READCCODE 6674 . 7433) (READP 7435 . 7987) (
-SETREADMACROFLG 7989 . 8288) (SKIPSEPRCODES 8290 . 9370) (SKIPSEPRS 9372 . 9758) (SKREAD 9760 . 11707)
-) (11755 20364 (CL:READ 11765 . 12314) (CL:READ-PRESERVING-WHITESPACE 12316 . 13038) (
-CL:READ-DELIMITED-LIST 13040 . 13955) (CL:PARSE-INTEGER 13957 . 20362)) (20457 32934 (RSTRING 20467 . 
-21199) (READ-EXTENDED-TOKEN 21201 . 25073) (\RSTRING2 25075 . 32932)) (32970 63584 (\TOP-LEVEL-READ 
-32980 . 34963) (\SUBREAD 34965 . 60000) (\SUBREADCONCAT 60002 . 60625) (\ORIG-READ.SYMBOL 60627 . 
-61695) (\ORIG-INVALID.SYMBOL 61697 . 62596) (\APPLYREADMACRO 62598 . 63014) (INREADMACROP 63016 . 
-63582)) (63743 63918 (READQUOTE 63753 . 63916)) (63943 75847 (READVBAR 63953 . 65284) (READHASHMACRO 
-65286 . 71096) (DEFMACRO-LAMBDA-LIST-KEYWORD-P 71098 . 71318) (DIGITBASEP 71320 . 72054) (
-READNUMBERINBASE 72056 . 73942) (ESTIMATE-DIMENSIONALITY 73944 . 74269) (SKIP.HASH.COMMENT 74271 . 
-75239) (CMLREAD.FEATURE.PARSER 75241 . 75845)) (75891 82235 (CHARACTER.READ 75901 . 77155) (
-CHARCODE.DECODE 77157 . 82233)) (82236 85406 (HEXNUM? 82246 . 84589) (OCTALNUM? 84591 . 85404)))))
+  (FILEMAP (NIL (3460 11904 (LASTC 3470 . 3776) (PEEKC 3778 . 4166) (PEEKCCODE 4168 . 4579) (RATOM 4581
+ . 5662) (READ 5664 . 6224) (READC 6226 . 6867) (READCCODE 6869 . 7628) (READP 7630 . 8182) (
+SETREADMACROFLG 8184 . 8483) (SKIPSEPRCODES 8485 . 9565) (SKIPSEPRS 9567 . 9953) (SKREAD 9955 . 11902)
+) (11950 20559 (CL:READ 11960 . 12509) (CL:READ-PRESERVING-WHITESPACE 12511 . 13233) (
+CL:READ-DELIMITED-LIST 13235 . 14150) (CL:PARSE-INTEGER 14152 . 20557)) (20652 33129 (RSTRING 20662 . 
+21394) (READ-EXTENDED-TOKEN 21396 . 25268) (\RSTRING2 25270 . 33127)) (33165 63779 (\TOP-LEVEL-READ 
+33175 . 35158) (\SUBREAD 35160 . 60195) (\SUBREADCONCAT 60197 . 60820) (\ORIG-READ.SYMBOL 60822 . 
+61890) (\ORIG-INVALID.SYMBOL 61892 . 62791) (\APPLYREADMACRO 62793 . 63209) (INREADMACROP 63211 . 
+63777)) (63938 64113 (READQUOTE 63948 . 64111)) (64138 76042 (READVBAR 64148 . 65479) (READHASHMACRO 
+65481 . 71291) (DEFMACRO-LAMBDA-LIST-KEYWORD-P 71293 . 71513) (DIGITBASEP 71515 . 72249) (
+READNUMBERINBASE 72251 . 74137) (ESTIMATE-DIMENSIONALITY 74139 . 74464) (SKIP.HASH.COMMENT 74466 . 
+75434) (CMLREAD.FEATURE.PARSER 75436 . 76040)) (76086 82430 (CHARACTER.READ 76096 . 77350) (
+CHARCODE.DECODE 77352 . 82428)) (82431 85601 (HEXNUM? 82441 . 84784) (OCTALNUM? 84786 . 85599)))))
 STOP
--- a/sources/LLREAD.LCOM
+++ b/sources/LLREAD.LCOM