From f3b73a575657f7be91b2936549126b1433f1e2e3 Mon Sep 17 00:00:00 2001
From: Larry Masinter <LMM@acm.org>
Date: Mon, 18 Jul 2022 12:13:22 -0700
Subject: [PATCH] run-medley tmp/full.sysout add tmp

---
 sources/MEDLEYDIR      |  48 ++++++++++++++++++++---------------------
 sources/MEDLEYDIR.LCOM | Bin 4513 -> 4426 bytes
 2 files changed, 23 insertions(+), 25 deletions(-)

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

-  [LAMBDA (CLEAR)                                            (* ; 
-
                                                           "Edited 21-Aug-2021 18:23 by larry")

+  [LAMBDA (CLEAR)
                                          (* ; "Edited 18-Jul-2022 12:11 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)
-              (for
 X in
 MEDLEY-INIT-VARS do
 (SET (CAR X)))
+             (SETQ XCL::*WHERE-IS-CASH-FILES* NIL)
+             (for
 X in
 MEDLEY-INIT-VARS do
 (SET (CAR X)))
       elseif
 [OR (NOT (BOUNDP 'MEDLEYDIR))
-                     (AND (NULL MEDLEYDIR)
-                          (NULL (MEDLEYDIR
]
+                 (AND (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"]
-                 (if
 NEWSYS
-                     then
 (push
 DIRECTORIES (MEDLEYDIR
 "tmp")))
-                 (CL:WHEN (GETD 'XCL::ADD-WHERE-IS-DATABASE)
-                     (SETQ XCL::*WHERE-IS-CASH-FILES* NIL)
-                     (NLSETQ (XCL::ADD-WHERE-IS-DATABASE (MEDLEYDIR
 (if
 NEWSYS
-                                                                            then
 "tmp"
-                                                                          else
 "loadups")
-                                                                "WHEREIS.HASH"))))]
-            NIL])
+           [LET [(NEWSYS (STRPOS "tmp/" (UNIX-GETENV "LDESRCESYSOUT"]
+                (if
 NEWSYS
+                    then
 (push
 DIRECTORIES (MEDLEYDIR
 "tmp")))
+                (CL:WHEN (GETD 'XCL::ADD-WHERE-IS-DATABASE)
+                    (SETQ XCL::*WHERE-IS-CASH-FILES* NIL)
+                    (NLSETQ (XCL::ADD-WHERE-IS-DATABASE (MEDLEYDIR
 (if
 NEWSYS
+                                                                       then
 "tmp"
+                                                                     else
 "loadups")
+                                                               "WHEREIS.HASH"))))]
+           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
diff --git a/sources/MEDLEYDIR.LCOM b/sources/MEDLEYDIR.LCOM
index 04fd95673c06f6678ee7cff2784e5dea0f964dbe..d840f012486ce743020319867ce6e9d8206444a3 100644
GIT binary patch
delta 314
zcmZ3ed`f9Tgqek|S80x}k%5tsf}xQW2pKCWXecG;=N4q<q^2n3=P4*DRJ#Ow*V<&{
z=cd}_Bo-A_+D+DClBze-RNzuFG)EX<WMpM(Ze?t$q>xmU3O6A+BQY;MwOG|k!PnKr
z$2C&d)6X+RH_S08SRoT=xLc@?j{>qOdU|?F3Mq*tK+CZjZ?2@trQzo3W9aG}<mwpW
z>Y|`zi0KPM9IloyQZO?!u~e{f_HgubcMaAJ@mJ7r^9$yhe3a2(vL7R-AXd*Z8g6!F
MieuTlgzYaE03{q&I{*Lx

delta 404
zcmX@5v`~3MM4+**S80x}k%5tsf}yFEv5A#|g_44XQgVK7L1s>Bib8&#f|3GPwM(#f
ztxafgYEiLWc49$JVxFB(esW@tU2bYhPHLsGo~d1Veo=O2Ub^nYKB;;`15E`bLu8{3
ztV}GdjDbdTB^9N@4Nt8oC@NO9Qpn3M$pGqA$OKyE7V6`pfUH+fPftl9C9wqP7%XO*
zm?&v-X}Ed%xH<>9I)=Eq02MhR+YIrPImw>TFf>pwGY1BXm9vMVpSx?YZiv5vMwnwz
zumYE_tBa3oq>E>ev%hcf<Ss@7Q$s6bb1Nf||40ieMvKkw8RJ+O^*8&n{pA7xklS}{