From 08880d550e9ac65db0671066dc718aafd9c7ff85 Mon Sep 17 00:00:00 2001
From: Frank Halasz <frank@halasz.org>
Date: Mon, 17 Jul 2023 16:38:10 -0700
Subject: [PATCH] Move exports.all to the loadups directory; add a
 LOADUPSDIRECTORIES to MEDLEY-INIT-VARS

---
 .github/workflows/buildLoadup.yml |   2 +-
 scripts/copy-all.sh               |   2 +-
 sources/MEDLEYDIR                 |  15 ++++++++-------
 sources/MEDLEYDIR.LCOM            | Bin 4873 -> 4904 bytes
 4 files changed, 10 insertions(+), 9 deletions(-)

diff --git a/.github/workflows/buildLoadup.yml b/.github/workflows/buildLoadup.yml
index 55c5efdd..30699042 100644
--- a/.github/workflows/buildLoadup.yml
+++ b/.github/workflows/buildLoadup.yml
@@ -236,7 +236,7 @@ jobs:
             medley/loadups/full.sysout               \
             medley/loadups/apps.sysout               \
             medley/loadups/whereis.hash              \
-            medley/library/exports.all
+            medley/loadups/exports.all
 
       - name: Build runtime release tar
         run: |
diff --git a/scripts/copy-all.sh b/scripts/copy-all.sh
index 348e879b..3c208166 100755
--- a/scripts/copy-all.sh
+++ b/scripts/copy-all.sh
@@ -15,7 +15,7 @@ fi
 ./scripts/cpv tmp/full.sysout loadups
 ./scripts/cpv tmp/lisp.sysout loadups
 ./scripts/cpv tmp/whereis.hash loadups
-./scripts/cpv tmp/exports.all library
+./scripts/cpv tmp/exports.all loadups
 if [ "${1}" = "-apps" ]; then
     ./scripts/cpv tmp/apps.sysout loadups
 fi
diff --git a/sources/MEDLEYDIR b/sources/MEDLEYDIR
index e19dba87..33de3b4a 100644
--- a/sources/MEDLEYDIR
+++ b/sources/MEDLEYDIR
@@ -1,12 +1,11 @@
 (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
 
-
(FILECREATED "22-Apr-2023 11:53:53" {DSK}<home>larry>il>medley>sources>MEDLEYDIR.;2
 9876   
-
-      :EDIT-BY "lmm"
+
(FILECREATED "17-Jul-2023 16:13:10" {DSK}<home>frank>il>medley>gmedley>sources>MEDLEYDIR.;2
 9970   
 
       :CHANGES-TO (VARS MEDLEY-INIT-VARS)
 
-      :PREVIOUS-DATE "22-Nov-2022 20:50:20" {DSK}<home>larry>il>medley>sources>MEDLEYDIR.;1)
+      :PREVIOUS-DATE "22-Apr-2023 11:53:53" {DSK}<home>frank>il>medley>gmedley>sources>MEDLEYDIR.;1
+)
 
 
 (PRETTYCOMPRINT MEDLEYDIRCOMS)
@@ -192,12 +191,14 @@
                               (CONS LOGINHOST/DIR '("INIT"]
                RESET)
         (XCL::*WHERE-IS-CASH-FILES* (MEDLEYDIR '("loadups")
-                                           "whereis.hash" NIL T))))
+                                           "whereis.hash" NIL T))
+        (LOADUPSDIRECTORIES (MEDLEYDIR '("loadups")
+                                   NIL NIL T))))
 (DECLARE%: EVAL@COMPILE DOCOPY 
 
 (ADDTOVAR GLOBALVARS
 MEDLEYDIR MEDLEY-INIT-VARS \SAVE.MEDLEYDIR DIRECTORIES)
 )
 (DECLARE%: DONTCOPY
-  (FILEMAP (NIL (1474 7901 (MEDLEY-INIT-VARS 1484 . 4962) (MEDLEYDIR 4964 . 6919) (MEDLEYSUBSTDIR 6921
- . 7899)))))
+  (FILEMAP (NIL (1469 7896 (MEDLEY-INIT-VARS 1479 . 4957) (MEDLEYDIR 4959 . 6914) (MEDLEYSUBSTDIR 6916
+ . 7894)))))
 STOP
diff --git a/sources/MEDLEYDIR.LCOM b/sources/MEDLEYDIR.LCOM
index 2d8de6741819fb4807c31e15c600a130e277b020..89fb6db2a8cadaa001351a1652de95b1a0446e2e 100644
GIT binary patch
delta 320
zcmeBFTcI`~+}Y4v*Q+!~*T}%gSi#WD%Fx)#$W%!|Ln%2ww;(eoHANvmPeDn6tJ)>l
zyVfQnKR4Abttc@s+b%Q5E;ltLC$-Wped0vfdL<(RU9ZGEh&e_^R;C741_nwBB_LyR
z)Ke5P^Axz090LM^6_6F`>FFscq$HLAt-)r1iIOIlhMT94t8<X6V~DGZf)b`{4S}{)
zyGY@4oiw|GrKP!n0@vhOjOLS_7=>jCct>ipFw-Id4h0P#e@B<lfXVWFO1$}rDWwI)
QN}8Gqex5#)*9ye|09cq?HUIzs

delta 358
zcmZ3X)~Plj+{(yE*Rh~T*T}%gSi#WH%G4N$loT|SlJj#5GILT>6!P;FloYC6g1u{P
zGV*g%?Q#-}iYo0gbL=JuFiO{JDsU+w8)0B>WoTe!YNDi&RFn!gBRL~6FFmzb)k+~R
zza%3wFI^!MXli(B4p2p^LP@@YTWL;CYLP;5WpRFKi2|~LdU|?F3S23PB|xWO*kopB
zWnihK$)(}u>Er4g<mwpW>Vm2Y;Uyeikd?PEH&d{3b@2?*b&3S~CMP#nNx{n5!_m*(
wHCQ*qfAW7G$;s0gg*E*0%Rs?oq+kT}pn;W<0nlAI43*manQ@W8<SRlU03CN{IsgCw