Merge pull request #847 from Interlisp/tmp-without-slash

run-medley tmp/full.sysout add tmp

sources/MEDLEYDIR

@@ -1,12 +1,10 @@
 (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
 
-
(FILECREATED "13-Jul-2022 15:34:07" 
+
(FILECREATED "18-Jul-2022 12:12:11" {DSK}<home>larry>medley>sources>MEDLEYDIR.;2
 6649   
-{DSK}<Users>kaplan>Local>medley3.5>working-medley>sources>MEDLEYDIR.;10
 6722   
 
-      :CHANGES-TO (VARS MEDLEYDIRCOMS MEDLEY-INIT-VARS)
+      :CHANGES-TO (FNS MEDLEY-INIT-VARS)
 
-      :PREVIOUS-DATE "13-Jul-2022 11:37:28" 
+      :PREVIOUS-DATE "13-Jul-2022 15:34:07" {DSK}<home>larry>medley>sources>MEDLEYDIR.;1)
-{DSK}<Users>kaplan>Local>medley3.5>working-medley>sources>MEDLEYDIR.;8)
 
 
 (PRETTYCOMPRINT MEDLEYDIRCOMS)
@@ -37,35 +35,35 @@
 (DEFINEQ
 
 (MEDLEY-INIT-VARS

-  [LAMBDA (CLEAR)                                            (* ; 
+  [LAMBDA (CLEAR)
                                          (* ; "Edited 18-Jul-2022 12:11 by larry")


-
                                                           "Edited 21-Aug-2021 18:23 by larry")

+                                                           (* ; "Edited 21-Aug-2021 18:23 by larry")

 
     (* ;; "MEDLEY-INIT-VARS has variables that might need to get reset. ")

 
     (if
 CLEAR
         then
 (SETQ MEDLEYDIR NIL)
-              (SETQ XCL::*WHERE-IS-CASH-FILES* NIL)
+             (SETQ XCL::*WHERE-IS-CASH-FILES* NIL)
-              (for
 X in
 MEDLEY-INIT-VARS do
 (SET (CAR X)))
+             (for
 X in
 MEDLEY-INIT-VARS do
 (SET (CAR X)))
       elseif
 [OR (NOT (BOUNDP 'MEDLEYDIR))
-                     (AND (NULL MEDLEYDIR)
+                 (AND (NULL MEDLEYDIR)
-                          (NULL (MEDLEYDIR
]
+                      (NULL (MEDLEYDIR
]
         then
 (PRINTOUT T "WARNING: MEDLEYDIR not set correctly" 
-                        " set it and call (MEDLEY-INIT-VARS) again" T)
+                    " set it and call (MEDLEY-INIT-VARS) again" T)
       else
 [for
 X in
 MEDLEY-INIT-VARS do
 (SET (CAR X)
-                                                              (EVAL (CADR X] 
+                                              (EVAL (CADR X] 
 
-            (* ;; "WHEREIS doesn't follow conventions")

+           (* ;; "WHEREIS doesn't follow conventions")

 
-            [LET [(NEWSYS (STRPOS "/tmp/" (UNIX-GETENV "LDESRCESYSOUT"]
+           [LET [(NEWSYS (STRPOS "tmp/" (UNIX-GETENV "LDESRCESYSOUT"]
-                 (if
 NEWSYS
+                (if
 NEWSYS
-                     then
 (push
 DIRECTORIES (MEDLEYDIR
 "tmp")))
+                    then
 (push
 DIRECTORIES (MEDLEYDIR
 "tmp")))
-                 (CL:WHEN (GETD 'XCL::ADD-WHERE-IS-DATABASE)
+                (CL:WHEN (GETD 'XCL::ADD-WHERE-IS-DATABASE)
-                     (SETQ XCL::*WHERE-IS-CASH-FILES* NIL)
+                    (SETQ XCL::*WHERE-IS-CASH-FILES* NIL)
-                     (NLSETQ (XCL::ADD-WHERE-IS-DATABASE (MEDLEYDIR
 (if
 NEWSYS
+                    (NLSETQ (XCL::ADD-WHERE-IS-DATABASE (MEDLEYDIR
 (if
 NEWSYS
-                                                                            then
 "tmp"
+                                                                       then
 "tmp"
-                                                                          else
 "loadups")
+                                                                     else
 "loadups")
-                                                                "WHEREIS.HASH"))))]
+                                                               "WHEREIS.HASH"))))]
-            NIL])
+           NIL])
 
 (MEDLEYDIR

   [LAMBDA (DIRNAME FILENAME OUTPUT NOERROR)
                (* ; "Edited  5-Mar-2022 12:43 by larry")


@@ -144,5 +142,5 @@
 (ADDTOVAR GLOBALVARS
 MEDLEYDIR MEDLEY-INIT-VARS)
 )
 (DECLARE%: DONTCOPY
-  (FILEMAP (NIL (1588 4998 (MEDLEY-INIT-VARS 1598 . 3212) (MEDLEYDIR 3214 . 4996)))))
+  (FILEMAP (NIL (1518 4925 (MEDLEY-INIT-VARS 1528 . 3139) (MEDLEYDIR 3141 . 4923)))))
 STOP