github.com/Interlisp.medley
1
0
Fork 0
mirror of synced 2026-05-01 14:06:47 +00:00
Code Issues Projects Releases Wiki Activity

ATBL: Default reader environment uses *DEFAULT-EXTERNALFORMAT* instead of :XCCS constant

Browse Source
This commit is contained in:
rmkaplan
2021-12-22 10:50:24 -08:00
parent 89a71cb949
commit 419a71cf35
2 changed files with 150 additions and 149 deletions
Download Patch File Download Diff File Expand all files Collapse all files

299
sources/ATBL
View File

@@ -1,11 +1,11 @@
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
(FILECREATED "24-Oct-2021 21:53:59" {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>ATBL.;28 92451 (FILECREATED "19-Dec-2021 14:09:43" {DSK}<Users>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" :PREVIOUS-DATE "24-Oct-2021 21:53:59"
{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>ATBL.;27) {DSK}<Users>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 (RPAQQ ATBLCOMS
[(COMS (* ; [(COMS (* ;
 "Common features of read and terminal tables")  "Common features of read and terminal tables")
(DECLARE%: DONTCOPY (EXPORT (MACROS \SYNCODE \SETSYNCODE) (DECLARE%: DONTCOPY (EXPORT (MACROS \SYNCODE \SETSYNCODE)
(RECORDS CHARTABLE)) (RECORDS CHARTABLE))
(CONSTANTS \NSCHARHASHKEYS \NSCHARHASHOVERFLOW) (CONSTANTS \NSCHARHASHKEYS \NSCHARHASHOVERFLOW)
@@ -39,9 +39,9 @@ Copyright (c) 1982-1987, 1990, 1993, 2018, 2021 by Venue & Xerox Corporation.
\SETMACROSYNTAX \SETREADSYNTAX \READTABLEP.DEFPRINT) \SETMACROSYNTAX \SETREADSYNTAX \READTABLEP.DEFPRINT)
(PROP ARGNAMES READTABLEPROP) (PROP ARGNAMES READTABLEPROP)
(DECLARE%: EVAL@COMPILE DONTCOPY (* ; (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 [VARS READCLASSTOKENS (READCLASSES (MAPCAR READCLASSTOKENS
(FUNCTION (LAMBDA (FUNCTION (LAMBDA
(PAIR) (PAIR)
@@ -50,7 +50,7 @@ Copyright (c) 1982-1987, 1990, 1993, 2018, 2021 by Venue & Xerox Corporation.
(CADR PAIR] (CADR PAIR]
(MACROS \COMPUTED.FORM) (MACROS \COMPUTED.FORM)
(* ; (* ;
 "This macro ought to be official somehow")  "This macro ought to be official somehow")
(RECORDS CONTEXTS ESCAPES WAKEUPS) (RECORDS CONTEXTS ESCAPES WAKEUPS)
(EXPORT (MACROS \GETREADMACRODEF \GTREADTABLE \GTREADTABLE1) (EXPORT (MACROS \GETREADMACRODEF \GTREADTABLE \GTREADTABLE1)
(CONSTANTS MACROBIT BREAKBIT STOPATOMBIT ESCAPEBIT INNERESCAPEBIT) (CONSTANTS MACROBIT BREAKBIT STOPATOMBIT ESCAPEBIT INNERESCAPEBIT)
@@ -66,7 +66,7 @@ Copyright (c) 1982-1987, 1990, 1993, 2018, 2021 by Venue & Xerox Corporation.
(FNS \ATBLSET) (FNS \ATBLSET)
(INITRECORDS READER-ENVIRONMENT) (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) (FNS MAKE-READER-ENVIRONMENT EQUAL-READER-ENVIRONMENT SET-READER-ENVIRONMENT)
(INITVARS (*LISP-PACKAGE*) (INITVARS (*LISP-PACKAGE*)
(*INTERLISP-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 (* "FOLLOWING DEFINITIONS EXPORTED")(DECLARE%: EVAL@COMPILE
(PUTPROPS \SYNCODE DMACRO [OPENLAMBDA (TABLE CHAR) (PUTPROPS \SYNCODE DMACRO [OPENLAMBDA (TABLE CHAR)
(CHECK (type? CHARTABLE TABLE)) (CHECK (type? CHARTABLE TABLE)) (* ;
(* ;  "0 is either NONE.TC, REAL.CCE, or OTHER.RC")
 "0 is either NONE.TC, REAL.CCE, or OTHER.RC") (COND
(COND ((IGREATERP CHAR \MAXTHINCHAR)
((IGREATERP CHAR \MAXTHINCHAR) (OR (AND (fetch (CHARTABLE NSCHARHASH) of TABLE)
(OR (AND (fetch (CHARTABLE NSCHARHASH) of TABLE) (GETHASH CHAR (fetch (CHARTABLE NSCHARHASH) of TABLE)))
(GETHASH CHAR (fetch (CHARTABLE NSCHARHASH) 0))
of TABLE))) (T (\GETBASEBYTE TABLE CHAR])
0))
(T (\GETBASEBYTE TABLE CHAR])
(PUTPROPS \SETSYNCODE DMACRO [LAMBDA (TABLE CHAR CODE) (PUTPROPS \SETSYNCODE DMACRO [LAMBDA (TABLE CHAR CODE)
(CHECK (type? CHARTABLE TABLE)) (CHECK (type? CHARTABLE TABLE))
(* ; (* ; "0 is REAL.CCE, NONE.TC, OTHER.RC")
 "0 is REAL.CCE, NONE.TC, OTHER.RC") (COND
(COND ((ILEQ CHAR \MAXTHINCHAR)
((ILEQ CHAR \MAXTHINCHAR) (\PUTBASEBYTE TABLE CHAR CODE))
(\PUTBASEBYTE TABLE CHAR CODE)) (T (\SETFATSYNCODE TABLE CHAR CODE])
(T (\SETFATSYNCODE TABLE CHAR CODE])
) )
(DECLARE%: EVAL@COMPILE (DECLARE%: EVAL@COMPILE
(DATATYPE CHARTABLE ((CHARSET0 256 BYTE) (DATATYPE CHARTABLE ((CHARSET0 256 BYTE)
(NSCHARHASH FULLPOINTER))) (NSCHARHASH FULLPOINTER)))
) )
(/DECLAREDATATYPE 'CHARTABLE (/DECLAREDATATYPE 'CHARTABLE
@@ -402,11 +399,11 @@ Copyright (c) 1982-1987, 1990, 1993, 2018, 2021 by Venue & Xerox Corporation.
(DECLARE%: EVAL@COMPILE (DECLARE%: EVAL@COMPILE
(PUTPROPS \CREATENSCHARHASH MACRO (ARGS (* ; (PUTPROPS \CREATENSCHARHASH MACRO (ARGS (* ;
 "added size argument for creation of \ORIGTERMTABLE during initialization.")  "added size argument for creation of \ORIGTERMTABLE during initialization.")
(LIST 'HASHARRAY (OR (CAR ARGS) (LIST 'HASHARRAY (OR (CAR ARGS)
'\NSCHARHASHKEYS) '\NSCHARHASHKEYS)
'\NSCHARHASHOVERFLOW))) '\NSCHARHASHOVERFLOW)))
) )
) )
(DEFINEQ (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) (CONSTANTS REAL.CCE IGNORE.CCE SIMULATE.CCE INDICATE.CCE)
) )
(RPAQQ TERMCLASSES (NONE.TC EOL.TC CHARDELETE.TC WORDDELETE.TC WORDSEPR.TC LINEDELETE.TC (RPAQQ TERMCLASSES (NONE.TC EOL.TC CHARDELETE.TC WORDDELETE.TC WORDSEPR.TC LINEDELETE.TC RETYPE.TC
RETYPE.TC CTRLV.TC)) CTRLV.TC))
(DECLARE%: EVAL@COMPILE (DECLARE%: EVAL@COMPILE
(RPAQQ NONE.TC 0) (RPAQQ NONE.TC 0)
@@ -950,14 +947,14 @@ Copyright (c) 1982-1987, 1990, 1993, 2018, 2021 by Venue & Xerox Corporation.
(DECLARE%: EVAL@COMPILE (DECLARE%: EVAL@COMPILE
(ACCESSFNS TERMCODE ((CCECHO (LOGAND DATUM 24)) (ACCESSFNS TERMCODE ((CCECHO (LOGAND DATUM 24))
(TERMCLASS (LOGAND DATUM 7))) (* ; (TERMCLASS (LOGAND DATUM 7))) (* ;
 "We assume that values are appropriately shifted")  "We assume that values are appropriately shifted")
(CREATE (LOGOR CCECHO TERMCLASS))) (CREATE (LOGOR CCECHO TERMCLASS)))
(DATATYPE TERMTABLEP (TERMSA RAISEFLG DELCHARECHO LINEDELETE 1STCHDEL NTHCHDEL POSTCHDEL (DATATYPE TERMTABLEP (TERMSA RAISEFLG DELCHARECHO LINEDELETE 1STCHDEL NTHCHDEL POSTCHDEL EMPTYCHDEL
EMPTYCHDEL (CONTROLFLG FLAG) (CONTROLFLG FLAG)
(ECHOFLG FLAG)) (ECHOFLG FLAG))
TERMSA _ (create CHARTABLE)) TERMSA _ (create CHARTABLE))
) )
(/DECLAREDATATYPE 'TERMTABLEP '(POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER FLAG (/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)))) (PACKAGEDELIM (LOGOR ESCAPEBIT INNERESCAPEBIT 1))))
(RPAQ READCLASSES [MAPCAR READCLASSTOKENS (FUNCTION (LAMBDA (PAIR) (RPAQ READCLASSES [MAPCAR READCLASSTOKENS (FUNCTION (LAMBDA (PAIR)
(LIST (PACK* (CAR PAIR) (LIST (PACK* (CAR PAIR)
".RC") ".RC")
(CADR PAIR]) (CADR PAIR])
(DECLARE%: EVAL@COMPILE (DECLARE%: EVAL@COMPILE
@@ -1452,60 +1449,60 @@ Copyright (c) 1982-1987, 1990, 1993, 2018, 2021 by Venue & Xerox Corporation.
(DECLARE%: EVAL@COMPILE (DECLARE%: EVAL@COMPILE
(ACCESSFNS CONTEXTS ((KEY (SELECTC DATUM (ACCESSFNS CONTEXTS ((KEY (SELECTC DATUM
(ALWAYS.RMC 'ALWAYS) (ALWAYS.RMC 'ALWAYS)
(FIRST.RMC 'FIRST) (FIRST.RMC 'FIRST)
(ALONE.RMC 'ALONE) (ALONE.RMC 'ALONE)
NIL)) NIL))
(VAL (SELECTQ DATUM (VAL (SELECTQ DATUM
(ALWAYS ALWAYS.RMC) (ALWAYS ALWAYS.RMC)
(FIRST FIRST.RMC) (FIRST FIRST.RMC)
(ALONE ALONE.RMC) (ALONE ALONE.RMC)
NIL)))) NIL))))
(ACCESSFNS ESCAPES ((KEY (SELECTC DATUM (ACCESSFNS ESCAPES ((KEY (SELECTC DATUM
(ESC.RME 'ESCQUOTE) (ESC.RME 'ESCQUOTE)
(NOESC.RME 'NOESCQUOTE) (NOESC.RME 'NOESCQUOTE)
NIL)) NIL))
(VAL (SELECTQ DATUM (VAL (SELECTQ DATUM
((ESCQUOTE ESC) ((ESCQUOTE ESC)
ESC.RME) ESC.RME)
((NOESCQUOTE NOESC) ((NOESCQUOTE NOESC)
NOESC.RME) NOESC.RME)
NIL)))) NIL))))
(ACCESSFNS WAKEUPS ((KEY (SELECTC DATUM (ACCESSFNS WAKEUPS ((KEY (SELECTC DATUM
(IMMEDIATE.RMW 'IMMEDIATE) (IMMEDIATE.RMW 'IMMEDIATE)
(NONIMMEDIATE.RMW (NONIMMEDIATE.RMW
'NONIMMEDIATE) 'NONIMMEDIATE)
NIL)) NIL))
(VAL (SELECTQ DATUM (VAL (SELECTQ DATUM
((IMMEDIATE IMMED WAKEUP) ((IMMEDIATE IMMED WAKEUP)
IMMEDIATE.RMW) IMMEDIATE.RMW)
((NONIMMEDIATE NONIMMED NOWAKEUP) ((NONIMMEDIATE NONIMMED NOWAKEUP)
NONIMMEDIATE.RMW) NONIMMEDIATE.RMW)
NIL)))) NIL))))
) )
(* "FOLLOWING DEFINITIONS EXPORTED")(DECLARE%: EVAL@COMPILE (* "FOLLOWING DEFINITIONS EXPORTED")(DECLARE%: EVAL@COMPILE
(PUTPROPS \GETREADMACRODEF MACRO ((C TBL) (PUTPROPS \GETREADMACRODEF MACRO ((C TBL)
(GETHASH C (fetch READMACRODEFS of TBL)))) (GETHASH C (fetch READMACRODEFS of TBL))))
(PUTPROPS \GTREADTABLE MACRO [ARGS (COND (PUTPROPS \GTREADTABLE MACRO [ARGS (COND
[(LITATOM (CAR ARGS)) [(LITATOM (CAR ARGS))
(SUBPAIR '(X . FLG) (SUBPAIR '(X . FLG)
ARGS ARGS
'(SELECTQ X '(SELECTQ X
((NIL T) ((NIL T)
(\DTEST *READTABLE* 'READTABLEP)) (\DTEST *READTABLE* 'READTABLEP))
(\GTREADTABLE1 X . FLG] (\GTREADTABLE1 X . FLG]
(T 'IGNOREMACRO]) (T 'IGNOREMACRO])
(PUTPROPS \GTREADTABLE1 DMACRO [ARGS (COND (PUTPROPS \GTREADTABLE1 DMACRO [ARGS (COND
[(NULL (CDR ARGS)) [(NULL (CDR ARGS))
(LIST '\DTEST (CAR ARGS) (LIST '\DTEST (CAR ARGS)
''READTABLEP] ''READTABLEP]
(T 'IGNOREMACRO]) (T 'IGNOREMACRO])
) )
(DECLARE%: EVAL@COMPILE (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)) (RPAQQ READCODEMASKS ((CONTEXTMASK (LOGOR MACROBIT STOPATOMBIT BREAKBIT 1))
(WAKEUPMASK (LOGOR MACROBIT 2)))) (WAKEUPMASK (LOGOR MACROBIT 2))))
(DECLARE%: EVAL@COMPILE (DECLARE%: EVAL@COMPILE
(RPAQ CONTEXTMASK (LOGOR MACROBIT STOPATOMBIT BREAKBIT 1)) (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)) (RPAQQ READMACROCONTEXTS ((ALWAYS.RMC (LOGOR MACROBIT STOPATOMBIT BREAKBIT 0))
(FIRST.RMC (LOGOR MACROBIT 0)) (FIRST.RMC (LOGOR MACROBIT 0))
(ALONE.RMC (LOGOR MACROBIT 1)))) (ALONE.RMC (LOGOR MACROBIT 1))))
(DECLARE%: EVAL@COMPILE (DECLARE%: EVAL@COMPILE
(RPAQ ALWAYS.RMC (LOGOR MACROBIT STOPATOMBIT BREAKBIT 0)) (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)) (RPAQQ READMACROWAKEUPS ((IMMEDIATE.RMW (LOGOR MACROBIT 2))
(NONIMMEDIATE.RMW (LOGOR MACROBIT 0)))) (NONIMMEDIATE.RMW (LOGOR MACROBIT 0))))
(DECLARE%: EVAL@COMPILE (DECLARE%: EVAL@COMPILE
(RPAQ IMMEDIATE.RMW (LOGOR MACROBIT 2)) (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) (RPAQQ READMACROESCAPES ((ESC.RME ESCAPEBIT)
(NOESC.RME 0))) (NOESC.RME 0)))
(DECLARE%: EVAL@COMPILE (DECLARE%: EVAL@COMPILE
(RPAQ ESC.RME ESCAPEBIT) (RPAQ ESC.RME ESCAPEBIT)
@@ -1631,46 +1628,46 @@ Copyright (c) 1982-1987, 1990, 1993, 2018, 2021 by Venue & Xerox Corporation.
(DECLARE%: EVAL@COMPILE (DECLARE%: EVAL@COMPILE
(ACCESSFNS READCODE ((ESCAPE (LOGAND DATUM ESCAPEBIT)) (ACCESSFNS READCODE ((ESCAPE (LOGAND DATUM ESCAPEBIT))
(ESCQUOTE (BITTEST DATUM ESCAPEBIT)) (ESCQUOTE (BITTEST DATUM ESCAPEBIT))
(STOPATOM (BITTEST DATUM STOPATOMBIT)) (STOPATOM (BITTEST DATUM STOPATOMBIT))
(INNERESCQUOTE (BITTEST DATUM (LOGOR STOPATOMBIT INNERESCAPEBIT))) (INNERESCQUOTE (BITTEST DATUM (LOGOR STOPATOMBIT INNERESCAPEBIT)))
(MACROCONTEXT (LOGAND DATUM CONTEXTMASK)) (MACROCONTEXT (LOGAND DATUM CONTEXTMASK))
(MACROP (BITTEST DATUM MACROBIT)) (MACROP (BITTEST DATUM MACROBIT))
(WAKEUP (LOGAND DATUM WAKEUPMASK)) (WAKEUP (LOGAND DATUM WAKEUPMASK))
(BREAK (BITTEST DATUM BREAKBIT)))) (BREAK (BITTEST DATUM BREAKBIT))))
(RECORD READMACRODEF (MACROTYPE . MACROFN)) (RECORD READMACRODEF (MACROTYPE . MACROFN))
(DATATYPE READTABLEP ((READSA POINTER) (* ; (DATATYPE READTABLEP ((READSA POINTER) (* ;
 "A CHARTABLE defining syntax of each char")  "A CHARTABLE defining syntax of each char")
(READMACRODEFS POINTER) (* ; (READMACRODEFS POINTER) (* ;
 "A hash table associating macro chars with macro definitions")  "A hash table associating macro chars with macro definitions")
(READMACROFLG FLAG) (* ; (READMACROFLG FLAG) (* ;
 "True if read macros are enabled (turned off by Interlisp's crufty READMACROS function)")  "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)") (ESCAPEFLG FLAG) (* ; "True if the char(s) with escape syntax are enabled (turned off by Interlisp's crufty ESCAPE function)")
(COMMONLISP FLAG) (* ; (COMMONLISP FLAG) (* ;
 "True if table is a Common Lisp read table and hence must obey Common Lisp syntax rules")  "True if table is a Common Lisp read table and hence must obey Common Lisp syntax rules")
(NUMBERBASE BITS 5) (* ; "Not used") (NUMBERBASE BITS 5) (* ; "Not used")
(CASEINSENSITIVE FLAG) (* ; (CASEINSENSITIVE FLAG) (* ;
 "If true, unescaped lowercase chars are converted to uppercase in symbols")  "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") (COMMONNUMSYNTAX FLAG) (* ; "True if number notation includes Common Lisp numbers: rationals as a/b, and the dfls exponent markers")
(USESILPACKAGE FLAG) (* ; (USESILPACKAGE FLAG) (* ;
 "If true, IL:READ ignores *PACKAGE* and reads in the IL package")  "If true, IL:READ ignores *PACKAGE* and reads in the IL package")
(NIL 5 FLAG) (NIL 5 FLAG)
(DISPATCHMACRODEFS POINTER) (* ; (DISPATCHMACRODEFS POINTER) (* ;
 "An a-list of dispatching macro char and its dispatch definitions")  "An a-list of dispatching macro char and its dispatch definitions")
(HASHMACROCHAR BYTE) (* ; (HASHMACROCHAR BYTE) (* ;
 "The character code used in this read table for the # dispatch macro")  "The character code used in this read table for the # dispatch macro")
(ESCAPECHAR BYTE) (* ; (ESCAPECHAR BYTE) (* ;
 "The character code used in this read table for single escape")  "The character code used in this read table for single escape")
(MULTESCAPECHAR BYTE) (* ; (MULTESCAPECHAR BYTE) (* ;
 "The character code used in this read table for multiple escape")  "The character code used in this read table for multiple escape")
(PACKAGECHAR BYTE) (* ; (PACKAGECHAR BYTE) (* ;
 "The character code used in this read table for package delimiter")  "The character code used in this read table for package delimiter")
(READTBLNAME POINTER) (* ; (READTBLNAME POINTER) (* ;
 "The canonical 'name' of this read table")  "The canonical 'name' of this read table")
) )
READSA _ (create CHARTABLE)) READSA _ (create CHARTABLE))
) )
(/DECLAREDATATYPE 'READTABLEP (/DECLAREDATATYPE 'READTABLEP
@@ -1870,8 +1867,12 @@ Copyright (c) 1982-1987, 1990, 1993, 2018, 2021 by Venue & Xerox Corporation.
REREADTABLEFORM _ READTABLEFORM]) REREADTABLEFORM _ READTABLEFORM])
(EQUAL-READER-ENVIRONMENT (EQUAL-READER-ENVIRONMENT
[LAMBDA (ENV1 ENV2) (* ; "Edited 16-Aug-2021 23:43 by rmk:") [LAMBDA (ENV1 ENV2)
(* ; ":XCCS is the prehistoric value")
(* ;; "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) (AND (EQ (fetch (READER-ENVIRONMENT REREADTABLE) of ENV1)
(fetch (READER-ENVIRONMENT REREADTABLE) of ENV2)) (fetch (READER-ENVIRONMENT REREADTABLE) of ENV2))
(EQ (fetch (READER-ENVIRONMENT REPACKAGE) of ENV1) (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) (EQ (fetch (READER-ENVIRONMENT REBASE) of ENV1)
(fetch (READER-ENVIRONMENT REBASE) of ENV2)) (fetch (READER-ENVIRONMENT REBASE) of ENV2))
(EQ (OR (fetch (READER-ENVIRONMENT REFORMAT) of ENV1) (EQ (OR (fetch (READER-ENVIRONMENT REFORMAT) of ENV1)
:XCCS) *DEFAULT-EXTERNALFORMAT*)
(OR (fetch (READER-ENVIRONMENT REFORMAT) of ENV2) (OR (fetch (READER-ENVIRONMENT REFORMAT) of ENV2)
:XCCS)) *DEFAULT-EXTERNALFORMAT*))
(EQUAL (fetch (READER-ENVIRONMENT REPACKAGEFORM) of ENV1) (EQUAL (fetch (READER-ENVIRONMENT REPACKAGEFORM) of ENV1)
(fetch (READER-ENVIRONMENT REPACKAGEFORM) of ENV2)) (fetch (READER-ENVIRONMENT REPACKAGEFORM) of ENV2))
(EQUAL (fetch (READER-ENVIRONMENT REREADTABLEFORM) of ENV1) (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 (PUTPROPS ATBL COPYRIGHT ("Venue & Xerox Corporation" 1982 1983 1984 1985 1986 1987 1990 1993 2018
2021)) 2021))
(DECLARE%: DONTCOPY (DECLARE%: DONTCOPY
(FILEMAP (NIL (18046 29198 (GETSYNTAX 18056 . 22887) (SETSYNTAX 22889 . 23962) (SYNTAXP 23964 . 26461) (FILEMAP (NIL (17750 28902 (GETSYNTAX 17760 . 22591) (SETSYNTAX 22593 . 23666) (SYNTAXP 23668 . 26165)
(\COPYSYNTAX 26463 . 27180) (\GETCHARCODE 27182 . 27470) (\SETFATSYNCODE 27472 . 28763) ( (\COPYSYNTAX 26167 . 26884) (\GETCHARCODE 26886 . 27174) (\SETFATSYNCODE 27176 . 28467) (
\MAPCHARTABLE 28765 . 29196)) (29231 44197 (CONTROL 29241 . 29493) (COPYTERMTABLE 29495 . 29862) ( \MAPCHARTABLE 28469 . 28900)) (28935 43901 (CONTROL 28945 . 29197) (COPYTERMTABLE 29199 . 29566) (
DELETECONTROL 29864 . 32505) (GETDELETECONTROL 32507 . 33469) (ECHOCHAR 33471 . 34912) (ECHOCONTROL DELETECONTROL 29568 . 32209) (GETDELETECONTROL 32211 . 33173) (ECHOCHAR 33175 . 34616) (ECHOCONTROL
34914 . 35371) (ECHOMODE 35373 . 35619) (GETECHOMODE 35621 . 35785) (GETCONTROL 35787 . 35953) ( 34618 . 35075) (ECHOMODE 35077 . 35323) (GETECHOMODE 35325 . 35489) (GETCONTROL 35491 . 35657) (
GETTERMTABLE 35955 . 36022) (RAISE 36024 . 36450) (GETRAISE 36452 . 36614) (RESETTERMTABLE 36616 . GETTERMTABLE 35659 . 35726) (RAISE 35728 . 36154) (GETRAISE 36156 . 36318) (RESETTERMTABLE 36320 .
37700) (SETTERMTABLE 37702 . 37936) (TERMTABLEP 37938 . 38099) (\GETTERMSYNTAX 38101 . 38372) ( 37404) (SETTERMTABLE 37406 . 37640) (TERMTABLEP 37642 . 37803) (\GETTERMSYNTAX 37805 . 38076) (
\GTTERMTABLE 38374 . 38710) (\ORIGTERMTABLE 38712 . 42322) (\SETTERMSYNTAX 42324 . 42959) ( \GTTERMTABLE 38078 . 38414) (\ORIGTERMTABLE 38416 . 42026) (\SETTERMSYNTAX 42028 . 42663) (
\TERMCLASSTOCODE 42961 . 43390) (\TERMCODETOCLASS 43392 . 43779) (\LITCHECK 43781 . 44195)) (46727 \TERMCLASSTOCODE 42665 . 43094) (\TERMCODETOCLASS 43096 . 43483) (\LITCHECK 43485 . 43899)) (46412
70551 (COPYREADTABLE 46737 . 46935) (FIND-READTABLE 46937 . 47084) (IN-READTABLE 47086 . 47246) ( 70236 (COPYREADTABLE 46422 . 46620) (FIND-READTABLE 46622 . 46769) (IN-READTABLE 46771 . 46931) (
ESCAPE 47248 . 47501) (GETBRK 47503 . 47641) (GETREADTABLE 47643 . 47779) (GETSEPR 47781 . 47919) ( ESCAPE 46933 . 47186) (GETBRK 47188 . 47326) (GETREADTABLE 47328 . 47464) (GETSEPR 47466 . 47604) (
READMACROS 47921 . 48184) (READTABLEP 48186 . 48349) (READTABLEPROP 48351 . 53509) (RESETREADTABLE READMACROS 47606 . 47869) (READTABLEP 47871 . 48034) (READTABLEPROP 48036 . 53194) (RESETREADTABLE
53511 . 57758) (SETBRK 57760 . 59370) (SETREADTABLE 59372 . 59560) (SETSEPR 59562 . 61104) ( 53196 . 57443) (SETBRK 57445 . 59055) (SETREADTABLE 59057 . 59245) (SETSEPR 59247 . 60789) (
\GETREADSYNTAX 61106 . 63796) (\GTREADTABLE 63798 . 64023) (\GTREADTABLE1 64025 . 64281) ( \GETREADSYNTAX 60791 . 63481) (\GTREADTABLE 63483 . 63708) (\GTREADTABLE1 63710 . 63966) (
\ORIGREADTABLE 64283 . 66191) (\READCLASSTOCODE 66193 . 66644) (\SETMACROSYNTAX 66646 . 68441) ( \ORIGREADTABLE 63968 . 65876) (\READCLASSTOCODE 65878 . 66329) (\SETMACROSYNTAX 66331 . 68126) (
\SETREADSYNTAX 68443 . 69504) (\READTABLEP.DEFPRINT 69506 . 70549)) (83643 88096 (\ATBLSET 83653 . \SETREADSYNTAX 68128 . 69189) (\READTABLEP.DEFPRINT 69191 . 70234)) (83068 87521 (\ATBLSET 83078 .
88094)) (88543 91975 (MAKE-READER-ENVIRONMENT 88553 . 90231) (EQUAL-READER-ENVIRONMENT 90233 . 91377) 87519)) (87968 91406 (MAKE-READER-ENVIRONMENT 87978 . 89656) (EQUAL-READER-ENVIRONMENT 89658 . 90808)
(SET-READER-ENVIRONMENT 91379 . 91973))))) (SET-READER-ENVIRONMENT 90810 . 91404)))))
STOP STOP

BIN
sources/ATBL.LCOM
View File

Binary file not shown.