github.com/Interlisp.medley
1
0
Fork 0
mirror of synced 2026-05-09 17:16:58 +00:00
Code Issues Projects Releases Wiki Activity

Fixup for LOGINHOST/DIR

Browse Source
This commit is contained in:
rmkaplan
2026-04-26 13:56:57 -07:00
parent 202021e87d
commit 94502c0dd9
2 changed files with 18 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files

27
sources/MEDLEYDIR
View File

@@ -1,12 +1,12 @@
(DEFINE-FILE-INFO :PACKAGE "INTERLISP" :READTABLE "INTERLISP" :BASE 10)
(FILECREATED "26-Apr-2026 12:07:45" {GMEDLEY}<sources>MEDLEYDIR.;3 15758
(FILECREATED "26-Apr-2026 13:55:08" {MEDLEY}<sources>MEDLEYDIR.;6 16425
:EDIT-BY rmk
:CHANGES-TO (VARS MEDLEYDIRCOMS)
:PREVIOUS-DATE "26-Apr-2026 11:39:05" {GMEDLEY}<sources>MEDLEYDIR.;2)
:PREVIOUS-DATE "26-Apr-2026 13:44:54" {MEDLEY}<sources>MEDLEYDIR.;5)
(PRETTYCOMPRINT MEDLEYDIRCOMS)
@@ -44,9 +44,14 @@
(IRM.DINFOGRAPH)
(DIRECTORIES (APPEND LISPUSERSDIRECTORIES LISPSOURCEDIRECTORIES
))
(LOGINHOST/DIR (PSEUDOHOST 'LI (OR (UNIX-GETENV "LOGINDIR")
(UNIX-GETENV "HOME")))
RESET)
(LOGINHOST/DIR
(LET [(LHD (DIRECTORYNAME (PACKFILENAME 'HOST 'DSK
'BODY
(OR (UNIX-GETENV "LOGINDIR")
(UNIX-GETENV "HOME"]
(PSEUDOHOST 'LI LHD)
LHD)
RESET)
(USERGREETFILES [LIST (CONS LOGINHOST/DIR '("INIT" COM))
(CONS LOGINHOST/DIR '("INIT"]
RESET)
@@ -264,8 +269,12 @@
(IRM.HOST&DIR (MEDLEYDIR '"docs/dinfo"))
(IRM.DINFOGRAPH)
(DIRECTORIES (APPEND LISPUSERSDIRECTORIES LISPSOURCEDIRECTORIES))
(LOGINHOST/DIR (PSEUDOHOST 'LI (OR (UNIX-GETENV "LOGINDIR")
(UNIX-GETENV "HOME")))
(LOGINHOST/DIR (LET [(LHD (DIRECTORYNAME (PACKFILENAME 'HOST 'DSK 'BODY (OR (UNIX-GETENV
"LOGINDIR")
(UNIX-GETENV
"HOME"]
(PSEUDOHOST 'LI LHD)
LHD)
RESET)
(USERGREETFILES [LIST (CONS LOGINHOST/DIR '("INIT" COM))
(CONS LOGINHOST/DIR '("INIT"]
@@ -280,6 +289,6 @@
(ADDTOVAR GLOBALVARS MEDLEYDIR MEDLEY-INIT-VARS \SAVE.MEDLEYDIR DIRECTORIES SYSOUTCOMMITS)
)
(DECLARE%: DONTCOPY
(FILEMAP (NIL (4385 13616 (MEDLEY-INIT-VARS 4395 . 8026) (MEDLEYDIR 8028 . 12416) (MEDLEYSUBSTDIR
12418 . 13396) (SET-SYSOUT-COMMIT 13398 . 13614)))))
(FILEMAP (NIL (4716 13947 (MEDLEY-INIT-VARS 4726 . 8357) (MEDLEYDIR 8359 . 12747) (MEDLEYSUBSTDIR
12749 . 13727) (SET-SYSOUT-COMMIT 13729 . 13945)))))
STOP

BIN
sources/MEDLEYDIR.LCOM
View File

Binary file not shown.