From 62422cd4ce3533c896220ecaf4eaf54514fcdbbe Mon Sep 17 00:00:00 2001
From: Frank Halasz <frank@halasz.org>
Date: Mon, 7 Aug 2023 13:35:25 -0700
Subject: [PATCH] Add changes from PR#1307 (@masinter). Can't easily merge
 PR#1307 in directly because MAKEINIT has moved.  These changes set
 OK.TO.MODIFYFNS to T for all loadups to prevent loadups asking if its OK to
 modify system functions

---
 internal/loadups/MAKEINIT      |  59 +++++++++++++++++----------------
 internal/loadups/MAKEINIT.LCOM | Bin 23471 -> 23879 bytes
 2 files changed, 30 insertions(+), 29 deletions(-)

diff --git a/internal/loadups/MAKEINIT b/internal/loadups/MAKEINIT
index f4f13448..cae408c3 100644
--- a/internal/loadups/MAKEINIT
+++ b/internal/loadups/MAKEINIT
@@ -1,12 +1,11 @@
 (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
 
-
(FILECREATED " 3-Aug-2023 17:37:51" {DSK}<home>frank>il>medley>gmedley>sources>MAKEINIT.;7
 54420  
-
-      :EDIT-BY "frank"
+
(FILECREATED " 7-Aug-2023 13:31:49" {DSK}<home>frank>il>medley>gmedley>internal>loadups>MAKEINIT.;4
 54490  
 
       :CHANGES-TO (FNS MAKEINITGREET)
 
-      :PREVIOUS-DATE "30-Jul-2023 23:39:21" {DSK}<home>frank>il>medley>gmedley>sources>MAKEINIT.;6)
+      :PREVIOUS-DATE " 3-Aug-2023 17:37:51" 
+{DSK}<home>frank>il>medley>gmedley>internal>loadups>MAKEINIT.;1)
 
 
 (PRETTYCOMPRINT MAKEINITCOMS)
@@ -90,11 +89,13 @@
     (* ;; "")

                                                              (* Versions are Lisp Microcode Bcpl)

     (MEDLEY-INIT-VARS)
-    (DORENAME 'I)
-    (DORENAME 'R)
-    (DLFIXINIT
 (MAKEINIT
 '(39424 5682 11008)
-                      SYSOUTFILE NIL DIRECTORIES DISPLAYFONTDIRECTORIES)
-           DLINITFILE])
+    (RESETLST
+        (RESETSAVE OK.TO.MODIFY.FNS T)
+        (DORENAME 'I)
+        (DORENAME 'R)
+        (DLFIXINIT
 (MAKEINIT
 '(39424 5682 11008)
+                          SYSOUTFILE NIL DIRECTORIES DISPLAYFONTDIRECTORIES)
+               DLINITFILE))])
 )
 
 (FILESLOAD (SOURCE)
@@ -1050,25 +1051,25 @@ DONTCOPY
        FPTOVP NEWFPFROMOLD VMEMFILE VMEMFILEX)
 )
 (DECLARE%: DONTCOPY
-  (FILEMAP (NIL (3867 4652 (MAKEINITGREET 3877 . 4650)) (4835 11220 (LOADMAKEINIT 4845 . 6048) (
-LOADMKIFILES 6050 . 6365) (RELOAD 6367 . 6850) (MAKEINIT 6852 . 10512) (MKI.START 10514 . 11218)) (
-11298 17016 (MKI.PASSFILE 11308 . 14918) (SCRATCHARRAY 14920 . 15569) (DOFORM 15571 . 16248) (
-CONSTFORMP 16250 . 16484) (NOTICECOMS 16486 . 16794) (EVALFORMAKEINIT 16796 . 17014)) (17017 19137 (
-I.ADDTOVAR 17027 . 17121) (I.DECLARE%: 17123 . 17399) (I.DEFINE-FILE-INFO 17401 . 17591) (
-I.FILECREATED 17593 . 17967) (I.PUTPROPS 17969 . 18082) (I.RPAQ 18084 . 18305) (I.RPAQQ 18307 . 18503)
- (I.RPAQ? 18505 . 18720) (I.SETTOPVAL 18722 . 18954) (I.NOUNDO 18956 . 19135)) (19773 25989 (
-I.ATOMNUMBER 19783 . 20274) (I.\ATOMCELL 20276 . 22029) (I.FIXUPNUM 22031 . 22956) (I.FIXUPPTR 22958
- . 23439) (I.FIXUPSYM 23441 . 24497) (I.WORDSPERNAMEENTRY 24499 . 25254) (I.SETSTKNTOFFSET 25256 . 
-25987)) (26021 27529 (MKI.ATOM 26031 . 26227) (MKI.IEEE 26229 . 27527)) (27626 28391 (MKI.DSET 27636
- . 27919) (MKI.ADDTO 27921 . 28106) (MKI.PUTPROP 28108 . 28389)) (28565 29117 (DUMPVP 28575 . 28672) (
-BOUTZEROS 28674 . 28753) (BIN16 28755 . 28936) (BOUT16 28938 . 29115)) (30008 52742 (DLFIXINIT 30018
- . 30993) (DLSORTSYSOUTPAGES 30995 . 36121) (DLNEXTFP 36123 . 36460) (DLLOCKEDPAGEP 36462 . 36676) (
-DLSETLOCKBIT 36678 . 36940) (DLCOPYPAGEMAP 36942 . 39993) (DLCOPYVMPAGE 39995 . 40385) (
-DLADDPAGEMAPENTRIES 40387 . 41202) (ASSIGNFILEPAGE 41204 . 42437) (ASSIGNFILEPAGERANGE 42439 . 42846) 
-(DLDUMPSYSOUT 42848 . 44600) (DLDUMPFPTOVP 44602 . 45641) (DLDUMPPAGEMAPS 45643 . 46343) (
-DLDUMPVMEMPAGES 46345 . 47001) (DLSETBOOTPTR 47003 . 47233) (DLDUMPARRAY 47235 . 47622) (
-DLMARKASDUMPED 47624 . 48077) (DLDUMPVMEMPAGE 48079 . 48767) (INSTALLDOMINO 48769 . 49416) (
-INSTALLDOMINO.DIRECT 49418 . 50570) (INSTALLNEWDOMINO 50572 . 52740)) (52764 54121 (DLPRINTFPTOVP 
-52774 . 53063) (PRINTPRIMARYMAP 53065 . 53779) (DLREADPAGEOFWORDS 53781 . 53948) (SETDIF 53950 . 54119
+  (FILEMAP (NIL (3862 4722 (MAKEINITGREET 3872 . 4720)) (4905 11290 (LOADMAKEINIT 4915 . 6118) (
+LOADMKIFILES 6120 . 6435) (RELOAD 6437 . 6920) (MAKEINIT 6922 . 10582) (MKI.START 10584 . 11288)) (
+11368 17086 (MKI.PASSFILE 11378 . 14988) (SCRATCHARRAY 14990 . 15639) (DOFORM 15641 . 16318) (
+CONSTFORMP 16320 . 16554) (NOTICECOMS 16556 . 16864) (EVALFORMAKEINIT 16866 . 17084)) (17087 19207 (
+I.ADDTOVAR 17097 . 17191) (I.DECLARE%: 17193 . 17469) (I.DEFINE-FILE-INFO 17471 . 17661) (
+I.FILECREATED 17663 . 18037) (I.PUTPROPS 18039 . 18152) (I.RPAQ 18154 . 18375) (I.RPAQQ 18377 . 18573)
+ (I.RPAQ? 18575 . 18790) (I.SETTOPVAL 18792 . 19024) (I.NOUNDO 19026 . 19205)) (19843 26059 (
+I.ATOMNUMBER 19853 . 20344) (I.\ATOMCELL 20346 . 22099) (I.FIXUPNUM 22101 . 23026) (I.FIXUPPTR 23028
+ . 23509) (I.FIXUPSYM 23511 . 24567) (I.WORDSPERNAMEENTRY 24569 . 25324) (I.SETSTKNTOFFSET 25326 . 
+26057)) (26091 27599 (MKI.ATOM 26101 . 26297) (MKI.IEEE 26299 . 27597)) (27696 28461 (MKI.DSET 27706
+ . 27989) (MKI.ADDTO 27991 . 28176) (MKI.PUTPROP 28178 . 28459)) (28635 29187 (DUMPVP 28645 . 28742) (
+BOUTZEROS 28744 . 28823) (BIN16 28825 . 29006) (BOUT16 29008 . 29185)) (30078 52812 (DLFIXINIT 30088
+ . 31063) (DLSORTSYSOUTPAGES 31065 . 36191) (DLNEXTFP 36193 . 36530) (DLLOCKEDPAGEP 36532 . 36746) (
+DLSETLOCKBIT 36748 . 37010) (DLCOPYPAGEMAP 37012 . 40063) (DLCOPYVMPAGE 40065 . 40455) (
+DLADDPAGEMAPENTRIES 40457 . 41272) (ASSIGNFILEPAGE 41274 . 42507) (ASSIGNFILEPAGERANGE 42509 . 42916) 
+(DLDUMPSYSOUT 42918 . 44670) (DLDUMPFPTOVP 44672 . 45711) (DLDUMPPAGEMAPS 45713 . 46413) (
+DLDUMPVMEMPAGES 46415 . 47071) (DLSETBOOTPTR 47073 . 47303) (DLDUMPARRAY 47305 . 47692) (
+DLMARKASDUMPED 47694 . 48147) (DLDUMPVMEMPAGE 48149 . 48837) (INSTALLDOMINO 48839 . 49486) (
+INSTALLDOMINO.DIRECT 49488 . 50640) (INSTALLNEWDOMINO 50642 . 52810)) (52834 54191 (DLPRINTFPTOVP 
+52844 . 53133) (PRINTPRIMARYMAP 53135 . 53849) (DLREADPAGEOFWORDS 53851 . 54018) (SETDIF 54020 . 54189
 )))))
 STOP
diff --git a/internal/loadups/MAKEINIT.LCOM b/internal/loadups/MAKEINIT.LCOM
index 2a2c0084cb2ad6a9865cfe9dba267d11dbda2ec3..004bbd16bc05641c06360483d5644ff5a21de211 100644
GIT binary patch
delta 858
zcmaJ=%Wl&^6tzPtK_nz3sD!e*q_iYOvF71NY(%LQk0U331ltXX1QJnGm57j3kS-7s
z5i7*5m4ARgV37ra4NErt57vA^8M_3cg6hT0xijZJ&b{MLpT+NA#iQ<Zt!f_bR|z5%
zFf}MK5I%mc&W7XZ-pg@+v^ARa2Zsl*wmh@N9N&qhdvXOzu<S+*MKLHX!E|@>;$U=V
z0K+j9N@lwq!7@>jq!JAJ)4joe1L&nnp=>)YtB0&;#>_g$;?-e8))OqQuU%9g6ckz3
zQSwg2H-Ik5(+sK^3O;_barXj$Tq!KHHbTbY<fpx!JZKbW2qMQYHbWM%*bYK3+5{Ug
zM7=23iPO5dNx*WVwrlq6z>h5_Wc4@*9TxE`3YMETFlAOiXbE{i+!y#axRS2L3=az_
z{?;z;3Ync<ouOHJGf9_+&z`1Rcy%S+qRi!*P}X>I*LJ#T5>QoGr~p|5D+rlydJO0i
zCIq;YIB0iF7chdx!r*gIbgtxY`7!}J1WLdGtU}O|;z05O%dvZs?MER0bHqb{LZD1_
znaH51H3AqTRI4PX;%d@uYAabYlB4GB!rCQK$X!mgBww2Fq?YwLYx9o($nh=UZ}YL&
zah)gzT>GOdn~sSP!aTpnESL4FsrG8e3?rT&)AND&;rujrf<=9PB5&tcbq(5lWG2G8
y$`Q`c{FeSU&lw-@|H$PCnt#}SpW7fv<^-7&2%;QO-iR|-{^$I5<y^J?`sObmMA2>l

delta 614
zcmZutO=}cE5S>|8&;cP310Kr};tn!PS9kC1P79hzx<^`PKbV<F_GZY&D2Z7~vIh|o
z$R*b-IruX?3@G{syoi6pzhSp=br0Kzs#o-@s`u*qH}}&Q_i}5Qg~?<uq=YiSw%|l?
zI^B=Xj>nUuo!#Td-Q>B_JzX{*wFB^h{$~>ugbE(}aI!Og`|jYu2;Llm=ck)l2J^&b
zv+2WV`($^tXh4hlf!9cNrZ#ewlu8;B3$H%A%hS{Q4;RRQ7Uz_JCzRA>xIP5`)zS9h
zzJGP@;vGi9XOn|#JCq3)3yRYZs|)Nzfj9H^G*_wwAv<0}1A@$~VXFu<5GaO4fAhLb
zO(}IT$dX~&@0C*LYNPDuS``5}+;N@SO~<@F8*a^`GshX*dhPW~n+CUU*pzrSE;$Vz
zo29AVvU`Cum<a>QLH2XiOS%eh4s+-#nW<rDJHi)9UYHxQ$cX!=2rz~mV$kLXR%i?j
z7IQPN6?G^e64D8(kM$qul4=yK)mKOx20$SpNFsyq530V3)4E}Fp8TrS5UYFZ7qwM1
ZN(R6!0hvL}oat{X(pf83Kjr(ozX3Gpk)Hqn