ATBL: Default reader environment uses *DEFAULT-EXTERNALFORMAT* instead of :XCCS constant
This commit is contained in:
rmkaplan
299
sources/ATBL
299
sources/ATBL
@@ -1,11 +1,11 @@
|
||||
(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"
|
||||
{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>ATBL.;27)
|
||||
:PREVIOUS-DATE "24-Oct-2021 21:53:59"
|
||||
{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
|
||||
[(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
|
||||
|
||||
Binary file not shown.
Reference in New Issue
Block a user