From 4f5ec5e2977937010ef5ffd79af14c64e1d11647 Mon Sep 17 00:00:00 2001
From: rmkaplan <ron.kaplan@post.harvard.edu>
Date: Thu, 20 Jul 2023 15:06:51 -0700
Subject: [PATCH] MEDLEYDIR: Pack DSK as the default HOST on the value of
 (UNIX-GETENV "MEDLEYDIR")

---
 sources/MEDLEYDIR      |  27 +++++++++++++++++----------
 sources/MEDLEYDIR.LCOM | Bin 4904 -> 4956 bytes
 2 files changed, 17 insertions(+), 10 deletions(-)

diff --git a/sources/MEDLEYDIR b/sources/MEDLEYDIR
index 33de3b4a5..226dc83b1 100644
--- a/sources/MEDLEYDIR
+++ b/sources/MEDLEYDIR
@@ -1,11 +1,12 @@
 (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
 
-
(FILECREATED "17-Jul-2023 16:13:10" {DSK}<home>frank>il>medley>gmedley>sources>MEDLEYDIR.;2
 9970   
+
(FILECREATED "19-Jul-2023 08:57:43" {WMEDLEY}<sources>MEDLEYDIR.;22
 10362  
 
-      :CHANGES-TO (VARS MEDLEY-INIT-VARS)
+      :EDIT-BY rmk
 
-      :PREVIOUS-DATE "22-Apr-2023 11:53:53" {DSK}<home>frank>il>medley>gmedley>sources>MEDLEYDIR.;1
-)
+      :CHANGES-TO (FNS MEDLEYDIR)
+
+      :PREVIOUS-DATE "17-Jul-2023 16:13:10" {WMEDLEY}<sources>MEDLEYDIR.;21)
 
 
 (PRETTYCOMPRINT MEDLEYDIRCOMS)
@@ -95,16 +96,22 @@
                NIL])
 
 (MEDLEYDIR

-  [LAMBDA (DIRNAME FILENAME OUTPUT NOERROR)
                  (* ; "Edited 18-Oct-2022 17:49 by lmm")


+  [LAMBDA (DIRNAME FILENAME OUTPUT NOERROR)
                  (* ; "Edited 29-Jun-2023 22:48 by rmk")


+                                                             (* ; "Edited 18-Oct-2022 17:49 by lmm")


                                                            (* ; "Edited  5-Mar-2022 12:43 by larry")


                                                           (* ; "Edited  2-Dec-2021 20:23 by kaplan")

+
+    (* ;; "RMK: MEDLEYDIR defaults to DSK")

+
     (COND
        ((NULL DIRNAME)
         (if
 (OR (NOT (BOUNDP 'MEDLEYDIR))
                 (NOT MEDLEYDIR))
-            then
 (OR (SETQ MEDLEYDIR (DIRECTORYNAME (OR (UNIX-GETENV "MEDLEYDIR")
-                                                        T)))
-                     (DIRECTORYNAME T))
+            then
 [SETQ MEDLEYDIR (DIRECTORYNAME (if
 (SETQ MEDLEYDIR (UNIX-GETENV "MEDLEYDIR"))
+                                                    then
 (DIRECTORYNAME (PACKFILENAME 'BODY MEDLEYDIR
+                                                                               'HOST
+                                                                               'DSK))
+                                                  else
 (DIRECTORYNAME T]
           elseif
 (STRPOS "/" MEDLEYDIR)
             then
 (SETQ MEDLEYDIR (DIRECTORYNAME MEDLEYDIR))
           else
 MEDLEYDIR))
@@ -199,6 +206,6 @@
 (ADDTOVAR GLOBALVARS
 MEDLEYDIR MEDLEY-INIT-VARS \SAVE.MEDLEYDIR DIRECTORIES)
 )
 (DECLARE%: DONTCOPY
-  (FILEMAP (NIL (1469 7896 (MEDLEY-INIT-VARS 1479 . 4957) (MEDLEYDIR 4959 . 6914) (MEDLEYSUBSTDIR 6916
- . 7894)))))
+  (FILEMAP (NIL (1432 8288 (MEDLEY-INIT-VARS 1442 . 4920) (MEDLEYDIR 4922 . 7306) (MEDLEYSUBSTDIR 7308
+ . 8286)))))
 STOP
diff --git a/sources/MEDLEYDIR.LCOM b/sources/MEDLEYDIR.LCOM
index 89fb6db2a8cadaa001351a1652de95b1a0446e2e..b857b1da26c6a3d1e3373b10eaa7cb6a611c80a9 100644
GIT binary patch
delta 923
zcmZuw&2G~`5Kg5kA`wR<gw(^wN>s_gsdsJ1KSEWLc$=6ycCek&Tu`A2B_gS-v_(`1
zg+~BIf-^VHL`XaX&%ljG;00K_QsPA2!|crN_s!4F&iCy<+n<hhOzFwhNMbTmARCsZ
zTdG1(A}8_qd^j5P5ubtJ{j)Z=UEcff`17}WQ&vWiP-97CiltR8MI(4Q87!ECcjuFf
zM;30Vwi93|eC>B#7g=(pQX%NSxD>H&^Qux(E|&Hkmp1}li@1%4gx;F;N|JjFR931C
z7Pp;9s`oG%zk$_g)x0JTrN~FAxbKC_<jSx*0Y7y7ZYbFz&TMPrK_OfA{NF~r`Bcj1
za+`ZU-=5~gDkS2|aU$otak8Z+_Y>{MRth;z^i)g5-NgJjOkp?J+1LEvscC=*fggYw
z4C1ADBl3fuS8H=HT|>k78np<lsxI>d(-tI^!SRwO>VPS90hd_@P7R8%<#%1%i$HZb
zdo|URwWw4z(Dj@nsmUYm9fB&=Ra>sEF-#3%6m<L$y1I5%HP;UqI<>|@l5tw&RFPM`
zGt~XAXLm&BDb=&7Qku2otYv0v(#;G`(_x1P&=^{N7(vZ?6mM70`*shCHv4s_G&LEB
z7vtjU<Tb{F{%CNG{!skt%Xo54L^ouRU9k&a>#$d1UI?hFfVBKJ7pmw5as8&_iIxge
ej2Ickr^7Q+grR}#Bz`~^^C3QZd;YxeyYL@^{N&02

delta 814
zcma)4O>5gg5VdItk#2!P+uN{*#6HMqS6{XWqC(o*N^MC<vPpWXu~kP@wt_#PAuT!e
z+=8ILq1R%3>bd`-heD726I~^4QB4n7mKkQ|&CJ`!en0wr^zqEmgws_j5RpiLRUJz@
zQ4rM7D4Sj;X*`B(1_=0TJAD4`<RY8K#;f^o_S#5NV;Yas_{x}Ueg38Ta8d_EMB#Ke
zyPHUeu86uQB3Kp!)8jEDGvJZw`yrHpjYb2(c(`N>|2IHJb-wn@=~648W<>4$L-h%|
zAEg^;wKNfU-RhWbn}$N<L2Y0LA@r!-rRRd<I+0K$>Y)1p9XMV;6l}JIF(HC^Ip2zd
zbwy(Leqt=L)qE5$j2_LuR=M@JYPP2w?pG>%Pd6_n6?VA7e0o{fHOdNio7p@_ZvCSo
zvw4$n`TPB!H;g|G0xtlf$Y47GwIVM#cg-FJB5PoIu4P6*Bz5~H24T_PCM<*F7V7y-
zbLkHpYjO#W6$!$Q*YDbH1Xw2JQbLrSt(b_=cbzk#O(W_K0E^9kVy(H;plT3Cf$xQ&
z;GL3G!sf#RP@ApN@}^V@v~r-9Im%N0>!4OwWk7BQi`D1??!G0AlX*N^X7ek=v?72E
r=82r2aF36%0;uElC}R92KwYoxxJ)_(EmlagNist`DBAih_k;Tln5fyT