MEDLEYDIR: Remove fonts/displayfonts/ (legacy AC/Strik) from DISPLAYFONTDIRECTORIES

sources/MEDLEYDIR

@@ -1,12 +1,12 @@
-(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
+(DEFINE-FILE-INFO :PACKAGE "INTERLISP" :READTABLE "INTERLISP" :BASE 10)
 
-
(FILECREATED "31-Jan-2026 23:43:06" {WMEDLEY}<sources>MEDLEYDIR.;44
 16074  
+
(FILECREATED "22-Mar-2026 09:52:47" {WMEDLEY}<sources>MEDLEYDIR.;46
 15917  
 
       :EDIT-BY rmk
 
-      :CHANGES-TO (FNS MEDLEYDIR)
+      :CHANGES-TO (VARS MEDLEYDIRCOMS)
 
-      :PREVIOUS-DATE "26-Nov-2025 21:51:39" {WMEDLEY}<sources>MEDLEYDIR.;43)
+      :PREVIOUS-DATE "31-Jan-2026 23:43:06" {WMEDLEY}<sources>MEDLEYDIR.;44)
 
 
 (PRETTYCOMPRINT MEDLEYDIRCOMS)
@@ -52,8 +52,7 @@
                                       (USERGREETFILES [LIST (CONS LOGINHOST/DIR '("INIT" COM))
                                                             (CONS LOGINHOST/DIR '("INIT"]
                                              RESET)
-                                      (DISPLAYFONTDIRECTORIES (MEDLEYDIR '("fonts/medleydisplayfonts"
-                                                                           "fonts/displayfonts")
+                                      (DISPLAYFONTDIRECTORIES (MEDLEYDIR "fonts/medleydisplayfonts" 
                                                                      NIL NIL T))
                                       (POSTSCRIPTFONTDIRECTORIES (MEDLEYDIR '("fonts/postscriptfonts"
                                                                               )
@@ -268,8 +267,7 @@
          (USERGREETFILES [LIST (CONS LOGINHOST/DIR '("INIT" COM))
                                (CONS LOGINHOST/DIR '("INIT"]
                 RESET)
-         (DISPLAYFONTDIRECTORIES (MEDLEYDIR '("fonts/medleydisplayfonts" "fonts/displayfonts")
-                                        NIL NIL T))
+         (DISPLAYFONTDIRECTORIES (MEDLEYDIR "fonts/medleydisplayfonts" NIL NIL T))
          (POSTSCRIPTFONTDIRECTORIES (MEDLEYDIR '("fonts/postscriptfonts")
                                            NIL NIL T))
          (INTERPRESSFONTDIRECTORIES (MEDLEYDIR '("fonts/ipfonts")
@@ -285,6 +283,6 @@
 (ADDTOVAR GLOBALVARS
 MEDLEYDIR MEDLEY-INIT-VARS \SAVE.MEDLEYDIR DIRECTORIES SYSOUTCOMMITS)
 )
 (DECLARE%: DONTCOPY
-  (FILEMAP (NIL (5324 13336 (MEDLEY-INIT-VARS 5334 . 8812) (MEDLEYDIR 8814 . 12136) (MEDLEYSUBSTDIR 
-12138 . 13116) (SET-SYSOUT-COMMIT 13118 . 13334)))))
+  (FILEMAP (NIL (5231 13243 (MEDLEY-INIT-VARS 5241 . 8719) (MEDLEYDIR 8721 . 12043) (MEDLEYSUBSTDIR 
+12045 . 13023) (SET-SYSOUT-COMMIT 13025 . 13241)))))
 STOP