Interlisp.medley/sources/MEDLEYDIR.LCOM

(DEFINE-FILE-INFO :PACKAGE "INTERLISP" :READTABLE "INTERLISP" :BASE 10)

(FILECREATED "21-May-2026 13:42:57" ("compiled on " {MEDLEY}<sources>MEDLEYDIR.;62) 
"20-May-2026 10:33:23" brecompiled exprs%: MEDLEY-INIT-VARS in "FULL 20-May-2026 ..." dated 
"20-May-2026 10:33:37")
(FILECREATED "21-May-2026 13:42:57" {MEDLEY}<sources>MEDLEYDIR.;62 15842 :EDIT-BY rmk :CHANGES-TO (FNS
 MEDLEY-INIT-VARS) :PREVIOUS-DATE "26-Apr-2026 20:46:52" {MEDLEY}<sources>MEDLEYDIR.;61)
MEDLEY-INIT-VARS :D8
(P 7 TMP P 6 SAME P 5 NEWMD P 4 OLDMD P 0 X I 0 EVENT) 
Œ
@gð¦@dið²(¿`°d

H˜H
h
¿µëhgð³@gðª@dgð²;¿`0`°d

H
H
	¹JµIh[<5B>I&ºµâKgð³+@gð³"@gð³@gð®@gð¦@µ‚±—go	
@`dið³s²#`
	¼h¿½LM
¾`°@d

H
Hd
gð«
`_¨H
	<00>N“O‰LMO
µÁihgð´8h`°d

H
H
	
µéi(382 /SETTOPVAL 377 EVAL 350 MEDLEYDIR 318 /SETTOPVAL 313 MEDLEYSUBSTDIR 296 EVAL 250 CL::SIMPLE-STRING-EQUAL 242 MEDLEYDIR 229 U-CASE 203 PSEUDOHOST 198 UNIX-GETENV 107 GETTOPVAL 38 SETTOPVAL)
(393 \SAVE.MEDLEYDIR 360 MEDLEY-INIT-VARS 355 MEDLEYDIR 345 MEDLEYDIR 336 GREET 329 \SAVE.MEDLEYDIR 283 \SAVE.MEDLEYDIR 275 RESET 256 MEDLEY-INIT-VARS 236 MEDLEYDIR 223 \SAVE.MEDLEYDIR 211 \SAVE.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)
( 193 "MEDLEYDIR")
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`
Ÿ`	`@µA²r@hBCbµ;C¥¿h±óQIµJ±ç
]ABC^µˆ¼KµLh[ºIY°ÞL&»°øA
b¿B“A±·A	µ‚±«C“h±¥oA±—@oô²"o	µo	µ@	°r@oô²Ao		µXoohBµ;C’h°6o°%@ohBµC‘hŠo@
Xd´d	(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 "MEDLEY¬LOADUPS¬DIR" 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) “Bd¢±Žd²*¿@AB
@AB
HdB
ð˜¿IBð‘BHI	²*@B	kkð²AB@	kØ

BBd3@ð²ù@B		
kð²äAB@	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