DFV gets FNS and/or FUNCTIONS, depending on what definitions exist (#2530)

If both exist, it brings up 2 Sedit windows.

The relative version numbers are currently mapped to Medley absolute
version numbers. It would be nice to extend VERSIONDEFS with a function
(say GEDV) that maps the relative version numbers into the definitions
on git-file versions, by looking at the history. So (GEDV 'FOO 'RECORD
-3) would find the file for FOO's record declaration from WHEREIS, and
get the definition from the version 3 commits back. But GITFNS doesn't
currently have a primitive for fetching and interpreting history.

.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/ISSUE_TEMPLATE/primer.yml

@@ -0,0 +1,68 @@
+name: Report an issue with the "Medley Interlisp for the Newcomer" primer
+description: Use this template to report issues or make suggestions.
+title: "[Primer] <short title here>"
+labels: 
+  - primer
+  - documentation
+body:
+  - type: dropdown
+    id: problemType
+    attributes:
+      label: "What type of issue are you reporting?"
+      options:
+        - Suggested improvement
+        - Incorrect explanation / code sample
+        - Confusing explanation
+        - Outdated information
+        - Broken link
+        - Typo / Grammar
+    validations:
+      required: true
+  - type: dropdown
+    id: location
+    attributes:
+      label: "Section of the primer where the issue occurs"
+      options:
+        - Introduction
+        - Medley online and Medley Local
+        - Understanding and Navigating the Interface
+        - Understanding Lisp Syntax
+        - Atoms, Functions and Lists
+        - Variable Bindings and Scope
+        - Iterators and Conditionals
+        - The File Browser
+        - Debugging
+        - Editing functions with SEdit
+        - Build Your First Interactive Program
+        - Saving Your Work
+        - TEdit, The WYSIWYG Editor
+        - Drawing and Displaystreams
+        - Making a Graph with Grapher
+        - Additional Resources
+        - General Feedback (not specific to a section)
+    validations:
+      required: true
+  - type: textarea
+    id: issueLocationDetails
+    attributes:
+      label: "Please provide more details about the location of the issue"
+      description: "For example, the specific page title, section heading, or url."
+    validations:
+      required: false
+  - type: textarea
+    id: issueDescription
+    attributes:
+      label: "Description of the issue"
+      description: "Please provide a detailed description of the issue you encountered."
+    validations:
+      required: true
+  - type: textarea
+    id: suggestedFix
+    attributes:
+      label: "Suggested fix or improvement"
+      description: "If you have a suggestion for how to fix or improve the issue, please provide it here."
+    validations:
+      required: false
+  - type: markdown
+    attributes:
+      value: "## Thank you for helping us improve the **Medley Interlisp for the Newcomer** primer!"

.github/ISSUE_TEMPLATE/what_people_are_saying.yml

@@ -1,6 +1,6 @@
-name: "New entry for **What People Are Saying**"
-description: "Suggest a new entry for the **What People are Saying** page"
-title: "What People are Saying suggestion"
+name: New "What People Are Saying" entry
+description: 'Suggest a new entry for the "What People Are Saying" page'
+title: "What People Are Saying suggestion"
 body:
   - type: dropdown
     id: contentType
@@ -24,7 +24,7 @@ body:
     id: additionalInformation
     attributes:
       label:  Additional information
-      description: "Use this space to supply any addiitonal information on the suggested item."
+      description: "Use this space to supply any additional information on the suggested item."
     validations:
       required: false
   - type: markdown

.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

@@ -69,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 }}
@@ -110,18 +110,28 @@ jobs:
         force: ${{ needs.inputs.outputs.force }}
     secrets: inherit
 
+######################################################################################
+
+  # 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-latest
+    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 master
+            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/tagged
+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

README.md

@@ -1,12 +1,14 @@
 # Medley 
 
-This repository is for the Lisp environment of [Medley](https://interlisp.org).
+The [Medley Interlisp Project](https://interlisp.org) aims to preserve, revive, and modernize the [Interlisp](https://interlisp.org) software development environment for rapid prototyping, research and Artificial Intelligence created at Xerox PARC since the 1970s.
 
-[Install and Run](https://interlisp.org/software/install-and-run) covers ways to install and start up Medley on Linux systems, MacOS, and Windows (with or without WSL).
+This repository is for the Lisp environment of the [Medley](https://interlisp.org) release of Interlisp. Other repositories hold additional subsystems and applications such as [Maiko](https://github.com/Interlisp/maiko), the implementation (in C) of the Medley virtual machine, the [LOOPS](https://github.com/Interlisp/loops) object-oriented extension of Interlisp, and the [NoteCards](https://github.com/Interlisp/notecards) hypermedia system.
+
+[Install and Run](https://interlisp.org/software/install-and-run) covers ways to install and start up Medley on Linux systems, MacOS, Windows (with or without WSL), and in a web browser.
 
 [Using Medley](https://interlisp.org/software/using-medley/) has an overview and pointers to documentation.
 
-[Interlisp/maiko](https://github.com/Interlisp/maiko), is the repo for the implementation (in C) of the Medley virtual machine. 
+The [Glossary](https://interlisp.org/history/glossary) defines system-specific terms such as "loadup" and "sysout".
 
 ## Releases
 
@@ -67,25 +69,9 @@ If you have a high-resolution display, note that much of the graphics was design
 
 Medley presumes you have a 3-button mouse; the scroll-wheel on some mice acts as one, with some difficulty. Go into XQuartz Preferences/Input and check "Emulate three button mouse" option.
 
-### Running Medley Interlisp (obsolete)
+### Running Medley Interlisp
 
-The `run-medley` script in this repo sets up some convenient defaults. Running Medley can be done by typing:
-```
-$ cd medley
-$ ./run-medley
-```
-
-Or, if you wish to start Medley up with a different SYSOUT:
-
-```
-$ cd medley
-$ ./run-medley <SYSOUT-file-name>
-```
-The first time the system is run it loads the system image that comes
-with the system.  When you exit the system (or "do a `SaveVM`" menu
-option) the state of your machine is saved in a file named
-`~/lisp.virtualmem`.  Subsequent system startups load the
-`~/lisp.virtualmem` image by default.
+The primer [Medley Interlisp for the Newcomer](https://primer.interlisp.org) eases new users into the Interlisp environment. It assumes no prior knowledge of Lisp and covers the user interface, programming and debugging, windows and graphics, and more. We recommend consulting this document to learn how to run and use the system.
 
 ### Exiting The System
 
@@ -123,7 +109,7 @@ Each directory should have a README.md, but briefly
 * BUILDING.md -- instructions on how to make your own loadups
 * clos -- early implementation of Common Lisp Object System
 * CLTL2 -- files submitted to bring Medley up to the conformance to "Common Lisp, the Language" 2nd edition. Not enough to conform to the ANSI standard lisp.
-* docs -- Documentation files (in TEdit format, PDFs, or online help; look [here](https://github.com/Interlisp/medley/Documentation))
+* docs -- Documentation files (in TEdit format, PDFs, or online help
 * fonts -- raster fonts (or font widths) in various resolutions for display, postscript, interpress, press formats
 * greetfiles -- various configuration setups
 * internal -- These _were_ internal to Venue

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/html-primer/Medley-Primer-OnePage.html

@@ -1,2 +0,0 @@
-<!DOCTYPE  html PUBLIC "-//W3C//DTD XHTML 1.0 Frameset//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-frameset.dtd">
-<html xmlns="http://www.w3.org/1999/xhtml"><head><meta http-equiv="Content-Type" content="text/html; charset=utf-8"/><title>Medley-Primer-OnePage</title></head><frameset cols="310pt,*" rows="94%"><frame src="Medley-Primer-OnePage_files/headings.htm" name="headings"/><frame src="Medley-Primer-OnePage_files/content.htm" name="content"/></frameset></html>