(DEFINE-FILE-INFO :PACKAGE "INTERLISP" :READTABLE "INTERLISP" :BASE 10) (FILECREATED "26-Apr-2026 20:46:52" ("compiled on " {WMEDLEY}MEDLEYDIR.;61) "26-Apr-2026 14:56:37" brecompiled exprs%: nothing in "FULL 26-Apr-2026 ..." dated "26-Apr-2026 14:56:45") (FILECREATED "26-Apr-2026 20:46:52" {WMEDLEY}MEDLEYDIR.;61 15717 :EDIT-BY rmk :CHANGES-TO ( VARS MEDLEYDIRCOMS) :PREVIOUS-DATE "26-Apr-2026 14:56:00" {WMEDLEY}MEDLEYDIR.;60) MEDLEY-INIT-VARS :D8 (P 7 TMP P 6 SAME P 5 NEWMD P 4 OLDMD P 0 X I 0 EVENT) @g@di(`dHHh hg@g@dg;`0`dHH JIh[I&Kg+@g"@g@g@g@g` @`dis#` hLM `@dHHdg`_H NOLMO ihg8h`dHH i(377 /SETTOPVAL 372 EVAL 345 MEDLEYDIR 313 /SETTOPVAL 308 MEDLEYSUBSTDIR 291 EVAL 245 CL::SIMPLE-STRING-EQUAL 237 MEDLEYDIR 224 U-CASE 198 PSEUDOHOST 107 GETTOPVAL 38 SETTOPVAL) (388 \SAVE.MEDLEYDIR 355 MEDLEY-INIT-VARS 350 MEDLEYDIR 340 MEDLEYDIR 331 GREET 324 \SAVE.MEDLEYDIR 278 \SAVE.MEDLEYDIR 270 RESET 251 MEDLEY-INIT-VARS 231 MEDLEYDIR 218 \SAVE.MEDLEYDIR 206 \SAVE.MEDLEYDIR 193 MEDLEYDIR 188 MEDLEY 174 INIT 166 RESTART 157 AFTERSAVEVM 148 AFTERLOGOUT 139 AFTERSYSOUT 133 \SAVE.MEDLEYDIR 91 MEDLEY-INIT-VARS 83 MEDLEYDIR 74 BEFORESAVEVM 65 BEFORELOGOUT 56 BEFORESYSOUT 50 \SAVE.MEDLEYDIR 19 MEDLEY-INIT-VARS 5 BEFOREMAKESYS) () MEDLEYDIR :D8 (P 6 Y P 5 X P 0 MED I 3 NOERROR I 2 OUTPUT I 1 FILENAME I 0 DIRNAME) @qg `9o g`gg i o` ` `@Ar@hBC b;ChQIJ]ABC ^K Lh[IYL&A bBAA ChoA@o"o o @ r@oAo Xoo hB ;Ch6o%@o hB Cho@ Xdd (398 PSEUDOFILENAME 388 ERROR 371 DIRECTORYNAME 364 CONCAT 353 MEDLEYDIR 346 MEDLEYDIR 329 DIRECTORYNAME 322 CONCAT 307 MEDLEYDIR 300 DIRECTORYNAME 295 UNIX-GETENV 274 DIRECTORYNAME 266 UNIX-GETENV 254 UNIX-GETENV 214 INFILEP 199 CONCAT 170 MEDLEYDIR 143 SHOULDNT 132 MEDLEYDIR 101 DIRECTORYNAME 90 STRPOS 69 DIRECTORYNAME 62 PACKFILENAME 30 UNIX-GETENV 12 BOUNDP) (112 MEDLEYDIR 106 MEDLEYDIR 96 MEDLEYDIR 85 MEDLEYDIR 74 MEDLEYDIR 57 DSK 52 HOST 47 MEDLEYDIR 42 BODY 35 MEDLEYDIR 18 MEDLEYDIR 7 MEDLEYDIR) ( 382 "No such medley directory" 359 ">" 341 "Cannot find medley loadups directory" 317 ">" 312 "loadups" 290 "MEDLEYLOADUPSDIR" 282 "loadups" 261 "HOME" 249 "LOGINDIR" 241 "login" 231 "No such medley file" 80 "/" 25 "MEDLEYDIR") MEDLEYSUBSTDIR :D8 (I 2 BODY I 1 NEW I 0 OLD) Bdd*@AB @AB HdBIBBHI *@B k kAB@ k BBd3@@B kAB@ k (144 PACK* 139 SUBSTRING 132 NCHARS 120 STRPOS 115 U-CASE 110 MKSTRING 93 CONCAT 88 SUBSTRING 81 NCHARS 69 STRPOS 63 U-CASE 54 STRINGP 28 MEDLEYSUBSTDIR 19 MEDLEYSUBSTDIR) NIL () SET-SYSOUT-COMMIT :D8 (I 1 COMMIT-ID-ENV-VAR I 0 REPO) @A h` (18 PUTASSOC 6 UNIX-GETENV) (13 SYSOUTCOMMITS) () (PRETTYCOMPRINT MEDLEYDIRCOMS) (RPAQQ MEDLEYDIRCOMS ((* ;; "set up initialization for file paths relative to where Medley is installed. This assumes that the environment variable MEDLEYDIR is set (usually by the ./run-medley script) to the (unix path) and all of the other directories variables are set relative to that (by MEDLEY-INIT-VARS)" ) (FNS MEDLEY-INIT-VARS MEDLEYDIR MEDLEYSUBSTDIR SET-SYSOUT-COMMIT) (INITVARS (MEDLEYDIR (MEDLEYDIR)) (\SAVE.MEDLEYDIR) (SYSOUTCOMMITS (OR (AND (BOUNDP (QUOTE SYSOUTCOMMITS)) SYSOUTCOMMITS) (LIST (LIST ( QUOTE MEDLEY) NIL))))) (* ;; "PSEUDOHOSTS comes before MEDLEYDIR in the loadup.") (P (PSEUDOHOST ( QUOTE MEDLEY) MEDLEYDIR)) (ADDVARS (AROUNDEXITFNS MEDLEY-INIT-VARS)) (* ;; "**WARNING** The EVALed expressions get run early in the lodup.") (* ;; "The INITVARS prevents this from accumulating entries from other files that happen to have been loaded when this is worked on and saved. The loadup scripts set MEDLEY-INIT-VARS to NOBIND to make sure that these are the initial values (as opposed to whatever there was in the startup sysout." ) (INITVARS (MEDLEY-INIT-VARS (QUOTE ((\FONTEXISTS?-CACHE NIL RESET) (\FONTSAVAILABLEFILECACHE NIL RESET) (LISPUSERSDIRECTORIES (MEDLEYDIR (QUOTE ("library" "lispusers" "internal" "greetfiles" "doctools")))) (LISPSOURCEDIRECTORIES (MEDLEYDIR (QUOTE ("sources")))) (LISPSOURCEDIRECTORY (CAR LISPSOURCEDIRECTORIES)) (IRM.HOST&DIR (MEDLEYDIR (QUOTE "docs/dinfo"))) (IRM.DINFOGRAPH) (DIRECTORIES (APPEND LISPUSERSDIRECTORIES LISPSOURCEDIRECTORIES)) (LOGINHOST/DIR (LET ((LHD (DIRECTORYNAME ( PACKFILENAME (QUOTE HOST) (QUOTE DSK) (QUOTE BODY) (OR (UNIX-GETENV "LOGINDIR") (UNIX-GETENV "HOME"))) ))) (PSEUDOHOST (QUOTE LI) LHD) LHD) RESET) (USERGREETFILES (LIST (CONS LOGINHOST/DIR (QUOTE ("INIT" COM))) (CONS LOGINHOST/DIR (QUOTE ("INIT")))) RESET) (XCL::*WHERE-IS-CASH-FILES* (MEDLEYDIR (QUOTE ( "loadups")) "whereis.hash" NIL T)) (LOADUPSDIRECTORIES (MEDLEYDIR (QUOTE ("loadups")) NIL NIL T)))))) (DECLARE%: EVAL@COMPILE DOCOPY (ADDVARS (GLOBALVARS MEDLEYDIR MEDLEY-INIT-VARS \SAVE.MEDLEYDIR DIRECTORIES SYSOUTCOMMITS))))) (RPAQ? MEDLEYDIR (MEDLEYDIR)) (RPAQ? \SAVE.MEDLEYDIR) (RPAQ? SYSOUTCOMMITS (OR (AND (BOUNDP (QUOTE SYSOUTCOMMITS)) SYSOUTCOMMITS) (LIST (LIST (QUOTE MEDLEY) NIL)))) (PSEUDOHOST (QUOTE MEDLEY) MEDLEYDIR) (ADDTOVAR AROUNDEXITFNS MEDLEY-INIT-VARS) (RPAQ? MEDLEY-INIT-VARS (QUOTE ((\FONTEXISTS?-CACHE NIL RESET) (\FONTSAVAILABLEFILECACHE NIL RESET) ( LISPUSERSDIRECTORIES (MEDLEYDIR (QUOTE ("library" "lispusers" "internal" "greetfiles" "doctools")))) ( LISPSOURCEDIRECTORIES (MEDLEYDIR (QUOTE ("sources")))) (LISPSOURCEDIRECTORY (CAR LISPSOURCEDIRECTORIES )) (IRM.HOST&DIR (MEDLEYDIR (QUOTE "docs/dinfo"))) (IRM.DINFOGRAPH) (DIRECTORIES (APPEND LISPUSERSDIRECTORIES LISPSOURCEDIRECTORIES)) (LOGINHOST/DIR (LET ((LHD (DIRECTORYNAME (PACKFILENAME ( QUOTE HOST) (QUOTE DSK) (QUOTE BODY) (OR (UNIX-GETENV "LOGINDIR") (UNIX-GETENV "HOME")))))) ( PSEUDOHOST (QUOTE LI) LHD) LHD) RESET) (USERGREETFILES (LIST (CONS LOGINHOST/DIR (QUOTE ("INIT" COM))) (CONS LOGINHOST/DIR (QUOTE ("INIT")))) RESET) (XCL::*WHERE-IS-CASH-FILES* (MEDLEYDIR (QUOTE ( "loadups")) "whereis.hash" NIL T)) (LOADUPSDIRECTORIES (MEDLEYDIR (QUOTE ("loadups")) NIL NIL T))))) (ADDTOVAR GLOBALVARS MEDLEYDIR MEDLEY-INIT-VARS \SAVE.MEDLEYDIR DIRECTORIES SYSOUTCOMMITS) NIL