From 14553237c8bb96378086d3b4436aac51bbc01c0b Mon Sep 17 00:00:00 2001
From: rmkaplan <ron.kaplan@post.harvard.edu>
Date: Mon, 13 Apr 2026 15:58:25 -0700
Subject: [PATCH] MEDLEYDIR trying again

---
 sources/MEDLEYDIR      |  14 +++++++++-----
 sources/MEDLEYDIR.LCOM | Bin 7200 -> 7253 bytes
 2 files changed, 9 insertions(+), 5 deletions(-)

diff --git a/sources/MEDLEYDIR b/sources/MEDLEYDIR
index 498e7425..1d372b0d 100644
--- a/sources/MEDLEYDIR
+++ b/sources/MEDLEYDIR
@@ -1,9 +1,11 @@
 (DEFINE-FILE-INFO :PACKAGE "INTERLISP" :READTABLE "INTERLISP" :BASE 10)
 
-
(FILECREATED "13-Apr-2026 14:26:49" {WMEDLEY}<sources>MEDLEYDIR.;47
 15877  
+
(FILECREATED "13-Apr-2026 15:57:26" {WMEDLEY}<sources>MEDLEYDIR.;48
 16038  
 
       :EDIT-BY rmk
 
+      :CHANGES-TO (VARS MEDLEYDIRCOMS)
+
       :PREVIOUS-DATE "22-Mar-2026 09:52:47" {WMEDLEY}<sources>MEDLEYDIR.;46)
 
 
@@ -50,7 +52,8 @@
                                       (USERGREETFILES [LIST (CONS LOGINHOST/DIR '("INIT" COM))
                                                             (CONS LOGINHOST/DIR '("INIT"]
                                              RESET)
-                                      (DISPLAYFONTDIRECTORIES (MEDLEYDIR "fonts/medleydisplayfonts" 
+                                      (DISPLAYFONTDIRECTORIES (MEDLEYDIR '("fonts/medleydisplayfonts"
+                                                                           )
                                                                      NIL NIL T))
                                       (POSTSCRIPTFONTDIRECTORIES (MEDLEYDIR '("fonts/postscriptfonts"
                                                                               )
@@ -265,7 +268,8 @@
          (USERGREETFILES [LIST (CONS LOGINHOST/DIR '("INIT" COM))
                                (CONS LOGINHOST/DIR '("INIT"]
                 RESET)
-         (DISPLAYFONTDIRECTORIES (MEDLEYDIR "fonts/medleydisplayfonts" NIL NIL T))
+         (DISPLAYFONTDIRECTORIES (MEDLEYDIR '("fonts/medleydisplayfonts")
+                                        NIL NIL T))
          (POSTSCRIPTFONTDIRECTORIES (MEDLEYDIR '("fonts/postscriptfonts")
                                            NIL NIL T))
          (INTERPRESSFONTDIRECTORIES (MEDLEYDIR '("fonts/ipfonts")
@@ -281,6 +285,6 @@
 (ADDTOVAR GLOBALVARS
 MEDLEYDIR MEDLEY-INIT-VARS \SAVE.MEDLEYDIR DIRECTORIES SYSOUTCOMMITS)
 )
 (DECLARE%: DONTCOPY
-  (FILEMAP (NIL (5191 13203 (MEDLEY-INIT-VARS 5201 . 8679) (MEDLEYDIR 8681 . 12003) (MEDLEYSUBSTDIR 
-12005 . 12983) (SET-SYSOUT-COMMIT 12985 . 13201)))))
+  (FILEMAP (NIL (5309 13321 (MEDLEY-INIT-VARS 5319 . 8797) (MEDLEYDIR 8799 . 12121) (MEDLEYSUBSTDIR 
+12123 . 13101) (SET-SYSOUT-COMMIT 13103 . 13319)))))
 STOP
diff --git a/sources/MEDLEYDIR.LCOM b/sources/MEDLEYDIR.LCOM
index 862b502fbad961464565c1f1a0faede907faf942..c784ed4eeb7f9d090e07f840cee38de85f4a1550 100644
GIT binary patch
delta 150
zcmZ2ran)i%3cIP5skxPr*~DxECJW7pAH^naE{2Is)@4+1vrsTJGcdMLuyS?r4AFIp
zR4B^LR<LsRaP)I`4b~0uSJ2=Ja|{Yr@O5?ZagB8G4087O4c1h!3J7uy^Yjl5)^%|V
laaGt{#JEXl@_s3f$ud&XOq!aT?M3dgqVhW#Cm)bb0058jDu@68

delta 104
zcmca=vA|+N3cHDwk(rgL$;4~}CUeb+AH^naE{2GiSWebuR8TcnFf_F=H&?K7b@2?*
zb&6Cd%FR}=3J7uy^Yjl5)^%|VaaG{jJehHm&}4rp>CHJ(os645i-xd3c`q3OO1~de