Interlisp.medley/sources/MEDLEYDIR.LCOM

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

(FILECREATED "26-Apr-2026 12:07:45" ("compiled on " {GMEDLEY}<sources>MEDLEYDIR.;3) 
"26-Apr-2026 11:40:40" brecompiled exprs%: nothing in "FULL 26-Apr-2026 ..." dated 
"26-Apr-2026 11:40:49")
(FILECREATED "26-Apr-2026 12:07:45" {GMEDLEY}<sources>MEDLEYDIR.;3 15758 :EDIT-BY rmk :CHANGES-TO (
VARS MEDLEYDIRCOMS) :PREVIOUS-DATE "26-Apr-2026 11:39:05" {GMEDLEY}<sources>MEDLEYDIR.;2)
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ð¦@µ‚±’g`
@`dið³s²#`
	¼h¿½LM
¾`°@d

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

H
H
	
µé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`
Ÿ`	`@µ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)"
) (* ;; "PSEUDOHOSTS comes before MEDLEYDIR in the loadup.") (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))))) (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.  But the FONT cache variables have to be specified here, because FONT is in the INIT and the resetting to NOBIND would wipe out these entries even if they were already correct in the init 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 (PSEUDOHOST (QUOTE LI) (OR (
UNIX-GETENV "LOGINDIR") (UNIX-GETENV "HOME"))) 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
)) (DISPLAYFONTDIRECTORIES (LIST "{MEDLEY}/fonts/medleydisplayfonts/")))))) (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 (PSEUDOHOST (QUOTE LI) (OR (UNIX-GETENV 
"LOGINDIR") (UNIX-GETENV "HOME"))) 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)) (
DISPLAYFONTDIRECTORIES (LIST "{MEDLEY}/fonts/medleydisplayfonts/")))))
(ADDTOVAR GLOBALVARS MEDLEYDIR MEDLEY-INIT-VARS \SAVE.MEDLEYDIR DIRECTORIES SYSOUTCOMMITS)
NIL