github.com/Interlisp.medley
1
0
Fork 0
mirror of synced 2026-04-14 16:35:43 +00:00
Code Issues Projects Releases Wiki Activity

MEDLEYDIR trying again

Browse Source
This commit is contained in:
rmkaplan
2026-04-13 15:58:25 -07:00
parent 672ed075a0
commit 14553237c8
2 changed files with 9 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
sources/MEDLEYDIR
View File

@@ -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

BIN
sources/MEDLEYDIR.LCOM
View File

Binary file not shown.