Merge pull request #1269 from Interlisp/fgh_ipfonts

Add ipfonts to release tars

.github/ISSUE_TEMPLATE/documentation.md

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

.github/ISSUE_TEMPLATE/what_people_are_saying.yml

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

.github/workflows/buildLoadup.yml

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

library/BROWSER

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

+(MSPATHS.DISPATCH

   [LAMBDA (FROM
 TO
 INVERTED AVOIDING SEPARATE NOTRACE MARKING)

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


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

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

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

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

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

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


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


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


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

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

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

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

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

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

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

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

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

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

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


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

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

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

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

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

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

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

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


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

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

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

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

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

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

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

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

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


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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

library/SYSEDIT

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

library/WHERE-IS

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

lispusers/CALENDAR

@@ -1,11 +1,12 @@
 (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
 
-
(FILECREATED " 1-Feb-2022 17:14:32" {DSK}<Users>kaplan>Local>medley3.5>my-medley>lispusers>CALENDAR.;2
 173369 
+
(FILECREATED " 5-May-2023 22:14:14" {WMEDLEY}<lispusers>CALENDAR.;4
 173398 
 
-      :CHANGES-TO (FNS CALTEDITSTRING)
+      :EDIT-BY rmk
 
-      :PREVIOUS-DATE "21-Aug-90 09:16:22" 
-{DSK}<Users>kaplan>Local>medley3.5>my-medley>lispusers>CALENDAR.;1)
+      :CHANGES-TO (FNS PACKDATE CALTEDITSTRING)
+
+      :PREVIOUS-DATE " 1-Feb-2022 17:14:32" {WMEDLEY}<lispusers>CALENDAR.;2)
 
 
 (* ; "
@@ -1118,7 +1119,8 @@ Copyright (c) 1985-1990 by Xerox Corporation.
                'Abort])
 
 (CALTEDITSTRING

-  [LAMBDA (STRING M D YR)
                                    (* ; "Edited  1-Feb-2022 17:13 by rmk")


+  [LAMBDA (STRING M D YR)
                                    (* ; "Edited  5-May-2023 21:56 by rmk")


+                                                             (* ; "Edited  1-Feb-2022 17:13 by rmk")


                                                              (* ; "Edited 14-Oct-88 12:48 by MJD")

                                                              (* T.Bigham "12-Nov-84 11:03")

 
@@ -1165,7 +1167,7 @@ Copyright (c) 1985-1990 by Xerox Corporation.
                                                                (CHARACTER 13)
                                                                "Message: >>Any text<<")))
                                   NIL NIL NIL '(QUITFN T]
-                    (TEDIT.SETSEL STREAM 24 12 NIL T)
+                    (TEDIT.NEXT STREAM)
                     (SPAWN.MOUSE)
                     [SETQ RESULT (TEDIT STREAM CALTEDITWINDOW T '(QUITFN T]
                     (IF
 (EQ RESULT 'Abort)
@@ -1897,26 +1899,22 @@ Copyright (c) 1985-1990 by Xerox Corporation.
                         W H])
 
 (PACKDATE

-  [LAMBDA (MTIME M D YR)
                                     (* MJD "15-May-87 09:38")

-          
-          (* Takes a time, M, D, and YR, and packs them into a formatted date which is 
-
          returned.)

-          
-          (* If MTIME = 0, then this is an untimed rem., so store NIL in the time field.)

+  [LAMBDA (MTIME M D YR)
                                     (* ; "Edited  5-May-2023 22:10 by rmk")

+                                                             (* MJD "15-May-87 09:38")

+
+         (* Takes a time, M, D, and YR, and packs them into a formatted date which is 
+
         returned.)

+
+         (* If MTIME = 0, then this is an untimed rem., so store NIL in the time field.)

 
     (CONCAT (if
 (IGEQ D 10)
                 then
 D
               else
 (CONCAT " " D))
            "-"
            (MONTHABBR
 M)
-           "-"
-           (if
 (IGREATERP YR 1999)
-               then
 YR
-             else
 (IDIFFERENCE YR 1900))
-           " "
-           (if
 (EQ MTIME 0)
-               then
 NIL
-             else
 MTIME])
+           "-" YR " " (if
 (EQ MTIME 0)
+                          then
 NIL
+                        else
 MTIME])
 
 (PARSETIME

   [LAMBDA (TSTRING)
                                          (* MJD "22-Oct-85 12:06")

@@ -3044,28 +3042,28 @@ Copyright (c) 1985-1990 by Xerox Corporation.
        FREEMENU TABLEBROWSER)
 (PUTPROPS CALENDAR COPYRIGHT ("Xerox Corporation" 1985 1986 1987 1988 1989 1990))
 (DECLARE%: DONTCOPY
-  (FILEMAP (NIL (8660 168249 (CALADDEVENT 8670 . 15774) (CALCREATEREM 15776 . 18369) (CALDELETEREM 18371
- . 21281) (CALDISPEVENT 21283 . 29466) (CALDOOPTIONS 29468 . 31251) (CALENDAR 31253 . 34327) (
-CALENDARWATCHER 34329 . 34606) (CALEXTENDSEL 34608 . 36556) (CALLOADFILE 36558 . 46400) (CALMAKEKEY 
-46402 . 46603) (CALMONTHBEF 46605 . 47698) (CALMONTHICONFN 47700 . 48207) (CALMONTHRBF 48209 . 49001) 
-(CALOPTIONMENU 49003 . 51258) (CALPEEKNEWMAIL 51260 . 54451) (CALPRINTREM 54453 . 56071) (CALREMDEF 
-56073 . 56314) (CALTBCLOSEFN 56316 . 56718) (CALTBCOPYFN 56720 . 59088) (CALTBNULLFN 59090 . 59316) (
-CALTBSELECTEDFN 59318 . 59715) (CALTEDITEXIT 59717 . 60010) (CALTEDITSTRING 60012 . 63568) (
-CALUPDATEFILE 63570 . 70525) (CALUPDATEINIT 70527 . 73896) (CALYEARICONFN 73898 . 74381) (
-CALYEARINRANGE 74383 . 74657) (CIRCLETODAY 74659 . 78136) (CLEARDAY 78138 . 79661) (CLOSEMONTH 79663
- . 80232) (DAYABBR 80234 . 80496) (DAYNAME 80498 . 80691) (DAYOF 80693 . 81725) (DAYPLUS 81727 . 82024
-) (DAYSIN 82026 . 82858) (DERIVENEWDATE 82860 . 86599) (DOREMINDER 86601 . 90935) (FMNWAYITEM 90937 . 
-91338) (GETREMDEF 91340 . 91652) (INVERTGROUP 91654 . 91922) (LISPDATEDAY 91924 . 92202) (
-LISPDATEMONTH 92204 . 92352) (LISPDATEYEAR 92354 . 92718) (MDMENUITEMREGION 92720 . 93184) (MENUITEM 
-93186 . 93377) (MENUREGIONITEM 93379 . 93747) (MONTHABBR 93749 . 93926) (MONTHNAME 93928 . 94167) (
-MONTHNUM 94169 . 94375) (MONTHOFDAYPLUS 94377 . 94605) (MONTHPLUS 94607 . 94912) (MONTHYEARPLUS 94914
- . 95202) (NEWPARSETIME 95204 . 100855) (NEXTMDISPLAYREGION 100857 . 103428) (PACKDATE 103430 . 104145
-) (PARSETIME 104147 . 105274) (PICKFONTSIZE 105276 . 105930) (POM 105932 . 108586) (POMDAYS 108588 . 
-109929) (PRINTMONTH 109931 . 113797) (REMINDERSOF 113799 . 114717) (REMINDERTIME 114719 . 114961) (
-REMINDERTIMELT 114963 . 115662) (REMSINMONTH 115664 . 115853) (REPAINTMONTH 115855 . 116257) (
-REPAINTYEAR 116259 . 116589) (SAMEDAYAS 116591 . 116994) (SAMEMONTHAS 116996 . 117281) (SCALEBITMAP 
-117283 . 126335) (SHOWDAY 126337 . 134583) (SHOWMONTH 134585 . 154663) (SHOWMONTHSMALL 154665 . 155801
-) (SHOWMOON 155803 . 158742) (SHOWREMSINDAY 158744 . 160234) (SHOWREMSINMONTH 160236 . 162686) (
-SHOWYEAR 162688 . 166202) (SHRINKMONTH 166204 . 166630) (SHRINKYEAR 166632 . 167161) (TIMEDREMP 167163
- . 167287) (TPLUS 167289 . 167823) (WEEKOF 167825 . 168079) (YNCONVERT 168081 . 168247)))))
+  (FILEMAP (NIL (8620 168278 (CALADDEVENT 8630 . 15734) (CALCREATEREM 15736 . 18329) (CALDELETEREM 18331
+ . 21241) (CALDISPEVENT 21243 . 29426) (CALDOOPTIONS 29428 . 31211) (CALENDAR 31213 . 34287) (
+CALENDARWATCHER 34289 . 34566) (CALEXTENDSEL 34568 . 36516) (CALLOADFILE 36518 . 46360) (CALMAKEKEY 
+46362 . 46563) (CALMONTHBEF 46565 . 47658) (CALMONTHICONFN 47660 . 48167) (CALMONTHRBF 48169 . 48961) 
+(CALOPTIONMENU 48963 . 51218) (CALPEEKNEWMAIL 51220 . 54411) (CALPRINTREM 54413 . 56031) (CALREMDEF 
+56033 . 56274) (CALTBCLOSEFN 56276 . 56678) (CALTBCOPYFN 56680 . 59048) (CALTBNULLFN 59050 . 59276) (
+CALTBSELECTEDFN 59278 . 59675) (CALTEDITEXIT 59677 . 59970) (CALTEDITSTRING 59972 . 63623) (
+CALUPDATEFILE 63625 . 70580) (CALUPDATEINIT 70582 . 73951) (CALYEARICONFN 73953 . 74436) (
+CALYEARINRANGE 74438 . 74712) (CIRCLETODAY 74714 . 78191) (CLEARDAY 78193 . 79716) (CLOSEMONTH 79718
+ . 80287) (DAYABBR 80289 . 80551) (DAYNAME 80553 . 80746) (DAYOF 80748 . 81780) (DAYPLUS 81782 . 82079
+) (DAYSIN 82081 . 82913) (DERIVENEWDATE 82915 . 86654) (DOREMINDER 86656 . 90990) (FMNWAYITEM 90992 . 
+91393) (GETREMDEF 91395 . 91707) (INVERTGROUP 91709 . 91977) (LISPDATEDAY 91979 . 92257) (
+LISPDATEMONTH 92259 . 92407) (LISPDATEYEAR 92409 . 92773) (MDMENUITEMREGION 92775 . 93239) (MENUITEM 
+93241 . 93432) (MENUREGIONITEM 93434 . 93802) (MONTHABBR 93804 . 93981) (MONTHNAME 93983 . 94222) (
+MONTHNUM 94224 . 94430) (MONTHOFDAYPLUS 94432 . 94660) (MONTHPLUS 94662 . 94967) (MONTHYEARPLUS 94969
+ . 95257) (NEWPARSETIME 95259 . 100910) (NEXTMDISPLAYREGION 100912 . 103483) (PACKDATE 103485 . 104174
+) (PARSETIME 104176 . 105303) (PICKFONTSIZE 105305 . 105959) (POM 105961 . 108615) (POMDAYS 108617 . 
+109958) (PRINTMONTH 109960 . 113826) (REMINDERSOF 113828 . 114746) (REMINDERTIME 114748 . 114990) (
+REMINDERTIMELT 114992 . 115691) (REMSINMONTH 115693 . 115882) (REPAINTMONTH 115884 . 116286) (
+REPAINTYEAR 116288 . 116618) (SAMEDAYAS 116620 . 117023) (SAMEMONTHAS 117025 . 117310) (SCALEBITMAP 
+117312 . 126364) (SHOWDAY 126366 . 134612) (SHOWMONTH 134614 . 154692) (SHOWMONTHSMALL 154694 . 155830
+) (SHOWMOON 155832 . 158771) (SHOWREMSINDAY 158773 . 160263) (SHOWREMSINMONTH 160265 . 162715) (
+SHOWYEAR 162717 . 166231) (SHRINKMONTH 166233 . 166659) (SHRINKYEAR 166661 . 167190) (TIMEDREMP 167192
+ . 167316) (TPLUS 167318 . 167852) (WEEKOF 167854 . 168108) (YNCONVERT 168110 . 168276)))))
 STOP

lispusers/HELPSYS

@@ -1,17 +1,14 @@
 (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
 
-
(FILECREATED "13-Jan-2023 10:46:39" {DSK}<home>larry>il>medley>lispusers>HELPSYS.;2
 87610  
+
(FILECREATED "16-Jun-2023 14:38:33" {DSK}<home>larry>il>medley>lispusers>HELPSYS.;11
 87625  
+
+      :EDIT-BY "lmm"
 
       :CHANGES-TO (VARS HELPSYSCOMS)
-                  (FNS REPO.LOOKUP)
 
-      :PREVIOUS-DATE "12-Oct-2022 18:33:26" {DSK}<home>larry>il>medley>lispusers>HELPSYS.;1)
+      :PREVIOUS-DATE "13-Jan-2023 10:46:39" {DSK}<home>larry>il>medley>lispusers>HELPSYS.;10)
 
 
-(* ; "
-Copyright (c) 1985-1987, 2020, 2022-2023 by Xerox Corporation.
-")
-
 (PRETTYCOMPRINT HELPSYSCOMS)
 
 (RPAQQ HELPSYSCOMS

@@ -20,7 +17,7 @@ Copyright (c) 1985-1987, 2020, 2022-2023 by Xerox Corporation.
         (DECLARE%: EVAL@COMPILE DONTCOPY (FILES (LOADCOMP)
                                                 DINFO HASH))
         [COMS (COMMANDS "man")
-              (FNS HELPSYS IRM.LOOKUP GENERIC.MAN.LOOKUP IRM.RESET)
+              (FNS HELPSYS IRM.LOOKUP GENERIC.MAN.LOOKUP IRM.SMART.LOOKUP IRM.RESET)
               (INITVARS (IRM.HOST&DIR)
                      (IRM.HASHFILE.NAME))
               (GLOBALVARS IRM.HOST&DIR IRM.HASHFILE.NAME)
@@ -97,7 +94,8 @@ Copyright (c) 1985-1987, 2020, 2022-2023 by Xerox Corporation.
        DINFO HASH)
 )
 
-(DEFCOMMAND "man" (ENTRY) "Lookup ENTRY in the IRM."
+(DEFCOMMAND "man"
 (ENTRY)
+   "Lookup ENTRY in the IRM."
    (GENERIC.MAN.LOOKUP
 ENTRY))
 (DEFINEQ
 
@@ -197,6 +195,10 @@ Copyright (c) 1985-1987, 2020, 2022-2023 by Xerox Corporation.
       else
 (APPEND (IRM.LOOKUP
 KEYWORD TYPE GRAPH T)
                   (REPO.LOOKUP
 KEYWORD])
 
+(IRM.SMART.LOOKUP

+  [LAMBDA (KEYWORD GRAPH)                                    (* drc%: " 6-Jan-86 14:50")

+    (IRM.LOOKUP
 KEYWORD NIL GRAPH T])
+
 (IRM.RESET

   [LAMBDA NIL                                                (* drc%: "27-Jan-86 11:19")

     (if
 (type?
 DINFOGRAPH IRM.DINFOGRAPH)
@@ -1697,15 +1699,15 @@ Copyright (c) 1985-1987, 2020, 2022-2023 by Xerox Corporation.
 (ADDTOVAR AROUNDEXITFNS
 \IRM.AROUND-EXIT)
 
 (PUTPROPS HELPSYS
 FILETYPE
 :FAKE-COMPILE-FILE)
-(PUTPROPS HELPSYS COPYRIGHT ("Xerox Corporation" 1985 1986 1987 2020 2022 2023))
 (DECLARE%: DONTCOPY
-  (FILEMAP (NIL (4671 10246 (HELPSYS 4681 . 6522) (IRM.LOOKUP 6524 . 8162) (GENERIC.MAN.LOOKUP 8164 . 
-9833) (IRM.RESET 9835 . 10244)) (10503 17450 (CLHS.INDEX 10513 . 13211) (CLHS.LOOKUP 13213 . 15113) (
-CLHS.OPENER 15115 . 16438) (REPO.LOOKUP 16440 . 17448)) (70538 72056 (IRM.GET.DINFOGRAPH 70548 . 71423
-) (IRM.DISPLAY.REF 71425 . 72054)) (72058 72420 (IRM.LOAD-GRAPH 72058 . 72420)) (72745 78249 (
-IRM.DISPLAY.CREF 72755 . 74469) (IRM.CREF.BOX 74471 . 75298) (IRM.PUT.CREF 75300 . 75525) (
-IRM.GET.CREF 75527 . 75898) (IRM.CREF.BUTTONEVENTFN 75900 . 78247)) (78804 87110 (\IRM.GET.REF 78814
- . 80145) (\IRM.SMART.REF 80147 . 82074) (\IRM.CHOOSE.REF 82076 . 83327) (\IRM.WILD.REF 83329 . 84584)
- (\IRM.WILDCARD 84586 . 84952) (\IRM.WILD.MATCH 84954 . 86184) (\IRM.GET.HASHFILE 86186 . 86649) (
-\IRM.GET.KEYWORDS 86651 . 87108)) (87247 87403 (\IRM.AROUND-EXIT 87247 . 87403)))))
+  (FILEMAP (NIL (4609 10342 (HELPSYS 4619 . 6460) (IRM.LOOKUP 6462 . 8100) (GENERIC.MAN.LOOKUP 8102 . 
+9771) (IRM.SMART.LOOKUP 9773 . 9929) (IRM.RESET 9931 . 10340)) (10599 17546 (CLHS.INDEX 10609 . 13307)
+ (CLHS.LOOKUP 13309 . 15209) (CLHS.OPENER 15211 . 16534) (REPO.LOOKUP 16536 . 17544)) (70634 72152 (
+IRM.GET.DINFOGRAPH 70644 . 71519) (IRM.DISPLAY.REF 71521 . 72150)) (72154 72516 (IRM.LOAD-GRAPH 72154
+ . 72516)) (72841 78345 (IRM.DISPLAY.CREF 72851 . 74565) (IRM.CREF.BOX 74567 . 75394) (IRM.PUT.CREF 
+75396 . 75621) (IRM.GET.CREF 75623 . 75994) (IRM.CREF.BUTTONEVENTFN 75996 . 78343)) (78900 87206 (
+\IRM.GET.REF 78910 . 80241) (\IRM.SMART.REF 80243 . 82170) (\IRM.CHOOSE.REF 82172 . 83423) (
+\IRM.WILD.REF 83425 . 84680) (\IRM.WILDCARD 84682 . 85048) (\IRM.WILD.MATCH 85050 . 86280) (
+\IRM.GET.HASHFILE 86282 . 86745) (\IRM.GET.KEYWORDS 86747 . 87204)) (87343 87499 (\IRM.AROUND-EXIT 
+87343 . 87499)))))
 STOP

lispusers/REGIONMANAGER.TEDIT

@@ -1,10 +1,9 @@
-Medley	REGIONMANAGER2
+Medley	REGIONMANAGER
2
 
4
 
1
 
REGIONMANAGER
1
 
4
-
By:  
- Ron Kaplan
This document created in December 2021.
+
By Ron Kaplan
This document created in December 2021.
 
Medley comes equipped with a core set of functions for specifying regions and creating the windows that occupy those regions on the screen. But it can be disruptive if not irritating to have to draw out a new ghost region for every invocation of a particular application.  Thus the common applications (e.g. TEDIT, SEDIT, DINFO...) implement particular strategies to reduce the number of times that a user has to sweep out a new region. They instead default to regions that were allocated for earlier invocations that are no longer active. TEDIT for example recycles the region of a session that was recently shut down, SEDIT allocates from a list of previous regions, DINFO always uses the same region, but FILEBROWSER always prompts for a new one.  Applications that do recycle their regions tend to do so indiscrimately, without regard to the current arrangement of other windows on the screen or the role that those windows may play in higher-level applications. 
 The REGIONMANAGER package provides simple extensions to the core region and window functions. These are aimed at giving users and application implementors more flexible and systematic control over the specification and reuse of screen regions.  It introduces three new notions:
 A "typed region" allows the regions of particular applications to be specified, classified, and recycled according to their types. 
@@ -17,7 +16,7 @@ The REGION/INITREGION arguments may now be region-type atoms in addition to eith
 A typed-region is marked as "inuse" and therefore unavailable when CREATEW assigns it to a window, and the extended CLOSEW marks it as again available when the window is closed.
 An example of how an application can take advantage of this facility is the TEDIT-PF-SEE package. This provides lightweight alternatives to the PF and SEE commands that print their output to scrollable read-only Tedit windows, specifying PF-TEDIT and SEE-TEDIT as their region types. The user can predefine a preference-ordered sequence of recyclable regions that bring up multiple output windows in a predictable tiled arrangement, without region-prompting for each invocation.
 The global variable TYPED-REGIONS is an alist that maintains the relationship between atomic type-names and the list of regions that belong to each type. The list is ordered according to preferences set by the user, and a type-atom is always resolved to the first unused region in its list. If the user is asked to sweep out a new region, that region is added at the end, as the least preferable.   The function SET-TYPED-REGIONS is provided to add or replace TYPED-REGION entries.
-(SET-TYPED-REGIONS TYPELISTS REPLACE)               [Function]
+(SET-TYPED-REGIONS TYPELISTS REPLACE)	[Function]
 TYPELISTS is an alist of the form 
 ((type1 . regions1)(type2 . regions2)...)
 where each regioni is a possibly empty list of regions.  For convenience, if TYPELISTS is just a literal type-atom, it is interpreted as ((type)), and if it is a list (type . regions) begining with an atom, it is interpreted as ((type . regions). The new regions replace preexisting regions if REPLACE, otherwise they are added at the front.
@@ -25,13 +24,13 @@ Typically, a call to SET-TYPED-REGIONS would be placed in a user's INIT file to
 
 Relative regions
 Two functions are provided to make it easy to create regions relative and oriented with respect to a specified reference point. These may be useful for constructing an application that includes a constellation of windows arranged in a particular relative way.
-(RELCREATEREGION WIDTH HEIGHT CORNERX CORNERY REFX REFY ONSCREEN)   [Function]
+(RELCREATEREGION WIDTH HEIGHT CORNERX CORNERY REFX REFY ONSCREEN)	[Function]
 RELCREATEREGION creates a region of dimensions WIDTH and HEIGHT. One of its corners is identified by CORNERX and CORNERY and that corner will be aligned with a reference screen-point determined by REFX and REFY. If ONSCREEN, the WIDTH or HEIGHT will be adjusted with respect to that alignment so that the resulting region is entirely within the screen.
 WIDTH and HEIGHT can be given as absolute (natural) numbers) or specified relative to the WIDTH and HEIGHT of another region or of the screen. The possibilities are interpreted as follows:
 natural number:  the number of screen points
 list of the form (anchor fraction adjustment), where anchor is a region, window, or an atom SCREEN or TTY. The corres-ponding dimension of the anchor is mutiplied by fraction and adjustment is added to the result. For example,  specifying  (<window> .5 -1) results in a WIDTH that is one point smaller than half the width of window's region.   Fraction and  adjustment default to 1 and 0 respectively.
 region/window/SCREEN/TTY: equivalent to (region/window/SCREEN/TTY 1 0).
-CORNERX can be LEFT, RIGHT, or NIL=LEFT, CORNERY can be BOTTOM, TOP, or NIL=BOTTOM.  If LEFT/TOP are specified, for example, the region will be splayed down and to the right of the reference point.  If RIGHT/BOTTOM, then up and to the left.
+CORNERX can be LEFT, RIGHT, or NIL=LEFT, CORNERY can be BOTTOM, TOP, or NIL=BOTTOM.  If LEFT/TOP are specified, for example, the region will be displayed down and to the right of the reference point.  If RIGHT/BOTTOM, then up and to the left.
 The reference-point arguments REFX and REFY are interpreted as follows:
 NIL: LASTMOUSEX/LASTMOUSEY
 natural number:  an absolute screen coordinate
@@ -39,9 +38,9 @@ natural number:  an absolute screen coordinate
 For convenience, if REFX is a position and REFY is NIL, then the XCOORD and YCOORD of REFX are taken as absolute values for REFX and REFY.
 Also for convenience, if WIDTH is a potentially a list of RELCREATEREGION arguments, then the elements of that list are spread out in a recursive call.
 
-(RELGETREGION WIDTH HEIGHT CORNERX CORNERY REFX REFY MINSIZE)           [Function] 
+(RELGETREGION WIDTH HEIGHT CORNERX CORNERY REFX REFY MINSIZE)	[Function]
 Calls GETREGION with an initial ghost region as created by RELCREATEREGION.  CORNERX and CORNERY determine the ghost region's fixed corner, and the cursor starts at the region's diagonally opposite corner. If MINSIZE is true, then WIDTH and HEIGHT are taken as the minimum sizes of the region, except for adjustments that may be needed to ensure that all corners of the ghost region are initially visible on the screen.
-(RELCREATEPOSITION REFX REFY)      [Function]
+(RELCREATEPOSITION REFX REFY)	[Function]
 Creates a position with X and Y coordinates specified by REFX and REFY references as above.
 
 Constellation regions
@@ -53,62 +52,29 @@ REGIONMANAGER provides an overlay veneer for ATTACHWINDOW that implements this s
 This behavior is also triggered if the UNDERCONSTRUCTION property of the central window is true. Thus, a constellation can be set up by creating all of the satellites and the central window, marking the central window as under construction, and then doing the sequence of attachments. The property can be reset to NIL when the construction is complete, so the central window does not shrink if other other attachments (e.g. expanded menus) by later user actions.
 
 A somewhat weaker form of a constellation is a collection of windows that are not attached around a central window but stand in a parent-child relationship at least with respect to closing and moving.  A parent  windows spawns children that respond independently to ordinary window commands (move, shape, close). But the children close when the parent closes, and the children move when the parent moves so that they continue to appear in the same relative positions.  These primitives allow the construction of a tree of windows that are dependent in this way.
-(CLOSEWITH CHILDREN PARENT)		[Function]
+(CLOSEWITH CHILDREN PARENT	[Function]
 Establishes a link between the PARENT window and any number of CHILDREN windows such that all CHILDREN will close when PARENT closes. The closing is accomplished by CLOSEWITH.DOIT:
-(CLOSEWITH.DOIT  PARENT)     		[Function]
+(CLOSEWITH.DOIT  PARENT)	[Function]
 Closes the close-with children of PARENT.
-(MOVEWITH CHILDREN PARENT)     	[Function]
+(MOVEWITH CHILDREN PARENT)	[Function]
 Establishes a link between the PARENT window and any number of CHILDREN windows such that all CHILDREN will move when PARENT closes. The closing is accomplished by MOVEWITH.DOIT:
-(MOVEWITH.DOIT PARENT NEWPOS)		[Function]
+(MOVEWITH.DOIT PARENT NEWPOS)	[Function]
 If NEWPOS is the new position of PARENT, moves each of the move-children so that they stand in the same relation to PARENT after it moves as before.
 
 
-(LIST ((PAGE NIL (PAPERSIZE Letter FOLIOINFO (ARABIC) STARTINGPAGE# 1) (0 0 612 792) ((FOLIO NIL (PARALOOKS (QUAD CENTERED) CHARLOOKS (SUPERSCRIPT 0 INVISIBLE OFF SELECTPOINT OFF PROTECTED OFF SIZE 10 FAMILY MODERN OVERLINE OFF STRIKEOUT OFF UNDERLINE OFF EXPANSION REGULAR SLOPE REGULAR WEIGHT MEDIUM INVERTED OFF USERINFO NIL STYLE NIL) FORMATINFO (ARABIC)) (174 36 288 36) NIL) (HEADING NIL (HEADINGTYPE RUNNINGHEAD) (84 744 528 36) NIL) (TEXT NIL NIL (84 96 456 600) NIL))) (PAGE NIL (PAPERSIZE Letter FOLIOINFO (ARABIC)) (0 0 612 792) ((FOLIO NIL (PARALOOKS (QUAD CENTERED) CHARLOOKS (SUPERSCRIPT 0 INVISIBLE OFF SELECTPOINT OFF PROTECTED OFF SIZE 10 FAMILY MODERN OVERLINE OFF STRIKEOUT OFF UNDERLINE OFF EXPANSION REGULAR SLOPE REGULAR WEIGHT MEDIUM INVERTED OFF USERINFO NIL STYLE NIL) FORMATINFO (ARABIC)) (174 36 288 36) NIL) (HEADING NIL (HEADINGTYPE RUNNINGHEAD) (84 744 528 36) NIL) (TEXT NIL NIL (84 96 456 600) NIL))) (PAGE NIL (PAPERSIZE Letter FOLIOINFO (ARABIC)) (0 0 612 792) ((FOLIO NIL (PARALOOKS (QUAD CENTERED) CHARLOOKS (SUPERSCRIPT 0 INVISIBLE OFF SELECTPOINT OFF PROTECTED OFF SIZE 10 FAMILY MODERN OVERLINE OFF STRIKEOUT OFF UNDERLINE OFF EXPANSION REGULAR SLOPE REGULAR WEIGHT MEDIUM INVERTED OFF USERINFO NIL STYLE NIL) FORMATINFO (ARABIC)) (174 36 288 36) NIL) (HEADING NIL (HEADINGTYPE RUNNINGHEAD) (84 744 528 36) NIL) (TEXT NIL NIL (84 96 456 600) NIL)))))4
È

º
4
È


È
4
È



È
4
È



È
4
È


È
4
È


È
.$
È
.
È
.
È

4
È


È
.
È.ŠŠ
8.ŠŠ
8J
È

È
PAGEHEADINGRUNNINGHEADTERMINALÿü
TERMINALÿü
+(LIST ((PAGE NIL (PAPERSIZE Letter FOLIOINFO (ARABIC) STARTINGPAGE# 1) (0 0 612 792) ((FOLIO NIL (PARALOOKS (QUAD CENTERED) CHARLOOKS (SUPERSCRIPT 0 INVISIBLE OFF SELECTPOINT OFF PROTECTED OFF SIZE 10 FAMILY MODERN OVERLINE OFF STRIKEOUT OFF UNDERLINE OFF EXPANSION REGULAR SLOPE REGULAR WEIGHT MEDIUM INVERTED OFF USERINFO NIL STYLE NIL) FORMATINFO (ARABIC)) (174 36 288 36) NIL) (HEADING NIL (HEADINGTYPE RUNNINGHEAD) (84 744 528 36) NIL) (TEXT NIL NIL (84 96 456 600) NIL))) (PAGE NIL (PAPERSIZE Letter FOLIOINFO (ARABIC)) (0 0 612 792) ((FOLIO NIL (PARALOOKS (QUAD CENTERED) CHARLOOKS (SUPERSCRIPT 0 INVISIBLE OFF SELECTPOINT OFF PROTECTED OFF SIZE 10 FAMILY MODERN OVERLINE OFF STRIKEOUT OFF UNDERLINE OFF EXPANSION REGULAR SLOPE REGULAR WEIGHT MEDIUM INVERTED OFF USERINFO NIL STYLE NIL) FORMATINFO (ARABIC)) (174 36 288 36) NIL) (HEADING NIL (HEADINGTYPE RUNNINGHEAD) (84 744 528 36) NIL) (TEXT NIL NIL (84 96 456 600) NIL))) (PAGE NIL (PAPERSIZE Letter FOLIOINFO (ARABIC)) (0 0 612 792) ((FOLIO NIL (PARALOOKS (QUAD CENTERED) CHARLOOKS (SUPERSCRIPT 0 INVISIBLE OFF SELECTPOINT OFF PROTECTED OFF SIZE 10 FAMILY MODERN OVERLINE OFF STRIKEOUT OFF UNDERLINE OFF EXPANSION REGULAR SLOPE REGULAR WEIGHT MEDIUM INVERTED OFF USERINFO NIL STYLE NIL) FORMATINFO (ARABIC)) (174 36 288 36) NIL) (HEADING NIL (HEADINGTYPE RUNNINGHEAD) (84 744 528 36) NIL) (TEXT NIL NIL (84 96 456 600) NIL)))))4
È
$

È
4
È

$

È
4
È

$

È
4
È
$

È
4
È
$

È
1$
È
$1
È
$4
È
$

È
1
È$1ŠŠ
8$1ŠŠ
8$J
È$

È
PAGEHEADINGRUNNINGHEADTERMINALÿü
TERMINALÿü
 TIMESROMAN$TERMINALMODERNMODERN
-
HRULE.GETFN


HRULE.GETFN
MODERN
-


HRULE.GETFN
MODERN
-

HRULE.GETFN
MODERN


HRULE.GETFN
MODERN

-(
-

-È
-
„•‘
-}
-

+



HRULE.GETFN
MODERN
+

HRULE.GETFN
MODERN
+

HRULE.GETFN
MODERN
+

 
-/	¯
-[	
<01>
-Ch
-<00>T	Û
-

Á
-?
-	

+
HRULE.GETFN
MODERN

HRULE.GETFN
MODERN
	
(
È
„•‘}
/	¯[	
<01>Ch<00>T	Û

Á%
	

 


-


;	3o)
-M
-


-
A
- &Mm
-JS-f=
+


;	3o)M


A
 &MmJS-f=
 3E
-"
+"
 
-
-

j
-
/3
-t
2

C	ƒ
-"
-O
-
	=
-	,	l
¬
-.
-9
-

-
-™¤
-Ç

S
-~æ
--4!U
-™
-'
—
-

-2
(µ
*"
+(

*M


.„
izº
+

0:
/3
+t
2

C	ƒ"O
=

+
	,	l
¬
9
™¤Ç

S~æ-4!U™'
—
2

µ

"

(


M





.U
}zº

lispusers/WHEELSCROLL.TXT

@@ -1,33 +0,0 @@
-lispusers/WHEELSCROLL
-
-Written by Ron Kaplan,  February 2021.
-
-This small file adds the ability to scroll (scrollable) windows by rotating the wheel on a wheel mouse or by moving (2?) fingers on a track pad.
-
-The capability is enabled when WHEELSCROLL.LCOM is loaded.
-
-It is toggled on and off by
-
-(ENABLEWHEELSCROLL ON)  (initially (ENABLEWHEELSCROLL T))
-
-The vertical scrolling speed is controlled by the variable
-
-WHEELSCROLLDELTA (initially 20)
-	The number of points to scroll for each click of the wheel.  Higher values give faster scrolling.  A negative value reverses the scrolling direction.  
-
-HWHEELSCROLLDELTA (initial NIL)
-	If non-NIL, then this is the delta used for horizontal scrolling.
-
-Implementation:
-
-Lisp receives a key transition on PAD1 or PAD2 for vertical scrolling when the wheel rotates and no other keys are down.  (ENABLEWHEELSCROLL T) modifies the keyaction table so that it maps these transitions to characters 156 and 157. Those characters are defined as interrupts that invoke the vertical scrolling action.  For horizontal scrolling sideways pushes of a wheel (if it has that) produce transitions on PAD4 and PAD5, which map to interrupt-characters 158 and 159. (156-159 are the highest  right-panel characters of character-set 0 that correspond to left-panel control characters, so typically have no other conflicting meaning.)
-
-(ENABLEWHEELSCROLL NIL) causes PAD1, PAD2, PAD4, and PAD5 to be ignored.
-
-Current negative features:
-
-1. When the wheel is depressed for middle-button effect (and no other keys are down), an accidental rotation of the wheel during the transition (up and/or down) may cause unintended scrolling.
-
-We need to develop a strategy, either in Lisp, Maiko, or X, to discriminate intended middle-button pushes from intended scrolling.  This is not an issue for track-pad scrolling.
-
-2. When the wheel is rotated over a window that partially occludes a Tedit window with a caret blinking in its unoccluded region, both the target window and the partially obscured Tedit window may scroll.

sources/AOFD

@@ -1,14 +1,10 @@
 (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
 
-
(FILECREATED "11-May-2023 21:39:26" {DSK}<cygdrive>c>Users>Larry>home>il>MEDLEY>SOURCES>AOFD.;2
 36068  
+
(FILECREATED "17-May-2023 08:29:55" {DSK}<home>larry>il>medley>sources>AOFD.;5
 36263  
 
       :EDIT-BY "lmm"
 
-      :CHANGES-TO (VARS AOFDCOMS)
-                  (FNS CLOSEF)
-
-      :PREVIOUS-DATE "29-Apr-2023 05:38:34" 
-{DSK}<cygdrive>c>Users>Larry>home>il>MEDLEY>SOURCES>AOFD.;1)
+      :PREVIOUS-DATE "17-May-2023 08:05:56" {DSK}<home>larry>il>medley>sources>AOFD.;4)
 
 
 (PRETTYCOMPRINT AOFDCOMS)
@@ -475,8 +471,14 @@
      (fetch
 EOFFSET of
 STREAM])
 
 (\BASEBYTES.OPENFN

-  [LAMBDA (NAME ACCESS RECOG OTHERINFO FDEV)
                 (* ; "Edited 17-Jan-87 16:08 by bvm:")

-    (if
 (fetch
 FULLFILENAME of
 NAME)
+  [LAMBDA (NAME ACCESS RECOG OTHERINFO FDEV)
                 (* ; "Edited  8-May-2023 14:05 by rmk")


+                                                             (* ; "Edited 17-Jan-87 16:08 by bvm:")

+    (if
 (STREAMP NAME)
+        then
 (CL:UNLESS (\IOMODEP
 NAME ACCESS T)
+                    (\SETACCESS NAME ACCESS))
+             (\SETFILEPTR NAME 0)
+             NAME
+      elseif
 (fetch
 FULLFILENAME of
 NAME)
         then
 (OPENSTRINGSTREAM
 NAME ACCESS)
       else
 (\MAKEBASEBYTESTREAM
 (fetch
 CBUFPTR of
 NAME)
                   (fetch
 BIASOFFST of
 NAME)
@@ -759,15 +761,15 @@
 (ADDTOVAR LAMA
 WHENCLOSE)
 )
 (DECLARE%: DONTCOPY
-  (FILEMAP (NIL (2464 3583 (\ADD-OPEN-STREAM 2474 . 2755) (\GENERIC-UNREGISTER-STREAM 2757 . 3581)) (
-3624 10688 (CLOSEALL 3634 . 4112) (CLOSEF 4114 . 5328) (EOFCLOSEF 5330 . 5630) (INPUT 5632 . 6402) (
-OPENP 6404 . 6807) (OUTPUT 6809 . 7581) (POSITION 7583 . 8391) (RANDACCESSP 8393 . 8783) (\IOMODEP 
-8785 . 9414) (WHENCLOSE 9416 . 10686)) (10689 10811 (STREAMADDPROP 10699 . 10809)) (11769 24326 (
-\BASEBYTES.IO.INIT 11779 . 14979) (\MAKEBASEBYTESTREAM 14981 . 17909) (\MBS.OUTCHARFN 17911 . 18311) (
-\BASEBYTES.NAME.FROM.STREAM 18313 . 18772) (\BASEBYTES.BOUT 18774 . 19528) (\BASEBYTES.SETFILEPTR 
-19530 . 20151) (\BASEBYTES.READP 20153 . 20797) (\BASEBYTES.BIN 20799 . 21306) (\BASEBYTES.PEEKBIN 
-21308 . 22138) (\BASEBYTES.TRUNCATEFN 22140 . 22648) (\BASEBYTES.OPENFN 22650 . 23148) (
-\BASEBYTES.BLOCKIO 23150 . 24324)) (24449 27753 (OPENSTRINGSTREAM 24459 . 26168) (MAKE-STRING-FORMAT 
-26170 . 27751)) (28025 32333 (\STRINGSTREAM.INIT 28035 . 32331)) (32410 35110 (GETSTREAM 32420 . 32651
-) (\CLEAROFD 32653 . 32946) (\GETSTREAM 32948 . 35108)))))
+  (FILEMAP (NIL (2363 3482 (\ADD-OPEN-STREAM 2373 . 2654) (\GENERIC-UNREGISTER-STREAM 2656 . 3480)) (
+3523 10587 (CLOSEALL 3533 . 4011) (CLOSEF 4013 . 5227) (EOFCLOSEF 5229 . 5529) (INPUT 5531 . 6301) (
+OPENP 6303 . 6706) (OUTPUT 6708 . 7480) (POSITION 7482 . 8290) (RANDACCESSP 8292 . 8682) (\IOMODEP 
+8684 . 9313) (WHENCLOSE 9315 . 10585)) (10588 10710 (STREAMADDPROP 10598 . 10708)) (11668 24521 (
+\BASEBYTES.IO.INIT 11678 . 14878) (\MAKEBASEBYTESTREAM 14880 . 17808) (\MBS.OUTCHARFN 17810 . 18210) (
+\BASEBYTES.NAME.FROM.STREAM 18212 . 18671) (\BASEBYTES.BOUT 18673 . 19427) (\BASEBYTES.SETFILEPTR 
+19429 . 20050) (\BASEBYTES.READP 20052 . 20696) (\BASEBYTES.BIN 20698 . 21205) (\BASEBYTES.PEEKBIN 
+21207 . 22037) (\BASEBYTES.TRUNCATEFN 22039 . 22547) (\BASEBYTES.OPENFN 22549 . 23343) (
+\BASEBYTES.BLOCKIO 23345 . 24519)) (24644 27948 (OPENSTRINGSTREAM 24654 . 26363) (MAKE-STRING-FORMAT 
+26365 . 27946)) (28220 32528 (\STRINGSTREAM.INIT 28230 . 32526)) (32605 35305 (GETSTREAM 32615 . 32846
+) (\CLEAROFD 32848 . 33141) (\GETSTREAM 33143 . 35303)))))
 STOP

sources/CMLPATHNAME

@@ -1,17 +1,13 @@
 (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
 
-
(FILECREATED "25-Apr-2022 20:29:09" 
-{DSK}<Users>kaplan>Local>medley3.5>my-medley>sources>CMLPATHNAME.;3
 32421  
+
(FILECREATED " 1-May-2023 07:12:28" {DSK}<home>larry>il>medley>sources>CMLPATHNAME.;5
 30540  
 
-      :CHANGES-TO (VARS CMLPATHNAMECOMS)
+      :EDIT-BY "lmm"
 
-      :PREVIOUS-DATE "14-Jan-2022 11:40:58" 
-{DSK}<Users>kaplan>Local>medley3.5>my-medley>sources>CMLPATHNAME.;2)
+      :CHANGES-TO (FNS PATHNAME)
 
+      :PREVIOUS-DATE "30-Apr-2023 14:00:37" {DSK}<home>larry>il>medley>sources>CMLPATHNAME.;4)
 
-(* ; "
-Copyright (c) 1986-1988, 1990 by Venue & Xerox Corporation.
-")
 
 (PRETTYCOMPRINT CMLPATHNAMECOMS)
 
@@ -213,8 +209,13 @@ Copyright (c) 1986-1988, 1990 by Venue & Xerox Corporation.
 (DEFINEQ
 
 (PATHNAME

-(CL:LAMBDA (THING) (* hdj " 2-Apr-86 11:01") (* ;; "Turns Thing into a pathname.  Thing may be a string, symbol, stream, or pathname.") (CL:VALUES (CL:PARSE-NAMESTRING THING)))
-)
+  (CL:LAMBDA (THING)
                                         (* ; "Edited  1-May-2023 07:04 by lmm")

+                                                             (* hdj " 2-Apr-86 11:01")

+
+         (* ;; "Turns Thing into a pathname.  Thing may be a string, symbol, stream, or pathname.")

+
+         [CL:CHECK-TYPE THING (OR STRING STREAM PATHNAME (AND CL:SYMBOL (NOT NULL]
+         (CL:VALUES (CL:PARSE-NAMESTRING
 THING))))
 
 (CL:MERGE-PATHNAMES

 (CL:LAMBDA (PATHNAME &OPTIONAL (DEFAULTS *DEFAULT-PATHNAME-DEFAULTS*) (DEFAULT-VERSION :NEWEST CL::VERSION-SPECIFIED-P)) (* ; "Edited 21-Aug-90 17:12 by nm") (* ;;; "Merge-Pathnames -- Public Returns a new pathname whose fields are the same as the fields in PATHNAME except that NIL fields are filled in from defaults.  Type and Version field are only done if name field has to be done (see manual for explanation). Fills in unspecified slots of Pathname from Defaults (defaults to *default-pathname-defaults*).  If the version remains unspecified, gets it from Default-Version.") (LET* ((PATH (PATHNAME PATHNAME)) (DEFAULT-PATH (PATHNAME DEFAULTS)) (HOST (OR (%%PATHNAME-HOST PATH) (%%PATHNAME-HOST DEFAULT-PATH))) (NAME (%%PATHNAME-NAME PATH)) (DEVICE (%%PATHNAME-DEVICE PATH)) (DIR (%%PATHNAME-DIRECTORY PATH)) (DEFAULT-DIR (%%PATHNAME-DIRECTORY DEFAULT-PATH)) DIREND DEFAULT-TYPE) (%%MAKE-PATHNAME HOST (OR DEVICE (%%PATHNAME-DEVICE DEFAULT-PATH)) (OR (AND DIR DEFAULT-DIR (CASE (%%DIRECTORY-COMPONENT-TYPE DIR) (:SUBDIRECTORY (CASE (SETQ DEFAULT-TYPE (%%DIRECTORY-COMPONENT-TYPE DEFAULT-DIR)) (:SUBDIRECTORY (* ; "Default is also a subdirectory, so explicit subdir overrides it") DIR) (T (* ; "Default is a full directory or a relative directory.  Make sure to keep the type of the directory being same as the default one.") (CL:IF (EQ (%%DIRECTORY-COMPONENT-PATH DEFAULT-DIR) :WILD) (%%MAKE-DIRECTORY-COMPONENT :TYPE :RELATIVE :PATH (%%DIRECTORY-COMPONENT-PATH DIR)) (%%MAKE-DIRECTORY-COMPONENT :TYPE DEFAULT-TYPE :PATH (CL:CONCATENATE (QUOTE STRING) (%%DIRECTORY-COMPONENT-PATH DEFAULT-DIR) (CL:SECOND \FILENAME.SYNTAX) (%%DIRECTORY-COMPONENT-PATH DIR))))))) (T (CL:IF (NOT (EQ (%%DIRECTORY-COMPONENT-PATH DIR) :WILD)) DIR DEFAULT-DIR)))) DIR DEFAULT-DIR) (OR NAME (%%PATHNAME-NAME DEFAULT-PATH)) (OR (%%PATHNAME-TYPE PATH) (%%PATHNAME-TYPE DEFAULT-PATH)) (OR (%%PATHNAME-VERSION PATH) (CL:IF NAME (CL:IF CL::VERSION-SPECIFIED-P DEFAULT-VERSION :NEWEST) (OR (%%PATHNAME-VERSION DEFAULT-PATH) (CL:IF CL::VERSION-SPECIFIED-P DEFAULT-VERSION :NEWEST)))))))
@@ -502,61 +503,18 @@ Copyright (c) 1986-1988, 1990 by Venue & Xerox Corporation.
 (ADDTOVAR LAMA
 CL:ENOUGH-NAMESTRING CL:HOST-NAMESTRING FILE-NAME CL:MERGE-PATHNAMES PATHNAME 
                      %%PRINT-DIRECTORY-COMPONENT CL:MAKE-PATHNAME %%PRINT-PATHNAME)
 )
-(PRETTYCOMPRINT CMLPATHNAMECOMS)
-
-(RPAQQ CMLPATHNAMECOMS

-       [
-        (* ;; "Common Lisp pathname functions")

-
-        (PROP FILETYPE CMLPATHNAME)
-        (COMS 
-              (* ;; "useful macros")

-
-              (FUNCTIONS %%WILD-NAME %%COMPONENT-STRING))
-        (STRUCTURES PATHNAME DIRECTORY-COMPONENT)
-        (FNS %%PRINT-PATHNAME CL:MAKE-PATHNAME %%PRINT-DIRECTORY-COMPONENT)
-        (FUNCTIONS CL:PATHNAME-HOST CL:PATHNAME-DEVICE CL:PATHNAME-DIRECTORY CL:PATHNAME-NAME 
-               CL:PATHNAME-TYPE CL:PATHNAME-VERSION)
-        (FNS PATHNAME CL:MERGE-PATHNAMES FILE-NAME CL:HOST-NAMESTRING CL:ENOUGH-NAMESTRING 
-             %%NUMERIC-STRING-P)
-        (FUNCTIONS CL:NAMESTRING CL:PARSE-NAMESTRING CL:TRUENAME)
-        (FUNCTIONS %%MAKE-PATHNAME)
-        (FUNCTIONS %%PATHNAME-EQUAL %%DIRECTORY-COMPONENT-EQUAL)
-        (FUNCTIONS %%INITIALIZE-DEFAULT-PATHNAME)
-        (VARIABLES *DEFAULT-PATHNAME-DEFAULTS*)
-        (COMS 
-              (* ;; "Interlisp-D compatibility")

-
-              (FUNCTIONS INTERLISP-NAMESTRING UNPACKPATHNAME.STRING))
-        (FUNCTIONS CL:FILE-NAMESTRING CL:DIRECTORY-NAMESTRING)
-        (DECLARE%: DONTEVAL@LOAD DOCOPY (P (%%INITIALIZE-DEFAULT-PATHNAME)))
-        (DECLARE%: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS (ADDVARS (NLAMA)
-                                                                             (NLAML)
-                                                                             (LAMA 
-                                                                                 CL:ENOUGH-NAMESTRING
-                                                                                   CL:MERGE-PATHNAMES
-                                                                                   CL:MAKE-PATHNAME])
-(DECLARE%: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS 
-
-(ADDTOVAR NLAMA
 )
-
-(ADDTOVAR NLAML
 )
-
-(ADDTOVAR LAMA
 CL:ENOUGH-NAMESTRING CL:MERGE-PATHNAMES CL:MAKE-PATHNAME)
-)
-(PUTPROPS CMLPATHNAME COPYRIGHT ("Venue & Xerox Corporation" 1986 1987 1988 1990))
 (DECLARE%: DONTCOPY
-  (FILEMAP (NIL (2107 2238 (%%WILD-NAME 2107 . 2238)) (2240 2319 (%%COMPONENT-STRING 2240 . 2319)) (2924
- 8695 (%%PRINT-PATHNAME 2934 . 3095) (CL:MAKE-PATHNAME 3097 . 7847) (%%PRINT-DIRECTORY-COMPONENT 7849
- . 8693)) (8697 8890 (CL:PATHNAME-HOST 8697 . 8890)) (8892 9091 (CL:PATHNAME-DEVICE 8892 . 9091)) (
-9093 9301 (CL:PATHNAME-DIRECTORY 9093 . 9301)) (9303 9496 (CL:PATHNAME-NAME 9303 . 9496)) (9498 9691 (
-CL:PATHNAME-TYPE 9498 . 9691)) (9693 9895 (CL:PATHNAME-VERSION 9693 . 9895)) (9896 15220 (PATHNAME 
-9906 . 10098) (CL:MERGE-PATHNAMES 10100 . 12186) (FILE-NAME 12188 . 12329) (CL:HOST-NAMESTRING 12331
- . 12520) (CL:ENOUGH-NAMESTRING 12522 . 14987) (%%NUMERIC-STRING-P 14989 . 15218)) (15222 18975 (
-CL:NAMESTRING 15222 . 18975)) (18977 22448 (CL:PARSE-NAMESTRING 18977 . 22448)) (22450 23453 (
-CL:TRUENAME 22450 . 23453)) (23455 23647 (%%MAKE-PATHNAME 23455 . 23647)) (23649 24286 (
-%%PATHNAME-EQUAL 23649 . 24286)) (24288 24745 (%%DIRECTORY-COMPONENT-EQUAL 24288 . 24745)) (24747 
-25370 (%%INITIALIZE-DEFAULT-PATHNAME 24747 . 25370)) (25460 25627 (INTERLISP-NAMESTRING 25460 . 25627)
-) (25629 28522 (UNPACKPATHNAME.STRING 25629 . 28522)) (28524 29781 (CL:FILE-NAMESTRING 28524 . 29781))
- (29783 29981 (CL:DIRECTORY-NAMESTRING 29783 . 29981)))))
+  (FILEMAP (NIL (2012 2143 (%%WILD-NAME 2012 . 2143)) (2145 2224 (%%COMPONENT-STRING 2145 . 2224)) (2829
+ 8600 (%%PRINT-PATHNAME 2839 . 3000) (CL:MAKE-PATHNAME 3002 . 7752) (%%PRINT-DIRECTORY-COMPONENT 7754
+ . 8598)) (8602 8795 (CL:PATHNAME-HOST 8602 . 8795)) (8797 8996 (CL:PATHNAME-DEVICE 8797 . 8996)) (
+8998 9206 (CL:PATHNAME-DIRECTORY 8998 . 9206)) (9208 9401 (CL:PATHNAME-NAME 9208 . 9401)) (9403 9596 (
+CL:PATHNAME-TYPE 9403 . 9596)) (9598 9800 (CL:PATHNAME-VERSION 9598 . 9800)) (9801 15390 (PATHNAME 
+9811 . 10268) (CL:MERGE-PATHNAMES 10270 . 12356) (FILE-NAME 12358 . 12499) (CL:HOST-NAMESTRING 12501
+ . 12690) (CL:ENOUGH-NAMESTRING 12692 . 15157) (%%NUMERIC-STRING-P 15159 . 15388)) (15392 19145 (
+CL:NAMESTRING 15392 . 19145)) (19147 22618 (CL:PARSE-NAMESTRING 19147 . 22618)) (22620 23623 (
+CL:TRUENAME 22620 . 23623)) (23625 23817 (%%MAKE-PATHNAME 23625 . 23817)) (23819 24456 (
+%%PATHNAME-EQUAL 23819 . 24456)) (24458 24915 (%%DIRECTORY-COMPONENT-EQUAL 24458 . 24915)) (24917 
+25540 (%%INITIALIZE-DEFAULT-PATHNAME 24917 . 25540)) (25630 25797 (INTERLISP-NAMESTRING 25630 . 25797)
+) (25799 28692 (UNPACKPATHNAME.STRING 25799 . 28692)) (28694 29951 (CL:FILE-NAMESTRING 28694 . 29951))
+ (29953 30151 (CL:DIRECTORY-NAMESTRING 29953 . 30151)))))
 STOP

sources/FASL-SUPPORT

@@ -1,21 +1,21 @@
-(DEFINE-FILE-INFO READTABLE "XCL" PACKAGE "FASL")
-
(IL:FILECREATED "16-May-90 17:37:00" IL:|{DSK}<usr>local>lde>lispcore>sources>FASL-SUPPORT.;2|
 1408   
+(DEFINE-FILE-INFO PACKAGE "FASL" READTABLE "XCL" BASE 10)
 
-      IL:|changes| IL:|to:|  (IL:VARS IL:FASL-SUPPORTCOMS)
+
(IL:FILECREATED "29-Apr-2023 17:09:01" IL:|{DSK}<home>larry>il>medley>sources>FASL-SUPPORT.;2|
 1257   
 
-      IL:|previous| IL:|date:| "15-Dec-86 16:23:56" 
-IL:|{DSK}<usr>local>lde>lispcore>sources>FASL-SUPPORT.;1|)
+      :EDIT-BY "lmm"
 
+      :CHANGES-TO (IL:VARS IL:FASL-SUPPORTCOMS)
+
+      :PREVIOUS-DATE "16-May-90 17:37:00" IL:|{DSK}<home>larry>il>medley>sources>FASL-SUPPORT.;1|)
 
-; Copyright (c) 1986, 1990 by Venue & Xerox Corporation.  All rights reserved.
 
 (IL:PRETTYCOMPRINT IL:FASL-SUPPORTCOMS)
 
 (IL:RPAQQ IL:FASL-SUPPORTCOMS

           (
-           (IL:* IL:|;;| "Needed for compiling FASLOAD and FASDUMP")

+           (IL:* IL:|;;| "Needed for compiling FASLOAD and FASDUMP")
 
-           (IL:P (OR (GET 'IL:ABC 'IL:FILEDATES)
+           (IL:P (OR (GET 'IL:SYSEDIT 'IL:FILEDATES)
                      (IL:FILESLOAD (IMPORT)
                             IL:LLBASIC IL:LLCHAR IL:ADISPLAY IL:MODARITH IL:LLGC)))
            (IL:DEFINE-TYPES FASL-OPS)
@@ -27,7 +27,7 @@ IL:|{DSK}<usr>local>lde>lispcore>sources>FASL-SUPPORT.;1|)
 (IL:* IL:|;;| "Needed for compiling FASLOAD and FASDUMP")

 
 
-(OR (GET 'IL:ABC 'IL:FILEDATES)
+(OR (GET 'IL:SYSEDIT 'IL:FILEDATES)
     (IL:FILESLOAD (IMPORT)
            IL:LLBASIC IL:LLCHAR IL:ADISPLAY IL:MODARITH IL:LLGC))
 
@@ -36,7 +36,6 @@ IL:|{DSK}<usr>local>lde>lispcore>sources>FASL-SUPPORT.;1|)
 (IL:PUTPROPS IL:FASL-SUPPORT
 IL:FILETYPE
 COMPILE-FILE)
 
 (IL:PUTPROPS IL:FASL-SUPPORT
 IL:MAKEFILE-ENVIRONMENT
 (:READTABLE "XCL" :PACKAGE "FASL"))
-(IL:PUTPROPS IL:FASL-SUPPORT IL:COPYRIGHT ("Venue & Xerox Corporation" 1986 1990))
 (IL:DECLARE\: IL:DONTCOPY
   (IL:FILEMAP (NIL)))
 IL:STOP

sources/FASL-SUPPORT.LCOM

@@ -1 +1,33 @@
-(DEFINE-FILE-INFO READTABLE "XCL" PACKAGE "FASL")
(IL:FILECREATED "25-Jan-98 13:21:54" ("compiled on " IL:|{DSK}<lispcore>sources>FASL-SUPPORT.;1|) 
"30-Mar-95 20:33:04" IL:|bcompl'd| IL:|in| "Medley 14-Aug-95 ..." IL:|dated| "14-Aug-95 15:27:48")
(IL:FILECREATED "16-May-90 17:37:00" IL:|{DSK}<usr>local>lde>lispcore>sources>FASL-SUPPORT.;2| 1408 
IL:|changes| IL:|to:| (IL:VARS IL:FASL-SUPPORTCOMS) IL:|previous| IL:|date:| "15-Dec-86 16:23:56" 
IL:|{DSK}<usr>local>lde>lispcore>sources>FASL-SUPPORT.;1|)
(IL:PRETTYCOMPRINT IL:FASL-SUPPORTCOMS)
(IL:RPAQQ IL:FASL-SUPPORTCOMS ((IL:* IL:|;;| "Needed for compiling FASLOAD and FASDUMP") (IL:P (OR (
GET (QUOTE IL:ABC) (QUOTE IL:FILEDATES)) (IL:FILESLOAD (IMPORT) IL:LLBASIC IL:LLCHAR IL:ADISPLAY 
IL:MODARITH IL:LLGC))) (IL:DEFINE-TYPES FASL-OPS) (IL:PROP (IL:FILETYPE IL:MAKEFILE-ENVIRONMENT) 
IL:FASL-SUPPORT)))
(OR (GET (QUOTE IL:ABC) (QUOTE IL:FILEDATES)) (IL:FILESLOAD (IMPORT) IL:LLBASIC IL:LLCHAR IL:ADISPLAY 
IL:MODARITH IL:LLGC))
(XCL:DEF-DEFINE-TYPE FASL-OPS "FASL file opcodes")
(IL:PUTPROPS IL:FASL-SUPPORT IL:FILETYPE COMPILE-FILE)
(IL:PUTPROPS IL:FASL-SUPPORT IL:MAKEFILE-ENVIRONMENT (:READTABLE "XCL" :PACKAGE "FASL"))
(IL:PUTPROPS IL:FASL-SUPPORT IL:COPYRIGHT ("Venue & Xerox Corporation" 1986 1990))
NIL
+(DEFINE-FILE-INFO PACKAGE "FASL" READTABLE "XCL" BASE 10)
+
+(IL:FILECREATED "29-Apr-2023 17:09:08" ("compiled on " 
+IL:|{DSK}<home>larry>il>medley>sources>FASL-SUPPORT.;2|) "27-Apr-2023 05:47:56" "COMPILE-FILEd" IL:|in|
+ "Welcome to Fuller sysout 27-Apr-2023 ..." IL:|dated| "27-Apr-2023 05:53:17")
+(IL:FILECREATED "29-Apr-2023 17:09:01" IL:|{DSK}<home>larry>il>medley>sources>FASL-SUPPORT.;2| 1257 
+:EDIT-BY "lmm" :CHANGES-TO (IL:VARS IL:FASL-SUPPORTCOMS) :PREVIOUS-DATE "16-May-90 17:37:00" 
+IL:|{DSK}<home>larry>il>medley>sources>FASL-SUPPORT.;1|)
+(IL:RPAQQ IL:FASL-SUPPORTCOMS ((IL:* IL:|;;| "Needed for compiling FASLOAD and FASDUMP") (IL:P (OR (
+GET (QUOTE IL:SYSEDIT) (QUOTE IL:FILEDATES)) (IL:FILESLOAD (IMPORT) IL:LLBASIC IL:LLCHAR IL:ADISPLAY 
+IL:MODARITH IL:LLGC))) (IL:DEFINE-TYPES FASL-OPS) (IL:PROP (IL:FILETYPE IL:MAKEFILE-ENVIRONMENT) 
+IL:FASL-SUPPORT)))
+(OR (GET (QUOTE IL:SYSEDIT) (QUOTE IL:FILEDATES)) (IL:FILESLOAD (IMPORT) IL:LLBASIC IL:LLCHAR 
+IL:ADISPLAY IL:MODARITH IL:LLGC))
+(IL:SET-DOCUMENTATION (QUOTE FASL-OPS) (QUOTE IL:DEFINE-TYPES) (QUOTE "FASL file opcodes"))
+(IL:SETQ IL:PRETTYDEFMACROS (ADJOIN (QUOTE (FASL-OPS XCL::X (IL:P IL:* (
+XCL::%DEFINE-TYPE-FILE-DEFINITIONS (QUOTE FASL-OPS) (QUOTE XCL::X))))) IL:PRETTYDEFMACROS :TEST (QUOTE
+ EQUAL)))
+(IL:SETQ IL:PRETTYTYPELST (ADJOIN (QUOTE (CHANGEDFASL-OPSLST FASL-OPS "FASL file opcodes")) 
+IL:PRETTYTYPELST :TEST (QUOTE EQUAL)))
+(PROCLAIM (QUOTE (XCL:GLOBAL CHANGEDFASL-OPSLST)))
+(OR (BOUNDP (QUOTE CHANGEDFASL-OPSLST)) (SETQ CHANGEDFASL-OPSLST NIL))
+(COND ((NOT (GETHASH (QUOTE FASL-OPS) XCL:*DEFINITION-HASH-TABLE*)) (CL::PUTHASH (QUOTE FASL-OPS) 
+XCL:*DEFINITION-HASH-TABLE* (MAKE-HASH-TABLE :TEST (QUOTE EQUAL) :SIZE 50 :REHASH-SIZE 50))))
+(IL:SETQ IL:FILEPKGTYPES (ADJOIN (QUOTE FASL-OPS) IL:FILEPKGTYPES))
+(IL:PUTPROP (QUOTE FASL-OPS) (QUOTE IL:GETDEF) (QUOTE XCL::%DEFINE-TYPE-GETDEF))
+(IL:PUTPROP (QUOTE FASL-OPS) (QUOTE IL:DELDEF) (QUOTE XCL::%DEFINE-TYPE-DELDEF))
+(IL:PUTPROP (QUOTE FASL-OPS) (QUOTE IL:PUTDEF) (QUOTE XCL::%DEFINE-TYPE-PUTDEF))
+(IL:PUTPROP (QUOTE FASL-OPS) (QUOTE IL:FILEGETDEF) (QUOTE XCL::%DEFINE-TYPE-FILEGETDEF))
+(IL:PUTPROP (QUOTE FASL-OPS) (QUOTE IL:FILEPKGCONTENTS) (QUOTE IL:NILL))
+(IL:PUTPROPS IL:FASL-SUPPORT IL:FILETYPE COMPILE-FILE)
+(IL:PUTPROPS IL:FASL-SUPPORT IL:MAKEFILE-ENVIRONMENT (:READTABLE "XCL" :PACKAGE "FASL"))
+NIL

sources/FILESETS

@@ -1,15 +1,9 @@
 (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
 
-
(FILECREATED "11-Sep-2022 20:08:31" {DSK}<home>larry>medley>sources>FILESETS.;2
 6394   
+
(FILECREATED "23-May-2023 08:11:56" {DSK}<home>larry>il>medley>sources>FILESETS.;24

+      :EDIT-BY "lmm"
 
-      :CHANGES-TO (VARS EXPORTFILES)
-
-      :PREVIOUS-DATE "17-Oct-2021 16:06:59" {DSK}<home>larry>medley>sources>FILESETS.;1)
-
-
-(* ; "
-Copyright (c) 1981-1990, 1998, 2021 by Xerox Corporation.
-")
+      :PREVIOUS-DATE " 1-Mar-2023 07:49:03" {DSK}<home>larry>il>medley>sources>FILESETS.;23)
 
 (PRETTYCOMPRINT FILESETSCOMS)
 
@@ -62,7 +56,7 @@ Copyright (c) 1981-1990, 1998, 2021 by Xerox Corporation.
               DSK UFS UFSCALLC PASSWORDS FONT LLDISPLAY APUTDQ COMPATIBILITY DMISC CMLMACROS CMLLIST
               CMLCHARACTER CMLREADTABLE MAIKOLOADUPFNS MAIKOBITBLT MAIKOINIT))
 
-(RPAQQ 2LISPSET
 (MACHINEINDEPENDENT POSTLOADUP))
+(RPAQQ 2LISPSET
 (MACHINEINDEPENDENT))
 
 (RPAQQ 3LISPSET
 (MACROS DLAP BYTECOMPILER COMPILE))
 
@@ -71,7 +65,7 @@ Copyright (c) 1981-1990, 1998, 2021 by Xerox Corporation.
               LLCHAR LLSTK PMAP LLGC ATBL FILEIO EXTERNALFORMAT LLARITH LLFLOAT FONT LLKEY LLDISPLAY
               ADISPLAY AINTERRUPT RENAMEMACROS HLDISPLAY WINDOW MACROAUX ADDARITH LLFAULT LLTIMER 
               IMAGEIO PROC XCCS PASSWORDS INTERPRESS HARDCOPY CMLARRAY LLSUBRS LLETHER PUP UFS 
-              DTDECLARE))
+              DTDECLARE BIGBITMAPS))
 
 (RPAQQ MAKEINITFILES
 (MAKEINIT MEM I-NEW))
 
@@ -162,8 +156,6 @@ Copyright (c) 1981-1990, 1998, 2021 by Xerox Corporation.
         (FPLUS2)
         (FTIMES2)
         (CREATECELL \CREATECELL)))
-(PUTPROPS FILESETS COPYRIGHT ("Xerox Corporation" 1981 1982 1983 1984 1985 1986 1987 1988 1989 1990 
-1998 2021))
 (DECLARE%: DONTCOPY
   (FILEMAP (NIL)))
 STOP

sources/LLREAD

@@ -1,12 +1,12 @@
 (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
 
-
(FILECREATED "19-Jul-2022 23:36:54" 
-{DSK}<users>kaplan>local>medley3.5>working-medley>sources>LLREAD.;102
 89980  
+
(FILECREATED "17-Jun-2023 13:12:06" {WMEDLEY}<sources>LLREAD.;104
 90176  
 
-      :CHANGES-TO (FNS PEEKCCODE SKIPSEPRCODES \SUBREAD)
+      :EDIT-BY rmk
 
-      :PREVIOUS-DATE "10-Sep-2021 19:41:58" 
-{DSK}<users>kaplan>local>medley3.5>working-medley>sources>LLREAD.;101)
+      :CHANGES-TO (VARS LLREADCOMS CHARACTERNAMES)
+
+      :PREVIOUS-DATE "19-Jul-2022 23:36:54" {WMEDLEY}<sources>LLREAD.;102)
 
 
 (* ; "
@@ -37,7 +37,10 @@ Copyright (c) 1981-1988, 1990-1991, 1993, 2021 by Venue & Xerox Corporation.
         (COMS                                                (* ; "Reading characters with #\")

               (FNS CHARACTER.READ CHARCODE.DECODE)
               (FNS HEXNUM? OCTALNUM?)
-              (VARS CHARACTERNAMES CHARACTERSETNAMES))
+              (ALISTS (CHARACTERNAMES Page Form FF Rubout Del Null Escape Esc Bell Tab Backspace Bs 
+                             Newline CR EOL Return Tenexeol Space Sp Linefeed LF)
+                     (CHARACTERSETNAMES Meta Function Greek Cyrillic Hira Hiragana Kata Katakana 
+                            Kanji)))
         (DECLARE%: DOEVAL@COMPILE DONTCOPY (CONSTANTS * READTYPES)
                (MACROS .CALL.SUBREAD. FIXDOT RBCONTEXT PROPRB \RDCONC)
                (SPECVARS *READ-NEWLINE-SUPPRESS* \RefillBufferFn)
@@ -1523,38 +1526,38 @@ Copyright (c) 1981-1988, 1990-1991, 1993, 2021 by Venue & Xerox Corporation.
                 ELSE
 (RETURN NIL)) FINALLY
 (RETURN NUM])
 )
 
-(RPAQQ CHARACTERNAMES

-       (("Page" 12)
-        ("Form" 12)
-        ("FF" 12)
-        ("Rubout" 127)
-        ("Del" 127)
-        ("Null" 0)
-        ("Escape" 27)
-        ("Esc" 27)
-        ("Bell" 7)
-        ("Tab" 9)
-        ("Backspace" 8)
-        ("Bs" 8)
-        ("Newline" 13)
-        ("CR" 13)
-        ("EOL" 13)
-        ("Return" 13)
-        ("Tenexeol" 31)
-        ("Space" 32)
-        ("Sp" 32)
-        ("Linefeed" 10)
-        ("LF" 10)))
+(ADDTOVAR CHARACTERNAMES

+          (Page 12)
+          (Form 12)
+          (FF 12)
+          (Rubout 127)
+          (Del 127)
+          (Null 0)
+          (Escape 27)
+          (Esc 27)
+          (Bell 7)
+          (Tab 9)
+          (Backspace 8)
+          (Bs 8)
+          (Newline 13)
+          (CR 13)
+          (EOL 13)
+          (Return 13)
+          (Tenexeol 31)
+          (Space 32)
+          (Sp 32)
+          (Linefeed 10)
+          (LF 10))
 
-(RPAQQ CHARACTERSETNAMES
 (("Meta" 1)
-                          ("Function" 2)
-                          ("Greek" 38)
-                          ("Cyrillic" 39)
-                          ("Hira" 36)
-                          ("Hiragana" 36)
-                          ("Kata" 37)
-                          ("Katakana" 37)
-                          ("Kanji" 48)))
+(ADDTOVAR CHARACTERSETNAMES
 (Meta 1)
+                            (Function 2)
+                            (Greek 38)
+                            (Cyrillic 39)
+                            (Hira 36)
+                            (Hiragana 36)
+                            (Kata 37)
+                            (Katakana 37)
+                            (Kanji 48))
 (DECLARE%: DOEVAL@COMPILE DONTCOPY 
 
 (RPAQQ READTYPES
 (READ.RT RATOM.RT NOPROPRB.RT PROPRB.RT))
@@ -1660,17 +1663,17 @@ Copyright (c) 1981-1988, 1990-1991, 1993, 2021 by Venue & Xerox Corporation.
 (PUTPROPS LLREAD COPYRIGHT ("Venue & Xerox Corporation" 1981 1982 1983 1984 1985 1986 1987 1988 1990 
 1991 1993 2021))
 (DECLARE%: DONTCOPY
-  (FILEMAP (NIL (3265 11709 (LASTC 3275 . 3581) (PEEKC 3583 . 3971) (PEEKCCODE 3973 . 4384) (RATOM 4386
- . 5467) (READ 5469 . 6029) (READC 6031 . 6672) (READCCODE 6674 . 7433) (READP 7435 . 7987) (
-SETREADMACROFLG 7989 . 8288) (SKIPSEPRCODES 8290 . 9370) (SKIPSEPRS 9372 . 9758) (SKREAD 9760 . 11707)
-) (11755 20364 (CL:READ 11765 . 12314) (CL:READ-PRESERVING-WHITESPACE 12316 . 13038) (
-CL:READ-DELIMITED-LIST 13040 . 13955) (CL:PARSE-INTEGER 13957 . 20362)) (20457 32934 (RSTRING 20467 . 
-21199) (READ-EXTENDED-TOKEN 21201 . 25073) (\RSTRING2 25075 . 32932)) (32970 63584 (\TOP-LEVEL-READ 
-32980 . 34963) (\SUBREAD 34965 . 60000) (\SUBREADCONCAT 60002 . 60625) (\ORIG-READ.SYMBOL 60627 . 
-61695) (\ORIG-INVALID.SYMBOL 61697 . 62596) (\APPLYREADMACRO 62598 . 63014) (INREADMACROP 63016 . 
-63582)) (63743 63918 (READQUOTE 63753 . 63916)) (63943 75847 (READVBAR 63953 . 65284) (READHASHMACRO 
-65286 . 71096) (DEFMACRO-LAMBDA-LIST-KEYWORD-P 71098 . 71318) (DIGITBASEP 71320 . 72054) (
-READNUMBERINBASE 72056 . 73942) (ESTIMATE-DIMENSIONALITY 73944 . 74269) (SKIP.HASH.COMMENT 74271 . 
-75239) (CMLREAD.FEATURE.PARSER 75241 . 75845)) (75891 82235 (CHARACTER.READ 75901 . 77155) (
-CHARCODE.DECODE 77157 . 82233)) (82236 85406 (HEXNUM? 82246 . 84589) (OCTALNUM? 84591 . 85404)))))
+  (FILEMAP (NIL (3460 11904 (LASTC 3470 . 3776) (PEEKC 3778 . 4166) (PEEKCCODE 4168 . 4579) (RATOM 4581
+ . 5662) (READ 5664 . 6224) (READC 6226 . 6867) (READCCODE 6869 . 7628) (READP 7630 . 8182) (
+SETREADMACROFLG 8184 . 8483) (SKIPSEPRCODES 8485 . 9565) (SKIPSEPRS 9567 . 9953) (SKREAD 9955 . 11902)
+) (11950 20559 (CL:READ 11960 . 12509) (CL:READ-PRESERVING-WHITESPACE 12511 . 13233) (
+CL:READ-DELIMITED-LIST 13235 . 14150) (CL:PARSE-INTEGER 14152 . 20557)) (20652 33129 (RSTRING 20662 . 
+21394) (READ-EXTENDED-TOKEN 21396 . 25268) (\RSTRING2 25270 . 33127)) (33165 63779 (\TOP-LEVEL-READ 
+33175 . 35158) (\SUBREAD 35160 . 60195) (\SUBREADCONCAT 60197 . 60820) (\ORIG-READ.SYMBOL 60822 . 
+61890) (\ORIG-INVALID.SYMBOL 61892 . 62791) (\APPLYREADMACRO 62793 . 63209) (INREADMACROP 63211 . 
+63777)) (63938 64113 (READQUOTE 63948 . 64111)) (64138 76042 (READVBAR 64148 . 65479) (READHASHMACRO 
+65481 . 71291) (DEFMACRO-LAMBDA-LIST-KEYWORD-P 71293 . 71513) (DIGITBASEP 71515 . 72249) (
+READNUMBERINBASE 72251 . 74137) (ESTIMATE-DIMENSIONALITY 74139 . 74464) (SKIP.HASH.COMMENT 74466 . 
+75434) (CMLREAD.FEATURE.PARSER 75436 . 76040)) (76086 82430 (CHARACTER.READ 76096 . 77350) (
+CHARCODE.DECODE 77352 . 82428)) (82431 85601 (HEXNUM? 82441 . 84784) (OCTALNUM? 84786 . 85599)))))
 STOP