Update CLHS reference to use Interlisp CHLS instead; use UNIXUTILS ShellBrowser (#1412)

lispusers/HELPSYS

@@ -1,12 +1,13 @@
 (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
 
-
(FILECREATED "16-Jun-2023 14:38:33" {DSK}<home>larry>il>medley>lispusers>HELPSYS.;11
 87625  
+
(FILECREATED "11-Nov-2023 09:31:38" {DSK}<home>larry>il>medley>lispusers>HELPSYS.;2
 87772  
 
       :EDIT-BY "lmm"
 
       :CHANGES-TO (VARS HELPSYSCOMS)
+                  (FNS CLHS.LOOKUP)
 
-      :PREVIOUS-DATE "13-Jan-2023 10:46:39" {DSK}<home>larry>il>medley>lispusers>HELPSYS.;10)
+      :PREVIOUS-DATE "16-Jun-2023 14:38:33" {DSK}<home>larry>il>medley>lispusers>HELPSYS.;1)
 
 
 (PRETTYCOMPRINT HELPSYSCOMS)
@@ -28,7 +29,7 @@
 
         (COMS (FNS CLHS.INDEX CLHS.LOOKUP CLHS.OPENER REPO.LOOKUP)
               (VARS CLHS.INDEX)
-              [INITVARS (CLHS.ROOT.URL "http://clhs.lisp.se/")
+              [INITVARS (CLHS.ROOT.URL "https://interlisp.org/clhs/")
                      (CLHS.INDEX)
                      (CLHS.OPENER)
                      (HELPSYS.REPO.TYPES '(FNS FUNCTIONS VARS VARIABLES]
@@ -94,8 +95,7 @@
        DINFO HASH)
 )
 
-(DEFCOMMAND "man"
 (ENTRY)
-   "Lookup ENTRY in the IRM."
+(DEFCOMMAND "man" (ENTRY) "Lookup ENTRY in the IRM."
    (GENERIC.MAN.LOOKUP
 ENTRY))
 (DEFINEQ
 
@@ -266,9 +266,10 @@
                                   else
 (LIST (SUBSTRING LINE POSLINK (CL:1- POSENDLINK])
 
 (CLHS.LOOKUP

-  [LAMBDA (ENTRY PHASES)
                                     (* ; "Edited 12-Oct-2022 18:32 by FGH")


+  [LAMBDA (ENTRY PHASES)
                                     (* ; "Edited 11-Nov-2023 09:11 by lmm")


+                                                             (* ; "Edited 12-Oct-2022 18:32 by FGH")


                                                            (* ; "Edited 24-Aug-2022 17:08 by larry")

-    (LET [(OPENER (CLHS.OPENER
))
+    (LET [(OPENER (ShellBrowser))
           (URL NIL)
           POS
           (ENTRY (L-CASE (MKSTRING ENTRY]
@@ -1329,7 +1330,7 @@
         ("yes-or-no-p" "f_y_or_n.htm" "yes-or-no-p")
         ("zerop" "f_zerop.htm" "zerop")))
 
-(RPAQ? CLHS.ROOT.URL
 "http://clhs.lisp.se/")
+(RPAQ? CLHS.ROOT.URL
 "https://interlisp.org/clhs/")
 
 (RPAQ? CLHS.INDEX
 )
 
@@ -1700,14 +1701,14 @@
 
 (PUTPROPS HELPSYS
 FILETYPE
 :FAKE-COMPILE-FILE)
 (DECLARE%: DONTCOPY
-  (FILEMAP (NIL (4609 10342 (HELPSYS 4619 . 6460) (IRM.LOOKUP 6462 . 8100) (GENERIC.MAN.LOOKUP 8102 . 
-9771) (IRM.SMART.LOOKUP 9773 . 9929) (IRM.RESET 9931 . 10340)) (10599 17546 (CLHS.INDEX 10609 . 13307)
- (CLHS.LOOKUP 13309 . 15209) (CLHS.OPENER 15211 . 16534) (REPO.LOOKUP 16536 . 17544)) (70634 72152 (
-IRM.GET.DINFOGRAPH 70644 . 71519) (IRM.DISPLAY.REF 71521 . 72150)) (72154 72516 (IRM.LOAD-GRAPH 72154
- . 72516)) (72841 78345 (IRM.DISPLAY.CREF 72851 . 74565) (IRM.CREF.BOX 74567 . 75394) (IRM.PUT.CREF 
-75396 . 75621) (IRM.GET.CREF 75623 . 75994) (IRM.CREF.BUTTONEVENTFN 75996 . 78343)) (78900 87206 (
-\IRM.GET.REF 78910 . 80241) (\IRM.SMART.REF 80243 . 82170) (\IRM.CHOOSE.REF 82172 . 83423) (
-\IRM.WILD.REF 83425 . 84680) (\IRM.WILDCARD 84682 . 85048) (\IRM.WILD.MATCH 85050 . 86280) (
-\IRM.GET.HASHFILE 86282 . 86745) (\IRM.GET.KEYWORDS 86747 . 87204)) (87343 87499 (\IRM.AROUND-EXIT 
-87343 . 87499)))))
+  (FILEMAP (NIL (4643 10376 (HELPSYS 4653 . 6494) (IRM.LOOKUP 6496 . 8134) (GENERIC.MAN.LOOKUP 8136 . 
+9805) (IRM.SMART.LOOKUP 9807 . 9963) (IRM.RESET 9965 . 10374)) (10633 17686 (CLHS.INDEX 10643 . 13341)
+ (CLHS.LOOKUP 13343 . 15349) (CLHS.OPENER 15351 . 16674) (REPO.LOOKUP 16676 . 17684)) (70781 72299 (
+IRM.GET.DINFOGRAPH 70791 . 71666) (IRM.DISPLAY.REF 71668 . 72297)) (72301 72663 (IRM.LOAD-GRAPH 72301
+ . 72663)) (72988 78492 (IRM.DISPLAY.CREF 72998 . 74712) (IRM.CREF.BOX 74714 . 75541) (IRM.PUT.CREF 
+75543 . 75768) (IRM.GET.CREF 75770 . 76141) (IRM.CREF.BUTTONEVENTFN 76143 . 78490)) (79047 87353 (
+\IRM.GET.REF 79057 . 80388) (\IRM.SMART.REF 80390 . 82317) (\IRM.CHOOSE.REF 82319 . 83570) (
+\IRM.WILD.REF 83572 . 84827) (\IRM.WILDCARD 84829 . 85195) (\IRM.WILD.MATCH 85197 . 86427) (
+\IRM.GET.HASHFILE 86429 . 86892) (\IRM.GET.KEYWORDS 86894 . 87351)) (87490 87646 (\IRM.AROUND-EXIT 
+87490 . 87646)))))
 STOP