From 419a71cf359248f14b9ebc5aded6c09454db3cc2 Mon Sep 17 00:00:00 2001 From: rmkaplan Date: Wed, 22 Dec 2021 10:50:24 -0800 Subject: [PATCH] ATBL: Default reader environment uses *DEFAULT-EXTERNALFORMAT* instead of :XCCS constant --- sources/ATBL | 299 +++++++++++++++++++++++----------------------- sources/ATBL.LCOM | Bin 35276 -> 35256 bytes 2 files changed, 150 insertions(+), 149 deletions(-) diff --git a/sources/ATBL b/sources/ATBL index c07ba4f1..123c79e6 100644 --- a/sources/ATBL +++ b/sources/ATBL @@ -1,11 +1,11 @@ (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) -(FILECREATED "24-Oct-2021 21:53:59" {DSK}kaplan>Local>medley3.5>git-medley>sources>ATBL.;28 92451 +(FILECREATED "19-Dec-2021 14:09:43" {DSK}kaplan>Local>medley3.5>my-medley>sources>ATBL.;31 91882 - changes to%: (FNS MAKE-READER-ENVIRONMENT) + :CHANGES-TO (FNS EQUAL-READER-ENVIRONMENT) - previous date%: "24-Oct-2021 20:14:01" -{DSK}kaplan>Local>medley3.5>git-medley>sources>ATBL.;27) + :PREVIOUS-DATE "24-Oct-2021 21:53:59" +{DSK}kaplan>Local>medley3.5>my-medley>sources>ATBL.;29) (* ; " @@ -16,7 +16,7 @@ Copyright (c) 1982-1987, 1990, 1993, 2018, 2021 by Venue & Xerox Corporation. (RPAQQ ATBLCOMS [(COMS (* ; - "Common features of read and terminal tables") + "Common features of read and terminal tables") (DECLARE%: DONTCOPY (EXPORT (MACROS \SYNCODE \SETSYNCODE) (RECORDS CHARTABLE)) (CONSTANTS \NSCHARHASHKEYS \NSCHARHASHOVERFLOW) @@ -39,9 +39,9 @@ Copyright (c) 1982-1987, 1990, 1993, 2018, 2021 by Venue & Xerox Corporation. \SETMACROSYNTAX \SETREADSYNTAX \READTABLEP.DEFPRINT) (PROP ARGNAMES READTABLEPROP) (DECLARE%: EVAL@COMPILE DONTCOPY (* ; - "READCLASSTOKENS Generates READCLASSES and some interesting SELECTQ's") + "READCLASSTOKENS Generates READCLASSES and some interesting SELECTQ's") (* ; - "OTHER must be zero because of initialization.") + "OTHER must be zero because of initialization.") [VARS READCLASSTOKENS (READCLASSES (MAPCAR READCLASSTOKENS (FUNCTION (LAMBDA (PAIR) @@ -50,7 +50,7 @@ Copyright (c) 1982-1987, 1990, 1993, 2018, 2021 by Venue & Xerox Corporation. (CADR PAIR] (MACROS \COMPUTED.FORM) (* ; - "This macro ought to be official somehow") + "This macro ought to be official somehow") (RECORDS CONTEXTS ESCAPES WAKEUPS) (EXPORT (MACROS \GETREADMACRODEF \GTREADTABLE \GTREADTABLE1) (CONSTANTS MACROBIT BREAKBIT STOPATOMBIT ESCAPEBIT INNERESCAPEBIT) @@ -66,7 +66,7 @@ Copyright (c) 1982-1987, 1990, 1993, 2018, 2021 by Venue & Xerox Corporation. (FNS \ATBLSET) (INITRECORDS READER-ENVIRONMENT) (* ; - "Definition is on CMLREAD, need it here to initialize *OLD-INTERLISP-READ-ENVIRONMENT*") + "Definition is on CMLREAD, need it here to initialize *OLD-INTERLISP-READ-ENVIRONMENT*") (FNS MAKE-READER-ENVIRONMENT EQUAL-READER-ENVIRONMENT SET-READER-ENVIRONMENT) (INITVARS (*LISP-PACKAGE*) (*INTERLISP-PACKAGE*) @@ -85,30 +85,27 @@ Copyright (c) 1982-1987, 1990, 1993, 2018, 2021 by Venue & Xerox Corporation. (* "FOLLOWING DEFINITIONS EXPORTED")(DECLARE%: EVAL@COMPILE (PUTPROPS \SYNCODE DMACRO [OPENLAMBDA (TABLE CHAR) - (CHECK (type? CHARTABLE TABLE)) - (* ; - "0 is either NONE.TC, REAL.CCE, or OTHER.RC") - (COND - ((IGREATERP CHAR \MAXTHINCHAR) - (OR (AND (fetch (CHARTABLE NSCHARHASH) of TABLE) - (GETHASH CHAR (fetch (CHARTABLE NSCHARHASH) - of TABLE))) - 0)) - (T (\GETBASEBYTE TABLE CHAR]) + (CHECK (type? CHARTABLE TABLE)) (* ; + "0 is either NONE.TC, REAL.CCE, or OTHER.RC") + (COND + ((IGREATERP CHAR \MAXTHINCHAR) + (OR (AND (fetch (CHARTABLE NSCHARHASH) of TABLE) + (GETHASH CHAR (fetch (CHARTABLE NSCHARHASH) of TABLE))) + 0)) + (T (\GETBASEBYTE TABLE CHAR]) (PUTPROPS \SETSYNCODE DMACRO [LAMBDA (TABLE CHAR CODE) - (CHECK (type? CHARTABLE TABLE)) - (* ; - "0 is REAL.CCE, NONE.TC, OTHER.RC") - (COND - ((ILEQ CHAR \MAXTHINCHAR) - (\PUTBASEBYTE TABLE CHAR CODE)) - (T (\SETFATSYNCODE TABLE CHAR CODE]) + (CHECK (type? CHARTABLE TABLE)) + (* ; "0 is REAL.CCE, NONE.TC, OTHER.RC") + (COND + ((ILEQ CHAR \MAXTHINCHAR) + (\PUTBASEBYTE TABLE CHAR CODE)) + (T (\SETFATSYNCODE TABLE CHAR CODE]) ) (DECLARE%: EVAL@COMPILE (DATATYPE CHARTABLE ((CHARSET0 256 BYTE) - (NSCHARHASH FULLPOINTER))) + (NSCHARHASH FULLPOINTER))) ) (/DECLAREDATATYPE 'CHARTABLE @@ -402,11 +399,11 @@ Copyright (c) 1982-1987, 1990, 1993, 2018, 2021 by Venue & Xerox Corporation. (DECLARE%: EVAL@COMPILE -(PUTPROPS \CREATENSCHARHASH MACRO (ARGS (* ; - "added size argument for creation of \ORIGTERMTABLE during initialization.") - (LIST 'HASHARRAY (OR (CAR ARGS) - '\NSCHARHASHKEYS) - '\NSCHARHASHOVERFLOW))) +(PUTPROPS \CREATENSCHARHASH MACRO (ARGS (* ; + "added size argument for creation of \ORIGTERMTABLE during initialization.") + (LIST 'HASHARRAY (OR (CAR ARGS) + '\NSCHARHASHKEYS) + '\NSCHARHASHOVERFLOW))) ) ) (DEFINEQ @@ -924,8 +921,8 @@ Copyright (c) 1982-1987, 1990, 1993, 2018, 2021 by Venue & Xerox Corporation. (CONSTANTS REAL.CCE IGNORE.CCE SIMULATE.CCE INDICATE.CCE) ) -(RPAQQ TERMCLASSES (NONE.TC EOL.TC CHARDELETE.TC WORDDELETE.TC WORDSEPR.TC LINEDELETE.TC - RETYPE.TC CTRLV.TC)) +(RPAQQ TERMCLASSES (NONE.TC EOL.TC CHARDELETE.TC WORDDELETE.TC WORDSEPR.TC LINEDELETE.TC RETYPE.TC + CTRLV.TC)) (DECLARE%: EVAL@COMPILE (RPAQQ NONE.TC 0) @@ -950,14 +947,14 @@ Copyright (c) 1982-1987, 1990, 1993, 2018, 2021 by Venue & Xerox Corporation. (DECLARE%: EVAL@COMPILE (ACCESSFNS TERMCODE ((CCECHO (LOGAND DATUM 24)) - (TERMCLASS (LOGAND DATUM 7))) (* ; - "We assume that values are appropriately shifted") - (CREATE (LOGOR CCECHO TERMCLASS))) + (TERMCLASS (LOGAND DATUM 7))) (* ; + "We assume that values are appropriately shifted") + (CREATE (LOGOR CCECHO TERMCLASS))) -(DATATYPE TERMTABLEP (TERMSA RAISEFLG DELCHARECHO LINEDELETE 1STCHDEL NTHCHDEL POSTCHDEL - EMPTYCHDEL (CONTROLFLG FLAG) - (ECHOFLG FLAG)) - TERMSA _ (create CHARTABLE)) +(DATATYPE TERMTABLEP (TERMSA RAISEFLG DELCHARECHO LINEDELETE 1STCHDEL NTHCHDEL POSTCHDEL EMPTYCHDEL + (CONTROLFLG FLAG) + (ECHOFLG FLAG)) + TERMSA _ (create CHARTABLE)) ) (/DECLAREDATATYPE 'TERMTABLEP '(POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER FLAG @@ -1440,9 +1437,9 @@ Copyright (c) 1982-1987, 1990, 1993, 2018, 2021 by Venue & Xerox Corporation. (PACKAGEDELIM (LOGOR ESCAPEBIT INNERESCAPEBIT 1)))) (RPAQ READCLASSES [MAPCAR READCLASSTOKENS (FUNCTION (LAMBDA (PAIR) - (LIST (PACK* (CAR PAIR) - ".RC") - (CADR PAIR]) + (LIST (PACK* (CAR PAIR) + ".RC") + (CADR PAIR]) (DECLARE%: EVAL@COMPILE @@ -1452,60 +1449,60 @@ Copyright (c) 1982-1987, 1990, 1993, 2018, 2021 by Venue & Xerox Corporation. (DECLARE%: EVAL@COMPILE (ACCESSFNS CONTEXTS ((KEY (SELECTC DATUM - (ALWAYS.RMC 'ALWAYS) - (FIRST.RMC 'FIRST) - (ALONE.RMC 'ALONE) - NIL)) - (VAL (SELECTQ DATUM - (ALWAYS ALWAYS.RMC) - (FIRST FIRST.RMC) - (ALONE ALONE.RMC) - NIL)))) + (ALWAYS.RMC 'ALWAYS) + (FIRST.RMC 'FIRST) + (ALONE.RMC 'ALONE) + NIL)) + (VAL (SELECTQ DATUM + (ALWAYS ALWAYS.RMC) + (FIRST FIRST.RMC) + (ALONE ALONE.RMC) + NIL)))) (ACCESSFNS ESCAPES ((KEY (SELECTC DATUM - (ESC.RME 'ESCQUOTE) - (NOESC.RME 'NOESCQUOTE) - NIL)) - (VAL (SELECTQ DATUM - ((ESCQUOTE ESC) - ESC.RME) - ((NOESCQUOTE NOESC) - NOESC.RME) - NIL)))) + (ESC.RME 'ESCQUOTE) + (NOESC.RME 'NOESCQUOTE) + NIL)) + (VAL (SELECTQ DATUM + ((ESCQUOTE ESC) + ESC.RME) + ((NOESCQUOTE NOESC) + NOESC.RME) + NIL)))) (ACCESSFNS WAKEUPS ((KEY (SELECTC DATUM - (IMMEDIATE.RMW 'IMMEDIATE) - (NONIMMEDIATE.RMW - 'NONIMMEDIATE) - NIL)) - (VAL (SELECTQ DATUM - ((IMMEDIATE IMMED WAKEUP) - IMMEDIATE.RMW) - ((NONIMMEDIATE NONIMMED NOWAKEUP) - NONIMMEDIATE.RMW) - NIL)))) + (IMMEDIATE.RMW 'IMMEDIATE) + (NONIMMEDIATE.RMW + 'NONIMMEDIATE) + NIL)) + (VAL (SELECTQ DATUM + ((IMMEDIATE IMMED WAKEUP) + IMMEDIATE.RMW) + ((NONIMMEDIATE NONIMMED NOWAKEUP) + NONIMMEDIATE.RMW) + NIL)))) ) (* "FOLLOWING DEFINITIONS EXPORTED")(DECLARE%: EVAL@COMPILE (PUTPROPS \GETREADMACRODEF MACRO ((C TBL) - (GETHASH C (fetch READMACRODEFS of TBL)))) + (GETHASH C (fetch READMACRODEFS of TBL)))) (PUTPROPS \GTREADTABLE MACRO [ARGS (COND - [(LITATOM (CAR ARGS)) - (SUBPAIR '(X . FLG) - ARGS - '(SELECTQ X - ((NIL T) - (\DTEST *READTABLE* 'READTABLEP)) - (\GTREADTABLE1 X . FLG] - (T 'IGNOREMACRO]) + [(LITATOM (CAR ARGS)) + (SUBPAIR '(X . FLG) + ARGS + '(SELECTQ X + ((NIL T) + (\DTEST *READTABLE* 'READTABLEP)) + (\GTREADTABLE1 X . FLG] + (T 'IGNOREMACRO]) (PUTPROPS \GTREADTABLE1 DMACRO [ARGS (COND - [(NULL (CDR ARGS)) - (LIST '\DTEST (CAR ARGS) - ''READTABLEP] - (T 'IGNOREMACRO]) + [(NULL (CDR ARGS)) + (LIST '\DTEST (CAR ARGS) + ''READTABLEP] + (T 'IGNOREMACRO]) ) (DECLARE%: EVAL@COMPILE @@ -1524,7 +1521,7 @@ Copyright (c) 1982-1987, 1990, 1993, 2018, 2021 by Venue & Xerox Corporation. ) (RPAQQ READCODEMASKS ((CONTEXTMASK (LOGOR MACROBIT STOPATOMBIT BREAKBIT 1)) - (WAKEUPMASK (LOGOR MACROBIT 2)))) + (WAKEUPMASK (LOGOR MACROBIT 2)))) (DECLARE%: EVAL@COMPILE (RPAQ CONTEXTMASK (LOGOR MACROBIT STOPATOMBIT BREAKBIT 1)) @@ -1537,8 +1534,8 @@ Copyright (c) 1982-1987, 1990, 1993, 2018, 2021 by Venue & Xerox Corporation. ) (RPAQQ READMACROCONTEXTS ((ALWAYS.RMC (LOGOR MACROBIT STOPATOMBIT BREAKBIT 0)) - (FIRST.RMC (LOGOR MACROBIT 0)) - (ALONE.RMC (LOGOR MACROBIT 1)))) + (FIRST.RMC (LOGOR MACROBIT 0)) + (ALONE.RMC (LOGOR MACROBIT 1)))) (DECLARE%: EVAL@COMPILE (RPAQ ALWAYS.RMC (LOGOR MACROBIT STOPATOMBIT BREAKBIT 0)) @@ -1604,7 +1601,7 @@ Copyright (c) 1982-1987, 1990, 1993, 2018, 2021 by Venue & Xerox Corporation. ) (RPAQQ READMACROWAKEUPS ((IMMEDIATE.RMW (LOGOR MACROBIT 2)) - (NONIMMEDIATE.RMW (LOGOR MACROBIT 0)))) + (NONIMMEDIATE.RMW (LOGOR MACROBIT 0)))) (DECLARE%: EVAL@COMPILE (RPAQ IMMEDIATE.RMW (LOGOR MACROBIT 2)) @@ -1617,7 +1614,7 @@ Copyright (c) 1982-1987, 1990, 1993, 2018, 2021 by Venue & Xerox Corporation. ) (RPAQQ READMACROESCAPES ((ESC.RME ESCAPEBIT) - (NOESC.RME 0))) + (NOESC.RME 0))) (DECLARE%: EVAL@COMPILE (RPAQ ESC.RME ESCAPEBIT) @@ -1631,46 +1628,46 @@ Copyright (c) 1982-1987, 1990, 1993, 2018, 2021 by Venue & Xerox Corporation. (DECLARE%: EVAL@COMPILE (ACCESSFNS READCODE ((ESCAPE (LOGAND DATUM ESCAPEBIT)) - (ESCQUOTE (BITTEST DATUM ESCAPEBIT)) - (STOPATOM (BITTEST DATUM STOPATOMBIT)) - (INNERESCQUOTE (BITTEST DATUM (LOGOR STOPATOMBIT INNERESCAPEBIT))) - (MACROCONTEXT (LOGAND DATUM CONTEXTMASK)) - (MACROP (BITTEST DATUM MACROBIT)) - (WAKEUP (LOGAND DATUM WAKEUPMASK)) - (BREAK (BITTEST DATUM BREAKBIT)))) + (ESCQUOTE (BITTEST DATUM ESCAPEBIT)) + (STOPATOM (BITTEST DATUM STOPATOMBIT)) + (INNERESCQUOTE (BITTEST DATUM (LOGOR STOPATOMBIT INNERESCAPEBIT))) + (MACROCONTEXT (LOGAND DATUM CONTEXTMASK)) + (MACROP (BITTEST DATUM MACROBIT)) + (WAKEUP (LOGAND DATUM WAKEUPMASK)) + (BREAK (BITTEST DATUM BREAKBIT)))) (RECORD READMACRODEF (MACROTYPE . MACROFN)) -(DATATYPE READTABLEP ((READSA POINTER) (* ; - "A CHARTABLE defining syntax of each char") - (READMACRODEFS POINTER) (* ; - "A hash table associating macro chars with macro definitions") - (READMACROFLG FLAG) (* ; - "True if read macros are enabled (turned off by Interlisp's crufty READMACROS function)") - (ESCAPEFLG FLAG) (* ; "True if the char(s) with escape syntax are enabled (turned off by Interlisp's crufty ESCAPE function)") - (COMMONLISP FLAG) (* ; - "True if table is a Common Lisp read table and hence must obey Common Lisp syntax rules") - (NUMBERBASE BITS 5) (* ; "Not used") - (CASEINSENSITIVE FLAG) (* ; - "If true, unescaped lowercase chars are converted to uppercase in symbols") - (COMMONNUMSYNTAX FLAG) (* ; "True if number notation includes Common Lisp numbers: rationals as a/b, and the dfls exponent markers") - (USESILPACKAGE FLAG) (* ; - "If true, IL:READ ignores *PACKAGE* and reads in the IL package") - (NIL 5 FLAG) - (DISPATCHMACRODEFS POINTER) (* ; - "An a-list of dispatching macro char and its dispatch definitions") - (HASHMACROCHAR BYTE) (* ; - "The character code used in this read table for the # dispatch macro") - (ESCAPECHAR BYTE) (* ; - "The character code used in this read table for single escape") - (MULTESCAPECHAR BYTE) (* ; - "The character code used in this read table for multiple escape") - (PACKAGECHAR BYTE) (* ; - "The character code used in this read table for package delimiter") - (READTBLNAME POINTER) (* ; - "The canonical 'name' of this read table") - ) - READSA _ (create CHARTABLE)) +(DATATYPE READTABLEP ((READSA POINTER) (* ; + "A CHARTABLE defining syntax of each char") + (READMACRODEFS POINTER) (* ; + "A hash table associating macro chars with macro definitions") + (READMACROFLG FLAG) (* ; + "True if read macros are enabled (turned off by Interlisp's crufty READMACROS function)") + (ESCAPEFLG FLAG) (* ; "True if the char(s) with escape syntax are enabled (turned off by Interlisp's crufty ESCAPE function)") + (COMMONLISP FLAG) (* ; + "True if table is a Common Lisp read table and hence must obey Common Lisp syntax rules") + (NUMBERBASE BITS 5) (* ; "Not used") + (CASEINSENSITIVE FLAG) (* ; + "If true, unescaped lowercase chars are converted to uppercase in symbols") + (COMMONNUMSYNTAX FLAG) (* ; "True if number notation includes Common Lisp numbers: rationals as a/b, and the dfls exponent markers") + (USESILPACKAGE FLAG) (* ; + "If true, IL:READ ignores *PACKAGE* and reads in the IL package") + (NIL 5 FLAG) + (DISPATCHMACRODEFS POINTER) (* ; + "An a-list of dispatching macro char and its dispatch definitions") + (HASHMACROCHAR BYTE) (* ; + "The character code used in this read table for the # dispatch macro") + (ESCAPECHAR BYTE) (* ; + "The character code used in this read table for single escape") + (MULTESCAPECHAR BYTE) (* ; + "The character code used in this read table for multiple escape") + (PACKAGECHAR BYTE) (* ; + "The character code used in this read table for package delimiter") + (READTBLNAME POINTER) (* ; + "The canonical 'name' of this read table") + ) + READSA _ (create CHARTABLE)) ) (/DECLAREDATATYPE 'READTABLEP @@ -1870,8 +1867,12 @@ Copyright (c) 1982-1987, 1990, 1993, 2018, 2021 by Venue & Xerox Corporation. REREADTABLEFORM _ READTABLEFORM]) (EQUAL-READER-ENVIRONMENT - [LAMBDA (ENV1 ENV2) (* ; "Edited 16-Aug-2021 23:43 by rmk:") - (* ; ":XCCS is the prehistoric value") + [LAMBDA (ENV1 ENV2) + + (* ;; "Edited 19-Dec-2021 14:09 by rmk: Replace constant :XCCS with *DEFAULT-EXTERNALFORMAT*") + + (* ;; "Edited 19-Dec-2021 14:01 by rmk") + (AND (EQ (fetch (READER-ENVIRONMENT REREADTABLE) of ENV1) (fetch (READER-ENVIRONMENT REREADTABLE) of ENV2)) (EQ (fetch (READER-ENVIRONMENT REPACKAGE) of ENV1) @@ -1879,9 +1880,9 @@ Copyright (c) 1982-1987, 1990, 1993, 2018, 2021 by Venue & Xerox Corporation. (EQ (fetch (READER-ENVIRONMENT REBASE) of ENV1) (fetch (READER-ENVIRONMENT REBASE) of ENV2)) (EQ (OR (fetch (READER-ENVIRONMENT REFORMAT) of ENV1) - :XCCS) + *DEFAULT-EXTERNALFORMAT*) (OR (fetch (READER-ENVIRONMENT REFORMAT) of ENV2) - :XCCS)) + *DEFAULT-EXTERNALFORMAT*)) (EQUAL (fetch (READER-ENVIRONMENT REPACKAGEFORM) of ENV1) (fetch (READER-ENVIRONMENT REPACKAGEFORM) of ENV2)) (EQUAL (fetch (READER-ENVIRONMENT REREADTABLEFORM) of ENV1) @@ -1924,22 +1925,22 @@ Copyright (c) 1982-1987, 1990, 1993, 2018, 2021 by Venue & Xerox Corporation. (PUTPROPS ATBL COPYRIGHT ("Venue & Xerox Corporation" 1982 1983 1984 1985 1986 1987 1990 1993 2018 2021)) (DECLARE%: DONTCOPY - (FILEMAP (NIL (18046 29198 (GETSYNTAX 18056 . 22887) (SETSYNTAX 22889 . 23962) (SYNTAXP 23964 . 26461) - (\COPYSYNTAX 26463 . 27180) (\GETCHARCODE 27182 . 27470) (\SETFATSYNCODE 27472 . 28763) ( -\MAPCHARTABLE 28765 . 29196)) (29231 44197 (CONTROL 29241 . 29493) (COPYTERMTABLE 29495 . 29862) ( -DELETECONTROL 29864 . 32505) (GETDELETECONTROL 32507 . 33469) (ECHOCHAR 33471 . 34912) (ECHOCONTROL -34914 . 35371) (ECHOMODE 35373 . 35619) (GETECHOMODE 35621 . 35785) (GETCONTROL 35787 . 35953) ( -GETTERMTABLE 35955 . 36022) (RAISE 36024 . 36450) (GETRAISE 36452 . 36614) (RESETTERMTABLE 36616 . -37700) (SETTERMTABLE 37702 . 37936) (TERMTABLEP 37938 . 38099) (\GETTERMSYNTAX 38101 . 38372) ( -\GTTERMTABLE 38374 . 38710) (\ORIGTERMTABLE 38712 . 42322) (\SETTERMSYNTAX 42324 . 42959) ( -\TERMCLASSTOCODE 42961 . 43390) (\TERMCODETOCLASS 43392 . 43779) (\LITCHECK 43781 . 44195)) (46727 -70551 (COPYREADTABLE 46737 . 46935) (FIND-READTABLE 46937 . 47084) (IN-READTABLE 47086 . 47246) ( -ESCAPE 47248 . 47501) (GETBRK 47503 . 47641) (GETREADTABLE 47643 . 47779) (GETSEPR 47781 . 47919) ( -READMACROS 47921 . 48184) (READTABLEP 48186 . 48349) (READTABLEPROP 48351 . 53509) (RESETREADTABLE -53511 . 57758) (SETBRK 57760 . 59370) (SETREADTABLE 59372 . 59560) (SETSEPR 59562 . 61104) ( -\GETREADSYNTAX 61106 . 63796) (\GTREADTABLE 63798 . 64023) (\GTREADTABLE1 64025 . 64281) ( -\ORIGREADTABLE 64283 . 66191) (\READCLASSTOCODE 66193 . 66644) (\SETMACROSYNTAX 66646 . 68441) ( -\SETREADSYNTAX 68443 . 69504) (\READTABLEP.DEFPRINT 69506 . 70549)) (83643 88096 (\ATBLSET 83653 . -88094)) (88543 91975 (MAKE-READER-ENVIRONMENT 88553 . 90231) (EQUAL-READER-ENVIRONMENT 90233 . 91377) -(SET-READER-ENVIRONMENT 91379 . 91973))))) + (FILEMAP (NIL (17750 28902 (GETSYNTAX 17760 . 22591) (SETSYNTAX 22593 . 23666) (SYNTAXP 23668 . 26165) + (\COPYSYNTAX 26167 . 26884) (\GETCHARCODE 26886 . 27174) (\SETFATSYNCODE 27176 . 28467) ( +\MAPCHARTABLE 28469 . 28900)) (28935 43901 (CONTROL 28945 . 29197) (COPYTERMTABLE 29199 . 29566) ( +DELETECONTROL 29568 . 32209) (GETDELETECONTROL 32211 . 33173) (ECHOCHAR 33175 . 34616) (ECHOCONTROL +34618 . 35075) (ECHOMODE 35077 . 35323) (GETECHOMODE 35325 . 35489) (GETCONTROL 35491 . 35657) ( +GETTERMTABLE 35659 . 35726) (RAISE 35728 . 36154) (GETRAISE 36156 . 36318) (RESETTERMTABLE 36320 . +37404) (SETTERMTABLE 37406 . 37640) (TERMTABLEP 37642 . 37803) (\GETTERMSYNTAX 37805 . 38076) ( +\GTTERMTABLE 38078 . 38414) (\ORIGTERMTABLE 38416 . 42026) (\SETTERMSYNTAX 42028 . 42663) ( +\TERMCLASSTOCODE 42665 . 43094) (\TERMCODETOCLASS 43096 . 43483) (\LITCHECK 43485 . 43899)) (46412 +70236 (COPYREADTABLE 46422 . 46620) (FIND-READTABLE 46622 . 46769) (IN-READTABLE 46771 . 46931) ( +ESCAPE 46933 . 47186) (GETBRK 47188 . 47326) (GETREADTABLE 47328 . 47464) (GETSEPR 47466 . 47604) ( +READMACROS 47606 . 47869) (READTABLEP 47871 . 48034) (READTABLEPROP 48036 . 53194) (RESETREADTABLE +53196 . 57443) (SETBRK 57445 . 59055) (SETREADTABLE 59057 . 59245) (SETSEPR 59247 . 60789) ( +\GETREADSYNTAX 60791 . 63481) (\GTREADTABLE 63483 . 63708) (\GTREADTABLE1 63710 . 63966) ( +\ORIGREADTABLE 63968 . 65876) (\READCLASSTOCODE 65878 . 66329) (\SETMACROSYNTAX 66331 . 68126) ( +\SETREADSYNTAX 68128 . 69189) (\READTABLEP.DEFPRINT 69191 . 70234)) (83068 87521 (\ATBLSET 83078 . +87519)) (87968 91406 (MAKE-READER-ENVIRONMENT 87978 . 89656) (EQUAL-READER-ENVIRONMENT 89658 . 90808) +(SET-READER-ENVIRONMENT 90810 . 91404))))) STOP diff --git a/sources/ATBL.LCOM b/sources/ATBL.LCOM index af3880ede3d6805cb0b1337fdd3d79c8cecb6c52..d01f73acfb642e6b89bc99350ca3dff5bd0f37dc 100644 GIT binary patch delta 291 zcmX>znQ6ylrU~I9hL*Z6smZ!V21bSoh9*`9mR2Ul6SK{jaw{jxGl|t38)_;jp{Oyk zGB&m{G*ePYDoRbx&n?KzNlj7UO3p~kOHVCUwNl8-FUiQvOIOIuQ&4gX_3=?a)~%_f3vtRE0WF%GgkW%hJ%o!bri& z*~8J#-8EP@#9u+f%`bTJnMO%XO$DofAlEQY|IlDv7od>}N=7ES{>dc}4;vX;nHpP} XS}G}UO-^7`hL|bNXt~*(X=*zFi?~V? delta 310 zcmdlnnd!`ArU~Jb&ohcm%r)^&&n(f+O-;#3t+Xr7FD*(=Ew*zEaq`i#HnPxEP%<*n z^-nI*H8LHdj(eDoRbx&n?KzNlj7UO3p~kOHVCUwNjY8uu;M#GfzRu zE!4+H0a>e_o}Q9IN@596Jr*NPjFmLGG~7IWT%Chl9Yb7QCZA=LnC#D}Y>LNm3S5>( zCZ>i8Q0o;+@_{bUaPtcWIYV4aQ=y0qJP!82%11m!lD+5C%1ul?9(zq=$ K->l3uwH*MpWm~xb