MEDLEYDIR: Pack DSK as the default HOST on the value of (UNIX-GETENV "MEDLEYDIR") (#1282)

Co-authored-by: Larry Masinter <lmm@acm.org>

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