From 9f7bf48b8cefdc3ba41350c20462828fede3e2ff Mon Sep 17 00:00:00 2001
From: rmkaplan <ron.kaplan@post.harvard.edu>
Date: Sun, 26 Dec 2021 15:48:40 -0800
Subject: [PATCH] ATBL: fixed typo

---
 sources/ATBL      |  55 +++++++++++++++++++++++-----------------------
 sources/ATBL.LCOM | Bin 35256 -> 35244 bytes
 2 files changed, 27 insertions(+), 28 deletions(-)

diff --git a/sources/ATBL b/sources/ATBL
index 123c79e6..a3dc9fc0 100644
--- a/sources/ATBL
+++ b/sources/ATBL
@@ -1,11 +1,11 @@
 (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
 
-
(FILECREATED "19-Dec-2021 14:09:43" {DSK}<Users>kaplan>Local>medley3.5>my-medley>sources>ATBL.;31
 91882  
+
(FILECREATED "26-Dec-2021 14:32:50" {DSK}<Users>kaplan>Local>medley3.5>my-medley>sources>ATBL.;32
 91860  
 
-      :CHANGES-TO (FNS EQUAL-READER-ENVIRONMENT)
+      :CHANGES-TO (FNS MAKE-READER-ENVIRONMENT)
 
-      :PREVIOUS-DATE "24-Oct-2021 21:53:59" 
-{DSK}<Users>kaplan>Local>medley3.5>my-medley>sources>ATBL.;29)
+      :PREVIOUS-DATE "19-Dec-2021 14:09:43" 
+{DSK}<Users>kaplan>Local>medley3.5>my-medley>sources>ATBL.;31)
 
 
 (* ; "
@@ -1832,10 +1832,9 @@ Copyright (c) 1982-1987, 1990, 1993, 2018, 2021 by Venue & Xerox Corporation.
 
 (MAKE-READER-ENVIRONMENT

   [LAMBDA (PACKAGE READTABLE BASE FORMAT PACKAGEFORM READTABLEFORM)
-                                                             (* ; 
-
                                                           "Edited 24-Oct-2021 21:53 by rmk:")

-                                                             (* ; 
-
                                                           "Edited 16-Aug-2021 23:44 by rmk:")

+                                                             (* ; "Edited 26-Dec-2021 14:32 by rmk")

+                                                             (* ; "Edited 24-Oct-2021 21:53 by rmk:")

+                                                             (* ; "Edited 16-Aug-2021 23:44 by rmk:")

 
     (* ;; "PACKAGE can be a prop list of keyword-values")

 
@@ -1852,12 +1851,12 @@ Copyright (c) 1982-1987, 1990, 1993, 2018, 2021 by Venue & Xerox Corporation.
                           ((CL:PACKAGEP PACKAGE)
                            PACKAGE)
                           [PACKAGE (OR (CL:FIND-PACKAGE PACKAGE)
-                                       (\DEST PACKAGE 'PACKAGE]
+                                       (\DTEST PACKAGE 'PACKAGE]
                           (T *PACKAGE*))
            REREADTABLE _ (COND
                             ((READTABLEP
 READTABLE))
                             [READTABLE (OR (FIND-READTABLE
 READTABLE)
-                                           (\DEST READTABLE 'READTABLEP]
+                                           (\DTEST READTABLE 'READTABLEP]
                             (T *READTABLE*))
            REBASE _ (COND
                        (BASE (\CHECKRADIX BASE))
@@ -1925,22 +1924,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 (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)))))
+  (FILEMAP (NIL (17749 28901 (GETSYNTAX 17759 . 22590) (SETSYNTAX 22592 . 23665) (SYNTAXP 23667 . 26164)
+ (\COPYSYNTAX 26166 . 26883) (\GETCHARCODE 26885 . 27173) (\SETFATSYNCODE 27175 . 28466) (
+\MAPCHARTABLE 28468 . 28899)) (28934 43900 (CONTROL 28944 . 29196) (COPYTERMTABLE 29198 . 29565) (
+DELETECONTROL 29567 . 32208) (GETDELETECONTROL 32210 . 33172) (ECHOCHAR 33174 . 34615) (ECHOCONTROL 
+34617 . 35074) (ECHOMODE 35076 . 35322) (GETECHOMODE 35324 . 35488) (GETCONTROL 35490 . 35656) (
+GETTERMTABLE 35658 . 35725) (RAISE 35727 . 36153) (GETRAISE 36155 . 36317) (RESETTERMTABLE 36319 . 
+37403) (SETTERMTABLE 37405 . 37639) (TERMTABLEP 37641 . 37802) (\GETTERMSYNTAX 37804 . 38075) (
+\GTTERMTABLE 38077 . 38413) (\ORIGTERMTABLE 38415 . 42025) (\SETTERMSYNTAX 42027 . 42662) (
+\TERMCLASSTOCODE 42664 . 43093) (\TERMCODETOCLASS 43095 . 43482) (\LITCHECK 43484 . 43898)) (46411 
+70235 (COPYREADTABLE 46421 . 46619) (FIND-READTABLE 46621 . 46768) (IN-READTABLE 46770 . 46930) (
+ESCAPE 46932 . 47185) (GETBRK 47187 . 47325) (GETREADTABLE 47327 . 47463) (GETSEPR 47465 . 47603) (
+READMACROS 47605 . 47868) (READTABLEP 47870 . 48033) (READTABLEPROP 48035 . 53193) (RESETREADTABLE 
+53195 . 57442) (SETBRK 57444 . 59054) (SETREADTABLE 59056 . 59244) (SETSEPR 59246 . 60788) (
+\GETREADSYNTAX 60790 . 63480) (\GTREADTABLE 63482 . 63707) (\GTREADTABLE1 63709 . 63965) (
+\ORIGREADTABLE 63967 . 65875) (\READCLASSTOCODE 65877 . 66328) (\SETMACROSYNTAX 66330 . 68125) (
+\SETREADSYNTAX 68127 . 69188) (\READTABLEP.DEFPRINT 69190 . 70233)) (83067 87520 (\ATBLSET 83077 . 
+87518)) (87967 91384 (MAKE-READER-ENVIRONMENT 87977 . 89634) (EQUAL-READER-ENVIRONMENT 89636 . 90786) 
+(SET-READER-ENVIRONMENT 90788 . 91382)))))
 STOP
diff --git a/sources/ATBL.LCOM b/sources/ATBL.LCOM
index d01f73acfb642e6b89bc99350ca3dff5bd0f37dc..49a09944f99350703ee4aeb10db5932d3a483b80 100644
GIT binary patch
delta 390
zcmdlnnQ6^rrU~I9MrOJ$smZ!V21bSoh9*|V=2nIV6SMtIj5HOLj7$-7Mn+af7FI@<
zN(xCusmb}d1(`XiDGFSv6$Lq&$(bcNm8w<>lNUBhaA)QzD7l6D_$U~ePW&fkiD`zh
zsgfp_hMT94t8<X6V~DE@&>}QP7+IMbO!j58lQL4^vNW_XGf=Q{_HgubcMaAJ@mJ7r
z^9u&qB|dpCqma0vCBl(F4;WZlnHVc6a834SwB4-Cbi9c1<mA^S?mWWt95@+(U@Mmc
z+hmv0qIxzEZ^Kds4MPh{1vgJW7hRxhTtXb3d|VX_EesW6JpIBPeLP+Cf*f5uBNPk`
z3>4rB0u;<m6r6pmz}f;FoxL61U4ecwv@}OnV_~EKl~XW7FilMqYFL<qHv5)k3j+X<
CKxBFV

delta 360
zcmZ28nQ6ylrU~JbA2Nzf%=L9K)KpM1wA6J;P1ZFsFfvpyG_o=_wlXwRQb;OFP0r6P
z$jnJiQQ%6>NX$!5EmpNs$jdLu$jnPu$jnnvatrnGQ82WeEXXLPjA@9Gk&-5thMT94
zt8<X6V~DHE<ok>glam;2Bn=g~EDbFzj1;V#JskbqU4wN){1r6Z{DLR1X_TCNo>54|
z$VAsaxdh@QBSR}wV=Gh3iPd&YMwXjRnT{7RUYY#2#9c^olb8c10}yQGcSr}(T$2Mz
zi|Qdv5P!o01`Q(v3xyaL*WeJKOHCErJpEjBfzELWadh%=RWP(LSBUZS3v=}GbkPfP
zbn%Q(Ff=ezfGY@4uz=|{H&t-<u>$K4aCG)|baw^%&d9(RMX|9$fa7M(vSwib2$)_;