From 94502c0dd91df95f8bb3bcaec96e4a9926e5e8cb Mon Sep 17 00:00:00 2001
From: rmkaplan <ron.kaplan@post.harvard.edu>
Date: Sun, 26 Apr 2026 13:56:57 -0700
Subject: [PATCH] Fixup for LOGINHOST/DIR

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

diff --git a/sources/MEDLEYDIR b/sources/MEDLEYDIR
index e9a4422e..17a9ad86 100644
--- a/sources/MEDLEYDIR
+++ b/sources/MEDLEYDIR
@@ -1,12 +1,12 @@
 (DEFINE-FILE-INFO :PACKAGE "INTERLISP" :READTABLE "INTERLISP" :BASE 10)
 
-
(FILECREATED "26-Apr-2026 12:07:45" {GMEDLEY}<sources>MEDLEYDIR.;3
 15758  
+
(FILECREATED "26-Apr-2026 13:55:08" {MEDLEY}<sources>MEDLEYDIR.;6
 16425  
 
       :EDIT-BY rmk
 
       :CHANGES-TO (VARS MEDLEYDIRCOMS)
 
-      :PREVIOUS-DATE "26-Apr-2026 11:39:05" {GMEDLEY}<sources>MEDLEYDIR.;2)
+      :PREVIOUS-DATE "26-Apr-2026 13:44:54" {MEDLEY}<sources>MEDLEYDIR.;5)
 
 
 (PRETTYCOMPRINT MEDLEYDIRCOMS)
@@ -44,9 +44,14 @@
                                       (IRM.DINFOGRAPH)
                                       (DIRECTORIES (APPEND LISPUSERSDIRECTORIES LISPSOURCEDIRECTORIES
                                                           ))
-                                      (LOGINHOST/DIR (PSEUDOHOST 'LI (OR (UNIX-GETENV "LOGINDIR")
-                                                                         (UNIX-GETENV "HOME")))
-                                             RESET)
+                                      (LOGINHOST/DIR
+                                       (LET [(LHD (DIRECTORYNAME (PACKFILENAME 'HOST 'DSK
+                                                                        'BODY
+                                                                        (OR (UNIX-GETENV "LOGINDIR")
+                                                                            (UNIX-GETENV "HOME"]
+                                            (PSEUDOHOST 'LI LHD)
+                                            LHD)
+                                       RESET)
                                       (USERGREETFILES [LIST (CONS LOGINHOST/DIR '("INIT" COM))
                                                             (CONS LOGINHOST/DIR '("INIT"]
                                              RESET)
@@ -264,8 +269,12 @@
          (IRM.HOST&DIR (MEDLEYDIR '"docs/dinfo"))
          (IRM.DINFOGRAPH)
          (DIRECTORIES (APPEND LISPUSERSDIRECTORIES LISPSOURCEDIRECTORIES))
-         (LOGINHOST/DIR (PSEUDOHOST 'LI (OR (UNIX-GETENV "LOGINDIR")
-                                            (UNIX-GETENV "HOME")))
+         (LOGINHOST/DIR (LET [(LHD (DIRECTORYNAME (PACKFILENAME 'HOST 'DSK 'BODY (OR (UNIX-GETENV
+                                                                                      "LOGINDIR")
+                                                                                     (UNIX-GETENV
+                                                                                      "HOME"]
+                             (PSEUDOHOST 'LI LHD)
+                             LHD)
                 RESET)
          (USERGREETFILES [LIST (CONS LOGINHOST/DIR '("INIT" COM))
                                (CONS LOGINHOST/DIR '("INIT"]
@@ -280,6 +289,6 @@
 (ADDTOVAR GLOBALVARS
 MEDLEYDIR MEDLEY-INIT-VARS \SAVE.MEDLEYDIR DIRECTORIES SYSOUTCOMMITS)
 )
 (DECLARE%: DONTCOPY
-  (FILEMAP (NIL (4385 13616 (MEDLEY-INIT-VARS 4395 . 8026) (MEDLEYDIR 8028 . 12416) (MEDLEYSUBSTDIR 
-12418 . 13396) (SET-SYSOUT-COMMIT 13398 . 13614)))))
+  (FILEMAP (NIL (4716 13947 (MEDLEY-INIT-VARS 4726 . 8357) (MEDLEYDIR 8359 . 12747) (MEDLEYSUBSTDIR 
+12749 . 13727) (SET-SYSOUT-COMMIT 13729 . 13945)))))
 STOP
diff --git a/sources/MEDLEYDIR.LCOM b/sources/MEDLEYDIR.LCOM
index e9334e2be630849ace8ad658d3c38294354d3b3c..b838ece5a1efd660116f35f7811c2a602a9e67fc 100644
GIT binary patch
delta 455
zcmb7<K}y3w7=?*STV^4MEjI1K-yk>vBT1SBon4xYHZ<+DNh)Na2-byYZRysPH&ACS
zxObU5cmQwUNp#v&p&P-?&wKE{$M;_B59e`MYY^KehM@pfF2|$E_3hOV#&@8=J=dkW
z?5Kbg)6v|?R5Nwc0i!`Ihv>#r)+ywY7o=@8uh9<|u|4tUSf&kx`az;KQ<#o!fOsvp
zdqQI^VSrEFC`NoLX(DP_#I_bu$<E%TuZ=jQ31A$ye87GXQ7>Up+I2e=FzUHp`#1<`
zZu<k4P-w9@Q32=1kK4bx$^29p76Im;n+I!1RaO34t(HW!3gYnf@)2ipX$27Pm(Te5
zR*^r;Z~UTCEBef1y%c2+m7Uc;h?arS|A=-4&}>vp2R@t4_*oGKbG{|W5_qg50*LRI
J>lu@~(l_z`a_;~D

delta 290
zcmca)HrI4QinNiHfw`55sgi<*QgVK7L1s>Bib8&#f|5eD`@}kFNn=d~E+r!~UB`kV
zT_Xb{GX+CKD-#1Cnz+fA6T-Aq(wyia!wokGtdZSV!O+y))M9b~qckg5m}5}z<N`)r
zZbK_$ODhAQZD2)=Mw<^a{uh)92zCv1@%Qi#4pGnu4D}CjRq*lDRM7AbQqbU<>?f%=
zd7-2Q7Z=clo_?MoN(z%#iNtbnK@@6C<`<1;<<bNypS(uOZSqc0DRwRwe`o)I$j!Gz
q6`3{gm>ufp8KLX$8sh2~roc5>QA7!7j|(H$=CvX`jFUe}B>(^bhfGTV