MEDLEYDIR: Host defaults to DSK

Author: rmkaplan

sources/MEDLEYDIR

@@ -1,11 +1,12 @@
 (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
 
-
(FILECREATED "22-Nov-2022 20:50:20" {DSK}<home>frank>il>medley>wmedley>sources>MEDLEYDIR.;10
 10271  
+
(FILECREATED "29-Jun-2023 22:48:12" {WMEDLEY}<sources>MEDLEYDIR.;20
 10663  
 
-      :CHANGES-TO (FNS MEDLEY-INIT-VARS)
+      :EDIT-BY rmk
 
-      :PREVIOUS-DATE "21-Nov-2022 17:31:30" {DSK}<home>frank>il>medley>wmedley>sources>MEDLEYDIR.;9
-)
+      :CHANGES-TO (FNS MEDLEYDIR)
+
+      :PREVIOUS-DATE "22-Nov-2022 20:50:20" {WMEDLEY}<sources>MEDLEYDIR.;17)
 
 
 (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))
@@ -201,6 +208,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