From ee4a767e728d1d723d5d0dafd3993cea04f7995d Mon Sep 17 00:00:00 2001
From: rmkaplan <ron.kaplan@post.harvard.edu>
Date: Mon, 25 May 2026 11:00:20 -0700
Subject: [PATCH] Fix bug

---
 sources/MEDLEYDIR      |  18 +++++++++---------
 sources/MEDLEYDIR.LCOM | Bin 6760 -> 6759 bytes
 2 files changed, 9 insertions(+), 9 deletions(-)

diff --git a/sources/MEDLEYDIR b/sources/MEDLEYDIR
index 627983f0..78e8cfa2 100644
--- a/sources/MEDLEYDIR
+++ b/sources/MEDLEYDIR
@@ -1,12 +1,12 @@
 (DEFINE-FILE-INFO :PACKAGE "INTERLISP" :READTABLE "INTERLISP" :BASE 10)
 
-
(FILECREATED "23-May-2026 22:51:27" {MEDLEY}<sources>MEDLEYDIR.;63
 15934  
+
(FILECREATED "25-May-2026 10:56:39" {MEDLEY}<sources>MEDLEYDIR.;64
 16063  
 
       :EDIT-BY rmk
 
       :CHANGES-TO (FNS MEDLEY-INIT-VARS)
 
-      :PREVIOUS-DATE "26-Apr-2026 20:46:52" {MEDLEY}<sources>MEDLEYDIR.;61)
+      :PREVIOUS-DATE "23-May-2026 22:51:27" {MEDLEY}<sources>MEDLEYDIR.;63)
 
 
 (PRETTYCOMPRINT MEDLEYDIRCOMS)
@@ -71,7 +71,8 @@
 (DEFINEQ
 
 (MEDLEY-INIT-VARS

-  [LAMBDA (EVENT)
                                            (* ; "Edited 21-May-2026 19:01 by rmk")


+  [LAMBDA (EVENT)
                                            (* ; "Edited 25-May-2026 10:56 by rmk")


+                                                             (* ; "Edited 21-May-2026 19:01 by rmk")


                                                              (* ; "Edited 15-Apr-2026 16:44 by rmk")


                                                              (* ; "Edited 22-Nov-2022 20:38 by FGH")


                                                              (* ; "Edited 21-Nov-2022 17:31 by FGH")


@@ -100,10 +101,9 @@
                                                                 (* ;; 
 
                                       "Any old values, restore them, substituting the new MEDLEYDIR")

 
-             (PSEUDOHOST 'MEDLEY (PACKFILENAME 'BODY)
-                    (UNIX-GETENV "MEDLEYDIR")
-                    'HOST
-                    'DSK)
+             (PSEUDOHOST 'MEDLEY (PACKFILENAME 'BODY (UNIX-GETENV "MEDLEYDIR")
+                                        'HOST
+                                        'DSK))
              (PROG (OLDMD NEWMD SAME TMP)
                    (IF
 (EQ \SAVE.MEDLEYDIR T)
                        THEN
                                  (* ; " Already restored")

@@ -289,6 +289,6 @@
 (ADDTOVAR GLOBALVARS
 MEDLEYDIR MEDLEY-INIT-VARS \SAVE.MEDLEYDIR DIRECTORIES SYSOUTCOMMITS)
 )
 (DECLARE%: DONTCOPY
-  (FILEMAP (NIL (4215 13663 (MEDLEY-INIT-VARS 4225 . 8073) (MEDLEYDIR 8075 . 12463) (MEDLEYSUBSTDIR 
-12465 . 13443) (SET-SYSOUT-COMMIT 13445 . 13661)))))
+  (FILEMAP (NIL (4215 13792 (MEDLEY-INIT-VARS 4225 . 8202) (MEDLEYDIR 8204 . 12592) (MEDLEYSUBSTDIR 
+12594 . 13572) (SET-SYSOUT-COMMIT 13574 . 13790)))))
 STOP
diff --git a/sources/MEDLEYDIR.LCOM b/sources/MEDLEYDIR.LCOM
index 36af86e03cebc3385c2ecae79aa8155a77b876e5..b3a80a81c98d1ca8a4698324277ddff386fb49bd 100644
GIT binary patch
delta 551
zcmZWlO-sW-5H<Z!EFOgFsfc4i&_mMAZn8~!i_Nx%wn@z<p`w>U#e)Y?ya<AS!Lmm$
z-aQqM{s7PZ3jGBh#Uxfu?H-1id2imE*>~+tyBm~sxi`F)F~Ss7)X-^znB%jWq>b;L
zgAAr9N)<-KtCJCwsyG86vw@5T)~mavotD#OO`ll-vtfqxqbw%U=8^^~MU;pmsVS-w
z5wDUbJ&3K`^Y-KELj2Njo@C3vW!hUw%96<CUwjNT&Vs<}M^+bzSqGLTbp$<TciExs
z_&|s;!y;q~@^Fs_DMO{-gSd`FrBG?%%sAFe2<4{58DLDH&sk`D`yLMfs|NI~W+yq<
zwR$m*2!yUPklQR^ZX|9BuukBZTM<(-`xr<}3TwA|#)QzBN~h5F84G~K=5zD0%l{rW
zb?{mI6@cq>sw+FL6UdR}bHK6S-vU@m1cY5&-B9P1R01~d#J3pYqWGCtP2=fu@uU0&
Dc~^%J

delta 563
zcmZWlyH3ME5X9sm5s50$K*5p%LE*%=>sL%=;!Cjdl+THRpotVjK|w$?h=N}rx-u0#
z1&ERlpyn&!3n&q`iIhaSVl}JTotfJ&{ab(R=Sgi2?o`y!1VqPR4%*|(l0xH&f2hs4
zVzF3&;o$as2)P2z5lnN49I^@rx&5l&;FW;8A@}4&F|)voGU@VEspL)79o<ZAG)Ffb
z1Ldo-qcHiYw3R2hyZXNOe6bR}q^!m0DlQ3{5$hSLq&@<IlHg(3?)2OSP}v5a0E<DB
zdkuc#`2i4>7p6#`lA?Pg!eoM3|BGlbxs~3o(%d>48g$i)D|mDm9Xf({z4mcign*h2
z-Im{1Ydqww9<a#2<5ueN_gik0%lkBJ>To999xu-2v6*~HZ#<ZDCS)#jh6S~N^AIR9
zU)tA}HL+|$z@t+DTGmuo^;>?Z_S`@KMuM{dsK)~8Vk#tDazbW<C+dKV<S6r-LXF<8
Hvp@Mi(D#Z^