Simplify EXPORTS.ALL loading commands (#1281)

Standard FILES commands now do the right thing, no need for extra junk

lispusers/PSEUDOHOSTS

@@ -1,22 +1,20 @@
 (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
 
-
(FILECREATED "18-Jul-2023 13:12:35" {DSK}<home>frank>il>medley>gmedley>lispusers>PSEUDOHOSTS.;2
 28158  
+
(FILECREATED "19-Jul-2023 09:17:48" {WMEDLEY}<lispusers>PSEUDOHOSTS.;153
 27674  
 
-      :CHANGES-TO (VARS PSEUDOHOSTSCOMS)
-                  (FNS PSEUDOHOST PSEUDOHOSTP PSEUDOHOSTS TARGETHOST TRUEFILENAME PSEUDOFILENAME 
-                       EXPAND.PH CONTRACT.PH SLASHIT UNSLASHIT GETHOSTINFO.PH OPENFILE.PH 
-                       GETFILENAME.PH DIRECTORYNAMEP.PH CLOSEFILE.PH REOPENFILE.PH DELETEFILE.PH 
-                       OPENP.PH UNREGISTERFILE.PH REGISTERFILE.PH GENERATEFILES.PH GETFILEINFO.PH 
-                       SETFILEINFO.PH NEXTFILEFN.PH FILEINFOFN.PH RENAMEFILE.PH)
+      :EDIT-BY rmk
 
-      :PREVIOUS-DATE "31-Oct-2022 23:32:43" 
-{DSK}<home>frank>il>medley>gmedley>lispusers>PSEUDOHOSTS.;1)
+      :CHANGES-TO (RECORDS PHDEVICE PHGENFILESTATE TARGETDEVICE)
+                  (MACROS PSEUDOHOST.NAME PSEUDOHOST.TARGETVAL)
+                  (VARS PSEUDOHOSTSCOMS)
+
+      :PREVIOUS-DATE "18-Jul-2023 13:12:35" {WMEDLEY}<lispusers>PSEUDOHOSTS.;152)
 
 
 (PRETTYCOMPRINT PSEUDOHOSTSCOMS)
 
 (RPAQQ PSEUDOHOSTSCOMS

-       [
+       (
         (* ;; "Public entries")

 
         (FNS PSEUDOHOST PSEUDOHOSTP PSEUDOHOSTS TARGETHOST TRUEFILENAME PSEUDOFILENAME)
@@ -32,9 +30,8 @@
            (MOVD 'GETHOSTINFO.PH 'GETHOSTINFO))
         (DECLARE%: EVAL@COMPILE DONTCOPY (RECORDS PHDEVICE PHGENFILESTATE TARGETDEVICE)
                (MACROS PSEUDOHOST.NAME PSEUDOHOST.TARGETVAL)
-               (P (CL:UNLESS (GETP 'EXPORTS.ALL 'FILE)
-                      (FILESLOAD (FROM LOADUPS)
-                             EXPORTS.ALL))])
+               (FILES (FROM LOADUPS)
+                      EXPORTS.ALL))))
 
 
 
@@ -526,18 +523,17 @@
 )
 
 
-(CL:UNLESS (GETP 'EXPORTS.ALL 'FILE)
-    (FILESLOAD (FROM
 LOADUPS)
-           EXPORTS.ALL))
+(FILESLOAD (FROM
 LOADUPS)
+       EXPORTS.ALL)
 )
 (DECLARE%: DONTCOPY
-  (FILEMAP (NIL (1835 9871 (PSEUDOHOST 1845 . 7404) (PSEUDOHOSTP 7406 . 7919) (PSEUDOHOSTS 7921 . 8282) 
-(TARGETHOST 8284 . 8558) (TRUEFILENAME 8560 . 9247) (PSEUDOFILENAME 9249 . 9869)) (9899 17438 (
-EXPAND.PH 9909 . 11162) (CONTRACT.PH 11164 . 13829) (SLASHIT 13831 . 15399) (UNSLASHIT 15401 . 17147) 
-(GETHOSTINFO.PH 17149 . 17436)) (17439 25459 (OPENFILE.PH 17449 . 18522) (GETFILENAME.PH 18524 . 18813
-) (DIRECTORYNAMEP.PH 18815 . 19439) (CLOSEFILE.PH 19441 . 19908) (REOPENFILE.PH 19910 . 20475) (
-DELETEFILE.PH 20477 . 20761) (OPENP.PH 20763 . 21058) (UNREGISTERFILE.PH 21060 . 21602) (
-REGISTERFILE.PH 21604 . 22138) (GENERATEFILES.PH 22140 . 23184) (GETFILEINFO.PH 23186 . 23488) (
-SETFILEINFO.PH 23490 . 23689) (NEXTFILEFN.PH 23691 . 24237) (FILEINFOFN.PH 24239 . 24514) (
-RENAMEFILE.PH 24516 . 25457)))))
+  (FILEMAP (NIL (1397 9433 (PSEUDOHOST 1407 . 6966) (PSEUDOHOSTP 6968 . 7481) (PSEUDOHOSTS 7483 . 7844) 
+(TARGETHOST 7846 . 8120) (TRUEFILENAME 8122 . 8809) (PSEUDOFILENAME 8811 . 9431)) (9461 17000 (
+EXPAND.PH 9471 . 10724) (CONTRACT.PH 10726 . 13391) (SLASHIT 13393 . 14961) (UNSLASHIT 14963 . 16709) 
+(GETHOSTINFO.PH 16711 . 16998)) (17001 25021 (OPENFILE.PH 17011 . 18084) (GETFILENAME.PH 18086 . 18375
+) (DIRECTORYNAMEP.PH 18377 . 19001) (CLOSEFILE.PH 19003 . 19470) (REOPENFILE.PH 19472 . 20037) (
+DELETEFILE.PH 20039 . 20323) (OPENP.PH 20325 . 20620) (UNREGISTERFILE.PH 20622 . 21164) (
+REGISTERFILE.PH 21166 . 21700) (GENERATEFILES.PH 21702 . 22746) (GETFILEINFO.PH 22748 . 23050) (
+SETFILEINFO.PH 23052 . 23251) (NEXTFILEFN.PH 23253 . 23799) (FILEINFOFN.PH 23801 . 24076) (
+RENAMEFILE.PH 24078 . 25019)))))
 STOP