Add option (mainly for Ron) to add tmp to front of directories where exports.all and other newly created sources will come from (when using SIMPLE-INIT). Modified fn MEDLEY-INIT-VARS in LOADUP-LISP. (#383)

sources/LOADUP-LISP

@@ -1,9 +1,10 @@
-(DEFINE-FILE-INFO READTABLE "XCL" PACKAGE "INTERLISP")
-
(FILECREATED "29-Apr-2021 22:31:24" |{DSK}<Users>larry>medley>SOURCES>LOADUP-LISP.;2|
 8463   
+(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "XCL" BASE 10 FORMAT XCCS)
+
(FILECREATED " 1-Aug-2021 13:16:06" |{DSK}<home>larry>ilisp>medley>sources>LOADUP-LISP.;3|
 9364   
 
-      |changes| |to:|  (FNS LOADUP-LISP)
+      |changes| |to:|  (FNS MEDLEY-INIT-VARS)
 
-      |previous| |date:| "28-Mar-2021 10:06:54" |{DSK}<Users>larry>medley>SOURCES>LOADUP-LISP.;1|)
+      |previous| |date:| " 1-Aug-2021 13:09:52" |{DSK}<home>larry>ilisp>medley>sources>LOADUP-LISP.;2|
+)
 
 
 (PRETTYCOMPRINT LOADUP-LISPCOMS)
@@ -107,7 +108,7 @@
 (DEFINEQ
 
 (MEDLEY-INIT-VARS

-  (LAMBDA (CLEAR)
                                     (* \; "Edited 17-Jan-2021 14:29 by larry")

+  (LAMBDA (CLEAR)
                                     (* \; "Edited  1-Aug-2021 13:15 by larry")

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

 
@@ -125,9 +126,15 @@
 
             (* |;;| "WHEREIS doesn't follow conventions")

 
-            (CL:WHEN (GETD 'XCL::ADD-WHERE-IS-DATABASE)
-                (SETQ XCL::*WHERE-IS-CASH-FILES* NIL)
-                (NLSETQ (XCL::ADD-WHERE-IS-DATABASE (MEDLEYDIR
 "loadups" "WHEREIS.HASH"))))
+            (LET ((NEW (STRPOS "/tmp/" (UNIX-GETENV "LDESRCESYSOUT"))))
+                 (IF
 NEW
+                     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|
 |new|
+                                                                            |then|
 "tmp"
+                                                                          |else|
 "loadups")
+                                                                "WHEREIS.HASH")))))
             NIL)))
 
 (MEDLEYDIR

@@ -158,27 +165,28 @@
 
 (RPAQ? FILING.ENUMERATION.DEPTH
 T)
 
-(RPAQQ MEDLEY-INIT-VARS

-       ((LISPUSERSDIRECTORIES (MEDLEYDIR '("library" "lispusers" "internal/library")))
-        (LISPSOURCEDIRECTORIES (MEDLEYDIR '("sources")))
-        (LISPSOURCEDIRECTORY (CAR LISPSOURCEDIRECTORIES))
-        (IRM.HOST&DIR (MEDLEYDIR '"docs/dinfo"))
-        (IRM.DINFOGRAPH)
-        (DIRECTORIES (APPEND LISPUSERSDIRECTORIES LISPSOURCEDIRECTORIES))
-        (LOGINHOST/DIR (DIRECTORYNAME (OR (UNIX-GETENV "LOGINDIR")
-                                          (UNIX-GETENV "HOME"))))
-        (USERGREETFILES `((,LOGINHOST/DIR "INIT" COM)
-                          (,LOGINHOST/DIR "INIT")))
-        (DISPLAYFONTDIRECTORIES (MEDLEYDIR '("fonts/displayfonts" "fonts/altofonts")))
-        (POSTSCRIPTFONTDIRECTORIES (MEDLEYDIR '("fonts/postscriptfonts")))
-        (INTERPRESSFONTDIRECTORIES (MEDLEYDIR '("fonts/ipfonts")))
-        (XCL::*WHERE-IS-CASH-FILES*)))
+(RPAQQ MEDLEY-INIT-VARS
 ((LISPUSERSDIRECTORIES (MEDLEYDIR '("library" "lispusers" 
+                                                                      "internal/library")))
+                             (LISPSOURCEDIRECTORIES (MEDLEYDIR '("sources")))
+                             (LISPSOURCEDIRECTORY (CAR LISPSOURCEDIRECTORIES))
+                             (IRM.HOST&DIR (MEDLEYDIR '"docs/dinfo"))
+                             (IRM.DINFOGRAPH)
+                             (DIRECTORIES (APPEND LISPUSERSDIRECTORIES LISPSOURCEDIRECTORIES))
+                             (LOGINHOST/DIR (DIRECTORYNAME (OR (UNIX-GETENV "LOGINDIR")
+                                                               (UNIX-GETENV "HOME"))))
+                             (USERGREETFILES `((,LOGINHOST/DIR "INIT" COM)
+                                               (,LOGINHOST/DIR "INIT")))
+                             (DISPLAYFONTDIRECTORIES (MEDLEYDIR '("fonts/displayfonts" 
+                                                                        "fonts/altofonts")))
+                             (POSTSCRIPTFONTDIRECTORIES (MEDLEYDIR '("fonts/postscriptfonts")))
+                             (INTERPRESSFONTDIRECTORIES (MEDLEYDIR '("fonts/ipfonts")))
+                             (XCL::*WHERE-IS-CASH-FILES*)))
 (DECLARE\: DOEVAL@COMPILE DONTCOPY
 
 (GLOBALVARS XCL::*WHERE-IS-CASH-FILES* LISPMAKESYSDATE MAKESYSFILENAME MEDLEY-INIT-VARS MEDLEYDIR 
        SYSTEMINITVARS USERRECLST)
 )
 (DECLARE\: DONTCOPY
-  (FILEMAP (NIL (753 4843 (LOADUP-LISP 763 . 4841)) (4844 7343 (MEDLEY-INIT-VARS 4854 . 5999) (MEDLEYDIR
- 6001 . 7341)))))
+  (FILEMAP (NIL (792 4882 (LOADUP-LISP 802 . 4880)) (4883 7834 (MEDLEY-INIT-VARS 4893 . 6490) (MEDLEYDIR
+ 6492 . 7832)))))
 STOP