Add function (ShellWget URL OUTFILE) that calls the shell to execute 'wget URL -O OUTFILE'. No checking is done on the URL.

prc status is C if changes requested, prc comparison runs in its own process, initial changes for gwc to treat the clone as UNIX, not DSK, so branch-switching doesn't cause files from other branches to pile up.

* COMPAREDIRECTORIES: don't fail on empty directory

* Bug in slashit

* gwc copies to UNIX--doesn't track Medley version numbers when it copies to the clone

.github/workflows/doHCFILES.yml

@@ -52,6 +52,12 @@ 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:
@@ -79,6 +85,7 @@ jobs:
                               --repo ${{ github.repository_owner }}/maiko \
                               --pattern '*-linux.x86_64.tgz'
           tar -xzf /tmp/maiko.tgz
+          touch ./maiko/linux.x86_64/.skip
         env:
           GH_TOKEN: ${{ secrets.MU_TOKEN }}
 

.gitignore

@@ -13,11 +13,9 @@ maiko/
 # normally when you have derived files, you ignore them from git
 # because they will get regenerated when you rebuild.
 # MEDLEY-UTILS HCFILES regenerates
-
-# do not ignore .pdf files after all... rather, [new workflow](scripts/make-gh-pages.md) stores it in the src repository gh-pages branch.
-
-# *.pdf
-# index.html
+# index.html files are also produced by HCFILES
+*.pdf
+index.html
 
 
 # all loadup files 
@@ -32,6 +30,10 @@ loadups/*.dribble
 loadups/whereis.hash
 loadups/apps.sysout
 loadups/fuller.database
+loadups/build/
+loadups/branches
+loadups/gitinfo
+
 
 # manual cross-reference files
 

CONTRIBUTING.md

@@ -3,7 +3,7 @@
 First, we want to thank you for helping reach the goal of restoring Medley Interlisp
 to the point where it is as useful today as it was 30 years ago.
 
-This guide is meant to help you make useful contributions, whether to the [Maiko](https://github.com/Interlisp/maiko) C-based virtual machine implementation, the [Medley](https://github.com/Interlisp/medley) Lisp code (in Interlisp and Common Lisp), or [documentation](https://github.com/Interlisp/medley/wiki). There are a number of [GitHub](https://github.com/Interlisp/medley/discussions/categories/github-use) problems that could use some attention.
+This guide is meant to help you make useful contributions, whether to the [Maiko](https://github.com/Interlisp/maiko) C-based virtual machine implementation, the [Medley](https://github.com/Interlisp/medley) Lisp code (in Interlisp and Common Lisp), or [documentation](https://interlisp.org/software/using-medley). There are a number of [GitHub](https://github.com/Interlisp/medley/discussions/categories/github-use) problems that could use some attention.
 
 ## Working with Maiko
 
@@ -17,6 +17,8 @@ The current arrangement of files and extentions is awkward for working on the im
 * The most useful contributions are reproducible errors -- things that don't work as documented.
 * Second most useful are reports of unexpected behavior -- things that aren't documented but behave unexpectedly.
 
+To report these errors and behaviors [open an issue](https://github.com/Interlisp/medley/issues).
+
 ## Reporting a bug or feature request
 * Ensure the bug was not already reported by searching on GitHub under [Issues](https://github.com/Interlisp/medley/issues) or [Discussions](https://github.com/Interlisp/medley/discussions). Note that all issues and Discussions are found in the Medley repository, using labels to distinguish. Discussions are for questions or topics where there is some disagreement or uncertainty about the "right" direction.
 * If you're unable to find a discussion or open issue addressing the problem, open a new one. Be sure to include a title 
@@ -24,7 +26,7 @@ and clear description, as much relevant information as possible. Use the issue t
 
 ## Did you write a patch that fixes a bug?  
 * Some bug fixes and "improvements" have unintended consequences, well beyond what you might expect for well-written modern code. We don't have testing new builds automated or integrated. Be sure you've tested your patch.
-* Open a new [GitHub pull request](https://github.com/Interlisp/maiko/pulls) with the patch.
+* Open a new GitHub pull request with the patch.
 * Ensure the PR description clearly describes the problem and solution. Include the relevant issue number if applicable.
 * Keep Pull Requests small and easily reviewable.  https://www.thedroidsonroids.com/blog/splitting-pull-request for
 a writeup of good practices.

clos/NEW-CLOS-BROWSER

@@ -1,18 +1,18 @@
-(DEFINE-FILE-INFO PACKAGE (PROGN (DEFPACKAGE "CLOS-BROWSER" (USE "CLOS") (EXPORT "CLOS-ICON" 
-"CLOS-BROWSER" "ADD-BROWSER-METHOD" "BROWSE-CLASS")) (CLFIND-PACKAGE "USER")) READTABLE "XCL" BASE 
-10)
+(DEFINE-FILE-INFO PACKAGE (PROGN (DEFPACKAGE "CLOS-BROWSER" (USE "CLOS" "LISP") (EXPORT "CLOS-ICON"
+ "CLOS-BROWSER" "ADD-BROWSER-METHOD" "BROWSE-CLASS")) (CLFIND-PACKAGE "USER")) READTABLE "XCL" BASE
+ 10)
 
-
(IL:FILECREATED " 5-Dec-2023 12:07:41" IL:{CLOS}NEW-CLOS-BROWSER.\;3
 91622  
+
(IL:FILECREATED "28-Apr-2025 18:32:38" 
+IL:|{DSK}<Users>arunwelch>DOCUMENTS>MEDLEY-WORKSPACE>RELEASE>NEW-CLOS-BROWSER.;4|
 91934  
 
-      :EDIT-BY "mth"
+      :EDIT-BY "akw"
 
       :CHANGES-TO (IL:PROPS (IL:NEW-CLOS-BROWSER IL:MAKEFILE-ENVIRONMENT))
 
-      :PREVIOUS-DATE " 5-Dec-2023 00:58:05" IL:{CLOS}NEW-CLOS-BROWSER.\;2)
+      :PREVIOUS-DATE "26-Apr-2025 17:16:46" 
+IL:|{DSK}<Users>arunwelch>DOCUMENTS>MEDLEY-WORKSPACE>RELEASE>NEW-CLOS-BROWSER.;3|)
 
 
-; Copyright (c) 1991, 2020, 2023 by Venue.
-
 (IL:PRETTYCOMPRINT IL:NEW-CLOS-BROWSERCOMS)
 
 (IL:RPAQQ IL:NEW-CLOS-BROWSERCOMS

@@ -275,7 +275,7 @@
 
 (IL:PUTPROPS IL:NEW-CLOS-BROWSER
 IL:MAKEFILE-ENVIRONMENT
 (:PACKAGE (PROGN (XCL:DEFPACKAGE
                                                                            "CLOS-BROWSER"
-                                                                           (:USE "CLOS")
+                                                                           (:USE "CLOS" "LISP")
                                                                            (:EXPORT "CLOS-ICON" 
                                                                                   "CLOS-BROWSER" 
                                                                                  "ADD-BROWSER-METHOD"
@@ -1159,9 +1159,14 @@ Below this line operates on individual slots and methods."
    (DOCUMENTATION (SLOT-VALUE CLOS-BROWSER::SELF 'CLOS-BROWSER::CLASS)))
 
 (DEFMETHOD CLOS-BROWSER::PRINT-CLASS
 ((CLOS-BROWSER::SELF CLOS-BROWSER::CLOS-BROWSER-NODE))
-   (PPRINT (IL:GETDEF (SLOT-VALUE (SLOT-VALUE CLOS-BROWSER::SELF `CLOS-BROWSER::CLASS)
-                             'CLOS::NAME)
-                  'CLOS-BROWSER::CLASSES)))
+   (IF (IL:HASDEF (SLOT-VALUE (SLOT-VALUE CLOS-BROWSER::SELF 'CLOS-BROWSER::CLASS)
+                         'CLOS::NAME)
+              'CLOS-BROWSER::CLASSES)
+       (PPRINT (IL:GETDEF (SLOT-VALUE (SLOT-VALUE CLOS-BROWSER::SELF `CLOS-BROWSER::CLASS)
+                                 'CLOS::NAME)
+                      'CLOS-BROWSER::CLASSES))
+       (IL:PROMPTPRINT "No Printable Definition for the class " (SLOT-VALUE CLOS-BROWSER::SELF
+                                                                       'WEB::NAME))))
 
 (DEFMETHOD CLOS-BROWSER::SPECIALIZE-CLASS
 ((CLOS-BROWSER::NODE CLOS-BROWSER::CLOS-BROWSER-NODE)
                                            &OPTIONAL CLOS-BROWSER::FORM CLOS-BROWSER::NEW-CLASS-NAME)
@@ -1211,7 +1216,8 @@ Below this line operates on individual slots and methods."
                                            (RETURN))))))
                    (IL:SETCURSOR CLOS-BROWSER::ORIGINALCURSOR))))))
 
-(DEFUN CLOS-BROWSER::LYRIC-COMPLETE-SPECIALIZE
 (IGNORE STRUCTURE)
+(DEFUN CLOS-BROWSER::LYRIC-COMPLETE-SPECIALIZE
 (IGNORE STRUCTURE)

+                                                  (IL:* IL:\; "Edited 26-Apr-2025 14:31 by arunwelch")

    (LET ((CLOS-BROWSER::ORIGINALCURSOR (IL:CURSOR)))
         (UNWIND-PROTECT
             (PROGN (IL:SETCURSOR IL:WAITINGCURSOR)
@@ -1224,8 +1230,7 @@ Below this line operates on individual slots and methods."
                         (IL:* IL:|;;| "check for bug")

 
                         (WHEN (SYMBOLP CLOS-BROWSER::SUB-CLASS)
-                            (SETQ CLOS-BROWSER::SUB-CLASS (CLOS::SYMBOL-CLASS CLOS-BROWSER::SUB-CLASS
-                                                                 )))
+                            (SETQ CLOS-BROWSER::SUB-CLASS (FIND-CLASS CLOS-BROWSER::SUB-CLASS)))
                         (DOLIST (CLOS-BROWSER::BROWSER (SLOT-VALUE CLOS-BROWSER:CLOS-ICON
                                                               'CLOS-BROWSER::CLASS-BROWSERS))
                             (DOLIST (CLOS-BROWSER::SUPER-CLASS (SLOT-VALUE CLOS-BROWSER::SUB-CLASS
@@ -1387,14 +1392,12 @@ Below this line operates on individual slots and methods."
                 (0 (FORMAT T "Unspecialized methods cannot be copied. ~A" (CLOS::FULL-METHOD-NAME
                                                                            CLOS-BROWSER::METHOD NIL)))
                 (1 (SETQ CLOS-BROWSER::FROM-CLASS (CAR CLOS-BROWSER::NON-T-CLASSES)))
-                (OTHERWISE (SETQ CLOS-BROWSER::FROM-CLASS (CLOS::SYMBOL-CLASS
-                                                           (IL:PROMPTFORWORD (FORMAT NIL 
+                (OTHERWISE (SETQ CLOS-BROWSER::FROM-CLASS (FIND-CLASS (IL:PROMPTFORWORD
+                                                                       (FORMAT NIL 
                                                         "Which class in ~A do you wish to move from?"
-                                                                                    (
-                                                                               CLOS::FULL-METHOD-NAME
-                                                                                     
-                                                                                 CLOS-BROWSER::METHOD
-                                                                                     NIL))))))))
+                                                                              (CLOS::FULL-METHOD-NAME
+                                                                               CLOS-BROWSER::METHOD 
+                                                                               NIL))))))))
 
         (IL:* IL:|;;| "should contain from-class.  If it is not the same, abort.")

 
@@ -1465,7 +1468,7 @@ Below this line operates on individual slots and methods."
 
      "fix bug in the inconsistent way CLOS objects store T class specializers and do method lookup.")

 
                        (WHEN (EQ CLOS-BROWSER::CLASS T)
-                           (SETQ CLOS-BROWSER::CLASS (CLOS::SYMBOL-CLASS T)))
+                           (SETQ CLOS-BROWSER::CLASS (FIND-CLASS T)))
                        (LET ((CLOS-BROWSER::NODE (CLOS-BROWSER::BROWSER-CONTAINS-P
 
                                                         CLOS-BROWSER::CLASS CLOS-BROWSER::BROWSER)))
                             (WHEN CLOS-BROWSER::NODE
@@ -1582,7 +1585,8 @@ Below this line operates on individual slots and methods."
         (IL:|if|
 PACKAGE
             IL:|then|
 (IN-PACKAGE PACKAGE))))
 
-(DEFUN CLOS-BROWSER::CLASSES-IN-PACKAGE
 (PACKAGE &OPTIONAL CLOS-BROWSER::MAP-ON-PACKAGE)
+(DEFUN CLOS-BROWSER::CLASSES-IN-PACKAGE
 (PACKAGE &OPTIONAL CLOS-BROWSER::MAP-ON-PACKAGE)

+                                                  (IL:* IL:\; "Edited 26-Apr-2025 14:25 by arunwelch")

    "Retrieves a list of all the classes for a given package.  When map-on-package is t this can be very slow."
 
    (IL:* IL:|;;| "The maphash is always fast, whereas for some strange reason map-on-package varys among packages greatly.")

@@ -1594,7 +1598,7 @@ Below this line operates on individual slots and methods."
             (DO-SYMBOLS (CLOS-BROWSER::SYM PACKAGE)
                    (IF (AND (EQ (SYMBOL-PACKAGE CLOS-BROWSER::SYM)
                                 PACKAGE)
-                            (CLOS::SYMBOL-CLASS CLOS-BROWSER::SYM T))
+                            (FIND-CLASS CLOS-BROWSER::SYM T))
                        (PUSH CLOS-BROWSER::SYM CLOS-BROWSER::CLASSES)))
             (MAPHASH #'(LAMBDA (CLOS-BROWSER::KEY CLOS-BROWSER::VAL)
                               (IF (EQ (SYMBOL-PACKAGE CLOS-BROWSER::KEY)
@@ -1623,17 +1627,16 @@ Below this line operates on individual slots and methods."
       IL:|BackgroundMenuCommands|)
 
 (SETQ IL:|BackgroundMenu| NIL)
-(IL:PUTPROPS IL:NEW-CLOS-BROWSER IL:COPYRIGHT ("Venue" 1991 2020 2023))
 (IL:DECLARE\: IL:DONTCOPY
-  (IL:FILEMAP (NIL (11770 13440 (CLOS-BROWSER:BROWSE-CLASS 11770 . 13440)) (13442 14785 (
-CLOS-BROWSER::COLLECT-FAMILY 13442 . 14785)) (14787 16819 (CLOS-BROWSER::MAKE-NODES 14787 . 16819)) (
-16821 17496 (CLOS-BROWSER::CLOS-BROWSER-CLOSE-FN 16821 . 17496)) (17498 18430 (CLOS-BROWSER::BROWSER-CONTAINS-P
- 17498 . 18430)) (42263 42587 (CLOS-BROWSER::EDIT 42263 . 42587)) (42589 48183 (
-CLOS-BROWSER::MAKE-METHOD-MENU-ITEMS 42589 . 48183)) (48185 49663 (CLOS-BROWSER::MAKE-TOP-LEVEL-METHOD-MENU-ITEMS
- 48185 . 49663)) (49665 50955 (CLOS-BROWSER::MAKE-MULTI-METHOD-SUB-MENU 49665 . 50955)) (64981 65598 (
-CLOS-BROWSER::COMPLETE-ADD-METHOD 64981 . 65598)) (65600 67812 (CLOS-BROWSER::COMPLETE-SPECIALIZE 
-65600 . 67812)) (67814 69482 (CLOS-BROWSER::LYRIC-COMPLETE-SPECIALIZE 67814 . 69482)) (69484 69649 (
-CLOS-BROWSER::THIS-CLASS-NODE-P 69484 . 69649)) (69651 69753 (CLOS::CLASS-DIRECT-METHODS 69651 . 69753
-)) (86457 87472 (CLOS-BROWSER::REPLACE-SPECIALIZERS 86457 . 87472)) (87783 89367 (CLOS-BROWSER::IN-SELECT-PACKAGE
- 87783 . 89367)) (89369 90516 (CLOS-BROWSER::CLASSES-IN-PACKAGE 89369 . 90516)))))
+  (IL:FILEMAP (NIL (11846 13516 (CLOS-BROWSER:BROWSE-CLASS 11846 . 13516)) (13518 14861 (
+CLOS-BROWSER::COLLECT-FAMILY 13518 . 14861)) (14863 16895 (CLOS-BROWSER::MAKE-NODES 14863 . 16895)) (
+16897 17572 (CLOS-BROWSER::CLOS-BROWSER-CLOSE-FN 16897 . 17572)) (17574 18506 (CLOS-BROWSER::BROWSER-CONTAINS-P
+ 17574 . 18506)) (42339 42663 (CLOS-BROWSER::EDIT 42339 . 42663)) (42665 48259 (
+CLOS-BROWSER::MAKE-METHOD-MENU-ITEMS 42665 . 48259)) (48261 49739 (CLOS-BROWSER::MAKE-TOP-LEVEL-METHOD-MENU-ITEMS
+ 48261 . 49739)) (49741 51031 (CLOS-BROWSER::MAKE-MULTI-METHOD-SUB-MENU 49741 . 51031)) (65408 66025 (
+CLOS-BROWSER::COMPLETE-ADD-METHOD 65408 . 66025)) (66027 68239 (CLOS-BROWSER::COMPLETE-SPECIALIZE 
+66027 . 68239)) (68241 69946 (CLOS-BROWSER::LYRIC-COMPLETE-SPECIALIZE 68241 . 69946)) (69948 70113 (
+CLOS-BROWSER::THIS-CLASS-NODE-P 69948 . 70113)) (70115 70217 (CLOS::CLASS-DIRECT-METHODS 70115 . 70217
+)) (86738 87753 (CLOS-BROWSER::REPLACE-SPECIALIZERS 86738 . 87753)) (88064 89648 (CLOS-BROWSER::IN-SELECT-PACKAGE
+ 88064 . 89648)) (89650 90900 (CLOS-BROWSER::CLASSES-IN-PACKAGE 89650 . 90900)))))
 IL:STOP

docs/man-page/man_medley.html

@@ -20,9 +20,10 @@ invocation of medley.</p>
 <dd>
 <p>Prints out a brief summary of the flags and arguments to medley.</p>
 </dd>
-<dt>-z, --man</dt>
+<dt>-z [+], --man [+]</dt>
 <dd>
-<p>Show the man page for medley</p>
+<p>Show the man page for medley. If the <strong>+</strong> parameter is
+specified, then no pager is used when displaying the man page.</p>
 </dd>
 <dt>-c [<em>FILE</em> | -], --config [<em>FILE</em> | -]</dt>
 <dd>
@@ -101,7 +102,7 @@ virtual display.</p>
 <dt>-g [<em>WxH</em> | -], --geometry [<em>WxH</em> | -]</dt>
 <dd>
 <p>Sets the size of the X Window (or VNC window) that Medley runs in to
-be Width x Height. (Full X Windows geomtery specification with +X+Y is
+be Width x Height. (Full X Windows geometry specification with +X+Y is
 not currently supported).</p>
 <p>If a value of “-” is given, geometry is set to the default value.</p>
 <p>If --geometry is not specified but --screensize is, then the window
@@ -284,6 +285,25 @@ environment variable LDEREPEATCM.</p>
 <p>On Windows/Cygwin installations, <em>FILE</em> is specified in the
 Medley file system, not the host Windows file system.</p>
 </dd>
+<dt>-am, –automation</dt>
+<dd>
+<p>Useful only when using –vnc (and always on WSL1). When calling medley
+as part of an automation script, often Medley will run for a very short
+time (&lt; a couple of seconds). This can cause issues with medley code
+that detects Xvnc server failures. Setting this flag notifies Medley
+that very short Medley sessions are possible and the Xvnc error
+detection needs to be adjusted accordingly.</p>
+</dd>
+<dt>-tg [<em>TAG</em> | -], --tag [<em>TAG</em> | -]</dt>
+<dd>
+<p>By default, sysout files are loaded from the MEDLEYDIR/loadups
+directory. If “--tag <em>TAG</em>” is specified, then by default sysout
+files are loaded from the MEDLEYDIR/loadups/tagged/TAG directory. The
+sysouts in these directories are created using a loadups script with the
+--tag flag set. See the loadup man page. If <em>TAG</em> is “-”, then
+the name of the active git branch for MEDLEYDIR (if any) is used as
+<em>TAG</em>.</p>
+</dd>
 </dl>
 <h2>Other Options</h2>
 <dl>

docs/man-page/medley.1

@@ -45,8 +45,10 @@ hence MEDLEYDIR is computed on each invocation of medley.
 -h, --help
 Prints out a brief summary of the flags and arguments to medley.
 .TP
--z, --man
-Show the man page for medley
+-z [+], --man [+]
+Show the man page for medley.
+If the \f[B]+\f[R] parameter is specified, then no pager is used when
+displaying the man page.
 .TP
 -c [\f[I]FILE\f[R] | -], --config [\f[I]FILE\f[R] | -]
 Use \f[I]FILE\f[R] as the config file for this run of Medley.
@@ -151,7 +153,7 @@ virtual display.
 -g [\f[I]WxH\f[R] | -], --geometry [\f[I]WxH\f[R] | -]
 Sets the size of the X Window (or VNC window) that Medley runs in to be
 Width x Height.
-(Full X Windows geomtery specification with +X+Y is not currently
+(Full X Windows geometry specification with +X+Y is not currently
 supported).
 .RS
 .PP
@@ -386,6 +388,26 @@ environment variable LDEREPEATCM.
 On Windows/Cygwin installations, \f[I]FILE\f[R] is specified in the
 Medley file system, not the host Windows file system.
 .RE
+.TP
+-am, \[en]automation
+Useful only when using \[en]vnc (and always on WSL1).
+When calling medley as part of an automation script, often Medley will
+run for a very short time (< a couple of seconds).
+This can cause issues with medley code that detects Xvnc server
+failures.
+Setting this flag notifies Medley that very short Medley sessions are
+possible and the Xvnc error detection needs to be adjusted accordingly.
+.TP
+-tg [\f[I]TAG\f[R] | -], --tag [\f[I]TAG\f[R] | -]
+By default, sysout files are loaded from the MEDLEYDIR/loadups
+directory.
+If \[lq]--tag \f[I]TAG\f[R]\[rq] is specified, then by default sysout
+files are loaded from the MEDLEYDIR/loadups/tagged/TAG directory.
+The sysouts in these directories are created using a loadups script with
+the --tag flag set.
+See the loadup man page.
+If \f[I]TAG\f[R] is \[lq]-\[rq], then the name of the active git branch
+for MEDLEYDIR (if any) is used as \f[I]TAG\f[R].
 .SS Other Options
 .PP
 \ 

docs/man-page/medley.1.md

@@ -38,8 +38,9 @@ Flags
 -h, \-\-help
 : Prints out a brief summary of the flags and arguments to medley.
 
--z, \-\-man
-: Show the man page for medley
+-z [+], \-\-man [+]
+: Show the man page for medley. If the **+** parameter is specified, then no pager is used when
+displaying the man page.
 
 -c [*FILE* | -], \-\-config [*FILE* | -]
 : Use *FILE* as the config file for this run of Medley. See information on *CONFIG FILE* below.
@@ -106,7 +107,7 @@ than the window, there will be no way to pan to the non-visible parts of the vir
 
 -g [*WxH* | -], \-\-geometry [*WxH* | -]
 : Sets the size of the X Window (or VNC window) that Medley runs in to be Width x Height. (Full X Windows
-geomtery specification with +X+Y is not currently supported).
+geometry specification with +X+Y is not currently supported).
 
     If a value of "-" is given, geometry is set to the default value.
 
@@ -216,7 +217,7 @@ specified in the Medley file system, not the host Windows file system.
     If the given value is "-",  Medley will start up without using REM.CM file.
 
     There is no default Medley REM.CM file.
-    
+
     On Windows/Cygwin installations, *FILE* is
 specified in the Medley file system, not the host Windows file system.
 
@@ -254,10 +255,23 @@ for the parameter will be reset to the default value - which in the case of *Hos
 
 -cc \[*FILE* | -], \-\-repeat \[*FILE* | -]
 : Run Medley once.  And then as long as *FILE* exists and is greater then zero length, repeatedly run Medley using *FILE* as the REM.CM file that Medley reads and executes at startup.  Each run of Medley can change the contents of *FILE* to effect the subsequent run of Medley.  To end the cycle, Medley needs to delete *FILE*.  WIthin Medley, *FILE* can be found as the value of the environment variable LDEREPEATCM.
-    
+
     On Windows/Cygwin installations, *FILE* is
 specified in the Medley file system, not the host Windows file system.
 
+-am, --automation
+: Useful only when using --vnc (and always on WSL1).  When calling medley as part of an automation script, often Medley
+will run for a very short time (< a couple of seconds).  This can cause issues with medley code that detects Xvnc server failures.
+Setting this flag notifies Medley that very short Medley sessions are possible and the Xvnc error detection needs to be adjusted accordingly.
+
+-tg [*TAG* | -], \-\-tag [*TAG* | -]
+: By default, sysout files are loaded from the MEDLEYDIR/loadups directory.
+If "\-\-tag *TAG*" is specified, then by default sysout files are loaded from the
+MEDLEYDIR/loadups/tagged/TAG directory.  The sysouts in these directories are created using
+a loadups script with the \-\-tag flag set.  See the loadup man page.
+If *TAG* is "-", then the name of the active git branch for MEDLEYDIR (if any) is used as
+*TAG*. 
+
 
 Other Options
 -------------

fonts/adobe/DISPLAYFONTCOERCIONS

@@ -1 +0,0 @@
-(DEFINE-FILE-INFO READTABLE "XCL" PACKAGE "INTERLISP")