Update CI and docs to use submodules for maiko/notecards/loops/test

doHCFILES.yml: replace 5 separate checkout steps with a single
  checkout using submodules:true; remove now-redundant .git cleanup step.

buildLoadup.yml: add submodules:true to Checkout Medley; remove
  separate Checkout Notecards + tar steps (notecards.tgz was already
  commented out of the release push).

make-gh-pages.md: replace manual clone+copy instructions with
  git clone --recurse-submodules; remove rm -rf of submodule dirs.

Co-Authored-By: Claude Sonnet 4.6 <noreply@anthropic.com>

.github/workflows/buildLoadup.yml

@@ -124,6 +124,8 @@ jobs:
       # Checkout latest commit
       - name: Checkout Medley
         uses: actions/checkout@v4
+        with:
+          submodules: true
 
       # Setup release tag
       - name: Setup Release Tag
@@ -191,18 +193,6 @@ jobs:
         env:
           GITHUB_TOKEN: ${{ secrets.MAIKO_TOKEN }}
 
-      # Checkout Notecards and tar it in the tarballsdir
-      - name: Checkout Notecards
-        uses: actions/checkout@v4
-        with:
-          repository: ${{ github.repository_owner }}/notecards
-          path: ./notecards
-      - name: Tar notecards into tarball dir
-        run: |
-          mv ./notecards ../notecards
-          cd ../notecards
-          git archive --format=tgz --output="${TARBALL_DIR}/notecards.tgz" --prefix=notecards/ main
-
       # Install vnc
       - name: Install vnc
         run: sudo apt-get update && sudo apt-get install -y tightvncserver

.github/workflows/doHCFILES.yml

@@ -51,33 +51,8 @@ jobs:
 
       - name: Checkout Medley repo
         uses: actions/checkout@v4
-
-      - name: Checkout maiko
-        uses: actions/checkout@v4
         with:
-          repository: ${{ github.repository_owner }}/maiko
-          path: ./maiko
-
-      - name: Checkout notecards
-        uses: actions/checkout@v4
-        with:
-          repository: ${{ github.repository_owner }}/notecards
-          path: ./notecards
-
-      - name: Checkout loops
-        uses: actions/checkout@v4
-        with:
-          repository: ${{ github.repository_owner }}/loops
-          path: ./loops
-
-      - name: Checkout test
-        uses: actions/checkout@v4
-        with:
-          repository: ${{ github.repository_owner }}/test
-          path: ./test
-
-      - name: Cleanup .git for notecards, loops, test
-        run: rm -rf ./notecards/.git ./loops/.git ./test/.git
+          submodules: true
 
       - name: Download Maiko
         run: |

.gitignore

@@ -5,9 +5,6 @@ tmp/*
 # releases directory
 releases/*
 
-# maiko directory
-maiko/
-
 
 # all PDFs (those explicitly checked in aren't ignored
 # normally when you have derived files, you ignore them from git

.gitmodules

@@ -0,0 +1,20 @@
+[submodule "maiko"]
+	path = maiko
+	url = https://github.com/Interlisp/maiko
+	branch = master
+[submodule "notecards"]
+	path = notecards
+	url = https://github.com/Interlisp/notecards
+	branch = main
+[submodule "loops"]
+	path = loops
+	url = https://github.com/Interlisp/loops
+	branch = main
+[submodule "test"]
+	path = test
+	url = https://github.com/Interlisp/test
+	branch = master
+[submodule "online"]
+	path = online
+	url = https://github.com/Interlisp/online
+	branch = main

internal/loadups/man-page/loadup.1

@@ -114,8 +114,8 @@ loadup is run.
 Only one instance (per <MEDLEIDIR>) of loadup can be run at a time.
 There is lock file to prevent simultaneous loadups in the work directory
 (named \f[B]\f[BI]lock\f[B]\f[R]) that can be manually removed.
-The lock can also be automatically overridden (see the --override flag
-below).
+The lock can also be automatically overridden (see the \[en]override
+flag below).
 Alternatively, if a lock is encountered at run time, the user will be
 asked to choose whether to override or simply exit the loadup.
 .PP
@@ -130,7 +130,7 @@ But Medley can be installed in multiple places on any given machine and
 hence MEDLEYDIR is computed on each invocation of loadup.
 .SH OPTIONS
 .TP
-\f[B]-z [+], --man [+], -man [+], -h [+], --help [+]\f[R]
+\f[B]-z [+], --man [+], -man [+], -h [+], \[en]help [+]\f[R]
 Print this manual page on the screen.
 If the \f[B]+\f[R] parameter is specified, then no pager is used when
 displaying the man page.
@@ -138,7 +138,7 @@ displaying the man page.
 \f[B]-t STAGE, --target STAGE, -target STAGE\f[R]
 Run the sequential loadup procedure until the STAGE is complete,
 starting from the files created by the previously run STAGE specified in
-the --start option.
+the \[en]start option.
 .RS
 .PP
 STAGE can be one of the following:
@@ -175,7 +175,7 @@ Full.sysout is copied into the loadups directory.
 .RS
 .PP
 a, apps, 5: Run the loadup sequence through Stage 5 (apps.sysout).
-Also run the Aux stage as if --aux option had been specified.
+Also run the Aux stage as if \[en]aux option had been specified.
 Apps.sysout and the Aux files are copied into the loadups directory.
 .RE
 .RE
@@ -185,7 +185,7 @@ Apps.sysout and the Aux files are copied into the loadups directory.
 a-, apps-, 5-: Run the loadup sequence through Stage 5 (apps.sysout).
 The Aux stage is not run unless otherwise specified.
 Apps.sysout is copied into the loadups directory.
-Also run the Aux stage as if --aux option had been specified.
+Also run the Aux stage as if \[en]aux option had been specified.
 .RE
 .RE
 .TP
@@ -245,22 +245,22 @@ If this stage complete successfully, these files are copied into
 loadups.
 .TP
 \f[B]-i, --init, -init, -1\f[R]
-Synonym for \[lq]--target init\[rq]
+Synonym for \[lq]\[en]target init\[rq]
 .TP
 \f[B]-m, --mid, -mid, -2\f[R]
-Synonym for \[lq]--target mid\[rq]
+Synonym for \[lq]\[en]target mid\[rq]
 .TP
 \f[B]-l, --lisp, -lisp, -3\f[R]
-Synonym for \[lq]--target lisp\[rq]
+Synonym for \[lq]\[en]target lisp\[rq]
 .TP
 \f[B]-f, --full. -full, -4\f[R]
-Synonym for \[lq]--target full\[rq]
+Synonym for \[lq]\[en]target full\[rq]
 .TP
 \f[B]-a, --apps, -apps, -5\f[R]
-Synonym for \[lq]--target apps\[rq]
+Synonym for \[lq]\[en]target apps\[rq]
 .TP
 \f[B]-a-, --apps-, -apps-, -5-\f[R]
-Synonym for \[lq]--target apps\[rq]
+Synonym for \[lq]\[en]target apps\[rq]
 .TP
 \f[B]-ov, --override, -override\f[R]
 Automatically override the lock that prevents two loadups from running
@@ -300,14 +300,14 @@ contained in the working directory.
 If the \f[B]+\f[R] parameter is used, then instead of deleting just the
 versioned files, all files and subdirectories are deleted except for
 those contained in the working directory.
-If \f[B]+\f[R] is used and there is no working directory and \f[I]--tag
-TAG\f[R] is also specified, then the tagged loadups directory
-(<MEDLEYDIR>/loadups/tagged/TAG) is also deleted.
+If \f[B]+\f[R] is used and there is no working directory and
+\f[I]\[en]tag TAG\f[R] is also specified, then the tagged loadups
+directory (<MEDLEYDIR>/loadups/tagged/TAG) is also deleted.
 .TP
 \f[B]-th [+], --thin [+], -thin [+]\f[R]
 Equivalent to specifying both -tw [+] and -tl [+].
-If \f[I]--tag TAG\f[R] is also specified and the \f[B]+\f[R] parameter
-is used here, then the tagged loadups directory
+If \f[I]\[en]tag TAG\f[R] is also specified and the \f[B]+\f[R]
+parameter is used here, then the tagged loadups directory
 (<MEDLEYDIR>/loadups/tagged/TAG) is removed.
 .TP
 \f[B]-d DIR, --maikodir DIR, -maikodir DIR\f[R]
@@ -328,36 +328,38 @@ commonly used in running Medley in the absence of an Xwindows server.
 .PP
 The defaults for the Options context-dependent and somewhat complicated
 due to the goal of maintaining compatibility with legacy loadup scripts.
-All of the following defaults rules hold independent of the --maikodir
-(-d) option.
+All of the following defaults rules hold independent of the
+\[en]maikodir (-d) option.
 .IP "1." 3
-If none of --target, --start, --aux, and --db are specified, then:
+If none of \[en]target, \[en]start, \[en]aux, and \[en]db are specified,
+then:
 .RS
 .PP
 1A.
-If neither --thinw nor --thinl are specified, the options default to:
+If neither \[en]thinw nor \[en]thinl are specified, the options default
+to:
 .RE
 .RS
 .RS
 .PP
-\f[B]--target full --start 0 --aux\f[R]
+\f[B]\[en]target full \[en]start 0 \[en]aux\f[R]
 .RE
 .RE
 .RS
 .PP
 1B.
-If either --thinw or --thinl are specified, no loadups are run.
+If either \[en]thinw or \[en]thinl are specified, no loadups are run.
 .RE
 .IP "2." 3
-If neither --start nor --target are specified but either -aux or -db or
-both are, then --start defaults to \f[I]full\f[R] and --target is
-irrelevant.
+If neither \[en]start nor \[en]target are specified but either -aux or
+-db or both are, then \[en]start defaults to \f[I]full\f[R] and
+\[en]target is irrelevant.
 .IP "3." 3
-If --start is specified and --target is not, then --target defaults to
-\f[I]full\f[R]
+If \[en]start is specified and \[en]target is not, then \[en]target
+defaults to \f[I]full\f[R]
 .IP "4." 3
-If --target is specified and --start is not, then --start defaults to
-\f[I]0\f[R]
+If \[en]target is specified and \[en]start is not, then \[en]start
+defaults to \f[I]0\f[R]
 .SH EXAMPLES
 .PP
 \f[B]./loadup -full -s lisp\f[R] : run loadup thru Stage 4 (full.sysout)
@@ -366,14 +368,14 @@ starting from existing Stage 3 outputs (lisp.sysout).
 \f[B]./loadup --target full --start lisp\f[R] : run loadup thru Stage 4
 (full.sysout) starting from existing Stage 3 outputs (lisp.sysout).
 .PP
-\f[B]./loadup -5 --aux\f[R] : run loadup from the beginning thru Stage 5
-(apps.sysout) then run the Aux \[lq]stage\[rq] to create
+\f[B]./loadup -5 \[en]aux\f[R] : run loadup from the beginning thru
+Stage 5 (apps.sysout) then run the Aux \[lq]stage\[rq] to create
 \f[I]whereis.hash\f[R] and \f[I]exports.all\f[R]
 .PP
 \f[B]./loadup -db\f[R] : just run the DB \[lq]stage\[rq] starting from
 an existing full.sysout; do not run any of the sequential stages.
 .PP
-\f[B]./loadup --maikodir \[ti]/il/newmaiko\f[R] : run loadup sequence
+\f[B]./loadup \[en]maikodir \[ti]/il/newmaiko\f[R] : run loadup sequence
 from beginning to full plus the loadup Aux stage, while using
 \f[I]\[ti]/il/newmaiko\f[R] as the location for the lde executables when
 running Medley.

internal/loadups/man-page/loadup.1.md

@@ -52,7 +52,7 @@ Loadup does all of its work in a work directory (\<MEDLEYDIR>/loadups/build).  T
 
 If \<MEDLEYDIR> is a git directory, then a file is created in the loadups output directory called *gitinfo* which contains the git commit, git branch and git status information for the directory at the time the loadup is run.
 
-Only one instance (per \<MEDLEIDIR>) of loadup can be run at a time.  There is lock file to prevent simultaneous loadups in the work directory (named ***lock***) that can be manually removed.  The lock can also be automatically overridden (see the \-\-override flag below). Alternatively, if a lock is encountered at run time, the user will be asked to choose whether to override or simply exit the loadup.
+Only one instance (per \<MEDLEIDIR>) of loadup can be run at a time.  There is lock file to prevent simultaneous loadups in the work directory (named ***lock***) that can be manually removed.  The lock can also be automatically overridden (see the --override flag below). Alternatively, if a lock is encountered at run time, the user will be asked to choose whether to override or simply exit the loadup.
 
 Note: **MEDLEYDIR** is an environment variable set by the loadup script.  It is set to the top level directory of the Medley installation that contains the specific loadup script that
 is invoked after all symbolic links are resolved.  In the standard global installation this will 
@@ -61,12 +61,12 @@ hence MEDLEYDIR is computed on each invocation of loadup.
 
 OPTIONS
 =======
-**-z [+], \-\-man [+], \-man [+], -h [+], \-\-help [+]**
+**-z [+], \-\-man [+], \-man [+], -h [+], --help [+]**
 : Print this manual page on the screen.  If the **+** parameter is specified, then no pager is used when
 displaying the man page.
 
 **-t STAGE, \-\-target STAGE, -target STAGE**
-: Run the sequential loadup procedure until the STAGE is complete, starting from the files created by the previously run STAGE specified in the \-\-start option.
+: Run the sequential loadup procedure until the STAGE is complete, starting from the files created by the previously run STAGE specified in the --start option.
 
 >STAGE can be one of the following:
  
@@ -78,9 +78,9 @@ displaying the man page.
  
 >>f, full, 4: Run the loadup sequence through Stage 4 (full.sysout).  Full.sysout is copied into the loadups directory.
  
->>a, apps, 5: Run the loadup sequence through Stage 5 (apps.sysout). Also run the Aux stage as if \-\-aux option had been specified. Apps.sysout and the Aux files are copied into the loadups directory.
+>>a, apps, 5: Run the loadup sequence through Stage 5 (apps.sysout). Also run the Aux stage as if --aux option had been specified. Apps.sysout and the Aux files are copied into the loadups directory.
 
->>a-, apps-, 5-: Run the loadup sequence through Stage 5 (apps.sysout).  The Aux stage is not run unless otherwise specified. Apps.sysout is copied into the loadups directory.  Also run the Aux stage as if \-\-aux option had been specified.
+>>a-, apps-, 5-: Run the loadup sequence through Stage 5 (apps.sysout).  The Aux stage is not run unless otherwise specified. Apps.sysout is copied into the loadups directory.  Also run the Aux stage as if --aux option had been specified.
 
 
 **-s STAGE \-\-start STAGE, -start STAGE**
@@ -105,22 +105,22 @@ displaying the man page.
 : Run the DB loadup stage, creating the *fuller.database* file.  If this stage complete successfully, these files are copied into loadups.
 
 **-i, \-\-init, -init, -1**
-: Synonym for "\-\-target init"
+: Synonym for "--target init"
 
 **-m, \-\-mid, -mid, -2**
-: Synonym for "\-\-target mid"
+: Synonym for "--target mid"
 
 **-l, \-\-lisp, -lisp, -3**
-: Synonym for "\-\-target lisp"
+: Synonym for "--target lisp"
 
 **-f, \-\-full. -full, -4**
-: Synonym for "\-\-target full"
+: Synonym for "--target full"
 
 **-a, \-\-apps, -apps, -5**
-: Synonym for "\-\-target apps"
+: Synonym for "--target apps"
 
 **-a-, \-\-apps-, -apps-, -5-**
-: Synonym for "\-\-target apps"
+: Synonym for "--target apps"
 
 **-ov, \-\-override, -override**
 : Automatically override the lock that prevents two loadups from running simultaneously.  If this flag is not set and an active lock is encountered, the user will be asked to choose whether to override or exit.
@@ -149,11 +149,11 @@ working directory (and all files and subdirectories it contains) is deleted.
 files except for those contained in the working directory.
 If the **+** parameter is used, then instead of deleting just the versioned files, all files and
 subdirectories are deleted except for those contained in the working directory.  If **+** is used and
-there is no working directory and *\-\-tag TAG* is also specified,
+there is no working directory and *--tag TAG* is also specified,
 then the tagged loadups directory (\<MEDLEYDIR>/loadups/tagged/TAG) is also deleted. 
 
 **-th [+], \-\-thin [+], -thin [+]**
-: Equivalent to specifying both -tw [+] and -tl [+].  If *\-\-tag TAG* is also specified and
+: Equivalent to specifying both -tw [+] and -tl [+].  If *--tag TAG* is also specified and
 the **+** parameter is used here, then the tagged loadups directory (\<MEDLEYDIR>/loadups/tagged/TAG)
 is removed. 
 
@@ -168,21 +168,21 @@ running Medley in the absence of an Xwindows server.
 
 DEFAULTS
 ====
-The defaults for the Options context-dependent and somewhat complicated due to the goal of maintaining compatibility with legacy loadup scripts.  All of the following defaults rules hold independent of the \-\-maikodir (-d) option.
+The defaults for the Options context-dependent and somewhat complicated due to the goal of maintaining compatibility with legacy loadup scripts.  All of the following defaults rules hold independent of the --maikodir (-d) option.
 
-1. If none of \-\-target, \-\-start, \-\-aux, and \-\-db are specified, then:
+1. If none of --target, --start, --aux, and --db are specified, then:
 
->1A.  If neither \-\-thinw nor \-\-thinl are specified,  the options default to:
+>1A.  If neither --thinw nor --thinl are specified,  the options default to:
 
->> **\-\-target full \-\-start 0 \-\-aux**
+>> **--target full --start 0 --aux**
 
->1B.  If either \-\-thinw or \-\-thinl are specified, no loadups are run.
+>1B.  If either --thinw or --thinl are specified, no loadups are run.
 
-2. If neither \-\-start nor \-\-target are specified but either -aux or -db or both are, then \-\-start defaults to *full* and \-\-target is irrelevant.
+2. If neither --start nor --target are specified but either -aux or -db or both are, then --start defaults to *full* and --target is irrelevant.
 
-3. If \-\-start is specified and \-\-target is not, then \-\-target defaults to *full*
+3. If --start is specified and --target is not, then --target defaults to *full*
 
-4. If \-\-target is specified and \-\-start is not, then \-\-start defaults to *0*
+4. If --target is specified and --start is not, then --start defaults to *0*
 
 EXAMPLES
 ====
@@ -190,11 +190,11 @@ EXAMPLES
 
 **./loadup \-\-target full \-\-start lisp** : run loadup thru Stage 4 (full.sysout) starting from existing Stage 3 outputs (lisp.sysout).
 
-**./loadup -5 \-\-aux** : run loadup from the beginning thru Stage 5 (apps.sysout) then run the Aux "stage" to create *whereis.hash* and *exports.all*
+**./loadup -5 --aux** : run loadup from the beginning thru Stage 5 (apps.sysout) then run the Aux "stage" to create *whereis.hash* and *exports.all*
 
 **./loadup -db** : just run the DB "stage" starting from an existing full.sysout; do not run any of the sequential stages.
 
-**./loadup \-\-maikodir ~/il/newmaiko** :   run loadup sequence from beginning to full plus the loadup Aux stage, while using *~/il/newmaiko* as the location for the lde executables when running Medley.
+**./loadup --maikodir ~/il/newmaiko** :   run loadup sequence from beginning to full plus the loadup Aux stage, while using *~/il/newmaiko* as the location for the lde executables when running Medley.
 
 **./loadup -full** : run loadup sequence from beginning thru full
 

internal/loadups/man-page/man_loadup.html

@@ -87,7 +87,7 @@ the time the loadup is run.</p>
 time. There is lock file to prevent simultaneous loadups in the work
 directory (named <strong><em>lock</em></strong>) that can be manually
 removed. The lock can also be automatically overridden (see the
---override flag below). Alternatively, if a lock is encountered at run
+–override flag below). Alternatively, if a lock is encountered at run
 time, the user will be asked to choose whether to override or simply
 exit the loadup.</p>
 <p>Note: <strong>MEDLEYDIR</strong> is an environment variable set by
@@ -99,8 +99,7 @@ installed in multiple places on any given machine and hence MEDLEYDIR is
 computed on each invocation of loadup.</p>
 <h1>OPTIONS</h1>
 <dl>
-<dt><strong>-z [+], --man [+], -man [+], -h [+], --help
-[+]</strong></dt>
+<dt><strong>-z [+], --man [+], -man [+], -h [+], –help [+]</strong></dt>
 <dd>
 <p>Print this manual page on the screen. If the <strong>+</strong>
 parameter is specified, then no pager is used when displaying the man
@@ -110,7 +109,7 @@ page.</p>
 <dd>
 <p>Run the sequential loadup procedure until the STAGE is complete,
 starting from the files created by the previously run STAGE specified in
-the --start option.</p>
+the –start option.</p>
 <p>STAGE can be one of the following:</p>
 <blockquote>
 <p>i, init, 1: Run the loadup sequence through Stage 1 (init.dlinit).
@@ -130,13 +129,13 @@ Full.sysout is copied into the loadups directory.</p>
 </blockquote>
 <blockquote>
 <p>a, apps, 5: Run the loadup sequence through Stage 5 (apps.sysout).
-Also run the Aux stage as if --aux option had been specified.
-Apps.sysout and the Aux files are copied into the loadups directory.</p>
+Also run the Aux stage as if –aux option had been specified. Apps.sysout
+and the Aux files are copied into the loadups directory.</p>
 </blockquote>
 <blockquote>
 <p>a-, apps-, 5-: Run the loadup sequence through Stage 5 (apps.sysout).
 The Aux stage is not run unless otherwise specified. Apps.sysout is
-copied into the loadups directory. Also run the Aux stage as if --aux
+copied into the loadups directory. Also run the Aux stage as if –aux
 option had been specified.</p>
 </blockquote>
 </dd>
@@ -182,27 +181,27 @@ loadups.</p>
 </dd>
 <dt><strong>-i, --init, -init, -1</strong></dt>
 <dd>
-<p>Synonym for “--target init”</p>
+<p>Synonym for “–target init”</p>
 </dd>
 <dt><strong>-m, --mid, -mid, -2</strong></dt>
 <dd>
-<p>Synonym for “--target mid”</p>
+<p>Synonym for “–target mid”</p>
 </dd>
 <dt><strong>-l, --lisp, -lisp, -3</strong></dt>
 <dd>
-<p>Synonym for “--target lisp”</p>
+<p>Synonym for “–target lisp”</p>
 </dd>
 <dt><strong>-f, --full. -full, -4</strong></dt>
 <dd>
-<p>Synonym for “--target full”</p>
+<p>Synonym for “–target full”</p>
 </dd>
 <dt><strong>-a, --apps, -apps, -5</strong></dt>
 <dd>
-<p>Synonym for “--target apps”</p>
+<p>Synonym for “–target apps”</p>
 </dd>
 <dt><strong>-a-, --apps-, -apps-, -5-</strong></dt>
 <dd>
-<p>Synonym for “--target apps”</p>
+<p>Synonym for “–target apps”</p>
 </dd>
 <dt><strong>-ov, --override, -override</strong></dt>
 <dd>
@@ -246,13 +245,13 @@ contained in the working directory. If the <strong>+</strong> parameter
 is used, then instead of deleting just the versioned files, all files
 and subdirectories are deleted except for those contained in the working
 directory. If <strong>+</strong> is used and there is no working
-directory and <em>--tag</em> TAG is also specified, then the tagged
+directory and <em>–tag TAG</em> is also specified, then the tagged
 loadups directory (&lt;MEDLEYDIR&gt;/loadups/tagged/TAG) is also
 deleted.</p>
 </dd>
 <dt><strong>-th [+], --thin [+], -thin [+]</strong></dt>
 <dd>
-<p>Equivalent to specifying both -tw [+] and -tl [+]. If <em>--tag
+<p>Equivalent to specifying both -tw [+] and -tl [+]. If <em>–tag
 TAG</em> is also specified and the <strong>+</strong> parameter is used
 here, then the tagged loadups directory
 (&lt;MEDLEYDIR&gt;/loadups/tagged/TAG) is removed.</p>
@@ -278,24 +277,24 @@ absence of an Xwindows server.</p>
 <p>The defaults for the Options context-dependent and somewhat
 complicated due to the goal of maintaining compatibility with legacy
 loadup scripts. All of the following defaults rules hold independent of
-the --maikodir (-d) option.</p>
+the –maikodir (-d) option.</p>
 <ol type="1">
-<li><p>If none of --target, --start, --aux, and --db are specified,
+<li><p>If none of –target, –start, –aux, and –db are specified,
 then:</p>
-<p>1A. If neither --thinw nor --thinl are specified, the options default
+<p>1A. If neither –thinw nor –thinl are specified, the options default
 to:</p>
 <blockquote>
-<p><strong>--target full --start 0 --aux</strong></p>
+<p><strong>–target full –start 0 –aux</strong></p>
 </blockquote>
-<p>1B. If either --thinw or --thinl are specified, no loadups are
+<p>1B. If either –thinw or –thinl are specified, no loadups are
 run.</p></li>
-<li><p>If neither --start nor --target are specified but either -aux or
--db or both are, then --start defaults to <em>full</em> and --target is
+<li><p>If neither –start nor –target are specified but either -aux or
+-db or both are, then –start defaults to <em>full</em> and –target is
 irrelevant.</p></li>
-<li><p>If --start is specified and --target is not, then --target
-defaults to <em>full</em></p></li>
-<li><p>If --target is specified and --start is not, then --start
-defaults to <em>0</em></p></li>
+<li><p>If –start is specified and –target is not, then –target defaults
+to <em>full</em></p></li>
+<li><p>If –target is specified and –start is not, then –start defaults
+to <em>0</em></p></li>
 </ol>
 <h1>EXAMPLES</h1>
 <p><strong>./loadup -full -s lisp</strong> : run loadup thru Stage 4
@@ -303,12 +302,12 @@ defaults to <em>0</em></p></li>
 <p><strong>./loadup --target full --start lisp</strong> : run loadup
 thru Stage 4 (full.sysout) starting from existing Stage 3 outputs
 (lisp.sysout).</p>
-<p><strong>./loadup -5 --aux</strong> : run loadup from the beginning
+<p><strong>./loadup -5 –aux</strong> : run loadup from the beginning
 thru Stage 5 (apps.sysout) then run the Aux “stage” to create
 <em>whereis.hash</em> and <em>exports.all</em></p>
 <p><strong>./loadup -db</strong> : just run the DB “stage” starting from
 an existing full.sysout; do not run any of the sequential stages.</p>
-<p><strong>./loadup --maikodir ~/il/newmaiko</strong> : run loadup
+<p><strong>./loadup –maikodir ~/il/newmaiko</strong> : run loadup
 sequence from beginning to full plus the loadup Aux stage, while using
 <em>~/il/newmaiko</em> as the location for the lde executables when
 running Medley.</p>

lispusers/GITFNS

@@ -1,12 +1,12 @@
-(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
+(DEFINE-FILE-INFO :PACKAGE "INTERLISP" :READTABLE "INTERLISP" :BASE 10 :FORMAT :UTF-8)
 
-
(FILECREATED "28-Oct-2025 14:10:06" {WMEDLEY}<lispusers>GITFNS.;569
 131593 
+
(FILECREATED " 2-Mar-2026 14:00:13" {WMEDLEY}<lispusers>GITFNS.;576
 133513 
 
       :EDIT-BY rmk
 
-      :CHANGES-TO (FNS GIT-WORKING-COMPARE-DIRECTORIES GIT-BRANCHES-COMPARE-DIRECTORIES)
+      :CHANGES-TO (FNS GIT-MY-NEXT-BRANCH)
 
-      :PREVIOUS-DATE "28-Oct-2025 13:32:16" {WMEDLEY}<lispusers>GITFNS.;568)
+      :PREVIOUS-DATE "26-Feb-2026 00:39:22" {WMEDLEY}<lispusers>GITFNS.;575)
 
 
 (PRETTYCOMPRINT GITFNSCOMS)
@@ -74,7 +74,7 @@
         
         (* ;; "Differences")

 
-        (FNS GIT-BRANCH-DIFF GIT-COMMIT-DIFFS GIT-BRANCH-RELATIONS)
+        (FNS GIT-BRANCH-DIFF GIT-COMMIT-DIFFS GIT-BRANCH-RELATIONS GIT-MODIFIED)
         
         (* ;; "")

 
@@ -169,6 +169,7 @@
 
 (GIT-MAKE-PROJECT

   [LAMBDA (PROJECTNAME CLONEPATH WORKINGPATH EXCLUSIONS DEFAULTSUBDIRS)

+                                                             (* ; "Edited 25-Feb-2026 23:25 by rmk")


                                                              (* ; "Edited 25-Oct-2025 16:53 by rmk")


                                                              (* ; "Edited 22-Oct-2025 12:45 by rmk")


                                                              (* ; "Edited 20-Oct-2025 18:10 by rmk")


@@ -234,9 +235,8 @@
              (CL:WHEN (SETQ GITIGNORE (INFILEP (PACKFILENAME.STRING 'NAME ".gitignore" 'BODY 
                                                       CLONEPATH)))
                  (SETQ GITIGNORE (CL:WITH-OPEN-FILE (STREAM GITIGNORE :EXTERNAL-FORMAT :UTF-8)
-                                        (bind
 L until
 (EOFP STREAM)
-                                           while
 (SETQ L (CL:READ-LINE STREAM :EOF-ERROR-P NIL 
-                                                                :EOF-VALUE NIL))
+                                        (bind
 L until
 (EOFP STREAM) while
 (SETQ L (CL:READ-LINE
+                                                                                   STREAM NIL))
                                            unless
 (OR (EQ 0 (NCHARS L))
                                                       (STRPOS "#" L)) collect
 L))))
              (SETQ EXCLUSIONS (CL:REMOVE-DUPLICATES (APPEND (for
 E inside
 EXCLUSIONS
@@ -274,16 +274,16 @@
                                                           "")
                                                       "for " PROJECTNAME]
              (SETQ PROJECT (create
 GIT-PROJECT
-                                  PROJECTNAME _ PROJECTNAME
-                                  GITHOST _ (PACK* "{" (PSEUDOHOST PROJECTNAME CLONEPATH)
+                                  PROJECTNAME ← PROJECTNAME
+                                  GITHOST ← (PACK* "{" (PSEUDOHOST PROJECTNAME CLONEPATH)
                                                    "}")
-                                  WHOST _ (AND WORKINGPATH (PACK* "{" (PSEUDOHOST (CONCAT "W" 
+                                  WHOST ← (AND WORKINGPATH (PACK* "{" (PSEUDOHOST (CONCAT "W" 
                                                                                          PROJECTNAME)
                                                                              WORKINGPATH)
                                                                   "}"))
-                                  EXCLUSIONS _ EXCLUSIONS
-                                  DEFAULTSUBDIRS _ (MKLIST DEFAULTSUBDIRS)
-                                  CLONEPATH _ CLONEPATH))
+                                  EXCLUSIONS ← EXCLUSIONS
+                                  DEFAULTSUBDIRS ← (MKLIST DEFAULTSUBDIRS)
+                                  CLONEPATH ← CLONEPATH))
              (/RPLACD [OR (ASSOC PROJECTNAME GIT-PROJECTS)
                           (CAR (push
 GIT-PROJECTS (CONS PROJECTNAME]
                     PROJECT)
@@ -358,7 +358,7 @@
 
 (FIND-ANCESTOR-DIRECTORY

   [LAMBDA (STARTDIR PREDFN)
                                  (* ; "Edited  8-May-2022 12:17 by rmk")

-    (BIND
 POS (A _ STARTDIR) WHILE
 (SETQ POS (STRPOS "/" A -2 NIL NIL NIL FILEDIRCASEARRAY T))
+    (BIND
 POS (A ← STARTDIR) WHILE
 (SETQ POS (STRPOS "/" A -2 NIL NIL NIL FILEDIRCASEARRAY T))
        DO
 (SETQ A (SUBSTRING A 1 POS))
           (CL:WHEN (APPLY* PREDFN A)
                  (RETURN A])
@@ -372,7 +372,7 @@
         (GIT-CLONEP
 (GIT-PROJECT-PATH
 PROJECTNAME PROJECTPATH)
                T T)
         [FIND-ANCESTOR-DIRECTORY
 PROJECTPATH (FUNCTION (LAMBDA (A)
-                                                         (BIND
 D (GEN _ (\GENERATEFILES A NIL NIL 1))
+                                                         (BIND
 D (GEN ← (\GENERATEFILES A NIL NIL 1))
                                                             WHILE
 (SETQ D (\GENERATENEXTFILE GEN))
                                                             WHEN
 (GIT-CLONEP
 D T)
                                                             DO
 (RETFROM (FUNCTION 
@@ -684,7 +684,7 @@
 
     (GIT-MAINBRANCH?
 (GIT-WHICH-BRANCH
 PROJECT)
            PROJECT)
-    (FOR
 MF GF DEST (MEDLEYSUBDIRS
 _ (MEDLEYSUBDIRS
 PROJECT)) INSIDE
 MFILES
+    (FOR
 MF GF DEST (MEDLEYSUBDIRS
 ← (MEDLEYSUBDIRS
 PROJECT)) INSIDE
 MFILES
        COLLECT
 (SETQ MF (OR (FINDFILE MF NIL MEDLEYSUBDIRS)
                             (ERROR "FILE NOT FOUND" MF)))
              (CL:UNLESS (STRING.EQUAL MF (INFILEP (PACKFILENAME 'VERSION NIL 'BODY MF))
@@ -709,7 +709,7 @@
     (* ;; "Does anybody call this?")

 
     (SETQ PROJECT (GIT-GET-PROJECT
 PROJECT))
-    (FOR
 GF MF DEST (GITSUBDIRS
 _ (GITSUBDIRS
 PROJECT)) INSIDE
 GFILES
+    (FOR
 GF MF DEST (GITSUBDIRS
 ← (GITSUBDIRS
 PROJECT)) INSIDE
 GFILES
        COLLECT
 (SETQ GF (OR (FINDFILE GF NIL GITSUBDIRS)
                             (ERROR "FILE NOT FOUND" GF)))
              (SETQ MF (MFILE4GFILE
 GF))
@@ -742,8 +742,8 @@
                         "")])
 
 (STRIPDIR

-  [LAMBDA (FILE DIRECTORY)                                   (* ; "Edited 18-Jan-2022 16:09 by rmk")

-                                                             (* ; "Edited  8-Nov-2021 11:50 by rmk:")

+  [LAMBDA (FILE DIRECTORY)
                                   (* ; "Edited 18-Jan-2022 16:09 by rmk")


+                                                            (* ; "Edited  8-Nov-2021 11:50 by rmk:")

     (IF
 (STRPOS DIRECTORY FILE 1 NIL T NIL FILEDIRCASEARRAY)
         THEN
 (SUBSTRING FILE (ADD1 (NCHARS DIRECTORY)))
       ELSE
 FILE])
@@ -1023,7 +1023,7 @@
                        ": ")
                 (IF
 (EQ (CAR X)
                         'Comments)
-                    THEN
 (FOR
 CC (POS _ (POSITION T)) IN
 (CDR X)
+                    THEN
 (FOR
 CC (POS ← (POSITION T)) IN
 (CDR X)
                             DO
 (IF
 (EQ CC T)
                                    THEN
 (TERPRI T)
                                  ELSE
 (PRINTOUT T .TAB0 POS CC)))
@@ -1163,7 +1163,7 @@
 
     (* ;; "Returns the identifiers for commits in BRANCH1 but not in BUTNOTBRANCH2")

 
-    (GIT-COMMAND
 (CONCAT "git log --format=%"%%h%" %"" BRANCH1 "%" %"­" BUTNOTBRANCH2 "%"")
+    (GIT-COMMAND
 (CONCAT "git log --format=%"%%h%" %"" BRANCH1 "%" %"^" BUTNOTBRANCH2 "%"")
            NIL NIL PROJECT])
 
 (GIT-BRANCH-RELATIONS

@@ -1227,6 +1227,16 @@
                                              then
 (CONS MAIN (DREMOVE MAIN (SORT DATUM)))
                                            else
 (SORT DATUM]
               (RETURN (LIST SUPERSETS EQUALS
])
+
+(GIT-MODIFIED

+  [LAMBDA (PROJECT)
                                          (* ; "Edited 25-Dec-2025 13:39 by rmk")

+
+    (* ;; 
+
 "A list of files that have been modified M or introduced but not committed ??.  see git help status")

+
+    (for
 X POS in
 (GIT-COMMAND
 "git status --porcelain")
+       when
 (SETQ POS (OR (STRPOS " M " X NIL NIL NIL T)
+                          (STRPOS "?? " X NIL NIL NIL T))) collect
 (SUBSTRING X POS])
 )
 
 
@@ -1353,7 +1363,7 @@
          (CL:WHEN (thereis
 B in
 BRANCHES suchthat
 (STRPOS "HEAD detached" B))
                 (PRINTOUT T "Execute %"git gc%" to eliminate a branch with a detached HEAD" T))
          (CL:WHEN EXCLUDEMERGED
-             (SETQ BRANCHES (for
 B (MAINBRANCH _ (GIT-MAINBRANCH
 PROJECT 'LOCAL)) in
 BRANCHES
+             (SETQ BRANCHES (for
 B (MAINBRANCH ← (GIT-MAINBRANCH
 PROJECT 'LOCAL)) in
 BRANCHES
                                when
 (EQUAL (GIT-COMMAND
 (CONCAT "git merge-base %"" B "%" %"" 
                                                                MAINBRANCH "%""))
                                            (GIT-COMMAND
 (CONCAT "git rev-parse %"" B "%"")))
@@ -1392,11 +1402,11 @@
         (CL:WHEN PIN?
             [SETQ BRANCHES (APPEND BRANCHES '(("      Pin menu" 'PinMenu])
         (create
 MENU
-               TITLE _ (OR TITLE (CONCAT (LENGTH BRANCHES)
+               TITLE ← (OR TITLE (CONCAT (LENGTH BRANCHES)
                                         " branches"))
-               ITEMS _ BRANCHES
-               MENUFONT _ DEFAULTFONT
-               WHENSELECTEDFN _ (FUNCTION GIT-BRANCH-WHENSELECTEDFN)))])
+               ITEMS ← BRANCHES
+               MENUFONT ← DEFAULTFONT
+               WHENSELECTEDFN ← (FUNCTION GIT-BRANCH-WHENSELECTEDFN)))])
 
 (GIT-BRANCH-WHENSELECTEDFN

   [LAMBDA (ITEM MENU BUTTON)
                                 (* ; "Edited  2-Oct-2025 23:08 by rmk")


@@ -1446,20 +1456,20 @@
             eachtime
 [SETQ DRAFT (EQ 'true (JSON-GET JSOBJ 'isDraft] when
 (OR INCLUDEDRAFTS
                                                                               (NOT DRAFT))
             collect
 [SETQ PR (create
 PULLREQUEST
-                                    PRNUMBER _ (JSON-GET JSOBJ 'number)
-                                    PRNAME _ (JSON-GET JSOBJ 'headRefName)
-                                    PRDESCRIPTION _ (JSON-GET JSOBJ 'title)
-                                    PRSTATUS _ (CL:IF DRAFT
+                                    PRNUMBER ← (JSON-GET JSOBJ 'number)
+                                    PRNAME ← (JSON-GET JSOBJ 'headRefName)
+                                    PRDESCRIPTION ← (JSON-GET JSOBJ 'title)
+                                    PRSTATUS ← (CL:IF DRAFT
                                                    'D
                                                    (SELECTQ (MKATOM (JSON-GET JSOBJ 'reviewDecision))
-                                                       (CHANGES¬REQUESTED 
+                                                       (CHANGES_REQUESTED 
                                                             'C)
-                                                       (REVIEW¬REQUIRED 
+                                                       (REVIEW_REQUIRED 
                                                             " ")
                                                        'A))
-                                    PRPROJECT _ PROJECT
-                                    PRURL _ (JSON-GET JSOBJ 'url)
-                                    PRLOGIN _ (JSON-GET JSOBJ '(headRepositoryOwner login]
+                                    PRPROJECT ← PROJECT
+                                    PRURL ← (JSON-GET JSOBJ 'url)
+                                    PRLOGIN ← (JSON-GET JSOBJ '(headRepositoryOwner login]
                   (CL:WHEN (STRPOS ":" (fetch
 (PULLREQUEST PRNAME) of
 PR))
 
                       (* ;; "From Nick:  Git commands to bring install and deal with the remotes:")

@@ -1510,8 +1520,8 @@
         (LET ((RELATIONS (GIT-BRANCH-RELATIONS
 (for
 PR in
 PRS
                                                   collect
 (GITORIGIN
 (fetch
 PRNAME of
 PR)))
                                 NIL T PROJECT)))
-             (SORT (for
 PR REL LABEL PRNAME STATUS (SUPERSETS _ (CAR RELATIONS))
-                        (EQUALS _ (CADR RELATIONS)) in
 PRS
+             (SORT (for
 PR REL LABEL PRNAME STATUS (SUPERSETS ← (CAR RELATIONS))
+                        (EQUALS ← (CADR RELATIONS)) in
 PRS
                       eachtime
 (SETQ PRNAME (fetch
 PRNAME of
 PR))
                             (SETQ LABEL (CONCAT "#" (fetch
 (PULLREQUEST PRNUMBER) of
 PR)
                                                " "
@@ -1558,15 +1568,33 @@
     (GIT-BRANCH-NUM
 (OR BRANCH (GIT-WHICH-BRANCH
 PROJECT T])
 
 (GIT-MY-NEXT-BRANCH

-  [LAMBDA (PROJECT)
                                          (* ; "Edited 19-May-2022 14:08 by rmk")


+  [LAMBDA (PROJECT)
                                          (* ; "Edited  2-Mar-2026 14:00 by rmk")


+                                                             (* ; "Edited 19-May-2022 14:08 by rmk")


                                                              (* ; "Edited  8-Jan-2022 09:43 by rmk")

 
     (* ;; "Figures out the number of my next incremental branch would be.  ")

 
     (PACK* (GIT-INITIALS
)
-           (ADD1 (OR (GIT-MY-BRANCHP
 (GIT-MY-CURRENT-BRANCH
 PROJECT)
-                            PROJECT)
-                     0])
+           (LET (PROJECTLIST PROJECTENTRY NEXTNUM)
+                (CL:WITH-OPEN-FILE (STRM "{LI}GIT-MY-CURRENT-BRANCH-NUMS;1" :DIRECTION :IO 
+                                         :IF-DOES-NOT-EXIST :CREATE :IF-EXISTS :OVERWRITE)
+                       (SETQ PROJECTLIST (CL:UNLESS (EQ 0 (GETEOFPTR STRM))
+                                                (READ STRM)))
+                       (SETQ PROJECTENTRY (ASSOC (GIT-GET-PROJECT
 PROJECT 'PROJECTNAME)
+                                                 PROJECTLIST))
+                       (CL:UNLESS PROJECTENTRY
+                           (SETQ PROJECTENTRY (LIST (GIT-GET-PROJECT
 PROJECT 'PROJECTNAME)
+                                                    (OR (GIT-MY-BRANCHP
 (GIT-MY-CURRENT-BRANCH
 
+                                                                               PROJECT)
+                                                               PROJECT)
+                                                        0)))
+                           (push
 PROJECTLIST PROJECTENTRY))
+                       (SETQ NEXTNUM (ADD1 (CADR PROJECTENTRY)))
+                       (RPLACA (CDR PROJECTENTRY)
+                              NEXTNUM)
+                       (SETFILEPTR STRM 0)
+                       (PRINT PROJECTLIST STRM)
+                       NEXTNUM])
 
 (GIT-MY-BRANCHES

   [LAMBDA (PROJECT EXCLUDEMERGED INITS)
                      (* ; "Edited 19-May-2022 19:10 by rmk")

@@ -1647,14 +1675,14 @@
          (CL:WHEN (STRPOS "fatal: " (CAR LINES)
                          1 NIL T)
                 (ERROR "Could not remove worktree for " BRANCH))
-                                                             (* (DELFILE (CONCAT PATH "/.DS_Store"))
+                                                             (* (DELFILE (CONCAT PATH "/.DS←Store"))
 
                                                             (GIT-COMMAND (CONCAT "rmdir " DIR) NIL 
 
                                                             NIL PROJECT))

          BRANCH])
 
 (GIT-LIST-WORKTREES

-  [LAMBDA NIL                                                (* ; "Edited 12-Dec-2021 12:13 by rmk")

-                                                             (* ; "Edited 19-Nov-2021 18:53 by rmk:")

+  [LAMBDA NIL
                                                (* ; "Edited 12-Dec-2021 12:13 by rmk")


+                                                            (* ; "Edited 19-Nov-2021 18:53 by rmk:")

 
     (* ;; "The git command tells us what the clone thinks about it, but then we look to see what is actually in our worktrees directory, to make sure that the subdirectory wasn't deleted in a wy that the clone didn't know about.")

 
@@ -1880,14 +1908,14 @@
 
                                                    (replace
 (CDENTRY INFO2) of
 CDE
                                                       with
 (create
 CDINFO
-                                                                  FULLNAME _ (CADR MAP)
-                                                                  DATE _ (CL:IF (EQ 'R (CADDR MAP))
+                                                                  FULLNAME ← (CADR MAP)
+                                                                  DATE ← (CL:IF (EQ 'R (CADDR MAP))
                                                                              " <-"
                                                                              " ==")
-                                                                  LENGTH _ ""
-                                                                  AUTHOR _ ""
-                                                                  TYPE _ ""
-                                                                  EOL _ ""))
+                                                                  LENGTH ← ""
+                                                                  AUTHOR ← ""
+                                                                  TYPE ← ""
+                                                                  EOL ← ""))
                                                    (replace
 (CDENTRY DATEREL) of
 CDE
                                                       with
 (CADDR MAP]
                   (TERPRI T)
@@ -1957,10 +1985,10 @@
                             then
 (SETQ SUBDIRS (ALLSUBDIRS
 PROJECT))
                                  "ALL subdirectories"
                           else
 SUBDIRS)))
-         (for
 SUBDIR TITLE CDVAL (WPROJ _ (CONCAT "Working " (L-CASE (fetch
 PROJECTNAME of
 PROJECT)
+         (for
 SUBDIR TITLE CDVAL (WPROJ ← (CONCAT "Working " (L-CASE (fetch
 PROJECTNAME of
 PROJECT)
                                                                     T)))
-              (NENTRIES _ 0)
-              (BRANCH2 _ (GIT-WHICH-BRANCH
 PROJECT T))
+              (NENTRIES ← 0)
+              (BRANCH2 ← (GIT-WHICH-BRANCH
 PROJECT T))
             first
 (PRINTOUT T "Comparing " SUBDIRSTRING 6 " of " WPROJ " and Git " BRANCH2 T)
                   (BKSYSBUF " ") inside
 SUBDIRS
             collect
 (TERPRI T)
@@ -2132,12 +2160,12 @@
                                            NIL]
          (CL:WHEN (OR COPYITEM COMPAREITEMS)
              (SELECTQ (MENU (CREATE
 MENU
-                                   TITLE _ (CONCAT (WINDOWPROP WINDOW 'SUBDIR)
+                                   TITLE ← (CONCAT (WINDOWPROP WINDOW 'SUBDIR)
                                                   "/"
                                                   (FETCH
 MATCHNAME OF
 CDENTRY))
-                                   ITEMS _ (APPEND COPYITEM COMPAREITEMS)
-                                   MENUFONT _ FONT
-                                   MENUTITLEFONT _ FONT))
+                                   ITEMS ← (APPEND COPYITEM COMPAREITEMS)
+                                   MENUFONT ← FONT
+                                   MENUTITLEFONT ← FONT))
                  (TOGIT (CL:WHEN (TOGIT
 (FETCH
 (CDINFO FULLNAME) OF
 INFO1)
                                         WINDOW)
                             (IMAGEOBJPROP OBJ 'COPIED T)
@@ -2162,18 +2190,18 @@
                  NIL)))])
 
 (GIT-CD-LABELFN

-  [LAMBDA (FILE1 FILE2 USERDATA)                             (* ; "Edited  5-Jan-2022 15:10 by rmk")

-                                                             (* ; "Edited 16-Dec-2021 12:25 by rmk")

+  [LAMBDA (FILE1 FILE2 USERDATA)
                             (* ; "Edited  5-Jan-2022 15:10 by rmk")


+                                                             (* ; "Edited 16-Dec-2021 12:25 by rmk")


                                                              (* ; "Edited 13-Dec-2021 22:13 by rmk")

     (DECLARE
 (USEDFREE CDVALUE))
     (LET (NC B LABEL1 LABEL2)
          (CL:WHEN (SETQ NC (FETCH
 NCDIR OF
 (FETCH
 CDMAXNC1 OF
 CDVALUE)))
-             (SETQ LABEL1 (SLASHIT
 (SUBSTRING FILE1 (ADD1 NC))
+             (SETQ LABEL1 (SLASHIT (SUBSTRING FILE1 (ADD1 NC))
                                  T))
              (CL:WHEN (SETQ B (LISTGET USERDATA 'BRANCH1))
                  (SETQ LABEL1 (CONCAT B "/" LABEL1))))
          (CL:WHEN (SETQ NC (FETCH
 NCDIR OF
 (FETCH
 CDMAXNC2 OF
 CDVALUE)))
-             (SETQ LABEL2 (SLASHIT
 (SUBSTRING FILE2 (ADD1 NC))
+             (SETQ LABEL2 (SLASHIT (SUBSTRING FILE2 (ADD1 NC))
                                  T))
              (CL:WHEN (SETQ B (LISTGET USERDATA 'BRANCH2))
                  (SETQ LABEL2 (CONCAT B "/" LABEL2))))
@@ -2367,15 +2395,15 @@
                  NIL])
 
 (GIT-RESULT-TO-LINES

-  [LAMBDA (FILE ALL)
                                         (* ; "Edited 31-Mar-2025 15:19 by rmk")


+  [LAMBDA (FILE ALL)
                                         (* ; "Edited 25-Feb-2026 23:24 by rmk")


+                                                             (* ; "Edited 31-Mar-2025 15:19 by rmk")


                                                              (* ; "Edited 16-Jul-2022 22:21 by rmk")

 
     (* ;; "Suppress .git lines unless ALL  SYSTEM-EXTERNALFORMAT may make the wrong guess, but at least we ensure here that lines get broken.")

 
     (CL:WITH-OPEN-FILE (STREAM FILE :DIRECTION :INPUT :EXTERNAL-FORMAT (LIST (SYSTEM-EXTERNALFORMAT)
                                                                              'ANY))
-           (bind
 LINE until
 (EOFP STREAM) when
 [PROGN (SETQ LINE (CL:READ-LINE STREAM :EOF-ERROR-P 
-                                                                        NIL :EOF-VALUE NIL))
+           (bind
 LINE until
 (EOFP STREAM) when
 [PROGN (SETQ LINE (CL:READ-LINE STREAM NIL))
                                                       (OR ALL (NOT (STRPOS ".git" LINE 1]
               collect
 LINE])
 
@@ -2394,32 +2422,33 @@
 
 (PUTPROPS GITFNS
 FILETYPE
 :TCOMPL)
 (DECLARE%: DONTCOPY
-  (FILEMAP (NIL (4196 21002 (GIT-CLONEP 4206 . 5637) (GIT-INIT 5639 . 6269) (GIT-MAKE-PROJECT 6271 . 
-14060) (GIT-GET-PROJECT 14062 . 15987) (GIT-PUT-PROJECT-FIELD 15989 . 17630) (GIT-PROJECT-PATH 17632
- . 18676) (FIND-ANCESTOR-DIRECTORY 18678 . 19027) (GIT-FIND-CLONE 19029 . 20110) (GIT-MAINBRANCH 20112
- . 20507) (GIT-MAINBRANCH? 20509 . 21000)) (26465 31394 (PRC-COMMAND 26475 . 31392)) (31450 34238 (
-ALLSUBDIRS 31460 . 32746) (MEDLEYSUBDIRS 32748 . 33441) (GITSUBDIRS 33443 . 34236)) (34239 36640 (
-TOGIT 34249 . 35655) (FROMGIT 35657 . 36638)) (36641 39644 (MYMEDLEYSUBDIR 36651 . 37107) (GITSUBDIR 
-37109 . 37552) (STRIPDIR 37554 . 37925) (STRIPHOST 37927 . 38167) (STRIPNAME 38169 . 38922) (
-STRIPWHERE 38924 . 39642)) (39645 41880 (GFILE4MFILE 39655 . 40351) (MFILE4GFILE 40353 . 40922) (
-GIT-REPO-FILENAME 40924 . 41878)) (41929 52184 (GIT-COMMIT 41939 . 42765) (GIT-PUSH 42767 . 43527) (
-GIT-PULL 43529 . 44281) (GIT-APPROVAL 44283 . 44632) (GIT-GET-FILE 44634 . 46549) (GIT-FILE-EXISTS? 
-46551 . 46825) (GIT-REMOTE-UPDATE 46827 . 47662) (GIT-REMOTE-ADD 47664 . 47971) (GIT-FILE-DATE 47973
- . 49020) (GIT-FILE-HISTORY 49022 . 50956) (GIT-PRINT-FILE-HISTORY 50958 . 52008) (GIT-FETCH 52010 . 
-52182)) (52214 63694 (GIT-BRANCH-DIFF 52224 . 59113) (GIT-COMMIT-DIFFS 59115 . 60006) (
-GIT-BRANCH-RELATIONS 60008 . 63692)) (63739 82478 (GIT-BRANCH-NUM 63749 . 64322) (GIT-CHECKOUT 64324
- . 65610) (GIT-WHICH-BRANCH 65612 . 66019) (GIT-MAKE-BRANCH 66021 . 68600) (GIT-BRANCHES 68602 . 71197
-) (GIT-BRANCH-EXISTS? 71199 . 72070) (GIT-PICK-BRANCH 72072 . 72562) (GIT-BRANCH-MENU 72564 . 73445) (
-GIT-BRANCH-WHENSELECTEDFN 73447 . 74986) (GIT-PULL-REQUESTS 74988 . 78859) (GIT-SHORT-BRANCH-NAME 
-78861 . 79152) (GIT-LONG-NAME 79154 . 79471) (GIT-PRC-BRANCHES 79473 . 82476)) (82508 85956 (
-GIT-MY-CURRENT-BRANCH 82518 . 82888) (GIT-MY-BRANCHP 82890 . 83508) (GIT-MY-NEXT-BRANCH 83510 . 84004)
- (GIT-MY-BRANCHES 84006 . 85954)) (86002 90077 (GIT-ADD-WORKTREE 86012 . 87619) (GIT-REMOVE-WORKTREE 
-87621 . 88551) (GIT-LIST-WORKTREES 88553 . 89357) (WORKTREEDIR 89359 . 90075)) (90125 123133 (
-GIT-GET-DIFFERENT-FILES 90135 . 97043) (GIT-BRANCHES-COMPARE-DIRECTORIES 97045 . 104672) (
-GIT-WORKING-COMPARE-DIRECTORIES 104674 . 110470) (GIT-COMPARE-WORKTREE 110472 . 114450) (
-GITCDOBJBUTTONFN 114452 . 118942) (GIT-CD-LABELFN 118944 . 120026) (GIT-CD-MENUFN 120028 . 121114) (
-GIT-WORKING-COMPARE-FILES 121116 . 121736) (GIT-BRANCHES-COMPARE-FILES 121738 . 122902) (
-GIT-PR-COMPARE 122904 . 123131)) (123203 131526 (CDGITDIR 123213 . 123900) (GIT-COMMAND 123902 . 
-125460) (GITORIGIN 125462 . 126159) (GIT-INITIALS 126161 . 126465) (GIT-COMMAND-TO-FILE 126467 . 
-129952) (GIT-RESULT-TO-LINES 129954 . 130859) (STRIPLOCAL 130861 . 131524)))))
+  (FILEMAP (NIL (4178 21056 (GIT-CLONEP 4188 . 5619) (GIT-INIT 5621 . 6251) (GIT-MAKE-PROJECT 6253 . 
+14110) (GIT-GET-PROJECT 14112 . 16037) (GIT-PUT-PROJECT-FIELD 16039 . 17680) (GIT-PROJECT-PATH 17682
+ . 18726) (FIND-ANCESTOR-DIRECTORY 18728 . 19079) (GIT-FIND-CLONE 19081 . 20164) (GIT-MAINBRANCH 20166
+ . 20561) (GIT-MAINBRANCH? 20563 . 21054)) (26519 31448 (PRC-COMMAND 26529 . 31446)) (31504 34292 (
+ALLSUBDIRS 31514 . 32800) (MEDLEYSUBDIRS 32802 . 33495) (GITSUBDIRS 33497 . 34290)) (34293 36698 (
+TOGIT 34303 . 35711) (FROMGIT 35713 . 36696)) (36699 39709 (MYMEDLEYSUBDIR 36709 . 37165) (GITSUBDIR 
+37167 . 37610) (STRIPDIR 37612 . 37990) (STRIPHOST 37992 . 38232) (STRIPNAME 38234 . 38987) (
+STRIPWHERE 38989 . 39707)) (39710 41945 (GFILE4MFILE 39720 . 40416) (MFILE4GFILE 40418 . 40987) (
+GIT-REPO-FILENAME 40989 . 41943)) (41994 52251 (GIT-COMMIT 42004 . 42830) (GIT-PUSH 42832 . 43592) (
+GIT-PULL 43594 . 44346) (GIT-APPROVAL 44348 . 44697) (GIT-GET-FILE 44699 . 46614) (GIT-FILE-EXISTS? 
+46616 . 46890) (GIT-REMOTE-UPDATE 46892 . 47727) (GIT-REMOTE-ADD 47729 . 48036) (GIT-FILE-DATE 48038
+ . 49085) (GIT-FILE-HISTORY 49087 . 51021) (GIT-PRINT-FILE-HISTORY 51023 . 52075) (GIT-FETCH 52077 . 
+52249)) (52281 64233 (GIT-BRANCH-DIFF 52291 . 59180) (GIT-COMMIT-DIFFS 59182 . 60073) (
+GIT-BRANCH-RELATIONS 60075 . 63759) (GIT-MODIFIED 63761 . 64231)) (64278 83045 (GIT-BRANCH-NUM 64288
+ . 64861) (GIT-CHECKOUT 64863 . 66149) (GIT-WHICH-BRANCH 66151 . 66558) (GIT-MAKE-BRANCH 66560 . 69139
+) (GIT-BRANCHES 69141 . 71738) (GIT-BRANCH-EXISTS? 71740 . 72611) (GIT-PICK-BRANCH 72613 . 73103) (
+GIT-BRANCH-MENU 73105 . 73994) (GIT-BRANCH-WHENSELECTEDFN 73996 . 75535) (GIT-PULL-REQUESTS 75537 . 
+79422) (GIT-SHORT-BRANCH-NAME 79424 . 79715) (GIT-LONG-NAME 79717 . 80034) (GIT-PRC-BRANCHES 80036 . 
+83043)) (83075 87829 (GIT-MY-CURRENT-BRANCH 83085 . 83455) (GIT-MY-BRANCHP 83457 . 84075) (
+GIT-MY-NEXT-BRANCH 84077 . 85877) (GIT-MY-BRANCHES 85879 . 87827)) (87875 91959 (GIT-ADD-WORKTREE 
+87885 . 89492) (GIT-REMOVE-WORKTREE 89494 . 90426) (GIT-LIST-WORKTREES 90428 . 91239) (WORKTREEDIR 
+91241 . 91957)) (92007 125045 (GIT-GET-DIFFERENT-FILES 92017 . 98925) (
+GIT-BRANCHES-COMPARE-DIRECTORIES 98927 . 106566) (GIT-WORKING-COMPARE-DIRECTORIES 106568 . 112370) (
+GIT-COMPARE-WORKTREE 112372 . 116350) (GITCDOBJBUTTONFN 116352 . 120850) (GIT-CD-LABELFN 120852 . 
+121938) (GIT-CD-MENUFN 121940 . 123026) (GIT-WORKING-COMPARE-FILES 123028 . 123648) (
+GIT-BRANCHES-COMPARE-FILES 123650 . 124814) (GIT-PR-COMPARE 124816 . 125043)) (125115 133446 (CDGITDIR
+ 125125 . 125812) (GIT-COMMAND 125814 . 127372) (GITORIGIN 127374 . 128071) (GIT-INITIALS 128073 . 
+128377) (GIT-COMMAND-TO-FILE 128379 . 131864) (GIT-RESULT-TO-LINES 131866 . 132779) (STRIPLOCAL 132781
+ . 133444)))))
 STOP

scripts/make-gh-pages.md

@@ -5,18 +5,20 @@ HCFILES writes in {MEDLEYDIR} but it should write in something like (SRCDIR)
 
 ## Remove extraneous files
 
-There are lots of ways to get there but basically set up the execution environment with everything clean but notecards loops, test are copied in. If you don't make fresh, at least 'git clean'.
+There are lots of ways to get there but basically set up the execution environment with everything clean. If you don't make fresh, at least 'git clean'.
 
 ```
-gh repo clone interlisp/medley
-gh repo clone interlisp/notecards
-gh repo clone interlisp/loops
-gh repo clone interlisp/test
-
-cp -r notecards loops test medley
-rm -rf notecards/.git loops/.git test/.git
+git clone --recurse-submodules https://github.com/Interlisp/medley
 ```
 
+Or, if you already have a clone:
+
+```
+git submodule update --init --recursive
+```
+
+This will populate notecards, loops, test (and maiko) inside the medley directory.
+
 # making the .pdfs and index.html files
 
 ## best start with a fresh loadup
@@ -62,6 +64,5 @@ after you've done this, you can clean up (from the medley folder):
 ```
 find . -iname "*.pdf" -exec rm {} \;
 git remote set-url --push https://github.com/Interlisp/medley
-rm -rf loops notecards test
 ```