From ff134ecd2352b881d259053e1275616691695718 Mon Sep 17 00:00:00 2001
From: rmkaplan <ron.kaplan@post.harvard.edu>
Date: Sun, 1 Aug 2021 21:03:24 -0700
Subject: [PATCH] Changed *DEFAULT-MAKEFILE-ENVIRONMENT* to use Interlisp rdtbl

---
 sources/PACKAGE-STARTUP      |  33 ++++++++++++++++++---------------
 sources/PACKAGE-STARTUP.LCOM | Bin 27600 -> 27650 bytes
 2 files changed, 18 insertions(+), 15 deletions(-)

diff --git a/sources/PACKAGE-STARTUP b/sources/PACKAGE-STARTUP
index 0c4798da..8f6c1055 100644
--- a/sources/PACKAGE-STARTUP
+++ b/sources/PACKAGE-STARTUP
@@ -1,9 +1,11 @@
 (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "XCL" BASE 10 FORMAT XCCS)
-
(FILECREATED "29-Jul-2021 20:33:07" 
-|{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>PACKAGE-STARTUP.;7|
 36616  
+
(FILECREATED " 1-Aug-2021 18:08:23" 
+|{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>PACKAGE-STARTUP.;9|
 36725  
 
-      |previous| |date:| "20-Jul-2021 22:53:28" 
-|{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>PACKAGE-STARTUP.;6|)
+      |changes| |to:|  (FUNCTIONS PACKAGE-ENABLE)
+
+      |previous| |date:| "29-Jul-2021 20:33:07" 
+|{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>PACKAGE-STARTUP.;8|)
 
 
 ; Copyright (c) 1986-1988, 1990-1991, 2021 by Venue & Xerox Corporation.
@@ -592,7 +594,8 @@
                               (T (PROMPTPRINT "Invalid package, reset to LISP")
                                  (SETQ *PACKAGE* (CL:FIND-PACKAGE "LISP")))))
           *PER-EXEC-VARIABLES* :TEST 'CL:EQUAL)
-   (CL:SETF *DEFAULT-MAKEFILE-ENVIRONMENT* '(:READTABLE "XCL" :PACKAGE "INTERLISP" :FORMAT :XCCS))
+   (CL:SETF *DEFAULT-MAKEFILE-ENVIRONMENT* '(:READTABLE "INTERLISP" :PACKAGE "INTERLISP" :FORMAT 
+                                                   :XCCS))
    (MOVD '\\NEW.READ.SYMBOL '\\READ.SYMBOL)
    (MOVD '\\NEW.MKATOM '\\MKATOM)
    (CL:SETF *PACKAGE* PACKAGE)
@@ -642,14 +645,14 @@
 )
 (PUTPROPS PACKAGE-STARTUP COPYRIGHT ("Venue & Xerox Corporation" 1986 1987 1988 1990 1991 2021))
 (DECLARE\: DONTCOPY
-  (FILEMAP (NIL (3072 3167 (RETURN-FIRST-OF-THREE 3072 . 3167)) (3169 3307 (
-ERROR-MISSING-EXTERNAL-SYMBOL 3169 . 3307)) (3912 4880 (CHECK-SYMBOL-NAMESTRING 3912 . 4880)) (4882 
-8043 (\\NEW.READ.SYMBOL 4882 . 8043)) (8045 9751 (\\NEW.MKATOM 8045 . 9751)) (23549 23631 (
-LITATOM.EXISTS 23549 . 23631)) (24311 25277 (NAMESTRING-CONVERSION-CLAUSE 24311 . 25277)) (25279 26528
- (CONVERT-LITATOM 25279 . 26528)) (26530 28599 (CONCOCT-SYMBOL 26530 . 28599)) (28601 28895 (
-TRANSFER-SYMBOL 28601 . 28895)) (28897 29605 (INTERN-LITATOM 28897 . 29605)) (29607 30234 (
-\\LITATOM.EATCHARS 29607 . 30234)) (30236 30513 (PACKAGE-INIT 30236 . 30513)) (30515 31092 (
-PACKAGE-CLEAR 30515 . 31092)) (31094 32489 (PACKAGE-MAKE 31094 . 32489)) (32491 33812 (
-PACKAGE-HIERARCHY-INIT 32491 . 33812)) (33814 35369 (PACKAGE-ENABLE 33814 . 35369)) (35371 36014 (
-PACKAGE-DISABLE 35371 . 36014)) (36061 36087 (ID 36061 . 36087)))))
+  (FILEMAP (NIL (3123 3218 (RETURN-FIRST-OF-THREE 3123 . 3218)) (3220 3358 (
+ERROR-MISSING-EXTERNAL-SYMBOL 3220 . 3358)) (3963 4931 (CHECK-SYMBOL-NAMESTRING 3963 . 4931)) (4933 
+8094 (\\NEW.READ.SYMBOL 4933 . 8094)) (8096 9802 (\\NEW.MKATOM 8096 . 9802)) (23600 23682 (
+LITATOM.EXISTS 23600 . 23682)) (24362 25328 (NAMESTRING-CONVERSION-CLAUSE 24362 . 25328)) (25330 26579
+ (CONVERT-LITATOM 25330 . 26579)) (26581 28650 (CONCOCT-SYMBOL 26581 . 28650)) (28652 28946 (
+TRANSFER-SYMBOL 28652 . 28946)) (28948 29656 (INTERN-LITATOM 28948 . 29656)) (29658 30285 (
+\\LITATOM.EATCHARS 29658 . 30285)) (30287 30564 (PACKAGE-INIT 30287 . 30564)) (30566 31143 (
+PACKAGE-CLEAR 30566 . 31143)) (31145 32540 (PACKAGE-MAKE 31145 . 32540)) (32542 33863 (
+PACKAGE-HIERARCHY-INIT 32542 . 33863)) (33865 35478 (PACKAGE-ENABLE 33865 . 35478)) (35480 36123 (
+PACKAGE-DISABLE 35480 . 36123)) (36170 36196 (ID 36170 . 36196)))))
 STOP
diff --git a/sources/PACKAGE-STARTUP.LCOM b/sources/PACKAGE-STARTUP.LCOM
index 6d98a6e749b271c57c341f6fca3f2985004bb13e..5bae00caaebf16b4d3d8c138c38ff387f88652f2 100644
GIT binary patch
delta 247
zcmca`ow4Z#<AgX71w&oO(sW%T10zEPLklYd3o9eziAB+pmNl9RO2!7dUZpuuNn<NR
zBP%0|iO=MMk;V1&^pq58QW8s2Q);m3Fg8}w<kE2S^l^0#a&-)Gbx}~lX6NK^MsIh^
z8U<rBb0brQn&gbcy!6!K8iksYe5)D-4KBA(Kj#onf4^Xb07qwUM|W3US3gH5A6HF<
tnu4O#vdsKakYbQCtZF7ZGA1%wY?fzoO6K(R3vmtd@eB^woRXTu1^^l^L~sBA

delta 200
zcmZp=!Fb_1<AgX7BTHSc(i~kQ10zEPBLgdAV=H5WiAB+p<~5oMN=C*ANkc;`0~0G#
zvx(2-Y>~zF^z@VzYElwQQd4R$b(mTi8YpRUX}Ed%xH<>9I)=EqOn%9jXkuQYU~Fb)
zXr@q8P?TDhnO|C512M#^MuAJo$N*ulk&%_Dv6Yd9lEUODMh`}_&E8B-$&+tnNp4<~
H8pZ|yjt4iu