github.com/Interlisp.medley
1
0
Fork 0
mirror of synced 2026-01-26 04:12:03 +00:00
Code Issues Projects Releases Wiki Activity

Fix Issue#985 HELPSYS/CLHS.LOOKUP fails when MEDLEYDIR not writeable. (#994)

Browse Source
This commit is contained in:
Frank Halasz
2022-10-13 10:48:42 -07:00
committed by GitHub
parent 540aff091c
commit 0eac6efb61
2 changed files with 17 additions and 16 deletions
Download Patch File Download Diff File Expand all files Collapse all files

33
lispusers/HELPSYS
View File

@@ -1,10 +1,11 @@
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
(FILECREATED " 9-Oct-2022 16:41:08" {DSK}<home>larry>medley>lispusers>HELPSYS.;2 87589
(FILECREATED "12-Oct-2022 18:33:26" {DSK}<home>frank>il>medley>wmedley>lispusers>HELPSYS.;4 87708
:CHANGES-TO (FNS CLHS.INDEX)
:CHANGES-TO (FNS CLHS.LOOKUP)
:PREVIOUS-DATE "27-Aug-2022 12:15:35" {DSK}<home>larry>medley>lispusers>HELPSYS.;1)
:PREVIOUS-DATE "12-Oct-2022 18:24:45" {DSK}<home>frank>il>medley>wmedley>lispusers>HELPSYS.;3
)
(* ; "
@@ -96,8 +97,7 @@ Copyright (c) 1985-1987, 2020, 2022 by Xerox Corporation.
DINFO HASH)
)
(DEFCOMMAND "man" (ENTRY)
"Lookup ENTRY in the IRM."
(DEFCOMMAND "man" (ENTRY) "Lookup ENTRY in the IRM."
(GENERIC.MAN.LOOKUP ENTRY))
(DEFINEQ
@@ -264,7 +264,8 @@ Copyright (c) 1985-1987, 2020, 2022 by Xerox Corporation.
else (LIST (SUBSTRING LINE POSLINK (CL:1- POSENDLINK])
(CLHS.LOOKUP
[LAMBDA (ENTRY PHASES) (* ; "Edited 24-Aug-2022 17:08 by larry")
[LAMBDA (ENTRY PHASES) (* ; "Edited 12-Oct-2022 18:32 by FGH")
(* ; "Edited 24-Aug-2022 17:08 by larry")
(LET [(OPENER (CLHS.OPENER))
(URL NIL)
POS
@@ -292,7 +293,7 @@ Copyright (c) 1985-1987, 2020, 2022 by Xerox Corporation.
(CHAT 'SHELL NIL (CONCAT OPENER " '" URL "'
"))
else (ShellCommand (CONCAT OPENER " '" URL "'"
" > $MEDLEYDIR/tmp/clhs/warnings.txt 2>&1")
" > /tmp/clhs-warnings-$$.txt 2>&1")
T))
(RETURN))
(AND URL (RETURN (LIST URL])
@@ -1699,13 +1700,13 @@ Copyright (c) 1985-1987, 2020, 2022 by Xerox Corporation.
(PUTPROPS HELPSYS FILETYPE :FAKE-COMPILE-FILE)
(PUTPROPS HELPSYS COPYRIGHT ("Xerox Corporation" 1985 1986 1987 2020 2022))
(DECLARE%: DONTCOPY
(FILEMAP (NIL (4613 10188 (HELPSYS 4623 . 6464) (IRM.LOOKUP 6466 . 8104) (GENERIC.MAN.LOOKUP 8106 .
9775) (IRM.RESET 9777 . 10186)) (10445 17450 (CLHS.INDEX 10455 . 13153) (CLHS.LOOKUP 13155 . 14953) (
CLHS.OPENER 14955 . 16278) (REPO.LOOKUP 16280 . 17448)) (70522 72040 (IRM.GET.DINFOGRAPH 70532 . 71407
) (IRM.DISPLAY.REF 71409 . 72038)) (72042 72404 (IRM.LOAD-GRAPH 72042 . 72404)) (72729 78233 (
IRM.DISPLAY.CREF 72739 . 74453) (IRM.CREF.BOX 74455 . 75282) (IRM.PUT.CREF 75284 . 75509) (
IRM.GET.CREF 75511 . 75882) (IRM.CREF.BUTTONEVENTFN 75884 . 78231)) (78788 87094 (\IRM.GET.REF 78798
. 80129) (\IRM.SMART.REF 80131 . 82058) (\IRM.CHOOSE.REF 82060 . 83311) (\IRM.WILD.REF 83313 . 84568)
(\IRM.WILDCARD 84570 . 84936) (\IRM.WILD.MATCH 84938 . 86168) (\IRM.GET.HASHFILE 86170 . 86633) (
\IRM.GET.KEYWORDS 86635 . 87092)) (87231 87387 (\IRM.AROUND-EXIT 87231 . 87387)))))
(FILEMAP (NIL (4630 10205 (HELPSYS 4640 . 6481) (IRM.LOOKUP 6483 . 8121) (GENERIC.MAN.LOOKUP 8123 .
9792) (IRM.RESET 9794 . 10203)) (10462 17569 (CLHS.INDEX 10472 . 13170) (CLHS.LOOKUP 13172 . 15072) (
CLHS.OPENER 15074 . 16397) (REPO.LOOKUP 16399 . 17567)) (70641 72159 (IRM.GET.DINFOGRAPH 70651 . 71526
) (IRM.DISPLAY.REF 71528 . 72157)) (72161 72523 (IRM.LOAD-GRAPH 72161 . 72523)) (72848 78352 (
IRM.DISPLAY.CREF 72858 . 74572) (IRM.CREF.BOX 74574 . 75401) (IRM.PUT.CREF 75403 . 75628) (
IRM.GET.CREF 75630 . 76001) (IRM.CREF.BUTTONEVENTFN 76003 . 78350)) (78907 87213 (\IRM.GET.REF 78917
. 80248) (\IRM.SMART.REF 80250 . 82177) (\IRM.CHOOSE.REF 82179 . 83430) (\IRM.WILD.REF 83432 . 84687)
(\IRM.WILDCARD 84689 . 85055) (\IRM.WILD.MATCH 85057 . 86287) (\IRM.GET.HASHFILE 86289 . 86752) (
\IRM.GET.KEYWORDS 86754 . 87211)) (87350 87506 (\IRM.AROUND-EXIT 87350 . 87506)))))
STOP

BIN
lispusers/HELPSYS.LCOM
View File

Binary file not shown.