From 672ed075a004c5ffe45716af1d09609ec6715f0f Mon Sep 17 00:00:00 2001 From: rmkaplan Date: Mon, 13 Apr 2026 14:27:45 -0700 Subject: [PATCH] Made sure that DISPLAYFONTDIRECTORIES is a list --- sources/MEDLEYDIR | 10 ++++------ sources/MEDLEYDIR.LCOM | Bin 7233 -> 7200 bytes 2 files changed, 4 insertions(+), 6 deletions(-) diff --git a/sources/MEDLEYDIR b/sources/MEDLEYDIR index 54f22817..498e7425 100644 --- a/sources/MEDLEYDIR +++ b/sources/MEDLEYDIR @@ -1,12 +1,10 @@ (DEFINE-FILE-INFO :PACKAGE "INTERLISP" :READTABLE "INTERLISP" :BASE 10) -(FILECREATED "22-Mar-2026 09:52:47" {WMEDLEY}MEDLEYDIR.;46 15917 +(FILECREATED "13-Apr-2026 14:26:49" {WMEDLEY}MEDLEYDIR.;47 15877 :EDIT-BY rmk - :CHANGES-TO (VARS MEDLEYDIRCOMS) - - :PREVIOUS-DATE "31-Jan-2026 23:43:06" {WMEDLEY}MEDLEYDIR.;44) + :PREVIOUS-DATE "22-Mar-2026 09:52:47" {WMEDLEY}MEDLEYDIR.;46) (PRETTYCOMPRINT MEDLEYDIRCOMS) @@ -283,6 +281,6 @@ (ADDTOVAR GLOBALVARS MEDLEYDIR MEDLEY-INIT-VARS \SAVE.MEDLEYDIR DIRECTORIES SYSOUTCOMMITS) ) (DECLARE%: DONTCOPY - (FILEMAP (NIL (5231 13243 (MEDLEY-INIT-VARS 5241 . 8719) (MEDLEYDIR 8721 . 12043) (MEDLEYSUBSTDIR -12045 . 13023) (SET-SYSOUT-COMMIT 13025 . 13241))))) + (FILEMAP (NIL (5191 13203 (MEDLEY-INIT-VARS 5201 . 8679) (MEDLEYDIR 8681 . 12003) (MEDLEYSUBSTDIR +12005 . 12983) (SET-SYSOUT-COMMIT 12985 . 13201))))) STOP diff --git a/sources/MEDLEYDIR.LCOM b/sources/MEDLEYDIR.LCOM index 905e4421862dc1cfdfc72aed6c1df38ed7c83ffe..862b502fbad961464565c1f1a0faede907faf942 100644 GIT binary patch delta 175 zcmX?TvA|+NxQL;#u46%wu91O}nS!B-m64g1sma7_14(mD1ui8+LnKK9D?=kI6N8Cc zG+02w6Ca3LU`ksmX>w_}dHT3I2e~?ixVk7PVOn5fIa!xcLDgKr(A2`*T*1oK#WO_L jDN>;*H(S9fAjmb$(?2v=*9E9ufork^quJ(@j1^J<3~VdA delta 209 zcmZ2ranNEyxQLOFu5V(Iu91O}nSz0(m8p@HiTT8A14%PY1ui8+b0kRvD