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.

.gitattributes

@@ -0,0 +1,9 @@
+# Denote all files that are truly binary and should not be modified.
+*.tedit binary
+*.lcom binary
+*.sketch binary
+*.dfasl binary
+*.TEDIT binary
+*.LCOM binary
+*.SKETCH binary
+*.DFASL binary

.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

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

.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

@@ -0,0 +1,32 @@
+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
+    attributes:
+      label: "What type of entry?"
+      options:
+        - Blog
+        - Tweet
+        - Email
+        - Other
+    validations:
+      required: true
+  - type: input
+    id: entryLink
+    attributes:
+      label: Link to entry
+      description: "What is the link to the item we should add to the **What People are Saying** page?"
+    validations:
+      required: true
+  - type: textarea
+    id: additionalInformation
+    attributes:
+      label:  Additional information
+      description: "Use this space to supply any additional information on the suggested item."
+    validations:
+      required: false
+  - type: markdown
+    attributes:
+      value: "## Thank you for your suggestion!"

.github/workflows/Dockerfile_medley

@@ -0,0 +1,84 @@
+#*******************************************************************************
+# 
+# Dockerfile to build Medley image from latest Maiko image 
+# plus latest release tars from github
+#
+# Copyright 2022-2023 by Interlisp.org
+#
+# ******************************************************************************
+
+FROM ubuntu:22.04
+ARG TARGETPLATFORM
+
+#  Handle ARGs, ENV variables, and LABELs
+ARG BUILD_DATE=unknown
+ARG MEDLEY_RELEASE=unknown
+ARG MAIKO_RELEASE=unknown
+ARG REPO_OWNER=Interlisp
+LABEL name="Medley"
+LABEL description="The Medley Interlisp environment"
+LABEL url="https://github.com/${REPO_OWNER}/medley"
+LABEL build-date=$BUILD_DATE
+LABEL medley_release=$MEDLEY_RELEASE
+LABEL maiko_release=$MAIKO_RELEASE
+
+ENV MEDLEY_DOCKER_BUILD_DATE=$BUILD_DATE
+ENV MEDLEY_RELEASE=$MEDLEY_RELEASE
+ENV MAIKO_RELEASE=$MAIKO_RELEASE
+
+ENV LANG=C.UTF-8
+
+# Copy over the release deb files
+ADD ./*.deb /tmp
+
+# Get tzdata setup ahead of time
+RUN apt-get update; \
+    ln -fs /usr/share/zoneinfo/America/Los_Angeles /etc/localtime; \
+    DEBIAN_FRONTEND=noninteractive apt-get install -y tzdata; \
+    dpkg-reconfigure --frontend noninteractive tzdata
+
+# Install Medley/Maiko and add tightvnc server and xclip to the image
+RUN apt-get update                                               \
+    && apt-get install -y apt-utils                              \ 
+    && apt-get install -y tigervnc-standalone-server             \
+    && apt-get install -y xclip                                  \
+    && apt-get install -y man-db                                 \
+    && apt-get install -y nano                                   \
+    && apt-get install -y sudo                                   \
+    && p=$(echo "${TARGETPLATFORM}" | sed -e "s#linux/##")       \
+    && p=$(                                                      \
+           if [ "$p" = "amd64" ];                                \
+               then echo "x86_64";                               \
+           elif [ "$p" = "arm64" ];                              \
+               then echo "aarch64";                              \
+           elif [ "$p" = "arm/v7" ];                             \
+               then echo "armv7l";                               \
+           else                                                  \
+               echo "x86_64";                                    \
+           fi                                                    \
+          )                                                      \
+    && deb="medley-full-linux-${p}-${MEDLEY_RELEASE#medley-}"    \
+    && deb=${deb}_${MAIKO_RELEASE#maiko-}.deb                    \
+    && apt-get install -y /tmp/${deb}                            \
+    && chown --recursive root:root /usr/local/interlisp          \
+    && (if [ -n "$(which unminimize)" ]; then (yes | unminimize); fi)
+
+# "Finalize" image
+EXPOSE 5900
+RUN    adduser --gecos "" medley                                 \
+    && adduser --gecos "" ubuntu                                 \
+    && adduser medley sudo                                       \
+    && adduser ubuntu sudo                                       \
+    && (echo 'medley:yeldem' | chpasswd )                        \
+    && (echo 'ubuntu:utnubu' | chpasswd )                        \
+    && echo "medley     ALL=(ALL) NOPASSWD:ALL" >>/etc/sudoers   \
+    && echo "ubuntu     ALL=(ALL) NOPASSWD:ALL" >>/etc/sudoers   \  
+    && mkdir -p /home/medley/il                                  \
+    && chown medley:medley /home/medley/il
+
+ENV TERM=xterm
+USER medley
+WORKDIR /home/medley
+#ENTRYPOINT USER=medley Xvnc -SecurityTypes none -geometry 1280x720 :0 & DISPLAY=:0 medley --full -g 1280x720
+ENTRYPOINT /bin/bash
+

.github/workflows/buildDocker.yml

@@ -0,0 +1,244 @@
+#*******************************************************************************
+# buidDocker.yml
+#
+# Workflow to build and push a multiplatform (amd64, arm64 & arm7) Linux Docker
+# image for Medley. This workflow uses the latest Maiko docker image and the 
+# latest Medley release on github.
+#
+# This workflow contains a sentry that causes it to skip the build (as identified
+# by its commit SHA) if its already been done.  Setting the "force" input to true
+# will bypass this sentry,
+#
+# Updated 2022-01-18 by Frank Halasz from on earlier buildDocker.yml
+#
+# Copyright 2022 by Interlisp.org
+#
+# ******************************************************************************
+
+name: 'Build/Push Docker Image'
+
+# Run this workflow on ...
+on:
+  workflow_dispatch:
+    inputs:
+      draft:
+        description: "Mark this as a draft release"
+        type: choice
+        options:
+        - 'false'
+        - 'true'
+      force:
+        description: "Force build even if build already successfully completed for this commit"
+        type: choice
+        options:
+        - 'false'
+        - 'true'
+
+  workflow_call:
+    outputs:
+      successful:
+        description: "'True' if medley docker build completed successully"
+        value: ${{ jobs.complete.outputs.build_successful }}
+    inputs:
+      draft:
+        description: "Mark this as a draft release"
+        required: false
+        type: string
+        default: 'false'
+      force:
+        description: "Force build even if build already successfully completed for this commit"
+        required: false
+        type: string
+        default: 'false'
+    secrets:
+      DOCKER_USERNAME:
+        required: true
+      DOCKER_PASSWORD:
+        required: true
+
+defaults:
+  run:
+    shell: bash
+
+
+jobs:
+
+
+######################################################################################
+
+  # Use sentry-action to determine if this release has already been built
+  # based on the latest commit to the repo
+
+  sentry:
+    runs-on: ubuntu-24.04
+    outputs:
+      release_not_built: ${{ steps.check.outputs.release_not_built }}
+
+    steps:
+      # Checkout the actions for this repo owner
+      - name: Checkout Actions
+        uses: actions/checkout@v4
+        with:
+          repository: ${{ github.repository_owner }}/.github
+          path: ./Actions_${{ github.sha }}
+      - run: mv ./Actions_${{ github.sha }}/actions ../actions && rm -rf ./Actions_${{ github.sha }}
+
+      # Check if build already run for this commit
+      - name: Build already completed?
+        id: check
+        continue-on-error: true
+        uses: ./../actions/check-sentry-action
+        with:
+          tag: "docker"
+
+######################################################################################
+
+  #
+  #  Build and push the medley docker image
+  #
+
+  build_and-push:
+
+    runs-on: ubuntu-24.04
+
+    needs: [sentry]
+    if: |
+      needs.sentry.outputs.release_not_built == 'true'
+      || inputs.force == 'true'
+
+    steps:
+      # Checkout latest commit
+      - name: Checkout Medley
+        uses: actions/checkout@v4
+
+      # Find latest release (draft or normal)
+      # and download its assets
+      - name: Download linux debs from latest (draft) release
+        run: |
+          tag=""
+          if [ "${{ inputs.draft }}" = "true" ];
+          then
+            tag=$(gh release list | grep Draft | head -n 1 | awk '{ print $3 }')
+          fi
+          if [ -z "${tag}" ];
+          then
+            tag=$(gh release list | grep Latest | head -n 1 | awk '{ print $3 }')
+          fi
+          mkdir -p release_debs
+          gh release download ${tag} -D release_debs -p '*-linux-*.deb'
+        env:
+          GITHUB_TOKEN: ${{ secrets.GITHUB_TOKEN }}
+
+      # Get Maiko and Medley release information from name of deb files
+      # just downloaded from the Medley latest release
+      - name: Get info about Miako and Medley releases
+        id: release_info
+        run: |
+          regex="^medley-full-[^-]*-[^-]*-\([^_]*\)_\(.*\).deb\$"
+          ls -1 release_debs | head -n 1 > debname.tmp
+          medley_release="medley-$(sed -e "s/${regex}/\1/" debname.tmp)"
+          maiko_release="maiko-$(sed -e "s/${regex}/\2/" debname.tmp)"
+          rm -f debname.tmp
+          echo "MEDLEY_RELEASE=${medley_release}"     >> ${GITHUB_ENV}
+          echo "MAIKO_RELEASE=${maiko_release}"       >> ${GITHUB_ENV}
+
+          # regex="^[^0-9]*\([^_]*\)_\([^-]*-[^-]*\)-\([^-]*\)-\([^.]*\).*\$"
+
+      # Set repo env variables
+      - name: Set repo/docker env variables
+        id: repo_env
+        run: |
+          repo_name="${GITHUB_REPOSITORY#*/}"
+          docker_namespace="$(echo "${{ github.repository_owner }}" | tr '[:upper:]' '[:lower:]')"
+          docker_image="${docker_namespace}/${repo_name}"
+          if [ "${{ inputs.draft }}" = "false" ];
+          then
+              docker_tags="${docker_image}:latest,${docker_image}:${MEDLEY_RELEASE#*-}_${MAIKO_RELEASE#*-}"
+              platforms="linux/amd64"
+              #,linux/arm64
+          else
+              docker_tags="${docker_image}:draft"
+              platforms="linux/amd64"
+          fi
+          echo "REPO_NAME=${repo_name}"                       >> ${GITHUB_ENV}
+          echo "DOCKER_NAMESPACE=${docker_namespace}"         >> ${GITHUB_ENV}
+          echo "DOCKER_IMAGE=${docker_image}"                 >> ${GITHUB_ENV}
+          echo "DOCKER_TAGS=${docker_tags}"                   >> ${GITHUB_ENV}
+          echo "BUILD_DATE=$(date -u +'%Y-%m-%dT%H:%M:%SZ')"  >> ${GITHUB_ENV}
+          echo "PLATFORMS=${platforms}"                       >> ${GITHUB_ENV}
+          #linux/amd64,linux/arm64,linux/arm/v7
+
+      # Setup the Docker Machine Emulation environment.  
+      - name: Set up QEMU
+        uses: docker/setup-qemu-action@v3
+        with:
+          platforms: linux/amd64
+       # ,linux/arm64,linux/arm/v7
+
+      # Setup the Docker Buildx funtion
+      - name: Set up Docker Buildx
+        id: buildx
+        uses: docker/setup-buildx-action@v3
+
+      # Login into DockerHub - required to store the created image
+      - name: Login to DockerHub
+        uses: docker/login-action@v3
+        with:
+          username: ${{ secrets.DOCKER_USERNAME }}
+          password: ${{ secrets.DOCKER_PASSWORD }}
+
+      # Do the Docker Build using the Dockerfile in the repository
+      # checked out and the release tars just downloaded.
+      # Push the result to Docker Hub
+      - name: Build Docker Image for Push to Docker Hub
+        uses: docker/build-push-action@v5
+        with:
+          builder: ${{ steps.buildx.outputs.name }}
+          build-args: |
+            BUILD_DATE=${{ env.BUILD_DATE }}
+            MEDLEY_RELEASE=${{ env.MEDLEY_RELEASE }}
+            MAIKO_RELEASE=${{ env.MAIKO_RELEASE }}
+            REPO_OWNER=${{ github.repository_owner }}
+          context: ./release_debs
+          file: ./.github/workflows/Dockerfile_medley
+          platforms: ${{ env.PLATFORMS }}
+          # Push the result to DockerHub
+          push: true
+          tags: ${{ env.DOCKER_TAGS }}
+
+######################################################################################
+
+  # Use set-sentry-action to determine set the sentry that says this release has
+  # been successfully built
+
+  complete:
+
+    runs-on: ubuntu-24.04
+
+    outputs:
+      build_successful: ${{ steps.output.outputs.build_successful }}
+
+    needs: [sentry, build_and-push]
+
+    steps:
+      # Checkout the actions for this repo owner
+      - name: Checkout Actions
+        uses: actions/checkout@v4
+        with:
+          repository: ${{ github.repository_owner }}/.github
+          path: ./Actions_${{ github.sha }}
+      - run: mv ./Actions_${{ github.sha }}/actions ../actions && rm -rf ./Actions_${{ github.sha }}
+
+      # Set sentry
+      - name: Set flag that build for this commit has been completed
+        id: set
+        uses: ./../actions/set-sentry-action
+        with:
+          tag: "docker"
+
+      - name: Output
+        id: output
+        run: |
+          echo "build_successful='true'" >> ${GITHUB_OUTPUT}
+
+######################################################################################

.github/workflows/buildLoadup.yml

@@ -0,0 +1,645 @@
+#*******************************************************************************
+# buidLoadup.yml
+#
+# Interlisp workflow to build Medley release and push it to github. This workflow
+# is platform independent - but runs on Linux/amd64.
+#
+# This workflow contains a sentry that causes it to skip the build (as identified
+# by its commit SHA) if its already been done.  Setting the "force" input to true
+# will bypass this sentry,
+#
+# 2022-01-17 Frank Halasz based on an earlier version of buildLoadup for Medley.
+#
+# Copyright 2022-2023 by Interlisp.org
+#
+# ******************************************************************************
+
+name: Build/Push Medley Release
+
+# Run this workflow on ...
+on:
+  workflow_dispatch:
+    inputs:
+      draft:
+        description: "Mark this as a draft release"
+        type: choice
+        options:
+        - 'false'
+        - 'true'
+      force:
+        description: "Force build even if build already successfully completed for this commit"
+        type: choice
+        options:
+        - 'false'
+        - 'true'
+
+  workflow_call:
+    outputs:
+      successful:
+        description: "'True' if medley build completed successully"
+        value: ${{ jobs.complete.outputs.build_successful }}
+    inputs:
+      draft:
+        description: "Mark this as a draft release"
+        required: false
+        type: string
+        default: 'false'
+      force:
+        description: "Force build even if build already successfully completed for this commit"
+        required: false
+        type: string
+        default: 'false'
+    secrets:
+      OIO_SSH_KEY:
+        required: true
+
+defaults:
+  run:
+    shell: bash
+
+
+jobs:
+
+# JOB: sentry #######################################################################
+
+  # Use sentry-action to determine if this release has already been built
+  # based on the latest commit to the repo
+
+  sentry:
+    runs-on: ubuntu-24.04
+    outputs:
+      release_not_built: ${{ steps.check.outputs.release_not_built }}
+
+    steps:
+      # Checkout the actions for this repo owner
+      - name: Checkout Actions
+        uses: actions/checkout@v4
+        with:
+          repository: ${{ github.repository_owner }}/.github
+          path: ./Actions_${{ github.sha }}
+      - run: mv ./Actions_${{ github.sha }}/actions ../actions && rm -rf ./Actions_${{ github.sha }}
+
+      # Check if build already run for this commit
+      - name: Build already completed?
+        id: check
+        continue-on-error: true
+        uses: ./../actions/check-sentry-action
+        with:
+          tag: "loadup"
+
+
+# JOB: loadup #######################################################################
+
+  #
+  # Do the loadup and push to release on github
+  # 
+
+  loadup:
+
+    runs-on: ubuntu-24.04
+
+    outputs:
+      combined_release_tag: ${{ steps.job_outputs.outputs.COMBINED_RELEASE_TAG }}
+      medley_release_tag: ${{ steps.job_outputs.outputs.MEDLEY_RELEASE_TAG }}
+      medley_short_release_tag: ${{ steps.job_outputs.outputs.MEDLEY_SHORT_RELEASE_TAG }}
+      debs_filename_base: ${{ steps.debs.outputs.DEBS_FILENAME_BASE }}
+      maiko_release_tag: ${{ steps.job_outputs.outputs.MAIKO_RELEASE_TAG }}
+      artifacts_filename_template: ${{ steps.job_outputs.outputs.ARTIFACTS_FILENAME_TEMPLATE }}
+      release_url: ${{ steps.push.outputs.html_url }}
+
+    needs: [sentry]
+    if: |
+      needs.sentry.outputs.release_not_built == 'true'
+      || inputs.force == 'true'
+
+    steps:
+      # Checkout the actions for this repo owner
+      - name: Checkout Actions
+        uses: actions/checkout@v4
+        with:
+          repository: ${{ github.repository_owner }}/.github
+          path: ./Actions_${{ github.sha }}
+      - run: mv ./Actions_${{ github.sha }}/actions ../actions && rm -rf ./Actions_${{ github.sha }}
+
+      # Checkout latest commit
+      - name: Checkout Medley
+        uses: actions/checkout@v4
+
+      # Setup release tag
+      - name: Setup Release Tag
+        id: tag
+        uses: ./../actions/release-tag-action
+
+      # Get Maiko release information, retrieves the name of the latest (draft)
+      # release.  Used to download the correct Maiko release
+      # Find latest release (draft or normal)
+      - name: Get maiko release information
+        id: maiko
+        run: |
+          tag=""
+          if [ "${{ inputs.draft }}" = "true" ];
+          then
+            gh release list --repo ${{ github.repository_owner }}/maiko | grep Draft >/tmp/releases-$$
+            if [ $? -eq 0 ];
+            then
+              tag=$(head -n 1 /tmp/releases-$$ | awk '{ print $3 }')
+            fi
+          fi
+          if [ -z "${tag}" ];
+          then
+            tag=$(gh release list --repo ${{ github.repository_owner }}/maiko | grep Latest | head -n 1 | awk '{ print $3 }')
+          fi
+          echo "maiko_tag=${tag}" >> ${GITHUB_OUTPUT}
+        env:
+          GITHUB_TOKEN: ${{ secrets.MAIKO_TOKEN }}
+      # Setup environment variables & establish job outputs
+      - name: Setup Environment Variables
+        run: |
+          echo "build_time=$(date -u +'%Y-%m-%dT%H:%M:%SZ')" >> ${GITHUB_OUTPUT}
+          echo "TARBALL_DIR=/tmp/tarballs" >>${GITHUB_ENV}
+          echo "MEDLEY_RELEASE_TAG=${RELEASE_TAG}" >>${GITHUB_ENV}
+          echo "MAIKO_RELEASE_TAG=${{ steps.maiko.outputs.maiko_tag }}" >>${GITHUB_ENV}
+          echo "ARTIFACTS_FILENAME_TEMPLATE=medley-full-@@PLATFORM@@-@@ARCH@@-@@MEDLEY.RELEASE@@_@@MAIKO.RELEASE@@" >>${GITHUB_ENV}
+      - name: More Environment Variables
+        run: |
+          echo "MEDLEY_SHORT_RELEASE_TAG=${MEDLEY_RELEASE_TAG#medley-}" >>${GITHUB_ENV}
+          echo "MAIKO_SHORT_RELEASE_TAG=${MAIKO_RELEASE_TAG#maiko-}" >>${GITHUB_ENV}
+      - name: Even More Environment Variables
+        run: |
+          echo "COMBINED_RELEASE_TAG=${MEDLEY_SHORT_RELEASE_TAG}_${MAIKO_SHORT_RELEASE_TAG}" >>${GITHUB_ENV}
+      - name: Establish job outputs
+        id: job_outputs
+        run: |
+          echo "COMBINED_RELEASE_TAG=${COMBINED_RELEASE_TAG}" >> ${GITHUB_OUTPUT}
+          echo "MEDLEY_RELEASE_TAG=${MEDLEY_RELEASE_TAG}" >> ${GITHUB_OUTPUT}
+          echo "MEDLEY_SHORT_RELEASE_TAG=${MEDLEY_SHORT_RELEASE_TAG}" >> ${GITHUB_OUTPUT}
+          echo "MAIKO_RELEASE_TAG=${MAIKO_RELEASE_TAG}" >> $GITHUB_OUTPUT;
+          echo "ARTIFACTS_FILENAME_TEMPLATE=${ARTIFACTS_FILENAME_TEMPLATE}" >> ${GITHUB_OUTPUT}
+
+      # Setup some needed dirs in workspace
+      - name: Create work dirs
+        run: mkdir -p ${TARBALL_DIR}
+
+      # Download Maiko Release Assets and untar it
+      - name: Download Release Assets
+        run: |
+          gh release download ${MAIKO_RELEASE_TAG} \
+                              -D ${TARBALL_DIR}    \
+                              --repo ${{ github.repository_owner }}/maiko \
+                              -p '*.tgz'
+          tar -xzf "${TARBALL_DIR}/${MAIKO_RELEASE_TAG}-linux.x86_64.tgz"
+        env:
+          GITHUB_TOKEN: ${{ secrets.MAIKO_TOKEN }}
+
+      # Checkout Notecards and tar it in the tarballsdir
+      - name: Checkout Notecards
+        uses: actions/checkout@v4
+        with:
+          repository: ${{ github.repository_owner }}/notecards
+          path: ./notecards
+      - name: Tar notecards into tarball dir
+        run: |
+          mv ./notecards ../notecards
+          cd ../notecards
+          git archive --format=tgz --output="${TARBALL_DIR}/notecards.tgz" --prefix=notecards/ main
+
+      # Install vnc
+      - name: Install vnc
+        run: sudo apt-get update && sudo apt-get install -y tightvncserver
+
+      - name: Build Loadup sysouts and databases
+        run: |
+          Xvnc -geometry 1280x720 :0 &
+          export DISPLAY=":0"
+          scripts/loadup-all.sh -apps
+          scripts/loadup-db.sh
+
+      - name: Build release tars
+        run: |
+          scripts/release-make-tars.sh "${MEDLEY_RELEASE_TAG}"
+          mv releases/"${MEDLEY_SHORT_RELEASE_TAG}"/*.tgz "${TARBALL_DIR}"
+
+      # Push the release up to github releases
+      - name: Delete existing release with same tag (if any)
+        uses: cb80/delrel@latest
+        with:
+            tag: ${{ env.MEDLEY_RELEASE_TAG }}
+        continue-on-error: true
+
+      - name: Push the release
+        id: push
+        uses: ncipollo/release-action@v1
+        with:
+          allowUpdates: true
+          artifacts:
+            # ${{ env.TARBALL_DIR }}/notecards.tgz,
+            ${{ env.TARBALL_DIR }}/${{ env.MEDLEY_RELEASE_TAG }}-loadups.tgz,
+            ${{ env.TARBALL_DIR }}/${{ env.MEDLEY_RELEASE_TAG }}-runtime.tgz
+          tag: ${{ env.MEDLEY_RELEASE_TAG }}
+          draft: ${{ inputs.draft }}
+          prerelease: false
+          generateReleaseNotes: true
+          token: ${{ secrets.GITHUB_TOKEN }}
+
+      # Save the tarball directory for subsequent jobs
+      - name: Save tarballs
+        uses: actions/upload-artifact@v4
+        with:
+          name: tarballs
+          path: ${{ env.TARBALL_DIR }}
+          if-no-files-found: error
+
+
+# JOB: linux_installer ##############################################################
+
+  #
+  # Create the linux installers (.deb and .tgz) and push to release on github
+  #
+  linux_installer:
+
+    runs-on: ubuntu-24.04
+
+    needs: [sentry, loadup]
+    if: |
+      needs.sentry.outputs.release_not_built == 'true'
+      || inputs.force == 'true'
+
+    steps:
+
+      # Checkout latest commit
+      - name: Checkout Medley
+        uses: actions/checkout@v4
+
+      # Environment variables
+      - name: Environment variables
+        run: |
+          echo "DEBS_DIR=installers/deb/debs" >>${GITHUB_ENV}
+          echo "TARS_DIR=installers/deb/tars" >>${GITHUB_ENV}
+          echo "TARBALL_DIR=installers/deb/tmp/tarballs" >>${GITHUB_ENV}
+          echo "MEDLEY_RELEASE_TAG=${{ needs.loadup.outputs.medley_release_tag }}" \
+                >>${GITHUB_ENV}
+          echo "ARTIFACTS_FILENAME_TEMPLATE=${{ needs.loadup.outputs.artifacts_filename_template }}" >>${GITHUB_ENV}
+
+      # Create taball dir
+      - run: mkdir -p ${TARBALL_DIR}
+
+      #  Get the tarballs
+      - name: Get tarballs
+        uses: actions/download-artifact@v4
+        with:
+          name: tarballs
+          path: ${{ env.TARBALL_DIR }}
+
+      # Build the deb files as well as the tgz files
+      - name: Build .deb files for 3 architectures
+        id: debs
+        run: |
+          cd installers/deb
+          ./build_deb.sh
+
+      # Push the debs and tgz up to github releases
+      - name: Push the release
+        id: push_release
+        uses: ncipollo/release-action@v1
+        with:
+          allowUpdates: true
+          artifacts:
+            ${{ env.DEBS_DIR }}/*.deb,
+            ${{ env.TARS_DIR }}/*.tgz
+          tag: ${{ env.MEDLEY_RELEASE_TAG }}
+          token: ${{ secrets.GITHUB_TOKEN }}
+          omitBodyDuringUpdate: true
+          omitDraftDuringUpdate: true
+          omitNameDuringUpdate: true
+          omitPrereleaseDuringUpdate: true
+
+      - name: Rename medley tar for the x86_64 platform
+        run: |
+            cd ${{ env.TARS_DIR }}
+            mv  medley-full-linux-x86_64-*.tgz medley.tgz
+
+      - name: Save medley tar for use in cygwin installers
+        uses: actions/upload-artifact@v4
+        with:
+          name: medley-tar
+          path: |
+            ${{ env.TARS_DIR }}/medley.tgz
+
+
+# JOB: macos_installer ##############################################################
+
+  #
+  # Create the macos installers (.dmg and .zip) and push to release on github
+  #
+  macos_installer:
+
+    runs-on: macos-14
+
+    needs: [sentry, loadup]
+    if: |
+      needs.sentry.outputs.release_not_built == 'true'
+      || inputs.force == 'true'
+#    if: false
+
+    defaults:
+      run:
+        shell: bash
+
+    steps:
+
+      # Checkout latest commit
+      - name: Checkout Medley
+        uses: actions/checkout@v4
+
+      # Environment variables
+      - name: Environment variables
+        run: |
+          MACOS_DIR=installers/macos
+          echo "MACOS_DIR=${MACOS_DIR}" >>${GITHUB_ENV}
+          echo "ARTIFACTS_DIR=${MACOS_DIR}/artifacts" >>${GITHUB_ENV}
+          echo "TARBALL_DIR=${MACOS_DIR}/tmp/tarballs" >>${GITHUB_ENV}
+          echo "MEDLEY_RELEASE_TAG=${{ needs.loadup.outputs.medley_release_tag }}" >>${GITHUB_ENV}
+          echo "ARTIFACTS_FILENAME_TEMPLATE=${{ needs.loadup.outputs.artifacts_filename_template }}" >>${GITHUB_ENV}
+
+      # Create tarball dir
+      - run: mkdir -p ${TARBALL_DIR}
+
+      #  Get the tarballs
+      - name: Get tarballs
+        uses: actions/download-artifact@v4
+        with:
+          name: tarballs
+          path: ${{ env.TARBALL_DIR }}
+
+      # Build the .dmg and .zip files
+      - name: Build .dmg & .zip files
+        id: dmg-zip
+        run: |
+          cd ${MACOS_DIR}
+          ./build_artifacts.sh
+
+      # Push the .dmg and .zip up to github releases
+      - name: Push the release
+        id: push_release
+        uses: ncipollo/release-action@v1
+        with:
+          allowUpdates: true
+          artifacts:
+            # 2023-07-20 not yet building dmg -- ${{ env.ARTIFACTS_DIR }}/*.dmg,
+            ${{ env.ARTIFACTS_DIR }}/*.zip
+          tag: ${{ env.MEDLEY_RELEASE_TAG }}
+          token: ${{ secrets.GITHUB_TOKEN }}
+          omitBodyDuringUpdate: true
+          omitDraftDuringUpdate: true
+          omitNameDuringUpdate: true
+          omitPrereleaseDuringUpdate: true
+
+
+
+# JOB: cygwin_installer #############################################################
+
+  #
+  # Create the Windows installer, push it up to the release on github and
+  # update the downloads page on OIO
+  #
+  cygwin_installer:
+
+    runs-on: windows-2022
+
+    needs: [sentry, loadup, linux_installer]
+    if: |
+      needs.sentry.outputs.release_not_built == 'true'
+      || inputs.force == 'true'
+
+    outputs:
+      cygwin_installer: ${{ steps.compile_iss.outputs.CYGWIN_INSTALLER }}
+
+    steps:
+
+      # Checkout latest commit
+      - name: Checkout Medley
+        uses: actions/checkout@v4
+
+      # Store the values output from loadup job as environment variables
+      - name: Environment Variables
+        shell: powershell
+        run: |
+          $crt="${{ needs.loadup.outputs.combined_release_tag }}"
+          echo "COMBINED_RELEASE_TAG=$crt" | Out-File -FilePath $Env:GITHUB_ENV -Encoding utf8 -Append
+          $mrt="${{ needs.loadup.outputs.medley_release_tag }}"
+          echo "MEDLEY_RELEASE_TAG=$mrt" | Out-File -FilePath $Env:GITHUB_ENV -Encoding utf8 -Append
+          $msrt="${{ needs.loadup.outputs.medley_short_release_tag }}"
+          echo "MEDLEY_SHORT_RELEASE_TAG=$msrt" | Out-File -FilePath $Env:GITHUB_ENV -Encoding utf8 -Append
+          $aft="${{ needs.loadup.outputs.artifacts_filename_template }}"
+          echo "ARTIFACTS_FILENAME_TEMPLATE=$aft" | Out-File -FilePath $Env:GITHUB_ENV -Encoding utf8 -Append
+          $debs="${{ needs.loadup.outputs.debs_filename_base }}"
+          echo "DEBS_FILENAME_BASE=$debs" | Out-File -FilePath $Env:GITHUB_ENV -Encoding utf8 -Append
+
+      # Retrieve medley tars from artifact store
+      - name: Retrieve medley tar
+        uses: actions/download-artifact@v4
+        with:
+          name: medley-tar
+          path: installers/cygwin/
+
+      # Download maiko cygwin build
+      - name: Retrieve maiko cygwin build
+        shell: powershell
+        env:
+          GH_TOKEN: ${{ secrets.MAIKO_TOKEN }}
+        run: |
+          gh release download ${{ needs.loadup.outputs.maiko_release_tag }} --repo interlisp/maiko --pattern ${{ needs.loadup.outputs.maiko_release_tag }}-cygwin.x86_64.tgz --output installers\cygwin\maiko-cygwin.x86_64.tgz
+
+      # Download cygwin installer to be included by medley.iss
+      - name: Download cygwin installer
+        id: cygwin
+        shell: powershell
+        run: |
+          wget https://cygwin.com/setup-x86_64.exe -OutFile installers\cygwin\setup-x86_64.exe
+
+      # Download vnc viewer
+      #- name: Download vncviewer
+      #  shell: powershell
+      #  run: |
+      #    $url = "https://sourceforge.net/projects/tigervnc/files/stable/1.12.0/vncviewer64-1.12.0.exe"
+      #    $output = "installers\win\vncviewer64-1.12.0.exe"
+      #    (New-Object System.Net.WebClient).DownloadFile($url, $output)
+
+      # Run iscc.exe to compile the installer
+      #- name: Compile medley.iss
+      #  shell: powershell
+      #  run: |
+      #     iscc installers\win\medley.iss
+      #     $filename="medley-install_${env:COMBINED_RELEASE_TAG}_x64.exe"
+      #     echo "INSTALLER_FILENAME=$filename" | Out-File -FilePath $Env:GITHUB_ENV -Encoding utf8 -Append
+
+      # Run iscc.exe to compile the installer
+      - name: Compile cygwin_medley.iss
+        id: compile_iss
+        shell: powershell
+        run: |
+           $Env:CYGWIN_INSTALLER_BASE="medley-full-cygwin-x86_64-${env:COMBINED_RELEASE_TAG}"
+           $CYGWIN_INSTALLER="${Env:CYGWIN_INSTALLER_BASE}.exe"
+           echo "CYGWIN_INSTALLER=$CYGWIN_INSTALLER" | Out-File -FilePath $Env:GITHUB_ENV -Encoding utf8 -Append
+           echo "CYGWIN_INSTALLER=$CYGWIN_INSTALLER" | Out-File -FilePath $Env:GITHUB_OUTPUT -Encoding utf8 -Append
+           iscc installers\cygwin\medley.iss
+
+      # Upload windows installer to release
+      - name: Upload windows installer to release
+        id: push
+        uses: ncipollo/release-action@v1
+        with:
+          allowUpdates: true
+          artifacts: installers/cygwin/${{ env.CYGWIN_INSTALLER }}
+          tag: ${{ env.MEDLEY_RELEASE_TAG }}
+          token: ${{ secrets.GITHUB_TOKEN }}
+          omitBodyDuringUpdate: true
+          omitDraftDuringUpdate: true
+          omitNameDuringUpdate: true
+          omitPrereleaseDuringUpdate: true
+
+
+# JOB: downloads_page ################################################################
+
+  #
+  # Update the downloads page on OIO
+  #
+
+  downloads_page:
+
+    runs-on: ubuntu-24.04
+
+    needs: [sentry, loadup, linux_installer, macos_installer, cygwin_installer]
+    if: |
+      needs.sentry.outputs.release_not_built == 'true'
+      || inputs.force == 'true'
+
+    steps:
+
+      # Environment variables
+      - name: Environment Varibales (from other jobs)
+        run: |
+          crt="${{ needs.loadup.outputs.combined_release_tag }}"
+          echo "COMBINED_RELEASE_TAG=${crt}" >>${GITHUB_ENV}
+          mrt="${{ needs.loadup.outputs.medley_release_tag }}"
+          echo "MEDLEY_RELEASE_TAG=${mrt}" >>${GITHUB_ENV}
+          msrt="${{ needs.loadup.outputs.medley_short_release_tag }}"
+          echo "MEDLEY_SHORT_RELEASE_TAG=${msrt}" >>${GITHUB_ENV}
+          cyginst="${{ needs.cygwin_installer.outputs.cygwin_installer }}"
+          echo "CYGWIN_INSTALLER=${cyginst}" >>${GITHUB_ENV}
+
+      # Checkout latest commit
+      - name: Checkout Medley
+        uses: actions/checkout@v4
+
+
+      # Upload a dummy file to release
+      # Needed since download url of the release changes on every update
+      # So this will be the final update before creating downloads page
+      # and we can use its url for the page
+      - run: echo "placeholder" >placeholder.txt
+      - name: Upload windows placeholder.txt to release
+        id: pushph
+        uses: ncipollo/release-action@v1
+        with:
+          allowUpdates: true
+          artifacts: placeholder.txt
+          tag: ${{ env.MEDLEY_RELEASE_TAG }}
+          token: ${{ secrets.GITHUB_TOKEN }}
+          omitBodyDuringUpdate: true
+          omitDraftDuringUpdate: true
+          omitNameDuringUpdate: true
+          omitPrereleaseDuringUpdate: true
+
+      # Update the downloads page and the man page on OIO
+      - name: Update the downloads page and the man page to the OIO static page host
+        shell: bash
+        run: |
+            # Figure out filenames
+            download_url="${{ steps.pushph.outputs.html_url }}"
+            download_url="${download_url/\/tag\//\/download\/}"
+            local_template="installers/downloads_page/medley_downloads.html"
+            local_filename="medley_downloads.html"
+            local_manpath="docs/man-page/man_medley.html"
+            if [ "${{ inputs.draft }}" = "true" ];
+            then
+                remote_filename="draft_downloads"
+                remote_manname="man_draft.html"
+            else
+                remote_filename="${local_filename%.html}"
+                remote_manname="man_medley.html"
+            fi
+            remote_filepath="/srv/oio/static/${remote_filename}"
+            remote_manpath="/srv/oio/static/${remote_manname}"
+            # Fill in downloads page template
+            sed \
+               -e "s/@@@MEDLEY.SHORT.RELEASE.TAG@@@/${MEDLEY_SHORT_RELEASE_TAG}/g" \
+               -e "s/@@@COMBINED.RELEASE.TAG@@@/${COMBINED_RELEASE_TAG}/g" \
+               -e "s~@@@DOWNLOAD_URL@@@~${download_url}~g" \
+               -e "s~@@@CYGWIN.INSTALLER@@@~${CYGWIN_INSTALLER}~g" \
+               < "${local_template}" > "${local_filename}"
+            # Create sftp instruction file
+            echo "-rm ${remote_filepath}.oldold" > batch
+            echo "-rename ${remote_filepath}.old ${remote_filepath}.oldold" >> batch
+            echo "-rename ${remote_filepath}.html ${remote_filepath}.old" >> batch
+            echo "-put ${local_filename} ${remote_filepath}.html" >> batch
+            echo "-put ${local_manpath} ${remote_manpath}" >> batch
+            # Do the sftp
+            eval $(ssh-agent)
+            ssh-add - <<< "${SSH_KEY}"
+            sftp -o StrictHostKeyChecking=no -b batch ubuntu@online.interlisp.org
+        env:
+            SSH_KEY: ${{ secrets.OIO_SSH_KEY }}
+
+      # Remove placeholder.txt
+      - name: Remove placeholder.txt
+        run: |
+          gh release delete-asset ${{ env.MEDLEY_RELEASE_TAG }} placeholder.txt --yes
+        env:
+          GH_TOKEN: ${{ secrets.GITHUB_TOKEN }}
+
+
+# JOB: complete #####################################################################
+
+  # Use set-sentry-action to determine set the sentry that says this release has
+  # been successfully built
+
+  complete:
+
+    runs-on: ubuntu-24.04
+
+    outputs:
+      build_successful: ${{ steps.output.outputs.build_successful }}
+
+    needs: [sentry, loadup, downloads_page]
+
+    steps:
+      # Delete the tarballs artifact
+      - name: Delete tarballs artifact
+        uses: geekyeggo/delete-artifact@v5
+        with:
+          name: tarballs
+          failOnError: false
+
+      # Checkout the actions for this repo owner
+      - name: Checkout Actions
+        uses: actions/checkout@v4
+        with:
+          repository: ${{ github.repository_owner }}/.github
+          path: ./Actions_${{ github.sha }}
+      - run: mv ./Actions_${{ github.sha }}/actions ../actions && rm -rf ./Actions_${{ github.sha }}
+
+      # Set sentry
+      - name: Set flag that build for this commit has been completed
+        id: set
+        uses: ./../actions/set-sentry-action
+        with:
+          tag: "loadup"
+
+      - name: Output
+        id: output
+        run: |
+          echo "build_successful='true'" >> $GITHUB_OUTPUT
+
+######################################################################################
+######################################################################################

.github/workflows/buildReleaseInclDocker.yml

@@ -0,0 +1,137 @@
+#*******************************************************************************
+# buidReleaseInclDocker.yml
+#
+# 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
+#
+# 2022-01-18 Frank Halasz
+#
+# Copyright 2022 by Interlisp.org
+#
+# ******************************************************************************
+
+
+name: "Build/Push Release, Docker, OIO"
+
+# Run this workflow on ...
+on:
+  schedule:
+    - cron: '17 9 * * 3'
+
+  workflow_dispatch:
+    inputs:
+      draft:
+        description: "Mark this as a draft release"
+        type: choice
+        options:
+        - 'false'
+        - 'true'
+      force:
+        description: "Force build even if build already successfully completed for this commit"
+        type: choice
+        options:
+        - 'false'
+        - 'true'
+
+  workflow_call:
+    outputs:
+      successful:
+        description: "'True' if medley build completed successully"
+        value: ${{ jobs.complete.outputs.build_successful }}
+    inputs:
+      draft:
+        description: "Mark this as a draft release"
+        required: false
+        type: string
+        default: 'false'
+      force:
+        description: "Force build even if build already successfully completed for this commit"
+        required: false
+        type: string
+        default: 'false'
+
+defaults:
+  run:
+    shell: bash
+
+
+# Jobs that compose this workflow
+jobs:
+
+
+######################################################################################
+
+  # Regularize the inputs so they can be referenced the same way whether they are
+  # the result of a workflow_dispatch or a workflow_call
+
+  inputs:
+    runs-on: ubuntu-24.04
+    outputs:
+      draft: ${{ steps.one.outputs.draft }}
+      force: ${{ steps.one.outputs.force }}
+    steps:
+      - id: one
+        run: >
+          if [ '${{ toJSON(inputs) }}' != '{}'  ];
+          then
+            echo "draft=${{ inputs.draft }}" >> $GITHUB_OUTPUT;
+            echo "force=${{ inputs.force }}" >> $GITHUB_OUTPUT;
+          else
+            echo "draft=false" >> $GITHUB_OUTPUT;
+            echo "force=false" >> $GITHUB_OUTPUT;
+          fi
+
+
+######################################################################################
+
+
+  # Build Loadup
+  do_release:
+    needs: inputs
+    uses: ./.github/workflows/buildLoadup.yml
+    with:
+        draft: ${{ needs.inputs.outputs.draft }}
+        force: ${{ needs.inputs.outputs.force }}
+    secrets: inherit
+
+
+######################################################################################
+
+  # Build Docker Image
+  do_docker:
+    needs: [inputs, do_release]
+    uses: ./.github/workflows/buildDocker.yml
+    with:
+        draft: ${{ needs.inputs.outputs.draft }}
+        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-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

@@ -1,7 +1,47 @@
 # loadup interim steps
 
 tmp/*
-loadups/init*
+
+# releases directory
+releases/*
+
+# maiko directory
+maiko/
+
+
+# all PDFs (those explicitly checked in aren't ignored
+# normally when you have derived files, you ignore them from git
+# 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 
+
+loadups/exports.all
+library/RDSYS*
+loadups/lisp.sysout
+loadups/full.sysout
+# not currently included but might as well ignore it
+loadups/fuller.sysout
+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
 
@@ -24,6 +64,9 @@ core
 
 # Mac OS detritus
 .DS_Store
+*.PS
+
+# nano detritus
+*.swp
+*.save
 
-# set up by install-diff-filter.sh script
-.gitattributes

BUILDING.md

@@ -0,0 +1,126 @@
+# How to Build Medley and make a Release
+
+The files in the Medley repository are used for making "loadups" lisp.sysout, full.sysout, apps.sysout. In order to build the Medley images, you need to have a build of "Maiko" (in flavors 'ldeinit' and 'lde' and either (`ldex` or `ldesdl`).  Head over to the `Interlisp/maiko` repository to find out about making those.
+
+# Using GitHub actions
+
+Note that GitHub actions are used to automate the build process and insure that the system is built using known files, and that the releases are coordinated across platforms.  We try to minimize dependencies on GitHub.
+
+That said, you can manually trigger the automatic making of Medley loadups.
+
+In the GitHub medley repository (Interlisp/medley) go to the Actions tab.
+
+It will list the available GitHub actions.
+Select: **Build/Push Release & Docker**. 
+
+In the middle of the screen there is a box labeled "Workflow Runs".
+
+There should be a row in it that states 'This workflow has a workflow_dispatch event trigger' with a drop down menu (it really looks more like a button) on the right side labeled 'Run workflow'.  Select that and you'll get a form allowing you to select the branch (I've only used Master) and enter the release name.  Enter a name or leave it empty and press the green 'Run workflow' button. The workflow should queue up and run.  
+
+Build/Push Release & Docker first builds Maiko and Medley, pushes a Medley release to the Interlisp/medley repo Releases, then makes a Docker image.
+
+The files in .github/workflows/ contain the details.
+<!-- 
+The workflow pulls the latest Maiko image from Docker Hub and the Release Assets from the latest Medley release, generally defined as medley-YYMMDD.  The Medley Docker image adds in Tight VNC Server and retrieves the two tarballs associated with a release, one containing the sysouts and the other the other needed files source, fonts, etc.  The contents are uncompressed and loaded into the Medley directory structure.
+-->
+
+# Building Medley for yourself
+
+The actual building itself is done with various shell scripts, found in the `scripts` directory in the medley repository. Most of the scripts have a minimal sanity check that they are being run from the medley repository.
+
+Historically, building the medley image (called a "sysout") was called "doing a loadup".  Back in the day, a loadup took the better part of a day, and no one would do the whole thing -- there was no automation.
+
+## Prerequisites
+
+In these instructions, there is an assumption that the loadup scripts can find other repositories. All of the loadup scripts have to find `lde` and `ldex` or `ldisdl` and also `ldeinit`.
+
+Loadups use the run-medley script, which looks for Maiko (actually the lde & ldeinit executables) as follows:
+
+1. lde (ldeinit) on PATH
+2. In the `<osversion>.<machinetype>` subdirectory of the directory specified by the $MAIKODIR environment variable
+3. In the `<osversion>.<machinetype>` subdirectory of the directory specified by $MEDLEYDIR/../maiko/
+4. In the `<osversion>.<machinetype>` subdirectory of the directory specified by $MEDLEYDIR/maiko/
+
+where $MEDLEYDIR is the directory from which you called the loadup script.
+
+## Make everything
+
+The shell command:
+```
+time ./scripts/loadup-all.sh -apps && time ./scripts/loadup-db.sh
+```
+does everything; on a fast machine it takes 4-6 minutes, most of which is spent in the `loadup-db.sh` step. Without the `loadup-db.sh` step, it runs in 22 seconds on a fast system.
+
+## How loadup-all.sh works
+
+You don't need to know this unless you want to change some of the low-level files involved.
+
+The script "loadup-all.sh" itself involes scripts used for different steps in the loadup -- basically loadup-all calls the scripts in this order:
+
+* `loadup-init.sh` 
+* `loadup-mid-from-init.sh`
+* `loadup-lisp-from-mid.sh` 
+* `loadup-full-from-lisp.sh`
+* `loadup-aux.sh`
+* `loadup-apps-from-full.sh`
+* `loadup-db.sh`
+* `copy-all.sh`
+
+Most of these scripts should only be run from the 'medley' repository top level directory.
+
+```
+ your-working-area
+    maiko
+    medley
+    notecards
+```
+
+These are explained in reverse order:
+
+### `copy-all.sh`: copy files from build directory to loadups
+
+Most of the scripts build things in a temporary directory and, if the entire process succeeds, copies the results to the `loadups` directory. The environment variable `LOADUP-OUTDIR`, if set, is used, otherwise a sub-directory of /tmp.
+
+`copy-db.sh` and `copy-full.sh` are provided if you've only done partial loadups.
+
+`cpv` is a script that copies a file from one place to another while maintaining Medley version numbering.
+
+### `loadup.db`: build `fuller.database`
+
+This step was added to make a Masterscope database of "everything". The result is a file `fuller.database`. This was an artifact of an attempt to build some diagnostic tools to help understand what was going on in Medley.  There is a 4 step process in the `GATHER-INFO` function in the file `MEDLEY-UTILS` in the `internal` subdirectory of the medley repository that ends with creating a masterscope database after loading all of the source files for every file that is part of the loadup, plus a few additional LispUsers files listed in variables that are part of `MEDLEY-UTILS`.
+
+There are some problems that `GATHER-INFO` results hint at, but haven't been explored systematically.
+
+Masterscope has some gaps and bugs so `fuller.database` isn't as useful as it could be. For example, Masterscope 'show paths' was written assuming you had only anlayzed the parts you were working on, and so the results of `SHOW PATHS` are too big to be useful.
+
+## `loadup-aux.sh`: rebuild two files used for Medley development
+
+`exports.all` is a collection of external declarations from a set of files in the medley/sources directory that are marked as being exported within those sources. Low level system declarations that aren't needed by most users. The files that need exports.all are generally loaded by loading `SYSEDIT`, which sets up a couple of preferences and then loads `exports.all`. 
+
+`whereis.hash` is an index file mapping function, variable, record declarations and other components to the file name containing that definition. It is the result of scanning the directories in the medley repository, including lispusers and library and internal etc. (but not obsolete?).
+
+### `loadup-apps-from-full.sh:`build `apps.sysout`
+
+`apps.sysout` includes some other components that are part of online.interlisp.org experience. In particular, you need `notecards`, which is in a separate repository (currently).
+
+### `loadup-full-from-lisp.sh`: Build a `full.sysout` and
+
+`full.sysout` Includes what we hope is a useful subset of Interlisp library and lispusers components as well as our modernization components.
+
+
+### Build a `lisp.sysout` in 4 scripts:
+
+### `loadup-lisp-from-mid.sh` build `lisp.sysout`
+
+`lisp.sysout` is what most 1990s customers started with. This step starts with `init-mid.sysout` and runs `sources/LOADUP-LISP`.
+
+### `loadup-mid-from-init.sh` build `mid.sysout`
+
+This step uses a Maiko that has been compiled with the `init` option. It reads the `init.dlinit` and initializes the package system and runs the EXPRESSIONS from the files that were "loaded" by MAKEINIT, and writes out `init-mid.sysout`.
+
+### `loadup-init.sh`: build `mid.sysout`
+
+This step (called `MAKEINIT`) runs a Lisp program (using a `starter` sysout) that reads in Lisp sources for the bootstrap loader, walks through the code renaming the low-level memory management functions to work on a file instead of in memory. These renamed functions are written to a file (called I-NEW), and I-NEW is then compiled and loaded in and run to 'virtually' load the core set of files in an initial memory image (called INIT.SYSOUT). It then does another (theoretically unnecessary) pass of reading in INIT.SYSOUT using a different renaming of variables used originally for remote debugging (called TELERAID) and moving some pages around to make room for Dandelion IO Processor boot code. 
+
+While this step requires an Interlisp implementation, it isn't necessarily a Medley implementation. If  you want to change the instruction set or modify any data structures that are reflected in both the Lisp code and Maiko, you can run this part in an older Interlisp. Theoretically.
+

CLTL2/CMLDEFFER.~2~

@@ -1,248 +0,0 @@
-(DEFINE-FILE-INFO READTABLE "XCL" PACKAGE "XCL")
-
(IL:FILECREATED "24-Mar-92 14:56:18" IL:|{DSK}<usr>local>lde>lispcore>sources>CMLDEFFER.;3|
 40644  
-
-      IL:|changes| IL:|to:|  (IL:VARS IL:CMLDEFFERCOMS)
-
-      IL:|previous| IL:|date:| " 4-Jan-92 15:32:26" 
-IL:|{DSK}<usr>local>lde>lispcore>sources>CMLDEFFER.;2|)
-
-
-; Copyright (c) 1986, 1900, 1987, 1988, 1990, 1992 by Venue & Xerox Corporation.  All rights reserved.
-
-(IL:PRETTYCOMPRINT IL:CMLDEFFERCOMS)
-
-(IL:RPAQQ IL:CMLDEFFERCOMS ((IL:* IL:|;;;| "DEF-DEFINE-TYPE and DEFDEFINER -- Your One-Stop Providers of Customized File Manager Facilities.") (IL:* IL:|;;| "BE VERY CAREFUL CHANGING ANYTHING IN THIS FILE!!!  It is heavily self-referential and thick with bootstrapping problems.  All but the most trivial changes (and some of those) are very tricky to make without blowing yourself out of the water...  You have been warned.") (IL:* IL:|;;;| "Also see the file deffer-runtime for stuff that must be defined before fasl files may be loaded into the init") (IL:COMS (IL:* IL:\; "Filepkg interface") (IL:FUNCTIONS REMOVE-COMMENTS PPRINT-DEFINER PPRINT-DEFINER-FITP PPRINT-DEFINER-RECURSE) (IL:VARIABLES IL:*REMOVE-INTERLISP-COMMENTS*) (IL:* IL:\; "Share with xcl?") (IL:FUNCTIONS %DEFINE-TYPE-DELDEF %DEFINE-TYPE-GETDEF %DEFINE-TYPE-FILE-DEFINITIONS %DEFINE-TYPE-FILEGETDEF %DEFINE-TYPE-SAVE-DEFN %DEFINE-TYPE-PUTDEF)) (IL:COMS (IL:* IL:\; "Compatibility with old cmldeffer") (IL:DECLARE\: IL:DOCOPY IL:DONTEVAL@LOAD (IL:P (IL:MOVD (QUOTE %DEFINE-TYPE-DELDEF) (QUOTE IL:\\DEFINE-TYPE-DELDEF)) (IL:MOVD (QUOTE %DEFINE-TYPE-GETDEF) (QUOTE IL:\\DEFINE-TYPE-GETDEF)) (IL:MOVD (QUOTE %DEFINE-TYPE-FILE-DEFINITIONS) (QUOTE IL:\\DEFINE-TYPE-FILE-DEFINITIONS)) (IL:MOVD (QUOTE %DEFINE-TYPE-FILEGETDEF) (QUOTE IL:\\DEFINE-TYPE-FILEGETDEF)) (IL:MOVD (QUOTE %DEFINE-TYPE-SAVE-DEFN) (QUOTE IL:\\DEFINE-TYPE-SAVE-DEFN)) (IL:MOVD (QUOTE %DEFINE-TYPE-PUTDEF) (QUOTE IL:\\DEFINE-TYPE-PUTDEF)) (IL:MOVD (QUOTE PPRINT-DEFINER) (QUOTE IL:PPRINT-DEFINER))))) (IL:DECLARE\: IL:DOCOPY IL:DONTEVAL@LOAD (IL:P (IL:* IL:|;;| "Set up fake definer prototype stuff for FNS") (ADD-PROTOTYPE-FN (QUOTE IL:FNS) (QUOTE IL:NLAMBDA) (FUNCTION (LAMBDA (NAME) (AND (SYMBOLP NAME) (IL:BQUOTE (IL:DEFINEQ ((IL:\\\, NAME) (IL:NLAMBDA (IL:\\\,@ (%MAKE-FUNCTION-PROTOTYPE)))))))))) (ADD-PROTOTYPE-FN (QUOTE IL:FNS) (QUOTE IL:LAMBDA) (FUNCTION (LAMBDA (NAME) (AND (SYMBOLP NAME) (IL:BQUOTE (IL:DEFINEQ ((IL:\\\, NAME) (IL:LAMBDA (IL:\\\,@ (%MAKE-FUNCTION-PROTOTYPE)))))))))))) (IL:COMS (IL:* IL:\; "The groundwork for bootstrapping ") (IL:DEFINE-TYPES IL:DEFINE-TYPES IL:FUNCTIONS IL:VARIABLES) (IL:* IL:\; "DefDefiner itself and friends") (IL:FUNCTIONS SI::EXPANSION-FUNCTION SI::MACRO-FUNCALL WITHOUT-FILEPKG)) (IL:COMS (IL:* IL:\; "Compatibility with old cmldeffer") (IL:FUNCTIONS IL:WITHOUT-FILEPKG)) (IL:COMS (IL:* IL:\; "Some special forms") (IL:FUNCTIONS DEFINER DEFINER-VARIABLE-TYPE NAMED-PROGN)) (IL:COMS (IL:* IL:\; "Auxiliary functions") (IL:FUNCTIONS GET-DEFINER-NAME %DELETE-DEFINER) (IL:FUNCTIONS DEF-DEFINE-TYPE DEFDEFINER DEFDEFINER-VARIABLE-TYPE) (IL:FUNCTIONS %EXPAND-DEFINER %DEFINER-NAME)) (IL:COMS (IL:* IL:\; "The most commonly-used definers") (IL:FUNCTIONS DEFUN DEFINLINE DEFMACRO) (IL:FUNCTIONS DEFVAR DEFPARAMETER DEFCONSTANT DEFGLOBALVAR DEFGLOBALPARAMETER)) (IL:COMS (IL:* IL:\; "Here so that the evaluator can be in the init without definers being in the init.") (IL:DEFINE-TYPES IL:SPECIAL-FORMS) (IL:FUNCTIONS %REMOVE-SPECIAL-FORM) (IL:FUNCTIONS DEFINE-SPECIAL-FORM) (IL:* IL:\; "Form for defining interpreters of special forms")) (IL:COMS (IL:* IL:\; "Don't note changes to these properties/variables") (IL:PROP IL:PROPTYPE IL:MACRO-FN :UNDEFINERS IL:UNDEFINERS :DEFINER-FOR IL:DEFINER-FOR :DEFINED-BY IL:DEFINED-BY :DEFINITION-NAME IL:DEFINITION-NAME) (IL:* IL:\; "Templates for definers not defined here.  These should really be where they're defined.") (IL:PROP :DEFINITION-PRINT-TEMPLATE DEFCOMMAND DEFINE-CONDITION DEFINE-MODIFY-MACRO DEFINE-SETF-METHOD DEFSETF DEFSTRUCT DEFTYPE)) (IL:* IL:|;;| "Arrange for the correct compiler to be used.") (IL:PROP (IL:FILETYPE IL:MAKEFILE-ENVIRONMENT) IL:CMLDEFFER)))
-
-
-
-(IL:* IL:|;;;| 
-"DEF-DEFINE-TYPE and DEFDEFINER -- Your One-Stop Providers of Customized File Manager Facilities.")

-
-
-
-
-(IL:* IL:|;;| 
-"BE VERY CAREFUL CHANGING ANYTHING IN THIS FILE!!!  It is heavily self-referential and thick with bootstrapping problems.  All but the most trivial changes (and some of those) are very tricky to make without blowing yourself out of the water...  You have been warned."
-)

-
-
-
-
-(IL:* IL:|;;;| 
-"Also see the file deffer-runtime for stuff that must be defined before fasl files may be loaded into the init"
-)

-
-
-
-
-(IL:* IL:\; "Filepkg interface")

-
-
-(DEFUN REMOVE-COMMENTS (X) (IL:* IL:|;;;| "Removes SEdit-style comments from the given list structure.") (COND ((NOT (CONSP X)) X) ((AND (CONSP (CAR X)) (EQ (CAAR X) (QUOTE IL:*)) (CONSP (CDAR X)) (OR (MEMBER (CADAR X) (QUOTE (IL:\; IL:|;;| IL:|;;;| IL:|;;;;| IL:\|)) :TEST (FUNCTION EQ)) (IL:* IL:\; "a sedit comment") (EQ IL:*REMOVE-INTERLISP-COMMENTS* T) (IL:* IL:\; "always strip") (PROGN (IF (EQ IL:*REMOVE-INTERLISP-COMMENTS* (QUOTE :WARN)) (WARN "Possible comment not stripped ~S" (CAR X))) NIL))) (REMOVE-COMMENTS (CDR X))) (T (LET ((A (REMOVE-COMMENTS (CAR X))) (D (REMOVE-COMMENTS (CDR X)))) (IF (AND (EQ A (CAR X)) (EQ D (CDR X))) X (CONS A D))))))
-
-(DEFUN PPRINT-DEFINER (DEFINE-EXPRESSION) (DECLARE (SPECIAL IL:FORMFLG IL:SPACEWIDTH)) (IL:* IL:\; "Bound in prettyprinter") (COND ((OR (NULL IL:FORMFLG) (ATOM (CDR DEFINE-EXPRESSION))) (IL:* IL:\; "Degenerate cases or printing as a quoted form--punt to default prettyprinting") DEFINE-EXPRESSION) (T (LET ((IL:TAIL DEFINE-EXPRESSION) (IL:LEFT (IL:DSPXPOSITION)) TEMPLATE TOP-LEVEL-P NEXT TYPE FORM NEWLINEP) (DECLARE (SPECIAL IL:TAIL IL:LEFT)) (IL:* IL:\; "For comment printer") (SETQ TOP-LEVEL-P (EQ IL:LEFT (IL:DSPLEFTMARGIN))) (IL:* IL:\; "Printing definition to file, etc.") (SETQ IL:LEFT (+ IL:LEFT (* 3 IL:SPACEWIDTH))) (IL:* IL:\; "Place we will indent body") (IL:PRIN1 "(") (IL:PRIN2 (CAR IL:TAIL)) (SETQ TEMPLATE (OR (GET (POP IL:TAIL) :DEFINITION-PRINT-TEMPLATE) (QUOTE (:NAME)))) (IL:* IL:|;;| "This code should, and doesn't, pay attention to the NAME function to determine where the name is to decide what should and shouldn't be bold. Right now, it always bolds the second thing. Fortunately, we currently don't have any definers that don't have either the second or CAR of the second as the definition name.") (IL:* IL:|;;| "Also, this code should be careful about calling the NAME function on the form.  Sometimes, the form is not really a call to the definer but instead a back-quoted expression in a macro.  In most such cases, the name is not really there; some comma-quoted expression is there instead.") (IL:WHILE (CONSP IL:TAIL) IL:DO (COND ((AND (LISTP (SETQ NEXT (CAR IL:TAIL))) (EQ (CAR NEXT) IL:COMMENTFLG) (IL:SEMI-COLON-COMMENT-P NEXT)) (IL:* IL:\; "Comments can appear anywhere, so print this one without consuming the template.  ENDLINE has side effect of printing comments") (IL:SUBPRINT/ENDLINE IL:LEFT *STANDARD-OUTPUT*) (SETQ NEWLINEP T)) ((OR (ATOM TEMPLATE) (EQ (SETQ TYPE (POP TEMPLATE)) :BODY)) (IL:* IL:\; "Once we hit the body, there's nothing more special to do.") (RETURN)) (T (IL:SPACES 1) (CASE TYPE (:NAME (IL:* IL:\; "Embolden the name of this thing") (SETQ NEWLINEP NIL) (COND ((NOT TOP-LEVEL-P) (IL:* IL:\; "Nothing special here--could even be a backquoted thing") (PPRINT-DEFINER-RECURSE)) (T (POP IL:TAIL) (COND ((CONSP NEXT) (IL:* IL:\; "Name is a list.  Assume the real name is the car and the rest is an options list or something") (UNLESS (EQ (IL:DSPYPOSITION) (PROGN (IL:PRIN1 "(") (IL:PRINTOUT NIL IL:.FONT IL:LAMBDAFONT IL:.P2 (CAR NEXT) IL:.FONT IL:DEFAULTFONT) (IL:SPACES 1) (IL:PRINTDEF (CDR NEXT) T T T IL:FNSLST) (IL:PRIN1 ")") (IL:DSPYPOSITION))) (IL:* IL:\; "This thing took more than one line to print, so go to new line") (IL:SUBPRINT/ENDLINE IL:LEFT *STANDARD-OUTPUT*) (SETQ NEWLINEP T))) (T (IL:* IL:\; "Atomic name is bold") (IL:PRINTOUT NIL IL:.FONT IL:LAMBDAFONT IL:.P2 NEXT IL:.FONT IL:DEFAULTFONT)))))) (:ARG-LIST (IL:* IL:\; "NEXT is some sort of argument list.  ") (COND ((NULL NEXT) (IL:* IL:\; "If NIL, be sure to print as ()") (IL:PRIN1 "()") (POP IL:TAIL)) (T (PPRINT-DEFINER-RECURSE))) (SETQ NEWLINEP NIL)) (T (IL:* IL:\; "Just print it, perhaps starting a new line") (UNLESS (OR NEWLINEP (PPRINT-DEFINER-FITP NEXT)) (IL:* IL:\; "Go to new line if getting crowded") (IL:PRINENDLINE IL:LEFT)) (PPRINT-DEFINER-RECURSE) (SETQ NEWLINEP NIL)))))) (IL:* IL:|;;| "We've now gotten to the end of stuff we know how to print.  Just prettyprint the rest") (UNLESS (NULL IL:TAIL) (COND (NEWLINEP (IL:* IL:\; "Already on new line")) ((OR (EQ TYPE :BODY) (NOT (PPRINT-DEFINER-FITP (CAR IL:TAIL)))) (IL:* IL:\; "Go to new line and indent a bit.  Always do this for the part matching &BODY, whether or not the prettyprinter thought that the remainder would \"fit\"") (IL:PRINENDLINE IL:LEFT NIL T)) (T (IL:SPACES 1))) (IL:WHILE (AND (CONSP IL:TAIL) (ATOM (SETQ FORM (CAR IL:TAIL)))) IL:DO (IL:* IL:|;;| "Print this doc string or whatever on its own line.  This is because otherwise the prettyprinter gets confused and tries to put the next thing after the string") (PPRINT-DEFINER-RECURSE) (WHEN (AND (KEYWORDP FORM) (CONSP IL:TAIL)) (IL:* IL:\; "Some sort of keyword-value pair stuff--print it on same line") (IL:SPACES 1) (PPRINT-DEFINER-RECURSE)) (WHEN (NULL IL:TAIL) (RETURN)) (IL:SUBPRINT/ENDLINE IL:LEFT *STANDARD-OUTPUT*)) (IL:PRINTDEF IL:TAIL T T T IL:FNSLST)) (IL:PRIN1 ")") NIL))))
-
-(DEFUN PPRINT-DEFINER-FITP (ITEM) (IL:* IL:|;;| "True if it won't look silly to try to print ITEM at current position instead of starting new line") (IF (CONSP ITEM) (OR (EQ (CAR ITEM) IL:COMMENTFLG) (AND (< (IL:COUNT ITEM) 20) (IL:FITP ITEM))) (< (+ (IL:DSPXPOSITION) (IL:STRINGWIDTH ITEM *STANDARD-OUTPUT*)) (IL:DSPRIGHTMARGIN))))
-
-(DEFUN PPRINT-DEFINER-RECURSE NIL (IL:* IL:|;;| "Print and pop the next element.  Prettyprinter uses the variable IL:TAIL for lookahead") (DECLARE (SPECIAL IL:TAIL)) (IL:SUPERPRINT (CAR IL:TAIL) IL:TAIL NIL *STANDARD-OUTPUT*) (SETQ IL:TAIL (CDR IL:TAIL)))
-
-(DEFVAR IL:*REMOVE-INTERLISP-COMMENTS* (QUOTE :WARN) "Either NIL (don't) T (always do) or :WARN (don't and warn)")
-
-
-
-(IL:* IL:\; "Share with xcl?")

-
-
-(DEFUN %DEFINE-TYPE-DELDEF (NAME TYPE) (IL:* IL:|;;| "DELETE definition of definer-defined NAME as TYPE ") (UNDOABLY-SETF (DOCUMENTATION NAME TYPE) NIL) (LET* ((HT (GETHASH TYPE *DEFINITION-HASH-TABLE*)) (DEFN (AND HT (GETHASH NAME HT)))) (AND HT (IL:/PUTHASH NAME NIL HT)) (DOLIST (FN (OR (GET TYPE (QUOTE :UNDEFINERS)) (GET TYPE (QUOTE IL:UNDEFINERS)))) (FUNCALL FN NAME)) (DOLIST (FN (OR (GET (CAR DEFN) (QUOTE :UNDEFINERS)) (GET (CAR DEFN) (QUOTE IL:UNDEFINERS)))) (FUNCALL FN NAME)) NAME))
-
-(DEFUN %DEFINE-TYPE-GETDEF (NAME TYPE OPTIONS) (IL:* IL:|;;| "GETDEF method for all definers.  The EDIT is so that when you say EDITDEF you get a copy & can know when you made edits.") (LET* ((HASH-TABLE (GETHASH TYPE *DEFINITION-HASH-TABLE*)) (DEFN (AND HASH-TABLE (GETHASH NAME HASH-TABLE)))) (IF (TYPECASE OPTIONS (CONS (MEMBER (QUOTE IL:EDIT) OPTIONS :TEST (FUNCTION EQ))) (T (EQ OPTIONS (QUOTE IL:EDIT)))) (COPY-TREE DEFN) DEFN)))
-
-(DEFUN %DEFINE-TYPE-FILE-DEFINITIONS (TYPE NAMES) (IL:* IL:|;;| "get the definitions for NAMES suitable for printing on a file. Like GETDEF but checks.") (MAPCAR (FUNCTION (LAMBDA (NAME) (LET ((DEF (%DEFINE-TYPE-GETDEF NAME TYPE (QUOTE (IL:NOCOPY))))) (IF (NULL DEF) (ERROR (QUOTE IL:NO-SUCH-DEFINITION) :NAME NAME :TYPE TYPE) DEF)))) NAMES))
-
-(DEFUN %DEFINE-TYPE-FILEGETDEF (NAME TYPE SOURCE OPTIONS NOTFOUND) (LET ((VAL (IL:LOADFNS NIL SOURCE (QUOTE IL:GETDEF) (IL:* IL:|;;| "The bletcherous lambda form is require by the interface to loadfns (can't pass a closure)") (IL:BQUOTE (IL:LAMBDA (FIRST SECOND) (AND (MEMBER FIRST (QUOTE (IL:\\\, (OR (GET TYPE (QUOTE :DEFINED-BY)) (GET TYPE (QUOTE IL:DEFINED-BY))))) :TEST (FUNCTION EQ)) (LET ((NAMER (OR (GET FIRST (QUOTE :DEFINITION-NAME)) (GET FIRST (QUOTE IL:DEFINITION-NAME)) (QUOTE SECOND)))) (IF (EQ NAMER (QUOTE SECOND)) (EQUAL SECOND (QUOTE (IL:\\\, NAME))) (EQUAL (FUNCALL NAMER (REMOVE-COMMENTS (IL:READ))) (QUOTE (IL:\\\, NAME))))))))))) (COND ((EQ (CAAR VAL) (QUOTE IL:NOT-FOUND\:)) NOTFOUND) ((CDR VAL) (CONS (QUOTE PROGN) VAL)) (T (CAR VAL)))))
-
-(DEFUN %DEFINE-TYPE-SAVE-DEFN (NAME TYPE DEFINITION) (SETQ TYPE (IL:GETFILEPKGTYPE TYPE (QUOTE TYPE))) (LET ((HASH-TABLE (GETHASH TYPE *DEFINITION-HASH-TABLE*))) (WHEN (NULL HASH-TABLE) (WARN "Couldn't find a hash-table for ~S definitions.~%One will be created." TYPE) (SETQ HASH-TABLE (SETF (GETHASH TYPE *DEFINITION-HASH-TABLE*) (MAKE-HASH-TABLE :TEST (FUNCTION EQUAL) :SIZE 50 :REHASH-SIZE 50)))) (LET ((OLD-DEFINITION (GETHASH NAME HASH-TABLE))) (UNLESS (EQUAL DEFINITION OLD-DEFINITION) (WHEN (AND OLD-DEFINITION (NOT (EQ IL:DFNFLG T))) (FORMAT *TERMINAL-IO* "~&New ~A definition for ~S~:[~; (but not installed)~].~%" TYPE NAME (MEMBER IL:DFNFLG (QUOTE (IL:PROP IL:ALLPROP)) :TEST (FUNCTION EQ)))) (IL:/PUTHASH NAME DEFINITION HASH-TABLE) (IL:MARKASCHANGED NAME TYPE (IF OLD-DEFINITION (QUOTE IL:CHANGED) (QUOTE IL:DEFINED)))))))
-
-(DEFUN %DEFINE-TYPE-PUTDEF (NAME TYPE DEFINITION REASON) (IF (NULL DEFINITION) (%DEFINE-TYPE-DELDEF NAME TYPE) (LET ((DEFN-WITHOUT-COMMENTS (REMOVE-COMMENTS DEFINITION))) (UNLESS (AND (CONSP DEFN-WITHOUT-COMMENTS) (MEMBER (CAR DEFN-WITHOUT-COMMENTS) (OR (GET TYPE (QUOTE :DEFINED-BY)) (GET TYPE (QUOTE IL:DEFINED-BY))) :TEST (FUNCTION EQ)) (EQUAL NAME (FUNCALL (OR (GET (CAR DEFN-WITHOUT-COMMENTS) (QUOTE :DEFINITION-NAME)) (GET (CAR DEFN-WITHOUT-COMMENTS) (QUOTE IL:DEFINITION-NAME)) (QUOTE SECOND)) DEFN-WITHOUT-COMMENTS))) (SIGNAL (QUOTE IL:DEFINER-MISMATCH) :NAME NAME :TYPE TYPE :DEFINITION DEFINITION)) (SETQ DEFINITION (COPY-TREE DEFINITION)) (EVAL (IF IL:LISPXHIST (MAKE-UNDOABLE DEFINITION) DEFINITION)))))
-
-
-
-(IL:* IL:\; "Compatibility with old cmldeffer")

-
-(IL:DECLARE\: IL:DOCOPY IL:DONTEVAL@LOAD 
-
-(IL:MOVD (QUOTE %DEFINE-TYPE-DELDEF) (QUOTE IL:\\DEFINE-TYPE-DELDEF))
-
-(IL:MOVD (QUOTE %DEFINE-TYPE-GETDEF) (QUOTE IL:\\DEFINE-TYPE-GETDEF))
-
-(IL:MOVD (QUOTE %DEFINE-TYPE-FILE-DEFINITIONS) (QUOTE IL:\\DEFINE-TYPE-FILE-DEFINITIONS))
-
-(IL:MOVD (QUOTE %DEFINE-TYPE-FILEGETDEF) (QUOTE IL:\\DEFINE-TYPE-FILEGETDEF))
-
-(IL:MOVD (QUOTE %DEFINE-TYPE-SAVE-DEFN) (QUOTE IL:\\DEFINE-TYPE-SAVE-DEFN))
-
-(IL:MOVD (QUOTE %DEFINE-TYPE-PUTDEF) (QUOTE IL:\\DEFINE-TYPE-PUTDEF))
-
-(IL:MOVD (QUOTE PPRINT-DEFINER) (QUOTE IL:PPRINT-DEFINER))
-)
-(IL:DECLARE\: IL:DOCOPY IL:DONTEVAL@LOAD 
-
-(IL:* IL:|;;| "Set up fake definer prototype stuff for FNS")
-
-(ADD-PROTOTYPE-FN (QUOTE IL:FNS) (QUOTE IL:NLAMBDA) (FUNCTION (LAMBDA (NAME) (AND (SYMBOLP NAME) (IL:BQUOTE (IL:DEFINEQ ((IL:\\\, NAME) (IL:NLAMBDA (IL:\\\,@ (%MAKE-FUNCTION-PROTOTYPE))))))))))
-
-(ADD-PROTOTYPE-FN (QUOTE IL:FNS) (QUOTE IL:LAMBDA) (FUNCTION (LAMBDA (NAME) (AND (SYMBOLP NAME) (IL:BQUOTE (IL:DEFINEQ ((IL:\\\, NAME) (IL:LAMBDA (IL:\\\,@ (%MAKE-FUNCTION-PROTOTYPE))))))))))
-)
-
-
-
-(IL:* IL:\; "The groundwork for bootstrapping ")

-
-
-(DEF-DEFINE-TYPE IL:DEFINE-TYPES "Definition type")
-
-(DEF-DEFINE-TYPE IL:FUNCTIONS "Common Lisp functions/macros" :UNDEFINER IL:UNDOABLY-FMAKUNBOUND)
-
-(DEF-DEFINE-TYPE IL:VARIABLES "Common Lisp variables" :UNDEFINER UNDOABLY-MAKUNBOUND)
-
-
-
-(IL:* IL:\; "DefDefiner itself and friends")

-
-
-(DEFUN SI::EXPANSION-FUNCTION (NAME ARG-LIST BODY) (IL:* IL:|;;;| "Shared code between DEFMACRO and DEFDEFINER.  Takes the parts of a DEFMACRO and returns two values: a LAMBDA form for the expansion function, and the documentation string found, if any.") (MULTIPLE-VALUE-BIND (PARSED-BODY PARSED-DECLARATIONS PARSED-DOCSTRING) (IL:PARSE-DEFMACRO ARG-LIST (QUOTE SI::$$MACRO-FORM) BODY NAME NIL :ENVIRONMENT (QUOTE SI::$$MACRO-ENVIRONMENT)) (VALUES (IL:BQUOTE (LAMBDA (SI::$$MACRO-FORM SI::$$MACRO-ENVIRONMENT) (IL:\\\,@ PARSED-DECLARATIONS) (BLOCK (IL:\\\, NAME) (IL:\\\, PARSED-BODY)))) PARSED-DOCSTRING)))
-
-(DEFMACRO SI::MACRO-FUNCALL (EXPANSION-FUNCTION MACRO-CALL ENV) (IL:* IL:|;;;| "Used by DEFDEFINER as a mechanism for delaying macro-expansion until after checking the value of DFNFLG.  The arguments (unevaluated) are a macro-expansion function and a call on that macro.  The call to MACRO-FUNCALL should expand into the result of expanding the given macro-call.") (FUNCALL EXPANSION-FUNCTION MACRO-CALL ENV))
-
-(DEFMACRO WITHOUT-FILEPKG (&BODY BODY) (IL:BQUOTE (PROGN (EVAL-WHEN (LOAD) (IL:\\\,@ BODY)) (EVAL-WHEN (EVAL) (UNLESS (OR (EQ IL:DFNFLG (QUOTE IL:PROP)) (EQ IL:DFNFLG (QUOTE IL:ALLPROP))) (LET ((IL:FILEPKGFLG NIL) (IL:DFNFLG T)) (IL:\\\,@ BODY)))))))
-
-
-
-(IL:* IL:\; "Compatibility with old cmldeffer")

-
-
-(DEFMACRO IL:WITHOUT-FILEPKG (&BODY BODY) (IL:BQUOTE (WITHOUT-FILEPKG (IL:\\\,@ BODY))))
-
-
-
-(IL:* IL:\; "Some special forms")

-
-
-(DEFMACRO DEFINER (TYPE NAME DEFINITION &OPTIONAL ENV) (LET* ((EXPANDER (GET NAME :DEFINITION-EXPANDER)) (DEFINITION-WITHOUT-COMMENTS (REMOVE-COMMENTS DEFINITION)) (DEFINITION-NAME (FUNCALL (GET NAME :DEFINITION-NAME) DEFINITION-WITHOUT-COMMENTS))) (IL:BQUOTE (PROGN (WITHOUT-FILEPKG (SI::MACRO-FUNCALL (IL:\\\, EXPANDER) (IL:\\\, DEFINITION-WITHOUT-COMMENTS) (IL:\\\, ENV))) (EVAL-WHEN (EVAL) (UNLESS (NULL IL:FILEPKGFLG) (%DEFINE-TYPE-SAVE-DEFN (QUOTE (IL:\\\, DEFINITION-NAME)) (QUOTE (IL:\\\, TYPE)) (QUOTE (IL:\\\, DEFINITION))))) (QUOTE (IL:\\\, DEFINITION-NAME))))))
-
-(DEFMACRO DEFINER-VARIABLE-TYPE (NAME DEFINITION &OPTIONAL ENV) (LET* ((DEFINITION-WITHOUT-COMMENTS (REMOVE-COMMENTS DEFINITION)) (TYPE (FUNCALL (GET NAME :TYPE-DISCRIMINATOR) DEFINITION-WITHOUT-COMMENTS)) (EXPANDER (GETF (GET NAME :DEFINITION-EXPANDER) TYPE)) (DEFINITION-NAME (FUNCALL (GET NAME :DEFINITION-NAME) DEFINITION-WITHOUT-COMMENTS))) (IL:BQUOTE (PROGN (WITHOUT-FILEPKG (SI::MACRO-FUNCALL (IL:\\\, EXPANDER) (IL:\\\, DEFINITION-WITHOUT-COMMENTS) (IL:\\\, ENV))) (EVAL-WHEN (EVAL) (UNLESS (NULL IL:FILEPKGFLG) (%DEFINE-TYPE-SAVE-DEFN (QUOTE (IL:\\\, DEFINITION-NAME)) (QUOTE (IL:\\\, TYPE)) (QUOTE (IL:\\\, DEFINITION))))) (QUOTE (IL:\\\, DEFINITION-NAME))))))
-
-(DEFMACRO NAMED-PROGN (DEFINER NAME &REST FORMS) (IL:* IL:|;;| "Used by the compiler when processing definers") (IL:BQUOTE (PROGN (IL:\\\,@ FORMS) (QUOTE (IL:\\\, NAME)))))
-
-
-
-(IL:* IL:\; "Auxiliary functions")

-
-
-(DEFUN GET-DEFINER-NAME (DEFINER STRING) (VALUES (INTERN (CONCATENATE (QUOTE STRING) STRING (STRING DEFINER)) (SYMBOL-PACKAGE DEFINER))))
-
-(DEFUN %DELETE-DEFINER (NAME) (AND (SYMBOLP NAME) (LET ((TYPE (OR (GET NAME (QUOTE :DEFINER-FOR)) (GET NAME (QUOTE IL:DEFINER-FOR))))) (IL:/REMPROP NAME (QUOTE :DEFINER-FOR)) (IL:/REMPROP NAME (QUOTE IL:DEFINER-FOR)) (IL:/REMPROP NAME (QUOTE :DEFINITION-NAME)) (IL:/REMPROP NAME (QUOTE IL:DEFINITION-NAME)) (IL:/REMPROP NAME (QUOTE :DEFINITION-EXPANDER)) (WHEN TYPE (IF (GET TYPE (QUOTE :DEFINED-BY)) (IL:/PUTPROP TYPE (QUOTE :DEFINED-BY) (REMOVE NAME (GET TYPE (QUOTE :DEFINED-BY)))) (IL:/PUTPROP TYPE (QUOTE IL:DEFINED-BY) (REMOVE NAME (GET TYPE (QUOTE IL:DEFINED-BY))))) (IL:* IL:|;;| "need to remove the prototype function!") (LET* ((LOOKUP-TYPE (ASSOC TYPE *DEFINITION-PROTOTYPES* :TEST (FUNCTION EQ)))) (IL:/RPLACD LOOKUP-TYPE (REMOVE NAME (CDR LOOKUP-TYPE) :KEY (FUNCTION CAR))))))))
-
-(DEFDEFINER (DEF-DEFINE-TYPE (:PROTOTYPE (LAMBDA (NAME) (AND (SYMBOLP NAME) (IL:BQUOTE (DEF-DEFINE-TYPE (IL:\\\, NAME) "Description string")))))) IL:DEFINE-TYPES (NAME DESCRIPTION &KEY UNDEFINER &AUX (CHANGELST (INTERN (CONCATENATE (QUOTE STRING) "CHANGED" (STRING NAME) "LST") (SYMBOL-PACKAGE NAME)))) "Define NAME as a new definition type" (IL:* IL:|;;| "This definition is a clean interface to a hokey implementation.  It works even before the file package is loaded.") (IL:BQUOTE (PROGN (SETF (DOCUMENTATION (QUOTE (IL:\\\, NAME)) (QUOTE IL:DEFINE-TYPES)) (QUOTE (IL:\\\, DESCRIPTION))) (PUSHNEW (QUOTE ((IL:\\\, NAME) X (IL:P IL:* (%DEFINE-TYPE-FILE-DEFINITIONS (QUOTE (IL:\\\, NAME)) (QUOTE X))))) IL:PRETTYDEFMACROS :TEST (QUOTE EQUAL)) (IL:* IL:|;;| "the information about a type in the file package is split up into a number of different places. PRETTYTYPELST contains a random amount: the changelist is the variable whose top level value contains the list of changed items, and the description is a string used by files? This is duplicated in the CL:DOCUMENTATION mechanism") (PUSHNEW (QUOTE ((IL:\\\, CHANGELST) (IL:\\\, NAME) (IL:\\\, DESCRIPTION))) IL:PRETTYTYPELST :TEST (QUOTE EQUAL)) (DEFGLOBALVAR (IL:\\\, CHANGELST) NIL) (IL:* IL:|;;| "the definition hash table is where the definitions are really stored. Create an entry for this type. Note that definitions are compared using CL:EQUAL so that names can be strings, lists, etc.") (UNLESS (GETHASH (QUOTE (IL:\\\, NAME)) *DEFINITION-HASH-TABLE*) (SETF (GETHASH (QUOTE (IL:\\\, NAME)) *DEFINITION-HASH-TABLE*) (MAKE-HASH-TABLE :TEST (QUOTE EQUAL) :SIZE 50 :REHASH-SIZE 50))) (PUSHNEW (QUOTE (IL:\\\, NAME)) IL:FILEPKGTYPES) (SETF (GET (QUOTE (IL:\\\, NAME)) (QUOTE IL:GETDEF)) (QUOTE %DEFINE-TYPE-GETDEF)) (SETF (GET (QUOTE (IL:\\\, NAME)) (QUOTE IL:DELDEF)) (QUOTE %DEFINE-TYPE-DELDEF)) (SETF (GET (QUOTE (IL:\\\, NAME)) (QUOTE IL:PUTDEF)) (QUOTE %DEFINE-TYPE-PUTDEF)) (SETF (GET (QUOTE (IL:\\\, NAME)) (QUOTE IL:FILEGETDEF)) (QUOTE %DEFINE-TYPE-FILEGETDEF)) (SETF (GET (QUOTE (IL:\\\, NAME)) (QUOTE IL:FILEPKGCONTENTS)) (QUOTE IL:NILL)) (IL:\\\,@ (WHEN UNDEFINER (IL:BQUOTE ((PUSHNEW (QUOTE (IL:\\\, UNDEFINER)) (GET (QUOTE (IL:\\\, NAME)) (QUOTE :UNDEFINERS))))))))))
-
-(DEFDEFINER (DEFDEFINER (:NAME (LAMBDA (WHOLE) (LET ((NAME (SECOND WHOLE))) (IF (CONSP NAME) (CAR NAME) NAME)))) (:PROTOTYPE (LAMBDA (NAME) (AND (SYMBOLP NAME) (IL:BQUOTE (DEFDEFINER (IL:\\\, NAME) (IL:\\\, (IF (EQ (IL:EDITMODE) (QUOTE IL:SEDIT)) (SYMBOL-VALUE (INTERN "BASIC-GAP" "SEDIT")) "Type")) (IL:\\\,@ (%MAKE-FUNCTION-PROTOTYPE))))))) (:UNDEFINER %DELETE-DEFINER) (:TEMPLATE (:NAME :TYPE :ARG-LIST :BODY))) IL:FUNCTIONS (NAME TYPE ARG-LIST &BODY BODY) (LET* ((OPTIONS (COND ((CONSP NAME) (PROG1 (CDR NAME) (SETQ NAME (CAR NAME)))) (T NIL))) (NAME-FN NIL) (UNDEFINER NIL) (PROTOTYPE-FN NIL) (TEMPLATE NIL) (PRETTYMACRO NIL) (EDITDATE-OFFSET NIL)) (DOLIST (OPT-LIST OPTIONS) (CASE (CAR OPT-LIST) ((:UNDEFINER) (SETQ UNDEFINER (CADR OPT-LIST))) ((:NAME) (SETQ NAME-FN (CADR OPT-LIST))) ((:PROTOTYPE) (SETQ PROTOTYPE-FN (CADR OPT-LIST))) ((:TEMPLATE) (SETQ TEMPLATE (CADR OPT-LIST))) ((:PRETTYPRINTMACRO) (SETQ PRETTYMACRO (CADR OPT-LIST))) ((:EDITDATE-OFFSET) (SETQ EDITDATE-OFFSET (CADR OPT-LIST))) (OTHERWISE (CERROR "Ignore the option" "Unrecognized option to DefDefiner: ~S" OPT-LIST)))) (IL:* IL:|;;| "Crap out now if junk in EDITDATE-OFFSET") (WHEN (AND EDITDATE-OFFSET (NOT (INTEGERP EDITDATE-OFFSET))) (ERROR ":EDITDATE-OFFSET must be an integer, not ~a" EDITDATE-OFFSET)) (MULTIPLE-VALUE-BIND (EXPANSION-FN DOC) (SI::EXPANSION-FUNCTION NAME ARG-LIST BODY) (UNLESS (OR TEMPLATE PRETTYMACRO (NOT (MEMBER (QUOTE &BODY) ARG-LIST))) (IL:* IL:\; "Tell default prettyprinter where the body is") (SETQ TEMPLATE (NCONC (IL:FOR X IL:IN ARG-LIST IL:UNTIL (EQ X (QUOTE &BODY)) IL:UNLESS (MEMBER X LAMBDA-LIST-KEYWORDS) IL:COLLECT NIL) (LIST :BODY))) (WHEN (AND (NULL (CAR TEMPLATE)) (NULL NAME-FN)) (IL:* IL:\; "Name is in default place") (SETF (CAR TEMPLATE) :NAME))) (LET ((EXPANDER-NAME (GET-DEFINER-NAME NAME "definition-expander-")) (NAME-FN-NAME (IF (CONSP NAME-FN) (GET-DEFINER-NAME NAME "name-fn-")))) (IL:BQUOTE (PROGN (EVAL-WHEN (LOAD EVAL ) (SETF (GET (QUOTE (IL:\\\, NAME)) (QUOTE :DEFINER-FOR)) (QUOTE (IL:\\\, TYPE))) (PUSHNEW (QUOTE (IL:\\\, NAME)) (GET (QUOTE (IL:\\\, TYPE)) (QUOTE :DEFINED-BY))) (SETF (SYMBOL-FUNCTION (QUOTE (IL:\\\, EXPANDER-NAME))) (FUNCTION (IL:\\\, EXPANSION-FN))) (SETF (GET (QUOTE (IL:\\\, NAME)) (QUOTE :DEFINITION-EXPANDER)) (QUOTE (IL:\\\, EXPANDER-NAME))) (IL:\\\,@ (IF NAME-FN-NAME (IL:BQUOTE ((SETF (SYMBOL-FUNCTION (QUOTE (IL:\\\, NAME-FN-NAME))) (FUNCTION (IL:\\\, NAME-FN))))))) (SETF (GET (QUOTE (IL:\\\, NAME)) (QUOTE :DEFINITION-NAME)) (QUOTE (IL:\\\, (OR NAME-FN-NAME NAME-FN (QUOTE SECOND))))) (IL:\\\,@ (AND UNDEFINER (LET ((UNDEFINER-FN-NAME (GET-DEFINER-NAME NAME "undefiner-fn-"))) (IL:BQUOTE ((SETF (SYMBOL-FUNCTION (QUOTE (IL:\\\, UNDEFINER-FN-NAME))) (FUNCTION (IL:\\\, UNDEFINER))) (PUSHNEW (QUOTE (IL:\\\, UNDEFINER-FN-NAME)) (GET (QUOTE (IL:\\\, NAME)) (QUOTE :UNDEFINERS)))))))) (IL:\\\,@ (AND PROTOTYPE-FN (LET ((PROTOTYPE-FN-NAME (GET-DEFINER-NAME NAME "prototype-fn-"))) (IL:BQUOTE ((SETF (SYMBOL-FUNCTION (QUOTE (IL:\\\, PROTOTYPE-FN-NAME))) (FUNCTION (IL:\\\, PROTOTYPE-FN))) (ADD-PROTOTYPE-FN (QUOTE (IL:\\\, TYPE)) (QUOTE (IL:\\\, NAME)) (QUOTE (IL:\\\, PROTOTYPE-FN-NAME)))))))) (IL:\\\,@ (AND DOC (IL:BQUOTE ((SETF (DOCUMENTATION (QUOTE (IL:\\\, NAME)) (QUOTE FUNCTION)) (IL:\\\, DOC)))))) (IL:\\\,@ (AND TEMPLATE (IL:BQUOTE ((SETF (GET (QUOTE (IL:\\\, NAME)) (QUOTE :DEFINITION-PRINT-TEMPLATE)) (QUOTE (IL:\\\, TEMPLATE))))))) (IL:\\\,@ (AND EDITDATE-OFFSET (IL:BQUOTE ((SETF (GET (QUOTE (IL:\\\, NAME)) :EDITDATE-OFFSET) (IL:\\\, EDITDATE-OFFSET)))))) (PUSHNEW (QUOTE ((IL:\\\, NAME) (IL:\\\,@ (OR PRETTYMACRO (QUOTE PPRINT-DEFINER))))) IL:PRETTYPRINTMACROS :TEST (QUOTE EQUAL))) (DEFMACRO (IL:\\\, NAME) (&WHOLE DEFINITION &ENVIRONMENT ENV) (IL:BQUOTE (DEFINER (IL:\\\, (QUOTE (IL:\\\, TYPE))) (IL:\\\, (QUOTE (IL:\\\, NAME))) (IL:\\\, DEFINITION) (IL:\\\, ENV))))))))))
-
-(DEFDEFINER (DEFDEFINER-VARIABLE-TYPE (:NAME (LAMBDA (WHOLE) (LET ((NAME (SECOND WHOLE))) (IF (CONSP NAME) (CAR NAME) NAME)))) (:PROTOTYPE (LAMBDA (NAME) (AND (SYMBOLP NAME) (IL:BQUOTE (DEFDEFINER-VARIABLE-TYPE (IL:\\\, NAME) (IL:\\\, (IF (EQ (IL:EDITMODE) (INTERN "SEDIT" "SEDIT")) (SYMBOL-VALUE (INTERN "BASIC-GAP" "SEDIT")) "Type")) (IL:\\\,@ (%MAKE-FUNCTION-PROTOTYPE))))))) (:UNDEFINER %DELETE-DEFINER) (:TEMPLATE (:NAME :TYPE :ARG-LIST :BODY))) IL:FUNCTIONS (NAME TYPES ARG-LIST &BODY BODY) (IL:* IL:|;;| "An extension to the DEFDEFINER universe, this allows the creation of definers that map to multiple file-package types.  The test case, and the only case guaranteed to work, is DEFUN (which now must accept (DEFUN (SETF FOO)...), which needs to be stored as a SETFS file type).") (LET* ((OPTIONS (COND ((CONSP NAME) (PROG1 (CDR NAME) (SETQ NAME (CAR NAME)))) (T NIL))) (NAME-FN NIL) (UNDEFINERS NIL) (PROTOTYPE-FNS NIL) (TEMPLATE NIL) (PRETTYMACRO NIL) (TYPE-DISCRIMINATOR NIL) (EXPANSION-FNS NIL) (DOCS NIL) (EDITDATE-OFFSET NIL)) (DOLIST (OPT-LIST OPTIONS) (CASE (CAR OPT-LIST) ((:UNDEFINERS) (SETQ UNDEFINERS (CDR OPT-LIST))) ((:NAME) (SETQ NAME-FN (CADR OPT-LIST))) ((:PROTOTYPES) (SETQ PROTOTYPE-FNS (CDR OPT-LIST))) ((:TEMPLATE) (SETQ TEMPLATE (CADR OPT-LIST))) ((:PRETTYPRINTMACRO) (SETQ PRETTYMACRO (CADR OPT-LIST))) ((:TYPE-DISCRIMINATOR) (SETQ TYPE-DISCRIMINATOR (CADR OPT-LIST))) ((:EDITDATE-OFFSET) (SETQ EDITDATE-OFFSET (CADR OPT-LIST))) (OTHERWISE (CERROR "Ignore the option" "Unrecognized option to DefDefiner: ~S" OPT-LIST)))) (UNLESS TYPE-DISCRIMINATOR (ERROR "DEFDEFINER-VARIABLE-TYPE must have a TYPE-DISCRIMINATOR")) (IL:* IL:|;;| "Crap out now if junk in EDITDATE-OFFSET") (WHEN (AND EDITDATE-OFFSET (NOT (INTEGERP EDITDATE-OFFSET))) (ERROR ":EDITDATE-OFFSET must be an integer, not ~a" EDITDATE-OFFSET)) (DOLIST (TYPE TYPES) (MULTIPLE-VALUE-BIND (EXPANSION-FN DOC) (SI::EXPANSION-FUNCTION NAME ARG-LIST (LET ((TB (GETF BODY TYPE))) (IF TB (LIST TB) (ERROR "No expansion-function for ~A" TYPE)))) (SETF (GETF EXPANSION-FNS TYPE) EXPANSION-FN) (WHEN DOC (SETQ DOCS (CONCATENATE (QUOTE STRING) DOCS (OR DOCS "
-") (SYMBOL-NAME TYPE) ": " DOC))))) (UNLESS (OR TEMPLATE PRETTYMACRO (NOT (MEMBER (QUOTE &BODY) ARG-LIST))) (IL:* IL:\; "Tell default prettyprinter where the body is") (SETQ TEMPLATE (NCONC (IL:FOR X IL:IN ARG-LIST IL:UNTIL (EQ X (QUOTE &BODY)) IL:UNLESS (MEMBER X LAMBDA-LIST-KEYWORDS) IL:COLLECT NIL) (LIST :BODY))) (WHEN (AND (NULL (CAR TEMPLATE)) (NULL NAME-FN)) (IL:* IL:\; "Name is in default place") (SETF (CAR TEMPLATE) :NAME))) (LET ((NAME-FN-NAME (IF (CONSP NAME-FN) (GET-DEFINER-NAME NAME "name-fn-"))) (TYPE-DISCRIMINATOR-NAME (GET-DEFINER-NAME NAME "type-discriminator-fn-"))) (IL:BQUOTE (PROGN (EVAL-WHEN (LOAD EVAL ) (SETF (GET (QUOTE (IL:\\\, NAME)) (QUOTE :DEFINER-FOR)) (QUOTE (IL:\\\, TYPES))) (SETF (SYMBOL-FUNCTION (QUOTE (IL:\\\, TYPE-DISCRIMINATOR-NAME))) (FUNCTION (IL:\\\, TYPE-DISCRIMINATOR))) (SETF (GET (QUOTE (IL:\\\, NAME)) (QUOTE :TYPE-DISCRIMINATOR)) (QUOTE (IL:\\\, TYPE-DISCRIMINATOR-NAME))) (IL:\\\,@ (AND PROTOTYPE-FNS (MAPCAN (FUNCTION (LAMBDA (TYPE) (LET ((PROTOTYPE-FN-NAME (GET-DEFINER-NAME NAME (CONCATENATE (QUOTE STRING) (SYMBOL-NAME TYPE) "-prototype-fn-")))) (IL:BQUOTE ((SETF (SYMBOL-FUNCTION (QUOTE (IL:\\\, PROTOTYPE-FN-NAME))) (FUNCTION (IL:\\\, (GETF PROTOTYPE-FNS TYPE)))) (ADD-PROTOTYPE-FN (QUOTE (IL:\\\, TYPE)) (QUOTE (IL:\\\, NAME)) (QUOTE (IL:\\\, PROTOTYPE-FN-NAME)))))))) TYPES))) (IL:\\\,@ (AND DOCS (IL:BQUOTE ((SETF (DOCUMENTATION (QUOTE (IL:\\\, NAME)) (QUOTE FUNCTION)) (IL:\\\, DOCS)))))) (IL:\\\,@ (AND TEMPLATE (IL:BQUOTE ((SETF (GET (QUOTE (IL:\\\, NAME)) (QUOTE :DEFINITION-PRINT-TEMPLATE)) (QUOTE (IL:\\\, TEMPLATE))))))) (SETF (GET (QUOTE (IL:\\\, NAME)) (QUOTE :DEFINITION-NAME)) (QUOTE (IL:\\\, (OR NAME-FN-NAME NAME-FN (QUOTE SECOND))))) (IL:\\\,@ (MAPCAN (FUNCTION (LAMBDA (TYPE) (LET ((EXPANDER-NAME (GET-DEFINER-NAME NAME (CONCATENATE (QUOTE STRING) (SYMBOL-NAME TYPE) "-definition-expander-"))) (EXPANSION-FN (GETF EXPANSION-FNS TYPE))) (IL:BQUOTE ((PUSHNEW (QUOTE (IL:\\\, NAME)) (GET (QUOTE (IL:\\\, TYPE)) (QUOTE :DEFINED-BY))) (SETF (SYMBOL-FUNCTION (QUOTE (IL:\\\, EXPANDER-NAME))) (FUNCTION (IL:\\\, EXPANSION-FN))) (SETF (GETF (GET (QUOTE (IL:\\\, NAME)) (QUOTE :DEFINITION-EXPANDER)) (QUOTE (IL:\\\, TYPE))) (QUOTE (IL:\\\, EXPANDER-NAME)))))))) TYPES)) (IL:\\\,@ (IF NAME-FN-NAME (IL:BQUOTE ((SETF (SYMBOL-FUNCTION (QUOTE (IL:\\\, NAME-FN-NAME))) (FUNCTION (IL:\\\, NAME-FN))))))) (IL:\\\,@ (AND UNDEFINERS (MAPCAN (FUNCTION (LAMBDA (TYPE) (WHEN (GETF UNDEFINERS TYPE) (LET ((UNDEFINER-FN-NAME (GET-DEFINER-NAME NAME (CONCATENATE (QUOTE STRING) (SYMBOL-NAME TYPE) "-undefiner-fn-")))) (IL:BQUOTE ((SETF (SYMBOL-FUNCTION (QUOTE (IL:\\\, UNDEFINER-FN-NAME))) (FUNCTION (IL:\\\, (GETF UNDEFINERS TYPE)))) (PUSHNEW (QUOTE (IL:\\\, UNDEFINER-FN-NAME)) (GETF (GET (QUOTE (IL:\\\, NAME)) (QUOTE :UNDEFINERS)) (QUOTE (IL:\\\, TYPE)))))))))) TYPES))) (IL:\\\,@ (AND EDITDATE-OFFSET (IL:BQUOTE ((SETF (GET (QUOTE (IL:\\\, NAME)) :EDITDATE-OFFSET) (IL:\\\, EDITDATE-OFFSET)))))) (PUSHNEW (QUOTE ((IL:\\\, NAME) (IL:\\\,@ (OR PRETTYMACRO (QUOTE PPRINT-DEFINER))))) IL:PRETTYPRINTMACROS :TEST (QUOTE EQUAL))) (DEFMACRO (IL:\\\, NAME) (&WHOLE DEFINITION &ENVIRONMENT ENV) (IL:BQUOTE (DEFINER-VARIABLE-TYPE (IL:\\\, (QUOTE (IL:\\\, NAME))) (IL:\\\, DEFINITION) (IL:\\\, ENV)))))))))
-
-(DEFUN %EXPAND-DEFINER (DEFINER DEFINITION-WITHOUT-COMMENTS &OPTIONAL ENV) (FUNCALL (GET DEFINER :DEFINITION-EXPANDER) DEFINITION-WITHOUT-COMMENTS ENV))
-
-(DEFUN %DEFINER-NAME (DEFINER DEFINITION-WITHOUT-COMMENTS) (FUNCALL (GET DEFINER :DEFINITION-NAME) DEFINITION-WITHOUT-COMMENTS))
-
-
-
-(IL:* IL:\; "The most commonly-used definers")

-
-
-(DEFDEFINER-VARIABLE-TYPE (DEFUN (:TYPE-DISCRIMINATOR (LAMBDA (WHOLE) (LET ((NAME (SECOND WHOLE))) (COND ((SYMBOLP NAME) (QUOTE IL:FUNCTIONS)) ((CL::SETF-NAME-P NAME) (QUOTE IL:SETFS)) (T (ERROR "Can't determine type for DEFUN: ~s" NAME)))))) (:NAME (LAMBDA (WHOLE) (LET ((NAME (SECOND WHOLE))) (COND ((SYMBOLP NAME) NAME) ((CL::SETF-NAME-P NAME) (CADR NAME)) (T (ERROR "Bad function-name for DEFUN: ~s" NAME)))))) (:PROTOTYPES IL:FUNCTIONS (LAMBDA (NAME) (IL:BQUOTE (DEFUN (IL:\\\, NAME) (IL:\\\,@ (%MAKE-FUNCTION-PROTOTYPE))))) IL:SETFS (LAMBDA (NAME) (IL:BQUOTE (DEFUN (SETF (IL:\\\, NAME)) (IL:\\\,@ (%MAKE-FUNCTION-PROTOTYPE)))))) (:TEMPLATE (:NAME :ARG-LIST :BODY)) (:EDITDATE-OFFSET 3)) (IL:FUNCTIONS IL:SETFS) (NAME ARGS &BODY (BODY DECLS DOCUMENTATION) &ENVIRONMENT ENV) IL:FUNCTIONS (IL:BQUOTE (PROGN (SETF (SYMBOL-FUNCTION (QUOTE (IL:\\\, NAME))) (FUNCTION (LAMBDA (IL:\\\, ARGS) (IL:\\\,@ DECLS) (BLOCK (IL:\\\, NAME) (IL:\\\,@ BODY))))) (IL:\\\,@ (AND DOCUMENTATION (IL:BQUOTE ((SETF (DOCUMENTATION (QUOTE (IL:\\\, NAME)) (QUOTE FUNCTION)) (IL:\\\, DOCUMENTATION)))))))) IL:SETFS (IL:* IL:|;;| "The form is (defun (setf foo) (store-var &rest args) body)") (IL:* IL:|;;| "Strategy is to give the code a name with DEFUN-SETF-NAME.  The name is stored on the :SETF-DEFUN property of the accessor.  This name is there for convenience/documentation only; the name can't be reliably changed by smashing this property (i.e. (SETF (FDEFINITION '(SETF FOO)) #'BAR) essentially does (SETF (SYMBOL-FUNCTION (DEFUN-SETF-NAME 'FOO)) #'BAR); it does NOT change the :SETF-DEFUN property on FOO).") (LET* ((REAL-NAME (SECOND NAME)) (DEFUN-SETF-NAME (DEFUN-SETF-NAME REAL-NAME))) (IL:BQUOTE (PROGN (SETF (SYMBOL-FUNCTION (QUOTE (IL:\\\, DEFUN-SETF-NAME))) (FUNCTION (LAMBDA (IL:\\\, ARGS) (IL:\\\,@ DECLS) (BLOCK (IL:\\\, REAL-NAME) (IL:\\\,@ BODY))))) (SET-DEFUN-SETF (QUOTE (IL:\\\, REAL-NAME)) (QUOTE (IL:\\\, DEFUN-SETF-NAME))) (IL:\\\,@ (AND DOCUMENTATION (IL:BQUOTE ((SETF (DOCUMENTATION (QUOTE (IL:\\\, REAL-NAME)) (QUOTE SETF)) (IL:\\\, DOCUMENTATION))))))))))
-
-(DEFDEFINER (DEFINLINE (:PROTOTYPE (LAMBDA (NAME) (AND (SYMBOLP NAME) (IL:BQUOTE (DEFINLINE (IL:\\\, NAME) (IL:\\\,@ (%MAKE-FUNCTION-PROTOTYPE))))))) (:TEMPLATE (:NAME :ARG-LIST :BODY))) IL:FUNCTIONS (NAME ARG-LIST &BODY BODY &ENVIRONMENT ENV) (IL:* IL:|;;;| "This is an INTERIM version of DEFINLINE.  Eventually, this will just turn into a DEFUN and a PROCLAIM INLINE.  (It says so right here.)  If you're using this one, DO NOT make any recursive calls in the body of the DEFINLINE.  If you do, the compiler will run forever trying to expand the optimizer...  Once the INLINE version gets working (in the PavCompiler only) that restriction will be lifted.") (MULTIPLE-VALUE-BIND (CODE DECLS DOC) (PARSE-BODY BODY ENV T) (LET ((NEW-LAMBDA (IL:BQUOTE ((IL:\\\, (QUOTE LAMBDA)) (IL:\\\, ARG-LIST) (IL:\\\,@ DECLS) (BLOCK (IL:\\\, NAME) (IL:\\\,@ CODE)))))) (IL:BQUOTE (PROGN (DEFUN (IL:\\\, NAME) (IL:\\\, ARG-LIST) (IL:\\\,@ BODY)) (DEFOPTIMIZER (IL:\\\, NAME) (IL:\\\, (PACK (LIST "definline-" NAME) (SYMBOL-PACKAGE NAME))) (&REST ARGS) (CONS (QUOTE (IL:\\\, NEW-LAMBDA)) ARGS)))))))
-
-(DEFDEFINER (DEFMACRO (:PROTOTYPE (LAMBDA (NAME) (AND (SYMBOLP NAME) (IL:BQUOTE (DEFMACRO (IL:\\\, NAME) (IL:\\\,@ (%MAKE-FUNCTION-PROTOTYPE))))))) (:UNDEFINER (LAMBDA (NAME) (REMPROP NAME (QUOTE IL:ARGNAMES)))) (:TEMPLATE (:NAME :ARG-LIST :BODY))) IL:FUNCTIONS (NAME DEFMACRO-ARGS &BODY DEFMACRO-BODY) (UNLESS (AND NAME (SYMBOLP NAME)) (ERROR "Illegal name used in DEFMACRO: ~S" NAME)) (LET ((CMACRONAME (PACK (LIST "expand-" NAME) (SYMBOL-PACKAGE NAME)))) (MULTIPLE-VALUE-BIND (EXPANSION-FN DOC-STRING) (SI::EXPANSION-FUNCTION NAME DEFMACRO-ARGS DEFMACRO-BODY) (IL:BQUOTE (PROGN (SETF (SYMBOL-FUNCTION (QUOTE (IL:\\\, CMACRONAME))) (FUNCTION (IL:\\\, EXPANSION-FN))) (SETF (MACRO-FUNCTION (QUOTE (IL:\\\, NAME))) (QUOTE (IL:\\\, CMACRONAME))) (IL:\\\,@ (AND DOC-STRING (IL:BQUOTE ((SETF (DOCUMENTATION (QUOTE (IL:\\\, NAME)) (QUOTE FUNCTION)) (IL:\\\, DOC-STRING)))))) (IL:\\\,@ (WHEN COMPILER::*NEW-COMPILER-IS-EXPANDING* (IL:BQUOTE ((SETF (GET (QUOTE (IL:\\\, NAME)) (QUOTE IL:ARGNAMES)) (QUOTE (IL:\\\, (MAPCAR (FUNCTION (LAMBDA (ARG) (IF (MEMBER ARG LAMBDA-LIST-KEYWORDS) ARG (PRIN1-TO-STRING ARG)))) (IL:\\SIMPLIFY.CL.ARGLIST DEFMACRO-ARGS))))))))))))))
-
-(DEFDEFINER (DEFVAR (:PROTOTYPE (LAMBDA (NAME) (AND (SYMBOLP NAME) (IL:BQUOTE (DEFVAR (IL:\\\, NAME))))))) IL:VARIABLES (NAME &OPTIONAL (INITIAL-VALUE NIL IVP) DOCUMENTATION) (IL:BQUOTE (PROGN (PROCLAIM (QUOTE (SPECIAL (IL:\\\, NAME)))) (IL:\\\,@ (AND IVP (IL:BQUOTE ((OR (BOUNDP (QUOTE (IL:\\\, NAME))) (SETQ (IL:\\\, NAME) (IL:\\\, INITIAL-VALUE))))))) (IL:\\\,@ (AND DOCUMENTATION (IL:BQUOTE ((SETF (DOCUMENTATION (QUOTE (IL:\\\, NAME)) (QUOTE VARIABLE)) (IL:\\\, DOCUMENTATION)))))))))
-
-(DEFDEFINER (DEFPARAMETER (:PROTOTYPE (LAMBDA (NAME) (AND (SYMBOLP NAME) (IL:BQUOTE (DEFPARAMETER (IL:\\\, NAME) "Value" "Documentation string")))))) IL:VARIABLES (NAME INITIAL-VALUE &OPTIONAL DOCUMENTATION) (IL:BQUOTE (PROGN (PROCLAIM (QUOTE (SPECIAL (IL:\\\, NAME)))) (SETQ (IL:\\\, NAME) (IL:\\\, INITIAL-VALUE)) (IL:\\\,@ (AND DOCUMENTATION (IL:BQUOTE ((SETF (DOCUMENTATION (QUOTE (IL:\\\, NAME)) (QUOTE VARIABLE)) (IL:\\\, DOCUMENTATION)))))))))
-
-(DEFDEFINER (DEFCONSTANT (:PROTOTYPE (LAMBDA (NAME) (AND (SYMBOLP NAME) (IL:BQUOTE (DEFCONSTANT (IL:\\\, NAME) "Value" "Documentation string")))))) IL:VARIABLES (NAME VALUE &OPTIONAL DOCUMENTATION) (IL:BQUOTE (PROGN (IL:\\\,@ (IF (CONSTANTP NAME) (IL:BQUOTE ((SET-CONSTANTP (QUOTE (IL:\\\, NAME)) NIL))))) (SETQ (IL:\\\, NAME) (IL:\\\, VALUE)) (PROCLAIM (QUOTE (SI::CONSTANT (IL:\\\, NAME)))) (IL:\\\,@ (AND DOCUMENTATION (IL:BQUOTE ((SETF (DOCUMENTATION (QUOTE (IL:\\\, NAME)) (QUOTE VARIABLE)) (IL:\\\, DOCUMENTATION)))))))))
-
-(DEFDEFINER (DEFGLOBALVAR (:PROTOTYPE (LAMBDA (NAME) (AND (SYMBOLP NAME) (IL:BQUOTE (DEFGLOBALVAR (IL:\\\, NAME))))))) IL:VARIABLES (NAME &OPTIONAL (INITIAL-VALUE NIL IVP) DOCUMENTATION) (IL:* IL:|;;| "Use IL:SETQ here or the INIT dies.") (IL:BQUOTE (PROGN (PROCLAIM (QUOTE (GLOBAL (IL:\\\, NAME)))) (IL:\\\,@ (AND IVP (IL:BQUOTE ((OR (BOUNDP (QUOTE (IL:\\\, NAME))) (SETQ (IL:\\\, NAME) (IL:\\\, INITIAL-VALUE))))))) (IL:\\\,@ (AND DOCUMENTATION (IL:BQUOTE ((SETF (DOCUMENTATION (QUOTE (IL:\\\, NAME)) (QUOTE VARIABLE)) (IL:\\\, DOCUMENTATION)))))))))
-
-(DEFDEFINER (DEFGLOBALPARAMETER (:PROTOTYPE (LAMBDA (NAME) (AND (SYMBOLP NAME) (IL:BQUOTE (DEFGLOBALPARAMETER (IL:\\\, NAME) "Value" "Documentation string")))))) IL:VARIABLES (NAME INITIAL-VALUE &OPTIONAL DOCUMENTATION) (IL:BQUOTE (PROGN (PROCLAIM (QUOTE (GLOBAL (IL:\\\, NAME)))) (SETQ (IL:\\\, NAME) (IL:\\\, INITIAL-VALUE)) (IL:\\\,@ (AND DOCUMENTATION (IL:BQUOTE ((SETF (DOCUMENTATION (QUOTE (IL:\\\, NAME)) (QUOTE VARIABLE)) (IL:\\\, DOCUMENTATION)))))))))
-
-
-
-(IL:* IL:\; "Here so that the evaluator can be in the init without definers being in the init.")

-
-
-(DEF-DEFINE-TYPE IL:SPECIAL-FORMS "Common Lisp special forms" :UNDEFINER %REMOVE-SPECIAL-FORM)
-
-(DEFUN %REMOVE-SPECIAL-FORM (X) (IL:/REMPROP X (QUOTE IL:SPECIAL-FORM)))
-
-(DEFDEFINER (DEFINE-SPECIAL-FORM (:TEMPLATE (:NAME :ARG-LIST :BODY))) IL:SPECIAL-FORMS (NAME ARGS &REST BODY) (COND ((NULL BODY) (ASSERT (SYMBOLP NAME) NIL "Ill-formed short DEFINE-SPECIAL-FORM; ~S is not a symbol." ARGS) (IL:BQUOTE (SETF (GET (QUOTE (IL:\\\, NAME)) (QUOTE IL:SPECIAL-FORM)) (QUOTE (IL:\\\, ARGS))))) (T (LET ((SF (INTERN (CONCATENATE (QUOTE STRING) "interpret-" (STRING NAME)) (SYMBOL-PACKAGE NAME)))) (MULTIPLE-VALUE-BIND (PARSED-BODY DECLS DOC) (IL:PARSE-DEFMACRO ARGS (QUOTE $$TAIL) BODY NAME NIL :PATH (QUOTE $$TAIL) :ENVIRONMENT (QUOTE $$ENV)) (IL:BQUOTE (PROGN (SETF (SYMBOL-FUNCTION (QUOTE (IL:\\\, SF))) (FUNCTION (LAMBDA ($$TAIL $$ENV) (IL:\\\,@ DECLS) (BLOCK (IL:\\\, NAME) (IL:\\\, PARSED-BODY))))) (SETF (GET (QUOTE (IL:\\\, NAME)) (QUOTE IL:SPECIAL-FORM)) (QUOTE (IL:\\\, SF))))))))))
-
-
-
-(IL:* IL:\; "Form for defining interpreters of special forms")

-
-
-
-
-(IL:* IL:\; "Don't note changes to these properties/variables")

-
-
-(IL:PUTPROPS IL:MACRO-FN IL:PROPTYPE IL:FUNCTIONS)
-
-(IL:PUTPROPS :UNDEFINERS IL:PROPTYPE IGNORE)
-
-(IL:PUTPROPS IL:UNDEFINERS IL:PROPTYPE IGNORE)
-
-(IL:PUTPROPS :DEFINER-FOR IL:PROPTYPE IGNORE)
-
-(IL:PUTPROPS IL:DEFINER-FOR IL:PROPTYPE IGNORE)
-
-(IL:PUTPROPS :DEFINED-BY IL:PROPTYPE IGNORE)
-
-(IL:PUTPROPS IL:DEFINED-BY IL:PROPTYPE IGNORE)
-
-(IL:PUTPROPS :DEFINITION-NAME IL:PROPTYPE IGNORE)
-
-(IL:PUTPROPS IL:DEFINITION-NAME IL:PROPTYPE IGNORE)
-
-
-
-(IL:* IL:\; 
-"Templates for definers not defined here.  These should really be where they're defined.")

-
-
-(IL:PUTPROPS DEFCOMMAND :DEFINITION-PRINT-TEMPLATE (:NAME :ARG-LIST :BODY))
-
-(IL:PUTPROPS DEFINE-CONDITION :DEFINITION-PRINT-TEMPLATE (:NAME :VALUE :BODY))
-
-(IL:PUTPROPS DEFINE-MODIFY-MACRO :DEFINITION-PRINT-TEMPLATE (:NAME :ARG-LIST))
-
-(IL:PUTPROPS DEFINE-SETF-METHOD :DEFINITION-PRINT-TEMPLATE (:NAME NIL NIL :BODY))
-
-(IL:PUTPROPS DEFSETF :DEFINITION-PRINT-TEMPLATE (:NAME :ARG-LIST :ARG-LIST :BODY))
-
-(IL:PUTPROPS DEFSTRUCT :DEFINITION-PRINT-TEMPLATE (:NAME :BODY))
-
-(IL:PUTPROPS DEFTYPE :DEFINITION-PRINT-TEMPLATE (:NAME NIL :BODY))
-
-
-
-(IL:* IL:|;;| "Arrange for the correct compiler to be used.")

-
-
-(IL:PUTPROPS IL:CMLDEFFER IL:FILETYPE :COMPILE-FILE)
-
-(IL:PUTPROPS IL:CMLDEFFER IL:MAKEFILE-ENVIRONMENT (:READTABLE "XCL" :PACKAGE "XCL"))
-(IL:PUTPROPS IL:CMLDEFFER IL:COPYRIGHT ("Venue & Xerox Corporation" 1986 1900 1987 1988 1990 1992))
-(IL:DECLARE\: IL:DONTCOPY
-  (IL:FILEMAP (NIL)))
-IL:STOP

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.

Dockerfile

@@ -1,24 +0,0 @@
-FROM ubuntu:focal
-ENV DEBIAN_FRONTEND=noninteractive
-
-RUN apt-get update && apt-get install -y build-essential clang libx11-dev
-COPY maiko /build/
-WORKDIR /build/bin
-RUN rm -rf /build/linux*
-RUN ./makeright x
-
-
-FROM ubuntu:focal
-ENV DEBIAN_FRONTEND=noninteractive
-
-EXPOSE 5900
-
-RUN apt-get update && apt-get install -y tightvncserver
-RUN mkdir /app
-WORKDIR /app
-COPY basics ./
-COPY --from=0 /build/linux.x86_64/* ./
-
-RUN adduser --disabled-password --gecos "" medley
-USER medley
-ENTRYPOINT USER=medley Xvnc -geometry 1270x720 :0 & DISPLAY=:0 /app/ldex -g 1280x720 full.sysout

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,48 +1,77 @@
 # Medley 
 
+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.
 
+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.
 
-This repository is for the Lisp environment of [Medley Interlisp](https://Interlisp.org).
+[Using Medley](https://interlisp.org/software/using-medley/) has an overview and pointers to documentation.
 
-We've made great process in sorting out what we have (some dusty corners notwithstanding), but there's quite a bit more work to do. Please report problems!
+The [Glossary](https://interlisp.org/history/glossary) defines system-specific terms such as "loadup" and "sysout".
 
-See [Medley Interlisp Wiki](https://github.com/Interlisp/medley/wiki/) for an overview, and other pointers.
+## Releases
 
-A sub-project is [Interlisp/maiko](https://github.com/Interlisp/maiko), which is the implementation (in C) of the Medley virtual machine. 
+While there are installers for popular platforms, this section may be useful in some circumstances.
 
+### Getting releases 
 
-## Instructions for Building and Running
+Get the Maiko release [here](https://github.com/Interlisp/maiko/releases). You'll need the .tgz file corresponding to your operating system and processor. For Windows with WSL or Intel Linux, use `linux.x86_64`; for Macs use `darwin.x86_64` for Intel and `darwin.aarch64` for Mac silicon. Windows without WSL uses `cygwin` instead.
+
+Or, build your own maiko (the binaries `lde`, `ldex` OR `ldesdl`, and `ldeinit`).
+You can also build for other architectures
+
+The medley release image and sources come in two parts, found [here](https://github.com/Interlisp/medley/releases)
+1. The "loadups" (download `medley-`_YYMMDD-XXXXX_`-loadups.tgz`)
+2. The "runtime" (download `medley-`_YYMMDD-XXXXX_`-runtime.tgz`)
+
+where _YYMMDD_ is the date and _XXXXX_ is the GitHub commit ID.
+
+The "runtime" isn't needed if you've cloned the (medley) repo--you have all the files. The "runtime" has extra fonts, unicode tables, and source code that aren't part of the loadups but may be called on.
+
+### Unpacking releases
+
+From a shell/terminal window:
+
+1. Choose a directory _parent_ where you want to install medley and maiko. 
+2. Unpack the medley loadups file
+
+* `cd ` _parent_
+* `tar xvzf medley-`_YYMMDD-XXXXX_`-loadups.tgz`
+
+3. Unpack the medley runtime OR clone the Medley repo
+   (the "medley runtime" is just a subset of the whole repo)
+   
+* `tar xvzf medley-`YYMMDD`-runtime.tgz` 
+
+   OR
+   ```
+   git clone https://github.com/Interlisp/medley
+   ```
+   
+4. Unpack the maiko file for your operating system and CPU type, e.g.,
+
+   ```
+   tar xvzf maiko-210823.linux.x86_64.tgz
+   ```
+
+5. This should leave you with two directories, `medley` and `maiko`.
 
 ### Setting up X
 
-Medley Interlisp needs an X-Server to manage its display. Most Linux desktops have one. There are a number of free open source X-servers for windows. Mac users should head over to [XQuartz.org](https://xquartz.org/releases) -- be sure to pick a version if you have a newer Mac.
+In many configurations, Medley uses an X-Server to manage its display. Most Linux desktops have one. Windows 11 with WSL includes an X-Server. For Windows 10 with WSL2, there are a number of open-source X servers; for example vcxsrv.
 
-If you have a high-resolution display, note that much of the graphics was designed for a low-resolution display, so an X-server that does "pixel doublilng" is best. (E.g., Raspberry Pi does pixel doubling on 4K displays.) It also presumes you have a 3-button mouse; the scroll-wheel on some mice act as one with some difficulty.) XQuartz Preferences/Input has "Emulate three button mouse" option.
+Mac users should get [XQuartz from XQuartz.org](https://xquartz.org/releases).
 
+Medley manages the display entirely, doesn't use X fonts and manages it's own window system.
+
+If you have a high-resolution display, note that much of the graphics was designed for a low-resolution display, so an X-server that does "pixel doubling" is best. (E.g., Raspberry Pi does pixel doubling on 4K displays.)
+
+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
 
-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>
-```
-
-Once the system comes up, give it a few seconds to initialize.
-
-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
 
@@ -56,40 +85,40 @@ Or from the Common Lisp prompt with:
 ```
 (IL:LOGOUT)
 ```
-When you logout of the system, Medley automatically creates a binary
+When you log out of the system, Medley automatically creates a binary
 dump of your system located in your home directory named
 `lisp.virtualmem`. The next time you run the system, if you don't
 specify a specific image to run, Medley restores that image so that
 you can continue right where you left off.
 
-* [Using Medley Interlisp](https://github.com/Interlisp/medley/wiki/Using-Medley-Interlisp)
-
+* [Using Medley Interlisp](https://interlisp.org/doc/info/Using.html)
 
 ## Naming conventions and directory structure
 
 File Names and Extensions: Most Interlisp source file names are
 UPPERCASE and Interlisp didn't use file extensions for its source
 files. A .TEDIT or .TXT file is probably documentation
-for the package of same name, at least in the library,
-internal/library, lispusers.
+for the package of the same name, at least in the library and lispusers
+directories.
 
 The current repo has both Lisp sources and compiled .LCOM and .DFASL
-files, because some files don't compile in a vanilla lisp.sysout .
+files.
 
 Each directory should have a README.md, but briefly
 
-- docs -- Documentation files (either 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; now internal/library and internal/test
-- library  -- packages that were supported (30 years ago)
-- lispusers -- packages that were only half supported (ditto)
-- loadups   -- has sysouts and other builds
-- patches -- for cases where reloading doesn't wor
-- scripts  -- some scripts for fixing up things
-- sunloadup --  support information for making a new lisp.sysout from scratch
-- sources   -- sources for Interlisp and Common Lisp implementations
-- unicode  -- data files for support of XCCS to and from Unicode mappings
-
-plus
-   Dockerfile, and scripts for building and running medley
+* 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
+* 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
+* library  -- packages that were supported (30 years ago)
+* lispusers -- User contributed packages that were only half supported (ditto)
+* loadups   -- has sysouts and other builds plus a few remnants
+* obsolete  -- files we should remove from the repo
+* rooms -- implementation of ROOMS window/desktop manager
+* run-medley -- script to enhance the options of running medley
+* scripts  -- some scripts for fixing up things, building and running medley
+* sources   -- sources for Interlisp and Common Lisp implementations
+* unicode  -- data files for support of XCCS to and from Unicode mappings

clos/clos-env.lisp

@@ -1505,7 +1505,7 @@ window"
 (setf (sedit:get-format 'call-next-method)
       '(:indent (1) :args (:keyword nil)))
 
-(setf (sedit:get-format 'symbol-macrolet) 'let)
+(setf (sedit:get-format 'cl:symbol-macrolet) 'let)
 
 (setf (sedit:get-format 'with-accessors)
       '(:indent ((1) 1)

clos/pkg.lisp

@@ -1,16 +1,12 @@
 ;;;-*- Package: CLOS; Syntax: Common-Lisp; Base: 10 -*-
 
-
 ;;; File converted on 26-Mar-91 10:23:29 from source pkg
 ;;;. Original source {dsk}<usr>local>users>welch>lisp>clos>rev4>il-format>pkg.;4 created  1-Mar-91 10:10:26
 
 ;;;. Copyright (c) 1991 by Venue
 
-
 (in-package "CLOS")
 
-
-
 ;;; Some CommonLisps have more symbols in the Lisp package than the ones that are explicitly
 ;;; specified in CLtL.  This causes trouble. Any Lisp that has extra symbols in the Lisp package
 ;;; should shadow those symbols in the CLOS package. 
@@ -31,7 +27,7 @@
                no-applicable-method no-next-method print-object reinitialize-instance remove-method 
                shared-initialize slot-boundp slot-exists-p slot-makunbound slot-missing slot-unbound
                slot-value standard standard-class standard-generic-function standard-method 
-               standard-object structure-class symbol-macrolet update-instance-for-different-class 
+               standard-object structure-class  update-instance-for-different-class 
                update-instance-for-redefined-class with-accessors with-added-methods with-slots))
 
 (import '(xcl:false xcl:destructuring-bind xcl:true) *the-clos-package*)

docs/Documentation Tools/NONAME.IMPTR

@@ -1,2 +0,0 @@
-(ASDF NIL NIL NIL ("1") 1)
-(ASDF NIL NIL NIL ("A") 2)

docs/README.md

@@ -0,0 +1,10 @@
+See [Using Medley](https://interlisp.org/software/using-medley)
+for a list of available documentation. Much of the documentation still
+needs review and updating.
+
+This directory has source (.TEDIT) for some documents that are found elsewhere.
+
+
+* dinfo  -- files for HelpSys man command Interlisp Reference Manual
+ 
+ 

docs/ReleaseNote/LOT.pdf

@@ -1,267 +0,0 @@
-%PDF-1.3
-%âãÏÓ
-2 0 obj
-<<
-/Length 555
->>
-stream
-BT
-/TT2 1 Tf
-10 0 0 10 548 15 Tm
-0 g
-/GS1 gs
-0 Tc
-0 Tw
-(xv)Tj
-ET
-0 G
-0 J 0 j 1 w 10 M []0 d
-1 i 
-54.01 27.5 m
-558.01 27.5 l
-S
-BT
-10 0 0 10 54 17.21 Tm
-(LISP RELEASE NOTES,  MEDLEY RELEASE,  LIST OF TABLES   )Tj
-/TT4 1 Tf
-18 0 0 18 411.97 752.97 Tm
-(LIST OF TABLES )Tj
-ET
-6 w 
-258.01 745.99 m
-558.01 745.99 l
-S
-BT
-10 0 0 10 54 666.2 Tm
-(Table  )Tj
-48.01 0 TD
-(Page)Tj
-ET
-1 w 
-54.01 663.43 m
-558.01 663.43 l
-S
-BT
-/TT2 1 Tf
-10 0 0 10 54 635.14 Tm
-[(1.  TEdit’s Abbreviations and their Expanded Characters  )-23497(6-1)]TJ
-ET
-54.01 632.43 m
-558.01 632.43 l
-S
-endstream
-endobj
-3 0 obj
-<<
-/ProcSet [/PDF /Text ]
-/Font <<
-/TT2 4 0 R
-/TT4 5 0 R
->>
-/ExtGState <<
-/GS1 6 0 R
->>
->>
-endobj
-9 0 obj
-<<
-/Length 360
->>
-stream
-BT
-/TT2 1 Tf
-10 0 0 10 54 15 Tm
-0 g
-/GS1 gs
-0 Tc
-0 Tw
-(xvi)Tj
-ET
-0 G
-0 J 0 j 1 w 10 M []0 d
-1 i 
-54.01 27.5 m
-558.01 27.5 l
-S
-BT
-10 0 0 10 264.55 17.21 Tm
-(LISP RELEASE NOTES,  MEDLEY RELEASE,  LIST OF TABLES   )Tj
--21.055 74.479 TD
-(LIST OF TABLES )Tj
-ET
-54.01 759.29 m
-558.01 759.29 l
-S
-BT
-10 0 0 10 228 494.21 Tm
-([This page intentionally left blank])Tj
-ET
-endstream
-endobj
-10 0 obj
-<<
-/ProcSet [/PDF /Text ]
-/Font <<
-/TT2 4 0 R
->>
-/ExtGState <<
-/GS1 6 0 R
->>
->>
-endobj
-6 0 obj
-<<
-/Type /ExtGState
-/SA false
-/SM 0.02
-/OP false
-/op false
-/OPM 1
-/BG2 /Default
-/UCR2 /Default
-/HT /Default
-/TR2 /Default
->>
-endobj
-11 0 obj
-<<
-/Type /FontDescriptor
-/Ascent 770
-/CapHeight 718
-/Descent -229
-/Flags 32
-/FontBBox [-166 -225 1000 931]
-/FontName /Helvetica
-/ItalicAngle 0
-/StemV 88
-/XHeight 523
-/StemH 88
->>
-endobj
-12 0 obj
-<<
-/Type /FontDescriptor
-/Ascent 770
-/CapHeight 718
-/Descent -229
-/Flags 262176
-/FontBBox [-170 -228 1003 962]
-/FontName /Helvetica-Bold
-/ItalicAngle 0
-/StemV 133
-/XHeight 532
-/StemH 140
->>
-endobj
-4 0 obj
-<<
-/Type /Font
-/Subtype /TrueType
-/FirstChar 32
-/LastChar 146
-/Widths [278 0 0 0 0 0 0 0 0 0 0 0 278 333 278 0 
-0 556 0 0 0 0 556 0 0 0 0 0 0 0 0 0 
-0 667 667 722 722 667 611 0 0 278 0 0 556 833 722 778 
-667 0 722 667 611 0 0 0 0 667 0 278 0 278 0 0 
-0 556 556 500 556 556 278 556 556 222 0 500 222 0 556 556 
-556 0 333 500 278 0 500 0 500 500 0 0 0 0 0 0 
-0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 
-0 0 222 ]
-/Encoding /WinAnsiEncoding
-/BaseFont /Helvetica
-/FontDescriptor 11 0 R
->>
-endobj
-5 0 obj
-<<
-/Type /Font
-/Subtype /TrueType
-/FirstChar 32
-/LastChar 108
-/Widths [278 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 
-0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 
-0 722 722 0 0 667 611 0 0 278 0 0 611 0 0 778 
-667 0 0 667 611 0 0 0 0 0 0 0 0 0 0 0 
-0 556 611 0 0 556 0 611 0 0 0 0 278 ]
-/Encoding /WinAnsiEncoding
-/BaseFont /Helvetica-Bold
-/FontDescriptor 12 0 R
->>
-endobj
-1 0 obj
-<<
-/Type /Page
-/Parent 7 0 R
-/Resources 3 0 R
-/Contents 2 0 R
->>
-endobj
-8 0 obj
-<<
-/Type /Page
-/Parent 7 0 R
-/Resources 10 0 R
-/Contents 9 0 R
->>
-endobj
-13 0 obj
-<<
-/S /D
->>
-endobj
-14 0 obj
-<<
-/Nums [0 13 0 R ]
->>
-endobj
-7 0 obj
-<<
-/Type /Pages
-/Kids [1 0 R 8 0 R]
-/Count 2
-/MediaBox [0 0 612 792]
->>
-endobj
-15 0 obj
-<<
-/CreationDate (D:20210119174402-06'00')
-/ModDate (D:20210119174402-06'00')
-/Producer (PSNormalizer.framework)
->>
-endobj
-16 0 obj
-<<
-/Type /Catalog
-/Pages 7 0 R
-/PageLabels 14 0 R
->>
-endobj
-xref
-0 17
-0000000000 65535 f 
-0000002622 00000 n 
-0000000016 00000 n 
-0000000622 00000 n 
-0000001776 00000 n 
-0000002265 00000 n 
-0000001235 00000 n 
-0000002851 00000 n 
-0000002702 00000 n 
-0000000728 00000 n 
-0000001139 00000 n 
-0000001375 00000 n 
-0000001570 00000 n 
-0000002783 00000 n 
-0000002811 00000 n 
-0000002938 00000 n 
-0000003070 00000 n 
-trailer
-<<
-/Size 17
-/Root 16 0 R
-/Info 15 0 R
-/ID [<ca10df19395abe4a04bf8921d65b5135><ca10df19395abe4a04bf8921d65b5135>]
->>
-startxref
-3139
-%%EOF

docs/ReleaseNote/PRINTINGSPEC.pdf

@@ -1,346 +0,0 @@
-%PDF-1.3
-%âãÏÓ
-2 0 obj
-<<
-/Length 1582
->>
-stream
-BT
-/TT2 1 Tf
-14 0 0 14 211.88 709.08 Tm
-0 g
-/GS1 gs
-0 Tc
-0 Tw
-(PRINTING SPECIFICATIONS)Tj
--3.7521 -2 TD
-(LISP RELEASE NOTES,  MEDLEY RELEASE )Tj
-9.3914 -1 TD
-(AND)Tj
--10.0293 -1 TD
-(LISP LIBRARY MODULES,  MEDLEY RELEASE)Tj
-11.1129 -1 TD
-(  )Tj
-/TT4 1 Tf
-12 0 0 12 72 610.64 Tm
-(Special Instructions:  )Tj
-/TT6 1 Tf
-10.3911 0 TD
-(>>3-hole punch \(error tolerances:  + or - 1/16 inch\)<<)Tj
-ET
-0 G
-0 J 0 j 0.75 w 10 M []0 d
-1 i 
-72 585.99 m
-72 585.99 l
-S
-BT
-/TT2 1 Tf
-14 0 0 14 72 575.08 Tm
-(PRINTING)Tj
-ET
-72 571.99 m
-138.89 571.99 l
-S
-BT
-/TT4 1 Tf
-12 0 0 12 72 554.64 Tm
-(Printing Method:  >>)Tj
-/TT6 1 Tf
-9.6665 0 TD
-(offset)Tj
-/TT4 1 Tf
-2.4458 0 TD
-(<<)Tj
--12.1123 -2 TD
-(Paper Weight: )Tj
-/TT6 1 Tf
-7.0005 0 TD
-(>>60 lb. )Tj
-/TT4 1 Tf
-3.8921 0 TD
-(<<)Tj
--10.8926 -2 TD
-(Paper Type \(Finish\):)Tj
-/TT6 1 Tf
-12 0 TD
-(>> Matte<<)Tj
-/TT4 1 Tf
--12 -2 TD
-(Paper Color: )Tj
-/TT6 1 Tf
-9 0 TD
-(>>White<<)Tj
-/TT4 1 Tf
--9 -2 TD
-(Paper Texture: )Tj
-/TT6 1 Tf
-9 0 TD
-(>>Smooth<<)Tj
-/TT4 1 Tf
--9 -2 TD
-(Paper Opacity: )Tj
-/TT6 1 Tf
-9 0 TD
-(92 \(no show through\))Tj
-/TT4 1 Tf
--9 -2 TD
-(Paper Size: )Tj
-/TT6 1 Tf
-5.6689 0 TD
-(>>8-1/2 X 11<<)Tj
-/TT4 1 Tf
--5.6689 -2 TD
-(Exceptions \(e.g., oversize diagrams\):  )Tj
-/TT6 1 Tf
-18.1724 0 TD
-(>>none)Tj
-/TT4 1 Tf
-3.3926 0 TD
-(<<)Tj
-/TT8 1 Tf
-8 0 0 8 72 378.79 Tm
-( )Tj
-/TT4 1 Tf
-12 0 0 12 72 366.64 Tm
-(Special Instructions:  )Tj
-/TT6 1 Tf
-10.3911 0 TD
-(>><<)Tj
-/TT4 1 Tf
--10.3911 -2 TD
-(Number of Pages:)Tj
-/TT6 1 Tf
-8.5571 0 TD
-(  >><<)Tj
-/TT4 1 Tf
--8.5571 -2 TD
-( )Tj
-/TT2 1 Tf
-14 0 0 14 72 305.08 Tm
-(PAPER  )Tj
-ET
-72 301.99 m
-128.02 301.99 l
-S
-endstream
-endobj
-3 0 obj
-<<
-/ProcSet [/PDF /Text ]
-/Font <<
-/TT2 4 0 R
-/TT4 5 0 R
-/TT6 6 0 R
-/TT8 7 0 R
->>
-/ExtGState <<
-/GS1 8 0 R
->>
->>
-endobj
-8 0 obj
-<<
-/Type /ExtGState
-/SA false
-/SM 0.02
-/OP false
-/op false
-/OPM 1
-/BG2 /Default
-/UCR2 /Default
-/HT /Default
-/TR2 /Default
->>
-endobj
-10 0 obj
-<<
-/Type /FontDescriptor
-/Ascent 770
-/CapHeight 718
-/Descent -229
-/Flags 262176
-/FontBBox [-170 -228 1003 962]
-/FontName /Helvetica-Bold
-/ItalicAngle 0
-/StemV 133
-/XHeight 532
-/StemH 140
->>
-endobj
-11 0 obj
-<<
-/Type /FontDescriptor
-/Ascent 770
-/CapHeight 718
-/Descent -229
-/Flags 262240
-/FontBBox [-174 -228 1114 962]
-/FontName /Helvetica-BoldOblique
-/ItalicAngle -15
-/StemV 133
-/XHeight 532
-/StemH 140
->>
-endobj
-12 0 obj
-<<
-/Type /FontDescriptor
-/Ascent 770
-/CapHeight 718
-/Descent -229
-/Flags 32
-/FontBBox [-166 -225 1000 931]
-/FontName /Helvetica
-/ItalicAngle 0
-/StemV 88
-/XHeight 523
-/StemH 88
->>
-endobj
-13 0 obj
-<<
-/Type /FontDescriptor
-/Ascent 753
-/CapHeight 562
-/Descent -246
-/Flags 35
-/FontBBox [-28 -250 628 805]
-/FontName /Courier
-/ItalicAngle 0
-/StemV 51
-/XHeight 426
-/StemH 51
->>
-endobj
-4 0 obj
-<<
-/Type /Font
-/Subtype /TrueType
-/FirstChar 32
-/LastChar 89
-/Widths [278 0 0 0 0 0 0 0 0 0 0 0 278 0 0 0 
-0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 
-0 722 722 722 722 667 611 778 0 278 0 0 611 833 722 778 
-667 0 722 667 611 722 0 0 0 667 ]
-/Encoding /WinAnsiEncoding
-/BaseFont /Helvetica-Bold
-/FontDescriptor 10 0 R
->>
-endobj
-5 0 obj
-<<
-/Type /Font
-/Subtype /TrueType
-/FirstChar 32
-/LastChar 122
-/Widths [278 0 0 0 0 0 0 0 333 333 0 0 278 0 278 0 
-0 0 0 0 0 0 0 0 0 0 333 0 584 0 584 0 
-0 0 0 722 0 667 611 0 0 278 0 0 0 833 722 778 
-667 0 0 667 611 0 0 944 0 0 0 0 0 0 0 0 
-0 556 611 556 611 556 333 611 611 278 0 0 278 889 611 611 
-611 0 389 556 333 611 556 0 556 556 500 ]
-/Encoding /WinAnsiEncoding
-/BaseFont /Helvetica-BoldOblique
-/FontDescriptor 11 0 R
->>
-endobj
-6 0 obj
-<<
-/Type /Font
-/Subtype /TrueType
-/FirstChar 32
-/LastChar 119
-/Widths [278 0 0 0 0 0 0 0 333 333 0 584 0 333 278 278 
-556 556 556 556 0 0 556 0 556 556 278 0 584 0 584 0 
-0 0 0 0 0 0 0 0 0 0 0 0 0 833 0 0 
-0 0 0 667 0 0 0 944 667 0 0 0 0 0 0 0 
-0 556 556 500 0 556 278 556 556 222 0 0 222 833 556 556 
-556 0 333 500 278 556 0 722 ]
-/Encoding /WinAnsiEncoding
-/BaseFont /Helvetica
-/FontDescriptor 12 0 R
->>
-endobj
-7 0 obj
-<<
-/Type /Font
-/Subtype /TrueType
-/FirstChar 32
-/LastChar 32
-/Widths [600 ]
-/Encoding /WinAnsiEncoding
-/BaseFont /Courier
-/FontDescriptor 13 0 R
->>
-endobj
-1 0 obj
-<<
-/Type /Page
-/Parent 9 0 R
-/Resources 3 0 R
-/Contents 2 0 R
->>
-endobj
-14 0 obj
-<<
-/S /D
->>
-endobj
-15 0 obj
-<<
-/Nums [0 14 0 R ]
->>
-endobj
-9 0 obj
-<<
-/Type /Pages
-/Kids [1 0 R]
-/Count 1
-/MediaBox [0 0 612 792]
->>
-endobj
-16 0 obj
-<<
-/CreationDate (D:20210119174402-06'00')
-/ModDate (D:20210119174402-06'00')
-/Producer (PSNormalizer.framework)
->>
-endobj
-17 0 obj
-<<
-/Type /Catalog
-/Pages 9 0 R
-/PageLabels 15 0 R
->>
-endobj
-xref
-0 18
-0000000000 65535 f 
-0000004077 00000 n 
-0000000016 00000 n 
-0000001650 00000 n 
-0000002725 00000 n 
-0000003050 00000 n 
-0000003493 00000 n 
-0000003914 00000 n 
-0000001778 00000 n 
-0000004225 00000 n 
-0000001918 00000 n 
-0000002124 00000 n 
-0000002339 00000 n 
-0000002534 00000 n 
-0000004157 00000 n 
-0000004185 00000 n 
-0000004306 00000 n 
-0000004438 00000 n 
-trailer
-<<
-/Size 18
-/Root 17 0 R
-/Info 16 0 R
-/ID [<c00d46236d153a63764cc2b5438c7853><c00d46236d153a63764cc2b5438c7853>]
->>
-startxref
-4507
-%%EOF

docs/ReleaseNote/SEC1-INTRODUCTION.pdf

@@ -1,739 +0,0 @@
-%PDF-1.3
-%âãÏÓ
-2 0 obj
-<<
-/Length 5511
->>
-stream
-BT
-/TT2 1 Tf
-10 0 0 10 543.55 15 Tm
-0 g
-/GS1 gs
-0 Tc
-0 Tw
-(1-1)Tj
-ET
-0 G
-0 J 0 j 1 w 10 M []0 d
-1 i 
-54.01 27.5 m
-558.01 27.5 l
-S
-BT
-10 0 0 10 54 17.21 Tm
-(LISP RELEASE NOTES,  MEDLEY RELEASE, INTRODUCTION)Tj
-/TT4 1 Tf
-18 0 0 18 258 762.97 Tm
-[(1.)-8166(INTRODUCTION)]TJ
-ET
-6 w 
-258.01 755.99 m
-558.01 755.99 l
-S
-BT
-/TT2 1 Tf
-10 0 0 10 258 718.2 Tm
-(The)Tj
-/TT6 1 Tf
-1.7231 0 TD
-0.177 Tw
-[( Lisp Release Notes)]TJ
-/TT2 1 Tf
-9.4802 0 TD
-[( contain information from  both the Lyric)]TJ
-ET
-570 732.98 0.99 -18.99 re
-f
-BT
-10 0 0 10 258 706.2 Tm
-0.104 Tw
-[(and Medley releases,  including descriptions of all Lyric bug fixes.)]TJ
-ET
-570 713.98 0.99 -11.99 re
-f
-BT
-10 0 0 10 258 694.2 Tm
-0.327 Tw
-[(Medley additions  are indicated with revision bars in the right)]TJ
-ET
-570 701.98 0.99 -11.99 re
-f
-BT
-10 0 0 10 258 682.2 Tm
-0 Tw
-(margin.          )Tj
-ET
-570 689.98 0.99 -11.99 re
-f
-2 w 
-54.01 626.99 m
-558.01 626.99 l
-S
-570 677.98 0.99 -51.99 re
-f
-BT
-/TT4 1 Tf
-14 0 0 14 54 615.08 Tm
-(Summary of Medley Changes  )Tj
-ET
-570 625.98 0.99 -13.99 re
-f
-1 w 
-54.01 611.49 m
-558.01 611.49 l
-S
-570 611.98 0.99 -0.99 re
-f
-BT
-/TT2 1 Tf
-10 0 0 10 258 579.2 Tm
-0.093 Tw
-[(The Medley release is currently provided on two platforms,  Xerox)]TJ
-ET
-570 610.98 0.99 -35.99 re
-f
-BT
-10 0 0 10 258 567.2 Tm
-0.641 Tw
-[(1100 series workstations using  Medley 1.0, and Sun 3)]TJ
-ET
-570 574.98 0.99 -11.99 re
-f
-BT
-10 0 0 10 258 555.2 Tm
-0.1098 Tw
-[(workstations using  Medley 1.0-S.   Medley 1.0 and Medley 1.0-S)]TJ
-ET
-570 562.98 0.99 -11.99 re
-f
-BT
-10 0 0 10 258 543.2 Tm
-0.029 Tw
-(are compatible with each other and will let you develop software on)Tj
-ET
-570 550.98 0.99 -11.99 re
-f
-BT
-10 0 0 10 258 531.2 Tm
-0.419 Tw
-[(either platform.   Source and compiled files are transferable)]TJ
-ET
-570 538.98 0.99 -11.99 re
-f
-BT
-10 0 0 10 258 519.2 Tm
-0.596 Tw
-[(between the two platforms.  Sysouts developed on Xerox)]TJ
-ET
-570 526.98 0.99 -11.99 re
-f
-BT
-10 0 0 10 258 507.2 Tm
-0.062 Tw
-[(workstations can also be run on the Sun 3.   Sysouts made on the)]TJ
-ET
-570 514.98 0.99 -11.99 re
-f
-BT
-10 0 0 10 258 495.2 Tm
-0 Tw
-(Sun 3,  however, cannot be run on  Xerox workstations.   )Tj
-ET
-570 502.98 0.99 -11.99 re
-f
-BT
-10 0 0 10 258 459.2 Tm
-0.054 Tw
-[(The Medley release enhances the Lyric release and fixes over 450)]TJ
-ET
-570 490.98 0.99 -35.99 re
-f
-BT
-10 0 0 10 258 447.2 Tm
-0.024 Tw
-[(known Lyric bugs.   Medley adds new features,  improves Common)]TJ
-ET
-570 454.98 0.99 -11.99 re
-f
-BT
-10 0 0 10 258 435.2 Tm
-0.13 Tw
-[(Lisp implementation,  and  improves overall reliability of the  Lisp)]TJ
-ET
-570 442.98 0.99 -11.99 re
-f
-BT
-10 0 0 10 258 423.2 Tm
-0 Tw
-(sysout.   Specific  enhancements include: )Tj
-ET
-570 430.98 0.99 -11.99 re
-f
-BT
-10 0 0 10 258 404.2 Tm
-0.522 Tw
-[(•)-1449.9(The COMPILER contains many added optimizations and)]TJ
-ET
-570 418.98 0.99 -18.99 re
-f
-BT
-10 0 0 10 276 392.2 Tm
-0 Tw
-(numerous bug fixes.  )Tj
-ET
-570 399.98 0.99 -11.99 re
-f
-BT
-10 0 0 10 258 373.2 Tm
-0.423 Tw
-[(•)-1449.9(The DEBUGGER  evaluates  lexical variables.   Lexical)]TJ
-ET
-570 387.98 0.99 -18.99 re
-f
-BT
-10 0 0 10 276 361.2 Tm
-0 Tw
-(variables can now be contained in interpreted code. )Tj
-ET
-570 368.98 0.99 -11.99 re
-f
-BT
-10 0 0 10 258 342.2 Tm
-0.212 Tw
-[(•)-1449.9(DFASL files now behave at the level of Interlisp-D compiled)]TJ
-ET
-570 356.98 0.99 -18.99 re
-f
-BT
-10 0 0 10 276 330.2 Tm
-0.229 Tw
-[(files.   COMS are contained in DFASLs so that the system)]TJ
-ET
-570 337.98 0.99 -11.99 re
-f
-BT
-10 0 0 10 276 318.2 Tm
-0 Tw
-(loads  a DFASL file only once.   )Tj
-ET
-570 325.98 0.99 -11.99 re
-f
-BT
-10 0 0 10 258 299.2 Tm
-0.09 Tw
-[(•)-1449.9(The  SEDIT code editor is  more robust and  better integrated)]TJ
-ET
-570 313.98 0.99 -18.99 re
-f
-BT
-10 0 0 10 276 287.2 Tm
-0 Tw
-(with the environment.  )Tj
-ET
-570 294.98 0.99 -11.99 re
-f
-BT
-10 0 0 10 258 268.2 Tm
-0.045 Tw
-[(•)-1449.9(Common Lisp comments are preserved during loading.  During)]TJ
-ET
-570 282.98 0.99 -18.99 re
-f
-BT
-10 0 0 10 276 256.2 Tm
-0 Tw
-(MAKEFILE, comments can be written out with just semicolons.  )Tj
-ET
-570 263.98 0.99 -11.99 re
-f
-BT
-10 0 0 10 258 237.2 Tm
-0.047 Tw
-[(•)-1449.9(The new ERROR SYSTEM is compatible with the most  recent)]TJ
-ET
-570 251.98 0.99 -18.99 re
-f
-BT
-10 0 0 10 276 225.2 Tm
-0 Tw
-(standard defined for Common Lisp error systems. )Tj
-ET
-570 232.98 0.99 -11.99 re
-f
-BT
-10 0 0 10 258 206.2 Tm
-[(•)-1449.9(TEdit contains numerous bug fixes.)]TJ
-ET
-570 220.98 0.99 -18.99 re
-f
-BT
-10 0 0 10 258 187.2 Tm
-0.738 Tw
-[(•)-1449.9(MASTERSCOPE contains Common Lisp query support)]TJ
-ET
-570 201.98 0.99 -18.99 re
-f
-BT
-10 0 0 10 276 175.2 Tm
-0.175 Tw
-(allowing you to ask questions about Common Lisp code that)Tj
-ET
-570 182.98 0.99 -11.99 re
-f
-BT
-10 0 0 10 276 163.2 Tm
-0.074 Tw
-[(could previously be asked only of Interlisp-D code.   Currently,)]TJ
-ET
-570 170.98 0.99 -11.99 re
-f
-BT
-10 0 0 10 276 151.2 Tm
-0.646 Tw
-(questions specific to Common Lisp constructs are not)Tj
-ET
-570 158.98 0.99 -11.99 re
-f
-BT
-10 0 0 10 276 139.2 Tm
-0 Tw
-(supported.  )Tj
-ET
-570 146.98 0.99 -11.99 re
-f
-BT
-10 0 0 10 258 120.2 Tm
-0.169 Tw
-[(•)-1449.9(RS232  contains may bug fixes that improve the reliability of)]TJ
-ET
-570 134.98 0.99 -18.99 re
-f
-BT
-10 0 0 10 276 108.2 Tm
-0 Tw
-(data  transfer and the addition of various  debugging  tools. )Tj
-ET
-570 115.98 0.99 -11.99 re
-f
-BT
-10 0 0 10 258 89.2 Tm
-0.366 Tw
-[(•  TCP/IP now contains many bug fixes  including UNIX file)]TJ
-ET
-570 103.98 0.99 -18.99 re
-f
-BT
-10 0 0 10 276 77.2 Tm
-0 Tw
-(interface and directory enumeration.  )Tj
-ET
-570 84.98 0.99 -11.99 re
-f
-endstream
-endobj
-3 0 obj
-<<
-/ProcSet [/PDF /Text ]
-/Font <<
-/TT2 4 0 R
-/TT4 5 0 R
-/TT6 6 0 R
->>
-/ExtGState <<
-/GS1 7 0 R
->>
->>
-endobj
-10 0 obj
-<<
-/Length 2079
->>
-stream
-BT
-/TT2 1 Tf
-10 0 0 10 54 15 Tm
-0 g
-/GS1 gs
-0 Tc
-0 Tw
-(1-2)Tj
-ET
-0 G
-0 J 0 j 1 w 10 M []0 d
-1 i 
-54.01 27.5 m
-558.01 27.5 l
-S
-BT
-10 0 0 10 266.81 17.21 Tm
-( LISP RELEASE NOTES,  MEDLEY RELEASE, INTRODUCTION)Tj
--21.281 74.479 TD
-(1. INTRODUCTION)Tj
-ET
-54.01 759.29 m
-558.01 759.29 l
-S
-BT
-10 0 0 10 258 730.2 Tm
-(•      A new System Tool lets  you  fetch sysouts from TCP hosts.)Tj
-ET
-570 744.98 0.99 -18.99 re
-f
-BT
-10 0 0 10 258 711.2 Tm
-[(•)-1449.9(NS Random Access is now supported. )]TJ
-ET
-570 725.98 0.99 -18.99 re
-f
-BT
-10 0 0 10 258 692.2 Tm
-0.053 Tw
-[(•)-1449.9(A)0( new File Browser user  interface now supports file sorting by)]TJ
-ET
-570 706.98 0.99 -18.99 re
-f
-BT
-10 0 0 10 276 680.2 Tm
-0.016 Tw
-[(dates.   The   new  interface  includes  the   ability to stop in the)]TJ
-ET
-570 687.98 0.99 -11.99 re
-f
-BT
-10 0 0 10 276 668.2 Tm
-0 Tw
-(middle of operations.)Tj
-ET
-570 675.98 0.99 -11.99 re
-f
-BT
-10 0 0 10 258 649.2 Tm
-(•      The Medley sysout is about the same size as the Lyric sysout.)Tj
-ET
-570 663.98 0.99 -18.99 re
-f
-BT
-10 0 0 10 258 613.2 Tm
-0.096 Tw
-[(In addition,  Medley  on the Sun 3 workstation offers the following)]TJ
-ET
-570 644.98 0.99 -35.99 re
-f
-BT
-10 0 0 10 258 601.2 Tm
-0 Tw
-(new  features:)Tj
-ET
-570 608.98 0.99 -11.99 re
-f
-BT
-10 0 0 10 258 582.2 Tm
-0.04 Tw
-[(•)-1449.9(The UnixChat library module allows you to communicate with a)]TJ
-ET
-570 596.98 0.99 -18.99 re
-f
-BT
-10 0 0 10 276 570.2 Tm
-0 Tw
-(UNIX shell on your own host.   )Tj
-ET
-570 577.98 0.99 -11.99 re
-f
-BT
-10 0 0 10 258 551.2 Tm
-0.011 Tw
-[(•   The UnixComm library module allows you to start a Unix process)]TJ
-ET
-570 565.98 0.99 -18.99 re
-f
-BT
-10 0 0 10 276 539.2 Tm
-0.072 Tw
-[(on a Sun workstation and provides an interface  to the SunOS)]TJ
-ET
-570 546.98 0.99 -11.99 re
-f
-BT
-10 0 0 10 276 527.2 Tm
-0 Tw
-(operating system.   )Tj
-ET
-570 534.98 0.99 -11.99 re
-f
-BT
-10 0 0 10 258 508.2 Tm
-0.08 Tw
-[(•)-1449.9(The ability to suspend Medley and use UNIX as a background)]TJ
-ET
-570 522.98 0.99 -18.99 re
-f
-BT
-10 0 0 10 276 496.2 Tm
-0 Tw
-(process is provided.   )Tj
-ET
-570 503.98 0.99 -11.99 re
-f
-endstream
-endobj
-11 0 obj
-<<
-/ProcSet [/PDF /Text ]
-/Font <<
-/TT2 4 0 R
->>
-/ExtGState <<
-/GS1 7 0 R
->>
->>
-endobj
-13 0 obj
-<<
-/Length 353
->>
-stream
-BT
-/TT2 1 Tf
-10 0 0 10 543.55 15 Tm
-0 g
-/GS1 gs
-0 Tc
-0 Tw
-(1-3)Tj
-ET
-0 G
-0 J 0 j 1 w 10 M []0 d
-1 i 
-54.01 27.5 m
-558.01 27.5 l
-S
-BT
-10 0 0 10 54 17.21 Tm
-(LISP RELEASE NOTES,  MEDLEY RELEASE, INTRODUCTION)Tj
-41.622 74.479 TD
-(1. INTRODUCTION)Tj
-ET
-54.01 759.29 m
-558.01 759.29 l
-S
-BT
-10 0 0 10 228 496.21 Tm
-([This page intentionally left blank])Tj
-ET
-endstream
-endobj
-14 0 obj
-<<
-/ProcSet [/PDF /Text ]
-/Font <<
-/TT2 4 0 R
->>
-/ExtGState <<
-/GS1 7 0 R
->>
->>
-endobj
-7 0 obj
-<<
-/Type /ExtGState
-/SA false
-/SM 0.02
-/OP false
-/op false
-/OPM 1
-/BG2 /Default
-/UCR2 /Default
-/HT /Default
-/TR2 /Default
->>
-endobj
-15 0 obj
-<<
-/Type /FontDescriptor
-/Ascent 770
-/CapHeight 718
-/Descent -229
-/Flags 32
-/FontBBox [-166 -225 1000 931]
-/FontName /Helvetica
-/ItalicAngle 0
-/StemV 88
-/XHeight 523
-/StemH 88
->>
-endobj
-16 0 obj
-<<
-/Type /FontDescriptor
-/Ascent 770
-/CapHeight 718
-/Descent -229
-/Flags 262176
-/FontBBox [-170 -228 1003 962]
-/FontName /Helvetica-Bold
-/ItalicAngle 0
-/StemV 133
-/XHeight 532
-/StemH 140
->>
-endobj
-17 0 obj
-<<
-/Type /FontDescriptor
-/Ascent 770
-/CapHeight 718
-/Descent -229
-/Flags 96
-/FontBBox [-170 -225 1116 931]
-/FontName /Helvetica-Oblique
-/ItalicAngle -15
-/StemV 88
-/XHeight 523
-/StemH 88
->>
-endobj
-4 0 obj
-<<
-/Type /Font
-/Subtype /TrueType
-/FirstChar 32
-/LastChar 149
-/Widths [278 0 0 0 0 0 0 0 0 0 0 0 278 333 278 278 
-556 556 556 556 556 556 0 0 0 0 278 0 0 0 0 0 
-0 667 667 722 722 667 611 778 0 278 0 667 556 833 722 778 
-667 0 722 667 611 722 0 0 667 667 0 278 0 278 0 0 
-0 556 556 500 556 556 278 556 556 222 222 500 222 833 556 556 
-556 556 333 500 278 556 500 722 500 500 500 0 0 0 0 0 
-0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 
-0 0 0 0 0 350 ]
-/Encoding /WinAnsiEncoding
-/BaseFont /Helvetica
-/FontDescriptor 15 0 R
->>
-endobj
-5 0 obj
-<<
-/Type /Font
-/Subtype /TrueType
-/FirstChar 32
-/LastChar 121
-/Widths [278 0 0 0 0 0 0 0 0 0 0 0 0 0 278 0 
-0 556 0 0 0 0 0 0 0 0 0 0 0 0 0 0 
-0 0 0 722 722 0 0 0 0 278 0 0 0 833 722 778 
-0 0 722 667 611 722 0 0 0 0 0 0 0 0 0 0 
-0 556 0 0 611 556 333 611 611 0 0 0 278 889 611 611 
-0 0 389 556 0 611 0 0 0 556 ]
-/Encoding /WinAnsiEncoding
-/BaseFont /Helvetica-Bold
-/FontDescriptor 16 0 R
->>
-endobj
-6 0 obj
-<<
-/Type /Font
-/Subtype /TrueType
-/FirstChar 32
-/LastChar 116
-/Widths [278 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 
-0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 
-0 0 0 0 0 0 0 0 0 0 0 0 556 0 722 0 
-0 0 722 0 0 0 0 0 0 0 0 0 0 0 0 0 
-0 556 0 0 0 556 0 0 0 222 0 0 222 0 0 556 
-556 0 0 500 278 ]
-/Encoding /WinAnsiEncoding
-/BaseFont /Helvetica-Oblique
-/FontDescriptor 17 0 R
->>
-endobj
-1 0 obj
-<<
-/Type /Page
-/Parent 8 0 R
-/Resources 3 0 R
-/Contents 2 0 R
->>
-endobj
-9 0 obj
-<<
-/Type /Page
-/Parent 8 0 R
-/Resources 11 0 R
-/Contents 10 0 R
->>
-endobj
-12 0 obj
-<<
-/Type /Page
-/Parent 8 0 R
-/Resources 14 0 R
-/Contents 13 0 R
->>
-endobj
-18 0 obj
-<<
-/S /D
->>
-endobj
-19 0 obj
-<<
-/Nums [0 18 0 R ]
->>
-endobj
-8 0 obj
-<<
-/Type /Pages
-/Kids [1 0 R 9 0 R 12 0 R]
-/Count 3
-/MediaBox [0 0 612 792]
->>
-endobj
-20 0 obj
-<<
-/CreationDate (D:20210119174403-06'00')
-/ModDate (D:20210119174403-06'00')
-/Producer (PSNormalizer.framework)
->>
-endobj
-21 0 obj
-<<
-/Type /Catalog
-/Pages 8 0 R
-/PageLabels 19 0 R
->>
-endobj
-xref
-0 22
-0000000000 65535 f 
-0000010473 00000 n 
-0000000016 00000 n 
-0000005579 00000 n 
-0000009171 00000 n 
-0000009698 00000 n 
-0000010104 00000 n 
-0000008425 00000 n 
-0000010786 00000 n 
-0000010553 00000 n 
-0000005696 00000 n 
-0000007828 00000 n 
-0000010635 00000 n 
-0000007924 00000 n 
-0000008329 00000 n 
-0000008565 00000 n 
-0000008760 00000 n 
-0000008966 00000 n 
-0000010718 00000 n 
-0000010746 00000 n 
-0000010880 00000 n 
-0000011012 00000 n 
-trailer
-<<
-/Size 22
-/Root 21 0 R
-/Info 20 0 R
-/ID [<e834e923fc3b25aaaec2dd8b3b775b25><e834e923fc3b25aaaec2dd8b3b775b25>]
->>
-startxref
-11081
-%%EOF

docs/ReleaseNote/TABS2L.pdf

@@ -1,157 +0,0 @@
-%PDF-1.3
-%âãÏÓ
-2 0 obj
-<<
-/Length 318
->>
-stream
-BT
-/TT2 1 Tf
-8 0 0 8 0.04 783.96 Tm
-0 g
-/GS1 gs
-0 Tc
-0 Tw
-(Unknown IMAGEOBJ type)Tj
-0 -1 TD
-(GETFN:  SKIO.GETFN.2)Tj
-ET
-q
-1 i 
-0 792 612 -791.94 re
-W n
-0 G
-0 J 0 j 0.02 w 10 M [0.32 0.16 0.16 0.16 ]0 d
-0.01 775.93 m
-99.6 775.93 l
-99.6 775.93 m
-99.6 791.95 l
-0.01 791.95 m
-99.6 791.95 l
-0.01 791.95 m
-0.01 775.93 l
-S
-Q
-endstream
-endobj
-3 0 obj
-<<
-/ProcSet [/PDF /Text ]
-/Font <<
-/TT2 4 0 R
->>
-/ExtGState <<
-/GS1 5 0 R
->>
->>
-endobj
-5 0 obj
-<<
-/Type /ExtGState
-/SA false
-/SM 0.02
-/OP false
-/op false
-/OPM 1
-/BG2 /Default
-/UCR2 /Default
-/HT /Default
-/TR2 /Default
->>
-endobj
-7 0 obj
-<<
-/Type /FontDescriptor
-/Ascent 770
-/CapHeight 718
-/Descent -229
-/Flags 262176
-/FontBBox [-170 -228 1003 962]
-/FontName /Helvetica-Bold
-/ItalicAngle 0
-/StemV 133
-/XHeight 532
-/StemH 140
->>
-endobj
-4 0 obj
-<<
-/Type /Font
-/Subtype /TrueType
-/FirstChar 32
-/LastChar 121
-/Widths [278 0 0 0 0 0 0 0 0 0 0 0 0 0 278 0 
-0 0 556 0 0 0 0 0 0 0 333 0 0 0 0 0 
-0 722 722 0 0 667 611 778 0 278 556 722 0 833 722 778 
-0 0 0 667 611 722 0 0 0 0 0 0 0 0 0 0 
-0 0 0 0 0 556 0 0 0 0 0 556 0 0 611 611 
-611 0 0 0 333 0 0 778 0 556 ]
-/Encoding /WinAnsiEncoding
-/BaseFont /Helvetica-Bold
-/FontDescriptor 7 0 R
->>
-endobj
-1 0 obj
-<<
-/Type /Page
-/Parent 6 0 R
-/Resources 3 0 R
-/Contents 2 0 R
->>
-endobj
-8 0 obj
-<<
-/S /D
->>
-endobj
-9 0 obj
-<<
-/Nums [0 8 0 R ]
->>
-endobj
-6 0 obj
-<<
-/Type /Pages
-/Kids [1 0 R]
-/Count 1
-/MediaBox [0 0 612 792]
->>
-endobj
-10 0 obj
-<<
-/CreationDate (D:20210119174411-06'00')
-/ModDate (D:20210119174411-06'00')
-/Producer (PSNormalizer.framework)
->>
-endobj
-11 0 obj
-<<
-/Type /Catalog
-/Pages 6 0 R
-/PageLabels 9 0 R
->>
-endobj
-xref
-0 12
-0000000000 65535 f 
-0000001228 00000 n 
-0000000016 00000 n 
-0000000385 00000 n 
-0000000825 00000 n 
-0000000480 00000 n 
-0000001373 00000 n 
-0000000620 00000 n 
-0000001308 00000 n 
-0000001335 00000 n 
-0000001454 00000 n 
-0000001586 00000 n 
-trailer
-<<
-/Size 12
-/Root 11 0 R
-/Info 10 0 R
-/ID [<8a8c3746cf3e6e016b12f3bf4d7b0363><8a8c3746cf3e6e016b12f3bf4d7b0363>]
->>
-startxref
-1654
-%%EOF

docs/ReleaseNote/TABSINFOP.pdf

@@ -1,157 +0,0 @@
-%PDF-1.3
-%âãÏÓ
-2 0 obj
-<<
-/Length 318
->>
-stream
-BT
-/TT2 1 Tf
-8 0 0 8 0.04 783.96 Tm
-0 g
-/GS1 gs
-0 Tc
-0 Tw
-(Unknown IMAGEOBJ type)Tj
-0 -1 TD
-(GETFN:  SKIO.GETFN.2)Tj
-ET
-q
-1 i 
-0 792 612 -791.94 re
-W n
-0 G
-0 J 0 j 0.02 w 10 M [0.32 0.16 0.16 0.16 ]0 d
-0.01 775.93 m
-99.6 775.93 l
-99.6 775.93 m
-99.6 791.95 l
-0.01 791.95 m
-99.6 791.95 l
-0.01 791.95 m
-0.01 775.93 l
-S
-Q
-endstream
-endobj
-3 0 obj
-<<
-/ProcSet [/PDF /Text ]
-/Font <<
-/TT2 4 0 R
->>
-/ExtGState <<
-/GS1 5 0 R
->>
->>
-endobj
-5 0 obj
-<<
-/Type /ExtGState
-/SA false
-/SM 0.02
-/OP false
-/op false
-/OPM 1
-/BG2 /Default
-/UCR2 /Default
-/HT /Default
-/TR2 /Default
->>
-endobj
-7 0 obj
-<<
-/Type /FontDescriptor
-/Ascent 770
-/CapHeight 718
-/Descent -229
-/Flags 262176
-/FontBBox [-170 -228 1003 962]
-/FontName /Helvetica-Bold
-/ItalicAngle 0
-/StemV 133
-/XHeight 532
-/StemH 140
->>
-endobj
-4 0 obj
-<<
-/Type /Font
-/Subtype /TrueType
-/FirstChar 32
-/LastChar 121
-/Widths [278 0 0 0 0 0 0 0 0 0 0 0 0 0 278 0 
-0 0 556 0 0 0 0 0 0 0 333 0 0 0 0 0 
-0 722 722 0 0 667 611 778 0 278 556 722 0 833 722 778 
-0 0 0 667 611 722 0 0 0 0 0 0 0 0 0 0 
-0 0 0 0 0 556 0 0 0 0 0 556 0 0 611 611 
-611 0 0 0 333 0 0 778 0 556 ]
-/Encoding /WinAnsiEncoding
-/BaseFont /Helvetica-Bold
-/FontDescriptor 7 0 R
->>
-endobj
-1 0 obj
-<<
-/Type /Page
-/Parent 6 0 R
-/Resources 3 0 R
-/Contents 2 0 R
->>
-endobj
-8 0 obj
-<<
-/S /D
->>
-endobj
-9 0 obj
-<<
-/Nums [0 8 0 R ]
->>
-endobj
-6 0 obj
-<<
-/Type /Pages
-/Kids [1 0 R]
-/Count 1
-/MediaBox [0 0 612 792]
->>
-endobj
-10 0 obj
-<<
-/CreationDate (D:20210119174411-06'00')
-/ModDate (D:20210119174411-06'00')
-/Producer (PSNormalizer.framework)
->>
-endobj
-11 0 obj
-<<
-/Type /Catalog
-/Pages 6 0 R
-/PageLabels 9 0 R
->>
-endobj
-xref
-0 12
-0000000000 65535 f 
-0000001228 00000 n 
-0000000016 00000 n 
-0000000385 00000 n 
-0000000825 00000 n 
-0000000480 00000 n 
-0000001373 00000 n 
-0000000620 00000 n 
-0000001308 00000 n 
-0000001335 00000 n 
-0000001454 00000 n 
-0000001586 00000 n 
-trailer
-<<
-/Size 12
-/Root 11 0 R
-/Info 10 0 R
-/ID [<04821c2e391d350e759a439f0a49e2f9><04821c2e391d350e759a439f0a49e2f9>]
->>
-startxref
-1654
-%%EOF

docs/ReleaseNote/TABSLAYOUTL.pdf

@@ -1,157 +0,0 @@
-%PDF-1.3
-%âãÏÓ
-2 0 obj
-<<
-/Length 318
->>
-stream
-BT
-/TT2 1 Tf
-8 0 0 8 0.04 783.96 Tm
-0 g
-/GS1 gs
-0 Tc
-0 Tw
-(Unknown IMAGEOBJ type)Tj
-0 -1 TD
-(GETFN:  SKIO.GETFN.2)Tj
-ET
-q
-1 i 
-0 792 612 -791.94 re
-W n
-0 G
-0 J 0 j 0.02 w 10 M [0.32 0.16 0.16 0.16 ]0 d
-0.01 775.93 m
-99.6 775.93 l
-99.6 775.93 m
-99.6 791.95 l
-0.01 791.95 m
-99.6 791.95 l
-0.01 791.95 m
-0.01 775.93 l
-S
-Q
-endstream
-endobj
-3 0 obj
-<<
-/ProcSet [/PDF /Text ]
-/Font <<
-/TT2 4 0 R
->>
-/ExtGState <<
-/GS1 5 0 R
->>
->>
-endobj
-5 0 obj
-<<
-/Type /ExtGState
-/SA false
-/SM 0.02
-/OP false
-/op false
-/OPM 1
-/BG2 /Default
-/UCR2 /Default
-/HT /Default
-/TR2 /Default
->>
-endobj
-7 0 obj
-<<
-/Type /FontDescriptor
-/Ascent 770
-/CapHeight 718
-/Descent -229
-/Flags 262176
-/FontBBox [-170 -228 1003 962]
-/FontName /Helvetica-Bold
-/ItalicAngle 0
-/StemV 133
-/XHeight 532
-/StemH 140
->>
-endobj
-4 0 obj
-<<
-/Type /Font
-/Subtype /TrueType
-/FirstChar 32
-/LastChar 121
-/Widths [278 0 0 0 0 0 0 0 0 0 0 0 0 0 278 0 
-0 0 556 0 0 0 0 0 0 0 333 0 0 0 0 0 
-0 722 722 0 0 667 611 778 0 278 556 722 0 833 722 778 
-0 0 0 667 611 722 0 0 0 0 0 0 0 0 0 0 
-0 0 0 0 0 556 0 0 0 0 0 556 0 0 611 611 
-611 0 0 0 333 0 0 778 0 556 ]
-/Encoding /WinAnsiEncoding
-/BaseFont /Helvetica-Bold
-/FontDescriptor 7 0 R
->>
-endobj
-1 0 obj
-<<
-/Type /Page
-/Parent 6 0 R
-/Resources 3 0 R
-/Contents 2 0 R
->>
-endobj
-8 0 obj
-<<
-/S /D
->>
-endobj
-9 0 obj
-<<
-/Nums [0 8 0 R ]
->>
-endobj
-6 0 obj
-<<
-/Type /Pages
-/Kids [1 0 R]
-/Count 1
-/MediaBox [0 0 612 792]
->>
-endobj
-10 0 obj
-<<
-/CreationDate (D:20210119174411-06'00')
-/ModDate (D:20210119174411-06'00')
-/Producer (PSNormalizer.framework)
->>
-endobj
-11 0 obj
-<<
-/Type /Catalog
-/Pages 6 0 R
-/PageLabels 9 0 R
->>
-endobj
-xref
-0 12
-0000000000 65535 f 
-0000001228 00000 n 
-0000000016 00000 n 
-0000000385 00000 n 
-0000000825 00000 n 
-0000000480 00000 n 
-0000001373 00000 n 
-0000000620 00000 n 
-0000001308 00000 n 
-0000001335 00000 n 
-0000001454 00000 n 
-0000001586 00000 n 
-trailer
-<<
-/Size 12
-/Root 11 0 R
-/Info 10 0 R
-/ID [<f4b3f73f380b56f5c72cabea6aa0f315><f4b3f73f380b56f5c72cabea6aa0f315>]
->>
-startxref
-1654
-%%EOF

docs/ReleaseNote/TABSPEC.pdf

@@ -1,423 +0,0 @@
-%PDF-1.3
-%âãÏÓ
-2 0 obj
-<<
-/Length 2294
->>
-stream
-BT
-/TT2 1 Tf
-14 0 0 14 219.66 709.08 Tm
-0 g
-/GS1 gs
-0 Tc
-0 Tw
-(TAB SPECIFICATIONS for)Tj
-6.1671 -1 TD
-(  )Tj
--10.475 -1 TD
-(LISP RELEASE NOTES,  MEDLEY RELEASE )Tj
-9.5864 -1 TD
-(and)Tj
--10.2243 -1 TD
-(LISP LIBRARY MODULES,  MEDLEY RELEASE )Tj
--5.6014 -3 TD
-(TABS)Tj
-/TT4 1 Tf
-12 0 0 12 72 584.64 Tm
-(Tab Paper Size  )Tj
-/TT6 1 Tf
-7.6694 0 TD
-(    8 1/2  by 11 inches \(excluding the actual tab\))Tj
-/TT4 1 Tf
--7.6694 -2 TD
-(Stock Type)Tj
-/TT6 1 Tf
-6 0 TD
-(    Ledger;  matte finish)Tj
-/TT4 1 Tf
--6 -2 TD
-(Stock Weight)Tj
-/TT6 1 Tf
-9 0 TD
-(110 pound)Tj
-/TT4 1 Tf
--9 -2 TD
-(Stock Color)Tj
-/TT6 1 Tf
-6 0 TD
-(     White)Tj
-/TT4 1 Tf
--6 -2 TD
-(Tab Coating)Tj
-/TT6 1 Tf
-6 0 TD
-(     Mylar )Tj
-/TT4 1 Tf
--6 -2 TD
-(Mylar Color)Tj
-/TT6 1 Tf
-6 0 TD
-[(    )-4888.7(          )]TJ
-3 -1 TD
-(PMS 422-C coordinated gray)Tj
-/TT4 1 Tf
--9 -2 TD
-(Holes   )Tj
-/TT6 1 Tf
-3.5566 0 TD
-(   3-hole punch)Tj
-/TT4 1 Tf
-6.6157 0 TD
-(,  )Tj
-/TT6 1 Tf
-0.8335 0 TD
-( 5/16"  diameter holes )Tj
-/TT4 1 Tf
--11.0059 -2 TD
-(Hole Reinforcement)Tj
-/TT6 1 Tf
-12 0 TD
-( clear mylar strip )Tj
-/TT4 1 Tf
--12 -2 TD
-(Hole Placement  1st hole centered:)Tj
-/TT6 1 Tf
-16.561 0 TD
-(  1 3/16" from top of page,   7/16" in from side )Tj
-/TT4 1 Tf
--10.561 -1 TD
-(       2nd hole centered:)Tj
-/TT6 1 Tf
-10.8355 0 TD
-(  5 7/16" from top of page,   7/16" in from side)Tj
-/TT4 1 Tf
--10.8355 -1 TD
-(       3rd  hole centered:)Tj
-/TT6 1 Tf
-10.8916 0 TD
-(  9 11/16" from top of page,  7/16" in from side  )Tj
-/TT2 1 Tf
--16.8916 -3.1667 TD
-(Tab Cut Requirements)Tj
-ET
-0 G
-0 J 0 j 1 w 10 M []0 d
-1 i 
-72.01 315.49 m
-576.01 315.49 l
-S
-BT
-/TT4 1 Tf
-12 0 0 12 72 293.64 Tm
-(Number of Tab Cuts)Tj
-/TT6 1 Tf
-12 0 TD
-(5)Tj
-/TT4 1 Tf
--12 -2 TD
-(Size of Cuts \(Length\))Tj
-/TT6 1 Tf
-12 0 TD
-(  2 3/8" )Tj
-/TT4 1 Tf
--12 -2 TD
-(Depth of Tab Cut)Tj
-/TT6 1 Tf
-9 0 TD
-(   1/2 inch)Tj
-/TT4 1 Tf
-4.3359 0 TD
-( )Tj
--13.3359 -2 TD
-(Cut Shapes)Tj
-/TT6 1 Tf
-6 0 TD
-(  straight edge, curved top, curved bottom )Tj
-/TT2 1 Tf
--6 -2.1667 TD
-(Print Specifications)Tj
-ET
-72.01 192.49 m
-576.01 192.49 l
-S
-BT
-/TT4 1 Tf
-12 0 0 12 72 170.64 Tm
-(One or Both Sides)Tj
-/TT6 1 Tf
-9 0 TD
-(Both sides)Tj
-/TT4 1 Tf
--9 -2 TD
-(Font)Tj
-/TT6 1 Tf
-3 0 TD
-(Modern/Optima )Tj
-/TT4 1 Tf
--3 -2 TD
-(Point Size)Tj
-/TT6 1 Tf
-6 0 TD
-(10)Tj
-/TT4 1 Tf
--6 -2 TD
-(Ink Color)Tj
-/TT6 1 Tf
-6 0 TD
-(Black)Tj
-ET
-endstream
-endobj
-3 0 obj
-<<
-/ProcSet [/PDF /Text ]
-/Font <<
-/TT2 4 0 R
-/TT4 5 0 R
-/TT6 6 0 R
->>
-/ExtGState <<
-/GS1 7 0 R
->>
->>
-endobj
-10 0 obj
-<<
-/Length 396
->>
-stream
-BT
-/TT6 1 Tf
-10 0 0 10 72 756 Tm
-0 g
-/GS1 gs
-0 Tc
-0 Tw
-(2)Tj
-/TT4 1 Tf
-12 0 0 12 72 710.64 Tm
-(Type Spacing)Tj
-/TT6 1 Tf
-9 0 TD
-(Centered)Tj
-/TT2 1 Tf
-14 0 0 14 72 661.08 Tm
-(PACKAGING INSTRUCTIONS:)Tj
-/TT6 1 Tf
-14.2222 0 TD
-(       Shrink wrap with text)Tj
-/TT2 1 Tf
--14.2222 -3 TD
-(TOTAL NUMBER COPIES:)Tj
-/TT4 1 Tf
-12 0 0 12 245.4414 619.08 Tm
-(  )Tj
-/TT6 1 Tf
-0.5557 0 TD
-(      500   )Tj
-ET
-endstream
-endobj
-11 0 obj
-<<
-/ProcSet [/PDF /Text ]
-/Font <<
-/TT2 4 0 R
-/TT4 5 0 R
-/TT6 6 0 R
->>
-/ExtGState <<
-/GS1 7 0 R
->>
->>
-endobj
-7 0 obj
-<<
-/Type /ExtGState
-/SA false
-/SM 0.02
-/OP false
-/op false
-/OPM 1
-/BG2 /Default
-/UCR2 /Default
-/HT /Default
-/TR2 /Default
->>
-endobj
-12 0 obj
-<<
-/Type /FontDescriptor
-/Ascent 770
-/CapHeight 718
-/Descent -229
-/Flags 262176
-/FontBBox [-170 -228 1003 962]
-/FontName /Helvetica-Bold
-/ItalicAngle 0
-/StemV 133
-/XHeight 532
-/StemH 140
->>
-endobj
-13 0 obj
-<<
-/Type /FontDescriptor
-/Ascent 770
-/CapHeight 718
-/Descent -229
-/Flags 262240
-/FontBBox [-174 -228 1114 962]
-/FontName /Helvetica-BoldOblique
-/ItalicAngle -15
-/StemV 133
-/XHeight 532
-/StemH 140
->>
-endobj
-14 0 obj
-<<
-/Type /FontDescriptor
-/Ascent 770
-/CapHeight 718
-/Descent -229
-/Flags 32
-/FontBBox [-166 -225 1000 931]
-/FontName /Helvetica
-/ItalicAngle 0
-/StemV 88
-/XHeight 523
-/StemH 88
->>
-endobj
-4 0 obj
-<<
-/Type /Font
-/Subtype /TrueType
-/FirstChar 32
-/LastChar 117
-/Widths [278 0 0 0 0 0 0 0 0 0 0 0 278 0 0 0 
-0 0 0 0 0 0 0 0 0 0 333 0 0 0 0 0 
-0 722 722 722 722 667 611 778 0 278 0 722 611 833 722 778 
-667 0 722 667 611 722 0 0 0 667 0 0 0 0 0 0 
-0 556 611 556 611 556 333 0 0 278 0 0 0 889 611 611 
-611 611 389 556 333 611 ]
-/Encoding /WinAnsiEncoding
-/BaseFont /Helvetica-Bold
-/FontDescriptor 12 0 R
->>
-endobj
-5 0 obj
-<<
-/Type /Font
-/Subtype /TrueType
-/FirstChar 32
-/LastChar 122
-/Widths [278 0 0 0 0 0 0 0 333 333 0 0 278 0 0 0 
-0 556 556 556 0 0 0 0 0 0 333 0 0 0 0 0 
-0 0 722 722 722 0 611 0 722 278 0 0 611 833 722 778 
-667 0 722 667 611 0 0 944 0 0 0 0 0 0 0 0 
-0 556 611 556 611 556 333 611 611 278 0 556 278 889 611 611 
-611 0 389 556 333 611 0 0 0 556 500 ]
-/Encoding /WinAnsiEncoding
-/BaseFont /Helvetica-BoldOblique
-/FontDescriptor 13 0 R
->>
-endobj
-6 0 obj
-<<
-/Type /Font
-/Subtype /TrueType
-/FirstChar 32
-/LastChar 121
-/Widths [278 0 355 0 0 0 0 0 333 333 0 0 278 333 0 278 
-556 556 556 556 556 556 556 556 556 556 0 278 0 0 0 0 
-0 0 667 722 0 0 0 0 0 0 0 0 556 833 0 778 
-667 0 0 667 0 0 0 944 0 0 0 0 0 0 0 0 
-0 556 556 500 556 556 278 556 556 222 0 500 222 833 556 556 
-556 0 333 500 278 556 500 722 500 500 ]
-/Encoding /WinAnsiEncoding
-/BaseFont /Helvetica
-/FontDescriptor 14 0 R
->>
-endobj
-1 0 obj
-<<
-/Type /Page
-/Parent 8 0 R
-/Resources 3 0 R
-/Contents 2 0 R
->>
-endobj
-9 0 obj
-<<
-/Type /Page
-/Parent 8 0 R
-/Resources 11 0 R
-/Contents 10 0 R
->>
-endobj
-15 0 obj
-<<
-/S /D
->>
-endobj
-16 0 obj
-<<
-/Nums [0 15 0 R ]
->>
-endobj
-8 0 obj
-<<
-/Type /Pages
-/Kids [1 0 R 9 0 R]
-/Count 2
-/MediaBox [0 0 612 792]
->>
-endobj
-17 0 obj
-<<
-/CreationDate (D:20210119174411-06'00')
-/ModDate (D:20210119174411-06'00')
-/Producer (PSNormalizer.framework)
->>
-endobj
-18 0 obj
-<<
-/Type /Catalog
-/Pages 8 0 R
-/PageLabels 16 0 R
->>
-endobj
-xref
-0 19
-0000000000 65535 f 
-0000005115 00000 n 
-0000000016 00000 n 
-0000002362 00000 n 
-0000003801 00000 n 
-0000004221 00000 n 
-0000004670 00000 n 
-0000003045 00000 n 
-0000005345 00000 n 
-0000005195 00000 n 
-0000002479 00000 n 
-0000002927 00000 n 
-0000003185 00000 n 
-0000003391 00000 n 
-0000003606 00000 n 
-0000005277 00000 n 
-0000005305 00000 n 
-0000005432 00000 n 
-0000005564 00000 n 
-trailer
-<<
-/Size 19
-/Root 18 0 R
-/Info 17 0 R
-/ID [<d8d67fe46ad0b335a4ce76aa22b00931><d8d67fe46ad0b335a4ce76aa22b00931>]
->>
-startxref
-5633
-%%EOF

docs/ReleaseNote/Tab-Replacements.pdf

@@ -1,886 +0,0 @@
-%PDF-1.3
-%âãÏÓ
-2 0 obj
-<<
-/Length 246
->>
-stream
-0 G
-0 J 0 j 3 w 10 M []0 d
-/GS1 gs
-1 i 
-72.01 718.49 m
-540.01 718.49 l
-S
-BT
-/TT2 1 Tf
-18 0 0 18 333.95 694.97 Tm
-0 g
-0 Tc
-0 Tw
-(Replace this page with)Tj
-2.3356 -1 TD
-(Table of Contents)Tj
-6.945 -1 TD
-(tab)Tj
-ET
-228.01 653.49 m
-528.01 653.49 l
-S
-endstream
-endobj
-3 0 obj
-<<
-/ProcSet [/PDF /Text ]
-/Font <<
-/TT2 4 0 R
->>
-/ExtGState <<
-/GS1 5 0 R
->>
->>
-endobj
-8 0 obj
-<<
-/Length 237
->>
-stream
-0 G
-0 J 0 j 3 w 10 M []0 d
-/GS1 gs
-1 i 
-72.01 718.49 m
-540.01 718.49 l
-S
-BT
-/TT2 1 Tf
-18 0 0 18 333.95 694.97 Tm
-0 g
-0 Tc
-0 Tw
-(Replace this page with)Tj
-7.1672 -1 TD
-(Preface)Tj
-2.1133 -1 TD
-(tab)Tj
-ET
-228.01 653.49 m
-528.01 653.49 l
-S
-endstream
-endobj
-9 0 obj
-<<
-/ProcSet [/PDF /Text ]
-/Font <<
-/TT2 4 0 R
->>
-/ExtGState <<
-/GS1 5 0 R
->>
->>
-endobj
-11 0 obj
-<<
-/Length 246
->>
-stream
-0 G
-0 J 0 j 3 w 10 M []0 d
-/GS1 gs
-1 i 
-72.01 718.49 m
-540.01 718.49 l
-S
-BT
-/TT2 1 Tf
-18 0 0 18 333.95 694.97 Tm
-0 g
-0 Tc
-0 Tw
-(Replace this page with)Tj
-3.5583 -1 TD
-(1.  Introduction)Tj
-5.7222 -1 TD
-(tab)Tj
-ET
-228.01 653.49 m
-528.01 653.49 l
-S
-endstream
-endobj
-12 0 obj
-<<
-/ProcSet [/PDF /Text ]
-/Font <<
-/TT2 4 0 R
->>
-/ExtGState <<
-/GS1 5 0 R
->>
->>
-endobj
-14 0 obj
-<<
-/Length 251
->>
-stream
-0 G
-0 J 0 j 3 w 10 M []0 d
-/GS1 gs
-1 i 
-72.01 718.49 m
-540.01 718.49 l
-S
-BT
-/TT2 1 Tf
-18 0 0 18 333.95 694.97 Tm
-0 g
-0 Tc
-0 Tw
-(Replace this page with)Tj
-0.0006 -1 TD
-(2.  Notes and Cautions )Tj
-9.28 -1 TD
-(tab)Tj
-ET
-228.01 653.49 m
-528.01 653.49 l
-S
-endstream
-endobj
-15 0 obj
-<<
-/ProcSet [/PDF /Text ]
-/Font <<
-/TT2 4 0 R
->>
-/ExtGState <<
-/GS1 5 0 R
->>
->>
-endobj
-17 0 obj
-<<
-/Length 259
->>
-stream
-0 G
-0 J 0 j 3 w 10 M []0 d
-/GS1 gs
-1 i 
-72.01 718.49 m
-540.01 718.49 l
-S
-BT
-/TT2 1 Tf
-18 0 0 18 333.95 694.97 Tm
-0 g
-0 Tc
-0 Tw
-(Replace this page with)Tj
--2.555 -1 TD
-(3.  Integration of Languages)Tj
-11.8356 -1 TD
-(tab)Tj
-ET
-228.01 653.49 m
-528.01 653.49 l
-S
-endstream
-endobj
-18 0 obj
-<<
-/ProcSet [/PDF /Text ]
-/Font <<
-/TT2 4 0 R
->>
-/ExtGState <<
-/GS1 5 0 R
->>
->>
-endobj
-20 0 obj
-<<
-/Length 259
->>
-stream
-0 G
-0 J 0 j 3 w 10 M []0 d
-/GS1 gs
-1 i 
-72.01 718.49 m
-540.01 718.49 l
-S
-BT
-/TT2 1 Tf
-18 0 0 18 333.95 694.97 Tm
-0 g
-0 Tc
-0 Tw
-(Replace this page with)Tj
--1.2767 -1 TD
-(4.  Changes to Interlisp-D )Tj
-10.5572 -1 TD
-(tab)Tj
-ET
-228.01 653.49 m
-528.01 653.49 l
-S
-endstream
-endobj
-21 0 obj
-<<
-/ProcSet [/PDF /Text ]
-/Font <<
-/TT2 4 0 R
->>
-/ExtGState <<
-/GS1 5 0 R
->>
->>
-endobj
-23 0 obj
-<<
-/Length 249
->>
-stream
-0 G
-0 J 0 j 3 w 10 M []0 d
-/GS1 gs
-1 i 
-72.01 718.49 m
-540.01 718.49 l
-S
-BT
-/TT2 1 Tf
-18 0 0 18 333.95 694.97 Tm
-0 g
-0 Tc
-0 Tw
-(Replace this page with)Tj
-1.6672 -1 TD
-(5.  Library Modules)Tj
-7.6133 -1 TD
-(tab)Tj
-ET
-228.01 653.49 m
-528.01 653.49 l
-S
-endstream
-endobj
-24 0 obj
-<<
-/ProcSet [/PDF /Text ]
-/Font <<
-/TT2 4 0 R
->>
-/ExtGState <<
-/GS1 5 0 R
->>
->>
-endobj
-26 0 obj
-<<
-/Length 248
->>
-stream
-0 G
-0 J 0 j 3 w 10 M []0 d
-/GS1 gs
-1 i 
-72.01 718.49 m
-540.01 718.49 l
-S
-BT
-/TT2 1 Tf
-18 0 0 18 333.95 694.97 Tm
-0 g
-0 Tc
-0 Tw
-(Replace this page with)Tj
-2.6661 -1 TD
-(6.  User’s Guides )Tj
-6.6144 -1 TD
-(tab)Tj
-ET
-228.01 653.49 m
-528.01 653.49 l
-S
-endstream
-endobj
-27 0 obj
-<<
-/ProcSet [/PDF /Text ]
-/Font <<
-/TT2 4 0 R
->>
-/ExtGState <<
-/GS1 5 0 R
->>
->>
-endobj
-29 0 obj
-<<
-/Length 263
->>
-stream
-0 G
-0 J 0 j 3 w 10 M []0 d
-/GS1 gs
-1 i 
-72.01 718.49 m
-540.01 718.49 l
-S
-BT
-/TT2 1 Tf
-18 0 0 18 333.95 694.97 Tm
-0 g
-0 Tc
-0 Tw
-(Replace this page with)Tj
--4.9433 -1 TD
-(7.  Common Lisp Implementation )Tj
-14.2239 -1 TD
-(tab)Tj
-ET
-228.01 653.49 m
-528.01 653.49 l
-S
-endstream
-endobj
-30 0 obj
-<<
-/ProcSet [/PDF /Text ]
-/Font <<
-/TT2 4 0 R
->>
-/ExtGState <<
-/GS1 5 0 R
->>
->>
-endobj
-32 0 obj
-<<
-/Length 243
->>
-stream
-0 G
-0 J 0 j 3 w 10 M []0 d
-/GS1 gs
-1 i 
-72.01 718.49 m
-540.01 718.49 l
-S
-BT
-/TT2 1 Tf
-18 0 0 18 333.95 694.97 Tm
-0 g
-0 Tc
-0 Tw
-(Replace this page with)Tj
-4.8333 -1 TD
-(A.  The Exec )Tj
-4.4472 -1 TD
-(tab)Tj
-ET
-228.01 653.49 m
-528.01 653.49 l
-S
-endstream
-endobj
-33 0 obj
-<<
-/ProcSet [/PDF /Text ]
-/Font <<
-/TT2 4 0 R
->>
-/ExtGState <<
-/GS1 5 0 R
->>
->>
-endobj
-35 0 obj
-<<
-/Length 240
->>
-stream
-0 G
-0 J 0 j 3 w 10 M []0 d
-/GS1 gs
-1 i 
-72.01 718.49 m
-540.01 718.49 l
-S
-BT
-/TT2 1 Tf
-18 0 0 18 333.95 694.97 Tm
-0 g
-0 Tc
-0 Tw
-(Replace this page with)Tj
-6.6689 -1 TD
-(B.  SEdit )Tj
-2.6117 -1 TD
-(tab)Tj
-ET
-228.01 653.49 m
-528.01 653.49 l
-S
-endstream
-endobj
-36 0 obj
-<<
-/ProcSet [/PDF /Text ]
-/Font <<
-/TT2 4 0 R
->>
-/ExtGState <<
-/GS1 5 0 R
->>
->>
-endobj
-40 0 obj
-<<
-/Length 241
->>
-stream
-0 G
-0 J 0 j 3 w 10 M []0 d
-/GS1 gs
-1 i 
-72.01 718.49 m
-540.01 718.49 l
-S
-BT
-/TT2 1 Tf
-18 0 0 18 333.95 694.97 Tm
-0 g
-0 Tc
-0 Tw
-(Replace this page with)Tj
-5.7811 -1 TD
-(C.  ICONW  )Tj
-3.4994 -1 TD
-(tab)Tj
-ET
-228.01 653.49 m
-528.01 653.49 l
-S
-endstream
-endobj
-41 0 obj
-<<
-/ProcSet [/PDF /Text ]
-/Font <<
-/TT2 4 0 R
->>
-/ExtGState <<
-/GS1 5 0 R
->>
->>
-endobj
-43 0 obj
-<<
-/Length 244
->>
-stream
-0 G
-0 J 0 j 3 w 10 M []0 d
-/GS1 gs
-1 i 
-72.01 718.49 m
-540.01 718.49 l
-S
-BT
-/TT2 1 Tf
-18 0 0 18 333.95 694.97 Tm
-0 g
-0 Tc
-0 Tw
-(Replace this page with)Tj
-4.2239 -1 TD
-(D.  Free Menu )Tj
-5.0567 -1 TD
-(tab)Tj
-ET
-228.01 653.49 m
-528.01 653.49 l
-S
-endstream
-endobj
-44 0 obj
-<<
-/ProcSet [/PDF /Text ]
-/Font <<
-/TT2 4 0 R
->>
-/ExtGState <<
-/GS1 5 0 R
->>
->>
-endobj
-46 0 obj
-<<
-/Length 242
->>
-stream
-0 G
-0 J 0 j 3 w 10 M []0 d
-/GS1 gs
-1 i 
-72.01 718.49 m
-540.01 718.49 l
-S
-BT
-/TT2 1 Tf
-18 0 0 18 333.95 694.97 Tm
-0 g
-0 Tc
-0 Tw
-(Replace this page with)Tj
-3 -1 TD
-(E.  Error System )Tj
-6.2806 -1 TD
-(tab)Tj
-ET
-228.01 653.49 m
-528.01 653.49 l
-S
-endstream
-endobj
-47 0 obj
-<<
-/ProcSet [/PDF /Text ]
-/Font <<
-/TT2 4 0 R
->>
-/ExtGState <<
-/GS1 5 0 R
->>
->>
-endobj
-49 0 obj
-<<
-/Length 236
->>
-stream
-0 G
-0 J 0 j 3 w 10 M []0 d
-/GS1 gs
-1 i 
-72.01 718.49 m
-540.01 718.49 l
-S
-BT
-/TT2 1 Tf
-18 0 0 18 333.95 694.97 Tm
-0 g
-0 Tc
-0 Tw
-(Replace this page with)Tj
-8.1683 -1 TD
-(Index )Tj
-1.1122 -1 TD
-(tab)Tj
-ET
-228.01 653.49 m
-528.01 653.49 l
-S
-endstream
-endobj
-50 0 obj
-<<
-/ProcSet [/PDF /Text ]
-/Font <<
-/TT2 4 0 R
->>
-/ExtGState <<
-/GS1 5 0 R
->>
->>
-endobj
-5 0 obj
-<<
-/Type /ExtGState
-/SA false
-/SM 0.02
-/OP false
-/op false
-/OPM 1
-/BG2 /Default
-/UCR2 /Default
-/HT /Default
-/TR2 /Default
->>
-endobj
-51 0 obj
-<<
-/Type /FontDescriptor
-/Ascent 770
-/CapHeight 718
-/Descent -229
-/Flags 262176
-/FontBBox [-170 -228 1003 962]
-/FontName /Helvetica-Bold
-/ItalicAngle 0
-/StemV 133
-/XHeight 532
-/StemH 140
->>
-endobj
-4 0 obj
-<<
-/Type /Font
-/Subtype /TrueType
-/FirstChar 32
-/LastChar 146
-/Widths [278 0 0 0 0 0 0 0 0 0 0 0 0 333 278 0 
-0 556 556 556 556 556 556 556 0 0 0 0 0 0 0 0 
-0 722 722 722 722 667 611 778 0 278 0 0 611 833 722 778 
-667 0 722 667 611 722 0 944 0 0 0 0 0 0 0 0 
-0 556 611 556 611 556 333 611 611 278 0 0 278 889 611 611 
-611 0 389 556 333 611 0 778 556 556 0 0 0 0 0 0 
-0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 
-0 0 278 ]
-/Encoding /WinAnsiEncoding
-/BaseFont /Helvetica-Bold
-/FontDescriptor 51 0 R
->>
-endobj
-1 0 obj
-<<
-/Type /Page
-/Parent 6 0 R
-/Resources 3 0 R
-/Contents 2 0 R
->>
-endobj
-7 0 obj
-<<
-/Type /Page
-/Parent 6 0 R
-/Resources 9 0 R
-/Contents 8 0 R
->>
-endobj
-10 0 obj
-<<
-/Type /Page
-/Parent 6 0 R
-/Resources 12 0 R
-/Contents 11 0 R
->>
-endobj
-13 0 obj
-<<
-/Type /Page
-/Parent 6 0 R
-/Resources 15 0 R
-/Contents 14 0 R
->>
-endobj
-16 0 obj
-<<
-/Type /Page
-/Parent 6 0 R
-/Resources 18 0 R
-/Contents 17 0 R
->>
-endobj
-19 0 obj
-<<
-/Type /Page
-/Parent 6 0 R
-/Resources 21 0 R
-/Contents 20 0 R
->>
-endobj
-22 0 obj
-<<
-/Type /Page
-/Parent 6 0 R
-/Resources 24 0 R
-/Contents 23 0 R
->>
-endobj
-25 0 obj
-<<
-/Type /Page
-/Parent 6 0 R
-/Resources 27 0 R
-/Contents 26 0 R
->>
-endobj
-28 0 obj
-<<
-/Type /Page
-/Parent 6 0 R
-/Resources 30 0 R
-/Contents 29 0 R
->>
-endobj
-31 0 obj
-<<
-/Type /Page
-/Parent 6 0 R
-/Resources 33 0 R
-/Contents 32 0 R
->>
-endobj
-34 0 obj
-<<
-/Type /Page
-/Parent 38 0 R
-/Resources 36 0 R
-/Contents 35 0 R
->>
-endobj
-39 0 obj
-<<
-/Type /Page
-/Parent 38 0 R
-/Resources 41 0 R
-/Contents 40 0 R
->>
-endobj
-42 0 obj
-<<
-/Type /Page
-/Parent 38 0 R
-/Resources 44 0 R
-/Contents 43 0 R
->>
-endobj
-45 0 obj
-<<
-/Type /Page
-/Parent 38 0 R
-/Resources 47 0 R
-/Contents 46 0 R
->>
-endobj
-48 0 obj
-<<
-/Type /Page
-/Parent 38 0 R
-/Resources 50 0 R
-/Contents 49 0 R
->>
-endobj
-52 0 obj
-<<
-/S /D
->>
-endobj
-53 0 obj
-<<
-/Nums [0 52 0 R ]
->>
-endobj
-6 0 obj
-<<
-/Type /Pages
-/Kids [1 0 R 7 0 R 10 0 R 13 0 R 16 0 R 19 0 R 22 0 R 25 0 R 28 0 R 31 0 R]
-/Count 10
-/Parent 37 0 R
->>
-endobj
-38 0 obj
-<<
-/Type /Pages
-/Kids [34 0 R 39 0 R 42 0 R 45 0 R 48 0 R]
-/Count 5
-/Parent 37 0 R
->>
-endobj
-37 0 obj
-<<
-/Type /Pages
-/Kids [6 0 R 38 0 R ]
-/Count 15
-/MediaBox [0 0 612 792]
->>
-endobj
-54 0 obj
-<<
-/CreationDate (D:20210119174411-06'00')
-/ModDate (D:20210119174411-06'00')
-/Producer (PSNormalizer.framework)
->>
-endobj
-55 0 obj
-<<
-/Type /Catalog
-/Pages 37 0 R
-/PageLabels 53 0 R
->>
-endobj
-xref
-0 56
-0000000000 65535 f 
-0000006786 00000 n 
-0000000016 00000 n 
-0000000313 00000 n 
-0000006282 00000 n 
-0000005936 00000 n 
-0000008098 00000 n 
-0000006866 00000 n 
-0000000408 00000 n 
-0000000696 00000 n 
-0000006946 00000 n 
-0000000791 00000 n 
-0000001089 00000 n 
-0000007029 00000 n 
-0000001185 00000 n 
-0000001488 00000 n 
-0000007112 00000 n 
-0000001584 00000 n 
-0000001895 00000 n 
-0000007195 00000 n 
-0000001991 00000 n 
-0000002302 00000 n 
-0000007278 00000 n 
-0000002398 00000 n 
-0000002699 00000 n 
-0000007361 00000 n 
-0000002795 00000 n 
-0000003095 00000 n 
-0000007444 00000 n 
-0000003191 00000 n 
-0000003506 00000 n 
-0000007527 00000 n 
-0000003602 00000 n 
-0000003897 00000 n 
-0000007610 00000 n 
-0000003993 00000 n 
-0000004285 00000 n 
-0000008335 00000 n 
-0000008233 00000 n 
-0000007694 00000 n 
-0000004381 00000 n 
-0000004674 00000 n 
-0000007778 00000 n 
-0000004770 00000 n 
-0000005066 00000 n 
-0000007862 00000 n 
-0000005162 00000 n 
-0000005456 00000 n 
-0000007946 00000 n 
-0000005552 00000 n 
-0000005840 00000 n 
-0000006076 00000 n 
-0000008030 00000 n 
-0000008058 00000 n 
-0000008426 00000 n 
-0000008558 00000 n 
-trailer
-<<
-/Size 56
-/Root 55 0 R
-/Info 54 0 R
-/ID [<3f19364b5f81ff960ce7bb49c7d95dc0><3f19364b5f81ff960ce7bb49c7d95dc0>]
->>
-startxref
-8628
-%%EOF

docs/ReleaseNote/bindercover.pdf

@@ -1,157 +0,0 @@
-%PDF-1.3
-%âãÏÓ
-2 0 obj
-<<
-/Length 318
->>
-stream
-BT
-/TT2 1 Tf
-8 0 0 8 0.04 783.96 Tm
-0 g
-/GS1 gs
-0 Tc
-0 Tw
-(Unknown IMAGEOBJ type)Tj
-0 -1 TD
-(GETFN:  SKIO.GETFN.2)Tj
-ET
-q
-1 i 
-0 792 612 -791.94 re
-W n
-0 G
-0 J 0 j 0.02 w 10 M [0.32 0.16 0.16 0.16 ]0 d
-0.01 775.93 m
-99.6 775.93 l
-99.6 775.93 m
-99.6 791.95 l
-0.01 791.95 m
-99.6 791.95 l
-0.01 791.95 m
-0.01 775.93 l
-S
-Q
-endstream
-endobj
-3 0 obj
-<<
-/ProcSet [/PDF /Text ]
-/Font <<
-/TT2 4 0 R
->>
-/ExtGState <<
-/GS1 5 0 R
->>
->>
-endobj
-5 0 obj
-<<
-/Type /ExtGState
-/SA false
-/SM 0.02
-/OP false
-/op false
-/OPM 1
-/BG2 /Default
-/UCR2 /Default
-/HT /Default
-/TR2 /Default
->>
-endobj
-7 0 obj
-<<
-/Type /FontDescriptor
-/Ascent 770
-/CapHeight 718
-/Descent -229
-/Flags 262176
-/FontBBox [-170 -228 1003 962]
-/FontName /Helvetica-Bold
-/ItalicAngle 0
-/StemV 133
-/XHeight 532
-/StemH 140
->>
-endobj
-4 0 obj
-<<
-/Type /Font
-/Subtype /TrueType
-/FirstChar 32
-/LastChar 121
-/Widths [278 0 0 0 0 0 0 0 0 0 0 0 0 0 278 0 
-0 0 556 0 0 0 0 0 0 0 333 0 0 0 0 0 
-0 722 722 0 0 667 611 778 0 278 556 722 0 833 722 778 
-0 0 0 667 611 722 0 0 0 0 0 0 0 0 0 0 
-0 0 0 0 0 556 0 0 0 0 0 556 0 0 611 611 
-611 0 0 0 333 0 0 778 0 556 ]
-/Encoding /WinAnsiEncoding
-/BaseFont /Helvetica-Bold
-/FontDescriptor 7 0 R
->>
-endobj
-1 0 obj
-<<
-/Type /Page
-/Parent 6 0 R
-/Resources 3 0 R
-/Contents 2 0 R
->>
-endobj
-8 0 obj
-<<
-/S /D
->>
-endobj
-9 0 obj
-<<
-/Nums [0 8 0 R ]
->>
-endobj
-6 0 obj
-<<
-/Type /Pages
-/Kids [1 0 R]
-/Count 1
-/MediaBox [0 0 612 792]
->>
-endobj
-10 0 obj
-<<
-/CreationDate (D:20210119174412-06'00')
-/ModDate (D:20210119174412-06'00')
-/Producer (PSNormalizer.framework)
->>
-endobj
-11 0 obj
-<<
-/Type /Catalog
-/Pages 6 0 R
-/PageLabels 9 0 R
->>
-endobj
-xref
-0 12
-0000000000 65535 f 
-0000001228 00000 n 
-0000000016 00000 n 
-0000000385 00000 n 
-0000000825 00000 n 
-0000000480 00000 n 
-0000001373 00000 n 
-0000000620 00000 n 
-0000001308 00000 n 
-0000001335 00000 n 
-0000001454 00000 n 
-0000001586 00000 n 
-trailer
-<<
-/Size 12
-/Root 11 0 R
-/Info 10 0 R
-/ID [<037c8837cab2cb299e6b0b052324dbdc><037c8837cab2cb299e6b0b052324dbdc>]
->>
-startxref
-1654
-%%EOF