Merge pull request #1269 from Interlisp/fgh_ipfonts

Add ipfonts to release tars

.github/ISSUE_TEMPLATE/documentation.md

@@ -0,0 +1,17 @@
+---
+name: Documentation problem
+about: Problems with this web site?
+title: ''
+labels: ''
+
+---
+
+**Errors happen. Please tell us the URL**
+
+
+**What does it say?**
+
+
+**What should it say?**
+
+**Screen shot**

.github/ISSUE_TEMPLATE/what_people_are_saying.yml

@@ -0,0 +1,32 @@
+name: "New entry for **What People Are Saying**"
+description: "Suggest a new entry for the **What People are Saying** page"
+title: "What People are Saying suggestion"
+body:
+  - type: dropdown
+    id: contentType
+    attributes:
+      label: "What type of entry?"
+      options:
+        - Blog
+        - Tweet
+        - Email
+        - Other
+    validations:
+      required: true
+  - type: input
+    id: entryLink
+    attributes:
+      label: Link to entry
+      description: "What is the link to the item we should add to the **What People are Saying** page?"
+    validations:
+      required: true
+  - type: textarea
+    id: additionalInformation
+    attributes:
+      label:  Additional information
+      description: "Use this space to supply any addiitonal information on the suggested item."
+    validations:
+      required: false
+  - type: markdown
+    attributes:
+      value: "## Thank you for your suggestion!"

.github/workflows/buildLoadup.yml

@@ -56,8 +56,8 @@ on:
 defaults:
   run:
     shell: bash
-    
-  
+
+
 jobs:
 
 ######################################################################################
@@ -83,7 +83,7 @@ jobs:
               echo "draft=${{ inputs.draft }}" >> $GITHUB_OUTPUT;
               echo "force=${{ inputs.force }}" >> $GITHUB_OUTPUT;
           fi
-        
+
 
 
 ######################################################################################
@@ -97,7 +97,7 @@ jobs:
     outputs:
       release_not_built: ${{ steps.check.outputs.release_not_built }}
 
-    steps: 
+    steps:
       # Checkout the actions for this repo owner
       - name: Checkout Actions
         uses: actions/checkout@v3
@@ -107,7 +107,7 @@ jobs:
       - run: mv ./Actions_${{ github.sha }}/actions ../actions && rm -rf ./Actions_${{ github.sha }}
 
       # Check if build already run for this commit
-      - name: Build already completed? 
+      - name: Build already completed?
         id: check
         continue-on-error: true
         uses: ./../actions/check-sentry-action
@@ -135,7 +135,7 @@ jobs:
     if: |
       needs.sentry.outputs.release_not_built == 'true'
       || needs.inputs.outputs.force == 'true'
-    
+
     steps:
       # Checkout the actions for this repo owner
       - name: Checkout Actions
@@ -162,7 +162,7 @@ jobs:
         with:
           owner: ${{ github.repository_owner }}
           repo: maiko
-          
+
       # Setup environment variables & establish job outputs
       - name: Setup Environment Variables
         run: |
@@ -198,7 +198,7 @@ jobs:
           token: ${{ secrets.GITHUB_TOKEN }}
           latest: true
           out-file-path: ${{ env.TARBALL_DIR }}
-          fileName: "${{ env.MAIKO_RELEASE_TAG }}-linux.*.tgz" 
+          fileName: "${{ env.MAIKO_RELEASE_TAG }}-linux.*.tgz"
 
       - name: Untar Maiko Release for use in loadup
         run: |
@@ -224,9 +224,9 @@ jobs:
         run: |
           Xvnc -geometry 1280x720 :0 &
           export DISPLAY=":0"
-          PATH="$PWD/maiko:$PATH" 
+          PATH="$PWD/maiko:$PATH"
           scripts/loadup-all.sh -apps
-      
+
       - name: Build loadups release tar
         run: |
           cd ..
@@ -237,7 +237,7 @@ jobs:
             medley/loadups/apps.sysout               \
             medley/loadups/whereis.hash              \
             medley/library/exports.all
-      
+
       - name: Build runtime release tar
         run: |
           cd ..
@@ -258,6 +258,7 @@ jobs:
                      medley/fonts/altofonts                      \
                      medley/fonts/adobe                          \
                      medley/fonts/postscriptfonts                \
+                     medley/fonts/ipfonts                        \
                      medley/library                              \
                      medley/lispusers                            \
                      medley/sources                              \
@@ -277,13 +278,13 @@ jobs:
       - name: Delete existing release with same tag (if any)
         uses: cb80/delrel@latest
         with:
-            tag: ${{ env.MEDLEY_RELEASE_TAG }} 
+            tag: ${{ env.MEDLEY_RELEASE_TAG }}
         continue-on-error: true
 
       - name: Push the release
         id: push_release
         uses: ncipollo/release-action@v1
-        with: 
+        with:
           allowUpdates: true
           artifacts:
             ${{ env.TARBALL_DIR }}/${{ env.MEDLEY_RELEASE_TAG }}-loadups.tgz,
@@ -335,7 +336,7 @@ jobs:
           $url = "https://sourceforge.net/projects/tigervnc/files/stable/1.12.0/vncviewer64-1.12.0.exe"
           $output = "installers\win\vncviewer64-1.12.0.exe"
           (New-Object System.Net.WebClient).DownloadFile($url, $output)
- 
+
       # Run iscc.exe to compile the installer
       - name: Compile medley.iss
         shell: powershell
@@ -348,7 +349,7 @@ jobs:
       - name: Upload windows installer to release
         id: push
         uses: ncipollo/release-action@v1
-        with: 
+        with:
           allowUpdates: true
           artifacts: installers/win/${{ env.INSTALLER_FILENAME }}
           tag: ${{ env.MEDLEY_RELEASE_TAG }}
@@ -381,7 +382,7 @@ jobs:
             else
                 remote_filename="${local_filename%.html}"
                 remote_manname="man_medley.html"
-            fi            
+            fi
             remote_filepath="/srv/oio/static/${remote_filename}"
             remote_manpath="/srv/oio/static/${remote_manname}"
             # Fill in downloads page template
@@ -403,7 +404,7 @@ jobs:
             sftp -o StrictHostKeyChecking=no -b batch ubuntu@online.interlisp.org
         env:
             SSH_KEY: ${{ secrets.OIO_SSH_KEY }}
-      
+
 
 
 ######################################################################################
@@ -420,7 +421,7 @@ jobs:
 
     needs: [inputs, sentry, loadup, windows_installer]
 
-    steps: 
+    steps:
       # Checkout the actions for this repo owner
       - name: Checkout Actions
         uses: actions/checkout@v3
@@ -440,7 +441,7 @@ jobs:
         id: output
         run: |
           echo "build_successful='true'" >> $GITHUB_OUTPUT
-          
+
 ######################################################################################
 
 

.github/workflows/buildReleaseInclDocker.yml

@@ -18,6 +18,9 @@ name: "Build/Push Release & Docker"
 
 # Run this workflow on ...
 on:
+  schedule:
+    - cron: '0 9 * * 1'
+
   workflow_dispatch:
     inputs:
       draft:
@@ -53,7 +56,7 @@ on:
 defaults:
   run:
     shell: bash
-    
+
 
 # Jobs that compose this workflow
 jobs:
@@ -72,17 +75,14 @@ jobs:
     steps:
       - id: one
         run: >
-          if [ '${{ toJSON(inputs) }}' = 'null'  ];
+          if [ '${{ toJSON(inputs) }}' != 'null'  ];
           then
-              echo "workflow_dispatch";
-              echo "draft=${{ github.event.inputs.draft }}" >> $GITHUB_OUTPUT;
-              echo "force=${{ github.event.inputs.force }}" >> $GITHUB_OUTPUT;
+            echo "draft=${{ inputs.draft }}" >> $GITHUB_OUTPUT;
+            echo "force=${{ inputs.force }}" >> $GITHUB_OUTPUT;
           else
-              echo "workflow_call";
-              echo "draft=${{ inputs.draft }}" >> $GITHUB_OUTPUT;
-              echo "force=${{ inputs.force }}" >> $GITHUB_OUTPUT;
+            echo "draft=false" >> $GITHUB_OUTPUT;
+            echo "force=false" >> $GITHUB_OUTPUT;
           fi
-        
 
 ######################################################################################
 

internal/MEDLEY-UTILS

@@ -1,10 +1,12 @@
 (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "XCL" BASE 10)
 
-
(FILECREATED " 4-Aug-2022 09:50:04" |{DSK}<home>larry>medley>internal>MEDLEY-UTILS.;2|
 10212  
+
(FILECREATED "23-May-2023 07:10:58" |{DSK}<home>larry>il>medley>internal>MEDLEY-UTILS.;12|
 10354  
 
-      :CHANGES-TO (VARS MEDLEY-UTILSCOMS)
+      :EDIT-BY "lmm"
 
-      :PREVIOUS-DATE "17-Jul-2022 12:44:56" |{DSK}<home>larry>medley>internal>MEDLEY-UTILS.;1|)
+      :CHANGES-TO (FNS GATHER-INFO)
+
+      :PREVIOUS-DATE "22-May-2023 22:57:21" |{DSK}<home>larry>il>medley>internal>MEDLEY-UTILS.;11|)
 
 
 (PRETTYCOMPRINT MEDLEY-UTILSCOMS)
@@ -15,7 +17,8 @@
 (DEFINEQ
 
 (GATHER-INFO

-  (LAMBDA (PHASE)
                                         (* \; "Edited 26-Dec-2021 18:56 by larry")


+  (LAMBDA (PHASE)
                                           (* \; "Edited 22-May-2023 23:59 by lmm")


+                                                          (* \; "Edited 26-Dec-2021 18:56 by larry")


                                                           (* \; "Edited 24-Oct-2021 09:43 by larry")

     (SELECTQ PHASE
         (ALL (|for|
 I |from|
 0 |to|
 4 |do|
 (GATHER-INFO
 I)))
@@ -47,7 +50,7 @@
                                  DEFD))
            (|for|
 X |in|
 DEFINEDFNS |when|
 (CCODEP X)
               |do|
 (LET ((Y (PUTPROP X 'CCC (CALLSCCODE X))))
-                        (|for|
 REV |in|
 '(BLOCK-CALLED-BY CALLED-BY SPECIAL-BY GLOBAL-BY)
+                        (|for|
 REV |in|
 '(BLOCK-CALLED-BY CALLED-BY BOUND-BY SPECIAL-BY GLOBAL-BY)
                            |as|
 VAL |in|
 Y |do|
 (|for|
 S |in|
 VAL
                                                    |do|
 (PUTPROP S REV (CONS X (GETPROP S REV)))))))
            (SETQ CALLEDFNS NIL)
@@ -170,7 +173,7 @@
          (DRIBBLE))))
 )
 (DECLARE\: DONTCOPY
-  (FILEMAP (NIL (600 7357 (GATHER-INFO 610 . 6020) (MAKE-FULLER-DB 6022 . 6712) (MEDLEY-FIX-LINKS 6714
- . 7111) (MEDLEY-FIX-DATES 7113 . 7355)) (8396 10189 (MAKE-EXPORTS-ALL 8406 . 9365) (MAKE-WHEREIS-HASH
- 9367 . 10187)))))
+  (FILEMAP (NIL (624 7499 (GATHER-INFO 634 . 6162) (MAKE-FULLER-DB 6164 . 6854) (MEDLEY-FIX-LINKS 6856
+ . 7253) (MEDLEY-FIX-DATES 7255 . 7497)) (8538 10331 (MAKE-EXPORTS-ALL 8548 . 9507) (MAKE-WHEREIS-HASH
+ 9509 . 10329)))))
 STOP

library/BROWSER

@@ -1,17 +1,17 @@
 (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
 
-
(FILECREATED " 7-Feb-2022 14:06:19" {DSK}<Users>kaplan>Local>medley3.5>my-medley>library>BROWSER.;3
 26344  
+
(FILECREATED "26-Apr-2023 12:41:36" {DSK}<home>larry>il>medley>library>BROWSER.;6
 29801  
 
-      :CHANGES-TO (VARS BROWSERCOMS)
-                  (FNS GET.BROWSE.PP.WINDOW NUMSPATHS)
+      :EDIT-BY "lmm"
 
-      :PREVIOUS-DATE "25-Mar-94 13:43:20" 
-{DSK}<Users>kaplan>Local>medley3.5>my-medley>library>BROWSER.;1)
+      :CHANGES-TO (FNS BROWSER.LEFTFN NUMSPATHS STBROWSER MSPATHS.DISPATCH BROWSER 
+                       BROWSER.WHENFNSCHANGED BRPATHS1 GET.BROWSE.PP.WINDOW 
+                       GET.BROWSE.DESCRIBE.WINDOW BROWSEPP PPREPAINTFN PPRESHAPEFN DESCRIBEREPAINTFN
+                       BROWSERDESCRIBE BROWSER.MIDDLEFN DEDITPROCESSRUNNINGP REDRAWBROWSEGRAPH)
+                  (VARS BROWSERCOMS BROWSER.BORDERS)
 
+      :PREVIOUS-DATE "15-Apr-2023 18:55:36" {DSK}<home>larry>il>medley>library>BROWSER.;1)
 
-(* ; "
-Copyright (c) 1983-1984, 1987-1988, 1990, 1993-1994 by Venue & Xerox Corporation.
-")
 
 (PRETTYCOMPRINT BROWSERCOMS)
 
@@ -20,27 +20,26 @@ Copyright (c) 1983-1984, 1987-1988, 1990, 1993-1994 by Venue & Xerox Corporation
         (DECLARE%: EVAL@COMPILE DONTCOPY (FILES (LOADCOMP)
                                                 GRAPHER)
                (CONSTANTS (CHANGEDSHADE 8840)))
-        (FNS NUMSPATHS BROWSER BROWSER.WHENFNSCHANGED BRPATHS1 BROWSER.LEFTFN GET.BROWSE.PP.WINDOW 
-             GET.BROWSE.DESCRIBE.WINDOW BROWSEPP PPREPAINTFN PPRESHAPEFN DESCRIBEREPAINTFN 
-             BROWSERDESCRIBE BROWSER.MIDDLEFN DEDITPROCESSRUNNINGP REDRAWBROWSEGRAPH STBROWSER)
+        (FNS MSPATHS.DISPATCH NUMSPATHS BROWSER BROWSER.WHENFNSCHANGED BRPATHS1 BROWSER.LEFTFN 
+             GET.BROWSE.PP.WINDOW GET.BROWSE.DESCRIBE.WINDOW BROWSEPP PPREPAINTFN PPRESHAPEFN 
+             DESCRIBEREPAINTFN BROWSERDESCRIBE BROWSER.MIDDLEFN DEDITPROCESSRUNNINGP 
+             REDRAWBROWSEGRAPH STBROWSER)
         (GLOBALRESOURCES BROWSEHASH)
         (DECLARE%: DONTCOPY (RECORDS BROWSEWIN PATHSARGS))
-        [VARS (BROWSERBOXING)
-              (BROWSERFORMAT)
-              (BROWSERWINDOWS)
-              (NODESELECTIONWINDOW)
-              (PFWINDOW)
-              (BROWSER.DESCRIBE.WINDOW)
-              (BrowserPPWindowWidth 750)
-              (BROWSERFONT '(GACHA 8]
-        [P (MOVD? 'MSPATHS 'OLDMSPATHS)
-           (MOVD? 'NILL 'MODERNWINDOW)
-           (PROG [(WC (FILEPKGTYPE 'FNS 'WHENCHANGED]
-                 (OR (MEMB 'BROWSER.WHENFNSCHANGED WC)
-                     (FILEPKGTYPE 'FNS 'WHENCHANGED (CONS 'BROWSER.WHENFNSCHANGED WC]
-        (DECLARE%: DONTEVAL@LOAD DOCOPY (P (SELECTQ (SYSTEMTYPE)
-                                                  (D (BROWSER T))
-                                                  NIL])
+        [INITVARS (BROWSER T)
+               (BROWSERBOXING)
+               (BROWSERFORMAT)
+               (BROWSERWINDOWS)
+               (NODESELECTIONWINDOW)
+               (PFWINDOW)
+               (BROWSER.DESCRIBE.WINDOW)
+               (BrowserPPWindowWidth 750)
+               (BROWSERMAX 10)
+               (BROWSERFONT '(GACHA 8]
+        (P (MOVD? 'NILL 'MODERNWINDOW))
+        (VARS BROWSER.BORDERS)
+        (GLOBALVARS BROWSER.BORDERS BROWSERWINDOWS)
+        (DECLARE%: DONTEVAL@LOAD DOCOPY (P (BROWSER T])
 
 (FILESLOAD MASTERSCOPE GRAPHER)
 (DECLARE%: EVAL@COMPILE DONTCOPY 
@@ -58,64 +57,74 @@ Copyright (c) 1983-1984, 1987-1988, 1990, 1993-1994 by Venue & Xerox Corporation
 )
 (DEFINEQ
 
-(NUMSPATHS

+(MSPATHS.DISPATCH

   [LAMBDA (FROM
 TO
 INVERTED AVOIDING SEPARATE NOTRACE MARKING)

-                                                             (* ; "Edited  7-Feb-2022 13:57 by rmk")


-                                                             (* ; "Edited 11-Apr-88 11:08 by jrb:")

-    (COND
-       [(AND (WINDOWWORLD)
+                                                             (* ; "Edited 15-Apr-2023 11:33 by lmm")

+    (IF
 (AND (GETD 'NUMSPATHS)
+             (WINDOWWORLD)
              (EQ (OUTPUT)
                  T))
-        [OR AVOIDING (SETQ AVOIDING '(NIL (NIL NIL . FNS)
-                                          APPLY LAMBDA (X)
-                                          (GETPROP X 'AVOID]
-        (RESETVARS ((MSPRINTFLG))
-                   (AND INVERTED (UPDATECHANGED))
-                   (STBROWSER

-                    [GLOBALRESOURCE
-                     BROWSEHASH
-                     (PROG [X NAMED TEM (UNDONE (MSLISTSET FROM T))
-                              ROOTS GRAPHNODE.LIST (SEEN BROWSEHASH)
-                              (CALLRELATION (PARSERELATION 'CALL]
-                           (DECLARE
 (SPECVARS SEEN UNDONE GRAPHNODE.LIST))
-                           (CLRHASH SEEN)
-                           (for
 X in
 UNDONE do
 (PUTHASH X (COND
-                                                             ((AND NOTRACE (MSMEMBSET X NOTRACE))
-                                                              -1)
-                                                             (T 0))
-                                                      SEEN)
-                                               (OR INVERTED (UPDATEFN X NIL 0)))
-                           [do
 (COND
-                                  (NAMED (PUTHASH (CAR NAMED)
-                                                0 SEEN)
-                                         [push
 ROOTS (fetch
 (GRAPHNODE NODEID)
-                                                        of
 (BRPATHS1
 (CAR NAMED]
-                                         (SETQ NAMED (CDR NAMED)))
-                                  (UNDONE [COND
-                                             ([OR (NULL (SETQ TEM (GETHASH (CAR UNDONE)
-                                                                         SEEN)))
-                                                  (EQ TEM 0)
-                                                  (AND (LISTP TEM)
-                                                       (NULL (CAR TEM]
-                                              (PUTHASH (CAR UNDONE)
-                                                     (LIST NIL)
-                                                     SEEN)
-                                              (SETQ NAMED (LIST (CAR UNDONE]
-                                         (SETQ UNDONE (CDR UNDONE)))
-                                  (T (RETURN]
-                           (RETURN (LAYOUTFOREST GRAPHNODE.LIST ROOTS BROWSERFORMAT BROWSERBOXING]
-                    (PROG1 (LIST FROM TO INVERTED AVOIDING SEPARATE NOTRACE)
-                                                             (* ; 
-
                                                   "this LIST is actually an 'instance' of PATHSARGS")

-                           ]
-       (T (OLDMSPATHS FROM TO INVERTED AVOIDING SEPARATE NOTRACE MARKING])
+        THEN
 (NUMSPATHS
 FROM TO INVERTED AVOIDING SEPARATE NOTRACE MARKING)
+      ELSE
 (OLDMSPATHS FROM TO INVERTED AVOIDING SEPARATE NOTRACE MARKING])
+
+(NUMSPATHS

+  [LAMBDA (FROM
 TO
 INVERTED AVOIDING SEPARATE NOTRACE MARKING DEPTH)
+    (DECLARE
 (SPECVARS INVERTED GRAPHNODE.LIST))
             (* ; "Edited 26-Apr-2023 09:12 by lmm")


+                                                             (* ; "Edited 15-Apr-2023 18:43 by lmm")


+                                                             (* ; "Edited  7-Feb-2022 13:57 by rmk")


+                                                             (* ; "Edited 11-Apr-88 11:08 by jrb:")

+    [OR AVOIDING (SETQ AVOIDING '(NIL (NIL NIL . FNS)
+                                      APPLY LAMBDA (X)
+                                      (GETPROP X 'AVOID]
+    (AND INVERTED (UPDATECHANGED))
+    (OR DEPTH (SETQ DEPTH BROWSERMAX))
+    (WITH-RESOURCES BROWSEHASH (PROG [NAMED TEM (UNDONE (MSLISTSET FROM T))
+                                            ROOTS GRAPHNODE.LIST (SEEN BROWSEHASH)
+                                            (CALLRELATION (PARSERELATION 'CALL]
+                                     (DECLARE
 (SPECVARS SEEN GRAPHNODE.LIST CALLRELATION))
+                                     (CLRHASH SEEN)
+                                     (for
 X in
 UNDONE do
 (PUTHASH X (COND
+                                                                       ((AND NOTRACE (MSMEMBSET
+                                                                                      X NOTRACE))
+                                                                        -1)
+                                                                       (T 0))
+                                                                SEEN)
+                                                         (OR INVERTED (UPDATEFN X NIL 0)))
+                                     [do
 (COND
+                                            (NAMED (PUTHASH (CAR NAMED)
+                                                          0 SEEN)
+                                                   (PUSH
 ROOTS (fetch
 (GRAPHNODE NODEID)
+                                                                  of
 (BRPATHS1
 (CAR NAMED)
+                                                                            DEPTH)))
+                                                   (SETQ NAMED (CDR NAMED)))
+                                            (UNDONE [COND
+                                                       ([OR (NULL (SETQ TEM (GETHASH (CAR UNDONE)
+                                                                                   SEEN)))
+                                                            (EQ TEM 0)
+                                                            (AND (LISTP TEM)
+                                                                 (NULL (CAR TEM]
+                                                        (PUTHASH (CAR UNDONE)
+                                                               (LIST NIL)
+                                                               SEEN)
+                                                        (SETQ NAMED (LIST (CAR UNDONE]
+                                                   (SETQ UNDONE (CDR UNDONE)))
+                                            (T (RETURN]
+                                     (RETURN (STBROWSER
 (LAYOUTGRAPH GRAPHNODE.LIST ROOTS
+                                                               (APPEND BROWSERFORMAT BROWSERBOXING))
+                                                    (LIST FROM TO INVERTED AVOIDING SEPARATE NOTRACE
+                                                          MARKING DEPTH])
 
 (BROWSER

-  [LAMBDA (DISPLAYFLG)
                                       (* rmk%: "16-Dec-83 15:39")

-    (COND
-       (DISPLAYFLG (SETQ BROWSERFONT (FONTCREATE BROWSERFONT))
-              (MOVD 'NUMSPATHS 'MSPATHS))
-       (T (MOVD 'OLDMSPATHS 'MSPATHS])
+  [LAMBDA (DISPLAYFLG)
                                       (* ; "Edited 15-Apr-2023 14:55 by lmm")

+                                                             (* rmk%: "16-Dec-83 15:39")

+    (MOVD? 'MSPATHS 'OLDMSPATHS)
+    (MOVD 'MSPATHS.DISPATCH 'MSPATHS)
+    (SETQ BROWSER DISPLAYFLG)
+    (OR (FONTP BROWSERFONT)
+        (SETQ BROWSERFONT (FONTCREATE BROWSERFONT)))
+    (PROG [(WC (FILEPKGTYPE 'FNS 'WHENCHANGED]
+          (OR (MEMB 'BROWSER.WHENFNSCHANGED WC)
+              (FILEPKGTYPE 'FNS 'WHENCHANGED (CONS 'BROWSER.WHENFNSCHANGED WC])
 
 (BROWSER.WHENFNSCHANGED

   [LAMBDA (FNNAME TYPE REASON)                               (* DECLARATIONS%: (RECORDS BROWSEWIN))

@@ -134,78 +143,122 @@ Copyright (c) 1983-1984, 1987-1988, 1990, 1993-1994 by Venue & Xerox Corporation
                  FNNAME))
         (BROWSERDESCRIBE
 FNNAME BROWSER.DESCRIBE.WINDOW)))
     (for
 X in
 BROWSERWINDOWS do
 (COND
-                                               ((find
 GRAPHNODE
-                                                   in
 (fetch
 (GRAPH GRAPHNODES)
-                                                             of
 (fetch
 (BROWSEWIN GRAPH)
-                                                                       of
 X))
-                                                   suchthat
 (EQ (fetch
 (GRAPHNODE NODELABEL)
-                                                                       of
 GRAPHNODE)
-                                                                    FNNAME))
-                                                (COND
-                                                   ((fetch
 (BROWSEWIN GRAPH) of
 X)
-                                                    (DSPFILL NIL CHANGEDSHADE 'PAINT
-                                                           (fetch
 (BROWSEWIN WINDOW) of

-                                                                                         X))
-                                                    (WINDOWPROP (fetch
 (BROWSEWIN WINDOW)
-                                                                   of
 X)
-                                                           'BUTTONEVENTFN
-                                                           (FUNCTION REDRAWBROWSEGRAPH))
-                                                    (replace
 (BROWSEWIN GRAPH) of
 X
-                                                       with
 NIL])
+                                   ((find
 GRAPHNODE in
 (fetch
 (GRAPH GRAPHNODES)
+                                                          of
 (fetch
 (BROWSEWIN GRAPH) of
 X))
+                                       suchthat
 (EQ (fetch
 (GRAPHNODE NODELABEL) of
 GRAPHNODE)
+                                                    FNNAME))
+                                    (COND
+                                       ((fetch
 (BROWSEWIN GRAPH) of
 X)
+                                        (DSPFILL NIL CHANGEDSHADE 'PAINT (fetch
 (BROWSEWIN WINDOW)
+                                                                            of
 X))
+                                        (WINDOWPROP (fetch
 (BROWSEWIN WINDOW) of
 X)
+                                               'BUTTONEVENTFN
+                                               (FUNCTION REDRAWBROWSEGRAPH))
+                                        (replace
 (BROWSEWIN GRAPH) of
 X with
 NIL])
 
 (BRPATHS1

-  [LAMBDA (FROM
)
                                     (* ; "Edited 11-Apr-88 11:27 by jrb:")

-    (DECLARE
 (GLOBALVARS BROWSERFONT))
-    (PROG (TEM)
+  [LAMBDA (FROM
 DEPTH)
                                       (* ; "Edited 25-Apr-2023 10:59 by lmm")


+                                                             (* ; "Edited 11-Apr-88 11:27 by jrb:")

+    (DECLARE
 (SPECVARS INVERTED)
+           (GLOBALVARS BROWSERFONT MISSING.GRAPH.NODEBORDER))
+    (PROG (TEM ENTRY TOFNS)
           (MSPATHS2 FROM)
           (COND
              ((EQ (SETQ TEM (GETHASH FROM SEEN))
                   -1)                                        (* ; 
-
                                              "on NOPATHS list - create a node for it with no subs")

+
                                                "on NOPATHS list - create a node for it with no subs")

               (SETQ TEM (create
 GRAPHNODE
                                NODEID _ FROM
                                NODELABEL _ FROM
                                NODEFONT _ BROWSERFONT
                                TONODES _ NIL))
-              (push
 GRAPHNODE.LIST TEM)
+              (PUAH GRAPHNODE.LIST TEM)
               (PUTHASH FROM TEM SEEN)
               (RETURN TEM))
              ((NEQ TEM 0)                                    (* ; "already expanded into a list")

               (RETURN TEM))
-             (T (RETURN (PROG ((ENTRY (create
 GRAPHNODE
-                                             NODEID _ FROM
-                                             NODELABEL _ FROM
-                                             NODEFONT _ BROWSERFONT)))
-                              (push
 GRAPHNODE.LIST ENTRY)
-                              (PUTHASH FROM ENTRY SEEN)
-                              (replace
 (GRAPHNODE TONODES) of
 ENTRY
-                                 with
 (for
 X
-                                             in
 (for
 Y
-                                                       in
 (COND
-                                                                 ((NOT INVERTED)
-                                                                  (GETRELATION FROM CALLRELATION))
-                                                                 (T (GETRELATION FROM CALLRELATION T)
-                                                                    )) when
 (MSPATHS2 Y)
-                                                       collect
 Y) when
 (SETQ X (BRPATHS1

-                                                                                        X))
-                                             collect
 (fetch
 (GRAPHNODE NODEID) of
 X)))
-                              (RETURN ENTRY])
+             (T [SETQ TOFNS (COND
+                               ((NOT INVERTED)
+                                (GETRELATION FROM CALLRELATION))
+                               (T (GETRELATION FROM CALLRELATION T]
+                (SETQ ENTRY (create
 GRAPHNODE
+                                   NODEID _ FROM
+                                   NODELABEL _ FROM
+                                   NODEFONT _ BROWSERFONT))
+                (PUSH
 GRAPHNODE.LIST ENTRY)
+                (PUTHASH FROM ENTRY SEEN)
+                (IF
 (AND TOFNS (<= DEPTH 0))
+                    THEN
 (REPLACE
 (GRAPHNODE NODEBORDER) OF
 ENTRY WITH
 (CDDR (ASSOC 'ENDOFLINE 
+                                                                                    BROWSER.BORDERS))
+                                )
+                         (RETURN ENTRY))
+                (replace
 (GRAPHNODE TONODES) of
 ENTRY with
 (for
 X
+                                                              in
 (for
 Y in
 TOFNS
+                                                                    when
 (MSPATHS2 Y) collect
 Y)
+                                                              when
 (SETQ X (BRPATHS1
 X
+                                                                                  (- DEPTH 1)))
+                                                              collect
 (fetch
 (GRAPHNODE NODEID)
+                                                                         of
 X)))
+                (RETURN ENTRY])
 
 (BROWSER.LEFTFN

-  [LAMBDA (NODE NWINDOW)
                                     (* ; "Edited 31-Mar-87 11:16 by jop")

+  [LAMBDA (NODE NWINDOW)
                                     (* ; "Edited 26-Apr-2023 12:41 by lmm")


+                                                             (* ; "Edited 31-Mar-87 11:16 by jop")

                                                              (* ; 
 
                                                 "function that is applied upon selection of a node.")

-    (COND
-       ((NULL NODE))
-       ((EQ (fetch
 NODELABEL of
 NODE)
-            (WINDOWPROP (GET.BROWSE.PP.WINDOW
)
-                   'FNBROWSED))
-        (BROWSERDESCRIBE
 (fetch
 NODELABEL of
 NODE)
-               (GET.BROWSE.DESCRIBE.WINDOW
)))
-       (T                                                    (* ; 
-
                                                            "if first time touched, pretty print it.")

-          (BROWSEPP
 (fetch
 NODELABEL of
 NODE)
-                 (GET.BROWSE.PP.WINDOW
])
+    (PROG (FN SELECTION)
+          (IF
 (NULL NODE)
+              THEN
 (RETURN)
+                   (MOVEW NWINDOW)                           (* ; 
+
                                                       " really want to just drag the content around")

+                   (RETURN))
+          (IF
 (NULL (SETQ FN (FETCH
 NODELABEL OF
 NODE)))
+              THEN
 (RETURN))
+          [SETQ SELECTION (MENU (CREATE
 MENU
+                                       ITEMS _ '(CallsFrom CallsTo Edit Show InspectCode]
+
+     (* ;; "Mot implemented: Ignore Avoid")

+
+          (DESTRUCTURING-BIND (FROM
 TO
 INVERTED AVOIDING SEPARATE NOTRACE MARKING DEPTH)
+                 (FOR
 BW IN
 BROWSERWINDOWS WHEN
 (EQ (FETCH
 (BROWSEWIN WINDOW) OF
 BW)
+                                                    NWINDOW) DO
 (RETURN (FETCH
 (BROWSEWIN ARGS)
+                                                                           OF
 BW))
+                    FINALLY
 (PROMPTPRINT "No browser window found for" FN)
+                          (RETURN))
+
+                 (* ;; "Now we have the arguments to MSPATHS .. insert this node?")

+
+                 (SELECTQ SELECTION
+                     ((NIL) 
+                          (RETURN))
+                     ((CallsFrom CallsTo) 
+                                          (* ;; "new graph, FN at the root")

+
+                          (NUMSPATHS
 (CREATE
 SENTENCE
+                                            SUBJECT _ '(NIL NIL . FNS)
+                                            MSPRED _ 'QUOTE
+                                            OTHERSTUFF _ (LIST FN))
+                                 (IF
 INVERTED
+                                     THEN
 TO
+                                   ELSE
 FROM)
+                                 INVERTED AVOIDING NIL NOTRACE MARKING DEPTH))
+                     NIL
+                     (Ignore                                 (* ; "local ignore")
)
+                     (Avoid                                  (* ; " global ignore")
)
+                     (Edit (ED FN (IF
 (HASDEF FN 'FNS)
+                                      THEN
 'FNS
+                                    ELSEIF
 (HASDEF FN 'FUNCTIONS)
+                                      THEN
 'FUNCTIONS
+                                    ELSE
 (PROMPTPRINT FN "no definition")
+                                         NIL)))
+                     (Show (CL:UNLESS (EQ FN (WINDOWPROP (GET.BROWSE.PP.WINDOW
)
+                                                    'FNBROWSED))
+                               (BROWSEPP
 FN (GET.BROWSE.PP.WINDOW
))))
+                     (Describe (BROWSERDESCRIBE
 FN (GET.BROWSE.DESCRIBE.WINDOW
)))
+                     (InspectCode (IF
 (NOT (CCODEP FN))
+                                      THEN
 (PROMPTPRINT FN "not compiled")
+                                    ELSE
 (INSPECTCODE FN)))
+                     (HELP])
 
 (GET.BROWSE.PP.WINDOW

   [LAMBDA NIL
                                                (* ; "Edited  7-Feb-2022 14:01 by rmk")


@@ -253,9 +306,9 @@ Copyright (c) 1983-1984, 1987-1988, 1990, 1993-1994 by Venue & Xerox Corporation
                                                             BOTTOM])
 
 (PPREPAINTFN

-  [LAMBDA (WINDOW REGION RESHAPE)
                       (* ; "Edited 11-Jun-90 14:11 by mitani")

+  [LAMBDA (WINDOW REGION RESHAPE)
                           (* ; "Edited 11-Jun-90 14:11 by mitani")

 
-    (* ;; "repaints the browser pp window WINDOW.  Returns the width of the image so that caller can set the EXTENT.")

+    (* ;; "repaints the browser pp window WINDOW.  Returns the width of the image so that caller can set the EXTENT.")

 
     (PROG ((FN (WINDOWPROP WINDOW 'FNBROWSED))
            (EXTENT (WINDOWPROP WINDOW 'EXTENT))
@@ -265,25 +318,23 @@ Copyright (c) 1983-1984, 1987-1988, 1990, 1993-1994 by Venue & Xerox Corporation
                          (MOVETOUPPERLEFT WINDOW EXTENT)
                          (printout WINDOW .FONT DEFAULTFONT)
                          (COND
-                            ((for
 FPTYPE in
 MSFNTYPES
-                                when
 (SETQ DEF (GETDEF FN (ffetch
 (MSANALYZABLE FILEPKGNAME)
-                                                                 of
 FPTYPE)
-                                                          NIL
-                                                          'NOERROR))
-                                do
 (SETQ FNTYPE (ffetch
 (MSANALYZABLE FILEPKGNAME)
-                                                       of
 FPTYPE))
-                                      (RETURN DEF) finally
 NIL)
-                                                             (* ; 
-
                                                           "set up linelength characteristics.")

+                            ((for
 FPTYPE in
 MSFNTYPES when
 (SETQ DEF (GETDEF FN (ffetch
 (MSANALYZABLE
+                                                                                         FILEPKGNAME)
+                                                                                   of
 FPTYPE)
+                                                                            NIL
+                                                                            'NOERROR))
+                                do
 (SETQ FNTYPE (ffetch
 (MSANALYZABLE FILEPKGNAME) of
 FPTYPE))
+                                   (RETURN DEF) finally
 NIL) (* ; 
+
                                                             "set up linelength characteristics.")

                              (RESETLST
                                  (RESETSAVE (OUTPUT WINDOW))
                                  (RESETSAVE (SETREADTABLE T))
                                  (RESETSAVE **COMMENT**FLG)
                                  (if
 (EQ FNTYPE 'FNS)
-                                     then
 (printout WINDOW "(" .FONT LAMBDAFONT |.P2| FN .FONT 
-                                                     DEFAULTFONT T))
-                                 (DSPRIGHTMARGIN (fetch
 (REGION RIGHT) of
 (DSPCLIPPINGREGION
-                                                                                   NIL WINDOW))
+                                     then
 (printout WINDOW "(" .FONT LAMBDAFONT .P2 FN .FONT 
+                                                 DEFAULTFONT T))
+                                 (DSPRIGHTMARGIN (fetch
 (REGION RIGHT) of
 (DSPCLIPPINGREGION NIL 
+                                                                                 WINDOW))
                                         WINDOW)
                                  (PRINTDEF DEF (AND (EQ FNTYPE 'FNS)
                                                     2)
@@ -291,19 +342,19 @@ Copyright (c) 1983-1984, 1987-1988, 1990, 1993-1994 by Venue & Xerox Corporation
                                  (if
 (EQ FNTYPE 'FNS)
                                      then
 (PRIN1 ")" WINDOW)))
                              (fetch
 (REGION WIDTH) of
 (DSPCLIPPINGREGION NIL WINDOW)))
-                            (T                               (* ; 
-
                                                           "set right margin out so wouldn't clip.")

+                            (T                               (* ; 
+
                                                             "set right margin out so wouldn't clip.")

                                (DSPRIGHTMARGIN 5000 WINDOW)
                                (APPLY* (FUNCTION PF*)
                                       FN NIL (GETSTREAM WINDOW))
-                               (DSPRIGHTMARGIN (fetch
 (REGION RIGHT) of
 (DSPCLIPPINGREGION
-                                                                                 NIL WINDOW))
+                               (DSPRIGHTMARGIN (fetch
 (REGION RIGHT) of
 (DSPCLIPPINGREGION NIL WINDOW
+                                                                               ))
                                       WINDOW)
                                BrowserPPWindowWidth)))
                      (T 0])
 
 (PPRESHAPEFN

-  [LAMBDA (WINDOW)
                                           (* lmm "20-Jul-84 15:48")

+  [LAMBDA (WINDOW)                                           (* lmm "20-Jul-84 15:48")

     (BROWSEPP
 (WINDOWPROP WINDOW 'FNBROWSED)
            WINDOW])
 
@@ -314,17 +365,18 @@ Copyright (c) 1983-1984, 1987-1988, 1990, 1993-1994 by Venue & Xerox Corporation
     (PROG [(FN (WINDOWPROP WIN 'FNBROWSED))
            (EXTENT (WINDOWPROP WIN 'EXTENT]
           (COND
-             (FN (RESETLST (RESETSAVE MSPRINTFLG NIL)
-                        (RESETSAVE (OUTPUT WIN))
-                        (DSPSCROLL 'OFF WIN)
-                        (COND
-                           (EXTENT (MOVETOUPPERLEFT WIN EXTENT)))
-                        (MSDESCRIBE FN])
+             (FN (RESETLST
+                     (RESETSAVE MSPRINTFLG NIL)
+                     (RESETSAVE (OUTPUT WIN))
+                     (DSPSCROLL 'OFF WIN)
+                     (COND
+                        (EXTENT (MOVETOUPPERLEFT WIN EXTENT)))
+                     (MSDESCRIBE FN))])
 
 (BROWSERDESCRIBE

   [LAMBDA (FN WIN)
                                           (* ; "Edited 31-Mar-87 11:15 by jop")

-          
-          (* ;; "puts the masterscope DESCRIBE information in the window DS.  Keeps tracks of which fn so if it changes the window can be updated.")

+
+    (* ;; "puts the masterscope DESCRIBE information in the window DS.  Keeps tracks of which fn so if it changes the window can be updated.")

 
     (WINDOWPROP WIN 'FNBROWSED FN)
     (CLEARW WIN)
@@ -337,9 +389,9 @@ Copyright (c) 1983-1984, 1987-1988, 1990, 1993-1994 by Venue & Xerox Corporation
                                                    (DSPYPOSITION NIL WIN])
 
 (BROWSER.MIDDLEFN

-  [LAMBDA (NODE NWINDOW)
                                 (* ; "Edited 25-Mar-94 13:25 by jds")

+  [LAMBDA (NODE NWINDOW)
                                     (* ; "Edited 25-Mar-94 13:25 by jds")

                                                              (* ; 
-
                 "called when yellow selection from browser.  Call display editor on the function.")

+
                   "called when yellow selection from browser.  Call display editor on the function.")

     (COND
        ((NULL NODE))
        [(THIS.PROCESS)                                       (* ; "processes are running.")

@@ -352,7 +404,7 @@ Copyright (c) 1983-1984, 1987-1988, 1990, 1993-1994 by Venue & Xerox Corporation
                               " " "into the Dedit " "window then selecting 'Edit'."))
                       (T (ADD.PROCESS `(ED ',(fetch
 NODELABEL of
 NODE])
             ((SEDIT SEDIT:SEDIT)                             (* ; 
-
                                                     "SEdit doesn't have to worry about this stuff")

+
                                                       "SEdit doesn't have to worry about this stuff")

                  (ED (fetch
 NODELABEL of
 NODE)
                      ':DONTWAIT))
             (ED (fetch
 NODELABEL of
 NODE]
@@ -360,8 +412,8 @@ Copyright (c) 1983-1984, 1987-1988, 1990, 1993-1994 by Venue & Xerox Corporation
 
 (DEDITPROCESSRUNNINGP

   [LAMBDA NIL
                                                (* ; "Edited 31-Mar-87 11:27 by jop")

-          
-          (* ;; "is there a dedit process running?")

+
+    (* ;; "is there a dedit process running?")

 
     (AND (EQ (EDITMODE)
              'DEDIT)
@@ -369,73 +421,69 @@ Copyright (c) 1983-1984, 1987-1988, 1990, 1993-1994 by Venue & Xerox Corporation
 
 (REDRAWBROWSEGRAPH

   [LAMBDA (WINDOW)                                           (* DECLARATIONS%: (RECORDS BROWSEWIN))

+                                                             (* ; "Edited 15-Apr-2023 16:12 by lmm")

                                                              (* ; "Edited 31-Mar-87 11:24 by jop")

-    (PROG [(WN (find
 X in
 BROWSERWINDOWS suchthat
 (EQ (fetch
 (BROWSEWIN WINDOW)
-                                                                     of
 X)
-                                                                  WINDOW]
-          (AND WN (APPLY 'NUMSPATHS (fetch
 (BROWSEWIN ARGS) of
 WN)))
-                                                             (* ; "(OR WN (SHOULDNT))")

+    (PROG [(WN (find
 X in
 BROWSERWINDOWS suchthat
 (EQ (fetch
 (BROWSEWIN WINDOW) of
 X)
+                                                      WINDOW]
+          (AND WN (APPLY (FUNCTION NUMSPATHS)
+                         (fetch
 (BROWSEWIN ARGS) of
 WN)))    (* ; "(OR WN (SHOULDNT))")

           (WINDOWPROP WINDOW 'BUTTONEVENTFN (FUNCTION APPLYTOSELECTEDNODE))
           (APPLYTOSELECTEDNODE WINDOW])
 
 (STBROWSER

   [LAMBDA (GRAPH ARGS)                                       (* DECLARATIONS%: (RECORDS BROWSEWIN))

+                                                             (* ; "Edited 25-Apr-2023 21:05 by lmm")

                                                              (* ; "Edited 31-Mar-87 11:18 by jop")

 
     (* ;; "puts a browser graph for the args FROMFN in a window.  If a similar graph is already a window, that window is reused;  otherwise a new window is created.")

 
-    (WINDOWADDPROP (bind
 TMP for
 W in
 BROWSERWINDOWS
-                      when
 (EQUAL (fetch
 (PATHSARGS DISCRIMINANT) of
 ARGS)
-                                      (fetch
 (PATHSARGS DISCRIMINANT) of
 (fetch

-                                                                                  (BROWSEWIN ARGS)
-                                                                                    of
 W)))
+    (WINDOWADDPROP (bind
 TMP for
 W in
 BROWSERWINDOWS when
 (EQUAL (fetch
 (PATHSARGS DISCRIMINANT)
+                                                                    of
 ARGS)
+                                                                 (fetch
 (PATHSARGS DISCRIMINANT)
+                                                                    of
 (fetch
 (BROWSEWIN ARGS)
+                                                                          of
 W)))
                       do
 (replace
 (BROWSEWIN ARGS) of
 W with
 ARGS)
-                            (replace
 (BROWSEWIN GRAPH) of
 W with
 GRAPH)
-                            (SHOWGRAPH GRAPH (SETQ W (fetch
 (BROWSEWIN WINDOW) of
 W))
-                                   (FUNCTION BROWSER.LEFTFN)
-                                   (FUNCTION BROWSER.MIDDLEFN))
-                            (RETURN W)
+                         (replace
 (BROWSEWIN GRAPH) of
 W with
 GRAPH)
+                         (SHOWGRAPH GRAPH (SETQ W (fetch
 (BROWSEWIN WINDOW) of
 W))
+                                (FUNCTION BROWSER.LEFTFN)
+                                (FUNCTION BROWSER.MIDDLEFN))
+                         (RETURN W)
                       finally
 (SETQ W (SHOWGRAPH GRAPH (CONCAT "PATHS"
-                                                                  (COND
-                                                                     ((SETQ TMP (fetch

-                                                                                 (PATHSARGS FROM)
-                                                                                   of
 ARGS))
+                                                              (COND
+                                                                 ((SETQ TMP (fetch
 (PATHSARGS FROM)
+                                                                               of
 ARGS))
+                                                                  (CONCAT (COND
+                                                                             ((CADR (CADR TMP))
+                                                                              " FROM ")
+                                                                             (T " TO "))
+                                                                         (CADDDR TMP)))
+                                                                 (T ""))
+                                                              (COND
+                                                                 ((SETQ TMP (fetch
 (PATHSARGS TO)
+                                                                               of
 ARGS))
                                                              (* ; 
-
                          "CADDDR here gets the thing that looks like it might be a function name.")

-                                                                      (CONCAT (COND
-                                                                                 ((CADR (CADR TMP))
-                                                                                  " FROM ")
-                                                                                 (T " TO "))
-                                                                             (CADDDR TMP)))
-                                                                     (T ""))
-                                                                  (COND
-                                                                     ((SETQ TMP (fetch

-                                                                                 (PATHSARGS TO)
-                                                                                   of
 ARGS))
-                                                             (* ; 
-
                          "CADDDR here gets the thing that looks like it might be a function name.")

-                                                                      (CONCAT (COND
-                                                                                 ((CADR (CADR TMP))
-                                                                                  " FROM ")
-                                                                                 (T " TO "))
-                                                                             (CADDDR TMP)))
-                                                                     (T "")))
-                                                 (FUNCTION BROWSER.LEFTFN)
-                                                 (FUNCTION BROWSER.MIDDLEFN)))
+
                            "CADDDR here gets the thing that looks like it might be a function name.")

+                                                                  (CONCAT (COND
+                                                                             ((CADR (CADR TMP))
+                                                                              " FROM ")
+                                                                             (T " TO "))
+                                                                         (CADDDR TMP)))
+                                                                 (T "")))
+                                             (FUNCTION BROWSER.LEFTFN)
+                                             (FUNCTION BROWSER.MIDDLEFN)))
                             (push
 BROWSERWINDOWS
-                                   (create
 BROWSEWIN
-                                          ARGS _ ARGS
-                                          GRAPH _ GRAPH
-                                          WINDOW _ W))
+                                  (create
 BROWSEWIN
+                                         ARGS _ ARGS
+                                         GRAPH _ GRAPH
+                                         WINDOW _ W))
                             (RETURN W))
            'CLOSEFN
            (FUNCTION (LAMBDA (WINDOW)                        (* ; 
-
                        "The closing function for browser windows.  removes it from BROWSERWINDOWS")

+
                          "The closing function for browser windows.  removes it from BROWSERWINDOWS")

                        (SETQ BROWSERWINDOWS (DREMOVE (for
 X in
 BROWSERWINDOWS
                                                         when
 (EQ (fetch
 (BROWSEWIN WINDOW)
-                                                                        of
 X)
-                                                                     WINDOW)
-                                                        do
 (RETURN X))
+                                                                    of
 X)
+                                                                 WINDOW) do
 (RETURN X))
                                                    BROWSERWINDOWS])
 )
 (DECLARE%: DONTCOPY 
@@ -457,41 +505,49 @@ Copyright (c) 1983-1984, 1987-1988, 1990, 1993-1994 by Venue & Xerox Corporation
 )
 )
 
-(RPAQQ BROWSERBOXING
 NIL)
+(RPAQ? BROWSER
 T)
 
-(RPAQQ BROWSERFORMAT
 NIL)
+(RPAQ? BROWSERBOXING
 )
 
-(RPAQQ BROWSERWINDOWS
 NIL)
+(RPAQ? BROWSERFORMAT
 )
 
-(RPAQQ NODESELECTIONWINDOW
 NIL)
+(RPAQ? BROWSERWINDOWS
 )
 
-(RPAQQ PFWINDOW
 NIL)
+(RPAQ? NODESELECTIONWINDOW
 )
 
-(RPAQQ BROWSER.DESCRIBE.WINDOW
 NIL)
+(RPAQ? PFWINDOW
 )
 
-(RPAQQ BrowserPPWindowWidth
 750)
+(RPAQ? BROWSER.DESCRIBE.WINDOW
 )
 
-(RPAQQ BROWSERFONT
 (GACHA 8))
+(RPAQ? BrowserPPWindowWidth
 750)
 
-(MOVD? 'MSPATHS 'OLDMSPATHS)
+(RPAQ? BROWSERMAX
 10)
+
+(RPAQ? BROWSERFONT
 '(GACHA 8))
 
 (MOVD? 'NILL 'MODERNWINDOW)
 
-[PROG [(WC (FILEPKGTYPE 'FNS 'WHENCHANGED]
-      (OR (MEMB 'BROWSER.WHENFNSCHANGED WC)
-          (FILEPKGTYPE 'FNS 'WHENCHANGED (CONS 'BROWSER.WHENFNSCHANGED WC]
+(RPAQQ BROWSER.BORDERS

+       ((NORMAL "Normal" 2 -1)
+        (GHOST "Shown elsewhere" 2 8840)
+        (RECURSIVEGHOST "End of recursive chain" 2 0 -1)
+        (MERGED "Includes other branches" 4 42405)
+        (SELFRECURSIVE "Includes self-recursive calls" 2 61375)
+        (RECURSIVE "Head of recursive chain" 4 28086)
+        (ENDOFLINE "exceeded depth limit" 6 64510)))
+(DECLARE%: DOEVAL@COMPILE DONTCOPY
+
+(GLOBALVARS BROWSER.BORDERS BROWSERWINDOWS)
+)
 (DECLARE%: DONTEVAL@LOAD DOCOPY 
 
-(SELECTQ (SYSTEMTYPE)
-    (D (BROWSER
 T))
-    NIL)
+(BROWSER
 T)
 )
-(PUTPROPS BROWSER COPYRIGHT ("Venue & Xerox Corporation" 1983 1984 1987 1988 1990 1993 1994))
 (DECLARE%: DONTCOPY
-  (FILEMAP (NIL (2054 25148 (NUMSPATHS 2064 . 5246) (BROWSER 5248 . 5511) (BROWSER.WHENFNSCHANGED 5513
- . 7812) (BRPATHS1 7814 . 10080) (BROWSER.LEFTFN 10082 . 10940) (GET.BROWSE.PP.WINDOW 10942 . 11767) (
-GET.BROWSE.DESCRIBE.WINDOW 11769 . 12517) (BROWSEPP 12519 . 13393) (PPREPAINTFN 13395 . 16529) (
-PPRESHAPEFN 16531 . 16711) (DESCRIBEREPAINTFN 16713 . 17409) (BROWSERDESCRIBE 17411 . 18169) (
-BROWSER.MIDDLEFN 18171 . 19478) (DEDITPROCESSRUNNINGP 19480 . 19751) (REDRAWBROWSEGRAPH 19753 . 20516)
- (STBROWSER 20518 . 25146)))))
+  (FILEMAP (NIL (2085 28437 (MSPATHS.DISPATCH 2095 . 2569) (NUMSPATHS 2571 . 6158) (BROWSER 6160 . 6731)
+ (BROWSER.WHENFNSCHANGED 6733 . 8518) (BRPATHS1 8520 . 11171) (BROWSER.LEFTFN 11173 . 14599) (
+GET.BROWSE.PP.WINDOW 14601 . 15426) (GET.BROWSE.DESCRIBE.WINDOW 15428 . 16176) (BROWSEPP 16178 . 17052
+) (PPREPAINTFN 17054 . 20180) (PPRESHAPEFN 20182 . 20358) (DESCRIBEREPAINTFN 20360 . 21064) (
+BROWSERDESCRIBE 21066 . 21808) (BROWSER.MIDDLEFN 21810 . 23125) (DEDITPROCESSRUNNINGP 23127 . 23382) (
+REDRAWBROWSEGRAPH 23384 . 24148) (STBROWSER 24150 . 28435)))))
 STOP

library/SYSEDIT

@@ -1,12 +1,12 @@
 (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
 
-
(FILECREATED "17-Apr-2023 14:19:03" {DSK}<home>larry>il>medley>library>SYSEDIT.;2
 1238   
+
(FILECREATED "29-Apr-2023 16:15:10" {DSK}<home>larry>il>medley>library>SYSEDIT.;2
 1377   
 
       :EDIT-BY "lmm"
 
       :CHANGES-TO (VARS SYSEDITCOMS)
 
-      :PREVIOUS-DATE "25-Jun-2022 18:22:01" {DSK}<home>larry>il>medley>library>SYSEDIT.;1)
+      :PREVIOUS-DATE "17-Apr-2023 14:19:03" {DSK}<home>larry>il>medley>library>SYSEDIT.;1)
 
 
 (PRETTYCOMPRINT SYSEDITCOMS)
@@ -20,8 +20,10 @@
               (CLISPIFTRANFLG T)
               (CROSSCOMPILING 'ASK)
               (*REPLACE-OLD-EDIT-DATES* NIL)
-              (COPYRIGHTFLG 'NEVER))
-        (P (RESETVARS ((CROSSCOMPILING T))
+              (COPYRIGHTFLG 'NEVER)
+              (MSRECORDTRANFLG T))
+        (P (MOVD? 'APPLY* 'SPREADAPPLY*X)
+           (RESETVARS ((CROSSCOMPILING T))
                   (FILESLOAD (SOURCE)
                          EXPORTS.ALL])
 
@@ -43,6 +45,10 @@
 
 (RPAQQ COPYRIGHTFLG
 NEVER)
 
+(RPAQQ MSRECORDTRANFLG
 T)
+
+(MOVD? 'APPLY* 'SPREADAPPLY*X)
+
 (RESETVARS ((CROSSCOMPILING T))
            (FILESLOAD (SOURCE)
                   EXPORTS.ALL))

library/WHERE-IS

@@ -1,13 +1,13 @@
 (DEFINE-FILE-INFO PACKAGE "XEROX-COMMON-LISP" READTABLE "XCL" BASE 10)
 
-
(IL:FILECREATED "11-Mar-2022 22:40:32" 
-IL:|{DSK}<Users>kaplan>Local>medley3.5>my-medley>library>WHERE-IS.;2|
 17501  
+
(IL:FILECREATED "30-Apr-2023 13:54:00" IL:|{DSK}<home>larry>il>medley>library>WHERE-IS.;2|
 17396  
 
-      :PREVIOUS-DATE "13-Jun-90 01:24:39" 
-IL:|{DSK}<Users>kaplan>Local>medley3.5>my-medley>library>WHERE-IS.;1|)
+      :EDIT-BY "lmm"
 
+      :CHANGES-TO (IL:FUNCTIONS ADD-WHERE-IS-DATABASE)
+
+      :PREVIOUS-DATE "11-Mar-2022 22:40:32" IL:|{DSK}<home>larry>il>medley>library>WHERE-IS.;1|)
 
-; Copyright (c) 1987-1988, 1990 by Venue & Xerox Corporation.
 
 (IL:PRETTYCOMPRINT IL:WHERE-ISCOMS)
 
@@ -379,15 +379,14 @@ IL:|{DSK}<Users>kaplan>Local>medley3.5>my-medley>library>WHERE-IS.;1|)
 (IL:PUTPROPS IL:WHERE-IS
 IL:MAKEFILE-ENVIRONMENT
 (:READTABLE "XCL" :PACKAGE "XCL"))
 
 (IL:PUTPROPS IL:WHERE-IS
 IL:FILETYPE
 :COMPILE-FILE)
-(IL:PUTPROPS IL:WHERE-IS IL:COPYRIGHT ("Venue & Xerox Corporation" 1987 1988 1990))
 (IL:DECLARE\: IL:DONTCOPY
-  (IL:FILEMAP (NIL (1758 2090 (HASH-FILE-WHERE-IS 1758 . 2090)) (2092 2485 (HASH-FILE-TYPES-OF 2092 . 
-2485)) (2487 4652 (GET-WHERE-IS-ENTRIES 2487 . 4652)) (4654 5169 (WHERE-IS-READ-FN 4654 . 5169)) (5171
- 5327 (ADD-WHERE-IS-DATABASES 5171 . 5327)) (5329 5716 (ADD-WHERE-IS-DATABASE 5329 . 5716)) (5718 6197
- (DEL-WHERE-IS-DATABASE 5718 . 6197)) (6199 7351 (SAME-WHERE-IS-DATABASE 6199 . 7351)) (7353 8560 (
-CLOSE-WHERE-IS-FILES 7353 . 8560)) (8818 12235 (WHERE-IS-NOTICE 8818 . 12235)) (12237 12981 (
-WHERE-IS-NOTICE-INTERNAL 12237 . 12981)) (12983 13719 (WHERE-IS-FILES 12983 . 13719)) (13721 14086 (
-WHERE-IS-DEFAULT-DEFINE-TYPES 13721 . 14086)) (14088 14507 (WHERE-IS-NAMESTRING 14088 . 14507)) (14509
- 16521 (WHERE-IS-READ-COMS 14509 . 16521)) (16523 16794 (WHERE-IS-SET-WRITE-DATE 16523 . 16794)) (
-16796 17046 (WHERE-IS-GET-WRITE-DATE 16796 . 17046)))))
+  (IL:FILEMAP (NIL (1737 2069 (HASH-FILE-WHERE-IS 1737 . 2069)) (2071 2464 (HASH-FILE-TYPES-OF 2071 . 
+2464)) (2466 4631 (GET-WHERE-IS-ENTRIES 2466 . 4631)) (4633 5148 (WHERE-IS-READ-FN 4633 . 5148)) (5150
+ 5306 (ADD-WHERE-IS-DATABASES 5150 . 5306)) (5308 5695 (ADD-WHERE-IS-DATABASE 5308 . 5695)) (5697 6176
+ (DEL-WHERE-IS-DATABASE 5697 . 6176)) (6178 7330 (SAME-WHERE-IS-DATABASE 6178 . 7330)) (7332 8539 (
+CLOSE-WHERE-IS-FILES 7332 . 8539)) (8797 12214 (WHERE-IS-NOTICE 8797 . 12214)) (12216 12960 (
+WHERE-IS-NOTICE-INTERNAL 12216 . 12960)) (12962 13698 (WHERE-IS-FILES 12962 . 13698)) (13700 14065 (
+WHERE-IS-DEFAULT-DEFINE-TYPES 13700 . 14065)) (14067 14486 (WHERE-IS-NAMESTRING 14067 . 14486)) (14488
+ 16500 (WHERE-IS-READ-COMS 14488 . 16500)) (16502 16773 (WHERE-IS-SET-WRITE-DATE 16502 . 16773)) (
+16775 17025 (WHERE-IS-GET-WRITE-DATE 16775 . 17025)))))
 IL:STOP

library/lafite/docs/README

@@ -0,0 +1,10 @@
+Lafite README
+
+the end-user documentation for Lafite in a PDF is on Google Drive
+
+https://drive.google.com/drive/folders/1Zb2IudbnlzfEK5YzTcEr7k2liclFUquE?usp=sharing
+
+Here (in the GitHub Interlisp/medley repo) 
+you will find the .TEdit sources that can be used to produce the documentation using ths utility HCFILES on the file MEDLEY-UTILS in the "internal" folder.
+
+For Lafite there are two folders, one with the (latest) documentation and one with release notes.