From ae07d213f030bbbc64f4f4bcda1cfaa3666f7990 Mon Sep 17 00:00:00 2001
From: Larry Masinter <LMM@acm.org>
Date: Sat, 25 Jun 2022 18:03:00 -0700
Subject: [PATCH] mark \ fns and SI fns as potentially unsafe to run
 interpreted

---
 sources/MACHINEINDEPENDENT      |  70 ++++++++++++++++----------------
 sources/MACHINEINDEPENDENT.LCOM | Bin 40967 -> 40966 bytes
 2 files changed, 36 insertions(+), 34 deletions(-)

diff --git a/sources/MACHINEINDEPENDENT b/sources/MACHINEINDEPENDENT
index 0c737e0d..0a9a44ed 100644
--- a/sources/MACHINEINDEPENDENT
+++ b/sources/MACHINEINDEPENDENT
@@ -1,13 +1,10 @@
 (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
 
-
(FILECREATED "22-May-2022 13:19:56" 
-{DSK}<users>kaplan>local>medley3.5>working-medley>sources>MACHINEINDEPENDENT.;34
 117192 
+
(FILECREATED "25-Jun-2022 17:45:35" {DSK}<home>larry>medley>sources>MACHINEINDEPENDENT.;3
 117309 
 
-      :CHANGES-TO (FNS LISPFILETYPE LISPSOURCEFILEP)
-                  (VARS MACHINEINDEPENDENTCOMS)
+      :CHANGES-TO (FNS UNSAFE.TO.MODIFY)
 
-      :PREVIOUS-DATE "19-May-2022 16:22:57" 
-{DSK}<Users>kaplan>Local>medley3.5>working-medley>sources>MACHINEINDEPENDENT.;27)
+      :PREVIOUS-DATE "22-May-2022 13:19:56" {DSK}<home>larry>medley>sources>MACHINEINDEPENDENT.;1)
 
 
 (* ; "
@@ -1300,16 +1297,21 @@ WRITEFILE OF ")
     (AND RESETSTATE (DELFILE STREAM])
 
 (UNSAFE.TO.MODIFY

-  [LAMBDA (FN OPTION)
                                    (* lmm "31-Jul-85 02:06")

-    (if
 (FMEMB FN UNSAFE.TO.MODIFY.FNS)
+  [LAMBDA (FN OPTION)
                                      (* ; "Edited 25-Jun-2022 17:45 by larry")

+                                                             (* lmm "31-Jul-85 02:06")

+    (if
 (OR (FMEMB FN UNSAFE.TO.MODIFY.FNS)
+            (EQ (CHCON1 FN)
+                (CHARCODE \))
+            (EQ (CL:SYMBOL-PACKAGE FN)
+                (CL:FIND-PACKAGE "SYSTEM")))
         then
 (PRINTOUT T "Warning: " FN " may be unsafe to " (OR OPTION "modify")
-                        " -- continue? ")
-              (if
 (EQ (if
 (GETD 'ASKUSER)
-                              then
 (ASKUSER DWIMWAIT 'N)
-                            else
 (READ T))
-                          'Y)
-                  then
 NIL
-                else
 T])
+                    " -- continue? ")
+             (if
 (EQ (if
 (GETD 'ASKUSER)
+                         then
 (ASKUSER DWIMWAIT 'N)
+                       else
 (READ T))
+                     'Y)
+                 then
 NIL
+               else
 T])
 )
 
 (RPAQQ UNSAFE.TO.MODIFY.FNS

@@ -2454,23 +2456,23 @@ This has little hope of working any more.")

 (PUTPROPS MACHINEINDEPENDENT COPYRIGHT ("Venue & Xerox Corporation" T 1983 1984 1985 1986 1987 1988 
 1989 1990 1991 2021 2022))
 (DECLARE%: DONTCOPY
-  (FILEMAP (NIL (12928 26353 (LOAD? 12938 . 14789) (FILESLOAD 14791 . 15080) (DOFILESLOAD 15082 . 22708)
- (FINDFILE-WITH-EXTENSIONS 22710 . 25909) (READ-FILECREATED 25911 . 26351)) (26470 31791 (DMPHASH 
-26480 . 28074) (HASHOVERFLOW 28076 . 31789)) (32547 63884 (BKBUFS 32557 . 33676) (CHANGENAME 33678 . 
-33939) (CHNGNM 33941 . 35789) (CLBUFS 35791 . 37064) (DEFINE 37066 . 37790) (FNS.PUTDEF 37792 . 41207)
- (EQMEMB 41209 . 41391) (EQUALN 41393 . 42222) (FNCHECK 42224 . 44231) (FNTYP1 44233 . 44330) (LCSKIP 
-44332 . 45176) (MAPRINT 45178 . 46124) (MKLIST 46126 . 46276) (NAMEFIELD 46278 . 47803) (NLIST 47805
- . 48140) (PRINTBELLS 48142 . 48268) (PROMPTCHAR 48270 . 50160) (RAISEP 50162 . 50423) (READFILE 50425
- . 52769) (READLINE 52771 . 58211) (REMPROPLIST 58213 . 59101) (RESETBUFS 59103 . 59553) (TAB 59555 . 
-60151) (UNSAVED1 60153 . 61258) (WRITEFILE 61260 . 63002) (CLOSE-AND-MAYBE-DELETE 63004 . 63348) (
-UNSAFE.TO.MODIFY 63350 . 63882)) (66208 69152 (FILEDATE 66218 . 69150)) (69382 96484 (FILEMAP 69392 . 
-69862) (\PARSE-FILE-HEADER 69864 . 73679) (GET-ENVIRONMENT-AND-FILEMAP 73681 . 75908) (
-LOOKUP-ENVIRONMENT-AND-FILEMAP 75910 . 78101) (GET-FILEMAP-FROM-FILECREATED 78103 . 78927) (
-\FILEMAP-HASHOVERFLOW 78929 . 83593) (FLUSHFILEMAPS 83595 . 84218) (LISPSOURCEFILEP 84220 . 85511) (
-LISPFILETYPE 85513 . 88762) (GETFILEMAP 88764 . 89183) (PUTFILEMAP 89185 . 91376) (UPDATEFILEMAP 91378
- . 96482)) (97150 100736 (LVLPRINT 97160 . 97333) (LVLPRIN1 97335 . 97517) (LVLPRIN2 97519 . 97751) (
-LVLPRIN 97753 . 98767) (LVLPRIN0 98769 . 100734)) (100770 105687 (FLUSHRIGHT 100780 . 101595) (
-PRINTPARA 101597 . 102695) (PRINTPARA1 102697 . 105685)) (105723 108008 (SUBLIS 105733 . 106341) (
-SUBPAIR 106343 . 107571) (DSUBLIS 107573 . 108006)) (108031 108631 (CONSTANTOK 108041 . 108629)) (
-110384 111089 (NLAMBDA.ARGS 110394 . 111087)))))
+  (FILEMAP (NIL (12812 26237 (LOAD? 12822 . 14673) (FILESLOAD 14675 . 14964) (DOFILESLOAD 14966 . 22592)
+ (FINDFILE-WITH-EXTENSIONS 22594 . 25793) (READ-FILECREATED 25795 . 26235)) (26354 31675 (DMPHASH 
+26364 . 27958) (HASHOVERFLOW 27960 . 31673)) (32431 64001 (BKBUFS 32441 . 33560) (CHANGENAME 33562 . 
+33823) (CHNGNM 33825 . 35673) (CLBUFS 35675 . 36948) (DEFINE 36950 . 37674) (FNS.PUTDEF 37676 . 41091)
+ (EQMEMB 41093 . 41275) (EQUALN 41277 . 42106) (FNCHECK 42108 . 44115) (FNTYP1 44117 . 44214) (LCSKIP 
+44216 . 45060) (MAPRINT 45062 . 46008) (MKLIST 46010 . 46160) (NAMEFIELD 46162 . 47687) (NLIST 47689
+ . 48024) (PRINTBELLS 48026 . 48152) (PROMPTCHAR 48154 . 50044) (RAISEP 50046 . 50307) (READFILE 50309
+ . 52653) (READLINE 52655 . 58095) (REMPROPLIST 58097 . 58985) (RESETBUFS 58987 . 59437) (TAB 59439 . 
+60035) (UNSAVED1 60037 . 61142) (WRITEFILE 61144 . 62886) (CLOSE-AND-MAYBE-DELETE 62888 . 63232) (
+UNSAFE.TO.MODIFY 63234 . 63999)) (66325 69269 (FILEDATE 66335 . 69267)) (69499 96601 (FILEMAP 69509 . 
+69979) (\PARSE-FILE-HEADER 69981 . 73796) (GET-ENVIRONMENT-AND-FILEMAP 73798 . 76025) (
+LOOKUP-ENVIRONMENT-AND-FILEMAP 76027 . 78218) (GET-FILEMAP-FROM-FILECREATED 78220 . 79044) (
+\FILEMAP-HASHOVERFLOW 79046 . 83710) (FLUSHFILEMAPS 83712 . 84335) (LISPSOURCEFILEP 84337 . 85628) (
+LISPFILETYPE 85630 . 88879) (GETFILEMAP 88881 . 89300) (PUTFILEMAP 89302 . 91493) (UPDATEFILEMAP 91495
+ . 96599)) (97267 100853 (LVLPRINT 97277 . 97450) (LVLPRIN1 97452 . 97634) (LVLPRIN2 97636 . 97868) (
+LVLPRIN 97870 . 98884) (LVLPRIN0 98886 . 100851)) (100887 105804 (FLUSHRIGHT 100897 . 101712) (
+PRINTPARA 101714 . 102812) (PRINTPARA1 102814 . 105802)) (105840 108125 (SUBLIS 105850 . 106458) (
+SUBPAIR 106460 . 107688) (DSUBLIS 107690 . 108123)) (108148 108748 (CONSTANTOK 108158 . 108746)) (
+110501 111206 (NLAMBDA.ARGS 110511 . 111204)))))
 STOP
diff --git a/sources/MACHINEINDEPENDENT.LCOM b/sources/MACHINEINDEPENDENT.LCOM
index e22fa5b9121cd83717567767770b7cacf81c39b9..801014d2acc4095ccb408780149007a65e0557b8 100644
GIT binary patch
delta 639
zcmZ8eO>fgc6ijj>91#a35Tiw)=3vWf$N5-LTi0H<CW#%z2_aHZ<tA=xaBSoxhX|ou
z5J;Rr`6>AWJ@I2W^(U}|v_#p{ywU8NdGCF@E_}T%{CN97mtM~jNmW!8w93jl)AXMo
z9^Jo6$Kie)WZ8Uwc~*F~&`KccwpL+Eg_Uar=UF&R#~-6O9AS7BB$wgjIYY7M`i9Nr
zt|zxV%drQD5|Dlv3vGyL3VRmEVTQ?klFp{sZY|3)!6=xDes`AEI-kO*!t@F$758kX
z$;}Qoy4?D&+8%=7ljS!)zuFn(r3Ol?no>uRnJ0#O%zdfrVb6Ab>_#quwLAQc<Mn*W
z5>87u|8#dTdAj;iU<WV0=kmG2Vf*n4hxc;g#iuu`hyP&uw_cMs%U{O(1yyy3<dz6h
zgW)%NKJS1kDo!nKJ1)1{sH<pq9G9Y|Y(Pcd0A1UF@-3rLm`x^rT2k9E8^$q*x~BX=
z>&R=~kyL?sVtNagiv3Yd!9XO?;0o^=tiIFg8%`JX>TM>WLahP<Ny0Eqrcp8r4@6ll
zgN)NrbTKE;>w*{ubDW2mC6nM{eOm%e@ckf5qU4eZg(}+k1Ha2#q_p~d^yJ+iKq#mz

delta 660
zcma)4Uu)A)9G!iVzWO8x9;1VHkkWh8B+X@XX34D!OVf})s{?(=+Du~8q@*ocM20W=
zsKbx4FR*Xp*YH*<bTGk}ALn<tzr#6)`}MZ=?Y8#g^&=_|lC@0Rl!7RX7);f!r;qnn
zi?mwwrpY`{ie6rhle{-eCwaP7T59h@SxvLzoqYZM#Z{+?x<rf}6@yX22$gVArQ>oo
z&+>GF^y9o*>@&Dd==U9$N9R6ARzT{<u8ZCKR;wjpk}Sp1y~2jntT#3iR=~}u&uvKb
zo)8l1pX~7T^Wpy|0U<guD42C(darmWM?*B~eJ{N0dJ`cW#(~8*F8n4MXJ!y$U|J`R
z#~sh+J{QA_tl=PRg82bIbB1v!+h)XZw=0cN%2a)0_TZ1(c(-@=pS?e?QT^swjU7GA
z_a5xkUiwddelg!)87f36Ho9Gy;b|Q506N7RTR8Q&?L(vR1IHs!+gqThTR@d9AX`SX
zOxkUnqpQG!-i1AK1|!pnpy_|r#T%#^B*-$xWnnC{VwE0=z0-j-D<|3IS^_l$F-z9C
cNU<sw$z_UVDJVgYlBy6NiQ(qg@zb}z0rJwfaR2}S