masterscope extensions doc (internal) + tweak helpsys (#1048)

lispusers/HELPSYS

@@ -1,15 +1,15 @@
 (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
 
-
(FILECREATED "12-Oct-2022 18:33:26" {DSK}<home>frank>il>medley>wmedley>lispusers>HELPSYS.;4
 87708  
+
(FILECREATED "13-Jan-2023 10:46:39" {DSK}<home>larry>il>medley>lispusers>HELPSYS.;2
 87610  
 
-      :CHANGES-TO (FNS CLHS.LOOKUP)
+      :CHANGES-TO (VARS HELPSYSCOMS)
+                  (FNS REPO.LOOKUP)
 
-      :PREVIOUS-DATE "12-Oct-2022 18:24:45" {DSK}<home>frank>il>medley>wmedley>lispusers>HELPSYS.;3
-)
+      :PREVIOUS-DATE "12-Oct-2022 18:33:26" {DSK}<home>larry>il>medley>lispusers>HELPSYS.;1)
 
 
 (* ; "
-Copyright (c) 1985-1987, 2020, 2022 by Xerox Corporation.
+Copyright (c) 1985-1987, 2020, 2022-2023 by Xerox Corporation.
 ")
 
 (PRETTYCOMPRINT HELPSYSCOMS)
@@ -34,8 +34,8 @@ Copyright (c) 1985-1987, 2020, 2022 by Xerox Corporation.
               [INITVARS (CLHS.ROOT.URL "http://clhs.lisp.se/")
                      (CLHS.INDEX)
                      (CLHS.OPENER)
-                     (REPO.TYPES '(FNS FUNCTIONS VARS VARIABLES]
-              (GLOBALVARS CLHS.INDEX CLHS.OPENER REPO.TYPES CLHS.ROOT.URL))
+                     (HELPSYS.REPO.TYPES '(FNS FUNCTIONS VARS VARIABLES]
+              (GLOBALVARS CLHS.INDEX CLHS.OPENER HELPSYS.REPO.TYPES CLHS.ROOT.URL))
         (COMS 
 
 (* ;;; "Interface to DInfo")

@@ -322,12 +322,11 @@ Copyright (c) 1985-1987, 2020, 2022 by Xerox Corporation.
                       else
 "git web--browse"])
 
 (REPO.LOOKUP

-  [LAMBDA (ENTRY TYPES)
                                    (* ; "Edited 24-Aug-2022 16:54 by larry")


-                                                             (* ; "Edited 21-Aug-2022 15:54 by lmm")


-                                                             (* ; "Edited 19-Aug-2022 20:18 by lmm")


+  [LAMBDA (ENTRY TYPES)
                                      (* ; "Edited 13-Jan-2023 10:46 by lmm")


                                                              (* ; "Edited 16-Aug-2022 16:26 by lmm")

-    (for
 FL in
 (WHEREIS ENTRY (OR TYPES REPO.TYPES)
-                      T) bind
 POS FND
+    (for
 FL in
 (UNION (WHEREIS ENTRY (OR TYPES HELPSYS.REPO.TYPES)
+                             T)
+                      (LIST ENTRY)) bind
 POS FND
        when
 [SETQ FND (OR (FINDFILE-WITH-EXTENSIONS FL NIL '(TEDIT TXT TED))
                           (AND (SETQ POS (STRPOS "-" FL))
                                (FINDFILE-WITH-EXTENSIONS (SUBSTRING FL 1 (CL:1- POS))
@@ -1334,10 +1333,10 @@ Copyright (c) 1985-1987, 2020, 2022 by Xerox Corporation.
 
 (RPAQ? CLHS.OPENER
 )
 
-(RPAQ? REPO.TYPES
 '(FNS FUNCTIONS VARS VARIABLES))
+(RPAQ? HELPSYS.REPO.TYPES
 '(FNS FUNCTIONS VARS VARIABLES))
 (DECLARE%: DOEVAL@COMPILE DONTCOPY
 
-(GLOBALVARS CLHS.INDEX CLHS.OPENER REPO.TYPES CLHS.ROOT.URL)
+(GLOBALVARS CLHS.INDEX CLHS.OPENER HELPSYS.REPO.TYPES CLHS.ROOT.URL)
 )
 
 
@@ -1698,15 +1697,15 @@ Copyright (c) 1985-1987, 2020, 2022 by Xerox Corporation.
 (ADDTOVAR AROUNDEXITFNS
 \IRM.AROUND-EXIT)
 
 (PUTPROPS HELPSYS
 FILETYPE
 :FAKE-COMPILE-FILE)
-(PUTPROPS HELPSYS COPYRIGHT ("Xerox Corporation" 1985 1986 1987 2020 2022))
+(PUTPROPS HELPSYS COPYRIGHT ("Xerox Corporation" 1985 1986 1987 2020 2022 2023))
 (DECLARE%: DONTCOPY
-  (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)))))
+  (FILEMAP (NIL (4671 10246 (HELPSYS 4681 . 6522) (IRM.LOOKUP 6524 . 8162) (GENERIC.MAN.LOOKUP 8164 . 
+9833) (IRM.RESET 9835 . 10244)) (10503 17450 (CLHS.INDEX 10513 . 13211) (CLHS.LOOKUP 13213 . 15113) (
+CLHS.OPENER 15115 . 16438) (REPO.LOOKUP 16440 . 17448)) (70538 72056 (IRM.GET.DINFOGRAPH 70548 . 71423
+) (IRM.DISPLAY.REF 71425 . 72054)) (72058 72420 (IRM.LOAD-GRAPH 72058 . 72420)) (72745 78249 (
+IRM.DISPLAY.CREF 72755 . 74469) (IRM.CREF.BOX 74471 . 75298) (IRM.PUT.CREF 75300 . 75525) (
+IRM.GET.CREF 75527 . 75898) (IRM.CREF.BUTTONEVENTFN 75900 . 78247)) (78804 87110 (\IRM.GET.REF 78814
+ . 80145) (\IRM.SMART.REF 80147 . 82074) (\IRM.CHOOSE.REF 82076 . 83327) (\IRM.WILD.REF 83329 . 84584)
+ (\IRM.WILDCARD 84586 . 84952) (\IRM.WILD.MATCH 84954 . 86184) (\IRM.GET.HASHFILE 86186 . 86649) (
+\IRM.GET.KEYWORDS 86651 . 87108)) (87247 87403 (\IRM.AROUND-EXIT 87247 . 87403)))))
 STOP