mark \ fns and SI fns as potentially unsafe to run interpreted

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