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/ISSUE_TEMPLATE/bug_report.md

@@ -3,6 +3,7 @@ name: Bug report (not specific)
 about: Create a report to help us improve
 title: ''
 labels: ''
+assignees: ''
 
 ---
 
@@ -22,11 +23,13 @@ A clear and concise description of what you expected to happen.
 If applicable, add screenshots to help explain your problem.
 
 **Context (please complete the following information):**
- - OS: [e.g. Mac/Linux/Cygwin]
- - OS Version: [e.g. High Siera/Ubuntu 18/Raspbian]
- - Host arch: [e.g. x86_64, arm7l, arm64, sparc]
+ - Are you using online.interlisp.org? [yes / no]
+ - OS: [e.g. macOS/Linux/Cygwin]
+ - OS Version: [e.g. Ventura, Ubuntu 24, Raspberry Pi OS]
+ - Display/window system: [e.g. X11, SDL, VNC, Web browser]
+ - Host arch: [e.g. x86_64, arm7l, arm64, SPARC]
  - Maiko version: [e.g. commit ID from `git log | head`]
- - IL:MAKESYSDATE: [ date ]
+ - `IL:MAKESYSDATE`: [ date ] or `(il:print-lisp-information)`: copy-paste or screenshot this
 
 **Additional context**
 Add any other context about the problem here.

.github/ISSUE_TEMPLATE/documentation.md

@@ -3,6 +3,7 @@ name: Documentation problem
 about: Problems with this web site?
 title: ''
 labels: ''
+assignees: ''
 
 ---
 

.github/ISSUE_TEMPLATE/feature_request.md

@@ -3,6 +3,7 @@ name: Feature request
 about: Suggest an idea for this project
 title: ''
 labels: ''
+assignees: ''
 
 ---
 

.github/workflows/buildDocker.yml

@@ -70,7 +70,7 @@ jobs:
   # based on the latest commit to the repo
 
   sentry:
-    runs-on: ubuntu-latest
+    runs-on: ubuntu-24.04
     outputs:
       release_not_built: ${{ steps.check.outputs.release_not_built }}
 
@@ -99,7 +99,7 @@ jobs:
 
   build_and-push:
 
-    runs-on: ubuntu-latest
+    runs-on: ubuntu-24.04
 
     needs: [sentry]
     if: |
@@ -154,7 +154,8 @@ jobs:
           if [ "${{ inputs.draft }}" = "false" ];
           then
               docker_tags="${docker_image}:latest,${docker_image}:${MEDLEY_RELEASE#*-}_${MAIKO_RELEASE#*-}"
-              platforms="linux/amd64,linux/arm64"
+              platforms="linux/amd64"
+              #,linux/arm64
           else
               docker_tags="${docker_image}:draft"
               platforms="linux/amd64"
@@ -171,7 +172,8 @@ jobs:
       - name: Set up QEMU
         uses: docker/setup-qemu-action@v3
         with:
-          platforms: linux/amd64,linux/arm64,linux/arm/v7
+          platforms: linux/amd64
+       # ,linux/arm64,linux/arm/v7
 
       # Setup the Docker Buildx funtion
       - name: Set up Docker Buildx
@@ -211,7 +213,7 @@ jobs:
 
   complete:
 
-    runs-on: ubuntu-latest
+    runs-on: ubuntu-24.04
 
     outputs:
       build_successful: ${{ steps.output.outputs.build_successful }}

.github/workflows/buildLoadup.yml

@@ -66,7 +66,7 @@ jobs:
   # based on the latest commit to the repo
 
   sentry:
-    runs-on: ubuntu-latest
+    runs-on: ubuntu-24.04
     outputs:
       release_not_built: ${{ steps.check.outputs.release_not_built }}
 
@@ -96,7 +96,7 @@ jobs:
 
   loadup:
 
-    runs-on: ubuntu-latest
+    runs-on: ubuntu-24.04
 
     outputs:
       combined_release_tag: ${{ steps.job_outputs.outputs.COMBINED_RELEASE_TAG }}
@@ -257,7 +257,7 @@ jobs:
   #
   linux_installer:
 
-    runs-on: ubuntu-latest
+    runs-on: ubuntu-24.04
 
     needs: [sentry, loadup]
     if: |
@@ -333,7 +333,7 @@ jobs:
   #
   macos_installer:
 
-    runs-on: macos-12
+    runs-on: macos-14
 
     needs: [sentry, loadup]
     if: |
@@ -507,7 +507,7 @@ jobs:
 
   downloads_page:
 
-    runs-on: ubuntu-latest
+    runs-on: ubuntu-24.04
 
     needs: [sentry, loadup, linux_installer, macos_installer, cygwin_installer]
     if: |
@@ -606,7 +606,7 @@ jobs:
 
   complete:
 
-    runs-on: ubuntu-latest
+    runs-on: ubuntu-24.04
 
     outputs:
       build_successful: ${{ steps.output.outputs.build_successful }}

.github/workflows/buildReleaseInclDocker.yml

@@ -3,6 +3,7 @@
 #
 # Interlisp webflow to build a Medley release and push it to github.
 # And to build a multiplatform Docker image for the release and push it to Docker Hub.
+# And to kickoff a build and deploy workflow for Medley-online within the online repo.
 #
 # This workflow just calls two reuseable workflows to the two task:
 # buildLoadup.yml and buildDocker.yml
@@ -14,12 +15,12 @@
 # ******************************************************************************
 
 
-name: "Build/Push Release & Docker"
+name: "Build/Push Release, Docker, OIO"
 
 # Run this workflow on ...
 on:
   schedule:
-    - cron: '0 9 * * 3'
+    - cron: '17 9 * * 3'
 
   workflow_dispatch:
     inputs:
@@ -68,7 +69,7 @@ jobs:
   # the result of a workflow_dispatch or a workflow_call
 
   inputs:
-    runs-on: ubuntu-latest
+    runs-on: ubuntu-24.04
     outputs:
       draft: ${{ steps.one.outputs.draft }}
       force: ${{ steps.one.outputs.force }}
@@ -111,3 +112,26 @@ jobs:
 
 ######################################################################################
 
+  # Run HCFILES and push to files.interlisp.org
+  do_HCFILES:
+    needs: [inputs, do_release]
+    uses: ./.github/workflows/doHCFILES.yml
+    with:
+        draft: ${{ needs.inputs.outputs.draft }}
+    secrets: inherit
+
+######################################################################################
+
+  # Kickoff workflow in online repo to build and deploy Medley docker image to oio
+  do_oio:
+    runs-on: ubuntu-24.04
+    needs: [inputs, do_docker]
+    steps:
+      - name: trigger-oio-buildAndDeploy
+        run: |
+          if [ ! "${{ needs.inputs.outputs.draft }}" = "true" ]
+          then
+            gh workflow run buildAndDeployMedleyDocker.yml --repo Interlisp/online --ref main
+          fi
+        env:
+          GITHUB_TOKEN: ${{ secrets.ONLINE_TOKEN }}

.github/workflows/doHCFILES.yml

@@ -0,0 +1,146 @@
+#*******************************************************************************
+# doHCFILES.yml
+#
+# Interlisp workflow to run HCFILES.  HCFILES prints out PDF files for all of the
+# files in the Medley directory and posts them on files.interlisp.org.
+#  
+# This workflow is designed to be kickjed off by the buildReleaseInclDocker
+# workflow running in the Medley repo, once the release has been completed successfully
+#
+# Copyright 2024 by Interlisp.org
+#
+# ******************************************************************************
+
+name: Run HCFILES
+
+# Run this workflow on ...
+on:
+  workflow_dispatch:
+    inputs:
+      draft:
+        description: "Mark this as a draft release"
+        type: choice
+        options:
+        - 'false'
+        - 'true'
+
+  workflow_call:
+    inputs:
+      draft:
+        description: "Mark this as a draft release"
+        required: false
+        type: string
+        default: 'false'
+    secrets:
+      OIO_SSH_KEY:
+        required: true
+      MU_TOKEN:
+        required: true
+
+defaults:
+  run:
+    shell: bash
+
+jobs:
+
+  run_HCFILES:
+
+    runs-on: ubuntu-24.04
+
+    steps:
+
+      - 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
+
+      - name: Download Maiko
+        run: |
+          gh release download --output /tmp/maiko.tgz \
+                              --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 }}
+
+      - name: Install vnc & ghostscript (ps2pdf)
+        run: |
+          sudo apt-get update
+          sudo apt-get install -y tightvncserver
+          sudo apt-get install -y ghostscript
+
+      - name: Build apps.sysout
+        run: |
+          Xvnc -geometry 1280x720 :0 &
+          export DISPLAY=":0"
+          scripts/loadup-all.sh -apps
+
+      - name: Run HCFILES
+        run: |
+          export DISPLAY=":0"
+          scripts/do_hcfiles.sh
+
+      - name: Push Medley files (including created pdf files) to files.interlisp.org
+        run: |
+            # create a tar file of all of the directories to be pushed
+            tarfile=/tmp/source-$$.tgz
+            tar -c -z -f ${tarfile} --exclude=.git .
+            # set up ssh identity
+            eval $(ssh-agent)
+            ssh-add - <<< "${SSH_KEY}"
+            # set destination directory on files.interlisp.org
+            if [ "${{ inputs.draft }}" = "true" ]
+            then
+              dest=/srv/oio/files/development/medley
+            else
+              dest=/srv/oio/files/production/medley
+            fi
+            # Push tar file up to files.interlisp.org
+            batchfile=/tmp/batch-$$
+            echo "-put ${tarfile} ${dest}.tgz" > ${batchfile}
+            sftp -o StrictHostKeyChecking=no -b ${batchfile} ubuntu@files.interlisp.org
+            # now tar is up, untar it and juggle backups
+            scriptfile=/tmp/script-$$
+            # create script file to do the work
+            cat > ${scriptfile} <<EOF
+            rm -rf ${dest}.new
+            mkdir -p ${dest}.new
+            tar -C ${dest}.new -x -z -f ${dest}.tgz
+            rm -f ${dest}.tgz
+            rm -rf ${dest}.oldold
+            if [ -e ${dest}.old ]; then mv ${dest}.old ${dest}.oldold; fi
+            if [ -e ${dest} ]; then mv ${dest} ${dest}.old; fi
+            mv ${dest}.new ${dest}
+            EOF
+            # execute the script file via ssh
+            ssh -aTxo BatchMode=yes ubuntu@files.interlisp.org /bin/sh -s < ${scriptfile}
+        env:
+            SSH_KEY: ${{ secrets.OIO_SSH_KEY }}
+
+

.gitignore

@@ -13,8 +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
-
+# index.html files are also produced by HCFILES
 *.pdf
+index.html
 
 
 # all loadup files 
@@ -29,11 +30,19 @@ loadups/*.dribble
 loadups/whereis.hash
 loadups/apps.sysout
 loadups/fuller.database
+loadups/build/
+loadups/branches
+loadups/gitinfo
+
 
 # manual cross-reference files
 
 *.IMPTR
 
+# (Accidentally) created sysouts at any level
+*.sysout
+*.SYSOUT
+
 #compiled code -- leave in for now
 
 # *.lcom

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.

LICENSE

@@ -1,6 +1,6 @@
 MIT License
 
-Copyright Interlisp.org contributors
+Copyright © 2024 Interlisp.org. Portions originally copyrighted by Xerox, Venue, John Sybalsky, and other contributors.
 
 Permission is hereby granted, free of charge, to any person obtaining a copy
 of this software and associated documentation files (the "Software"), to deal

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

@@ -1,164 +1,372 @@
 <h1>NAME</h1>
 <p><strong>medley</strong> — starts up Medley Interlisp</p>
 <h1>SYNOPSIS</h1>
-<p><strong>medley</strong> [ flags ... ] [ <em>SYSOUT_FILE</em> ] [ -- <em>PASS_ON_ARGS</em> ]</p>
+<p><strong>medley</strong> [ flags ... ] [ <em>SYSOUT_FILE</em> ] [ --
+<em>PASS_ON_ARGS</em> ]</p>
 <h1>DESCRIPTION</h1>
 <p>Starts Medley Interlisp in a window.</p>
 <h1>OPTIONS</h1>
-<p><strong>MEDLEYDIR</strong> is an environment variable set by Medley and used by many of the options described below. MEDLEYDIR is the top level directory of the Medley installation that contains the specific medley script that is invoked after all symbolic links are resolved. In the standard global installation this will be /usr/local/interlisp/medley. But Medley can be installed in multiple places on any given machine and hence MEDLEYDIR is computed on each invocation of medley.</p>
+<p><strong>MEDLEYDIR</strong> is an environment variable set by Medley
+and used by many of the options described below. MEDLEYDIR is the top
+level directory of the Medley installation that contains the specific
+medley script that is invoked after all symbolic links are resolved. In
+the standard global installation this will be
+/usr/local/interlisp/medley. But Medley can be installed in multiple
+places on any given machine and hence MEDLEYDIR is computed on each
+invocation of medley.</p>
 <h2>Flags</h2>
 <dl>
 <dt>-h, --help</dt>
-<dd><p>Prints out a brief summary of the flags and arguments to medley.</p>
+<dd>
+<p>Prints out a brief summary of the flags and arguments to medley.</p>
 </dd>
-<dt>-z, --man</dt>
-<dd><p>Show the man page for medley</p>
+<dt>-z [+], --man [+]</dt>
+<dd>
+<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><p>Use <em>FILE</em> as the config file for this run of Medley. See information on <em>CONFIG FILE</em> below.</p>
-<p>If the given value is “-”, then suppress the use of a config file for this run of Medley.</p>
+<dd>
+<p>Use <em>FILE</em> as the config file for this run of Medley. See
+information on <em>CONFIG FILE</em> below.</p>
+<p>If the given value is “-”, then suppress the use of a config file for
+this run of Medley.</p>
 </dd>
 <dt>-f, --full</dt>
-<dd><p>Start Medley from the standard “full” sysout. full.sysout includes a complete Interlisp and CommonLisp environment with a standard set of development tools. It does not include any of the applications built using Medley.</p>
-<p>(See <em>SYSOUT_FILE</em> below for more information on starting sysouts.)</p>
+<dd>
+<p>Start Medley from the standard “full” sysout. full.sysout includes a
+complete Interlisp and CommonLisp environment with a standard set of
+development tools. It does not include any of the applications built
+using Medley.</p>
+<p>(See <em>SYSOUT_FILE</em> below for more information on starting
+sysouts.)</p>
 </dd>
 <dt>-l, --lisp</dt>
-<dd><p>Start Medley from the standard “lisp” sysout. lisp.sysout only includes the basic Interlisp and CommonLisp environment.</p>
-<p>(See <em>SYSOUT_FILE</em> below for more information on starting sysouts.)</p>
+<dd>
+<p>Start Medley from the standard “lisp” sysout. lisp.sysout only
+includes the basic Interlisp and CommonLisp environment.</p>
+<p>(See <em>SYSOUT_FILE</em> below for more information on starting
+sysouts.)</p>
 </dd>
 <dt>-a, --apps</dt>
-<dd><p>Start Medley from the standard “apps” sysout. apps.sysout includes everything in full.sysout plus Medley applications including Notecards, Rooms and CLOS. It also includes pre-installed links to key Medley documentation.</p>
-<p>(See <em>SYSOUT_FILE</em> below for more information on starting sysouts.)</p>
+<dd>
+<p>Start Medley from the standard “apps” sysout. apps.sysout includes
+everything in full.sysout plus Medley applications including Notecards,
+Rooms and CLOS. It also includes pre-installed links to key Medley
+documentation.</p>
+<p>(See <em>SYSOUT_FILE</em> below for more information on starting
+sysouts.)</p>
 </dd>
 <dt>-u, --continue</dt>
-<dd><p>Nullify any prior setting of the sysout file (e.g., from the config file) - causing Medley to start from the virtual memory file resulting from the previous invocation (with the same values for –id and –logindir), if any. If there is no matching virtual memory file, Medley will start from the full.sysout (see -f/–full above).</p>
+<dd>
+<p>Nullify any prior setting of the sysout file (e.g., from the config
+file) - causing Medley to start from the virtual memory file resulting
+from the previous invocation (with the same values for –id and
+–logindir), if any. If there is no matching virtual memory file, Medley
+will start from the full.sysout (see -f/–full above).</p>
 <p>Equivalent to “-y -”.</p>
 <p>(See <em>SYSOUT FILE</em> section below.)</p>
 </dd>
-<dt>-y [<em>SYSOUT_FILE</em> | -], --sysout [<em>SYSOUT-FILE</em> | -]</dt>
-<dd><p>Start Medley from the specified <em>SYSOUT-FILE</em>. This is an alternative to specifying the <em>SYSOUT-FILE</em> as the last argument on the command line (but before any <em>PASS_ON_ARGS</em>). It can be used to specify the <em>SYSOUT-FILE</em> in the config file (see information on <em>CONFIG FILE</em> below).</p>
-<p>If the given value is “-”, then any prior setting of the sysout file (e.g., from the config file) is nullified (see -u/–continue above).</p>
+<dt>-y [<em>SYSOUT_FILE</em> | -], --sysout [<em>SYSOUT-FILE</em> |
+-]</dt>
+<dd>
+<p>Start Medley from the specified <em>SYSOUT-FILE</em>. This is an
+alternative to specifying the <em>SYSOUT-FILE</em> as the last argument
+on the command line (but before any <em>PASS_ON_ARGS</em>). It can be
+used to specify the <em>SYSOUT-FILE</em> in the config file (see
+information on <em>CONFIG FILE</em> below).</p>
+<p>If the given value is “-”, then any prior setting of the sysout file
+(e.g., from the config file) is nullified (see -u/–continue above).</p>
 <p>(See <em>SYSOUT FILE</em> section below.)</p>
 </dd>
 <dt>-e [+ | -], --interlisp [+ | -]</dt>
-<dd><p>If value is “+” or no value, make the initial Exec window within Medley be an Interlisp Exec. If value is “-”, make the initial Exec window be the default XCL Exec.</p>
+<dd>
+<p>If value is “+” or no value, make the initial Exec window within
+Medley be an Interlisp Exec. If value is “-”, make the initial Exec
+window be the default XCL Exec.</p>
 <p>This flag applies only when the –apps flag is used.</p>
 </dd>
 <dt>-n [+ | -], --noscroll [+ | -]</dt>
-<dd><p>Medley ordinarily displays scroll bars to enable the user to pan the Medley virtual display within the Medley window. This is true even when the entire virtual display fits within the window.</p>
-<p>Specifying “-n +” (–noscroll +) turns off scroll bars. Specifying “-n -” (–scroll -) turns on scroll bars. Specifying -n (–noscroll) with no value is equivalent to specifying “–noscroll +”.</p>
+<dd>
+<p>Medley ordinarily displays scroll bars to enable the user to pan the
+Medley virtual display within the Medley window. This is true even when
+the entire virtual display fits within the window.</p>
+<p>Specifying “-n +” (–noscroll +) turns off scroll bars. Specifying “-n
+-” (–scroll -) turns on scroll bars. Specifying -n (–noscroll) with no
+value is equivalent to specifying “–noscroll +”.</p>
 <p>Default is scroll bars off.</p>
-<p>Note: If scroll bars are off and the virtual screen is larger than the window, there will be no way to pan to the non-visible parts of the virtual display.</p>
+<p>Note: If scroll bars are off and the virtual screen is larger than
+the window, there will be no way to pan to the non-visible parts of the
+virtual display.</p>
 </dd>
 <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 not currently supported).</p>
+<dd>
+<p>Sets the size of the X Window (or VNC window) that Medley runs in to
+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 size will be determined based on the --screensize values and the --noscroll flag. If neither --geometry nor --screensize is provided, then the window size is set to 1440x900 if --noscroll is set and 1462x922 if --noscroll is not set.</p>
-<p>(Also see note below under <em>CONFIG FILE</em> on the use of geometry and screensize in config files.)</p>
+<p>If --geometry is not specified but --screensize is, then the window
+size will be determined based on the --screensize values and the
+--noscroll flag. If neither --geometry nor --screensize is provided,
+then the window size is set to 1440x900 if --noscroll is set and
+1462x922 if --noscroll is not set.</p>
+<p>(Also see note below under <em>CONFIG FILE</em> on the use of
+geometry and screensize in config files.)</p>
 </dd>
 <dt>-s [<em>WxH</em> | -], --screensize [<em>WxH</em> | -]</dt>
-<dd><p>Sets the size of the virtual display as seen from Medley’s point of view. The Medley window is an unscaled viewport onto this virtual display.</p>
-<p>If a value of “-” is given, screensize is set to the default value.</p>
-<p>If --screensize is not specified but --geometry is, then the virtual display size will be set so that the entire virtual display fits into the given window geometry. If neither --screensize nor --geometry is provided, then the screen size is set to 1440x900.</p>
-<p>(Also see note below under <em>CONFIG FILE</em> on the use of geometry and screensize in config files.)</p>
+<dd>
+<p>Sets the size of the virtual display as seen from Medley’s point of
+view. The Medley window is an unscaled viewport onto this virtual
+display.</p>
+<p>If a value of “-” is given, screensize is set to the default
+value.</p>
+<p>If --screensize is not specified but --geometry is, then the virtual
+display size will be set so that the entire virtual display fits into
+the given window geometry. If neither --screensize nor --geometry is
+provided, then the screen size is set to 1440x900.</p>
+<p>(Also see note below under <em>CONFIG FILE</em> on the use of
+geometry and screensize in config files.)</p>
 </dd>
-<dt>-ps [<em>N</em> | -], –pixelscale [<em>N</em> | -] ** <strong>Applicable only when display is SDL-based (e.g., on Windows/Cygwin)</strong> **</dt>
-<dd><p>Sets the pixel scaling factor to <em>N</em>, an integer</p>
-<p>If value of “-” is given, the pixel scale factor is set to its default of 1.</p>
+<dt>-ps [<em>N</em> | -], –pixelscale [<em>N</em> | -] **
+<strong>Applicable only when display is SDL-based (e.g., on
+Windows/Cygwin)</strong> **</dt>
+<dd>
+<p>Sets the pixel scaling factor to <em>N</em>, an integer</p>
+<p>If value of “-” is given, the pixel scale factor is set to its
+default of 1.</p>
 </dd>
 <dt>-t [<em>STRING</em> | -], --title [<em>STRING</em> | -]</dt>
-<dd><p>Use <em>STRING</em> as title of Medley window.</p>
-<p>If <em>STRING</em> includes the character sequence “%i”, then the value of the id string (see –id flag below) prefixed by “::” will be substituited for the “%i”. Example: if the id is “run_45” and <em>STRING</em> is “Medley Interlisp %i”, then the actual window title will be “Medley Interlisp :: run_45”.</p>
-<p>If the value of “-” is given, sets the title to its default value (“Medley Interlisp %i”).</p>
+<dd>
+<p>Use <em>STRING</em> as title of Medley window.</p>
+<p>If <em>STRING</em> includes the character sequence “%i”, then the
+value of the id string (see –id flag below) prefixed by “::” will be
+substituited for the “%i”. Example: if the id is “run_45” and
+<em>STRING</em> is “Medley Interlisp %i”, then the actual window title
+will be “Medley Interlisp :: run_45”.</p>
+<p>If the value of “-” is given, sets the title to its default value
+(“Medley Interlisp %i”).</p>
 <p>This flag is ignored when when the --vnc flag is set.</p>
 </dd>
 <dt>-d [<em>:N</em> | -], --display [<em>:N</em> | -]</dt>
-<dd><p>Use X display <em>:N</em>.</p>
-<p>If value is “-”, reset display to its default value. Default value is the value of $DISPLAY.</p>
-<p>On platforms that support both SDL and X Windows, set the value of -d (–display) to “SDL” to select using SDL instead of X Windows.</p>
-<p>This flag is ignored on the Windows/Cygwin platform and when the --vnc flag is set on Windows System for Linux.</p>
+<dd>
+<p>Use X display <em>:N</em>.</p>
+<p>If value is “-”, reset display to its default value. Default value is
+the value of $DISPLAY.</p>
+<p>On platforms that support both SDL and X Windows, set the value of -d
+(–display) to “SDL” to select using SDL instead of X Windows.</p>
+<p>This flag is ignored on the Windows/Cygwin platform and when the
+--vnc flag is set on Windows System for Linux.</p>
 </dd>
-<dt>-v [+ | -] , --vnc [+ | -] ** <strong>Applicable only to WSL installations</strong> **</dt>
-<dd><p>If value is “+” or no value is given, then use a VNC window running on the Windows side instead of an X window. If value is “-”, then do not use a VNC window, relying instead on a standard X Window.</p>
-<p>A VNC window will folllow the Windows desktop scaling setting allowing for much more usable Medley on high resolution displays. On WSL, X windows do not scale well.</p>
+<dt>-v [+ | -] , --vnc [+ | -] ** <strong>Applicable only to WSL
+installations</strong> **</dt>
+<dd>
+<p>If value is “+” or no value is given, then use a VNC window running
+on the Windows side instead of an X window. If value is “-”, then do not
+use a VNC window, relying instead on a standard X Window.</p>
+<p>A VNC window will folllow the Windows desktop scaling setting
+allowing for much more usable Medley on high resolution displays. On
+WSL, X windows do not scale well.</p>
 <p>This flag is always set for WSL1 installations.</p>
 </dd>
-<dt>-i [<em>ID_STRING</em> | - | --], --id [<em>ID_STRING</em> | - | --]</dt>
-<dd><p>Use <em>ID_STRING</em> as the id for this run of Medley, unless the given value is “-”, “--”, or “---”.</p>
-<p>Only one instance of Medley can be run simultaneously for any given id.</p>
-<p><em>ID-STRING</em> can consist of any alphanumeric character plus the underscore (_) character, ending (optionally) in a “+” character. If <em>ID_STRING</em> ends with a “+” (including just a singleton “+”), then Medley will add a number to the id to make it unique among currently running Medley intsances.</p>
-<p>If the given value is “-”, then the id will be (re)set to “default” (e.g., if it was previously set in the config file). If it is “--”, then id will be set to the basename of $MEDLEYDIR. If ID_STRING is “---”, then id will be set to the basename of the parent directory of $MEDLEYDIR.</p>
+<dt>-i [<em>ID_STRING</em> | - | --], --id [<em>ID_STRING</em> | - |
+--]</dt>
+<dd>
+<p>Use <em>ID_STRING</em> as the id for this run of Medley, unless the
+given value is “-”, “--”, or “---”.</p>
+<p>Only one instance of Medley can be run simultaneously for any given
+id.</p>
+<p><em>ID-STRING</em> can consist of any alphanumeric character plus the
+underscore (_) character, ending (optionally) in a “+” character. If
+<em>ID_STRING</em> ends with a “+” (including just a singleton “+”),
+then Medley will add a number to the id to make it unique among
+currently running Medley intsances.</p>
+<p>If the given value is “-”, then the id will be (re)set to “default”
+(e.g., if it was previously set in the config file). If it is “--”, then
+id will be set to the basename of $MEDLEYDIR. If ID_STRING is “---”,
+then id will be set to the basename of the parent directory of
+$MEDLEYDIR.</p>
 <p>Default id is “default”.</p>
 </dd>
 <dt>-m [<em>N</em> | -], --mem [<em>N</em> | -]</dt>
-<dd><p>Set Medley to run in <em>N</em> MB of virtual memory. Defaults to 256MB.</p>
+<dd>
+<p>Set Medley to run in <em>N</em> MB of virtual memory. Defaults to
+256MB.</p>
 </dd>
 </dl>
 <p>If a value of “-” is given, resets to default value.</p>
 <dl>
 <dt>-p [<em>FILE</em> | -], --vmem [<em>FILE</em> | -]</dt>
-<dd><p>Use <em>FILE</em> as the Medley virtual memory (vmem) store. <em>FILE</em> must be writeable by the current user.</p>
-<p>Care must be taken not to use the same vmem FILE for two instances of Medley running simultaneously. The --id flag will not protect against vmem collisions when the --vmem flag is used.</p>
-<p>If the value “-” is given, then resets the vmem file to the default.</p>
-<p>Default is to store the vmem in LOGINDIR/vmem/lisp_III.virtualmem, where III is the id of this Medley run (see --id flag above). See --logindir below for setting of LOGINDIR.</p>
+<dd>
+<p>Use <em>FILE</em> as the Medley virtual memory (vmem) store.
+<em>FILE</em> must be writeable by the current user.</p>
+<p>Care must be taken not to use the same vmem FILE for two instances of
+Medley running simultaneously. The --id flag will not protect against
+vmem collisions when the --vmem flag is used.</p>
+<p>If the value “-” is given, then resets the vmem file to the
+default.</p>
+<p>Default is to store the vmem in LOGINDIR/vmem/lisp_III.virtualmem,
+where III is the id of this Medley run (see --id flag above). See
+--logindir below for setting of LOGINDIR.</p>
 </dd>
 <dt>-r [<em>FILE</em> | -], --greet [<em>FILE</em> | -]</dt>
-<dd><p>Use <em>FILE</em> as the Medley greetfile.</p>
-<p>If the given value is “-”, Medley will start up without using a greetfile.</p>
-<p>The default Medley greetfile is $MEDLEYDIR/greetfiles/MEDLEYDIR-INIT, except when the --apps flag is used in which case it is $MEDLEYDIR/greetfiles/APPS-INIT.</p>
-<p>On Windows/Cygwin installations, <em>FILE</em> is specified in the Medley file system, not the host Windows file system.</p>
+<dd>
+<p>Use <em>FILE</em> as the Medley greetfile.</p>
+<p>If the given value is “-”, Medley will start up without using a
+greetfile.</p>
+<p>The default Medley greetfile is $MEDLEYDIR/greetfiles/MEDLEYDIR-INIT,
+except when the --apps flag is used in which case it is
+$MEDLEYDIR/greetfiles/APPS-INIT.</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>-cm [<em>FILE</em> | -], --rem.cm [<em>FILE</em> | -]</dt>
+<dd>
+<p>Use <em>FILE</em> as the REM.CM file that Medley reads and executes
+at startup - after any greet files. Usually used only for loadups and
+other maintenance operations .</p>
+<p>If the given value is “-”, Medley will start up without using REM.CM
+file.</p>
+<p>There is no default Medley REM.CM file.</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>-x [<em>DIR</em> | - | –], --logindir [<em>DIR</em> | - | –]</dt>
-<dd><p>Use <em>DIR</em> as LOGINDIR in Medley. <em>DIR</em> must be writeable by the current user.</p>
-<p>LOGINDIR is used by Medley as the working directory on start-up and where it loads any “personal” initialization file from.</p>
-<p>If the given value is “-”, then reset LOGINDIR to its default value. If the given value is “–”, uses $MEDLEYDIR/logindir as LOGINDIR.</p>
+<dd>
+<p>Use <em>DIR</em> as LOGINDIR in Medley. <em>DIR</em> must be
+writeable by the current user.</p>
+<p>LOGINDIR is used by Medley as the working directory on start-up and
+where it loads any “personal” initialization file from.</p>
+<p>If the given value is “-”, then reset LOGINDIR to its default value.
+If the given value is “–”, uses $MEDLEYDIR/logindir as LOGINDIR.</p>
 <p>LOGINDIR defaults to $HOME/il.</p>
-<p>On Windows/Cygwin installations, <em>FILE</em> is specified in the Medley file system, not the host Windows file system.</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>-nh <em>Host:Port:Mac:Debug</em>, --nethub <em>Host:Port:Mac:Debug</em></dt>
-<dd><p>Set the parameters for using Nethub XNS networking. <em>Host</em> is the full domain name of the nethub host. <em>Port</em> is the port on <em>Host</em> that nethub is using. <em>Mac</em> is the Mac address that this instance of Medley should use when contacting the nethub host. <em>Debug</em> is the level of nethub debug information that should be printed on stdout (value is 0, 1, or 2). A <em>Host</em> value is required and serves to turn nethub functionality on. <em>Port</em>, <em>Mac</em> and <em>Debug</em> parameters are optional and will default if left off.</p>
-<p>If any of the parameters have a value of “-”, any previous setting (e.g., in a config file) for the parameter will be reset to the default value - which in the case of <em>Host</em> is the null string, turning nethub functionality off.</p>
+<dt>-nh <em>Host:Port:Mac:Debug</em>, --nethub
+<em>Host:Port:Mac:Debug</em></dt>
+<dd>
+<p>Set the parameters for using Nethub XNS networking. <em>Host</em> is
+the full domain name of the nethub host. <em>Port</em> is the port on
+<em>Host</em> that nethub is using. <em>Mac</em> is the Mac address that
+this instance of Medley should use when contacting the nethub host.
+<em>Debug</em> is the level of nethub debug information that should be
+printed on stdout (value is 0, 1, or 2). A <em>Host</em> value is
+required and serves to turn nethub functionality on. <em>Port</em>,
+<em>Mac</em> and <em>Debug</em> parameters are optional and will default
+if left off.</p>
+<p>If any of the parameters have a value of “-”, any previous setting
+(e.g., in a config file) for the parameter will be reset to the default
+value - which in the case of <em>Host</em> is the null string, turning
+nethub functionality off.</p>
 </dd>
 <dt>-nf, -NF, –nofork</dt>
-<dd><p>No fork. Relevant only to the Medley loadup workflow.</p>
+<dd>
+<p>No fork. Relevant only to the Medley loadup workflow.</p>
 </dd>
 <dt>-prog <em>EXE</em>, –maikoprog <em>EXE</em></dt>
-<dd><p>Use <em>EXE</em> as the basename of the Maiko executable. Relevant only to the Medley loadup workflow.</p>
+<dd>
+<p>Use <em>EXE</em> as the basename of the Maiko executable. Relevant
+only to the Medley loadup workflow.</p>
 </dd>
 <dt>–maikodir <em>DIR</em></dt>
-<dd><p>Use <em>DIR</em> as the directory containing the Maiko emulator. For testing purposes only.</p>
+<dd>
+<p>Use <em>DIR</em> as the directory containing the Maiko emulator. For
+testing purposes only.</p>
+</dd>
+<dt>-cc [<em>FILE</em> | -], --repeat [<em>FILE</em> | -]</dt>
+<dd>
+<p>Run Medley once. And then as long as <em>FILE</em> exists and is
+greater then zero length, repeatedly run Medley using <em>FILE</em> as
+the REM.CM file that Medley reads and executes at startup. Each run of
+Medley can change the contents of <em>FILE</em> to effect the subsequent
+run of Medley. To end the cycle, Medley needs to delete <em>FILE</em>.
+WIthin Medley, <em>FILE</em> can be found as the value of the
+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>
 <dt><em>SYSOUT_FILE</em></dt>
-<dd><p>The pathname of the file to use as a sysout for Medley to start from. If SYSOUT_FILE is not provided and none of the flags (--apps, --full, --lisp) is used, then Medley will start from the saved virtual memory file from the previous session with the same ID_STRING as this run. If no such virtual memory file exists, then Medley will start from the standard full.sysout (equivalent to specifying the --full flag). On Windows (Docker) installations, <em>SYSOUT_FILE</em> is specified in the Medley file system, not the host Windows file system.</p>
+<dd>
+<p>The pathname of the file to use as a sysout for Medley to start from.
+If SYSOUT_FILE is not provided and none of the flags (--apps, --full,
+--lisp) is used, then Medley will start from the saved virtual memory
+file from the previous session with the same ID_STRING as this run. If
+no such virtual memory file exists, then Medley will start from the
+standard full.sysout (equivalent to specifying the --full flag). On
+Windows (Docker) installations, <em>SYSOUT_FILE</em> is specified in the
+Medley file system, not the host Windows file system.</p>
 </dd>
 <dt><em>PASS_ON_ARGS</em></dt>
-<dd><p>All arguments after the “--” flag, are passed unaltered to the Maiko emulator.</p>
+<dd>
+<p>All arguments after the “--” flag, are passed unaltered to the Maiko
+emulator.</p>
 </dd>
 </dl>
 <h1>CONFIG FILE</h1>
-<p>A config file can be used to “pre-specify” any of the above command line arguments. The config file consists of command line arguments (flags or flag-value pairs), <em>one per line</em>. These arguments are read from the config file and prepended to the arguments actually given on the command line. Since later arguments override earlier arguments, any argument actually given on the command line will override a conflicting argument given in the config file.</p>
-<p>Unless specified using the -c (–config) argument, the default config file will be $MEDLEYDIR/.medley_config, if it exists, and $HOME/.medley_config, otherwise.</p>
-<p>Specifying, “-c -” or “–config -” on the command line will suppress the use of config files for the current run of Medley.</p>
-<p><em>Note:</em> care must be taken when using -g (–geometry) and/or -s (–screensize) arguments in config files. If only one of these is specified, then the other is conputed. But if both are specified, then the specified dimensions are used as given. Unexpected results can arise if one is specified in the config file but the other is specified on the command line. In this case, the two specified dimensions will be used as given. It will not be the case, as might be expected, that the dimension given in the config file will be overridden by a dimension computed from the dimension given on the command line.</p>
+<p>A config file can be used to “pre-specify” any of the above command
+line arguments. The config file consists of command line arguments
+(flags or flag-value pairs), <em>one per line</em>. These arguments are
+read from the config file and prepended to the arguments actually given
+on the command line. Since later arguments override earlier arguments,
+any argument actually given on the command line will override a
+conflicting argument given in the config file.</p>
+<p>Unless specified using the -c (–config) argument, the default config
+file will be $MEDLEYDIR/.medley_config, if it exists, and
+$HOME/.medley_config, otherwise.</p>
+<p>Specifying, “-c -” or “–config -” on the command line will suppress
+the use of config files for the current run of Medley.</p>
+<p><em>Note:</em> care must be taken when using -g (–geometry) and/or -s
+(–screensize) arguments in config files. If only one of these is
+specified, then the other is conputed. But if both are specified, then
+the specified dimensions are used as given. Unexpected results can arise
+if one is specified in the config file but the other is specified on the
+command line. In this case, the two specified dimensions will be used as
+given. It will not be the case, as might be expected, that the dimension
+given in the config file will be overridden by a dimension computed from
+the dimension given on the command line.</p>
 <h1>OTHER FILES</h1>
 <dl>
 <dt>$HOME/il</dt>
-<dd><p>Default Medley LOGINDIR</p>
+<dd>
+<p>Default Medley LOGINDIR</p>
 </dd>
 <dt>$HOME/il/vmem/lisp.virtualmem</dt>
-<dd><p>Default virtual memory file</p>
+<dd>
+<p>Default virtual memory file</p>
 </dd>
 <dt>$HOME/il/INIT(.LCOM)</dt>
-<dd><p>Default personal init file</p>
+<dd>
+<p>Default personal init file</p>
 </dd>
 <dt>$MEDLEYDIR/greetfiles/MEDLEYDIR-INIT(.LCOM)</dt>
-<dd><p>Default Medley greetfile</p>
+<dd>
+<p>Default Medley greetfile</p>
 </dd>
 </dl>
 <h1>BUGS</h1>
-<p>See GitHub Issues: &lt;https://github.com/Interlisp/medley/issues&gt;</p>
+<p>See GitHub Issues:
+&lt;https://github.com/Interlisp/medley/issues&gt;</p>
 <h1>COPYRIGHT</h1>
 <p>Copyright(c) 2023-2024 by Interlisp.org</p>

docs/man-page/medley.1

@@ -1,5 +1,19 @@
-.\" Automatically generated by Pandoc 2.9.2.1
+.\" Automatically generated by Pandoc 3.1.3
 .\"
+.\" Define V font for inline verbatim, using C font in formats
+.\" that render this, and otherwise B font.
+.ie "\f[CB]x\f[]"x" \{\
+. ftr V B
+. ftr VI BI
+. ftr VB B
+. ftr VBI BI
+.\}
+.el \{\
+. ftr V CR
+. ftr VI CI
+. ftr VB CB
+. ftr VBI CBI
+.\}
 .ad l
 .TH "MEDLEY" "1" "" "" "Start Medley Interlisp"
 .nh
@@ -8,8 +22,8 @@
 \f[B]medley\f[R] \[em] starts up Medley Interlisp
 .SH SYNOPSIS
 .PP
-\f[B]medley\f[R] [ flags \&... ] [ \f[I]SYSOUT_FILE\f[R] ] [ --
-\f[I]PASS_ON_ARGS\f[R] ]
+\f[B]medley\f[R] [ flags \&...
+] [ \f[I]SYSOUT_FILE\f[R] ] [ -- \f[I]PASS_ON_ARGS\f[R] ]
 .SH DESCRIPTION
 .PP
 Starts Medley Interlisp in a window.
@@ -31,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.
@@ -137,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
@@ -291,6 +307,21 @@ On Windows/Cygwin installations, \f[I]FILE\f[R] is specified in the
 Medley file system, not the host Windows file system.
 .RE
 .TP
+-cm [\f[I]FILE\f[R] | -], --rem.cm [\f[I]FILE\f[R] | -]
+Use \f[I]FILE\f[R] as the REM.CM file that Medley reads and executes at
+startup - after any greet files.
+Usually used only for loadups and other maintenance operations .
+.RS
+.PP
+If the given value is \[lq]-\[rq], Medley will start up without using
+REM.CM file.
+.PP
+There is no default Medley REM.CM file.
+.PP
+On Windows/Cygwin installations, \f[I]FILE\f[R] is specified in the
+Medley file system, not the host Windows file system.
+.RE
+.TP
 -x [\f[I]DIR\f[R] | - | \[en]], --logindir [\f[I]DIR\f[R] | - | \[en]]
 Use \f[I]DIR\f[R] as LOGINDIR in Medley.
 \f[I]DIR\f[R] must be writeable by the current user.
@@ -341,6 +372,42 @@ Relevant only to the Medley loadup workflow.
 \[en]maikodir \f[I]DIR\f[R]
 Use \f[I]DIR\f[R] as the directory containing the Maiko emulator.
 For testing purposes only.
+.TP
+-cc [\f[I]FILE\f[R] | -], --repeat [\f[I]FILE\f[R] | -]
+Run Medley once.
+And then as long as \f[I]FILE\f[R] exists and is greater then zero
+length, repeatedly run Medley using \f[I]FILE\f[R] as the REM.CM file
+that Medley reads and executes at startup.
+Each run of Medley can change the contents of \f[I]FILE\f[R] to effect
+the subsequent run of Medley.
+To end the cycle, Medley needs to delete \f[I]FILE\f[R].
+WIthin Medley, \f[I]FILE\f[R] can be found as the value of the
+environment variable LDEREPEATCM.
+.RS
+.PP
+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

@@ -1,4 +1,4 @@
-% MEDLEY(1) | Start Medley Interlisp
+% MEDLEY(1) | Start Medley Interlisp
 
 ---
 adjusting: l
@@ -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.
 
@@ -210,6 +211,16 @@ in which case it is $MEDLEYDIR/greetfiles/APPS-INIT.
     On Windows/Cygwin installations, *FILE* is
 specified in the Medley file system, not the host Windows file system.
 
+-cm \[*FILE* | -], \-\-rem.cm \[*FILE* | -]
+: Use *FILE* as the REM.CM file that Medley reads and executes at startup - after any greet files.  Usually used only for loadups and other maintenance operations .
+
+    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.
+
 -x \[*DIR* | - | --], \-\-logindir \[*DIR* | - | --]
 : Use *DIR* as LOGINDIR in Medley.  *DIR* must be writeable by the current user.
 
@@ -242,6 +253,25 @@ for the parameter will be reset to the default value - which in the case of *Hos
 --maikodir *DIR*
 : Use *DIR* as the directory containing the Maiko emulator.  For testing purposes only.
 
+-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
 -------------

doctools/IMINDEX

@@ -1,12 +1,12 @@
 (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
 
-
(FILECREATED " 7-Apr-2024 09:25:49" {WMEDLEY}<doctools>IMINDEX.;6
 37064  
+
(FILECREATED "24-Mar-2025 10:31:37" {WMEDLEY}<doctools>IMINDEX.;10
 37350  
 
       :EDIT-BY rmk
 
-      :CHANGES-TO (FNS IM.INDEX.PUTFN IM.INDEX.GETFN)
+      :CHANGES-TO (FNS IM.INDEX.EDIT)
 
-      :PREVIOUS-DATE " 4-Apr-2024 23:17:47" {WMEDLEY}<doctools>IMINDEX.;5)
+      :PREVIOUS-DATE "17-Mar-2025 12:07:55" {WMEDLEY}<doctools>IMINDEX.;9)
 
 
 (PRETTYCOMPRINT IMINDEXCOMS)
@@ -163,11 +163,13 @@
               (TERPRI PTRFILE])
 
 (IM.INDEX.EDIT

-  [LAMBDA (OBJ TEXTSTREAM)
                                   (* ; "Edited 18-Jul-88 14:10 by burns")

-
+  [LAMBDA (OBJ TEXTSTREAM)
                                   (* ; "Edited 24-Mar-2025 10:30 by rmk")


+                                                             (* ; "Edited 17-Mar-2025 12:06 by rmk")


+                                                             (* ; "Edited 29-Jun-2024 00:14 by rmk")


+                                                             (* ; "Edited 18-Jul-88 14:10 by burns")

     (PROG* ((W (FREEMENU IM.INDEX.OBJ.FREEMENU.SPECS))
             (REGION (WINDOWREGION W))
-            [TEDIT.WINDOW (CAR (fetch
 \WINDOW of
 (TEXTOBJ TEXTSTREAM]
+            (TEDIT.WINDOW (TEDITWINDOWP TEXTSTREAM))
             (TEDIT.REGION (AND TEDIT.WINDOW (WINDOWREGION TEDIT.WINDOW)))
             OBJ.DATA OBJ.DATA.PROPLIST)
            (WINDOWPROP W 'IM.INDEX.OBJ OBJ)
@@ -640,13 +642,13 @@
 
 (IM.INDEX.INIT
)
 (DECLARE%: DONTCOPY
-  (FILEMAP (NIL (1692 15373 (IM.INDEX.CLOSEF 1702 . 2393) (IM.INDEX.COPYFN 2395 . 2580) (
-IM.INDEX.CREATEOBJ 2582 . 3928) (IM.INDEX.DISPLAY.STRING 3930 . 4351) (IM.INDEX.DISPLAYFN 4353 . 8450)
- (IM.INDEX.EDIT 8452 . 11920) (IM.INDEX.LIST.FROM.STRING 11922 . 12956) (IM.INDEX.SIZEFN 12958 . 13718
-) (IM.INDEX.STRING.FROM.LIST 13720 . 13965) (IM.INDEX.PUTFN 13967 . 14313) (IM.INDEX.GETFN 14315 . 
-14612) (IM.INDEX.BUTTONEVENTFN 14614 . 15371)) (15374 17444 (IM.INDEX.INIT 15384 . 17442)) (17445 
-29361 (IM.INDEX.MENU 17455 . 19143) (IM.INDEX.MENU.WHENSELECTEDFN 19145 . 25900) (
-IM.INDEX.OBJ.FREEMENU.SELECTEDFN 25902 . 29359)) (31877 37020 (IM.CHAP.COPYFN 31887 . 32067) (
-IM.CHAP.CREATEOBJ 32069 . 33495) (IM.CHAP.DISPLAYFN 33497 . 35457) (IM.CHAP.SIZEFN 35459 . 36461) (
-IM.CHAP.PUTFN 36463 . 36647) (IM.CHAP.GETFN 36649 . 36810) (IM.CHAP.BUTTONEVENTFN 36812 . 37018)))))
+  (FILEMAP (NIL (1677 15659 (IM.INDEX.CLOSEF 1687 . 2378) (IM.INDEX.COPYFN 2380 . 2565) (
+IM.INDEX.CREATEOBJ 2567 . 3913) (IM.INDEX.DISPLAY.STRING 3915 . 4336) (IM.INDEX.DISPLAYFN 4338 . 8435)
+ (IM.INDEX.EDIT 8437 . 12206) (IM.INDEX.LIST.FROM.STRING 12208 . 13242) (IM.INDEX.SIZEFN 13244 . 14004
+) (IM.INDEX.STRING.FROM.LIST 14006 . 14251) (IM.INDEX.PUTFN 14253 . 14599) (IM.INDEX.GETFN 14601 . 
+14898) (IM.INDEX.BUTTONEVENTFN 14900 . 15657)) (15660 17730 (IM.INDEX.INIT 15670 . 17728)) (17731 
+29647 (IM.INDEX.MENU 17741 . 19429) (IM.INDEX.MENU.WHENSELECTEDFN 19431 . 26186) (
+IM.INDEX.OBJ.FREEMENU.SELECTEDFN 26188 . 29645)) (32163 37306 (IM.CHAP.COPYFN 32173 . 32353) (
+IM.CHAP.CREATEOBJ 32355 . 33781) (IM.CHAP.DISPLAYFN 33783 . 35743) (IM.CHAP.SIZEFN 35745 . 36747) (
+IM.CHAP.PUTFN 36749 . 36933) (IM.CHAP.GETFN 36935 . 37096) (IM.CHAP.BUTTONEVENTFN 37098 . 37304)))))
 STOP

doctools/IMTEDIT

@@ -1,12 +1,12 @@
 (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
 
-
(FILECREATED " 6-Mar-2024 21:18:02" {WMEDLEY}<doctools>IMTEDIT.;4
 116622 
+
(FILECREATED "12-Apr-2024 19:58:59" {WMEDLEY}<doctools>IMTEDIT.;5
 117369 
 
       :EDIT-BY rmk
 
-      :CHANGES-TO (FNS TRANSLATE.DUMPOUT MAKE.IM.DOCUMENT)
+      :CHANGES-TO (FNS MAKE.IM.DOCUMENT)
 
-      :PREVIOUS-DATE "20-Jul-2022 15:10:53" {WMEDLEY}<doctools>IMTEDIT.;2)
+      :PREVIOUS-DATE " 6-Mar-2024 21:18:02" {WMEDLEY}<doctools>IMTEDIT.;4)
 
 
 (PRETTYCOMPRINT IMTEDITCOMS)
@@ -15,16 +15,17 @@
        ((FNS IM.TEDIT DUMP DUMP.HEADERS.FOOTERS DUMP.HRULE CHANGE.FONT IM.BOUT.IMAGEOBJ 
              IM.TEDIT.DUMP.COMMANDS IM.TEDIT.DUMP.FOOTNOTES IM.TEDIT.DUMP.PARA INDEXX.PARSE.TYPE 
              FORMAT.DEF FORMAT.LISPWORD MAKE.IM.DOCUMENT PRINT.NOTE SEND.INFO)
-        (COMS (* fns for drawing vrules to the left of definition text -- an unused, never-fully 
-                 debuged feature)
+        (COMS                                                (* ; 
+
    "fns for drawing vrules to the left of definition text -- an unused, never-fully debuged feature")

               (FNS IM.VRULE.DISPLAYFN CREATE.VRULE.OBJECT PRINT.VRULES.ON.PAGE)
               (VARS (IM.VRULE.STATE.LIST))
               (INITVARS (IM.VRULE.OBJECT.IMAGEFNS NIL)
                      (IM.PRINT.VRULE.FLG NIL)))
-        (COMS (* fns for printing page numbers)
+        (COMS                                                (* ; "fns for printing page numbers")

               (FNS IM.FOLIO.DISPLAYFN IM.FOLIO.SIZEFN CREATE.FOLIO.OBJECT GET.FOLIO.STRING)
               (INITVARS (IM.FOLIO.OBJECT.IMAGEFNS NIL)))
-        (COMS (* TOPROG functions, used to define the translating actions of IM text objects.)
+        (COMS                                                (* ; 
+
                       "TOPROG functions, used to define the translating actions of IM text objects.")

               (FNS ARG#TOPROG BIGLISPCODE#TOPROG BRACKET#TOPROG CHAPTER#TOPROG COMMENT#TOPROG 
                    DEF#TOPROG FIGURE#TOPROG FN#TOPROG FNDEF#TOPROG FOOT#TOPROG INCLUDE#TOPROG 
                    INDEX#TOPROG INDEXX#TOPROG IT#TOPROG LBRACKET#TOPROG LISP#TOPROG LISPCODE#TOPROG 
@@ -54,104 +55,112 @@
                (IM.TEXT.FONT '(FAMILY MODERN FACE MRR SIZE 10))
                (IM.HEADER.FOOTER.FONT '(FAMILY MODERN FACE MRR SIZE 8))
                (IM.XEROX.LOGO.FONT '(FAMILY MODERN FACE BRR SIZE 30]
-        (COMS (* the following variables specify all of the lengths used for possitioning IM text, 
-                 headers, etc. on the page. All of these are measured with respect to the page 
-                 *margins* <the region on the page defined by the Tedit margin parameters> or with 
-                 respect to the page *edges* <the edges of the physical page>.)
-              (* Note%: The formatting and printing does not always position the image on the page 
-                 exactly as specified. It will probably be necessary to adjust any variables based on
-                 the page edges until they come out correctly on your printer.)
-              (* indentation of 1st line of definitian header, measured in points from left page 
-                 margin. Also used for indentation of hrule under defn header.)
+        (COMS 
+              (* ;; "the following variables specify all of the lengths used for possitioning IM text, headers, etc.  on the page.  All of these are measured with respect to the page *margins* <the region on the page defined by the Tedit margin parameters> or with respect to the page *edges* <the edges of the physical page>.")

+
+              
+              (* ;; "Note: The formatting and printing does not always position the image on the page exactly as specified.  It will probably be necessary to adjust any variables based on the page edges until they come out correctly on your printer.")

+
+              
+              (* ;; "indentation of 1st line of definitian header, measured in points from left page margin.  Also used for indentation of hrule under defn header.")

+
               (INITVARS (IM.DEF.TITLE.1STLEFTMARGIN 75))
-              (* indentation of 2nd and other overflow lines of definition header, measured in points
-                 from left page margin.)
+              
+              (* ;; "indentation of 2nd and other overflow lines of definition header, measured in points from left page margin.")

+
               (INITVARS (IM.DEF.TITLE.LEFTMARGIN 204))
-              (* indentation of vertical rule to the left of definition text, measured in points from
-                 left page margin. This is a never-used, never-debugged feature.)
+              
+              (* ;; "indentation of vertical rule to the left of definition text, measured in points from left page margin.  This is a never-used, never-debugged feature.")

+
               (INITVARS (IM.VRULE.X 194))
-              (* y-pos of top-left corner of top text line, measured in points from bottom page edge.
-                 )
+                                                             (* ; 
+
               "y-pos of top-left corner of top text line, measured in points from bottom page edge.")

               (INITVARS (IM.TEXT.TOPMARGIN 738))
-              (* y-pos of bottom-left corner of bottom text line, measured in points from bottom page
-                 edge.)
+                                                             (* ; 
+
         "y-pos of bottom-left corner of bottom text line, measured in points from bottom page edge.")

               (INITVARS (IM.TEXT.BOTTOMMARGIN 54))
-              (* x-pos of left edge of text, measured in points from the left page margin.)
+                                                             (* ; 
+
                          "x-pos of left edge of text, measured in points from the left page margin.")

               (INITVARS (IM.TEXT.LEFTMARGIN 204))
-              (* x-pos of right edge of text, measured in points from the left page margin.)
+                                                             (* ; 
+
                         "x-pos of right edge of text, measured in points from the left page margin.")

               (INITVARS (IM.TEXT.RIGHTMARGIN 504))
-              (* X-pos and Y-pos of the lower-left corner of the 
-                 "[This page intentionally left blank]" message printed on blank pages, measured in 
-                 points from the left and bottom page edges.)
+              
+              (* ;; "X-pos and Y-pos of the lower-left corner of the '[This page intentionally left blank]' message printed on blank pages, measured in points from the left and bottom page edges.")

+
               (INITVARS (IM.BLANKPAGE.SPECIALX 258)
                      (IM.BLANKPAGE.SPECIALY 400))
-              (* In the table of contents, indentation of first and second-level subsection headers,
-                 measured in points from the left page margin.)
+              
+              (* ;; "In the table of contents, indentation of first and second-level subsection headers, measured in points from the left page margin.")

+
               (INITVARS (IM.TOC.SUBSEC.ONE.LEFTMARGIN 120)
                      (IM.TOC.SUBSEC.TWO.LEFTMARGIN 216))
-              (* in the index, the indentation of the first line and remaining lines of a top-level 
-                 entry, of a subentry, and of a subsubentry, measured in points from the left page 
-                 margin <for the left column>.)
+              
+              (* ;; "in the index, the indentation of the first line and remaining lines of a top-level entry, of a subentry, and of a subsubentry, measured in points from the left page margin <for the left column>.")

+
               (INITVARS (IM.INDEX.1STLEFTMARGIN 0)
                      (IM.INDEX.LEFTMARGIN 75)
                      (IM.INDEX.SUB.1STLEFTMARGIN 25)
                      (IM.INDEX.SUB.LEFTMARGIN 75)
                      (IM.INDEX.SUBSUB.1STLEFTMARGIN 50)
                      (IM.INDEX.SUBSUB.LEFTMARGIN 75))
-              (* on the title page, the y-pos of the lower-left corner of the first line in the title
-                 <and of the XEROX logo>, measured in points from the bottom page margin. The X-pos 
-                 is always 0 for the XEROX logo, and the normal text indentation for the title.)
+              
+              (* ;; "on the title page, the y-pos of the lower-left corner of the first line in the title <and of the XEROX logo>, measured in points from the bottom page margin.  The X-pos is always 0 for the XEROX logo, and the normal text indentation for the title.")

+
               (INITVARS (IM.TITLEPAGE.TITLE.Y 258))
-              (* on the title page, the y-pos of the lower-left corner of the first line in the 
-                 document number, measured in points from the bottom page margin. The Y-pos is always
-                 the normal text indentation.)
+              
+              (* ;; "on the title page, the y-pos of the lower-left corner of the first line in the document number, measured in points from the bottom page margin.  The Y-pos is always the normal text indentation.")

+
               (INITVARS (IM.TITLEPAGE.DOCNUMBER.Y 45))
-              (* Tedit tab setting used for subsection heading text. "(40 . LEFT)" determines the 
-                 indentation of the title after the subsec number, measured in points from the left 
-                 page margin. "18" is the tab used if the subsec number is wider than 40 pts.)
+              
+              (* ;; "Tedit tab setting used for subsection heading text.  '(40 . LEFT)' determines the indentation of the title after the subsec number, measured in points from the left page margin.  '18' is the tab used if the subsec number is wider than 40 pts.")

+
               [INITVARS (IM.SUBSEC.TITLE.TABS '(18 (40 . LEFT]
-              (* Tedit tab setting used for chapter titles, headers, and footers to right-justify 
-                 text. "(504 . RIGHT)" specifies a right tab at the right-hand edge of the text, 
-                 measured in points from the left page margin.)
+              
+              (* ;; "Tedit tab setting used for chapter titles, headers, and footers to right-justify text.  '(504 . RIGHT)' specifies a right tab at the right-hand edge of the text, measured in points from the left page margin.")

+
               [INITVARS (IM.RIGHT.MARGIN.TABS '(0 (504 . RIGHT]
-              (* Tedit tab setting used for labeled lists, numbered lists, bullet-ed lists. 
-                 "(186 . RIGHT)" right-justifies the label on the left of the center space. 
-                 "(204 . LEFT)" starts the first line of the list item with the same indentation as 
-                 normal text. Both measurements are measured in points from the left page margin.)
+              
+              (* ;; "Tedit tab setting used for labeled lists, numbered lists, bullet-ed lists.  '(186 . RIGHT)' right-justifies the label on the left of the center space.  '(204 . LEFT)' starts the first line of the list item with the same indentation as normal text.  Both measurements are measured in points from the left page margin.")

+
               [INITVARS (IM.LABELED.LIST.TABS '(18 (186 . RIGHT)
                                                    (204 . LEFT]
-              (* left, right, top, and bottom margins of the "page region" %, measured in points from
-                 the four edges of the page.)
+              
+              (* ;; "left, right, top, and bottom margins of the 'page region' , measured in points from the four edges of the page.")

+
               (INITVARS (IM.PAGE.LEFTMARGIN 58)
                      (IM.PAGE.RIGHTMARGIN 54)
                      (IM.PAGE.TOPMARGIN 54)
                      (IM.PAGE.BOTTOMMARGIN 54))
-              (* top margin of the page region for the first page of a chapter <where the first 
-                 paragraph is the chapter title>, measured in points from the top page edge.)
+              
+              (* ;; "top margin of the page region for the first page of a chapter <where the first paragraph is the chapter title>, measured in points from the top page edge.")

+
               (INITVARS (IM.PAGE.FIRST.TOPMARGIN 12))
-              (* top margin of the page region for the first page of the index, measured in points 
-                 from the top page edge. Note that in the case of the index, because it uses two 
-                 columns, the index title is implemented as a Tedit header, instead of as the first 
-                 paragraph of the document.)
+              
+              (* ;; "top margin of the page region for the first page of the index, measured in points from the top page edge.  Note that in the case of the index, because it uses two columns, the index title is implemented as a Tedit header, instead of as the first paragraph of the document.")

+
               (INITVARS (IM.INDEX.PAGE.FIRST.TOPMARGIN 144))
-              (* y-pos of lower-left corner of footer text, measured in points from the bottom page 
-                 edge.)
+                                                             (* ; 
+
           "y-pos of lower-left corner of footer text, measured in points from the bottom page edge.")

               (INITVARS (IM.FOOTER.Y 22))
-              (* y-pos of the footer hrule, measured in points from the bottom page edge.)
+                                                             (* ; 
+
                           "y-pos of the footer hrule, measured in points from the bottom page edge.")

               (INITVARS (IM.FOOTER.RULE.Y 30))
-              (* y-pos of lower-left corner of header text, measured in points from the bottom page 
-                 edge.)
+                                                             (* ; 
+
           "y-pos of lower-left corner of header text, measured in points from the bottom page edge.")

               (INITVARS (IM.HEADER.Y 761))
-              (* y-pos of the header hrule, measured in points from the bottom page edge.)
+                                                             (* ; 
+
                           "y-pos of the header hrule, measured in points from the bottom page edge.")

               (INITVARS (IM.HEADER.RULE.Y 757))
-              (* y-pos of lower-left corner of bottom draft message, measured in points from the 
-                 bottom page edge.)
+                                                             (* ; 
+
  "y-pos of lower-left corner of bottom draft message, measured in points from the bottom page edge.")

               (INITVARS (IM.DRAFT.MESSAGE.BOTTOM.Y 5))
-              (* y-pos of lower-left corner of top draft message, measured in points from the bottom
-                 page edge.)
+                                                             (* ; 
+
     "y-pos of lower-left corner of top draft message, measured in points from the bottom page edge.")

               (INITVARS (IM.DRAFT.MESSAGE.TOP.Y 775))
-              (* x-pos of lower-left corner of both top and bottom draft messages, measured in points
-                 from the left page edge.)
+              
+              (* ;; "x-pos of lower-left corner of both top and bottom draft messages, measured in points from the left page edge.")

+
               (INITVARS (IM.DRAFT.MESSAGE.X 200)))
         (FILES TEDIT IMTRAN HRULE IMINDEX)
         (FNS TRANSLATE.DUMPOUT TRANSLATE.SAVE.DUMPOUT)
@@ -491,6 +500,8 @@
 (MAKE.IM.DOCUMENT

   [LAMBDA (FORM OUTFILE.FLG PAGE.LAYOUT OUTPUT.MESSAGE DEFAULT.PARALOOKS PTRFILENAME)
 
+    (* ;; "Edited 12-Apr-2024 19:58 by rmk")

+
     (* ;; "Edited  6-Mar-2024 21:17 by rmk: Fixed backquote commas. Also put IM.INDEX.CLOSEF calls in TEXTPROPs so advice in IMINDEX can be eliminated.")

 
     (* ;; "Edited 20-Jul-2022 15:10 by rmk")

@@ -506,9 +517,7 @@
 
 (* ;;; "PTRFILENAME is the name to be used if an index pointer file is generated during hardcopy <by printing index objects>")

 
-    (PROG ([IM.OUTFILE (OPENTEXTSTREAM NIL NIL NIL NIL `(IM.INDEX.PTRFILENAME ,PTRFILENAME 
-                                                               AFTERHARDCOPYFN (FUNCTION 
-                                                                                IM.INDEX.INIT]
+    (PROG ([IM.OUTFILE (OPENTEXTSTREAM NIL NIL NIL NIL `(IM.INDEX.PTRFILENAME ,PTRFILENAME]
            (FONT.STACK (CONS))
            (IM.TEDIT.LAST.PARA.BEGIN 1)
            (IM.TEDIT.LAST.FONT.BEGIN 1)
@@ -650,7 +659,8 @@
 
 
 
-(* fns for drawing vrules to the left of definition text -- an unused, never-fully debuged feature)

+(* ; "fns for drawing vrules to the left of definition text -- an unused, never-fully debuged feature"
+)

 
 (DEFINEQ
 
@@ -735,7 +745,7 @@
 
 
 
-(* fns for printing page numbers)

+(* ; "fns for printing page numbers")

 
 (DEFINEQ
 
@@ -831,7 +841,7 @@
 
 
 
-(* TOPROG functions, used to define the translating actions of IM text objects.)

+(* ; "TOPROG functions, used to define the translating actions of IM text objects.")

 
 (DEFINEQ
 
@@ -2062,75 +2072,78 @@
 
 
 
-(* the following variables specify all of the lengths used for possitioning IM text, headers, etc. on 
-the page. All of these are measured with respect to the page *margins* <the region on the page defined
- by the Tedit margin parameters> or with respect to the page *edges* <the edges of the physical page>.
+(* ;; 
+"the following variables specify all of the lengths used for possitioning IM text, headers, etc.  on the page.  All of these are measured with respect to the page *margins* <the region on the page defined by the Tedit margin parameters> or with respect to the page *edges* <the edges of the physical page>."
 )

 
 
 
 
-(* Note%: The formatting and printing does not always position the image on the page exactly as 
-specified. It will probably be necessary to adjust any variables based on the page edges until they 
-come out correctly on your printer.)

+(* ;; 
+"Note: The formatting and printing does not always position the image on the page exactly as specified.  It will probably be necessary to adjust any variables based on the page edges until they come out correctly on your printer."
+)

 
 
 
 
-(* indentation of 1st line of definitian header, measured in points from left page margin. Also used 
-for indentation of hrule under defn header.)

+(* ;; 
+"indentation of 1st line of definitian header, measured in points from left page margin.  Also used for indentation of hrule under defn header."
+)

 
 
 (RPAQ? IM.DEF.TITLE.1STLEFTMARGIN
 75)
 
 
 
-(* indentation of 2nd and other overflow lines of definition header, measured in points from left page
- margin.)

+(* ;; 
+"indentation of 2nd and other overflow lines of definition header, measured in points from left page margin."
+)

 
 
 (RPAQ? IM.DEF.TITLE.LEFTMARGIN
 204)
 
 
 
-(* indentation of vertical rule to the left of definition text, measured in points from left page 
-margin. This is a never-used, never-debugged feature.)

+(* ;; 
+"indentation of vertical rule to the left of definition text, measured in points from left page margin.  This is a never-used, never-debugged feature."
+)

 
 
 (RPAQ? IM.VRULE.X
 194)
 
 
 
-(* y-pos of top-left corner of top text line, measured in points from bottom page edge.)

+(* ; "y-pos of top-left corner of top text line, measured in points from bottom page edge.")

 
 
 (RPAQ? IM.TEXT.TOPMARGIN
 738)
 
 
 
-(* y-pos of bottom-left corner of bottom text line, measured in points from bottom page edge.)

+(* ; "y-pos of bottom-left corner of bottom text line, measured in points from bottom page edge.")

 
 
 (RPAQ? IM.TEXT.BOTTOMMARGIN
 54)
 
 
 
-(* x-pos of left edge of text, measured in points from the left page margin.)

+(* ; "x-pos of left edge of text, measured in points from the left page margin.")

 
 
 (RPAQ? IM.TEXT.LEFTMARGIN
 204)
 
 
 
-(* x-pos of right edge of text, measured in points from the left page margin.)

+(* ; "x-pos of right edge of text, measured in points from the left page margin.")

 
 
 (RPAQ? IM.TEXT.RIGHTMARGIN
 504)
 
 
 
-(* X-pos and Y-pos of the lower-left corner of the "[This page intentionally left blank]" message 
-printed on blank pages, measured in points from the left and bottom page edges.)

+(* ;; 
+"X-pos and Y-pos of the lower-left corner of the '[This page intentionally left blank]' message printed on blank pages, measured in points from the left and bottom page edges."
+)

 
 
 (RPAQ? IM.BLANKPAGE.SPECIALX
 258)
@@ -2139,8 +2152,9 @@ printed on blank pages, measured in points from the left and bottom page edges.)
 
 
 
-(* In the table of contents, indentation of first and second-level subsection headers, measured in 
-points from the left page margin.)

+(* ;; 
+"In the table of contents, indentation of first and second-level subsection headers, measured in points from the left page margin."
+)

 
 
 (RPAQ? IM.TOC.SUBSEC.ONE.LEFTMARGIN
 120)
@@ -2149,8 +2163,9 @@ points from the left page margin.)

 
 
 
-(* in the index, the indentation of the first line and remaining lines of a top-level entry, of a 
-subentry, and of a subsubentry, measured in points from the left page margin <for the left column>.)

+(* ;; 
+"in the index, the indentation of the first line and remaining lines of a top-level entry, of a subentry, and of a subsubentry, measured in points from the left page margin <for the left column>."
+)

 
 
 (RPAQ? IM.INDEX.1STLEFTMARGIN
 0)
@@ -2167,45 +2182,45 @@ subentry, and of a subsubentry, measured in points from the left page margin <fo
 
 
 
-(* on the title page, the y-pos of the lower-left corner of the first line in the title <and of the 
-XEROX logo>, measured in points from the bottom page margin. The X-pos is always 0 for the XEROX logo,
- and the normal text indentation for the title.)

+(* ;; 
+"on the title page, the y-pos of the lower-left corner of the first line in the title <and of the XEROX logo>, measured in points from the bottom page margin.  The X-pos is always 0 for the XEROX logo, and the normal text indentation for the title."
+)

 
 
 (RPAQ? IM.TITLEPAGE.TITLE.Y
 258)
 
 
 
-(* on the title page, the y-pos of the lower-left corner of the first line in the document number, 
-measured in points from the bottom page margin. The Y-pos is always the normal text indentation.)

+(* ;; 
+"on the title page, the y-pos of the lower-left corner of the first line in the document number, measured in points from the bottom page margin.  The Y-pos is always the normal text indentation."
+)

 
 
 (RPAQ? IM.TITLEPAGE.DOCNUMBER.Y
 45)
 
 
 
-(* Tedit tab setting used for subsection heading text. "(40 . LEFT)" determines the indentation of the
- title after the subsec number, measured in points from the left page margin. "18" is the tab used if 
-the subsec number is wider than 40 pts.)

+(* ;; 
+"Tedit tab setting used for subsection heading text.  '(40 . LEFT)' determines the indentation of the title after the subsec number, measured in points from the left page margin.  '18' is the tab used if the subsec number is wider than 40 pts."
+)

 
 
 (RPAQ? IM.SUBSEC.TITLE.TABS
 '(18 (40 . LEFT)))
 
 
 
-(* Tedit tab setting used for chapter titles, headers, and footers to right-justify text. 
-"(504 . RIGHT)" specifies a right tab at the right-hand edge of the text, measured in points from the 
-left page margin.)

+(* ;; 
+"Tedit tab setting used for chapter titles, headers, and footers to right-justify text.  '(504 . RIGHT)' specifies a right tab at the right-hand edge of the text, measured in points from the left page margin."
+)

 
 
 (RPAQ? IM.RIGHT.MARGIN.TABS
 '(0 (504 . RIGHT)))
 
 
 
-(* Tedit tab setting used for labeled lists, numbered lists, bullet-ed lists. "(186 . RIGHT)" 
-right-justifies the label on the left of the center space. "(204 . LEFT)" starts the first line of the
- list item with the same indentation as normal text. Both measurements are measured in points from the
- left page margin.)

+(* ;; 
+"Tedit tab setting used for labeled lists, numbered lists, bullet-ed lists.  '(186 . RIGHT)' right-justifies the label on the left of the center space.  '(204 . LEFT)' starts the first line of the list item with the same indentation as normal text.  Both measurements are measured in points from the left page margin."
+)

 
 
 (RPAQ? IM.LABELED.LIST.TABS
 '(18 (186 . RIGHT)
@@ -2213,8 +2228,9 @@ right-justifies the label on the left of the center space. "(204 . LEFT)" starts
 
 
 
-(* left, right, top, and bottom margins of the "page region" %, measured in points from the four edges
- of the page.)

+(* ;; 
+"left, right, top, and bottom margins of the 'page region' , measured in points from the four edges of the page."
+)

 
 
 (RPAQ? IM.PAGE.LEFTMARGIN
 58)
@@ -2227,67 +2243,70 @@ right-justifies the label on the left of the center space. "(204 . LEFT)" starts
 
 
 
-(* top margin of the page region for the first page of a chapter <where the first paragraph is the 
-chapter title>, measured in points from the top page edge.)

+(* ;; 
+"top margin of the page region for the first page of a chapter <where the first paragraph is the chapter title>, measured in points from the top page edge."
+)

 
 
 (RPAQ? IM.PAGE.FIRST.TOPMARGIN
 12)
 
 
 
-(* top margin of the page region for the first page of the index, measured in points from the top page
- edge. Note that in the case of the index, because it uses two columns, the index title is implemented
- as a Tedit header, instead of as the first paragraph of the document.)

+(* ;; 
+"top margin of the page region for the first page of the index, measured in points from the top page edge.  Note that in the case of the index, because it uses two columns, the index title is implemented as a Tedit header, instead of as the first paragraph of the document."
+)

 
 
 (RPAQ? IM.INDEX.PAGE.FIRST.TOPMARGIN
 144)
 
 
 
-(* y-pos of lower-left corner of footer text, measured in points from the bottom page edge.)

+(* ; "y-pos of lower-left corner of footer text, measured in points from the bottom page edge.")

 
 
 (RPAQ? IM.FOOTER.Y
 22)
 
 
 
-(* y-pos of the footer hrule, measured in points from the bottom page edge.)

+(* ; "y-pos of the footer hrule, measured in points from the bottom page edge.")

 
 
 (RPAQ? IM.FOOTER.RULE.Y
 30)
 
 
 
-(* y-pos of lower-left corner of header text, measured in points from the bottom page edge.)

+(* ; "y-pos of lower-left corner of header text, measured in points from the bottom page edge.")

 
 
 (RPAQ? IM.HEADER.Y
 761)
 
 
 
-(* y-pos of the header hrule, measured in points from the bottom page edge.)

+(* ; "y-pos of the header hrule, measured in points from the bottom page edge.")

 
 
 (RPAQ? IM.HEADER.RULE.Y
 757)
 
 
 
-(* y-pos of lower-left corner of bottom draft message, measured in points from the bottom page edge.)

+(* ; 
+"y-pos of lower-left corner of bottom draft message, measured in points from the bottom page edge.")

 
 
 (RPAQ? IM.DRAFT.MESSAGE.BOTTOM.Y
 5)
 
 
 
-(* y-pos of lower-left corner of top draft message, measured in points from the bottom page edge.)

+(* ; "y-pos of lower-left corner of top draft message, measured in points from the bottom page edge.")

 
 
 (RPAQ? IM.DRAFT.MESSAGE.TOP.Y
 775)
 
 
 
-(* x-pos of lower-left corner of both top and bottom draft messages, measured in points from the left 
-page edge.)

+(* ;; 
+"x-pos of lower-left corner of both top and bottom draft messages, measured in points from the left page edge."
+)

 
 
 (RPAQ? IM.DRAFT.MESSAGE.X
 200)
@@ -2388,23 +2407,23 @@ page edge.)

 (PUTPROPS SAVE.DUMPOUT
 MACRO
 (X (TRANSLATE.SAVE.DUMPOUT
 X)))
 )
 (DECLARE%: DONTCOPY
-  (FILEMAP (NIL (10668 38115 (IM.TEDIT 10678 . 12359) (DUMP 12361 . 14656) (DUMP.HEADERS.FOOTERS 14658
- . 17024) (DUMP.HRULE 17026 . 18177) (CHANGE.FONT 18179 . 19373) (IM.BOUT.IMAGEOBJ 19375 . 19698) (
-IM.TEDIT.DUMP.COMMANDS 19700 . 23253) (IM.TEDIT.DUMP.FOOTNOTES 23255 . 23696) (IM.TEDIT.DUMP.PARA 
-23698 . 24472) (INDEXX.PARSE.TYPE 24474 . 25769) (FORMAT.DEF 25771 . 27902) (FORMAT.LISPWORD 27904 . 
-28055) (MAKE.IM.DOCUMENT 28057 . 36970) (PRINT.NOTE 36972 . 37186) (SEND.INFO 37188 . 38113)) (38224 
-42242 (IM.VRULE.DISPLAYFN 38234 . 38558) (CREATE.VRULE.OBJECT 38560 . 40340) (PRINT.VRULES.ON.PAGE 
-40342 . 42240)) (42400 47155 (IM.FOLIO.DISPLAYFN 42410 . 43088) (IM.FOLIO.SIZEFN 43090 . 43939) (
-CREATE.FOLIO.OBJECT 43941 . 45487) (GET.FOLIO.STRING 45489 . 47153)) (47287 93527 (ARG#TOPROG 47297 . 
-47436) (BIGLISPCODE#TOPROG 47438 . 48674) (BRACKET#TOPROG 48676 . 48840) (CHAPTER#TOPROG 48842 . 51523
-) (COMMENT#TOPROG 51525 . 52077) (DEF#TOPROG 52079 . 55414) (FIGURE#TOPROG 55416 . 56760) (FN#TOPROG 
-56762 . 57159) (FNDEF#TOPROG 57161 . 61053) (FOOT#TOPROG 61055 . 61596) (INCLUDE#TOPROG 61598 . 61913)
- (INDEX#TOPROG 61915 . 63005) (INDEXX#TOPROG 63007 . 65088) (IT#TOPROG 65090 . 65231) (LBRACKET#TOPROG
- 65233 . 65387) (LISP#TOPROG 65389 . 65530) (LISPCODE#TOPROG 65532 . 66651) (LISPWORD#TOPROG 66653 . 
-67393) (LIST#TOPROG 67395 . 71817) (MACDEF#TOPROG 71819 . 72997) (NOTE#TOPROG 72999 . 73679) (
-PRINT.SPECIAL.CHARS#TOPROG 73681 . 74658) (PROPDEF#TOPROG 74660 . 74937) (RBRACKET#TOPROG 74939 . 
-75093) (REF#TOPROG 75095 . 82934) (RM#TOPROG 82936 . 83074) (SUB#TOPROG 83076 . 83224) (SUBSEC#TOPROG 
-83226 . 87729) (SUPER#TOPROG 87731 . 87885) (TABLE#TOPROG 87887 . 91839) (TAG#TOPROG 91841 . 92108) (
-TERM#TOPROG 92110 . 92423) (VAR#TOPROG 92425 . 92828) (VARDEF#TOPROG 92830 . 93525)) (111173 116115 (
-TRANSLATE.DUMPOUT 111183 . 115714) (TRANSLATE.SAVE.DUMPOUT 115716 . 116113)))))
+  (FILEMAP (NIL (11391 38703 (IM.TEDIT 11401 . 13082) (DUMP 13084 . 15379) (DUMP.HEADERS.FOOTERS 15381
+ . 17747) (DUMP.HRULE 17749 . 18900) (CHANGE.FONT 18902 . 20096) (IM.BOUT.IMAGEOBJ 20098 . 20421) (
+IM.TEDIT.DUMP.COMMANDS 20423 . 23976) (IM.TEDIT.DUMP.FOOTNOTES 23978 . 24419) (IM.TEDIT.DUMP.PARA 
+24421 . 25195) (INDEXX.PARSE.TYPE 25197 . 26492) (FORMAT.DEF 26494 . 28625) (FORMAT.LISPWORD 28627 . 
+28778) (MAKE.IM.DOCUMENT 28780 . 37558) (PRINT.NOTE 37560 . 37774) (SEND.INFO 37776 . 38701)) (38817 
+42835 (IM.VRULE.DISPLAYFN 38827 . 39151) (CREATE.VRULE.OBJECT 39153 . 40933) (PRINT.VRULES.ON.PAGE 
+40935 . 42833)) (42997 47752 (IM.FOLIO.DISPLAYFN 43007 . 43685) (IM.FOLIO.SIZEFN 43687 . 44536) (
+CREATE.FOLIO.OBJECT 44538 . 46084) (GET.FOLIO.STRING 46086 . 47750)) (47888 94128 (ARG#TOPROG 47898 . 
+48037) (BIGLISPCODE#TOPROG 48039 . 49275) (BRACKET#TOPROG 49277 . 49441) (CHAPTER#TOPROG 49443 . 52124
+) (COMMENT#TOPROG 52126 . 52678) (DEF#TOPROG 52680 . 56015) (FIGURE#TOPROG 56017 . 57361) (FN#TOPROG 
+57363 . 57760) (FNDEF#TOPROG 57762 . 61654) (FOOT#TOPROG 61656 . 62197) (INCLUDE#TOPROG 62199 . 62514)
+ (INDEX#TOPROG 62516 . 63606) (INDEXX#TOPROG 63608 . 65689) (IT#TOPROG 65691 . 65832) (LBRACKET#TOPROG
+ 65834 . 65988) (LISP#TOPROG 65990 . 66131) (LISPCODE#TOPROG 66133 . 67252) (LISPWORD#TOPROG 67254 . 
+67994) (LIST#TOPROG 67996 . 72418) (MACDEF#TOPROG 72420 . 73598) (NOTE#TOPROG 73600 . 74280) (
+PRINT.SPECIAL.CHARS#TOPROG 74282 . 75259) (PROPDEF#TOPROG 75261 . 75538) (RBRACKET#TOPROG 75540 . 
+75694) (REF#TOPROG 75696 . 83535) (RM#TOPROG 83537 . 83675) (SUB#TOPROG 83677 . 83825) (SUBSEC#TOPROG 
+83827 . 88330) (SUPER#TOPROG 88332 . 88486) (TABLE#TOPROG 88488 . 92440) (TAG#TOPROG 92442 . 92709) (
+TERM#TOPROG 92711 . 93024) (VAR#TOPROG 93026 . 93429) (VARDEF#TOPROG 93431 . 94126)) (111920 116862 (
+TRANSLATE.DUMPOUT 111930 . 116461) (TRANSLATE.SAVE.DUMPOUT 116463 . 116860)))))
 STOP

fonts/adobe/DISPLAYFONTCOERCIONS

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