From 9c5e33a8fd1dd46ddd2376303a703edba0943588 Mon Sep 17 00:00:00 2001
From: rmkaplan <ron.kaplan@post.harvard.edu>
Date: Thu, 21 May 2026 14:06:09 -0700
Subject: [PATCH] Reset {MEDLEY} pseudohost on restart

---
 sources/MEDLEYDIR      |  15 ++++++++-------
 sources/MEDLEYDIR.LCOM | Bin 6665 -> 6696 bytes
 2 files changed, 8 insertions(+), 7 deletions(-)

diff --git a/sources/MEDLEYDIR b/sources/MEDLEYDIR
index c5ab914b..f199c97f 100644
--- a/sources/MEDLEYDIR
+++ b/sources/MEDLEYDIR
@@ -1,12 +1,12 @@
 (DEFINE-FILE-INFO :PACKAGE "INTERLISP" :READTABLE "INTERLISP" :BASE 10)
 
-
(FILECREATED "26-Apr-2026 20:46:52" {WMEDLEY}<sources>MEDLEYDIR.;61
 15717  
+
(FILECREATED "21-May-2026 13:42:57" {MEDLEY}<sources>MEDLEYDIR.;62
 15842  
 
       :EDIT-BY rmk
 
-      :CHANGES-TO (VARS MEDLEYDIRCOMS)
+      :CHANGES-TO (FNS MEDLEY-INIT-VARS)
 
-      :PREVIOUS-DATE "26-Apr-2026 14:56:00" {WMEDLEY}<sources>MEDLEYDIR.;60)
+      :PREVIOUS-DATE "26-Apr-2026 20:46:52" {MEDLEY}<sources>MEDLEYDIR.;61)
 
 
 (PRETTYCOMPRINT MEDLEYDIRCOMS)
@@ -71,7 +71,8 @@
 (DEFINEQ
 
 (MEDLEY-INIT-VARS

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


+  [LAMBDA (EVENT)
                                            (* ; "Edited 21-May-2026 13:40 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")


                                                            (* ; "Edited 21-Nov-2022 15:39 by frank")


@@ -99,7 +100,7 @@
                                                                 (* ;; 
 
                                       "Any old values, restore them, substituting the new MEDLEYDIR")

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

@@ -285,6 +286,6 @@
 (ADDTOVAR GLOBALVARS
 MEDLEYDIR MEDLEY-INIT-VARS \SAVE.MEDLEYDIR DIRECTORIES SYSOUTCOMMITS)
 )
 (DECLARE%: DONTCOPY
-  (FILEMAP (NIL (4215 13446 (MEDLEY-INIT-VARS 4225 . 7856) (MEDLEYDIR 7858 . 12246) (MEDLEYSUBSTDIR 
-12248 . 13226) (SET-SYSOUT-COMMIT 13228 . 13444)))))
+  (FILEMAP (NIL (4215 13571 (MEDLEY-INIT-VARS 4225 . 7981) (MEDLEYDIR 7983 . 12371) (MEDLEYSUBSTDIR 
+12373 . 13351) (SET-SYSOUT-COMMIT 13353 . 13569)))))
 STOP
diff --git a/sources/MEDLEYDIR.LCOM b/sources/MEDLEYDIR.LCOM
index 6c08ba810aa69229dcc14c081fe53d719af0940a..276baa23510e0de76afe202c3be8c291b04bcdf6 100644
GIT binary patch
delta 688
zcmZvZyKWOf6ozpWkZ>rFpg{upXvD=S26oQub*R?fV`ruHuGyKj5{V{&g(3)!Ohc3+
zqC}zqZNV$hQ}P6eN1&qR2`HJ^CUGuPjAk_F|Nj4+`QUzaKW*L@e6YRG(Lo=CR4ytn
zV9;jIC%bz)ug5Q7@&*_j)S_{_z;$Rcbe05;l2V~$@N7ChR*c{6P2b*AFrXx(EuQA7
z;iI_JuwzlZD$8Kb`273k<8v?>u=QrUmuA#0DK?Y<!wVzMBKZiy3ta?7iFN60!F2Z(
zsP0Cb_epb8K)aXg=GiFq`$lUG9p(DU!+Cdi>K~1w@v*+O^8MPEmzV6C9Bo(YUn@Tk
zLxe|~j46hrI0G33K(mAAEXYY(f)wGYDj^q-y6R|iRDqE{7ort*Go^Go7-qz^Dbu{q
z=}BejXuFwDZYIG9s=K@!YqC?5Fw|5f#YUkGh$w_APd9m=4CSLbT5TOh5}xXKL=R60
z(*GZF=_jP;EtyF7)J^)(FNq9DYkn4o;du)TJSfQyr~~Nv3-FQ~TH;9{#0v;QES%~G
Tm;YY3y-8rl685ci<<E_O*?F+c

delta 632
zcmZvYF;Ck-7>4Tz8YyA|)TNd3VF{58PVc_6eTfGolN?~l!Ku$qTeU+Ai9#euqL2Xz
ziHry)z&kTLBR_$Oe^K=pbnF2sn8HnWx_h7J{qE8{Hc!7S*@in98c5IvB#vo27V1#Y
zxB9z-?oPV}{T}FW@cHcU!<ZH!r(-HWO~<kw#&y^nwjUGi{lRc=(ScrnwB7A>psNV0
zvF}4VS}K)vX#E^1!)r{_(u=vms^^PpDBMWYK*!`ld#BwM$x@&er#$(ly`RlB-B3bZ
z)O_)^=7rUuo}6g;nTKkGOuB0%xzz&gC|Sr{XU{ut)cTS9%G``OhmTT3QP60*J}{0T
z?l-3O!~{m!vsa`%xs>sWjFc6yLLY*tf>qyfq*rhF!jMtuZLAsMQ>^I7cnXSWLOgF&
zT`7Q8%FvJ^t_ACXjFRS5eq1iYcj-1o>2Wk**1uAQx8X&`{p8FdDJV0aofw6+P>2Ya
ulKqcE{!)RQKq%CQGyp9+0jF%Jh);!(zCs}O3lps{NbKo9SIcjI&;12n2c^CM