Merge pull request #1308 from Interlisp/fgh_loadups3

Fix issue with tmp/logindir remaining after loadup-all and loadup-db scripts

.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,45 +224,14 @@ 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 ..
-          mkdir -p medley/${TARBALL_DIR}
-          tar cfz medley/${TARBALL_DIR}/${MEDLEY_RELEASE_TAG}-loadups.tgz        \
-            medley/loadups/lisp.sysout               \
-            medley/loadups/full.sysout               \
-            medley/loadups/apps.sysout               \
-            medley/loadups/whereis.hash              \
-            medley/library/exports.all
-      
-      - name: Build runtime release tar
-        run: |
-          cd ..
-          mkdir -p medley/${TARBALL_DIR}
-          tar cfz medley/${TARBALL_DIR}/${MEDLEY_RELEASE_TAG}-runtime.tgz          \
-                     --exclude "*~" --exclude "*#*"              \
-                     --exclude exports.all                       \
-                     medley/clos                                 \
-                     medley/docs/dinfo                           \
-                     medley/docs/man-page/medley.1.gz            \
-                     medley/doctools                             \
-                     medley/greetfiles                           \
-                     medley/rooms                                \
-                     medley/medley                               \
-                     medley/run-medley                           \
-                     medley/scripts                              \
-                     medley/fonts/displayfonts                   \
-                     medley/fonts/altofonts                      \
-                     medley/fonts/adobe                          \
-                     medley/fonts/postscriptfonts                \
-                     medley/library                              \
-                     medley/lispusers                            \
-                     medley/sources                              \
-                     medley/internal
+          scripts/loadup-db.sh
 
+      - name: Build release tars
+        run: |
+          scripts/release-make-tars.sh "${MEDLEY_RELEASE_TAG}"
+          mv releases/"${MEDLEY_SHORT_RELEASE_TAG}"/*.tgz "${TARBALL_DIR}"
 
       # Build the deb files as well as the tgz files
       - name: Build .deb files for 3 architectures
@@ -277,13 +246,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 +304,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 +317,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 +350,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 +372,7 @@ jobs:
             sftp -o StrictHostKeyChecking=no -b batch ubuntu@online.interlisp.org
         env:
             SSH_KEY: ${{ secrets.OIO_SSH_KEY }}
-      
+
 
 
 ######################################################################################
@@ -420,7 +389,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 +409,7 @@ jobs:
         id: output
         run: |
           echo "build_successful='true'" >> $GITHUB_OUTPUT
-          
+
 ######################################################################################
 
 

.gitignore

@@ -2,15 +2,20 @@
 
 tmp/*
 
+# releases directory
+releases/*
+
+
 # all loadup files 
 
-library/exports.all
+loadups/exports.all
 library/RDSYS*
 loadups/lisp.sysout
 loadups/full.sysout
 loadups/*.dribble
 loadups/whereis.hash
 loadups/apps.sysout
+loadups/fuller.database
 
 # manual cross-reference files
 

internal/MEDLEY-UTILS

@@ -1,10 +1,13 @@
 (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 " 3-Aug-2023 18:40:12" |{DSK}<home>frank>il>medley>gmedley>internal>MEDLEY-UTILS.;6|
 10695  
 
-      :CHANGES-TO (VARS MEDLEY-UTILSCOMS)
+      :EDIT-BY "frank"
 
-      :PREVIOUS-DATE "17-Jul-2022 12:44:56" |{DSK}<home>larry>medley>internal>MEDLEY-UTILS.;1|)
+      :CHANGES-TO (FNS MAKE-FULLER-DB MAKE-EXPORTS-ALL MAKE-WHEREIS-HASH)
+
+      :PREVIOUS-DATE " 1-Aug-2023 22:43:13" 
+|{DSK}<home>frank>il>medley>gmedley>internal>MEDLEY-UTILS.;5|)
 
 
 (PRETTYCOMPRINT MEDLEY-UTILSCOMS)
@@ -15,7 +18,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 +51,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)
@@ -99,18 +103,19 @@
         (HELP))))
 
 (MAKE-FULLER-DB

-  (LAMBDA NIL
                                             (* \; "Edited 16-Jul-2022 22:07 by larry")


+  (LAMBDA (DRIBBLEFILE DBFILE SYSOUTFILE)
                 (* \; "Edited  3-Aug-2023 18:12 by frank")


+                                                          (* \; "Edited 16-Jul-2022 22:07 by larry")


                                                           (* \; "Edited 20-Jun-2022 17:23 by larry")

     (FILESLOAD (SOURCE)
            FILESETS)
-    (DRIBBLE (MEDLEYDIR "tmp" "fuller.dribble" T T))
+    (DRIBBLE (OR DRIBBLEFILE "fuller.dribble"))
     (DOFILESLOAD (SUBSET (APPEND OKSOURCES OKLIBRARY OKLISPUSERS OKINTERNAL)
                         'FINDFILE))
     (GATHER-INFO
 'ALL)
     (MASTERSCOPE '(WHO CALLS XYZZY))
-    (DUMPDATABASE NIL (MKATOM (MEDLEYDIR "tmp" "fuller.database" T T)))
+    (DUMPDATABASE NIL (MKATOM (OR DBFILE "fuller.database")))
     (DRIBBLE)
-    (MAKESYS (MEDLEYDIR "tmp" "fuller.sysout" T T)
+    (MAKESYS (OR SYSOUTFILE "fuller.sysout")
            "Welcome to Fuller sysout")))
 
 (MEDLEY-FIX-LINKS

@@ -143,7 +148,8 @@
 (DEFINEQ
 
 (MAKE-EXPORTS-ALL

-  (LAMBDA NIL
                                             (* \; "Edited  9-Mar-2021 16:11 by larry")

+  (LAMBDA (OUTFILE)
                                       (* \; "Edited  3-Aug-2023 18:34 by frank")


+                                                          (* \; "Edited  9-Mar-2021 16:11 by larry")

                                                              (* "Edited May 3, 2018 by Ron Kaplan--relative to MEDLEYDIR/lispcore/.  Don't know why it does the CORE/RENAME")

                                                              (* 
 
          "Edited Aug 17 94 by Sybalsky -- point it to /king/export/lispcore as the truth directory.")

@@ -153,24 +159,25 @@
 
                                                             "Edited September 29, 1986 by van Melle")

     (CNDIR (MEDLEYDIR "sources"))
     (LOAD 'FILESETS)
-    (GATHEREXPORTS EXPORTFILES (MEDLEYDIR "tmp" "exports.all" T))))
+    (GATHEREXPORTS EXPORTFILES (OR OUTFILE "exports.all"))))
 
 (MAKE-WHEREIS-HASH

-  (LAMBDA NIL
                                               (* \; "Edited 12-Mar-2022 12:46 by rmk")


+  (LAMBDA (DRIBBLEFILE TMPFILE WHEREISFILE)
               (* \; "Edited  3-Aug-2023 18:37 by frank")


+                                                            (* \; "Edited 12-Mar-2022 12:46 by rmk")


                                                           (* \; "Edited 24-Mar-2021 13:26 by larry")

     (LET ((FILING.ENUMERATION.DEPTH 2)
           HASHFILE)
-         (DRIBBLE (MEDLEYDIR "tmp" "whereis.dribble" T))
-         (SETQ HASHFILE (XCL::WHERE-IS-NOTICE (MEDLEYDIR "tmp" "whereis.hash-tmp" T)
+         (DRIBBLE (OR DRIBBLEFILE "whereis.dribble"))
+         (SETQ HASHFILE (XCL::WHERE-IS-NOTICE (OR TMPFILE "whereis.hash-tmp")
                                :FILES
                                (|for|
 X |in|
 MEDLEY-FIX-DIRS |collect|
 (CONCAT (MEDLEYDIR X)
                                                                               "*.;"))
                                :HASH-FILE-SIZE 60000 :NEW T))
-         (RENAMEFILE HASHFILE (MEDLEYDIR "tmp" "whereis.hash" T))
+         (RENAMEFILE HASHFILE (OR WHEREISFILE "whereis.hash"))
          (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 (679 7642 (GATHER-INFO 689 . 6217) (MAKE-FULLER-DB 6219 . 6997) (MEDLEY-FIX-LINKS 6999
+ . 7396) (MEDLEY-FIX-DATES 7398 . 7640)) (8681 10672 (MAKE-EXPORTS-ALL 8691 . 9752) (MAKE-WHEREIS-HASH
+ 9754 . 10670)))))
 STOP

internal/loadups/LOADUP-FULL

@@ -1,10 +1,10 @@
 (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
 
-
(FILECREATED "18-Jan-2023 16:23:36" {DSK}<home>frank>il>medley>gmedley>sources>LOADUP-FULL.;2
 4636   
+
(FILECREATED "31-Jul-2023 18:28:53" {DSK}<home>frank>il>medley>gmedley>sources>LOADUP-FULL.;4
 4521   
 
       :CHANGES-TO (FNS LOADUP-FULL)
 
-      :PREVIOUS-DATE "12-Aug-2022 12:30:09" {DSK}<home>frank>il>medley>gmedley>sources>LOADUP-FULL.;1
+      :PREVIOUS-DATE "18-Jan-2023 16:23:36" {DSK}<home>frank>il>medley>gmedley>sources>LOADUP-FULL.;3
 )
 
 
@@ -39,7 +39,7 @@
                (PRINTOUT T "FULL fonts loaded" T])
 
 (LOADUP-FULL

-  [LAMBDA NIL
                                                (* ; "Edited 18-Jan-2023 16:22 by FGH")


+  [LAMBDA (DRIBBLEFILE)
                                      (* ; "Edited 18-Jan-2023 16:22 by FGH")


                                                              (* ; "Edited 12-Aug-2022 11:17 by lmm")


                                                              (* ; "Edited 14-Jul-2022 12:32 by rmk")


                                                              (* ; "Edited 12-Jul-2022 21:57 by rmk")


@@ -55,9 +55,7 @@
     (PROGN (SETQ MEDLEYDIR)
            (CNDIR (MEDLEYDIR)))
     (MEDLEY-INIT-VARS)
-    (SETQ MAKESYSFILENAME (MEDLEYDIR "tmp" "full.sysout" T))
-    (SETQ MAKESYSNAME :MEDLEY)
-    (DRIBBLE (MEDLEYDIR "tmp" "full.dribble" T))
+    (DRIBBLE DRIBBLEFILE)
 
     (* ;; "BKSYSBUF stops page holding ")

 
@@ -88,5 +86,5 @@
 
 (FIXMETA
)
 (DECLARE%: DONTCOPY
-  (FILEMAP (NIL (467 4598 (LOADFULLFONTS 477 . 1918) (LOADUP-FULL 1920 . 4348) (FIXMETA 4350 . 4596)))))
+  (FILEMAP (NIL (467 4483 (LOADFULLFONTS 477 . 1918) (LOADUP-FULL 1920 . 4233) (FIXMETA 4235 . 4481)))))
 STOP

internal/loadups/LOADUP-LISP

@@ -1,10 +1,11 @@
 (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "XCL" BASE 10)
 
-
(FILECREATED "12-Aug-2022 12:29:57" |{DSK}<home>larry>medley>sources>LOADUP-LISP.;2|
 5250   
+
(FILECREATED "31-Jul-2023 18:22:53" |{DSK}<home>frank>il>medley>gmedley>sources>LOADUP-LISP.;2|
 5235   
 
-      :CHANGES-TO (VARS LOADUP-LISPCOMS)
+      :CHANGES-TO (FNS LOADUP-LISP)
 
-      :PREVIOUS-DATE "13-Jul-2022 14:10:00" |{DSK}<home>larry>medley>sources>LOADUP-LISP.;1|)
+      :PREVIOUS-DATE "27-Feb-2023 17:15:53" 
+|{DSK}<home>frank>il>medley>gmedley>sources>LOADUP-LISP.;1|)
 
 
 (PRETTYCOMPRINT LOADUP-LISPCOMS)
@@ -17,14 +18,13 @@
 (DEFINEQ
 
 (LOADUP-LISP

-  (LAMBDA NIL
                                               (* \; "Edited 13-Jul-2022 14:09 by rmk")


+  (LAMBDA (DRIBBLEFILE)
                                     (* \; "Edited 26-Feb-2023 12:17 by lmm")


+                                                            (* \; "Edited 13-Jul-2022 14:09 by rmk")


                                                           (* \; "Edited  4-Mar-2022 19:13 by larry")


-                                                          (* \; "Edited  2-Mar-2022 16:31 by larry")


-                                                          (* \; "Edited 28-Feb-2022 15:02 by larry")


                                                            (* \; "Edited 29-Apr-2021 22:30 by rmk:")

     (SETQQ COMPILE.EXT LCOM)
     (MEDLEY-INIT-VARS)                                       (* \; "should be set earlier")

-    (DRIBBLE (MEDLEYDIR "tmp" "lisp.dribble" T))
+    (DRIBBLE DRIBBLEFILE)
     (FOR
 X IN
 BOOTLOADEDFILES DO
 (CL:UNLESS (MEMB X SYSFILES)
                                      (PRINTOUT T X " bootloaded" T)
                                      (SETQ SYSFILES (CONS X SYSFILES))))
@@ -99,6 +99,10 @@
     (LOADUP '(CMLSMARTARGS))
     (LOADUP '(IMPLICIT-KEY-HASH CLOSURE-CACHE))
 
+    (* |;;| " not sure what this depends on, so putting it here")

+
+    (LOADUP '(BIGBITMAPS))
+
     (* |;;| "Already enabled, but this time fixes tables that weren't defined in the init")

 
     (PACKAGE-ENABLE)
@@ -119,5 +123,5 @@
 (GLOBALVARS MAKESYSFILENAME MEDLEY-INIT-VARS MEDLEYDIR SYSTEMINITVARS USERRECLST)
 )
 (DECLARE\: DONTCOPY
-  (FILEMAP (NIL (631 5044 (LOADUP-LISP 641 . 5042)))))
+  (FILEMAP (NIL (649 5029 (LOADUP-LISP 659 . 5027)))))
 STOP

internal/loadups/MAKEINIT

@@ -1,18 +1,13 @@
 (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
 
-
(FILECREATED "11-Jul-2022 20:00:23" 
-{DSK}<users>kaplan>local>medley3.5>working-medley>sources>MAKEINIT.;3
 54607  
+
(FILECREATED " 7-Aug-2023 13:31:49" {DSK}<home>frank>il>medley>gmedley>internal>loadups>MAKEINIT.;4
 54490  
 
-      :CHANGES-TO (FNS I.FIXUPNUM I.FIXUPSYM)
+      :CHANGES-TO (FNS MAKEINITGREET)
 
-      :PREVIOUS-DATE "19-Jul-2021 23:50:29" 
-{DSK}<users>kaplan>local>medley3.5>working-medley>sources>MAKEINIT.;2)
+      :PREVIOUS-DATE " 3-Aug-2023 17:37:51" 
+{DSK}<home>frank>il>medley>gmedley>internal>loadups>MAKEINIT.;1)
 
 
-(* ; "
-Copyright (c) 1982-1988, 1990-1992, 1998, 2021 by Venue & Xerox Corporation.
-")
-
 (PRETTYCOMPRINT MAKEINITCOMS)
 
 (RPAQQ MAKEINITCOMS

@@ -83,7 +78,8 @@ Copyright (c) 1982-1988, 1990-1992, 1998, 2021 by Venue & Xerox Corporation.
 (DEFINEQ
 
 (MAKEINITGREET

-  [LAMBDA NIL
                                          (* ; "Edited 11-Mar-2021 22:14 by larry")


+  [LAMBDA (SYSOUTFILE DLINITFILE)
                          (* ; "Edited  3-Aug-2023 17:37 by frank")


+                                                           (* ; "Edited 11-Mar-2021 22:14 by larry")


                                                             (* ; "Edited  5-Dec-2017 15:26 by rmk:")

 
     (* ;; "")

@@ -93,12 +89,13 @@ Copyright (c) 1982-1988, 1990-1992, 1998, 2021 by Venue & Xerox Corporation.
     (* ;; "")

                                                              (* Versions are Lisp Microcode Bcpl)

     (MEDLEY-INIT-VARS)
-    (DORENAME 'I)
-    (DORENAME 'R)
-    (DLFIXINIT
 (MAKEINIT
 '(39424 5682 11008)
-                          (MEDLEYDIR "tmp" "init.sysout" T)
-                          NIL DIRECTORIES DISPLAYFONTDIRECTORIES)
-           (MEDLEYDIR "tmp" "init.dlinit" T])
+    (RESETLST
+        (RESETSAVE OK.TO.MODIFY.FNS T)
+        (DORENAME 'I)
+        (DORENAME 'R)
+        (DLFIXINIT
 (MAKEINIT
 '(39424 5682 11008)
+                          SYSOUTFILE NIL DIRECTORIES DISPLAYFONTDIRECTORIES)
+               DLINITFILE))])
 )
 
 (FILESLOAD (SOURCE)
@@ -1053,28 +1050,26 @@ DONTCOPY
 (GLOBALVARS DLPRIMARYMAP DLSECONDARYMAP DLLOCKBITS DLLASTDOMINOPAGE DLIFPAGE DLNEXTPM DLPAGEMAPFP 
        FPTOVP NEWFPFROMOLD VMEMFILE VMEMFILEX)
 )
-(PUTPROPS MAKEINIT COPYRIGHT ("Venue & Xerox Corporation" 1982 1983 1984 1985 1986 1987 1988 1990 1991
- 1992 1998 2021))
 (DECLARE%: DONTCOPY
-  (FILEMAP (NIL (3971 4718 (MAKEINITGREET 3981 . 4716)) (4901 11286 (LOADMAKEINIT 4911 . 6114) (
-LOADMKIFILES 6116 . 6431) (RELOAD 6433 . 6916) (MAKEINIT 6918 . 10578) (MKI.START 10580 . 11284)) (
-11364 17082 (MKI.PASSFILE 11374 . 14984) (SCRATCHARRAY 14986 . 15635) (DOFORM 15637 . 16314) (
-CONSTFORMP 16316 . 16550) (NOTICECOMS 16552 . 16860) (EVALFORMAKEINIT 16862 . 17080)) (17083 19203 (
-I.ADDTOVAR 17093 . 17187) (I.DECLARE%: 17189 . 17465) (I.DEFINE-FILE-INFO 17467 . 17657) (
-I.FILECREATED 17659 . 18033) (I.PUTPROPS 18035 . 18148) (I.RPAQ 18150 . 18371) (I.RPAQQ 18373 . 18569)
- (I.RPAQ? 18571 . 18786) (I.SETTOPVAL 18788 . 19020) (I.NOUNDO 19022 . 19201)) (19839 26055 (
-I.ATOMNUMBER 19849 . 20340) (I.\ATOMCELL 20342 . 22095) (I.FIXUPNUM 22097 . 23022) (I.FIXUPPTR 23024
- . 23505) (I.FIXUPSYM 23507 . 24563) (I.WORDSPERNAMEENTRY 24565 . 25320) (I.SETSTKNTOFFSET 25322 . 
-26053)) (26087 27595 (MKI.ATOM 26097 . 26293) (MKI.IEEE 26295 . 27593)) (27692 28457 (MKI.DSET 27702
- . 27985) (MKI.ADDTO 27987 . 28172) (MKI.PUTPROP 28174 . 28455)) (28631 29183 (DUMPVP 28641 . 28738) (
-BOUTZEROS 28740 . 28819) (BIN16 28821 . 29002) (BOUT16 29004 . 29181)) (30074 52808 (DLFIXINIT 30084
- . 31059) (DLSORTSYSOUTPAGES 31061 . 36187) (DLNEXTFP 36189 . 36526) (DLLOCKEDPAGEP 36528 . 36742) (
-DLSETLOCKBIT 36744 . 37006) (DLCOPYPAGEMAP 37008 . 40059) (DLCOPYVMPAGE 40061 . 40451) (
-DLADDPAGEMAPENTRIES 40453 . 41268) (ASSIGNFILEPAGE 41270 . 42503) (ASSIGNFILEPAGERANGE 42505 . 42912) 
-(DLDUMPSYSOUT 42914 . 44666) (DLDUMPFPTOVP 44668 . 45707) (DLDUMPPAGEMAPS 45709 . 46409) (
-DLDUMPVMEMPAGES 46411 . 47067) (DLSETBOOTPTR 47069 . 47299) (DLDUMPARRAY 47301 . 47688) (
-DLMARKASDUMPED 47690 . 48143) (DLDUMPVMEMPAGE 48145 . 48833) (INSTALLDOMINO 48835 . 49482) (
-INSTALLDOMINO.DIRECT 49484 . 50636) (INSTALLNEWDOMINO 50638 . 52806)) (52830 54187 (DLPRINTFPTOVP 
-52840 . 53129) (PRINTPRIMARYMAP 53131 . 53845) (DLREADPAGEOFWORDS 53847 . 54014) (SETDIF 54016 . 54185
+  (FILEMAP (NIL (3862 4722 (MAKEINITGREET 3872 . 4720)) (4905 11290 (LOADMAKEINIT 4915 . 6118) (
+LOADMKIFILES 6120 . 6435) (RELOAD 6437 . 6920) (MAKEINIT 6922 . 10582) (MKI.START 10584 . 11288)) (
+11368 17086 (MKI.PASSFILE 11378 . 14988) (SCRATCHARRAY 14990 . 15639) (DOFORM 15641 . 16318) (
+CONSTFORMP 16320 . 16554) (NOTICECOMS 16556 . 16864) (EVALFORMAKEINIT 16866 . 17084)) (17087 19207 (
+I.ADDTOVAR 17097 . 17191) (I.DECLARE%: 17193 . 17469) (I.DEFINE-FILE-INFO 17471 . 17661) (
+I.FILECREATED 17663 . 18037) (I.PUTPROPS 18039 . 18152) (I.RPAQ 18154 . 18375) (I.RPAQQ 18377 . 18573)
+ (I.RPAQ? 18575 . 18790) (I.SETTOPVAL 18792 . 19024) (I.NOUNDO 19026 . 19205)) (19843 26059 (
+I.ATOMNUMBER 19853 . 20344) (I.\ATOMCELL 20346 . 22099) (I.FIXUPNUM 22101 . 23026) (I.FIXUPPTR 23028
+ . 23509) (I.FIXUPSYM 23511 . 24567) (I.WORDSPERNAMEENTRY 24569 . 25324) (I.SETSTKNTOFFSET 25326 . 
+26057)) (26091 27599 (MKI.ATOM 26101 . 26297) (MKI.IEEE 26299 . 27597)) (27696 28461 (MKI.DSET 27706
+ . 27989) (MKI.ADDTO 27991 . 28176) (MKI.PUTPROP 28178 . 28459)) (28635 29187 (DUMPVP 28645 . 28742) (
+BOUTZEROS 28744 . 28823) (BIN16 28825 . 29006) (BOUT16 29008 . 29185)) (30078 52812 (DLFIXINIT 30088
+ . 31063) (DLSORTSYSOUTPAGES 31065 . 36191) (DLNEXTFP 36193 . 36530) (DLLOCKEDPAGEP 36532 . 36746) (
+DLSETLOCKBIT 36748 . 37010) (DLCOPYPAGEMAP 37012 . 40063) (DLCOPYVMPAGE 40065 . 40455) (
+DLADDPAGEMAPENTRIES 40457 . 41272) (ASSIGNFILEPAGE 41274 . 42507) (ASSIGNFILEPAGERANGE 42509 . 42916) 
+(DLDUMPSYSOUT 42918 . 44670) (DLDUMPFPTOVP 44672 . 45711) (DLDUMPPAGEMAPS 45713 . 46413) (
+DLDUMPVMEMPAGES 46415 . 47071) (DLSETBOOTPTR 47073 . 47303) (DLDUMPARRAY 47305 . 47692) (
+DLMARKASDUMPED 47694 . 48147) (DLDUMPVMEMPAGE 48149 . 48837) (INSTALLDOMINO 48839 . 49486) (
+INSTALLDOMINO.DIRECT 49488 . 50640) (INSTALLNEWDOMINO 50642 . 52810)) (52834 54191 (DLPRINTFPTOVP 
+52844 . 53133) (PRINTPRIMARYMAP 53135 . 53849) (DLREADPAGEOFWORDS 53851 . 54018) (SETDIF 54020 . 54189
 )))))
 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/FILEBROWSER

@@ -1,24 +1,19 @@
 (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "XCL" BASE 10)
 
-
(FILECREATED " 4-Aug-2022 09:32:02" |{DSK}<home>larry>medley>library>FILEBROWSER.;2|
 266567 
+
(FILECREATED "19-Jul-2023 09:30:47" |{WMEDLEY}<library>FILEBROWSER.;25|
 265978 
+
+      :EDIT-BY |rmk|
 
       :CHANGES-TO (VARS FILEBROWSERCOMS)
 
-      :PREVIOUS-DATE " 2-Dec-2021 19:33:12" |{DSK}<home>larry>medley>library>FILEBROWSER.;1|)
+      :PREVIOUS-DATE "18-Jul-2023 22:19:30" |{WMEDLEY}<library>FILEBROWSER.;24|)
 
 
-; Copyright (c) 1983-1991, 1993-1994, 1999-2001, 2021 by Venue & Xerox Corporation.
-
 (PRETTYCOMPRINT FILEBROWSERCOMS)
 
 (RPAQQ FILEBROWSERCOMS

-       ((COMS (DECLARE\: EVAL@COMPILE DONTCOPY (P (CL:UNLESS (GETP 'EXPORTS.ALL 'FILE)
-                                                      (TERPRI T)
-                                                      (PRIN1 
-                                                            "NOTE:  FILEBROWSER requires EXPORTS.ALL"
-                                                             T)
-                                                      (TERPRI T)
-                                                      (TERPRI T))))
+       ((COMS (DECLARE\: EVAL@COMPILE DONTCOPY (FILES (FROM LOADUPS)
+                                                      EXPORTS.ALL))
               (FILES ATTACHEDWINDOW ICONW TABLEBROWSER)
               (P 
                  (* |;;| "Set up for MODERNIZE windows, whether or not MODERNIZE is pre-loaded")

@@ -250,11 +245,8 @@ You specify how many versions to keep.")))
         ))
 (DECLARE\: EVAL@COMPILE DONTCOPY 
 
-(CL:UNLESS (GETP 'EXPORTS.ALL 'FILE)
-    (TERPRI T)
-    (PRIN1 "NOTE:  FILEBROWSER requires EXPORTS.ALL" T)
-    (TERPRI T)
-    (TERPRI T))
+(FILESLOAD (FROM
 LOADUPS)
+       EXPORTS.ALL)
 )
 
 (FILESLOAD ATTACHEDWINDOW ICONW TABLEBROWSER)
@@ -463,8 +455,7 @@ Your deletions are thus ignored.")))
 (* \; "Entries")

 
 
-(DEFCOMMAND "fb"
 (&REST PAT&PROPS)
-   (APPLY 'FB PAT&PROPS))
+(DEFCOMMAND "fb" (&REST PAT&PROPS) (APPLY 'FB PAT&PROPS))
 (DEFINEQ
 
 (FB

@@ -943,8 +934,9 @@ Your deletions are thus ignored.")))
          (AND OLDFONT (DSPFONT OLDFONT STREAM)))))
 
 (FB.COPYFN

-  (LAMBDA (TBROWSER ITEM)                                    (* |bvm:| "13-Oct-85 17:44")

-    (BKSYSBUF (|fetch|
 (FBFILEDATA FILENAME) |of|
 (|fetch|
 TIDATA |of|
 ITEM)))))
+  (LAMBDA (TBROWSER ITEM)
                                   (* \; "Edited 18-Jul-2023 22:19 by rmk")

+                                                             (* |bvm:| "13-Oct-85 17:44")

+    (COPYINSERT (|fetch|
 (FBFILEDATA FILENAME) |of|
 (|fetch|
 TIDATA |of|
 ITEM)))))
 )
 
 
@@ -4253,54 +4245,52 @@ then click Recompute"))))
 
 (ADDTOVAR LAMA
 FB.PROMPTW.FORMAT FB.PROMPTWPRINT)
 )
-(PUTPROPS FILEBROWSER COPYRIGHT ("Venue & Xerox Corporation" 1983 1984 1985 1986 1987 1988 1989 1990 
-1991 1993 1994 1999 2000 2001 2021))
 (DECLARE\: DONTCOPY
-  (FILEMAP (NIL (32375 55256 (FB 32385 . 33520) (FB.COPYBINARYCOMMAND 33522 . 33868) (FB.COPYTEXTCOMMAND
- 33870 . 34212) (FILEBROWSER 34214 . 47320) (FB.TABLEBROWSER 47322 . 47539) (FB.SELECTEDFILES 47541 . 
-48178) (FB.FETCHFILENAME 48180 . 48572) (FB.DIRECTORYP 48574 . 48968) (FB.PROMPTWPRINT 48970 . 50016) 
-(FB.PROMPTW.FORMAT 50018 . 50755) (FB.PROMPTFORINPUT 50757 . 53009) (FB.YES-OR-NO-P 53011 . 54045) (
-FB.ALLOW.ABORT 54047 . 54901) (\\FB.HARDCOPY.TOFILE.EXTENSION 54903 . 55254)) (55280 56233 (FB.STARTUP
- 55290 . 55805) (FB.MAKERIGIDWINDOW 55807 . 56231)) (56234 61606 (FB.PRINTFN 56244 . 61397) (FB.COPYFN
- 61399 . 61604)) (61656 67996 (FB.MENU.WHENSELECTEDFN 61666 . 62024) (FB.COMMANDSELECTEDFN 62026 . 
-63565) (FB.SUBITEMP 63567 . 64168) (FB.MAKE.BROWSER.BUSY 64170 . 64974) (FB.FINISH.COMMAND 64976 . 
-67007) (FB.HANDLE.ABORT.BUTTON 67009 . 67994)) (67997 73513 (FB.DELETECOMMAND 68007 . 68288) (
-FB.DELVERCOMMAND 68290 . 71483) (FB.IS.NOT.SUBDIRECTORY.ITEM 71485 . 71666) (FB.DELVER.FILES 71668 . 
-72757) (FB.DELETE.FILE 72759 . 73511)) (73514 74839 (FB.UNDELETECOMMAND 73524 . 73809) (
-FB.UNDELETEALLCOMMAND 73811 . 74090) (FB.UNDELETE.FILE 74092 . 74837)) (74840 99021 (FB.COPYCOMMAND 
-74850 . 75119) (FB.RENAMECOMMAND 75121 . 75396) (FB.COPY/RENAME.COMMAND 75398 . 76321) (
-FB.COPY/RENAME.ONE 76323 . 78645) (FB.COPY/RENAME.MANY 78647 . 84867) (FB.MERGE.DIRECTORIES 84869 . 
-85287) (FB.GREATEST.PREFIX 85289 . 86645) (FB.MAYBE.INSERT.FILE 86647 . 94087) (FB.GET.NEW.FILE.SPEC 
-94089 . 97920) (FB.CANONICAL.DIRECTORY 97922 . 99019)) (99022 106806 (FB.HARDCOPYCOMMAND 99032 . 
-100162) (FB.HARDCOPY.TOFILE 100164 . 106804)) (106807 117006 (FB.EDITCOMMAND 106817 . 107684) (
-FB.EDITCOMMAND.ONEFILE 107686 . 111090) (FB.EDITLISPFILE 111092 . 112197) (FB.BROWSECOMMAND 112199 . 
-117004)) (117007 128928 (FB.FASTSEECOMMAND 117017 . 120467) (FB.FASTSEE.ONEFILE 120469 . 123626) (
-FB.SEEFULLFN 123628 . 127759) (FB.SEEBUTTONFN 127761 . 128926)) (128929 130675 (FB.LOADCOMMAND 128939
- . 129446) (FB.COMPILECOMMAND 129448 . 129986) (FB.OPERATE.ON.FILES 129988 . 130673)) (130676 178861 (
-FB.UPDATECOMMAND 130686 . 130911) (FB.FIX-DIRECTORY-DATES 130913 . 131936) (FB.MAYBE.EXPUNGE 131938 . 
-132999) (FB.UPDATEBROWSERITEMS 133001 . 146216) (FB.DATE 146218 . 146859) (FB.ADJUST.DATE.WIDTH 146861
- . 149829) (FB.SET.BROWSER.TITLE 149831 . 150833) (FB.MAYBE.WIDEN.NAMES 150835 . 152954) (
-FB.SET.DEFAULT.NAME.WIDTH 152956 . 154320) (FB.CREATE.FILEBUCKET 154322 . 161542) (
-FB.CHECK.NAME.LENGTH 161544 . 163965) (FB.ADD.FILEGROUP 163967 . 165494) (FB.INSERT.DIRECTORY 165496
- . 165734) (FB.MAKE.SUBDIRECTORY.ITEM 165736 . 167145) (FB.ADD.FILE 167147 . 167760) (FB.INSERT.FILE 
-167762 . 171174) (FB.ANALYZE.PATTERN 171176 . 176440) (FB.CANONICALIZE.PATTERN 176442 . 177754) (
-FB.GETALLFILEINFO 177756 . 178859)) (178862 187021 (FB.SORT.VERSIONS 178872 . 181643) (
-FB.DECREASING.VERSION 181645 . 182314) (FB.INCREASING.VERSION 182316 . 182937) (
-FB.NAMES.DECREASING.VERSION 182939 . 183974) (FB.NAMES.INCREASING.VERSION 183976 . 184973) (
-FB.DECREASING.NUMERIC.ATTR 184975 . 185655) (FB.INCREASING.NUMERIC.ATTR 185657 . 186331) (
-FB.ALPHABETIC.ATTR 186333 . 187019)) (187022 196864 (FB.SORTCOMMAND 187032 . 193862) (
-FB.INSERT.SUBDIRECTORIES 193864 . 194661) (FB.GET.SORT.MENU 194663 . 196862)) (196865 213086 (
-FB.EXPUNGECOMMAND 196875 . 199460) (FB.NEWPATTERNCOMMAND 199462 . 199860) (FB.NEWINFOCOMMAND 199862 . 
-202694) (FB.DEPTHCOMMAND 202696 . 204471) (FB.SHAPECOMMAND 204473 . 207815) (FB.REMOVE.FILE 207817 . 
-209638) (FB.COUNT.FILE.CHANGE 209640 . 211085) (FB.SETNEWPATTERN 211087 . 212257) (FB.GET.NEWPATTERN 
-212259 . 212843) (FB.OPTIONSCOMMAND 212845 . 213084)) (213121 214174 (FB.GETWINDOW 213131 . 214172)) (
-214175 215187 (FB.INFOMENU.SHADEINITIALSELECTIONS 214185 . 214832) (FB.INFO.ITEM.NAMED 214834 . 215185
-)) (215188 224720 (FB.MAKECOUNTERWINDOW 215198 . 216726) (FB.COUNTERW.REDISPLAYFN 216728 . 217315) (
-FB.UPDATE.COUNTERS 217317 . 219389) (FB.DISPLAY.COUNTERS 219391 . 224451) (FB.COUNTER.STRING 224453 . 
-224718)) (224721 229430 (FB.MAKEHEADINGWINDOW 224731 . 226345) (FB.HEADINGW.REDISPLAYFN 226347 . 
-226613) (FB.HEADINGW.RESHAPEFN 226615 . 226991) (FB.HEADINGW.DISPLAY 226993 . 229428)) (229431 233614 
-(FB.ICONFN 229441 . 229788) (FB.INFOMENU.WHENSELECTEDFN 229790 . 230520) (FB.CLOSEFN 230522 . 231725) 
-(FB.EXPUNGE?.MENU 231727 . 232139) (FB.AFTERCLOSEFN 232141 . 232502) (FB.CLOSE&EXPUNGE 232504 . 233612
-)) (233615 245673 (FB.HARDCOPY.DIRECTORY 233625 . 243982) (FB.HARDCOPY.PRINT.TITLE 243984 . 244310) (
-FB.HARDCOPY.MAXWIDTH 244312 . 245671)))))
+  (FILEMAP (NIL (31814 54695 (FB 31824 . 32959) (FB.COPYBINARYCOMMAND 32961 . 33307) (FB.COPYTEXTCOMMAND
+ 33309 . 33651) (FILEBROWSER 33653 . 46759) (FB.TABLEBROWSER 46761 . 46978) (FB.SELECTEDFILES 46980 . 
+47617) (FB.FETCHFILENAME 47619 . 48011) (FB.DIRECTORYP 48013 . 48407) (FB.PROMPTWPRINT 48409 . 49455) 
+(FB.PROMPTW.FORMAT 49457 . 50194) (FB.PROMPTFORINPUT 50196 . 52448) (FB.YES-OR-NO-P 52450 . 53484) (
+FB.ALLOW.ABORT 53486 . 54340) (\\FB.HARDCOPY.TOFILE.EXTENSION 54342 . 54693)) (54719 55672 (FB.STARTUP
+ 54729 . 55244) (FB.MAKERIGIDWINDOW 55246 . 55670)) (55673 61156 (FB.PRINTFN 55683 . 60836) (FB.COPYFN
+ 60838 . 61154)) (61206 67546 (FB.MENU.WHENSELECTEDFN 61216 . 61574) (FB.COMMANDSELECTEDFN 61576 . 
+63115) (FB.SUBITEMP 63117 . 63718) (FB.MAKE.BROWSER.BUSY 63720 . 64524) (FB.FINISH.COMMAND 64526 . 
+66557) (FB.HANDLE.ABORT.BUTTON 66559 . 67544)) (67547 73063 (FB.DELETECOMMAND 67557 . 67838) (
+FB.DELVERCOMMAND 67840 . 71033) (FB.IS.NOT.SUBDIRECTORY.ITEM 71035 . 71216) (FB.DELVER.FILES 71218 . 
+72307) (FB.DELETE.FILE 72309 . 73061)) (73064 74389 (FB.UNDELETECOMMAND 73074 . 73359) (
+FB.UNDELETEALLCOMMAND 73361 . 73640) (FB.UNDELETE.FILE 73642 . 74387)) (74390 98571 (FB.COPYCOMMAND 
+74400 . 74669) (FB.RENAMECOMMAND 74671 . 74946) (FB.COPY/RENAME.COMMAND 74948 . 75871) (
+FB.COPY/RENAME.ONE 75873 . 78195) (FB.COPY/RENAME.MANY 78197 . 84417) (FB.MERGE.DIRECTORIES 84419 . 
+84837) (FB.GREATEST.PREFIX 84839 . 86195) (FB.MAYBE.INSERT.FILE 86197 . 93637) (FB.GET.NEW.FILE.SPEC 
+93639 . 97470) (FB.CANONICAL.DIRECTORY 97472 . 98569)) (98572 106356 (FB.HARDCOPYCOMMAND 98582 . 99712
+) (FB.HARDCOPY.TOFILE 99714 . 106354)) (106357 116556 (FB.EDITCOMMAND 106367 . 107234) (
+FB.EDITCOMMAND.ONEFILE 107236 . 110640) (FB.EDITLISPFILE 110642 . 111747) (FB.BROWSECOMMAND 111749 . 
+116554)) (116557 128478 (FB.FASTSEECOMMAND 116567 . 120017) (FB.FASTSEE.ONEFILE 120019 . 123176) (
+FB.SEEFULLFN 123178 . 127309) (FB.SEEBUTTONFN 127311 . 128476)) (128479 130225 (FB.LOADCOMMAND 128489
+ . 128996) (FB.COMPILECOMMAND 128998 . 129536) (FB.OPERATE.ON.FILES 129538 . 130223)) (130226 178411 (
+FB.UPDATECOMMAND 130236 . 130461) (FB.FIX-DIRECTORY-DATES 130463 . 131486) (FB.MAYBE.EXPUNGE 131488 . 
+132549) (FB.UPDATEBROWSERITEMS 132551 . 145766) (FB.DATE 145768 . 146409) (FB.ADJUST.DATE.WIDTH 146411
+ . 149379) (FB.SET.BROWSER.TITLE 149381 . 150383) (FB.MAYBE.WIDEN.NAMES 150385 . 152504) (
+FB.SET.DEFAULT.NAME.WIDTH 152506 . 153870) (FB.CREATE.FILEBUCKET 153872 . 161092) (
+FB.CHECK.NAME.LENGTH 161094 . 163515) (FB.ADD.FILEGROUP 163517 . 165044) (FB.INSERT.DIRECTORY 165046
+ . 165284) (FB.MAKE.SUBDIRECTORY.ITEM 165286 . 166695) (FB.ADD.FILE 166697 . 167310) (FB.INSERT.FILE 
+167312 . 170724) (FB.ANALYZE.PATTERN 170726 . 175990) (FB.CANONICALIZE.PATTERN 175992 . 177304) (
+FB.GETALLFILEINFO 177306 . 178409)) (178412 186571 (FB.SORT.VERSIONS 178422 . 181193) (
+FB.DECREASING.VERSION 181195 . 181864) (FB.INCREASING.VERSION 181866 . 182487) (
+FB.NAMES.DECREASING.VERSION 182489 . 183524) (FB.NAMES.INCREASING.VERSION 183526 . 184523) (
+FB.DECREASING.NUMERIC.ATTR 184525 . 185205) (FB.INCREASING.NUMERIC.ATTR 185207 . 185881) (
+FB.ALPHABETIC.ATTR 185883 . 186569)) (186572 196414 (FB.SORTCOMMAND 186582 . 193412) (
+FB.INSERT.SUBDIRECTORIES 193414 . 194211) (FB.GET.SORT.MENU 194213 . 196412)) (196415 212636 (
+FB.EXPUNGECOMMAND 196425 . 199010) (FB.NEWPATTERNCOMMAND 199012 . 199410) (FB.NEWINFOCOMMAND 199412 . 
+202244) (FB.DEPTHCOMMAND 202246 . 204021) (FB.SHAPECOMMAND 204023 . 207365) (FB.REMOVE.FILE 207367 . 
+209188) (FB.COUNT.FILE.CHANGE 209190 . 210635) (FB.SETNEWPATTERN 210637 . 211807) (FB.GET.NEWPATTERN 
+211809 . 212393) (FB.OPTIONSCOMMAND 212395 . 212634)) (212671 213724 (FB.GETWINDOW 212681 . 213722)) (
+213725 214737 (FB.INFOMENU.SHADEINITIALSELECTIONS 213735 . 214382) (FB.INFO.ITEM.NAMED 214384 . 214735
+)) (214738 224270 (FB.MAKECOUNTERWINDOW 214748 . 216276) (FB.COUNTERW.REDISPLAYFN 216278 . 216865) (
+FB.UPDATE.COUNTERS 216867 . 218939) (FB.DISPLAY.COUNTERS 218941 . 224001) (FB.COUNTER.STRING 224003 . 
+224268)) (224271 228980 (FB.MAKEHEADINGWINDOW 224281 . 225895) (FB.HEADINGW.REDISPLAYFN 225897 . 
+226163) (FB.HEADINGW.RESHAPEFN 226165 . 226541) (FB.HEADINGW.DISPLAY 226543 . 228978)) (228981 233164 
+(FB.ICONFN 228991 . 229338) (FB.INFOMENU.WHENSELECTEDFN 229340 . 230070) (FB.CLOSEFN 230072 . 231275) 
+(FB.EXPUNGE?.MENU 231277 . 231689) (FB.AFTERCLOSEFN 231691 . 232052) (FB.CLOSE&EXPUNGE 232054 . 233162
+)) (233165 245223 (FB.HARDCOPY.DIRECTORY 233175 . 243532) (FB.HARDCOPY.PRINT.TITLE 243534 . 243860) (
+FB.HARDCOPY.MAXWIDTH 243862 . 245221)))))
 STOP

library/SPY

@@ -1,18 +1,15 @@
 (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
 
-
(FILECREATED " 4-Jan-2022 14:09:48" {DSK}<Users>kaplan>Local>medley3.5>my-medley>library>SPY.;2
 63314  
+
(FILECREATED "28-Jul-2023 20:13:45" {DSK}<home>larry>il>medley>library>SPY.;4
 64149  
+
+      :EDIT-BY "lmm"
 
       :CHANGES-TO (VARS SPYCOMS)
-                  (FNS SPY.MAKE.TREE)
+                  (FNS \SPY.INTERRUPT SPY.BUFFER.ENTRY SPY.ADD.ENTRY)
 
-      :PREVIOUS-DATE "29-Apr-94 14:13:52" {DSK}<Users>kaplan>Local>medley3.5>my-medley>library>SPY.;1
-)
+      :PREVIOUS-DATE " 4-Jan-2022 14:09:48" {DSK}<home>larry>il>medley>library>SPY.;1)
 
 
-(* ; "
-Copyright (c) 1984-1985, 1987-1988, 1990-1991, 1993-1994 by Venue & Xerox Corporation.
-")
-
 (PRETTYCOMPRINT SPYCOMS)
 
 (RPAQQ SPYCOMS

@@ -33,12 +30,13 @@ Copyright (c) 1984-1985, 1987-1988, 1990-1991, 1993-1994 by Venue & Xerox Corpor
              SPY.UPDATE.TITLE SPY.DELETE SPY.DRAWBOX SPY.BUFFER.ENTRY SPY.BUTTON SPY.END.ENTRY 
              SPY.START SPY.INIT \SPY.INTERRUPT SPY.DUMP.BUFFER SPY.START.ENTRY SPY.ADD.ENTRY 
              SPY.ORIGINAL SPY.OVERFLOW SPY.MERGE.CALLEES SPY.PRINT)
-        (COMS (INITVARS (SPY.BUTTON))
+        (COMS (INITVARS (\BACKGROUND)
+                     (SPY.BUTTON))
               (VARS SPY.OPEN SPY.CLOSED))
-        (VARIABLES SPY.POINTERS)
         (GLOBALVARS SPY.OVERFLOWED \PERIODIC.INTERRUPT SPY.TREE SPY.BUFFER.SIZE SPY.NEXT 
                SPY.BUFFER.THRESHOLD SPY.BUFFER SPY.FREQUENCY SPY.SHOW.THRESHOLD SPY.MAXLINES SPY.FONT
                )
+        (SPECVARS \BACKGROUND)
         (MACROS WITH-SPY WITH.SPY)
         (DECLARE%: DONTCOPY (RECORDS SPYRECORD SPYDATA))
         (INITRECORDS SPYRECORD)
@@ -836,8 +834,11 @@ Copyright (c) 1984-1985, 1987-1988, 1990-1991, 1993-1994 by Venue & Xerox Corpor
 )
 
 (SPY.BUFFER.ENTRY

-(LAMBDA (N) (* ; "Edited  9-Sep-87 18:27 by Masinter") (COND (SPY.POINTERS (AND (ILEQ (SETQ N (LLSH N 1)) SPY.BUFFER.SIZE) (\GETBASEPTR SPY.BUFFER N))) ((ILEQ N SPY.BUFFER.SIZE) (\VAG2 0 (\GETBASE SPY.BUFFER N)))))
-)
+  [LAMBDA (N)
                                                (* ; "Edited 28-Jul-2023 08:16 by lmm")


+                                                          (* ; "Edited  9-Sep-87 18:27 by Masinter")

+    (AND (ILEQ (SETQ N (LLSH N 1))
+               SPY.BUFFER.SIZE)
+         (\GETBASEPTR SPY.BUFFER N])
 
 (SPY.BUTTON

 (LAMBDA (POS) (* gbn " 2-Jun-85 13:12") (PROG ((REG (if POS then (CREATEREGION (fetch XCOORD of POS) (fetch YCOORD of POS) (WIDTHIFWINDOW (BITMAPWIDTH SPY.CLOSED)) (HEIGHTIFWINDOW (BITMAPHEIGHT SPY.CLOSED))) else (GETBOXREGION (WIDTHIFWINDOW (BITMAPWIDTH SPY.CLOSED)) (HEIGHTIFWINDOW (BITMAPHEIGHT SPY.CLOSED)) NIL NIL NIL "Specify region for window %"Spy Control%"")))) (BITBLT SPY.CLOSED NIL NIL (SETQ SPY.BUTTON (CREATEW REG NIL NIL T))) (WINDOWPROP SPY.BUTTON (QUOTE BUTTONEVENTFN) (FUNCTION (LAMBDA (W) (AND (LASTMOUSESTATE UP) (SPY.TOGGLE)))))))
@@ -855,8 +856,34 @@ Copyright (c) 1984-1985, 1987-1988, 1990-1991, 1993-1994 by Venue & Xerox Corpor
 )
 
 (\SPY.INTERRUPT

-(LAMBDA NIL (* ; "Edited  9-Sep-87 18:32 by Masinter") (SETQ \PERIODIC.INTERRUPT) (* ; "turn off sampling while gathering sample") (PROG ((FRAME (fetch (FX CLINK) (\MYALINK)))) (COND ((IGEQ (if SPY.POINTERS then (LLSH SPY.NEXT 1) else SPY.NEXT) SPY.BUFFER.THRESHOLD) (COND (\INTERRUPTABLE (SPY.DUMP.BUFFER)) (T (* ; "this sample might overflow;  just don't do it") (RETURN))))) (SPY.START.ENTRY) SAMPLELOOP (SPY.ADD.ENTRY (fetch (FX FRAMENAME) FRAME)) (COND ((NOT (fetch (FX INVALIDP) (SETQ FRAME (fetch (FX CLINK) FRAME)))) (GO SAMPLELOOP)) (T (SPY.END.ENTRY)))) (SETQ \PERIODIC.INTERRUPT (QUOTE \SPY.INTERRUPT)))
-)
+  [LAMBDA NIL
                                                (* ; "Edited 28-Jul-2023 08:59 by lmm")


+                                                          (* ; "Edited  9-Sep-87 18:32 by Masinter")

+    (DECLARE
 (SPECVARS \BACKGROUND))
+    [PROG [(FRAME (fetch
 (FX CLINK)
+                         (\MYALINK]
+          (IF
 \BACKGROUND
+              THEN
 (RETURN))
+          (SETQ \PERIODIC.INTERRUPT)                         (* ; 
+
                                                           "turn off sampling while gathering sample")

+          [COND
+             ((IGEQ (LLSH SPY.NEXT 1)
+                    SPY.BUFFER.THRESHOLD)
+              (COND
+                 (\INTERRUPTABLE (SPY.DUMP.BUFFER
))
+                 (T                                          (* ; 
+
                                                      "this sample might overflow;  just don't do it")

+                    (RETURN]
+          (SPY.START.ENTRY
)
+      SAMPLELOOP
+          (SPY.ADD.ENTRY
 (fetch
 (FX FRAMENAME)
+                                FRAME))
+          (COND
+             ([NOT (fetch
 (FX INVALIDP)
+                          (SETQ FRAME (fetch
 (FX CLINK)
+                                             FRAME]
+              (GO SAMPLELOOP))
+             (T (SPY.END.ENTRY
]
+    (SETQ \PERIODIC.INTERRUPT '\SPY.INTERRUPT])
 
 (SPY.DUMP.BUFFER

   [LAMBDA NIL
                                         (* ; "Edited 28-Apr-94 14:00 by sybalsky")

@@ -885,8 +912,15 @@ Copyright (c) 1984-1985, 1987-1988, 1990-1991, 1993-1994 by Venue & Xerox Corpor
 )
 
 (SPY.ADD.ENTRY

-(LAMBDA (NAME) (* ; "Edited  9-Sep-87 18:29 by Masinter") (COND (SPY.POINTERS (\PUTBASEPTR SPY.BUFFER (LLSH SPY.NEXT 1) NAME) (COND ((IGEQ (LLSH (add SPY.NEXT 1) 1) SPY.BUFFER.SIZE) (SPY.OVERFLOW)))) (T (OR (LITATOM NAME) (SETQ NAME (QUOTE *FORM*))) (\PUTBASE SPY.BUFFER SPY.NEXT (\LOLOC NAME)) (COND ((IGEQ (add SPY.NEXT 1) SPY.BUFFER.SIZE) (SPY.OVERFLOW))))))
-)
+  [LAMBDA (NAME)
                                             (* ; "Edited 28-Jul-2023 08:17 by lmm")


+                                                          (* ; "Edited  9-Sep-87 18:29 by Masinter")

+    (\PUTBASEPTR SPY.BUFFER (LLSH SPY.NEXT 1)
+           NAME)
+    (COND
+       ((IGEQ (LLSH (add
 SPY.NEXT 1)
+                    1)
+              SPY.BUFFER.SIZE)
+        (SPY.OVERFLOW
])
 
 (SPY.ORIGINAL

   [LAMBDA (TREES)
                                     (* ; "Edited 28-Apr-94 14:00 by sybalsky")

@@ -951,6 +985,8 @@ Copyright (c) 1984-1985, 1987-1988, 1990-1991, 1993-1994 by Venue & Xerox Corpor
                            else
 (fetch
 (SPYRECORD NAME) of
 X])
 )
 
+(RPAQ? \BACKGROUND
 )
+
 (RPAQ? SPY.BUTTON
 )
 
 (RPAQQ SPY.OPEN
 #*(56 59)@@@@@@@@@@@@@@@@GLOLLC@@@@@@@@@@LFLFLC@@@@@@@@@@LFLFFF@@@@@@@@@@O@LFFF@@GLOL@@@@GLLFCL@@LFLF@@@@ANOLAH@@LFLF@@@@LFL@AH@@LFLF@@@@LFL@AH@@LFLF@@@@LFL@AH@@LFLF@@@@GLL@AH@@GLLF@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@IEGOOJ@@@@J@@HJ@@BOONHH@@BA@@@@HKOOOFNJHA@D@@HHBGOKNOEB@@@B@@@EDOMMBIGNJH@I@@@HBONJMEEKE@HA@@ECONMJB@KOOJCE@@@KOOJJHEAONHDJ@@KONJD@@@@AONIE@@GOMJH@@@BMOJEB@@FOB@@D@B@@AOEM@@GODDHA@@@AENMG@@KLH@@D@@@@BONM@@GM@HB@@@@BEFKG@@JJDBH@@@@@@INM@@ODA@DDD@@@BEOG@@@KJOMKB@@@AEEK@@JJEBNLIB@@DEOG@@DKNOKONHDDABFI@@BBKFOOMD@AAEFM@@IEIABEEOD@@@JJ@@EFLJKKGEB@EFEB@@J@@BOOHNHD@AEE@@EEEDONKEJ@EEBJ@@H@IOOOOOIEB@HD@@MDDOOOOMDHIEBJ@@BAOKOOOGONNJ@A@@HBKGOOOOOJKHBE@@DHLKMGMGOONJ@I@@@EMBOOJOOOKHBD@@BKDEOOJAOONJ@B@@BKIBOOHEOOOH@D@@HNDAONJBOJDDAA@@BO@DMGDEGOEB@A@@A@DBFJ@BL@@@@D@@@E@ICMAEOJDH@A@@B@@D@ADI@@@@BD@@HDA@JDBEFHH@@A@@@@@H@IDID@@B@D@@AA@A@@@B@A@@AA@@@@@D@@B@J@@A@A@@@@@H@@@D@@@@@J@@@A@@@D@AB@@@BA@@@@@@@@E@@@@@@D@@HH@@@B@@@@@@@B@@
@@ -958,13 +994,15 @@ Copyright (c) 1984-1985, 1987-1988, 1990-1991, 1993-1994 by Venue & Xerox Corpor
 
 (RPAQQ SPY.CLOSED
 #*(56 59)@@@@@@@@@@@@@@@@GLOLLC@@@@CHND@@LFLFLC@@@@FAHA@@LFLFFF@@@@FAH@@@O@LFFF@@GLOKNA@@GLLFCL@@LFFAH@@@ANOLAH@@LFFAHA@@LFL@AH@@LFFAH@@@LFL@AH@@LFFAHJ@@LFL@AH@@LFFAH@@@GLL@AH@@GLFAHB@@@@@@@@@@@@@@@D@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@A@@@@@IEGOOJ@@@@J@@HJ@@BOONHH@@BA@@@@HKOOOFNJHA@D@@HHBGOKNOEB@@@B@@@EDOMMBIGNJH@I@@@HBONJMEEKE@HA@@ECONMJB@KOOBCE@@@KOOJJHEAOOHDJ@@KONJD@@@@AONIE@@GOMJH@@@BMOJEB@@FOB@@D@B@@AOEM@@GODDHA@@@AENMG@@KLH@@D@@@@BONM@@GM@HB@@@@BEFKG@@JJDBH@@@@@@INM@@ODA@DDD@@@BEOG@@@KJOMKB@@@AEEK@@JJEBNLIB@@DEOG@@DKNOKONHDDABFI@@BBKFOOOD@AAEFM@@IEIABEGND@@@JJ@@EFLLDGGGB@EFEB@@J@@@@@IOHD@AEE@@EEAAEA@FI@EEBJ@@H@HDL@EAME@@HD@@MDEB@NHDJHDABJ@@BAB@@ABICF@J@A@@HB@KDDI@BLI@BE@@DID@A@@JHKDJ@I@@@D@DDDE@EBKEBD@@BAD@@@@A@OED@B@@BHAAAAA@CGNH@D@@H@D@@@@@MOE@AA@@BK@DDDDDGOJJ@A@@B@DA@B@CODFBBD@@EE@HBIAENK@@@A@@BLHBDDDON@@@BD@@KGDHJJIGJHB@@A@@BOBBECGOLB@B@D@@AAMLMKGOH@@@AA@@@GGONNON@H@A@A@@@IKKKKOLJ@@@@J@@@DFOKOO@D@@@BA@@@AEGMMD@A@@@@D@@HHBJMBLA@@@@@B@@
 )
-
-(DEFGLOBALVAR SPY.POINTERS
 T)
 (DECLARE%: DOEVAL@COMPILE DONTCOPY
 
 (GLOBALVARS SPY.OVERFLOWED \PERIODIC.INTERRUPT SPY.TREE SPY.BUFFER.SIZE SPY.NEXT SPY.BUFFER.THRESHOLD
        SPY.BUFFER SPY.FREQUENCY SPY.SHOW.THRESHOLD SPY.MAXLINES SPY.FONT)
 )
+(DECLARE%: DOEVAL@COMPILE DONTCOPY
+
+(SPECVARS \BACKGROUND)
+)
 (DECLARE%: EVAL@COMPILE 
 
 (PUTPROPS WITH-SPY
 MACRO
 [(FORM)
@@ -1014,19 +1052,18 @@ Copyright (c) 1984-1985, 1987-1988, 1990-1991, 1993-1994 by Venue & Xerox Corpor
 )
 
 (MOVD? 'NILL 'MODERNWINDOW)
-(PUTPROPS SPY COPYRIGHT ("Venue & Xerox Corporation" 1984 1985 1987 1988 1990 1991 1993 1994))
 (DECLARE%: DONTCOPY
-  (FILEMAP (NIL (4753 7360 (SPYOBJ 4763 . 5052) (SPYOBJ.BUTTON 5054 . 5164) (SPYOBJ.SAVE 5166 . 5285) (
-SPYOBJ.COPY 5287 . 5349) (SPYOBJ.GET 5351 . 5480) (SPYOBJ.IMAGEBOX 5482 . 6006) (SPYOBJ.DISPLAY 6008
- . 6307) (SPYOBJ.LABEL 6309 . 6445) (SPYOBJ.HEIGHT 6447 . 6660) (SPYOBJ.COPYIN 6662 . 6705) (
-SPY.COPYBUTTON 6707 . 6799) (SPY.MERGEINFO 6801 . 7358)) (18202 59509 (SPY.FIND.TREE 18212 . 18621) (
-SPY.TOGGLE 18623 . 18813) (SPY.TREE 18815 . 19927) (SPY.LEGEND 19929 . 20279) (SPY.GRAPH.EDITOR 20281
- . 29846) (SPY.END 29848 . 30090) (SPY.MAKEGRAPHNODES 30092 . 32192) (SPY.MAX 32194 . 33077) (
-SPY.MERGE 33079 . 34510) (SPY.MERGE1 34512 . 40995) (SPY.MERGETREE 40997 . 43927) (SPY.NEXT.TREE 43929
- . 44603) (SPY.SUM 44605 . 45294) (SPY.TITLE 45296 . 45513) (SPY.MAKE.TREE 45515 . 47540) (
-SPY.UPDATE.TITLE 47542 . 50118) (SPY.DELETE 50120 . 50655) (SPY.DRAWBOX 50657 . 51182) (
-SPY.BUFFER.ENTRY 51184 . 51422) (SPY.BUTTON 51424 . 51993) (SPY.END.ENTRY 51995 . 52075) (SPY.START 
-52077 . 52361) (SPY.INIT 52363 . 52598) (\SPY.INTERRUPT 52600 . 53236) (SPY.DUMP.BUFFER 53238 . 54698)
- (SPY.START.ENTRY 54700 . 54828) (SPY.ADD.ENTRY 54830 . 55212) (SPY.ORIGINAL 55214 . 56041) (
-SPY.OVERFLOW 56043 . 56144) (SPY.MERGE.CALLEES 56146 . 59182) (SPY.PRINT 59184 . 59507)))))
+  (FILEMAP (NIL (4707 7314 (SPYOBJ 4717 . 5006) (SPYOBJ.BUTTON 5008 . 5118) (SPYOBJ.SAVE 5120 . 5239) (
+SPYOBJ.COPY 5241 . 5303) (SPYOBJ.GET 5305 . 5434) (SPYOBJ.IMAGEBOX 5436 . 5960) (SPYOBJ.DISPLAY 5962
+ . 6261) (SPYOBJ.LABEL 6263 . 6399) (SPYOBJ.HEIGHT 6401 . 6614) (SPYOBJ.COPYIN 6616 . 6659) (
+SPY.COPYBUTTON 6661 . 6753) (SPY.MERGEINFO 6755 . 7312)) (18156 60387 (SPY.FIND.TREE 18166 . 18575) (
+SPY.TOGGLE 18577 . 18767) (SPY.TREE 18769 . 19881) (SPY.LEGEND 19883 . 20233) (SPY.GRAPH.EDITOR 20235
+ . 29800) (SPY.END 29802 . 30044) (SPY.MAKEGRAPHNODES 30046 . 32146) (SPY.MAX 32148 . 33031) (
+SPY.MERGE 33033 . 34464) (SPY.MERGE1 34466 . 40949) (SPY.MERGETREE 40951 . 43881) (SPY.NEXT.TREE 43883
+ . 44557) (SPY.SUM 44559 . 45248) (SPY.TITLE 45250 . 45467) (SPY.MAKE.TREE 45469 . 47494) (
+SPY.UPDATE.TITLE 47496 . 50072) (SPY.DELETE 50074 . 50609) (SPY.DRAWBOX 50611 . 51136) (
+SPY.BUFFER.ENTRY 51138 . 51481) (SPY.BUTTON 51483 . 52052) (SPY.END.ENTRY 52054 . 52134) (SPY.START 
+52136 . 52420) (SPY.INIT 52422 . 52657) (\SPY.INTERRUPT 52659 . 54064) (SPY.DUMP.BUFFER 54066 . 55526)
+ (SPY.START.ENTRY 55528 . 55656) (SPY.ADD.ENTRY 55658 . 56090) (SPY.ORIGINAL 56092 . 56919) (
+SPY.OVERFLOW 56921 . 57022) (SPY.MERGE.CALLEES 57024 . 60060) (SPY.PRINT 60062 . 60385)))))
 STOP

library/SYSEDIT

@@ -1,12 +1,10 @@
 (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   
-
-      :EDIT-BY "lmm"
+
(FILECREATED "18-Jul-2023 12:07:08" {DSK}<home>frank>il>medley>gmedley>library>SYSEDIT.;2
 1397   
 
       :CHANGES-TO (VARS SYSEDITCOMS)
 
-      :PREVIOUS-DATE "25-Jun-2022 18:22:01" {DSK}<home>larry>il>medley>library>SYSEDIT.;1)
+      :PREVIOUS-DATE "29-Apr-2023 16:15:10" {DSK}<home>frank>il>medley>gmedley>library>SYSEDIT.;1)
 
 
 (PRETTYCOMPRINT SYSEDITCOMS)
@@ -20,9 +18,11 @@
               (CLISPIFTRANFLG T)
               (CROSSCOMPILING 'ASK)
               (*REPLACE-OLD-EDIT-DATES* NIL)
-              (COPYRIGHTFLG 'NEVER))
-        (P (RESETVARS ((CROSSCOMPILING T))
-                  (FILESLOAD (SOURCE)
+              (COPYRIGHTFLG 'NEVER)
+              (MSRECORDTRANFLG T))
+        (P (MOVD? 'APPLY* 'SPREADAPPLY*X)
+           (RESETVARS ((CROSSCOMPILING T))
+                  (FILESLOAD (SOURCE FROM LOADUPS)
                          EXPORTS.ALL])
 
 (RPAQQ CLISPIFYPRETTYFLG
 NIL)
@@ -43,8 +43,12 @@
 
 (RPAQQ COPYRIGHTFLG
 NEVER)
 
+(RPAQQ MSRECORDTRANFLG
 T)
+
+(MOVD? 'APPLY* 'SPREADAPPLY*X)
+
 (RESETVARS ((CROSSCOMPILING T))
-           (FILESLOAD (SOURCE)
+           (FILESLOAD (SOURCE FROM LOADUPS)
                   EXPORTS.ALL))
 (DECLARE%: DONTCOPY
   (FILEMAP (NIL)))

library/UNICODE

@@ -1,13 +1,12 @@
 (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
 
-
(FILECREATED "19-Jul-2022 15:36:40" 
-{DSK}<users>kaplan>local>medley3.5>working-medley>library>UNICODE.;198
 65644  
+
(FILECREATED "19-Jul-2023 09:26:13" {WMEDLEY}<library>UNICODE.;199
 65282  
 
-      :CHANGES-TO (FNS MAKE-UNICODE-FORMATS \UTF16BE.BACKCCODEFN \UTF8.BACKCCODEFN)
-                  (VARS UNICODECOMS)
+      :EDIT-BY rmk
 
-      :PREVIOUS-DATE "13-Jul-2022 11:38:18" 
-{DSK}<users>kaplan>local>medley3.5>working-medley>library>UNICODE.;196)
+      :CHANGES-TO (VARS UNICODECOMS)
+
+      :PREVIOUS-DATE "19-Jul-2022 15:36:40" {WMEDLEY}<library>UNICODE.;198)
 
 
 (PRETTYCOMPRINT UNICODECOMS)
@@ -58,10 +57,8 @@
               (GLOBALVARS *XCCSTOUNICODE* *UNICODETOXCCS*))
         (FNS HEXSTRING UTF8HEXSTRING NUTF8CODEBYTES NUTF8STRINGBYTES XTOUSTRING XCCSSTRING)
         (FNS SHOWCHARS)
-        (DECLARE%: EVAL@COMPILE DONTCOPY (P (OR (GETP 'EXPORTS.ALL 'FILE)
-                                                (PRINT 
-                                                 "NOTE: UNICODE requires EXPORTS.ALL for compilation"
-                                                       T)))
+        (DECLARE%: EVAL@COMPILE DONTCOPY (FILES (FROM LOADUPS)
+                                                EXPORTS.ALL)
                
                (* ;; "These control the layout of the translation tables.  Since many of the upper panels are sparse, doing it per-panel (128) seems more space-efficient, and residual alists can be shorter")

 
@@ -1194,8 +1191,8 @@
 )
 (DECLARE%: EVAL@COMPILE DONTCOPY 
 
-(OR (GETP 'EXPORTS.ALL 'FILE)
-    (PRINT "NOTE: UNICODE requires EXPORTS.ALL for compilation" T))
+(FILESLOAD (FROM
 LOADUPS)
+       EXPORTS.ALL)
 
 (DECLARE%: EVAL@COMPILE 
 
@@ -1218,15 +1215,15 @@
 )
 )
 (DECLARE%: DONTCOPY
-  (FILEMAP (NIL (4031 18122 (UTF8.OUTCHARFN 4041 . 6872) (UTF8.INCCODEFN 6874 . 12364) (UTF8.PEEKCCODEFN
- 12366 . 17140) (\UTF8.BACKCCODEFN 17142 . 18120)) (18123 21904 (UTF16BE.OUTCHARFN 18133 . 18957) (
-UTF16BE.INCCODEFN 18959 . 19858) (UTF16BE.PEEKCCODEFN 19860 . 20931) (\UTF16BE.BACKCCODEFN 20933 . 
-21902)) (21934 23995 (MAKE-UNICODE-FORMATS 21944 . 23993)) (24092 25398 (UNICODE.UNMAPPED 24102 . 
-25396)) (25399 25935 (XCCS-UTF8-AFTER-OPEN 25409 . 25933)) (26768 27117 (XTOUCODE 26778 . 26946) (
-UTOXCODE 26948 . 27115)) (27157 43279 (READ-UNICODE-MAPPING-FILENAMES 27167 . 28268) (
-READ-UNICODE-MAPPING 28270 . 31568) (WRITE-UNICODE-MAPPING 31570 . 35787) (WRITE-UNICODE-INCLUDED 
-35789 . 40511) (WRITE-UNICODE-MAPPING-HEADER 40513 . 41745) (WRITE-UNICODE-MAPPING-FILENAME 41747 . 
-43277)) (46492 54971 (MAKE-UNICODE-TRANSLATION-TABLES 46502 . 54969)) (55388 63414 (HEXSTRING 55398 . 
-56559) (UTF8HEXSTRING 56561 . 58766) (NUTF8CODEBYTES 58768 . 59553) (NUTF8STRINGBYTES 59555 . 60036) (
-XTOUSTRING 60038 . 63049) (XCCSSTRING 63051 . 63412)) (63415 64884 (SHOWCHARS 63425 . 64882)))))
+  (FILEMAP (NIL (3717 17808 (UTF8.OUTCHARFN 3727 . 6558) (UTF8.INCCODEFN 6560 . 12050) (UTF8.PEEKCCODEFN
+ 12052 . 16826) (\UTF8.BACKCCODEFN 16828 . 17806)) (17809 21590 (UTF16BE.OUTCHARFN 17819 . 18643) (
+UTF16BE.INCCODEFN 18645 . 19544) (UTF16BE.PEEKCCODEFN 19546 . 20617) (\UTF16BE.BACKCCODEFN 20619 . 
+21588)) (21620 23681 (MAKE-UNICODE-FORMATS 21630 . 23679)) (23778 25084 (UNICODE.UNMAPPED 23788 . 
+25082)) (25085 25621 (XCCS-UTF8-AFTER-OPEN 25095 . 25619)) (26454 26803 (XTOUCODE 26464 . 26632) (
+UTOXCODE 26634 . 26801)) (26843 42965 (READ-UNICODE-MAPPING-FILENAMES 26853 . 27954) (
+READ-UNICODE-MAPPING 27956 . 31254) (WRITE-UNICODE-MAPPING 31256 . 35473) (WRITE-UNICODE-INCLUDED 
+35475 . 40197) (WRITE-UNICODE-MAPPING-HEADER 40199 . 41431) (WRITE-UNICODE-MAPPING-FILENAME 41433 . 
+42963)) (46178 54657 (MAKE-UNICODE-TRANSLATION-TABLES 46188 . 54655)) (55074 63100 (HEXSTRING 55084 . 
+56245) (UTF8HEXSTRING 56247 . 58452) (NUTF8CODEBYTES 58454 . 59239) (NUTF8STRINGBYTES 59241 . 59722) (
+XTOUSTRING 59724 . 62735) (XCCSSTRING 62737 . 63098)) (63101 64570 (SHOWCHARS 63111 . 64568)))))
 STOP

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

lispusers/BACKGROUND-YIELD

@@ -1,21 +1,23 @@
 (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
 
-
(FILECREATED "14-Nov-2021 22:05:58" {DSK}<home>larry>medley>lispusers>BACKGROUND-YIELD.;2
 1597   
+
(FILECREATED "28-Jul-2023 09:49:24" {DSK}<home>larry>il>medley>lispusers>BACKGROUND-YIELD.;2
 1770   
 
-      changes to%:  (VARS BACKGROUND-YIELD)
+      :EDIT-BY "lmm"
 
-      previous date%: "20-Sep-2021 11:37:28" {DSK}<home>larry>medley>lispusers>BACKGROUND-YIELD.;1)
+      :CHANGES-TO (FNS BACKGROUND-YIELD)
+
+      :PREVIOUS-DATE "14-Nov-2021 22:05:58" {DSK}<home>larry>il>medley>lispusers>BACKGROUND-YIELD.;1
+)
 
 
 (PRETTYCOMPRINT BACKGROUND-YIELDCOMS)
 
 (RPAQQ BACKGROUND-YIELDCOMS
 (
-                                 (* ;; 
-
                               " Add a call to BACKGROUNDFNS to yield when not otherwise busy")

+                             (* ;; " Add a call to BACKGROUNDFNS to yield when not otherwise busy")

 
-                                 (FNS BACKGROUND-YIELD INIT-YIELD)
-                                 (DECLARE%: DONTEVAL@LOAD DOCOPY (P (INIT-YIELD T)))
-                                 (VARS BACKGROUND-YIELD)))
+                             (FNS BACKGROUND-YIELD INIT-YIELD)
+                             (DECLARE%: DONTEVAL@LOAD DOCOPY (P (INIT-YIELD T)))
+                             (VARS BACKGROUND-YIELD)))
 
 
 
@@ -24,10 +26,13 @@
 (DEFINEQ
 
 (BACKGROUND-YIELD

-  [LAMBDA NIL
                                          (* ; "Edited 20-Sep-2021 11:37 by larry")

-    (IF
 (FIXP BACKGROUND-YIELD)
-        THEN
 (SUBRCALL YIELD BACKGROUND-YIELD)
-              (SUBRCALL CAUSE-INTERRUPT])
+  [LAMBDA NIL
                                                (* ; "Edited 28-Jul-2023 09:11 by lmm")


+                                                           (* ; "Edited 20-Sep-2021 11:37 by larry")

+    (LET ((\BACKGROUND T))
+         (DECLARE
 (SPECVARS \BACKGROUND))
+         (IF
 (FIXP BACKGROUND-YIELD)
+             THEN
 (SUBRCALL YIELD BACKGROUND-YIELD)
+                  (SUBRCALL CAUSE-INTERRUPT])
 
 (INIT-YIELD

   [LAMBDA (ONP)
                                        (* ; "Edited 19-Sep-2021 13:32 by larry")

@@ -46,5 +51,5 @@
 
 (RPAQQ BACKGROUND-YIELD
 833333)
 (DECLARE%: DONTCOPY
-  (FILEMAP (NIL (833 1482 (BACKGROUND-YIELD 843 . 1098) (INIT-YIELD 1100 . 1480)))))
+  (FILEMAP (NIL (806 1655 (BACKGROUND-YIELD 816 . 1271) (INIT-YIELD 1273 . 1653)))))
 STOP