Merge branch 'master' into nhb-fix-ethereventfn

If there is NO ethernet it is better to avoid a delay waiting for a
PUP lookup response that will never come, and there is no value in
asking for the user to enter a PUP host number that will not be used.

README.md

@@ -1,14 +1,12 @@
 # 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 [Medley](https://interlisp.org).
 
-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.
+[Install and Run](https://interlisp.org/software/install-and-run) covers ways to install and start up Medley on Linux systems, MacOS, and Windows (with or without WSL).
 
 [Using Medley](https://interlisp.org/software/using-medley/) has an overview and pointers to documentation.
 
-The [Glossary](https://interlisp.org/history/glossary) defines system-specific terms such as "loadup" and "sysout".
+[Interlisp/maiko](https://github.com/Interlisp/maiko), is the repo for the implementation (in C) of the Medley virtual machine. 
 
 ## Releases
 
@@ -69,9 +67,25 @@ If you have a high-resolution display, note that much of the graphics was design
 
 Medley presumes you have a 3-button mouse; the scroll-wheel on some mice acts as one, with some difficulty. Go into XQuartz Preferences/Input and check "Emulate three button mouse" option.
 
-### Running Medley Interlisp
+### Running Medley Interlisp (obsolete)
 
-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.
+The `run-medley` script in this repo sets up some convenient defaults. Running Medley can be done by typing:
+```
+$ cd medley
+$ ./run-medley
+```
+
+Or, if you wish to start Medley up with a different SYSOUT:
+
+```
+$ cd medley
+$ ./run-medley <SYSOUT-file-name>
+```
+The first time the system is run it loads the system image that comes
+with the system.  When you exit the system (or "do a `SaveVM`" menu
+option) the state of your machine is saved in a file named
+`~/lisp.virtualmem`.  Subsequent system startups load the
+`~/lisp.virtualmem` image by default.
 
 ### Exiting The System
 
@@ -109,7 +123,7 @@ Each directory should have a README.md, but briefly
 * BUILDING.md -- instructions on how to make your own loadups
 * clos -- early implementation of Common Lisp Object System
 * CLTL2 -- files submitted to bring Medley up to the conformance to "Common Lisp, the Language" 2nd edition. Not enough to conform to the ANSI standard lisp.
-* docs -- Documentation files (in TEdit format, PDFs, or online help
+* docs -- Documentation files (in TEdit format, PDFs, or online help; look [here](https://github.com/Interlisp/medley/Documentation))
 * 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

greetfiles/APPS-INIT

@@ -1,12 +1,12 @@
 (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
 
-
(FILECREATED " 1-Feb-2026 13:41:02" {WMEDLEY}<greetfiles>APPS-INIT.;11
 22926  
+
(FILECREATED "26-Nov-2025 12:30:08" {DSK}<Users>larry>il>MEDLEY>GREETFILES>APPS-INIT.;2
 23361  
 
-      :EDIT-BY rmk
+      :EDIT-BY "lmm"
 
-      :CHANGES-TO (FNS XCL-USER::EXEC¬INTERLISP)
+      :CHANGES-TO (FNS Apps.CreateButtons)
 
-      :PREVIOUS-DATE " 1-Feb-2026 07:58:14" {WMEDLEY}<greetfiles>APPS-INIT.;9)
+      :PREVIOUS-DATE "25-Feb-2024 13:56:23" {DSK}<Users>larry>il>MEDLEY>GREETFILES>APPS-INIT.;1)
 
 
 (PRETTYCOMPRINT APPS-INITCOMS)
@@ -19,7 +19,7 @@
                (Apps.RoomsActivated NIL))
         (FNS Apps.InitNotecards Apps.SetUpNOTECARDSDIRECTORIES Apps.DoInit Apps.CreateButtons 
              Apps.CreateLabel Apps.ActivateCLOS Apps.ActivateRooms Apps.ShowDoc 
-             XCL-USER::EXEC¬INTERLISP Apps.AroundExitFn)
+             XCL-USER::EXEC_INTERLISP Apps.AroundExitFn)
         (DECLARE%: DONTEVAL@LOAD DOCOPY (P (Apps.DoInit)))
         (DECLARE%: FIRST DONTEVAL@LOAD DOCOPY (P (BKSYSBUF " "])
 
@@ -35,53 +35,52 @@
 (RPAQ? Apps.RoomsActivated
 NIL)
 (DEFINEQ
 
-(Apps.InitNotecards
+(Apps.InitNotecards

   [LAMBDA (DoNotRefreshButtons)
-    (DECLARE (GLOBALVARS BackgroundMenuCommands BackgroundMenu))
-                                                             (* ; "Edited  1-Feb-2026 00:00 by rmk")
-                                                             (* ; "Edited 19-Jan-2023 11:57 by FGH")
-                                                             (* ; "Edited  7-Dec-2022 11:14 by FGH")
-                                                             (* ; "Edited 12-Nov-2022 14:41 by FGH")
-                                                             (* ; "Edited 11-Sep-2022 01:09 by fgh")
-                                                             (* ; "Edited  7-Feb-2022 20:22 by tp7")
+    (DECLARE
 (GLOBALVARS BackgroundMenuCommands BackgroundMenu))

+                                                             (* ; "Edited 19-Jan-2023 11:57 by FGH")


+                                                             (* ; "Edited  7-Dec-2022 11:14 by FGH")


+                                                             (* ; "Edited 12-Nov-2022 14:41 by FGH")


+                                                             (* ; "Edited 11-Sep-2022 01:09 by fgh")


+                                                             (* ; "Edited  7-Feb-2022 20:22 by tp7")

     (LET* [[SRCDIR (OR (UNIX-GETENV 'NOTEFILESSRC)
-                       (AND (UNIX-GETENV 'NC¬INSTALLDIR)
-                            (CONCAT (UNIX-GETENV 'NC¬INSTALLDIR)
+                       (AND (UNIX-GETENV 'NC_INSTALLDIR)
+                            (CONCAT (UNIX-GETENV 'NC_INSTALLDIR)
                                    "/notefiles"))
                        (LET ((SUBDIR "notecards/notefiles"))
-                            (for DIR in (LIST (CONCAT (MEDLEYDIR)
+                            (for
 DIR in
 (LIST (CONCAT (MEDLEYDIR)
                                                      SUBDIR)
                                               (CONCAT (MEDLEYDIR)
                                                      "../" SUBDIR)
                                               (CONCAT (MEDLEYDIR)
-                                                     "../../" SUBDIR)) thereis (DIRECTORYNAME DIR]
+                                                     "../../" SUBDIR)) thereis
 (DIRECTORYNAME DIR]
            (DESTDIR (OR (UNIX-GETENV 'NOTEFILESDIR)
-                        (AND (UNIX-GETENV 'MEDLEY¬USERDIR)
-                             (CONCAT (UNIX-GETENV 'MEDLEY¬USERDIR)
+                        (AND (UNIX-GETENV 'MEDLEY_USERDIR)
+                             (CONCAT (UNIX-GETENV 'MEDLEY_USERDIR)
                                     "/notefiles"))
                         (CONCAT LOGINDIR "notefiles"]
-          [if (AND (NOT (DIRECTORYNAME DESTDIR))
+          [if
 (AND (NOT (DIRECTORYNAME DESTDIR))
                    (DIRECTORYNAME SRCDIR))
-              then (for NF in (DIRECTORY (CONCAT SRCDIR "/*"))
-                      do (COPYFILE NF (PACKFILENAME 'HOST "DSK" 'DIRECTORY DESTDIR 'NAME
+              then
 (for
 NF in
 (DIRECTORY (CONCAT SRCDIR "/*"))
+                      do
 (COPYFILE NF (PACKFILENAME 'HOST "DSK" 'DIRECTORY DESTDIR 'NAME
                                              (FILENAMEFIELD NF 'NAME)
                                              'EXTENSION
                                              (FILENAMEFIELD NF 'EXTENSION)
                                              'VERSION
                                              (FILENAMEFIELD NF 'VERSION]
           (LET* ((PW-REGION (WINDOWPROP PROMPTWINDOW 'REGION))
-                 (LEFT (IPLUS (fetch (REGION RIGHT) of PW-REGION)
+                 (LEFT (IPLUS (fetch
 (REGION RIGHT) of
 PW-REGION)
                               20))
-                 (BOTTOM (fetch (REGION BOTTOM) of PW-REGION)))
-                (NC.BringUpNoteCardsIcon (create POSITION
+                 (BOTTOM (fetch
 (REGION BOTTOM) of
 PW-REGION)))
+                (NC.BringUpNoteCardsIcon (create
 POSITION
                                                 XCOORD _ LEFT
                                                 YCOORD _ BOTTOM)))
           (NC.FileBrowserMenu NC.NoteCardsIconWindow (PACKFILENAME 'HOST "DSK" 'DIRECTORY DESTDIR
                                                             'NAME "*" 'EXTENSION "notefile")
                  (CREATEREGION 50 (IDIFFERENCE SCREENHEIGHT 700)
                         550 220))
-          (if (NULL (SASSOC 'NoteCards BackgroundMenuCommands))
-              then (PROGN [SETQ BackgroundMenuCommands (APPEND BackgroundMenuCommands
+          (if
 (NULL (SASSOC 'NoteCards BackgroundMenuCommands))
+              then
 (PROGN [SETQ BackgroundMenuCommands (APPEND BackgroundMenuCommands
                                                               (LIST '(NoteCards (
                                                                               NC.BringUpNoteCardsIcon
                                                                                  )
@@ -90,61 +89,59 @@
                                                                             ]
                           (SETQ BackgroundMenu NIL)))
           (SETQ Apps.NotecardsActivated T)
-          (if (NOT DoNotRefreshButtons)
-              then (Apps.CreateButtons])
+          (if
 (NOT DoNotRefreshButtons)
+              then
 (Apps.CreateButtons
])
 
-(Apps.SetUpNOTECARDSDIRECTORIES
+(Apps.SetUpNOTECARDSDIRECTORIES

   [LAMBDA NIL
 
-    (* ;; "Find the location of the Notecards directory and call NC.SetUpNOTECARDSDIRECTORIES.")
+    (* ;; "Find the location of the Notecards directory and call NC.SetUpNOTECARDSDIRECTORIES.")

 
-    (* ;; " This is needed to make sure that lazy loading of Notecard types works.")
+    (* ;; " This is needed to make sure that lazy loading of Notecard types works.")

 
     (LET* [(LOC1 (CONCAT MEDLEYDIR "notecards>"))
            (LOC2 (CONCAT MEDLEYDIR "..>notecards>"))
            (LOC3 (CONCAT MEDLEYDIR "..>..>notecards>"))
-           (NCDIR (for LOC in (LIST LOC1 LOC2 LOC3) thereis (OR (INFILEP (CONCAT LOC 
+           (NCDIR (for
 LOC in
 (LIST LOC1 LOC2 LOC3) thereis
 (OR (INFILEP (CONCAT LOC 
                                                                                 "system>NOTECARDS"))
                                                                 (INFILEP (CONCAT LOC 
                                                                               "system>NOTECARDS.LCOM"
                                                                                 ]
-          (if NCDIR
-              then [SETQ NCDIR (OR (INFILEP (CONCAT NCDIR "system>NOTECARDS"))
+          (if
 NCDIR
+              then
 [SETQ NCDIR (OR (INFILEP (CONCAT NCDIR "system>NOTECARDS"))
                                    (INFILEP (CONCAT NCDIR "system>NOTECARDS.LCOM"]
                    (SETQ NCDIR (SUBSTRING NCDIR 1 (IDIFFERENCE (STRPOS "system>NOTECARDS" NCDIR)
                                                          1)))
                    (NC.SetUpNOTECARDSDIRECTORIES NCDIR)
                    T
-            else (PRIN1 "Warning: Notecards directory could not be found." T)
+            else
 (PRIN1 "Warning: Notecards directory could not be found." T)
                  (PRIN1 "Hence, NOTECARDSDIRECTORIES is probably not set correctly" T)
                  (PRIN1 "and Notecards will not work properly." T)
                  NIL])
 
-(Apps.DoInit
+(Apps.DoInit

   [LAMBDA NIL
 
-    (* ;; "Edited 31-Jan-2026 23:57 by rmk")
+    (* ;; "Edited 19-Jan-2023 12:43 by FGH")

 
-    (* ;; "Edited 19-Jan-2023 12:43 by FGH")
+    (* ;; "Edited 17-Jan-2023 23:23 by FGH")

 
-    (* ;; "Edited 17-Jan-2023 23:23 by FGH")
+    (* ;; "Edited  7-Dec-2022 11:14 by FGH")

 
-    (* ;; "Edited  7-Dec-2022 11:14 by FGH")
+    (* ;; "Edited 12-Nov-2022 13:57 by FGH")

 
-    (* ;; "Edited 12-Nov-2022 13:57 by FGH")
+    (* ;; "Edited 12-Oct-2022 20:23 by fgh")

 
-    (* ;; "Edited 12-Oct-2022 20:23 by fgh")
+    (* ;; "Edited  6-Sep-2022 17:22 by fgh")

 
-    (* ;; "Edited  6-Sep-2022 17:22 by fgh")
+    (* ;; "Edited  4-Sep-2022 16:44 by larry")

 
-    (* ;; "Edited  4-Sep-2022 16:44 by larry")
+    (* ;; "Edited 18-Mar-2022 18:53 by fgh")

 
-    (* ;; "Edited 18-Mar-2022 18:53 by fgh")
-
-    (* ;; "Edited 17-Dec-2021 22:05 by fgh")
+    (* ;; "Edited 17-Dec-2021 22:05 by fgh")

 
     (PROGN 
-           (* ;; " Adjust windows so that the exec window and the prompt window don't overlap") 
+           (* ;; " Adjust windows so that the exec window and the prompt window don't overlap")

 
            [MAPC (OPENWINDOWS)
                  (FUNCTION (LAMBDA (W)
@@ -155,92 +152,90 @@
                                         (IDIFFERENCE SCREENHEIGHT 18)))
                                 ((STREQUAL (WINDOWPROP W 'TITLE)
                                         "Prompt Window")
-                                 (PROGN (MOVEW W (create POSITION
+                                 (PROGN (MOVEW W (create
 POSITION
                                                         XCOORD _ 50
                                                         YCOORD _ (IDIFFERENCE SCREENHEIGHT 120)))
                                         (CLEARW W)))
                                 ((STREQUAL (WINDOWPROP W 'TITLE)
                                         "Exec  (XCL)")
                                  (PROGN (WINDOWPROP W 'TITLE "Exec  (INTERLISP)")
-                                        (MOVEW W (create POSITION
+                                        (MOVEW W (create
 POSITION
                                                         XCOORD _ 50
                                                         YCOORD _ (IDIFFERENCE SCREENHEIGHT 460]
 
-           (* ;; " Set up INITIALSLST based on information passed in from the Linux environment") 
+           (* ;; " Set up INITIALSLST based on information passed in from the Linux environment")

 
-           [SETQ INITIALSLST (LIST (LIST USERNAME (UNIX-GETENV 'MEDLEY¬FIRSTNAME)
-                                         (UNIX-GETENV 'MEDLEY¬INITIALS]
+           [SETQ INITIALSLST (LIST (LIST USERNAME (UNIX-GETENV 'MEDLEY_FIRSTNAME)
+                                         (UNIX-GETENV 'MEDLEY_INITIALS]
            (LOAD '{DSK}/usr/local/interlisp/medley/lispusers/HELPSYS.LCOM T)
 
-           (* ;; "change to interlisp exec if required")
+           (* ;; "change to interlisp exec if required")

 
            (COND
-              ((OR (STRING-EQUAL (UNIX-GETENV 'MEDLEY¬EXEC)
+              ((OR (STRING-EQUAL (UNIX-GETENV 'MEDLEY_EXEC)
                           "inter")
                    (STRING-EQUAL (UNIX-GETENV 'NCO)
                           "true"))
-               (BKSYSBUF "(EXEC¬INTERLISP)")))
+               (BKSYSBUF "(EXEC_INTERLISP)")))
 
-           (* ;; "Always Activate CLOS")
+           (* ;; "Always Activate CLOS")

 
-           (Apps.ActivateCLOS)
+           (Apps.ActivateCLOS
)
 
-           (* ;; " activate Notecards if requested")
+           (* ;; " activate Notecards if requested")

 
            (COND
-              ((STRING-EQUAL (UNIX-GETENV 'RUN¬NOTECARDS)
+              ((STRING-EQUAL (UNIX-GETENV 'RUN_NOTECARDS)
                       "true")
-               (Apps.InitNotecards T)))
+               (Apps.InitNotecards
 T)))
 
-           (* ;; " activate Rooms if requested")
+           (* ;; " activate Rooms if requested")

 
            (COND
-              ((STRING-EQUAL (UNIX-GETENV 'RUN¬ROOMS)
+              ((STRING-EQUAL (UNIX-GETENV 'RUN_ROOMS)
                       "true")
-               (Apps.ActivateRooms T)))
+               (Apps.ActivateRooms
 T)))
 
-           (* ;; " create the Documentation and ROOMS, Notecards Activation Buttons, if needed")
+           (* ;; " create the Documentation and ROOMS, Notecards Activation Buttons, if needed")

 
-           (Apps.CreateButtons T)
+           (Apps.CreateButtons
 T)
 
-           (* ;; " Make sure Notecards doesn't try to load its HASH file in NC.PostGreet")
+           (* ;; " Make sure Notecards doesn't try to load its HASH file in NC.PostGreet")

 
            (SETTOPVAL '\NC.SourceAccessFlg NIL)
 
-           (* ;; "Setup NOTECARDSDIRECTORIES.") 
+           (* ;; "Setup NOTECARDSDIRECTORIES.")

 
-           (Apps.SetUpNOTECARDSDIRECTORIES)
+           (Apps.SetUpNOTECARDSDIRECTORIES
)
 
-           (* ;; "Add AROUNDEXITFN to ensure NOTECARDSDIRECTORIES get reset after LOGOUT, etc.")
+           (* ;; "Add AROUNDEXITFN to ensure NOTECARDSDIRECTORIES get reset after LOGOUT, etc.")

 
            (SETQ AROUNDEXITFNS (LSUBST '(MEDLEY-INIT-VARS Apps.AroundExitFn)
                                       'MEDLEY-INIT-VARS AROUNDEXITFNS])
 
-(Apps.CreateButtons
-  [LAMBDA (DoDocsToo)                                         (* ; "Edited 31-Jan-2026 23:59 by rmk") 
-                                                             (* ; "Edited 26-Nov-2025 12:29 by lmm")
-                                                           (* ; "Edited 13-Dec-2022 12:51 by frank")
-                                                             (* ; "Edited  7-Dec-2022 11:28 by FGH")
-                                                             (* ; "Edited  5-Dec-2022 17:31 by FGH")
-                                                             (* ; "Edited 12-Nov-2022 14:52 by FGH")
+(Apps.CreateButtons

+  [LAMBDA (DoDocsToo)
                                        (* ; "Edited 26-Nov-2025 12:29 by lmm")


+                                                           (* ; "Edited 13-Dec-2022 12:51 by frank")


+                                                             (* ; "Edited  7-Dec-2022 11:28 by FGH")


+                                                             (* ; "Edited  5-Dec-2022 17:31 by FGH")


+                                                             (* ; "Edited 12-Nov-2022 14:52 by FGH")

 
-    (* ;; " Create  buttons for Documentation and to activate Rooms, Notecards ") 
+    (* ;; " Create  buttons for Documentation and to activate Rooms, Notecards ")

 
-    (* ;; "Note: due to bug in DELETE-BUTTON need to create Doc buttons last.  This will make sure that  the NoteCards/Rooms buttons get properl deleted when they are activated.  But the Doc buttons will not necessariy get deleted properly (but then there is never a need for them to be deleted).")
+    (* ;; "Note: due to bug in DELETE-BUTTON need to create Doc buttons last.  This will make sure that  the NoteCards/Rooms buttons get properl deleted when they are activated.  But the Doc buttons will not necessariy get deleted properly (but then there is never a need for them to be deleted).")

 
-
-    (LET* ((FEATURES (LIST (LIST Apps.NotecardsActivated '(Apps.InitNotecards)
+    (LET* ((FEATURES (LIST (LIST Apps.NotecardsActivated '(Apps.InitNotecards
)
                                  "NOTECARDS")
-                           (LIST Apps.RoomsActivated '(Apps.ActivateRooms)
+                           (LIST Apps.RoomsActivated '(Apps.ActivateRooms
)
                                  "ROOMS")))
-           (FEATURES-LABELS (for FEATURE in FEATURES collect (CADDR FEATURE)))
+           (FEATURES-LABELS (for
 FEATURE in
 FEATURES collect
 (CADDR FEATURE)))
            (DOCS (LIST (LIST "https://interlisp.org/docs/medley/orientation/" "BASICS")
                        (LIST "https://primer.interlisp.org/" "PRIMER")
                        (LIST "https://interlisp.org/documentation/IRM.pdf" "MANUAL")
-                       (LIST "https://interlisp.org/documentation/notecards¬user-guide¬v1.2.pdf" 
+                       (LIST "https://interlisp.org/documentation/notecards_user_guide_v1.2.pdf" 
                              "NOTECARDS")
                        (LIST "https://interlisp.org/documentation/ROOMSTECHDESC.pdf" "ROOMS")))
-           (DOCS-LABELS (for DOC in DOCS collect (CADR DOC)))
+           (DOCS-LABELS (for
 DOC in
 DOCS collect
 (CADR DOC)))
            (RIGHTMARGINISH 140)
            (SECTION1YPOS 225)
            (YPOSDELTA 55)
@@ -254,31 +249,31 @@
            (IWS NIL)
            (BUTTONS NIL))
 
-          (* ;; "First remove/re-create feature buttons") 
+          (* ;; "First remove/re-create feature buttons")

 
-          (for W in (OPENWINDOWS) when (MEMBER (WINDOWPROP W 'ICONLABEL)
-                                              (LIST "ACTIVATE" "FEATURES")) do (CLOSEW W))
-          (for B in *ALL-BUTTONS* when (AND (EQ (WINDOWPROP B 'Apps.BUTTON)
+          (for
 W in
 (OPENWINDOWS) when
 (MEMBER (WINDOWPROP W 'ICONLABEL)
+                                              (LIST "ACTIVATE" "FEATURES")) do
 (CLOSEW W))
+          (for
 B in
 *ALL-BUTTONS* when
 (AND (EQ (WINDOWPROP B 'Apps.BUTTON)
                                                 'FEATURE)
                                             (MEMBER (BUTTON-LABEL B)
-                                                   FEATURES-LABELS)) do (DELETE-BUTTON B))
-          [if FEATURES-REQUIREDP
-              then [SETQ IWS (LIST (Apps.CreateLabel "ACTIVATE" (IDIFFERENCE SCREENWIDTH
+                                                   FEATURES-LABELS)) do
 (DELETE-BUTTON B))
+          [if
 FEATURES-REQUIREDP
+              then
 [SETQ IWS (LIST (Apps.CreateLabel
 "ACTIVATE" (IDIFFERENCE SCREENWIDTH
                                                                        (IDIFFERENCE RIGHTMARGINISH 50
                                                                               ))
                                           (IDIFFERENCE SCREENHEIGHT (IDIFFERENCE SECTION2YPOS 20)))
-                                   (Apps.CreateLabel "FEATURES" (IDIFFERENCE SCREENWIDTH
+                                   (Apps.CreateLabel
 "FEATURES" (IDIFFERENCE SCREENWIDTH
                                                                        (IDIFFERENCE RIGHTMARGINISH 50
                                                                               ))
                                           (IDIFFERENCE SCREENHEIGHT SECTION2YPOS]
-                   (SETQ BUTTONS (for FEATURE in FEATURES
-                                    collect (OR (CAR FEATURE)
+                   (SETQ BUTTONS (for
 FEATURE in
 FEATURES
+                                    collect
 (OR (CAR FEATURE)
                                                 (LET (B)
                                                      (SETQ BUTTONY-FEATURES (IPLUS BUTTONY-FEATURES 
                                                                                    YPOSDELTA))
                                                      [SETQ B (CREATE-BUTTON (CADR FEATURE)
                                                                     (CADDR FEATURE)
-                                                                    (create POSITION
+                                                                    (create
 POSITION
                                                                            XCOORD _ (IDIFFERENCE
                                                                                      SCREENWIDTH 
                                                                                      RIGHTMARGINISH)
@@ -289,30 +284,30 @@
                                                      (WINDOWPROP B 'Apps.BUTTON 'FEATURE)
                                                      B]
 
-          (* ;; "Then if needed, remove/recreate documentation buttons")
+          (* ;; "Then if needed, remove/recreate documentation buttons")

 
-          (if DoDocsToo
-              then (for W in (OPENWINDOWS) when (MEMBER (WINDOWPROP W 'ICONLABEL)
+          (if
 DoDocsToo
+              then
 (for
 W in
 (OPENWINDOWS) when
 (MEMBER (WINDOWPROP W 'ICONLABEL)
                                                        (LIST "DOCUMENTATION"))
-                      do (CLOSEW W))
-                   (for B in *ALL-BUTTONS* when (AND (EQ (WINDOWPROP B 'Apps.BUTTON)
+                      do
 (CLOSEW W))
+                   (for
 B in
 *ALL-BUTTONS* when
 (AND (EQ (WINDOWPROP B 'Apps.BUTTON)
                                                          'DOC)
                                                      (MEMBER (BUTTON-LABEL B)
-                                                            DOCS-LABELS)) do (DELETE-BUTTON B))
-                   (SETQ IWS (CONS (Apps.CreateLabel "DOCUMENTATION" (IDIFFERENCE SCREENWIDTH
+                                                            DOCS-LABELS)) do
 (DELETE-BUTTON B))
+                   (SETQ IWS (CONS (Apps.CreateLabel
 "DOCUMENTATION" (IDIFFERENCE SCREENWIDTH
                                                                             (IDIFFERENCE 
                                                                                    RIGHTMARGINISH 50)
                                                                             )
                                           (IDIFFERENCE SCREENHEIGHT SECTION1YPOS))
                                    IWS))
-                   (SETQ BUTTONS (APPEND (for DOC in DOCS
-                                            collect (LET (B)
+                   (SETQ BUTTONS (APPEND (for
 DOC in
 DOCS
+                                            collect
 (LET (B)
                                                          (SETQ BUTTONY-DOCS (IPLUS BUTTONY-DOCS 
                                                                                    YPOSDELTA))
                                                          [SETQ B (CREATE-BUTTON (LIST 'Apps.ShowDoc
                                                                                       (CAR DOC))
                                                                         (CADR DOC)
-                                                                        (create POSITION
+                                                                        (create
 POSITION
                                                                                XCOORD _
                                                                                (IDIFFERENCE 
                                                                                       SCREENWIDTH 
@@ -324,30 +319,30 @@
                                                          (WINDOWPROP B 'Apps.BUTTON 'DOC)
                                                          B))
                                         BUTTONS)))
-          [for B in BUTTONS do (COND
+          [for
 B in
 BUTTONS do
 (COND
                                   ((WINDOWP B)
                                    (WINDOWPROP B 'RIGHTBUTTONFN 'NILL)
                                    (WINDOWPROP B 'BUTTONEVENTFN (FUNCTION (LAMBDA (BUTTON)
-                                                                            (if (LASTMOUSESTATE
+                                                                            (if
 (LASTMOUSESTATE
                                                                                  (ONLY LEFT))
-                                                                                then (EXECUTE-BUTTON
+                                                                                then
 (EXECUTE-BUTTON
                                                                                       BUTTON]
-          [for IW in IWS do (COND
+          [for
 IW in
 IWS do
 (COND
                                ((WINDOWP IW)
                                 (WINDOWPROP IW 'RIGHTBUTTONFN 'NILL]
-          (for B in BUTTONS when (WINDOWP B) collect B])
+          (for
 B in
 BUTTONS when
 (WINDOWP B) collect
 B])
 
-(Apps.CreateLabel
-  [LAMBDA (Text CenterX BottomY)                             (* ; "Edited  5-Dec-2022 16:49 by FGH")
+(Apps.CreateLabel

+  [LAMBDA (Text CenterX BottomY)
                             (* ; "Edited  5-Dec-2022 16:49 by FGH")

     (LET* ((DS (DSPCREATE))
            (FONT (DSPFONT '(HELVETICA 18 BOLD)
                         DS))
            (SR (STRINGREGION Text DS))
-           (BMW (fetch (REGION WIDTH) of SR))
-           (BMH (IPLUS (fetch (REGION HEIGHT) of SR)
-                       (fetch (REGION BOTTOM) of SR)))
+           (BMW (fetch
 (REGION WIDTH) of
 SR))
+           (BMH (IPLUS (fetch
 (REGION HEIGHT) of
 SR)
+                       (fetch
 (REGION BOTTOM) of
 SR)))
            (BM (BITMAPCREATE BMW BMH))
-           (POS (create POSITION
+           (POS (create
 POSITION
                        XCOORD _ (IDIFFERENCE CenterX (IQUOTIENT BMW 2))
                        YCOORD _ BottomY))
            IW)
@@ -357,12 +352,12 @@
           (WINDOWPROP IW 'ICONLABEL Text)
           IW])
 
-(Apps.ActivateCLOS
+(Apps.ActivateCLOS

   [LAMBDA NIL
-    (DECLARE (GLOBALVARS BackgroundMenuCommands BackgroundMenu))
-                                                             (* ; "Edited 12-Nov-2022 14:41 by FGH")
-    (if (NULL (SASSOC "CLOS Browse Class" BackgroundMenuCommands))
-        then (PROGN [SETQ BackgroundMenuCommands
+    (DECLARE
 (GLOBALVARS BackgroundMenuCommands BackgroundMenu))

+                                                             (* ; "Edited 12-Nov-2022 14:41 by FGH")

+    (if
 (NULL (SASSOC "CLOS Browse Class" BackgroundMenuCommands))
+        then
 (PROGN [SETQ BackgroundMenuCommands
                      (APPEND BackgroundMenuCommands
                             (LIST '("CLOS Browse Class" (CLOS-BROWSER::BROWSE-CLASS)
                                           "Bring up a class browser."
@@ -377,27 +372,27 @@
                                                            ]
                     (SETQ BackgroundMenu NIL])
 
-(Apps.ActivateRooms
+(Apps.ActivateRooms

   [LAMBDA (DoNotRefreshButtons)
-    (DECLARE (GLOBALVARS BackgroundMenuCommands ROOMS:*SUITE-DIRECTORIES*)) 
-                                                             (* ; "Edited  7-Dec-2022 11:13 by FGH")
-                                                             (* ; "Edited 12-Nov-2022 14:56 by FGH")
-    (if (NULL (SASSOC "Rooms" BackgroundMenuCommands))
-        then (ROOMS:RESET))
-    (SETQ ROOMS:*SUITE-DIRECTORIES* (CONS (CONCAT (UNIX-GETENV 'MEDLEY¬USERDIR)
+    (DECLARE
 (GLOBALVARS BackgroundMenuCommands ROOMS:*SUITE-DIRECTORIES*))

+                                                             (* ; "Edited  7-Dec-2022 11:13 by FGH")


+                                                             (* ; "Edited 12-Nov-2022 14:56 by FGH")

+    (if
 (NULL (SASSOC "Rooms" BackgroundMenuCommands))
+        then
 (ROOMS:RESET))
+    (SETQ ROOMS:*SUITE-DIRECTORIES* (CONS (CONCAT (UNIX-GETENV 'MEDLE_USERDIR)
                                                  "/suites")
                                           ROOMS:*SUITE-DIRECTORIES*))
     (SETQ Apps.RoomsActivated T)
     (PROMPTPRINT "
   ROOMS functionality is now available via the Background Menu")
-    (if (NOT DoNotRefreshButtons)
-        then (Apps.CreateButtons])
+    (if
 (NOT DoNotRefreshButtons)
+        then
 (Apps.CreateButtons
])
 
-(Apps.ShowDoc
-  [LAMBDA (URL)                                               (* ; "Edited 18-Jan-2023 20:26 by FGH") 
+(Apps.ShowDoc

+  [LAMBDA (URL)
                                              (* ; "Edited 18-Jan-2023 20:26 by FGH")

     (ShellBrowse URL])
 
-(XCL-USER::EXEC¬INTERLISP

+(XCL-USER::EXEC_INTERLISP

   [LAMBDA NIL
                                                (* ; "Edited 18-Mar-2022 18:53 by fgh")

     (PROGN [MAPC (OPENWINDOWS)
                  (FUNCTION (LAMBDA (W)
@@ -411,10 +406,10 @@
            (XCL:SET-DEFAULT-EXEC-TYPE 'INTERLISP)
            (XCL:SET-EXEC-TYPE 'INTERLISP])
 
-(Apps.AroundExitFn
+(Apps.AroundExitFn

   [LAMBDA (EVENT)
-    (if (MEMB EVENT '(AFTERLOGOUT AFTERSYSOUT AFTERSAVEVM))
-        then (Apps.SetUpNOTECARDSDIRECTORIES])
+    (if
 (MEMB EVENT '(AFTERLOGOUT AFTERSYSOUT AFTERSAVEVM))
+        then
 (Apps.SetUpNOTECARDSDIRECTORIES
])
 )
 (DECLARE%: DONTEVAL@LOAD DOCOPY 
 
@@ -425,8 +420,8 @@
 (BKSYSBUF " ")
 )
 (DECLARE%: DONTCOPY
-  (FILEMAP (NIL (1153 22792 (Apps.InitNotecards 1163 . 5006) (Apps.SetUpNOTECARDSDIRECTORIES 5008 . 6527
-) (Apps.DoInit 6529 . 10067) (Apps.CreateButtons 10069 . 18820) (Apps.CreateLabel 18822 . 19592) (
-Apps.ActivateCLOS 19594 . 20919) (Apps.ActivateRooms 20921 . 21730) (Apps.ShowDoc 21732 . 21871) (
-XCL-USER::EXEC¬INTERLISP 21873 . 22645) (Apps.AroundExitFn 22647 . 22790)))))
+  (FILEMAP (NIL (1184 23227 (Apps.InitNotecards 1194 . 5056) (Apps.SetUpNOTECARDSDIRECTORIES 5058 . 6613
+) (Apps.DoInit 6615 . 10212) (Apps.CreateButtons 10214 . 19123) (Apps.CreateLabel 19125 . 19935) (
+Apps.ActivateCLOS 19937 . 21286) (Apps.ActivateRooms 21288 . 22139) (Apps.ShowDoc 22141 . 22290) (
+XCL-USER::EXEC_INTERLISP 22292 . 23064) (Apps.AroundExitFn 23066 . 23225)))))
 STOP

installers/deb/control-linux

@@ -5,5 +5,5 @@ Maintainer: info@interlisp.org
 Description: Medley Interlisp for Linux
 Homepage: https://github.com/interlisp/medley
 Architecture: --ARCH--
-Depends: man-db, xdg-utils, libbsd0
+Depends: man-db, xdg-utils
 

installers/deb/control-wsl1

@@ -5,5 +5,5 @@ Maintainer: info@interlisp.org
 Description: Medley Interlisp for Linux
 Homepage: https://github.com/interlisp/medley
 Architecture: --ARCH--
-Depends: wslu ( >= 4.1 ) | wslu ( << 4.0 ), tigervnc-standalone-server, tigervnc-xorg-extension, libbsd0 
+Depends: wslu ( >= 4.1 ) | wslu ( << 4.0 ), tigervnc-standalone-server, tigervnc-xorg-extension 
 

installers/deb/control-wsl2

@@ -5,5 +5,5 @@ Maintainer: info@interlisp.org
 Description: Medley Interlisp for Linux
 Homepage: https://github.com/interlisp/medley
 Architecture: --ARCH--
-Depends: wslu ( >= 4.1 ) | wslu ( << 4.0 ), tigervnc-standalone-server, tigervnc-xorg-extension, libbsd0 
+Depends: wslu ( >= 4.1 ) | wslu ( << 4.0 ), tigervnc-standalone-server, tigervnc-xorg-extension 
 

internal/TEDIT-DEBUG

@@ -1,12 +1,12 @@
 (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
 
-
(FILECREATED " 7-Feb-2026 17:00:39" {WMEDLEY}<internal>TEDIT-DEBUG.;178
 138742 
+
(FILECREATED "13-Oct-2025 16:52:28" {WMEDLEY}<internal>TEDIT-DEBUG.;175
 138298 
 
       :EDIT-BY rmk
 
-      :CHANGES-TO (FNS TEDIT-DEBUG)
+      :CHANGES-TO (FNS SP)
 
-      :PREVIOUS-DATE " 7-Feb-2026 10:41:45" {WMEDLEY}<internal>TEDIT-DEBUG.;177)
+      :PREVIOUS-DATE "29-Jul-2025 11:42:21" {WMEDLEY}<internal>TEDIT-DEBUG.;174)
 
 
 (PRETTYCOMPRINT TEDIT-DEBUGCOMS)
@@ -540,8 +540,7 @@
           (RETURN PC])
 
 (SL

-  [LAMBDA (FIRSTLINE LASTLINE PANE TOBJ OFILE)
               (* ; "Edited  9-Jan-2026 11:12 by rmk")


-                                                             (* ; "Edited 17-Apr-2025 13:36 by rmk")


+  [LAMBDA (FIRSTLINE LASTLINE PANE TOBJ OFILE)
               (* ; "Edited 17-Apr-2025 13:36 by rmk")


                                                              (* ; "Edited 15-Apr-2025 13:57 by rmk")


                                                              (* ; "Edited 11-Apr-2025 12:15 by rmk")


                                                              (* ; "Edited 29-Mar-2025 20:27 by rmk")


@@ -581,7 +580,6 @@
          (SETQ PANE (pop
 LINES))
          (SETQ PNO (pop
 LINES))
          (DEBUGOUTPUT (DEBUGOUTPUT.STREAM
 OFILE WTYPE TITLE NIL '(TERMINAL 8))
-                (RESETSAVE (LINELENGTH MAX.SMALLP OFILE))
                 (PRINTOUT OFILE .FONT '(TERMINAL 8)
                        "Pane " PNO " = " PANE T)
                 (PRINTOUT OFILE .FONT '(TERMINAL 8)
@@ -807,8 +805,7 @@
                  else
 (RETURN OUTFILE))))])
 
 (SHOWLINE

-  [LAMBDA (LINE FILE TEXTOBJ)
                                (* ; "Edited  9-Jan-2026 11:09 by rmk")


-                                                             (* ; "Edited 20-Nov-2024 00:31 by rmk")


+  [LAMBDA (LINE FILE TEXTOBJ)
                                (* ; "Edited 20-Nov-2024 00:31 by rmk")


                                                              (* ; "Edited 17-Nov-2024 15:56 by rmk")


                                                              (* ; "Edited  9-Nov-2024 10:37 by rmk")


                                                              (* ; "Edited  1-Sep-2024 16:49 by rmk")


@@ -839,7 +836,7 @@
                     "*"
                     " ")
                 .FONT
-                '(TERMINAL 8)
+                '(TERMINAL 6)
                 " ")
          (if
 (GETLD LINE LDUMMY)
              then
 (PRINTOUT FILE -8 (CL:IF (GETLD LINE LDUMMY)
@@ -2483,8 +2480,7 @@
 (DEFINEQ
 
 (TEDIT-DEBUG

-  [LAMBDA (DONTOVERLOAD)
                                     (* ; "Edited  7-Feb-2026 17:00 by rmk")


-                                                             (* ; "Edited  9-Aug-2024 13:20 by rmk")


+  [LAMBDA (DONTOVERLOAD)
                                     (* ; "Edited  9-Aug-2024 13:20 by rmk")


                                                              (* ; "Edited 16-Jul-2024 12:37 by rmk")


                                                              (* ; "Edited  6-Jul-2024 21:16 by rmk")


                                                              (* ; "Edited 10-Jun-2024 14:21 by rmk")


@@ -2497,7 +2493,6 @@
                                                              (* ; "Edited  3-Dec-2023 21:00 by rmk")


                                                              (* ; "Edited 29-Nov-2023 10:49 by rmk")


                                                              (* ; "Edited 24-Nov-2023 12:53 by rmk")

-    (DRIBBLE "TEDIT-DEBUG.DRIBBLE")
     (CL:WHEN (DIRECTORYNAMEP (MEDLEYDIR "../oldtedit/"))
         (PSEUDOHOST 'OT (MEDLEYDIR "../oldtedit/")))
     (FILESLOAD (NOERROR FROM LOADUPS)
@@ -2516,8 +2511,7 @@
     (FILESLOAD (NOERROR)
            {OT}OTWHEREIS)
     (PRINTOUT T T "Connected to " (PSEUDOFILENAME (MEDLEYDIR "library/tedit"))
-           T)
-    (DRIBBLE])
+           T])
 )
 (DEFINEQ
 
@@ -2585,33 +2579,33 @@
 (ADDTOVAR LAMA
 )
 )
 (DECLARE%: DONTCOPY
-  (FILEMAP (NIL (5124 7683 (GTO 5134 . 5384) (GTS 5386 . 7157) (GTW 7159 . 7315) (GSEL 7317 . 7681)) (
-7716 8837 (TEST.TEMPLATE 7726 . 8835)) (8838 9773 (TESTACTION 8848 . 9771)) (9798 23613 (IPC 9808 . 
-11312) (ILINES 11314 . 13855) (ISEL 13857 . 14468) (ITS 14470 . 16194) (IPANES 16196 . 16431) (ITL 
-16433 . 16852) (IHIST 16854 . 19516) (IPCTB 19518 . 19944) (IMB 19946 . 20705) (ICL 20707 . 21408) (
-IPL 21410 . 21950) (ICARET 21952 . 22479) (INSPECTPIECES 22481 . 23611)) (23635 52650 (SP 23645 . 
-28760) (SL 28762 . 32764) (SSP 32766 . 34468) (SPF 34470 . 37000) (SLF 37002 . 46135) (SHOWLINE 46137
- . 49808) (SLL 49810 . 50557) (STBYTES 50559 . 52285) (SSEL 52287 . 52648)) (52651 65164 (STL 52661 . 
-61662) (CLEARTHISLINE 61664 . 62144) (CHARSLOTP 62146 . 63465) (\TLVALIDATE 63467 . 65162)) (65165 
-70538 (NTHPIECE 65175 . 66307) (NPIECES 66309 . 67174) (NTHPIECECHAR 67176 . 68484) (SELPIECE 68486 . 
-68928) (PIECENUM 68930 . 69649) (PCBYTES 69651 . 70536)) (70539 73013 (FILEBYTES 70549 . 71973) (
-TFILEBYTES 71975 . 73011)) (73014 74336 (TRELMOVE 73024 . 73267) (TSCROLL 73269 . 73435) (TSCROLL* 
-73437 . 74334)) (74337 77386 (TRY 74347 . 75616) (TEDITCLOSEW 75618 . 75961) (PARALASTWITHOUTEOL 75963
- . 76848) (FIXPARALAST 76850 . 77384)) (77387 92274 (SPPRINT 77397 . 84222) (SPPRINT.CHAR 84224 . 
-85208) (SPPRINT.OBJ 85210 . 88268) (SHOWPIECEBYTES 88270 . 89826) (CHECKPLENGTHS 89828 . 90285) (SBT 
-90287 . 91424) (COPYPCHAIN 91426 . 92272)) (92275 94336 (POSLINE 92285 . 94334)) (94337 95220 (
-PRESPLIT 94347 . 95218)) (95221 96934 (ALLTL 95231 . 96484) (NTHCHARSLOT 96486 . 96932)) (96960 107173
- (PLCHAIN 96970 . 97498) (PRINTLINE 97500 . 100490) (SL.GETLINES 100492 . 103785) (CHECKLINES 103787
- . 104767) (COLLECTLINES 104769 . 105021) (NTHLINE 105023 . 106028) (HEIGHT 106030 . 106318) (LINEBOTS
- 106320 . 107171)) (107174 109622 (IPC.DECODEARGS 107184 . 109620)) (109623 110216 (SPF1 109633 . 
-110214)) (110245 112623 (SLF.FATPLEN 110255 . 111114) (FILEPIECE 111116 . 112621)) (112656 113424 (
-SELTEDIT 112666 . 113422)) (113494 119106 (PPARA 113504 . 113926) (PRUN 113928 . 115404) (
-ADDLINEPOSITIONS 115406 . 116833) (SBR 116835 . 117489) (SBC 117491 . 119104)) (119163 120939 (OLDWI 
-119173 . 119548) (COMP 119550 . 119745) (DFR 119747 . 120937)) (120940 121973 (DFGV 120950 . 121476) (
-GDIRECTORIES 121478 . 121971)) (121974 128539 (TTEST 121984 . 126516) (LTEST 126518 . 127883) (THC 
-127885 . 128537)) (128853 129545 (SHOWSAFE 128863 . 129543)) (129598 130045 (MYH 129608 . 130043)) (
-130290 131385 (DFVENUE 130300 . 131179) (VSEE 131181 . 131383)) (131386 131840 (PTT 131396 . 131838)) 
-(132199 133780 (DEBUGOUTPUT.STREAM 132209 . 133778)) (133781 136256 (TEDIT-DEBUG 133791 . 136254)) (
-136257 136749 (HEXTOHILO 136267 . 136607) (CW 136609 . 136747)) (136750 138486 (TRENAME 136760 . 
-138484)))))
+  (FILEMAP (NIL (5115 7674 (GTO 5125 . 5375) (GTS 5377 . 7148) (GTW 7150 . 7306) (GSEL 7308 . 7672)) (
+7707 8828 (TEST.TEMPLATE 7717 . 8826)) (8829 9764 (TESTACTION 8839 . 9762)) (9789 23604 (IPC 9799 . 
+11303) (ILINES 11305 . 13846) (ISEL 13848 . 14459) (ITS 14461 . 16185) (IPANES 16187 . 16422) (ITL 
+16424 . 16843) (IHIST 16845 . 19507) (IPCTB 19509 . 19935) (IMB 19937 . 20696) (ICL 20698 . 21399) (
+IPL 21401 . 21941) (ICARET 21943 . 22470) (INSPECTPIECES 22472 . 23602)) (23626 52365 (SP 23636 . 
+28751) (SL 28753 . 32588) (SSP 32590 . 34292) (SPF 34294 . 36824) (SLF 36826 . 45959) (SHOWLINE 45961
+ . 49523) (SLL 49525 . 50272) (STBYTES 50274 . 52000) (SSEL 52002 . 52363)) (52366 64879 (STL 52376 . 
+61377) (CLEARTHISLINE 61379 . 61859) (CHARSLOTP 61861 . 63180) (\TLVALIDATE 63182 . 64877)) (64880 
+70253 (NTHPIECE 64890 . 66022) (NPIECES 66024 . 66889) (NTHPIECECHAR 66891 . 68199) (SELPIECE 68201 . 
+68643) (PIECENUM 68645 . 69364) (PCBYTES 69366 . 70251)) (70254 72728 (FILEBYTES 70264 . 71688) (
+TFILEBYTES 71690 . 72726)) (72729 74051 (TRELMOVE 72739 . 72982) (TSCROLL 72984 . 73150) (TSCROLL* 
+73152 . 74049)) (74052 77101 (TRY 74062 . 75331) (TEDITCLOSEW 75333 . 75676) (PARALASTWITHOUTEOL 75678
+ . 76563) (FIXPARALAST 76565 . 77099)) (77102 91989 (SPPRINT 77112 . 83937) (SPPRINT.CHAR 83939 . 
+84923) (SPPRINT.OBJ 84925 . 87983) (SHOWPIECEBYTES 87985 . 89541) (CHECKPLENGTHS 89543 . 90000) (SBT 
+90002 . 91139) (COPYPCHAIN 91141 . 91987)) (91990 94051 (POSLINE 92000 . 94049)) (94052 94935 (
+PRESPLIT 94062 . 94933)) (94936 96649 (ALLTL 94946 . 96199) (NTHCHARSLOT 96201 . 96647)) (96675 106888
+ (PLCHAIN 96685 . 97213) (PRINTLINE 97215 . 100205) (SL.GETLINES 100207 . 103500) (CHECKLINES 103502
+ . 104482) (COLLECTLINES 104484 . 104736) (NTHLINE 104738 . 105743) (HEIGHT 105745 . 106033) (LINEBOTS
+ 106035 . 106886)) (106889 109337 (IPC.DECODEARGS 106899 . 109335)) (109338 109931 (SPF1 109348 . 
+109929)) (109960 112338 (SLF.FATPLEN 109970 . 110829) (FILEPIECE 110831 . 112336)) (112371 113139 (
+SELTEDIT 112381 . 113137)) (113209 118821 (PPARA 113219 . 113641) (PRUN 113643 . 115119) (
+ADDLINEPOSITIONS 115121 . 116548) (SBR 116550 . 117204) (SBC 117206 . 118819)) (118878 120654 (OLDWI 
+118888 . 119263) (COMP 119265 . 119460) (DFR 119462 . 120652)) (120655 121688 (DFGV 120665 . 121191) (
+GDIRECTORIES 121193 . 121686)) (121689 128254 (TTEST 121699 . 126231) (LTEST 126233 . 127598) (THC 
+127600 . 128252)) (128568 129260 (SHOWSAFE 128578 . 129258)) (129313 129760 (MYH 129323 . 129758)) (
+130005 131100 (DFVENUE 130015 . 130894) (VSEE 130896 . 131098)) (131101 131555 (PTT 131111 . 131553)) 
+(131914 133495 (DEBUGOUTPUT.STREAM 131924 . 133493)) (133496 135812 (TEDIT-DEBUG 133506 . 135810)) (
+135813 136305 (HEXTOHILO 135823 . 136163) (CW 136165 . 136303)) (136306 138042 (TRENAME 136316 . 
+138040)))))
 STOP

internal/loadups/LOADUP-APPS

@@ -1,12 +1,13 @@
 (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
 
-
(FILECREATED " 1-Feb-2026 13:45:36" {WMEDLEY}<internal>loadups>LOADUP-APPS.;3
 3343   
+
(FILECREATED " 9-Mar-2025 20:03:27" {DSK}<home>frank>il>medley>internal>loadups>LOADUP-APPS.;10
 3274   
 
-      :EDIT-BY rmk
+      :EDIT-BY "frank"
 
       :CHANGES-TO (FNS LOADUP-APPS)
 
-      :PREVIOUS-DATE " 9-Mar-2025 20:03:27" {WMEDLEY}<internal>loadups>LOADUP-APPS.;2)
+      :PREVIOUS-DATE " 9-Mar-2025 19:42:36" {DSK}<home>frank>il>medley>internal>loadups>LOADUP-APPS.;8
+)
 
 
 (PRETTYCOMPRINT LOADUP-APPSCOMS)
@@ -20,8 +21,7 @@
 (DEFINEQ
 
 (LOADUP-APPS

-  [LAMBDA NIL
                                                (* ; "Edited  1-Feb-2026 13:45 by rmk")


-                                                           (* ; "Edited  9-Mar-2025 20:02 by frank")


+  [LAMBDA NIL
                                              (* ; "Edited  9-Mar-2025 20:02 by frank")


                                                              (* ; "Edited  2-Jan-2025 20:38 by lmm")


                                                            (* ; "Edited  2-Jan-2025 06:30 by larry")

 
@@ -46,7 +46,7 @@
                                  "/system"))
                    NOTECARDS))
     (Apps.RemoveBackgroundMenuItem
 'NoteCards)               (* ; "")

-    (PUTASSOC 'NOTECARDS (LIST (UNIX-GETENV 'NOTECARDS¬COMMIT¬ID))
+    (PUTASSOC 'NOTECARDS (LIST (UNIX-GETENV 'NOTECARDS_COMMIT_ID))
            SYSOUTCOMMITS)
 
     (* ;; "======================")

@@ -78,7 +78,7 @@
 
     (* ;; "")

 
-    (PUTASSOC 'MEDLEY (LIST (UNIX-GETENV 'LOADUP¬COMMIT¬ID))
+    (PUTASSOC 'MEDLEY (LIST (UNIX-GETENV 'LOADUP_COMMIT_ID))
            SYSOUTCOMMITS)
     (PRINTOUT T "commits-- " SYSOUTCOMMITS T])
 
@@ -95,5 +95,5 @@
                                Apps.SBG])
 )
 (DECLARE%: DONTCOPY
-  (FILEMAP (NIL (616 3320 (LOADUP-APPS 626 . 2648) (Apps.RemoveBackgroundMenuItem 2650 . 3318)))))
+  (FILEMAP (NIL (656 3251 (LOADUP-APPS 666 . 2579) (Apps.RemoveBackgroundMenuItem 2581 . 3249)))))
 STOP

internal/loadups/LOADUP-FULL

@@ -1,12 +1,12 @@
 (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
 
-
(FILECREATED " 5-Feb-2026 10:26:39" {WMEDLEY}<internal>loadups>LOADUP-FULL.;36
 5858   
+
(FILECREATED "28-Dec-2025 12:06:12" {WMEDLEY}<internal>loadups>LOADUP-FULL.;35
 5759   
 
       :EDIT-BY rmk
 
       :CHANGES-TO (FNS LOADUP-FULL)
 
-      :PREVIOUS-DATE "28-Dec-2025 12:06:12" {WMEDLEY}<internal>loadups>LOADUP-FULL.;35)
+      :PREVIOUS-DATE "20-Sep-2025 14:18:19" {WMEDLEY}<internal>loadups>LOADUP-FULL.;34)
 
 
 (PRETTYCOMPRINT LOADUP-FULLCOMS)
@@ -47,8 +47,7 @@
     (PRINTOUT T "FULL fonts loaded" T])
 
 (LOADUP-FULL

-  [LAMBDA (DRIBBLEFILE)
                                      (* ; "Edited  5-Feb-2026 10:26 by rmk")


-                                                             (* ; "Edited 28-Dec-2025 12:06 by rmk")


+  [LAMBDA (DRIBBLEFILE)
                                      (* ; "Edited 28-Dec-2025 12:06 by rmk")


                                                              (* ; "Edited  1-Sep-2025 11:59 by rmk")


                                                              (* ; "Edited 18-Aug-2025 12:09 by rmk")


                                                              (* ; "Edited 21-Jun-2025 23:33 by rmk")


@@ -85,9 +84,9 @@
     (* ;; "RMK: 2025:  PRESS was after CHAT")

 
     (LOADUP '(CHAT INTERPRESS TEDIT HRULE TEDIT-CHAT READNUMBER EDITBITMAP FILEBROWSER THINFILES 
-                   GRAPHER SPY WHERE-IS COPYFILES MSANALYZE MSPARSE MASTERSCOPE UNIXPRINT HELPSYS 
-                   DINFO CLIPBOARD MODERNIZE WHEELSCROLL PRETTYFILEINDEX WHO-LINE UNIXCOMM UNIXCHAT 
-                   UNIXYCD))
+                   GRAPHER SPY WHERE-IS COPYFILES MSANALYZE MSPARSE MASTERSCOPE UNIXPRINT ISO8859IO 
+                   HELPSYS DINFO CLIPBOARD MODERNIZE WHEELSCROLL PRETTYFILEINDEX WHO-LINE UNIXCOMM 
+                   UNIXCHAT UNIXYCD))
     (COND
        ((WINDOWP *WHO-LINE*)
         (CLOSEW *WHO-LINE*)))
@@ -102,5 +101,5 @@
 
 (FIXMETA
)
 (DECLARE%: DONTCOPY
-  (FILEMAP (NIL (456 5820 (LOADFULLFONTS 466 . 2601) (LOADUP-FULL 2603 . 5570) (FIXMETA 5572 . 5818)))))
+  (FILEMAP (NIL (456 5721 (LOADFULLFONTS 466 . 2601) (LOADUP-FULL 2603 . 5471) (FIXMETA 5473 . 5719)))))
 STOP

internal/loadups/LOADUP-LISP

@@ -1,13 +1,13 @@
 (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "XCL" BASE 10)
 
-
(FILECREATED "28-Jan-2026 14:30:48" |{DSK}<Users>larry>IL>medley>internal>loadups>LOADUP-LISP.;2|
 7369   
+
(FILECREATED " 3-Feb-2026 11:59:42" 
+|{DSK}<Users>briggs>Projects>medley>internal>loadups>LOADUP-LISP.;12|
 7475   
 
-      :EDIT-BY "lmm"
+      :EDIT-BY |nhb|
 
       :CHANGES-TO (FNS LOADUP-LISP)
 
-      :PREVIOUS-DATE "27-Dec-2025 15:02:04" 
-|{DSK}<Users>larry>IL>medley>internal>loadups>LOADUP-LISP.;1|)
+      :PREVIOUS-DATE "28-Jan-2026 14:30:48" |{DSK}<tmp>new-LOADUP-LISP.;1|)
 
 
 (PRETTYCOMPRINT LOADUP-LISPCOMS)
@@ -20,7 +20,8 @@
 (DEFINEQ
 
 (LOADUP-LISP

-  (LAMBDA (DRIBBLEFILE)
                                     (* \; "Edited 28-Jan-2026 14:30 by lmm")


+  (LAMBDA (DRIBBLEFILE)
                                     (* \; "Edited  3-Feb-2026 11:59 by nhb")


+                                                            (* \; "Edited 28-Jan-2026 14:30 by lmm")


                                                             (* \; "Edited 27-Dec-2025 15:02 by rmk")


                                                             (* \; "Edited 16-Oct-2025 16:55 by rmk")


                                                             (* \; "Edited 18-Aug-2025 12:08 by rmk")


@@ -135,6 +136,7 @@
 
     (LOADUP '(PUP 10MBDRIVER LEAF LLETHER DPUPFTP LOCALFILE DSKDISPLAY COURIER LLNS TRSERVER SPP 
                   NSPRINT AUTHENTICATION BSP CLEARINGHOUSE NSFILING MAIKOETHER))
+    (RESTART.ETHER)
     (DRIBBLE)
     (SETQ MAKESYSNAME :MEDLEY)))
 )
@@ -147,5 +149,5 @@
 (GLOBALVARS MAKESYSFILENAME MEDLEY-INIT-VARS MEDLEYDIR SYSTEMINITVARS USERRECLST)
 )
 (DECLARE\: DONTCOPY
-  (FILEMAP (NIL (675 7163 (LOADUP-LISP 685 . 7161)))))
+  (FILEMAP (NIL (652 7269 (LOADUP-LISP 662 . 7267)))))
 STOP

library/MASTERSCOPE

@@ -1,12 +1,12 @@
 (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
 
-
(FILECREATED "16-Feb-2026 13:34:31" {WMEDLEY}<library>MASTERSCOPE.;41
 197959 
+
(FILECREATED "24-Aug-2025 13:45:51" {WMEDLEY}<library>MASTERSCOPE.;30
 197199 
 
       :EDIT-BY rmk
 
-      :CHANGES-TO (FNS MSOUTPUT)
+      :CHANGES-TO (FNS MSINTERPRET)
 
-      :PREVIOUS-DATE " 8-Feb-2026 22:38:50" {WMEDLEY}<library>MASTERSCOPE.;40)
+      :PREVIOUS-DATE " 5-Apr-2025 11:49:04" {WMEDLEY}<library>MASTERSCOPE.;29)
 
 
 (PRETTYCOMPRINT MASTERSCOPECOMS)
@@ -847,25 +847,34 @@
                                                        (T (CDR (FASSOC Y MSDATABASELST])
 
 (MSSTOREDATA

-  [LAMBDA (FNNAME FNDATA)
                                    (* ; "Edited  8-Feb-2026 18:42 by lmm")

-                                                             (* lmm " 1-JUN-81 23:19")

+  [LAMBDA (FNNAME FNDATA)
                                (* lmm " 1-JUN-81 23:19")

     (PROG [NEWREL (KWN (PARSERELATION
 'KNOWN]
-          (SETQ MSDBEMPTY NIL)                               (* Database for FNNAME about to become 
-
                                                             inconsistant -
-
                                                             mark it as changed)

-          (PUTHASH FNNAME T MSCHANGEDARRAY)
+          (SETQ MSDBEMPTY NIL)
+          
+          (* Database for FNNAME about to become inconsistant -
+
        mark it as changed)

 
-         (* * Now update the database)

+          (PUTHASH FNNAME T MSCHANGEDARRAY)
+          
+          (* * Now update the database)

 
           (for
 TAB in
 MSDATABASELST when
 (AND (NOT (FMEMB (CAR TAB)
-                                                          NODUMPRELATIONS))
-                                              (NEQ (CDDR TAB)
-                                                   T)) do
 (SETQ NEWREL (MSCOLLECTDATA
 (CAR TAB)))
-                                                          (STORETABLE
 FNNAME TAB NEWREL))
+                                                                      NODUMPRELATIONS))
+                                                          (NEQ (CDDR TAB)
+                                                               T)) do
 (SETQ NEWREL
+                                                                           (MSCOLLECTDATA

+                                                                            (CAR TAB)))
+                                                                         (STORETABLE
 FNNAME TAB 
+                                                                                NEWREL))
           [OR (TESTRELATION
 FNNAME KWN)
-              (PUTTABLE FNNAME T (CADR (FASSOC 'UNBOUND MSDATABASELST]
-
-     (* ;; "Table UNBOUND is for those functions which don't do very much.  The idea is that the test that a function has been analyzed is whether it binds variables are calls functions, etc.  However, for those functions which have no such entries, (e.g.  their definition is (LAMBDA NIL NIL)) need to still be able to know that they were.")

+              (PUTTABLE FNNAME T (CADR (FASSOC 'NOBIND MSDATABASELST]
+          
+          (* Table NOBIND is for those functions which don't do very much.
+
        The idea is that the test that a function has been analyzed is whether it 
+
        binds variables are calls functions, etc.
+
        However, for those functions which have no such entries,
+
        (e.g. their definition is (LAMBDA NIL NIL)) need to still be able to know 
+
        that they were.)

 
           (PUTHASH FNNAME NIL MSCHANGEDARRAY])
 
@@ -902,7 +911,7 @@
        ((CALL 25 . 50)
         (BIND 10 . 10)
         [NLAMBDA 10 . 10]
-        (UNBOUND 10)
+        (NOBIND 10)
         (RECORD 20 . 10)
         (CREATE 2 . 2)
         (FETCH 10 . 10)
@@ -1111,10 +1120,9 @@
 (DEFINEQ
 
 (MSVBTABLES

-  [LAMBDA (VERB MOD)
                                         (* ; "Edited  8-Feb-2026 18:44 by lmm")


-                                                             (* ; "Edited 30-Jun-87 10:32 by jrb:")

-
-    (* ;; "The call to MSUSERVBTABLES checks a user hash table to allow extensions.")

+  [LAMBDA (VERB MOD)
                                     (* ; "Edited 30-Jun-87 10:32 by jrb:")

+          
+          (* ;; "The call to MSUSERVBTABLES checks a user hash table to allow extensions.")

 
     [COND
        ((LISTP VERB)
@@ -1151,10 +1159,10 @@
                     (IS (SELECTQ MOD
                             (FIELDS '((FETCH
)
                                       (REPLACE
)))
-                            (FNS '(CALL UNBOUND REF (CALL)
+                            (FNS '(CALL NOBIND REF (CALL)
                                         (APPLY)))
-                            (KNOWN '(CALL UNBOUND REF))
-                            (NIL '(CALL UNBOUND REF (CALL)
+                            (KNOWN '(CALL NOBIND REF))
+                            (NIL '(CALL NOBIND REF (CALL)
                                         (BIND
)
                                         (REFFREE)
                                         (REF)
@@ -1184,7 +1192,7 @@
                             (TYPE '((0)))
                             NIL))
                     (KNOWN (SELECTQ MOD
-                               (NIL '(CALL UNBOUND REF))
+                               (NIL '(CALL NOBIND REF))
                                NIL))
                     (PROG (SELECTQ MOD
                               (NIL 'PROG)
@@ -1250,20 +1258,23 @@
 (DEFINEQ
 
 (BUILDGETRELQ

-  [LAMBDA (X)
                                                (* ; "Edited  8-Feb-2026 19:24 by lmm")


-                                                             (* ; "Edited 16-Jun-87 12:36 by jrb:")

+  [LAMBDA (X)
                                            (* ; "Edited 16-Jun-87 12:36 by jrb:")

+
     (PROG ([VAR (COND
                    ((LITATOM (CADR X))
                     (CADR X))
                    (T '$$1]
            FORM F1)
-          [for
 REL in
 (MSVBTABLES
 (CAR X)) do
 [SETQ F1 `(GETTABLE ,VAR (,(CL:IF (CL:THIRD X)
-                                                                             'CDDR
-                                                                             'CADR)
-                                                                        (FASSOC ',REL MSDATABASELST]
-                                              (SETQ FORM (COND
-                                                            (FORM (LIST 'UNION F1 FORM))
-                                                            (T F1]
+          [for
 REL in
 (MSVBTABLES
 (CAR X))
+             do
 [SETQ F1 (LIST 'GETTABLE VAR (LIST (COND
+                                                          ((CADDR X)
+                                                           'CDDR)
+                                                          (T 'CADR))
+                                                       (LIST 'FASSOC (KWOTE REL)
+                                                             'MSDATABASELST]
+                   (SETQ FORM (COND
+                                 (FORM (LIST 'UNION F1 FORM))
+                                 (T F1]
           (RETURN (COND
                      ((EQ VAR (CADR X))
                       FORM)
@@ -2566,7 +2577,7 @@
 (* ; "interactive routines")

 
 
-(RPAQ MASTERSCOPEDATE
 "16-Feb-2026")
+(RPAQ MASTERSCOPEDATE
 "24-Aug-2025")
 
 (ADDTOVAR HISTORYCOMS
 %.)
 (DEFINEQ
@@ -2605,14 +2616,15 @@
           (GO ERLP])
 
 (MASTERSCOPEXEC

-  [LAMBDA (X LINE)
                                           (* ; "Edited  8-Feb-2026 18:46 by lmm")


-                                                             (* ; "Edited 17-Jun-87 16:57 by jrb:")

-                                                             (* Called via the LISPX in MASTERSCOPE)

+  [LAMBDA (X LINE)
                                       (* ; "Edited 17-Jun-87 16:57 by jrb:")

+                                                             (* Called via the LISPX in 
+
                                                           MASTERSCOPE)

                                                              (* ; 
-
                                                           "Merged from smL Loops Masterscope by JRB")

+
                                                         "Merged from smL Loops Masterscope by JRB")

+
     (PROG (MASTERSCOPECOMMAND)
           (AND [OR [COND
-                      ((NULL LINE)                           (* ; "Single entry on line")

+                      ((NULL LINE)                           (* Single entry on line)

                        (OR (NOT (LITATOM X))
                            (OR (NEQ (EVALV X)
                                     'NOBIND)
@@ -2621,14 +2633,17 @@
                         (FGETD X)
                         (LISTP LINE)
                         (OR [COND
-                               ((NULL (CDR LINE))            (* ; 
-
                                                             "'EDITF ] ' OR SETQ (A B) TYPE ENTRY")

+                               ((NULL (CDR LINE))            (* "EDITF ] " OR SETQ
+
                                                           (A B) TYPE ENTRY)

                                 (OR (NULL (CAR LINE))
                                     (LISTP (CAR LINE]
                             (EQ (ARGTYPE X)
                                 3]
-               (RETURN))                                     (* ; 
-
                  "If MASTERSCOPEXEC returns NIL, then LISPX will handle the event as a normal typin")

+               (RETURN))
+          
+          (* If MASTERSCOPEXEC returns NIL, then LISPX will handle the event as a 
+
        normal typin)

+
           (SETQ MASTERSCOPECOMMAND (CONS X LINE))
           (SELECTQ (CAR MASTERSCOPECOMMAND)
               ((OK STOP BYE ok stop) 
@@ -2636,8 +2651,11 @@
               NIL)
       LISPXVALUE
           [AND (LISTP LISPXHIST)
-               (FRPLACA LISPXHIST (CONS '%. (CAR LISPXHIST]  (* ; 
-
                                                       "Make sure the event shows up with a .  in it")

+               (FRPLACA LISPXHIST (CONS '%. (CAR LISPXHIST]
+          
+          (* Make sure the event shows up with a %.
+
        in it)

+
           (SETQ LISPXVALUE (MSINTERPRET
 MASTERSCOPECOMMAND))
           (RETURN T])
 )
@@ -3498,17 +3516,13 @@
                      (ERROR!])
 
 (MSOUTPUT

-  [LAMBDA (FILE)
                                             (* ; "Edited 16-Feb-2026 13:34 by rmk")


-                                                             (* ; "Edited  5-Feb-2026 01:01 by rmk")


-                                                             (* ; "Edited 18-Nov-2025 14:01 by rmk")


-                                                             (* ; "Edited  8-Nov-2025 23:21 by rmk")


-                                                             (* ; "Edited  5-Apr-2025 11:48 by rmk")


+  [LAMBDA (FILE)
                                             (* ; "Edited  5-Apr-2025 11:48 by rmk")


                                                              (* ; "Edited 14-Jul-2024 08:41 by rmk")


                                                              (* ; "Edited  5-Jul-2024 11:54 by rmk")


                                                           (* ; "Edited 12-Jun-90 20:43 by teruuchi")

     (LET ((LLENGTH FILELINELENGTH))
          [COND
-            [(AND (LITATOM FILE)
+            ((AND (LITATOM FILE)
                   (MEMB (U-CASE FILE)
                         '(TEDIT :TEDIT))
                   (GETD (FUNCTION TEDIT)))
@@ -3516,14 +3530,12 @@
              (* ;; 
 
      "If no TEDIT, leave the current OUTPUT.  The readtable for seprs etc is the current readtable.")

 
-             [SETQ FILE (OPENTEXTSTREAM NIL NIL `(FONT ,DEFAULTFONT BOUNDTABLE ,(
-                                                                            TEDIT.ATOMBOUND.READTABLE
-                                                                                 ]
+             [SETQ FILE (TEXTSTREAM (TEDIT NIL 'Masterscope NIL `(LEAVETTY T TITLE Masterscope FONT
+                                                                        ,DEFAULTFONT BOUNDTABLE
+                                                                        ,(TEDIT.ATOMBOUND.READTABLE]
              (SETQ LLENGTH T)
-             (RESETSAVE NIL `(PROGN (CL:UNLESS RESETSTATE
-                                        (TEDIT ,FILE 'Masterscope NIL
-                                               '(TITLE Masterscope READONLY QUIET LEAVETTY T)))
-                                    (CLOSEF? ,FILE]
+             (TEDIT.DEFER.UPDATES FILE '(READONLY QUIET))
+             (RESETSAVE NIL (LIST 'CLOSEF FILE)))
             ((OPENP FILE 'OUTPUT))
             (T (SETQ FILE (OPENSTREAM FILE 'OUTPUT))
                (RESETSAVE NIL (LIST 'CLOSEF FILE]
@@ -3730,36 +3742,36 @@
 (ADDTOVAR LAMA
 MSEDITE MSEDITF)
 )
 (DECLARE%: DONTCOPY
-  (FILEMAP (NIL (3260 19507 (UPDATEFN 3270 . 4887) (MSGETDEF 4889 . 6295) (MSNOTICEFILE 6297 . 8690) (
-MSSHOWUSE 8692 . 14673) (MSUPDATEFN1 14675 . 15363) (MSUPDATE 15365 . 17791) (MSNLAMBDACHECK 17793 . 
-18675) (MSCOLLECTDATA 18677 . 19505)) (19508 20407 (UPDATECHANGED 19518 . 19881) (UPDATECHANGED1 19883
- . 20405)) (20981 21404 (MSCLOSEFILES 20991 . 21402)) (22085 26517 (MSDESCRIBE 22095 . 24883) (
-MSDESCRIBE1 24885 . 25948) (FMAPRINT 25950 . 26515)) (26610 27050 (MSPRINTHELPFILE 26620 . 27048)) (
-27100 30238 (TEMPLATE 27110 . 28531) (GETTEMPLATE 28533 . 28668) (SETTEMPLATE 28670 . 30236)) (31108 
-36032 (ADDTEMPLATEWORD 31118 . 31790) (MSADDANALYZE 31792 . 33290) (MSADDMODIFIER 33292 . 34373) (
-MSADDRELATION 34375 . 35122) (MSADDTYPE 35124 . 36030)) (37533 42629 (MSMARKCHANGE1 37543 . 38337) (
-MSINIT 38339 . 39520) (GETVERBTABLES 39522 . 40075) (MSSTOREDATA 40077 . 41631) (STORETABLE 41633 . 
-42627)) (44031 49101 (PARSERELATION 44041 . 44641) (PARSERELATION1 44643 . 46098) (GETRELATION 46100
- . 47129) (MAPRELATION 47131 . 48265) (TESTRELATION 48267 . 49099)) (49102 50742 (ADDHASH 49112 . 
-49590) (SUBHASH 49592 . 49820) (MAKEHASH 49822 . 49966) (MSREHASH 49968 . 50421) (EQMEMBHASH 50423 . 
-50740)) (51081 57397 (MSVBTABLES 51091 . 56971) (MSUSERVBTABLES 56973 . 57395)) (57480 59783 (
-BUILDGETRELQ 57490 . 58688) (BUILDTESTRELQ 58690 . 59781)) (59954 60342 (MSERASE 59964 . 60340)) (
-60343 64803 (DUMPDATABASE 60353 . 62918) (DUMPDATABASE1 62920 . 63265) (READATABASE 63267 . 64801)) (
-65885 94944 (MSCHECKBLOCKS 65895 . 69715) (MSCHECKBLOCK 69717 . 78337) (MSCHECKFNINBLOCK 78339 . 81339
-) (MSCHECKBLOCKBASIC 81341 . 83761) (MSCHECKBOUNDFREE 83763 . 85662) (GLOBALVARP 85664 . 85831) (
-PRINTERROR 85833 . 89049) (MSCHECKVARS1 89051 . 92004) (UNECCSPEC 92006 . 92284) (NECCSPEC 92286 . 
-92633) (SPECVARP 92635 . 93162) (SHORTLST 93164 . 93620) (DOERROR 93622 . 94332) (MSMSGPRINT 94334 . 
-94942)) (96088 110916 (MSPATHS 96098 . 99500) (MSPATHS1 99502 . 103737) (MSPATHS2 103739 . 107149) (
-MSONPATH 107151 . 108379) (MSPATHS4 108381 . 109463) (DASHES 109465 . 109991) (DOTABS 109993 . 110234)
- (BELOWMARKER 110236 . 110699) (MSPATHSPRINTFN 110701 . 110914)) (111302 114726 (MSFIND 111312 . 
-111587) (MSEDITF 111589 . 112589) (MSEDITE 112591 . 113628) (EDITGETDEF 113630 . 114724)) (115668 
-124269 (MSMARKCHANGED 115678 . 117402) (CHANGEMACRO 117404 . 118109) (CHANGEVAR 118111 . 118427) (
-CHANGEI.S. 118429 . 119762) (CHANGERECORD 119764 . 120635) (MSNEEDUNSAVE 120637 . 121629) (UNSAVEFNS 
-121631 . 124267)) (124702 128312 (%. 124712 . 124852) (MASTERSCOPE 124854 . 125380) (MASTERSCOPE1 
-125382 . 126250) (MASTERSCOPEXEC 126252 . 128310)) (128351 168001 (MSINTERPRETSET 128361 . 156895) (
-MSINTERPA 156897 . 157431) (MSGETBLOCKDEC 157433 . 159946) (LISTHARD 159948 . 161166) (MSMEMBSET 
-161168 . 161313) (MSLISTSET 161315 . 161680) (MSHASHLIST 161682 . 161849) (MSHASHLIST1 161851 . 162177
-) (CHECKPATHS 162179 . 162819) (ONFILE 162821 . 167999)) (168002 192137 (MSINTERPRET 168012 . 184067) 
-(VERBNOTICELIST 184069 . 185179) (MSOUTPUT 185181 . 187265) (MSCHECKEMPTY 187267 . 188471) (
-CHECKFORCHANGED 188473 . 188993) (MSSOLVE 188995 . 192135)))))
+  (FILEMAP (NIL (3263 19510 (UPDATEFN 3273 . 4890) (MSGETDEF 4892 . 6298) (MSNOTICEFILE 6300 . 8693) (
+MSSHOWUSE 8695 . 14676) (MSUPDATEFN1 14678 . 15366) (MSUPDATE 15368 . 17794) (MSNLAMBDACHECK 17796 . 
+18678) (MSCOLLECTDATA 18680 . 19508)) (19511 20410 (UPDATECHANGED 19521 . 19884) (UPDATECHANGED1 19886
+ . 20408)) (20984 21407 (MSCLOSEFILES 20994 . 21405)) (22088 26520 (MSDESCRIBE 22098 . 24886) (
+MSDESCRIBE1 24888 . 25951) (FMAPRINT 25953 . 26518)) (26613 27053 (MSPRINTHELPFILE 26623 . 27051)) (
+27103 30241 (TEMPLATE 27113 . 28534) (GETTEMPLATE 28536 . 28671) (SETTEMPLATE 28673 . 30239)) (31111 
+36035 (ADDTEMPLATEWORD 31121 . 31793) (MSADDANALYZE 31795 . 33293) (MSADDMODIFIER 33295 . 34376) (
+MSADDRELATION 34378 . 35125) (MSADDTYPE 35127 . 36033)) (37536 42757 (MSMARKCHANGE1 37546 . 38340) (
+MSINIT 38342 . 39523) (GETVERBTABLES 39525 . 40078) (MSSTOREDATA 40080 . 41759) (STORETABLE 41761 . 
+42755)) (44158 49228 (PARSERELATION 44168 . 44768) (PARSERELATION1 44770 . 46225) (GETRELATION 46227
+ . 47256) (MAPRELATION 47258 . 48392) (TESTRELATION 48394 . 49226)) (49229 50869 (ADDHASH 49239 . 
+49717) (SUBHASH 49719 . 49947) (MAKEHASH 49949 . 50093) (MSREHASH 50095 . 50548) (EQMEMBHASH 50550 . 
+50867)) (51208 57423 (MSVBTABLES 51218 . 56997) (MSUSERVBTABLES 56999 . 57421)) (57506 59717 (
+BUILDGETRELQ 57516 . 58622) (BUILDTESTRELQ 58624 . 59715)) (59888 60276 (MSERASE 59898 . 60274)) (
+60277 64737 (DUMPDATABASE 60287 . 62852) (DUMPDATABASE1 62854 . 63199) (READATABASE 63201 . 64735)) (
+65819 94878 (MSCHECKBLOCKS 65829 . 69649) (MSCHECKBLOCK 69651 . 78271) (MSCHECKFNINBLOCK 78273 . 81273
+) (MSCHECKBLOCKBASIC 81275 . 83695) (MSCHECKBOUNDFREE 83697 . 85596) (GLOBALVARP 85598 . 85765) (
+PRINTERROR 85767 . 88983) (MSCHECKVARS1 88985 . 91938) (UNECCSPEC 91940 . 92218) (NECCSPEC 92220 . 
+92567) (SPECVARP 92569 . 93096) (SHORTLST 93098 . 93554) (DOERROR 93556 . 94266) (MSMSGPRINT 94268 . 
+94876)) (96022 110850 (MSPATHS 96032 . 99434) (MSPATHS1 99436 . 103671) (MSPATHS2 103673 . 107083) (
+MSONPATH 107085 . 108313) (MSPATHS4 108315 . 109397) (DASHES 109399 . 109925) (DOTABS 109927 . 110168)
+ (BELOWMARKER 110170 . 110633) (MSPATHSPRINTFN 110635 . 110848)) (111236 114660 (MSFIND 111246 . 
+111521) (MSEDITF 111523 . 112523) (MSEDITE 112525 . 113562) (EDITGETDEF 113564 . 114658)) (115602 
+124203 (MSMARKCHANGED 115612 . 117336) (CHANGEMACRO 117338 . 118043) (CHANGEVAR 118045 . 118361) (
+CHANGEI.S. 118363 . 119696) (CHANGERECORD 119698 . 120569) (MSNEEDUNSAVE 120571 . 121563) (UNSAVEFNS 
+121565 . 124201)) (124636 128126 (%. 124646 . 124786) (MASTERSCOPE 124788 . 125314) (MASTERSCOPE1 
+125316 . 126184) (MASTERSCOPEXEC 126186 . 128124)) (128165 167815 (MSINTERPRETSET 128175 . 156709) (
+MSINTERPA 156711 . 157245) (MSGETBLOCKDEC 157247 . 159760) (LISTHARD 159762 . 160980) (MSMEMBSET 
+160982 . 161127) (MSLISTSET 161129 . 161494) (MSHASHLIST 161496 . 161663) (MSHASHLIST1 161665 . 161991
+) (CHECKPATHS 161993 . 162633) (ONFILE 162635 . 167813)) (167816 191377 (MSINTERPRET 167826 . 183881) 
+(VERBNOTICELIST 183883 . 184993) (MSOUTPUT 184995 . 186505) (MSCHECKEMPTY 186507 . 187711) (
+CHECKFORCHANGED 187713 . 188233) (MSSOLVE 188235 . 191375)))))
 STOP

library/POSTSCRIPTSTREAM

@@ -1,13 +1,13 @@
 (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
 
-
(FILECREATED "12-Feb-2026 12:19:03" {DSK}<home>matt>Interlisp>medley>library>POSTSCRIPTSTREAM.;6
 258522 
+
(FILECREATED "27-Jan-2026 17:57:49" {DSK}<home>matt>Interlisp>medley>library>POSTSCRIPTSTREAM.;4
 258423 
 
       :EDIT-BY "mth"
 
-      :CHANGES-TO (FNS PSCFONT.READFONT)
+      :CHANGES-TO (FNS POSTSCRIPT.STARTPAGE)
 
-      :PREVIOUS-DATE "27-Jan-2026 17:57:49" 
-{DSK}<home>matt>Interlisp>medley>library>POSTSCRIPTSTREAM.;5)
+      :PREVIOUS-DATE "27-Jan-2026 13:15:17" 
+{DSK}<home>matt>Interlisp>medley>library>POSTSCRIPTSTREAM.;3)
 
 
 (PRETTYCOMPRINT POSTSCRIPTSTREAMCOMS)
@@ -574,24 +574,22 @@
 (DEFINEQ
 
 (PSCFONT.READFONT

-  [LAMBDA (FONTFILENAME)
                                     (* ; "Edited 12-Feb-2026 12:01 by mth")


-                                                             (* ; "Edited  5-Oct-93 17:19 by rmk:")


-                                                             (* ; "Edited  1-Sep-89 10:55 by jds")

+  [LAMBDA (FONTFILENAME)
                                 (* ; "Edited  5-Oct-93 17:19 by rmk:")

+                                                             (* ; "Edited  1-Sep-89 10:55 by jds")

 
-    (* ;; "Read one of Matt Heffron's .PSC files, to get postscript font metrics.  First check to see if incore cache has information indexed under the file's name.")

+    (* ;; "Read one of Matt Heffron's .PSC files, to get postscript font metrics.  First check to see if incore cache as information indexed under the file's name.")

 
     (LET (FID W [S (OPENSTREAM FONTFILENAME 'INPUT NIL '((SEQUENTIAL T]
-              (PF (create
 PSCFONT))
-              (*PACKAGE* (CL:FIND-PACKAGE "INTERLISP")))
+              (PF (create
 PSCFONT)))
          [replace
 (PSCFONT FID) of
 PF with
 (SETQ FID (READ S (FIND-READTABLE "INTERLISP"]
 
-         (* ;; "Read until we hit a 255 byte, marking the end of the font-id section.")

+         (* ;; "Read until we hit a 255 byte, marking the end of the font-id section.")

 
          (CL:DO NIL
                 ((EQ (BIN S)
                      255))
 
-             (* ;; "Body of the loop is empty, the test does all of the work")

+             (* ;; "Body of the loop is empty, the test does all of the work")

 
              )
          (replace
 (PSCFONT IL-FONTID) of
 PF with
 (CAR FID))
@@ -603,12 +601,13 @@
          (for
 C from
 0 to
 255 do
 (SETA W C (\WIN S)))
          (CLOSEF S)
 
-         (* ;; 
-
       "PATCH JDS 9/1/89:  The afm font reader made fonts too tall.  This should fix things pro tem.")

+         (* ;; 
+
     "PATCH JDS 9/1/89:  The afm font reader made fonts too tall.  This should fix things pro tem.")

 
-         (replace
 (PSCFONT ASCENT) of
 PF with
 (- 1000 (fetch
 (PSCFONT DESCENT) OF
 PF)))
+         (replace
 (PSCFONT ASCENT) of
 PF with
 (- 1000 (fetch
 (PSCFONT DESCENT)
+                                                                     OF
 PF)))
          (PUSH
 POSTSCRIPTFONTCACHE (CONS (L-CASE (FILENAMEFIELD FONTFILENAME 'NAME))
-                                         (CREATE
 PSCFONT USING
 PF)))
+                                             (CREATE
 PSCFONT USING
 PF)))
          PF])
 
 (PSCFONT.SPELLFILE

@@ -4393,37 +4392,37 @@
 (ADDTOVAR LAMA
 POSTSCRIPT.PUTCOMMAND)
 )
 (DECLARE%: DONTCOPY
-  (FILEMAP (NIL (22366 32685 (POSTSCRIPT.INIT 22376 . 29291) (POSTSCRIPT.PUTRGBCOLOR 29293 . 30315) (
-\PSC.COLOR.TO.RGB 30317 . 32683)) (33671 69196 (PSCFONT.READFONT 33681 . 35692) (PSCFONT.SPELLFILE 
-35694 . 36507) (PSCFONT.COERCEFILE 36509 . 38081) (PSCFONTFROMCACHE.SPELLFILE 38083 . 39068) (
-PSCFONTFROMCACHE.COERCEFILE 39070 . 40722) (PSCFONT.WRITEFONT 40724 . 41739) (READ-AFM-FILE 41741 . 
-47612) (CONVERT-AFM-FILES 47614 . 48826) (POSTSCRIPT.GETFONTID 48828 . 50223) (POSTSCRIPT.FONTCREATE 
-50225 . 63119) (\POSTSCRIPT.SPECIALFONT.SCALEDWIDTHS 63121 . 65518) (POSTSCRIPT.FONTSAVAILABLE 65520
- . 67807) (POSTSCRIPT.FONTEXISTS? 67809 . 69194)) (69197 79106 (OPENPOSTSCRIPTSTREAM 69207 . 78772) (
-CLOSEPOSTSCRIPTSTREAM 78774 . 79104)) (79151 85477 (POSTSCRIPT.HARDCOPYW 79161 . 82268) (
-POSTSCRIPT.TEDIT 82270 . 82722) (POSTSCRIPTFILEP 82724 . 84212) (MAKEEPSFILE 84214 . 85475)) (85478 
-129222 (POSTSCRIPT.BITMAPSCALE 85488 . 87944) (POSTSCRIPT.CLOSESTRING 87946 . 88499) (
-POSTSCRIPT.ENDPAGE 88501 . 89392) (POSTSCRIPT.OUTSTR 89394 . 90611) (POSTSCRIPT.PUTBITMAPBYTES 90613
- . 99084) (POSTSCRIPT.PUTCOMMAND 99086 . 100075) (POSTSCRIPT.SET-FAKE-LANDSCAPE 100077 . 104597) (
-POSTSCRIPT.SHOWACCUM 104599 . 106754) (POSTSCRIPT.STARTPAGE 106756 . 109458) (\POSTSCRIPTTAB 109460 . 
-110257) (\PS.BOUTFIXP 110259 . 111539) (\PS.SCALEHACK 111541 . 114184) (\PS.SCALEREGION 114186 . 
-114746) (\SCALEDBITBLT.PSC 114748 . 119058) (\SETPOS.PSC 119060 . 119541) (\SETXFORM.PSC 119543 . 
-122127) (\STRINGWIDTH.PSC 122129 . 122602) (\SWITCHFONTS.PSC 122604 . 128096) (\TERPRI.PSC 128098 . 
-129220)) (129257 183113 (\BITBLT.PSC 129267 . 129819) (\BLTSHADE.PSC 129821 . 134482) (\CHARWIDTH.PSC 
-134484 . 134991) (\CREATECHARSET.PSC 134993 . 136349) (\DRAWARC.PSC 136351 . 138729) (\DRAWCIRCLE.PSC 
-138731 . 140982) (\DRAWCURVE.PSC 140984 . 144828) (\DRAWELLIPSE.PSC 144830 . 147194) (\DRAWLINE.PSC 
-147196 . 149936) (\DRAWPOINT.PSC 149938 . 150514) (\DRAWPOLYGON.PSC 150516 . 153645) (
-\DSPBOTTOMMARGIN.PSC 153647 . 154334) (\DSPCLIPPINGREGION.PSC 154336 . 155711) (\DSPCOLOR.PSC 155713
- . 156644) (\DSPFONT.PSC 156646 . 160283) (\DSPLEFTMARGIN.PSC 160285 . 160971) (\DSPLINEFEED.PSC 
-160973 . 161563) (\DSPPUSHSTATE.PSC 161565 . 163025) (\DSPPOPSTATE.PSC 163027 . 166512) (\DSPRESET.PSC
- 166514 . 167179) (\DSPRIGHTMARGIN.PSC 167181 . 167870) (\DSPROTATE.PSC 167872 . 168871) (
-\DSPSCALE.PSC 168873 . 169825) (\DSPSCALE2.PSC 169827 . 170667) (\DSPSPACEFACTOR.PSC 170669 . 171590) 
-(\DSPTOPMARGIN.PSC 171592 . 172163) (\DSPTRANSLATE.PSC 172165 . 174196) (\DSPXPOSITION.PSC 174198 . 
-174762) (\DSPYPOSITION.PSC 174764 . 175355) (\FILLCIRCLE.PSC 175357 . 177582) (\FILLPOLYGON.PSC 177584
- . 180821) (\FIXLINELENGTH.PSC 180823 . 182142) (\MOVETO.PSC 182144 . 182914) (\NEWPAGE.PSC 182916 . 
-183111)) (183169 205315 (\POSTSCRIPT.CHANGECHARSET 183179 . 183897) (\POSTSCRIPT.OUTCHARFN 183899 . 
-196169) (\POSTSCRIPT.PRINTSLUG 196171 . 197895) (\POSTSCRIPT.SPECIALOUTCHARFN 197897 . 200248) (
-\UPDATE.PSC 200250 . 201496) (\POSTSCRIPT.ACCENTFN 201498 . 202440) (\POSTSCRIPT.ACCENTPAIR 202442 . 
-205313)) (205413 207058 (\PSC.SPACEDISP 205423 . 205702) (\PSC.SPACEWID 205704 . 206323) (\PSC.SYMBOLS
- 206325 . 207056)) (207167 210158 (\POSTSCRIPT.NSHASH 207177 . 210156)))))
+  (FILEMAP (NIL (22370 32689 (POSTSCRIPT.INIT 22380 . 29295) (POSTSCRIPT.PUTRGBCOLOR 29297 . 30319) (
+\PSC.COLOR.TO.RGB 30321 . 32687)) (33675 69097 (PSCFONT.READFONT 33685 . 35593) (PSCFONT.SPELLFILE 
+35595 . 36408) (PSCFONT.COERCEFILE 36410 . 37982) (PSCFONTFROMCACHE.SPELLFILE 37984 . 38969) (
+PSCFONTFROMCACHE.COERCEFILE 38971 . 40623) (PSCFONT.WRITEFONT 40625 . 41640) (READ-AFM-FILE 41642 . 
+47513) (CONVERT-AFM-FILES 47515 . 48727) (POSTSCRIPT.GETFONTID 48729 . 50124) (POSTSCRIPT.FONTCREATE 
+50126 . 63020) (\POSTSCRIPT.SPECIALFONT.SCALEDWIDTHS 63022 . 65419) (POSTSCRIPT.FONTSAVAILABLE 65421
+ . 67708) (POSTSCRIPT.FONTEXISTS? 67710 . 69095)) (69098 79007 (OPENPOSTSCRIPTSTREAM 69108 . 78673) (
+CLOSEPOSTSCRIPTSTREAM 78675 . 79005)) (79052 85378 (POSTSCRIPT.HARDCOPYW 79062 . 82169) (
+POSTSCRIPT.TEDIT 82171 . 82623) (POSTSCRIPTFILEP 82625 . 84113) (MAKEEPSFILE 84115 . 85376)) (85379 
+129123 (POSTSCRIPT.BITMAPSCALE 85389 . 87845) (POSTSCRIPT.CLOSESTRING 87847 . 88400) (
+POSTSCRIPT.ENDPAGE 88402 . 89293) (POSTSCRIPT.OUTSTR 89295 . 90512) (POSTSCRIPT.PUTBITMAPBYTES 90514
+ . 98985) (POSTSCRIPT.PUTCOMMAND 98987 . 99976) (POSTSCRIPT.SET-FAKE-LANDSCAPE 99978 . 104498) (
+POSTSCRIPT.SHOWACCUM 104500 . 106655) (POSTSCRIPT.STARTPAGE 106657 . 109359) (\POSTSCRIPTTAB 109361 . 
+110158) (\PS.BOUTFIXP 110160 . 111440) (\PS.SCALEHACK 111442 . 114085) (\PS.SCALEREGION 114087 . 
+114647) (\SCALEDBITBLT.PSC 114649 . 118959) (\SETPOS.PSC 118961 . 119442) (\SETXFORM.PSC 119444 . 
+122028) (\STRINGWIDTH.PSC 122030 . 122503) (\SWITCHFONTS.PSC 122505 . 127997) (\TERPRI.PSC 127999 . 
+129121)) (129158 183014 (\BITBLT.PSC 129168 . 129720) (\BLTSHADE.PSC 129722 . 134383) (\CHARWIDTH.PSC 
+134385 . 134892) (\CREATECHARSET.PSC 134894 . 136250) (\DRAWARC.PSC 136252 . 138630) (\DRAWCIRCLE.PSC 
+138632 . 140883) (\DRAWCURVE.PSC 140885 . 144729) (\DRAWELLIPSE.PSC 144731 . 147095) (\DRAWLINE.PSC 
+147097 . 149837) (\DRAWPOINT.PSC 149839 . 150415) (\DRAWPOLYGON.PSC 150417 . 153546) (
+\DSPBOTTOMMARGIN.PSC 153548 . 154235) (\DSPCLIPPINGREGION.PSC 154237 . 155612) (\DSPCOLOR.PSC 155614
+ . 156545) (\DSPFONT.PSC 156547 . 160184) (\DSPLEFTMARGIN.PSC 160186 . 160872) (\DSPLINEFEED.PSC 
+160874 . 161464) (\DSPPUSHSTATE.PSC 161466 . 162926) (\DSPPOPSTATE.PSC 162928 . 166413) (\DSPRESET.PSC
+ 166415 . 167080) (\DSPRIGHTMARGIN.PSC 167082 . 167771) (\DSPROTATE.PSC 167773 . 168772) (
+\DSPSCALE.PSC 168774 . 169726) (\DSPSCALE2.PSC 169728 . 170568) (\DSPSPACEFACTOR.PSC 170570 . 171491) 
+(\DSPTOPMARGIN.PSC 171493 . 172064) (\DSPTRANSLATE.PSC 172066 . 174097) (\DSPXPOSITION.PSC 174099 . 
+174663) (\DSPYPOSITION.PSC 174665 . 175256) (\FILLCIRCLE.PSC 175258 . 177483) (\FILLPOLYGON.PSC 177485
+ . 180722) (\FIXLINELENGTH.PSC 180724 . 182043) (\MOVETO.PSC 182045 . 182815) (\NEWPAGE.PSC 182817 . 
+183012)) (183070 205216 (\POSTSCRIPT.CHANGECHARSET 183080 . 183798) (\POSTSCRIPT.OUTCHARFN 183800 . 
+196070) (\POSTSCRIPT.PRINTSLUG 196072 . 197796) (\POSTSCRIPT.SPECIALOUTCHARFN 197798 . 200149) (
+\UPDATE.PSC 200151 . 201397) (\POSTSCRIPT.ACCENTFN 201399 . 202341) (\POSTSCRIPT.ACCENTPAIR 202343 . 
+205214)) (205314 206959 (\PSC.SPACEDISP 205324 . 205603) (\PSC.SPACEWID 205605 . 206224) (\PSC.SYMBOLS
+ 206226 . 206957)) (207068 210059 (\POSTSCRIPT.NSHASH 207078 . 210057)))))
 STOP

library/UNICODE

@@ -1,12 +1,14 @@
 (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
 
-
(FILECREATED " 5-Feb-2026 11:07:12" {WMEDLEY}<library>UNICODE.;213
 82607  
+
(FILECREATED "23-Oct-2025 08:31:21" {WMEDLEY}<library>UNICODE.;211
 82245  
 
       :EDIT-BY rmk
 
-      :CHANGES-TO (FNS MAKE-UNICODE-FORMATS)
+      :CHANGES-TO (FNS UTOMCODE UTF8.INCCODEFN UTOMCODE? UTF8.PEEKCCODEFN)
+                  (VARS UNICODECOMS)
+                  (MACROS UNICODE.SMALLP)
 
-      :PREVIOUS-DATE "31-Jan-2026 19:24:45" {WMEDLEY}<library>UNICODE.;212)
+      :PREVIOUS-DATE "22-Oct-2025 23:28:51" {WMEDLEY}<library>UNICODE.;210)
 
 
 (PRETTYCOMPRINT UNICODECOMS)
@@ -588,8 +590,7 @@
 (DEFINEQ
 
 (MAKE-UNICODE-FORMATS

-  [LAMBDA (EXTERNALEOL)
                                      (* ; "Edited  5-Feb-2026 11:06 by rmk")


-                                                             (* ; "Edited 17-Jan-2025 18:38 by rmk")


+  [LAMBDA (EXTERNALEOL)
                                      (* ; "Edited 17-Jan-2025 18:38 by rmk")


                                                              (* ; "Edited 10-Mar-2024 11:55 by rmk")


                                                              (* ; "Edited  8-Dec-2023 15:19 by rmk")


                                                              (* ; "Edited 19-Jul-2022 15:36 by rmk")


@@ -603,10 +604,7 @@
            (FUNCTION UTF8.PEEKCCODEFN)
            (FUNCTION \UTF8.BACKCCODEFN)
            (FUNCTION UTF8.OUTCHARFN)
-           NIL EXTERNALEOL NIL (FUNCTION MTOUTF8STRING)
-           NIL
-           (FUNCTION NILL)
-           (FUNCTION UTF8TOMSTRING))
+           NIL EXTERNALEOL NIL NIL NIL (FUNCTION NILL))
     (MAKE-EXTERNALFORMAT :UTF-8-RAW [FUNCTION (LAMBDA (STREAM COUNTP)
                                                 (UTF8.INCCODEFN
 STREAM COUNTP T]
            [FUNCTION (LAMBDA (STREAM NOERROR)
@@ -957,8 +955,7 @@
        do
 (RPLCHARCODE MSTRING I (UTOMCODE
 UCODE)) finally
 (RETURN MSTRING])
 
 (MTOUTF8STRING

-  [LAMBDA (MSTRING)
                                          (* ; "Edited 31-Jan-2026 19:15 by rmk")


-                                                             (* ; "Edited  9-Sep-2025 07:51 by rmk")


+  [LAMBDA (MSTRING)
                                          (* ; "Edited  9-Sep-2025 07:51 by rmk")


                                                              (* ; "Edited  4-Sep-2025 15:13 by rmk")


                                                              (* ; "Edited  2-Sep-2025 11:12 by rmk")


                                                              (* ; "Edited 24-Apr-2025 15:37 by rmk")


@@ -971,13 +968,11 @@
     (* ;; "The resulting string will not be directly interpretable inside Medley.")

 
     (if
 (if
 (STRINGP MSTRING)
-            then
 [OR (ffetch
 (STRINGP FATSTRINGP) of
 MSTRING)
-                     (thereis
 C instring
 MSTRING suchthat
 (OR (IGEQ C 128)
-                                                              (NEQ C (MTOUCODE
 C]
+            then
 (OR (ffetch
 (STRINGP FATSTRINGP) of
 MSTRING)
+                     (thereis
 C instring
 MSTRING suchthat
 (IGEQ C 128)))
           elseif
 (LITATOM MSTRING)
-            then
 [OR (ffetch
 (LITATOM FATPNAMEP) of
 MSTRING)
-                     (thereis
 C inatom
 MSTRING suchthat
 (OR (IGEQ C 128)
-                                                            (NEQ C (MTOUCODE
 C]
+            then
 (OR (ffetch
 (LITATOM FATPNAMEP) of
 MSTRING)
+                     (thereis
 C inatom
 MSTRING suchthat
 (IGEQ C 128)))
           else
 T)
         then
 (LET [(USTR (ALLOCSTRING (NUTF8-STRING-BYTES
 MSTRING]
                   (for
 I UCODE MCODE (SINDEX _ 0) from
 1 while
 (SETQ MCODE (NTHCHARCODE MSTRING I))
@@ -1488,21 +1483,21 @@
 
 (PUTPROPS UNICODE
 FILETYPE
 :TCOMPL)
 (DECLARE%: DONTCOPY
-  (FILEMAP (NIL (3379 18917 (UTF8.OUTCHARFN 3389 . 6405) (UTF8.SLUG.OUTCHARFN 6407 . 7071) (
-UTF8.INCCODEFN 7073 . 12926) (UTF8.PEEKCCODEFN 12928 . 17935) (\UTF8.BACKCCODEFN 17937 . 18915)) (
-18918 23608 (UTF16BE.OUTCHARFN 18928 . 19947) (UTF16BE.INCCODEFN 19949 . 21074) (UTF16BE.PEEKCCODEFN 
-21076 . 22416) (\UTF16BE.BACKCCODEFN 22418 . 23606)) (23609 28332 (UTF16LE.OUTCHARFN 23619 . 24735) (
-UTF16LE.INCCODEFN 24737 . 25862) (UTF16LE.PEEKCCODEFN 25864 . 27140) (\UTF16LE.BACKCCODEFN 27142 . 
-28330)) (28333 31380 (READBOM 28343 . 30412) (WRITEBOM 30414 . 31378)) (31410 35163 (
-MAKE-UNICODE-FORMATS 31420 . 35161)) (35260 39754 (UTF8.BINCODE 35270 . 37958) (\UTF8.FETCHCODE 37960
- . 39752)) (39755 45382 (UTF8.VALIDATE 39765 . 42362) (NUTF8-BYTE1-BYTES 42364 . 43101) (
-NUTF8-CODE-BYTES 43103 . 44160) (NUTF8-STRING-BYTES 44162 . 45058) (N-MCHARS 45060 . 45380)) (47864 
-57575 (MTOUCODE 47874 . 48261) (UTOMCODE 48263 . 48789) (MTOUCODE? 48791 . 49824) (UTOMCODE? 49826 . 
-50995) (MTOUSTRING 50997 . 51582) (UTOMSTRING 51584 . 52169) (MTOUTF8STRING 52171 . 56460) (
-UTF8TOMSTRING 56462 . 57573)) (57576 63278 (XTOUCODE 57586 . 58104) (UTOXCODE 58106 . 58614) (
-XTOUCODE? 58616 . 59677) (UTOXCODE? 59679 . 60762) (XTOUSTRING 60764 . 61457) (UTOXSTRING 61459 . 
-62200) (XTOUTF8STRING 62202 . 63276)) (63341 74609 (WRITE-UNICODE-MAPPING 63351 . 67101) (
-WRITE-UNICODE-INCLUDED 67103 . 71825) (WRITE-UNICODE-MAPPING-HEADER 71827 . 73075) (
-WRITE-UNICODE-MAPPING-FILENAME 73077 . 74607)) (74610 75286 (XCCS-UTF8-AFTER-OPEN 74620 . 75284)) (
-77811 80028 (UTF8HEXSTRING 77821 . 80026)) (80055 82097 (SHOWCHARS 80065 . 82095)))))
+  (FILEMAP (NIL (3488 19026 (UTF8.OUTCHARFN 3498 . 6514) (UTF8.SLUG.OUTCHARFN 6516 . 7180) (
+UTF8.INCCODEFN 7182 . 13035) (UTF8.PEEKCCODEFN 13037 . 18044) (\UTF8.BACKCCODEFN 18046 . 19024)) (
+19027 23717 (UTF16BE.OUTCHARFN 19037 . 20056) (UTF16BE.INCCODEFN 20058 . 21183) (UTF16BE.PEEKCCODEFN 
+21185 . 22525) (\UTF16BE.BACKCCODEFN 22527 . 23715)) (23718 28441 (UTF16LE.OUTCHARFN 23728 . 24844) (
+UTF16LE.INCCODEFN 24846 . 25971) (UTF16LE.PEEKCCODEFN 25973 . 27249) (\UTF16LE.BACKCCODEFN 27251 . 
+28439)) (28442 31489 (READBOM 28452 . 30521) (WRITEBOM 30523 . 31487)) (31519 35084 (
+MAKE-UNICODE-FORMATS 31529 . 35082)) (35181 39675 (UTF8.BINCODE 35191 . 37879) (\UTF8.FETCHCODE 37881
+ . 39673)) (39676 45303 (UTF8.VALIDATE 39686 . 42283) (NUTF8-BYTE1-BYTES 42285 . 43022) (
+NUTF8-CODE-BYTES 43024 . 44081) (NUTF8-STRING-BYTES 44083 . 44979) (N-MCHARS 44981 . 45301)) (47785 
+57213 (MTOUCODE 47795 . 48182) (UTOMCODE 48184 . 48710) (MTOUCODE? 48712 . 49745) (UTOMCODE? 49747 . 
+50916) (MTOUSTRING 50918 . 51503) (UTOMSTRING 51505 . 52090) (MTOUTF8STRING 52092 . 56098) (
+UTF8TOMSTRING 56100 . 57211)) (57214 62916 (XTOUCODE 57224 . 57742) (UTOXCODE 57744 . 58252) (
+XTOUCODE? 58254 . 59315) (UTOXCODE? 59317 . 60400) (XTOUSTRING 60402 . 61095) (UTOXSTRING 61097 . 
+61838) (XTOUTF8STRING 61840 . 62914)) (62979 74247 (WRITE-UNICODE-MAPPING 62989 . 66739) (
+WRITE-UNICODE-INCLUDED 66741 . 71463) (WRITE-UNICODE-MAPPING-HEADER 71465 . 72713) (
+WRITE-UNICODE-MAPPING-FILENAME 72715 . 74245)) (74248 74924 (XCCS-UTF8-AFTER-OPEN 74258 . 74922)) (
+77449 79666 (UTF8HEXSTRING 77459 . 79664)) (79693 81735 (SHOWCHARS 79703 . 81733)))))
 STOP

library/UNIXCOMM

@@ -1,12 +1,14 @@
 (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
 
-
(FILECREATED " 5-Feb-2026 18:38:23" {WMEDLEY}<library>UNIXCOMM.;15
 14717  
+
(FILECREATED " 2-Sep-2025 12:06:52" 
+{DSK}<Users>kaplan>Local>medley3.5>working-medley>library>UNIXCOMM.;14
 14825  
 
       :EDIT-BY rmk
 
       :CHANGES-TO (FNS FORK-UNIX)
 
-      :PREVIOUS-DATE " 2-Sep-2025 12:06:52" {WMEDLEY}<library>UNIXCOMM.;14)
+      :PREVIOUS-DATE "29-Apr-2025 22:45:47" 
+{DSK}<Users>kaplan>Local>medley3.5>working-medley>library>UNIXCOMM.;13)
 
 
 (PRETTYCOMPRINT UNIXCOMMCOMS)
@@ -72,11 +74,13 @@
       else
 (SUBRCALL UNIX-HANDLECOMM 4])
 
 (FORK-UNIX

-  [LAMBDA (STR)
                                              (* ; "Edited  5-Feb-2026 18:38 by rmk")


-                                                             (* ; "Edited  2-Sep-2025 12:03 by rmk")


+  [LAMBDA (STR)
                                              (* ; "Edited  2-Sep-2025 12:03 by rmk")


                                                              (* ; "Edited 29-Apr-2025 22:45 by rmk")


                                                              (* ; "Edited 25-May-88 15:47 by drc:")

-    (SUBRCALL UNIX-HANDLECOMM 0 (MTOSYSSTRING (\DTEST STR 'ONED-ARRAY])
+
+    (* ;; "MTOUBYTES converts MCCS codes to Unicodes, and then lays out the bytes of the UTF-8 encoding of those characters. ")

+
+    (SUBRCALL UNIX-HANDLECOMM 0 (MTOUTF8STRING (\DTEST STR 'ONED-ARRAY])
 
 (UNIX-KILL

   [LAMBDA (CONN)                                             (* ; "Edited 25-May-88 16:04 by drc:")

@@ -317,10 +321,10 @@
 
 (PUTPROPS UNIXCOMM
 FILETYPE
 COMPILE-FILE)
 (DECLARE%: DONTCOPY
-  (FILEMAP (NIL (1821 7231 (FORK-SHELL 1831 . 3028) (FORK-UNIX 3030 . 3551) (UNIX-KILL 3553 . 3742) (
-UNIX-WRITE 3744 . 4455) (CREATE-SHELL-STREAM 4457 . 5341) (CREATE-PROCESS-STREAM 5343 . 6182) (
-UNIXCOMM-AROUNDEXITFN 6184 . 7229)) (7279 12470 (INITIALIZE-SHELL-DEVICE 7289 . 8717) (
-UNIX-GET-NEXT-BUFFER 8719 . 10919) (UNIX-BACKFILEPTR 10921 . 11333) (UNIX-STREAM-EOFP 11335 . 11816) (
-UNIX-STREAM-OUT 11818 . 12074) (UNIX-STREAM-CLOSE 12076 . 12468)) (12718 14424 (
-CREATE-UNIX-SOCKET-STREAM 12728 . 13534) (ACCEPT-UNIX-SOCKET-STREAM 13536 . 14422)))))
+  (FILEMAP (NIL (1903 7339 (FORK-SHELL 1913 . 3110) (FORK-UNIX 3112 . 3659) (UNIX-KILL 3661 . 3850) (
+UNIX-WRITE 3852 . 4563) (CREATE-SHELL-STREAM 4565 . 5449) (CREATE-PROCESS-STREAM 5451 . 6290) (
+UNIXCOMM-AROUNDEXITFN 6292 . 7337)) (7387 12578 (INITIALIZE-SHELL-DEVICE 7397 . 8825) (
+UNIX-GET-NEXT-BUFFER 8827 . 11027) (UNIX-BACKFILEPTR 11029 . 11441) (UNIX-STREAM-EOFP 11443 . 11924) (
+UNIX-STREAM-OUT 11926 . 12182) (UNIX-STREAM-CLOSE 12184 . 12576)) (12826 14532 (
+CREATE-UNIX-SOCKET-STREAM 12836 . 13642) (ACCEPT-UNIX-SOCKET-STREAM 13644 . 14530)))))
 STOP

library/UNIXPRINT

@@ -1,12 +1,12 @@
 (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
 
-
(FILECREATED " 5-Feb-2026 18:37:09" {WMEDLEY}<library>UNIXPRINT.;17
 11663  
+
(FILECREATED "25-Jan-2026 11:09:09" {WMEDLEY}<library>UNIXPRINT.;15
 11553  
 
       :EDIT-BY rmk
 
-      :CHANGES-TO (FNS UnixShellQuote)
+      :CHANGES-TO (FNS UnixPrint)
 
-      :PREVIOUS-DATE "25-Jan-2026 11:09:09" {WMEDLEY}<library>UNIXPRINT.;15)
+      :PREVIOUS-DATE "18-Jan-2026 08:44:40" {WMEDLEY}<library>UNIXPRINT.;14)
 
 
 (PRETTYCOMPRINT UNIXPRINTCOMS)
@@ -130,8 +130,7 @@
 
 (UnixShellQuote

   [LAMBDA (STRING)
-    (DECLARE
 (LOCALVARS . T))
                                (* ; "Edited  5-Feb-2026 18:37 by rmk")


-                                                             (* ; "Edited 18-Jan-2026 08:34 by rmk")


+    (DECLARE
 (LOCALVARS . T))
                                (* ; "Edited 18-Jan-2026 08:34 by rmk")


                                                              (* ; "Edited 19-Apr-89 21:14 by TAL")

     (LET* ((X (CHCON STRING))
            (CT X)
@@ -156,9 +155,9 @@
                                                       (CHARCODE SPACE))
                                                      (T C))
                                                   (SETQ CT (CDR CT]
-          (MTOSYSSTRING (CL:IF FLG
-                            (CONCATCODES X)
-                            STRING)])
+          (MTOUTF8STRING (COND
+                            (FLG (CONCATCODES X))
+                            (T STRING])
 
 (UnixTempFile

   [LAMBDA (Prefix DontOpen)
                                  (* ; "Edited 28-Apr-93 13:49 by rmk:")


@@ -252,6 +251,6 @@
 (ADDTOVAR LAMA
 )
 )
 (DECLARE%: DONTCOPY
-  (FILEMAP (NIL (1051 10997 (UnixPrint 1061 . 6397) (UnixShellQuote 6399 . 8087) (UnixTempFile 8089 . 
-9312) (UnixPrintCommand 9314 . 10995)))))
+  (FILEMAP (NIL (1046 10887 (UnixPrint 1056 . 6392) (UnixShellQuote 6394 . 7977) (UnixTempFile 7979 . 
+9202) (UnixPrintCommand 9204 . 10885)))))
 STOP

library/lafite/LAFITE-INDENT

@@ -1,10 +1,13 @@
 (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
 
-
(FILECREATED "18-Feb-2026 15:47:08" {WMEDLEY}<library>LAFITE>LAFITE-INDENT.;2
 26210  
+
(FILECREATED "15-Feb-2025 14:11:54" {WMEDLEY}<library>lafite>LAFITE-INDENT.;4
 26926  
 
       :EDIT-BY rmk
 
-      :PREVIOUS-DATE "22-Jan-87 01:34:36" {WMEDLEY}<library>LAFITE>LAFITE-INDENT.;1)
+      :CHANGES-TO (FNS TEDIT-INDENT-BREAK-LONG-LINES TEDIT-INDENT-SELECTION TEDIT-OPEN-LINE 
+                       TEDIT-MAKE-LINES-EXPLICIT TEDIT-INDENT-SET-INDENT)
+
+      :PREVIOUS-DATE "15-Feb-2025 09:21:58" {WMEDLEY}<library>lafite>LAFITE-INDENT.;3)
 
 
 (PRETTYCOMPRINT LAFITE-INDENTCOMS)
@@ -130,14 +133,10 @@
                                          max-length max-length])
 
 (TEDIT-INDENT-BREAK-LONG-LINES

-  [LAMBDA (text-stream explicit-paragraph-breaks?)
           (* smL "21-Jan-87 16:03")

-          
-          (* * Break the current selection into explicit lines, each having no more than 
-
          *TEDIT-INDENT-LINE-LENGTH* characters. -
-
          If the flag *TEDIT-INDENT-KEEP-LINE-BREAKS* is false, existing line breaks in 
-
          the current selection are removed. -
-
          This is intended to be used in Lafite, where one wants to indent a piece of a 
-
          forwarded document, but can be used in any TEdit document)

+  [LAMBDA (text-stream explicit-paragraph-breaks?)
           (* ; "Edited 15-Feb-2025 14:07 by rmk")

+                                                             (* smL "21-Jan-87 16:03")

+
+(* ;;; "Break the current selection into explicit lines, each having no more than *TEDIT-INDENT-LINE-LENGTH* characters.  --- If the flag *TEDIT-INDENT-KEEP-LINE-BREAKS* is false, existing line breaks in the current selection are removed.  --- This is intended to be used in Lafite, where one wants to indent a piece of a forwarded document, but can be used in any TEdit document")

 
     (LET ((selection (TEDIT.GETSEL text-stream)))
          (TEDIT-INDENT-REPLACE-SELECTION

@@ -145,11 +144,13 @@
           (CONCATLIST (for
 string on
 (TEDIT-INDENT-SEPERATE-PARAGRAPHS
 (TEDIT.SEL.AS.STRING 
                                                                               text-stream selection)
                                             explicit-paragraph-breaks?)
-                         bind
 [hanging-indent _
-                                     (AND (NOT (EQP (fetch
 CHAR1 of
 (CAR (fetch
 L1 of
 selection)))
-                                                    (fetch
 CH# of
 selection)))
-                                          (DIFFERENCE (fetch
 CH# of
 selection)
-                                                 (fetch
 CHAR1 of
 (CAR (fetch
 L1 of
 selection]
+                         bind
 [hanging-indent _ (AND [NOT (EQP (GETLD (CAR (GETSEL selection L1))
+                                                                      LCHAR1)
+                                                               (TEDIT.SELPROP selection 'CH#]
+                                                     (DIFFERENCE (TEDIT.SELPROP selection
+                                                                        'CH#)
+                                                            (GETLD (CAR (GETSEL selection L1))
+                                                                   LCHAR1]
                          join
 (PROG1 (LIST (TEDIT-INDENT-ADD-INDENTATION
 (CAR string)
                                                   "" *TEDIT-INDENT-LINE-LENGTH* hanging-indent)
                                            *eol-string*)
@@ -184,15 +185,10 @@
                 'RIGHT])
 
 (TEDIT-INDENT-SELECTION

-  [LAMBDA (text-stream explicit-paragraph-breaks?)
           (* smL "21-Jan-87 16:00")

-          
-          (* * Indent the current selection by prefacing each line with the value of 
-
          *TEDIT-INDENT-STRING*, and inserting line breaks after each 
-
          *TEDIT-INDENT-LINE-LENGTH* characters. -
-
          If the flag *TEDIT-INDENT-KEEP-LINE-BREAKS* is false, existing line breaks in 
-
          the current selection are removed. -
-
          This is intended to be used in Lafite, where one wants to indent a piece of a 
-
          forwarded document, but can be used in any TEdit document)

+  [LAMBDA (text-stream explicit-paragraph-breaks?)
           (* ; "Edited 15-Feb-2025 14:07 by rmk")

+                                                             (* smL "21-Jan-87 16:00")

+
+(* ;;; "Indent the current selection by prefacing each line with the value of *TEDIT-INDENT-STRING*, and inserting line breaks after each *TEDIT-INDENT-LINE-LENGTH* characters.  --- If the flag *TEDIT-INDENT-KEEP-LINE-BREAKS* is false, existing line breaks in the current selection are removed.  --- This is intended to be used in Lafite, where one wants to indent a piece of a forwarded document, but can be used in any TEdit document")

 
     (LET ((selection (TEDIT.GETSEL text-stream)))
          (TEDIT-INDENT-REPLACE-SELECTION

@@ -200,11 +196,13 @@
           (CONCATLIST (for
 string on
 (TEDIT-INDENT-SEPERATE-PARAGRAPHS
 (TEDIT.SEL.AS.STRING 
                                                                               text-stream selection)
                                             explicit-paragraph-breaks?)
-                         bind
 [hanging-indent _
-                                     (AND (NOT (EQP (fetch
 CHAR1 of
 (CAR (fetch
 L1 of
 selection)))
-                                                    (fetch
 CH# of
 selection)))
-                                          (DIFFERENCE (fetch
 CH# of
 selection)
-                                                 (fetch
 CHAR1 of
 (CAR (fetch
 L1 of
 selection]
+                         bind
 [hanging-indent _ (AND [NOT (EQP (GETLD (CAR (GETSEL selection L1))
+                                                                      LCHAR1)
+                                                               (TEDIT.SELPROP selection 'CH#]
+                                                     (DIFFERENCE (TEDIT.SELPROP selection
+                                                                        'CH#)
+                                                            (GETLD (CAR (GETSEL selection L1))
+                                                                   LCHAR1]
                          join
 (PROG1 (LIST (TEDIT-INDENT-ADD-INDENTATION
 (CAR string)
                                                   *TEDIT-INDENT-STRING* *TEDIT-INDENT-LINE-LENGTH* 
                                                   hanging-indent)
@@ -234,18 +232,19 @@
       else
 (\TEDIT-INDENT-SEPERATE-PARAGRAPHS
 string NIL])
 
 (TEDIT-INDENT-SET-INDENT

-  [LAMBDA (text-stream)
                                      (* smL "12-Sep-86 17:09")

-          
-          (* * Prompt the user for a new indentation string)

+  [LAMBDA (text-stream)
                                      (* ; "Edited 15-Feb-2025 09:21 by rmk")

+                                                             (* smL "12-Sep-86 17:09")

 
-    (LET* ((window (fetch
 \WINDOW of
 (TEXTOBJ text-stream)))
+(* ;;; "Prompt the user for a new indentation string")

+
+    (LET* ((window (\TEDIT.PRIMARYPANE text-stream))
            (pwindow (if
 window
                         then
 (GETPROMPTWINDOW (if
 (LISTP window)
                                                   then
 (CAR window)
                                                 else
 window))
                       else
 PROMPTWINDOW)))
           (CLEARW pwindow)
-          (SETQ *TEDIT-INDENT-STRING* (PROMPTFORWORD "New indent string: " *TEDIT-INDENT-STRING* NIL 
+          (SETQ *TEDIT-INDENT-STRING* (PROMPTFORWORD "New indent string: " *TEDIT-INDENT-STRING* NIL
                                              pwindow NIL NIL (LIST (CHARCODE EOL])
 
 (TEDIT-INDENT-STRIP-INDENTATION

@@ -270,36 +269,34 @@
                          else
 string])
 
 (TEDIT-MAKE-LINES-EXPLICIT

-  [LAMBDA (text-stream)
                                      (* smL " 8-Sep-86 18:20")

-          
-          (* * Take the current selection and replace all TEdit end-of-lines with 
-
          explicit line breaks. -
-
          This is intended to be used in Lafite, where it is sometimes nice to know that 
-
          anyone receiving the msg will see the same line breaks that you see.
-
          see, but can be used in any TEdit document)

+  [LAMBDA (text-stream)
                                      (* ; "Edited 15-Feb-2025 09:20 by rmk")

+                                                             (* smL " 8-Sep-86 18:20")

+
+(* ;;; "Take the current selection and replace all TEdit end-of-lines with explicit line breaks.  --- This is intended to be used in Lafite, where it is sometimes nice to know that anyone receiving the msg will see the same line breaks that you see.  see, but can be used in any TEdit document")

 
     (LET ((selection (TEDIT.GETSEL text-stream)))
-         [for
 i in
 (bind
 (this-line _ (CAR (fetch
 L1 of
 selection)))
-                         [last-line _ (CAR (LAST (fetch
 LN of
 selection]
-                      repeatuntil
 (PROGN (SETQ this-line (fetch
 NEXTLINE of
 this-line))
-                                         (EQ this-line last-line)) collect
 (fetch
 CHARLIM
-                                                                              of
 this-line))
-            do
 (TEDIT.SETSEL text-stream i 1 'LEFT T)
-               (TEDIT.INSERT text-stream (CONSTANT (CHARACTER (CHARCODE EOL]
+         [for
 i in
 (bind
 (this-line _ (CAR (GETSEL selection L1)))
+                         [last-line _ (CAR (LAST (GETSEL selection LN]
+                      repeatuntil
 (PROGN (SETQ this-line (GETLD this-line NEXTLINE))
+                                         (EQ this-line last-line)) collect
 (GETLD this-line LCHARLIM)
+                         ) do
 (TEDIT.SETSEL text-stream i 1 'LEFT T)
+                              (TEDIT.INSERT text-stream (CONSTANT (CHARACTER (CHARCODE EOL]
          (TEDIT.SETSEL text-stream selection NIL 'RIGHT])
 
 (TEDIT-OPEN-LINE

-  [LAMBDA (text-stream)
                                      (* smL "17-Sep-86 11:13")

-          
-          (* * Open a new line at the current position.)

+  [LAMBDA (text-stream)
                                      (* ; "Edited 15-Feb-2025 14:09 by rmk")

+                                                             (* smL "17-Sep-86 11:13")

+
+(* ;;; "Open a new line at the current position.")

 
     (LET ((selection (TEDIT.GETSEL text-stream)))
-         (TEDIT.INSERT text-stream (CONCAT *eol-string*
-                                          (ALLOCSTRING [DIFFERENCE (fetch
 CH# of
 selection)
-                                                              (fetch
 CHAR1
-                                                                 of
 (CAR (fetch
 L1 of
 selection]
-                                                 " ")))
-         (if
 (ZEROP (fetch
 DCH of
 selection))
+         (TEDIT.INSERT text-stream (CONCAT *eol-string* (ALLOCSTRING
+                                                         (DIFFERENCE (TEDIT.SELPROP selection
+                                                                            'CH#)
+                                                                (GETLD (CAR (GETSEL selection L1))
+                                                                       LCHAR1))
+                                                         " ")))
+         (if
 (ZEROP (TEDIT.SELPROP selection 'LENGTH))
              then
 (TEDIT.SETSEL text-stream selection])
 
 (TEDIT-REMOVE-INDENT

@@ -436,12 +433,12 @@
                                                   "Break long lines by inserting explicit <RETURN>'s"
                                                              ]
 (DECLARE%: DONTCOPY
-  (FILEMAP (NIL (4193 23598 (TEDIT-INDENT-ADD-INDENTATION 4203 . 6771) (TEDIT-INDENT-BREAK-LINE 6773 . 
-8706) (TEDIT-INDENT-BREAK-LONG-LINES 8708 . 10475) (TEDIT-INDENT-FIND-BREAKPOINT 10477 . 11300) (
-TEDIT-INDENT-REPLACE-SELECTION 11302 . 11859) (TEDIT-INDENT-SELECTION 11861 . 13762) (
-TEDIT-INDENT-SELECTION-KEEPING-LINEBREAKS 13764 . 14043) (TEDIT-INDENT-SEPERATE-PARAGRAPHS 14045 . 
-14774) (TEDIT-INDENT-SET-INDENT 14776 . 15550) (TEDIT-INDENT-STRIP-INDENTATION 15552 . 16772) (
-TEDIT-MAKE-LINES-EXPLICIT 16774 . 17979) (TEDIT-OPEN-LINE 17981 . 18737) (TEDIT-REMOVE-INDENT 18739 . 
-19509) (\TEDIT-INDENT-COUNT-SPACES 19511 . 20112) (\TEDIT-INDENT-FIND-PARAGRAPH-END 20114 . 21085) (
-\TEDIT-INDENT-SEPERATE-LINES 21087 . 21885) (\TEDIT-INDENT-SEPERATE-PARAGRAPHS 21887 . 23596)))))
+  (FILEMAP (NIL (4363 24314 (TEDIT-INDENT-ADD-INDENTATION 4373 . 6941) (TEDIT-INDENT-BREAK-LINE 6943 . 
+8876) (TEDIT-INDENT-BREAK-LONG-LINES 8878 . 10828) (TEDIT-INDENT-FIND-BREAKPOINT 10830 . 11653) (
+TEDIT-INDENT-REPLACE-SELECTION 11655 . 12212) (TEDIT-INDENT-SELECTION 12214 . 14283) (
+TEDIT-INDENT-SELECTION-KEEPING-LINEBREAKS 14285 . 14564) (TEDIT-INDENT-SEPERATE-PARAGRAPHS 14566 . 
+15295) (TEDIT-INDENT-SET-INDENT 15297 . 16143) (TEDIT-INDENT-STRIP-INDENTATION 16145 . 17365) (
+TEDIT-MAKE-LINES-EXPLICIT 17367 . 18517) (TEDIT-OPEN-LINE 18519 . 19453) (TEDIT-REMOVE-INDENT 19455 . 
+20225) (\TEDIT-INDENT-COUNT-SPACES 20227 . 20828) (\TEDIT-INDENT-FIND-PARAGRAPH-END 20830 . 21801) (
+\TEDIT-INDENT-SEPERATE-LINES 21803 . 22601) (\TEDIT-INDENT-SEPERATE-PARAGRAPHS 22603 . 24312)))))
 STOP

library/lafite/LAFITE-PRIVATEDL

@@ -1,28 +1,30 @@
-(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
+(DEFINE-FILE-INFO §READTABLE "INTERLISP" §PACKAGE "INTERLISP")
+
(FILECREATED "19-Jan-87 23:56:51" {ERIS}<LISPUSERS>LISPCORE>LAFITEPRIVATEDL.;1
 10080  
 
-
(FILECREATED "18-Feb-2026 15:50:14" {WMEDLEY}<library>lafite>LAFITE-PRIVATEDL.;2
 9719   
-
-      :EDIT-BY rmk
-
-      :CHANGES-TO (FNS \GV.PARSERECIPIENTS1 \GV.PARSE.PRIVATE.DISTRIBUTION.LIST))
+      previous date%: "19-Jan-87 23:47:54" {PHYLUM}<LISPUSERS>KOTO>LAFITEPRIVATEDL.;2)
 
 
-(PRETTYCOMPRINT LAFITE-PRIVATEDLCOMS)
+(* "
+Copyright (c) 1986, 1987 by Xerox Corporation.  All rights reserved.
+")
 
-(RPAQQ LAFITE-PRIVATEDLCOMS

-       ((* * LAFITEDL.EXT is the default extension for dl files when no extension is specified)
-        (* * LAFITEDLDIRECTORIES is a list of directories to be searched after the connected 
-           directory and the LAFITEDEFAULTHOST&DIR in order to locate a dl file when no host or 
-           directory is specified)
-        (INITVARS (LAFITEDL.EXT 'DL)
-               (LAFITEDLDIRECTORIES NIL))
-        (* * no functions are user callable)
-        (FNS \GV.PARSERECIPIENTS1 \GV.PARSE.PRIVATE.DISTRIBUTION.LIST)
-        (* Lafite's readtable for parsing addresses needs to have CR as a SEPRCHAR so that lines from
-           a text file can all be parsed at once. This has no effect on normal operation since before
-           private dls no CR was ever passed to the parser)
-        (P (SETSYNTAX (CHARCODE CR)
-                  'SEPRCHAR ADDRESSPARSERRDTBL))))
+(PRETTYCOMPRINT LAFITEPRIVATEDLCOMS)
+
+(RPAQQ LAFITEPRIVATEDLCOMS
 ((* * LAFITEDL.EXT is the default extension for dl files when no extension 
+                               is specified)
+                            (* * LAFITEDLDIRECTORIES is a list of directories to be searched after 
+                               the connected directory and the LAFITEDEFAULTHOST&DIR in order to 
+                               locate a dl file when no host or directory is specified)
+                            (INITVARS (LAFITEDL.EXT 'DL)
+                                   (LAFITEDLDIRECTORIES NIL))
+                            (* * no functions are user callable)
+                            (FNS \GV.PARSERECIPIENTS1 \GV.PARSE.PRIVATE.DISTRIBUTION.LIST)
+                            (* Lafite's readtable for parsing addresses needs to have CR as a 
+                               SEPRCHAR so that lines from a text file can all be parsed at once. 
+                               This has no effect on normal operation since before private dls no CR 
+                               was ever passed to the parser)
+                            (P (SETSYNTAX (CHARCODE CR)
+                                      'SEPRCHAR ADDRESSPARSERRDTBL))))
 (* * LAFITEDL.EXT is the default extension for dl files when no extension is specified)

 
 (* * LAFITEDLDIRECTORIES is a list of directories to be searched after the connected directory and the
@@ -37,7 +39,7 @@
 (DEFINEQ
 
 (\GV.PARSERECIPIENTS1

-  [LAMBDA (FIELD REGISTRY INTERNALFLG EDITWINDOW)            (* N.H.Briggs "19-Jan-87 23:44")

+  [LAMBDA (FIELD REGISTRY INTERNALFLG EDITWINDOW)
            (* N.H.Briggs "19-Jan-87 23:44")

 
 (* ;;; "INTERNALFLG = T means produce addresses to give Grapevine;  NIL means give human-readable addresses")

 
@@ -71,8 +73,8 @@
                                                                      (CHARCODE %"))
                                                                   (HELP]
           (OR REGISTRY (SETQ REGISTRY DEFAULTREGISTRY))
-
-     (* ;; "first just collect all the atoms using a special readtable ")

+          
+          (* ;; "first just collect all the atoms using a special readtable ")

 
           (SETQ ADDRESSES (when
 (SETQ ADDR (until
 (OR (EOFP FIELDSTREAM)
                                                       (EQ (SETQ TOKEN (READ FIELDSTREAM 
@@ -105,13 +107,14 @@
                                    (EQ (CADDR ADDRESS)
                                        ';))
                               then
 
-                                   (* ;; "it's a private dl --- foo:;")

+          
+          (* ;; "it's a private dl --- foo:;")

 
-                                   (\GV.PARSE.PRIVATE.DISTRIBUTION.LIST
 ADDRESS REGISTRY INTERNALFLG
+                                   (\GV.PARSE.PRIVATE.DISTRIBUTION.LIST
 ADDRESS REGISTRY INTERNALFLG 
                                           EDITWINDOW)
                             else
 
-                                 (* ;; 
-
                              "ADDRESS will only get rebound if there is an address with <>'s in it ")

+          
+          (* ;; "ADDRESS will only get rebound if there is an address with <>'s in it ")

 
                                  (SETQ VALIDRECIPIENT (\GV.PARSE.SINGLE.ADDRESS
                                                        (COND
@@ -125,8 +128,8 @@
                                           ((OR T INTERNALFLG (NULL REALADDRESS))
                                            VALIDRECIPIENT)
                                           (T 
-
-                                      (* ;; "Need to figure out how to make GETREGISTRY of this work, and remove duplicates in MAKEANSWERFORM before we can enable this")

+          
+          (* ;; "Need to figure out how to make GETREGISTRY of this work, and remove duplicates in MAKEANSWERFORM before we can enable this")

 
                                              (\GV.REPACKADDRESS (APPEND (LDIFF ADDRESS OPEN)
                                                                        (LIST '< VALIDRECIPIENT
@@ -134,7 +137,7 @@
                                                                        (CDR CLOSE])
 
 (\GV.PARSE.PRIVATE.DISTRIBUTION.LIST

-  [LAMBDA (DL REGISTRY INTERNALFLG EDITWINDOW)               (* N.H.Briggs "19-Jan-87 23:45")

+  [LAMBDA (DL REGISTRY INTERNALFLG EDITWINDOW)
               (* N.H.Briggs "19-Jan-87 23:45")

     (LET* [(FILENAME (FINDFILE (PACKFILENAME.STRING 'BODY (CAR DL)
                                       'EXTENSION LAFITEDL.EXT)
                             T
@@ -159,10 +162,10 @@
 file can all be parsed at once. This has no effect on normal operation since before private dls no CR 
 was ever passed to the parser)

 
-
 (SETSYNTAX (CHARCODE CR)
        'SEPRCHAR ADDRESSPARSERRDTBL)
+(PUTPROPS LAFITEPRIVATEDL COPYRIGHT ("Xerox Corporation" 1986 1987))
 (DECLARE%: DONTCOPY
-  (FILEMAP (NIL (1617 9389 (\GV.PARSERECIPIENTS1 1627 . 8273) (\GV.PARSE.PRIVATE.DISTRIBUTION.LIST 8275
- . 9387)))))
+  (FILEMAP (NIL (1965 9682 (\GV.PARSERECIPIENTS1 1975 . 8562) (\GV.PARSE.PRIVATE.DISTRIBUTION.LIST 8564
+ . 9680)))))
 STOP

library/tedit/TEDIT

@@ -1,13 +1,12 @@
 (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
 
-
(FILECREATED " 4-Feb-2026 16:02:02" {WMEDLEY}<library>TEDIT>TEDIT.;852
 146779 
+
(FILECREATED "24-Dec-2025 22:45:39" {WMEDLEY}<library>TEDIT>TEDIT.;847
 145111 
 
       :EDIT-BY rmk
 
-      :CHANGES-TO (FNS TEDIT.MAP.OBJECTS TEDIT.PARAGRAPH.BOUNDARIES)
-                  (VARS TEDITCOMS)
+      :CHANGES-TO (VARS TEDITCOMS)
 
-      :PREVIOUS-DATE "31-Jan-2026 11:49:19" {WMEDLEY}<library>TEDIT>TEDIT.;849)
+      :PREVIOUS-DATE "24-Dec-2025 11:23:12" {WMEDLEY}<library>TEDIT>TEDIT.;846)
 
 
 (PRETTYCOMPRINT TEDITCOMS)
@@ -48,7 +47,7 @@
 
         (FNS TEDIT TEXTSTREAM TEXTSTREAMP COERCETEXTSTREAM TEDIT.CONCAT TEDITSTRING TEDIT-SEE 
              TEDIT.COPY TEDIT.DELETE TEDIT.INSERT TEDIT.TERPRI TEDIT.KILL TEDIT.QUIT TEDIT.MOVE 
-             TEDIT.STRINGWIDTH TEDIT.CHARWIDTH TEDIT.PARAGRAPH.BOUNDARIES)
+             TEDIT.STRINGWIDTH TEDIT.CHARWIDTH)
         (FNS TEXTOBJ COERCETEXTOBJ)
         (MACROS TEVAL)
         (FNS TDRIBBLE)
@@ -677,26 +676,6 @@
                (CR (IMAX 6 (CHARWIDTH CH FONT)))
                (TAB 36)
                (CHARWIDTH CH FONT])
-
-(TEDIT.PARAGRAPH.BOUNDARIES

-  [LAMBDA (TSTREAM SELORCH# PROTECTEDNOTOK)
                  (* ; "Edited  2-Feb-2026 23:05 by rmk")

-
-    (* ;; "Returns a pair (FIRSTCH# LASTCH#) where FIRSTCH# is the character number of the first character of the paragraph that contains the beginning of the selection, and LASTCH# is the last character number of the last character of the paragraph that contains the end of the selection.")

-
-    (* ;; 
-
  "If PROTECTIONNOTOK, the scans stop at any protected piece (e.g. doesn't cross menu boiler plate).")

-
-    (LET ((TEXTOBJ
 (TEXTOBJ
 TSTREAM)))
-         (CL:UNLESS SELORCH#
-             (SETQ SELORCH# (TEXTSEL TEXTOBJ)))
-         (LIST (CAR (\TEDIT.PARA.FIRST
 TEXTOBJ (CL:IF (type?
 SELECTION SELORCH#)
-                                                   (GETSEL SELORCH# CH#)
-                                                   SELORCH#)
-                           PROTECTEDNOTOK))
-               (CAR (\TEDIT.PARA.LAST
 TEXTOBJ (CL:IF (type?
 SELECTION SELORCH#)
-                                                  (GETSEL SELORCH# CHLAST)
-                                                  SELORCH#)
-                           PROTECTEDNOTOK])
 )
 (DEFINEQ
 
@@ -933,8 +912,7 @@
            else
 (TEDIT.PROMPTPRINT TSTREAM "Changed object not found in document" T])
 
 (TEDIT.MAP.OBJECTS

-  [LAMBDA (TSTREAM FN FNARG COLLECT?)
                        (* ; "Edited  4-Feb-2026 16:01 by rmk")


-                                                             (* ; "Edited 25-Feb-2025 15:06 by rmk")


+  [LAMBDA (TSTREAM FN FNARG COLLECT?)
                        (* ; "Edited 25-Feb-2025 15:06 by rmk")


                                                              (* ; "Edited 23-Apr-2024 09:15 by rmk")


                                                              (* ; "Edited 16-Mar-2024 10:03 by rmk")


                                                              (* ; "Edited  4-Mar-2024 16:12 by rmk")


@@ -954,7 +932,8 @@
               (NIL)
               (OBJECT (PUSH
 $$VAL OBJ))
               (CH# (PUSH
 $$VAL CH#))
-              (VALUE (PUSH
 $$VAL FNVAL))
+              (VALUE (PUSH
 $$VAL CH#)
+                     FNVAL)
               (FIRST (RETURN (LIST CH# OBJ FNVAL)))
               (PUSH
 $$VAL (LIST CH# OBJ FNVAL)))
           (CL:WHEN (EQ FNVAL 'STOP)
@@ -1346,9 +1325,7 @@
                    (CL:WHEN TYPEIN (\TEDIT.SCROLL.CARET TSTREAM)))])])
 
 (\TEDIT.MOVE

-  [LAMBDA (FROMSEL TOSEL FROMTSTREAM TOTSTREAM)
              (* ; "Edited 31-Jan-2026 11:48 by rmk")


-                                                             (* ; "Edited 10-Jan-2026 01:38 by rmk")


-                                                             (* ; "Edited  7-May-2025 00:12 by rmk")


+  [LAMBDA (FROMSEL TOSEL FROMTSTREAM TOTSTREAM)
              (* ; "Edited  7-May-2025 00:12 by rmk")


                                                              (* ; "Edited 22-Apr-2025 09:21 by rmk")


                                                              (* ; "Edited 16-Apr-2025 09:01 by rmk")


                                                              (* ; "Edited  6-Apr-2025 14:14 by rmk")


@@ -1408,7 +1385,7 @@
                (CL:WHEN (AND (FGETTOBJ TOOBJ BLUEPENDINGDELETE)
                              (IGREATERP TODCH 0))
                    (FSETTOBJ TOOBJ BLUEPENDINGDELETE NIL)
-                   (CL:UNLESS (\TEDIT.DELETE
 TOTSTREAM TOSEL)
+                   (CL:UNLESS (\TEDIT.DELETE
 TOOBJ TOSEL)
                           (RETURN NIL))
                    (SETQ BPD T)
                    (CL:WHEN (EQ TOOBJ FROMOBJ)               (* ; "Same text, pre-adjust  the source")

@@ -1444,14 +1421,15 @@
 
                         (* ;; "Pop to accumulate into a single event (BPD, DELETE, INSERT).")

 
-                 else
 (\TEDIT.DELETE
 FROMTSTREAM FROMSEL NIL NIL T))
+                 else
 (\TEDIT.DELETE
 FROMOBJ FROMSEL NIL NIL T))
 
          (* ;; "Deletion accomplished possibly in separate FROMOBJ with its own history.")

 
          (* ;; "")

 
                (CL:WHEN (GETTEXTPROP TOOBJ 'COPYBYBKSYSBUF)
-                   (\TEDIT.FOREIGN.COPY FROMSEL FROMTSTREAM T)
+                   (\TEDIT.FOREIGN.COPY (WFROMDS TOTSTREAM)
+                          FROMSEL T)
                    (CL:WHEN BPD                              (* ; "If no BPD, TO history is good")

                        (\TEDIT.HISTORYADD.COMPOSITE TOOBJ TOOBJ (LIST (\TEDIT.POPEVENT TOOBJ)
                                                                       (\TEDIT.POPEVENT TOOBJ))))
@@ -1470,8 +1448,7 @@
                                                         (CL:IF BPD (\TEDIT.POPEVENT TOOBJ])])
 
 (\TEDIT.COPY

-  [LAMBDA (FROMSEL TOSEL FROMTSTREAM TOTSTREAM)
              (* ; "Edited 31-Jan-2026 11:48 by rmk")


-                                                             (* ; "Edited  7-May-2025 00:12 by rmk")


+  [LAMBDA (FROMSEL TOSEL FROMTSTREAM TOTSTREAM)
              (* ; "Edited  7-May-2025 00:12 by rmk")


                                                              (* ; "Edited 22-Apr-2025 09:12 by rmk")


                                                              (* ; "Edited  6-Apr-2025 14:16 by rmk")


                                                              (* ; "Edited  5-Apr-2025 13:19 by rmk")


@@ -1520,7 +1497,8 @@
          (* ;; "")

 
                (CL:WHEN (GETTEXTPROP TOOBJ 'COPYBYBKSYSBUF)
-                   (\TEDIT.FOREIGN.COPY FROMSEL FROMTSTREAM T)
+                   (\TEDIT.FOREIGN.COPY (WFROMDS TOTSTREAM)
+                          FROMSEL T)
                    (RETURN))
 
          (* ;; "")

@@ -2353,27 +2331,27 @@
 
 (DEFAULT.IMAGETYPE.CONVERSIONS '(TEDIT
 TEDIT.TO.IMAGEFILE))
 (DECLARE%: DONTCOPY
-  (FILEMAP (NIL (4936 7330 (MAKE-TEDIT-EXPORTS.ALL 4946 . 5492) (UPDATE-TEDIT 5494 . 6423) (EDIT-TEDIT 
-6425 . 7328)) (8760 37759 (TEDIT 8770 . 11384) (TEXTSTREAM 11386 . 13275) (TEXTSTREAMP 13277 . 13661) 
-(COERCETEXTSTREAM 13663 . 17874) (TEDIT.CONCAT 17876 . 21178) (TEDITSTRING 21180 . 22094) (TEDIT-SEE 
-22096 . 22780) (TEDIT.COPY 22782 . 24927) (TEDIT.DELETE 24929 . 26290) (TEDIT.INSERT 26292 . 29261) (
-TEDIT.TERPRI 29263 . 30377) (TEDIT.KILL 30379 . 31361) (TEDIT.QUIT 31363 . 32729) (TEDIT.MOVE 32731 . 
-33619) (TEDIT.STRINGWIDTH 33621 . 34292) (TEDIT.CHARWIDTH 34294 . 36536) (TEDIT.PARAGRAPH.BOUNDARIES 
-36538 . 37757)) (37760 39701 (TEXTOBJ 37770 . 38235) (COERCETEXTOBJ 38237 . 39699)) (41101 42751 (
-TDRIBBLE 41111 . 42749)) (42792 54772 (TEDIT.INSERT.OBJECT 42802 . 46509) (TEDIT.EDIT.OBJECT 46511 . 
-49451) (TEDIT.OBJECT.CHANGED 49453 . 52643) (TEDIT.MAP.OBJECTS 52645 . 54300) (\TEDIT.FIRST.OBJPIECE 
-54302 . 54535) (\TEDIT.NEXT.OBJPIECE 54537 . 54770)) (54795 62238 (\TEDIT.CONCAT.PAGEFRAMES 54805 . 
-59872) (\TEDIT.GET.PAGE.HEADINGS 59874 . 60903) (\TEDIT.CONCAT.INSTALL.HEADINGS 60905 . 62236)) (62239
- 65846 (\TEDIT.MOVE.MSG 62249 . 64330) (\TEDIT.READONLY 64332 . 65844)) (65847 71738 (TEDIT.NCHARS 
-65857 . 66230) (TEDIT.RPLCHARCODE 66232 . 69222) (TEDIT.NTHCHARCODE 69224 . 71267) (TEDIT.NTHCHAR 
-71269 . 71736)) (71784 128828 (\TEDIT1 71794 . 73871) (\TEDIT.INSERT 73873 . 79986) (\TEDIT.MOVE 79988
- . 88086) (\TEDIT.COPY 88088 . 92694) (\TEDIT.REPLACE.SELPIECES 92696 . 97232) (
-\TEDIT.INSERT.SELPIECES 97234 . 100231) (\TEDIT.RESTARTFN 100233 . 102738) (\TEDIT.CHARDELETE 102740
- . 105669) (\TEDIT.COPYPIECE 105671 . 110833) (\TEDIT.APPLY.OBJFN 110835 . 113921) (\TEDIT.DELETE 
-113923 . 118291) (\TEDIT.DIFFUSE.PARALOOKS 118293 . 120564) (\TEDIT.WORDDELETE 120566 . 122181) (
-\TEDIT.WORDDELETE.FORWARD 122183 . 123972) (\TEDIT.FINISHEDIT? 123974 . 128826)) (128829 129488 (
-\TEDIT.THELP 128839 . 129486)) (129522 138653 (\TEDIT.PARAPIECES 129532 . 131506) (\TEDIT.PARACHNOS 
-131508 . 132400) (\TEDIT.PARA.FIRST 132402 . 135503) (\TEDIT.PARA.LAST 135505 . 138651)) (138654 
-145749 (\TEDIT.WORD.FIRST 138664 . 142668) (\TEDIT.WORD.LAST 142670 . 145747)) (145950 146227 (
-TEDITSYSTEMDATE 145960 . 146225)) (146363 146570 (TEDIT.IMAGESOURCEP 146373 . 146568)))))
+  (FILEMAP (NIL (4840 7234 (MAKE-TEDIT-EXPORTS.ALL 4850 . 5396) (UPDATE-TEDIT 5398 . 6327) (EDIT-TEDIT 
+6329 . 7232)) (8664 36442 (TEDIT 8674 . 11288) (TEXTSTREAM 11290 . 13179) (TEXTSTREAMP 13181 . 13565) 
+(COERCETEXTSTREAM 13567 . 17778) (TEDIT.CONCAT 17780 . 21082) (TEDITSTRING 21084 . 21998) (TEDIT-SEE 
+22000 . 22684) (TEDIT.COPY 22686 . 24831) (TEDIT.DELETE 24833 . 26194) (TEDIT.INSERT 26196 . 29165) (
+TEDIT.TERPRI 29167 . 30281) (TEDIT.KILL 30283 . 31265) (TEDIT.QUIT 31267 . 32633) (TEDIT.MOVE 32635 . 
+33523) (TEDIT.STRINGWIDTH 33525 . 34196) (TEDIT.CHARWIDTH 34198 . 36440)) (36443 38384 (TEXTOBJ 36453
+ . 36918) (COERCETEXTOBJ 36920 . 38382)) (39784 41434 (TDRIBBLE 39794 . 41432)) (41475 53371 (
+TEDIT.INSERT.OBJECT 41485 . 45192) (TEDIT.EDIT.OBJECT 45194 . 48134) (TEDIT.OBJECT.CHANGED 48136 . 
+51326) (TEDIT.MAP.OBJECTS 51328 . 52899) (\TEDIT.FIRST.OBJPIECE 52901 . 53134) (\TEDIT.NEXT.OBJPIECE 
+53136 . 53369)) (53394 60837 (\TEDIT.CONCAT.PAGEFRAMES 53404 . 58471) (\TEDIT.GET.PAGE.HEADINGS 58473
+ . 59502) (\TEDIT.CONCAT.INSTALL.HEADINGS 59504 . 60835)) (60838 64445 (\TEDIT.MOVE.MSG 60848 . 62929)
+ (\TEDIT.READONLY 62931 . 64443)) (64446 70337 (TEDIT.NCHARS 64456 . 64829) (TEDIT.RPLCHARCODE 64831
+ . 67821) (TEDIT.NTHCHARCODE 67823 . 69866) (TEDIT.NTHCHAR 69868 . 70335)) (70383 127160 (\TEDIT1 
+70393 . 72470) (\TEDIT.INSERT 72472 . 78585) (\TEDIT.MOVE 78587 . 86493) (\TEDIT.COPY 86495 . 91026) (
+\TEDIT.REPLACE.SELPIECES 91028 . 95564) (\TEDIT.INSERT.SELPIECES 95566 . 98563) (\TEDIT.RESTARTFN 
+98565 . 101070) (\TEDIT.CHARDELETE 101072 . 104001) (\TEDIT.COPYPIECE 104003 . 109165) (
+\TEDIT.APPLY.OBJFN 109167 . 112253) (\TEDIT.DELETE 112255 . 116623) (\TEDIT.DIFFUSE.PARALOOKS 116625
+ . 118896) (\TEDIT.WORDDELETE 118898 . 120513) (\TEDIT.WORDDELETE.FORWARD 120515 . 122304) (
+\TEDIT.FINISHEDIT? 122306 . 127158)) (127161 127820 (\TEDIT.THELP 127171 . 127818)) (127854 136985 (
+\TEDIT.PARAPIECES 127864 . 129838) (\TEDIT.PARACHNOS 129840 . 130732) (\TEDIT.PARA.FIRST 130734 . 
+133835) (\TEDIT.PARA.LAST 133837 . 136983)) (136986 144081 (\TEDIT.WORD.FIRST 136996 . 141000) (
+\TEDIT.WORD.LAST 141002 . 144079)) (144282 144559 (TEDITSYSTEMDATE 144292 . 144557)) (144695 144902 (
+TEDIT.IMAGESOURCEP 144705 . 144900)))))
 STOP

library/tedit/TEDIT-ABBREV

@@ -1,12 +1,13 @@
 (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
 
-
(FILECREATED "23-Jan-2026 15:49:26" {WMEDLEY}<library>TEDIT>TEDIT-ABBREV.;58
 18256  
+
(FILECREATED "13-Jan-2026 17:51:55" {WMEDLEY}<library>tedit>TEDIT-ABBREV.;55
 18063  
 
       :EDIT-BY rmk
 
       :CHANGES-TO (FNS \TEDIT.ABBREV.EXPAND)
+                  (VARS TEDIT-ABBREVCOMS)
 
-      :PREVIOUS-DATE "13-Jan-2026 17:51:55" {WMEDLEY}<library>tedit>TEDIT-ABBREV.;55)
+      :PREVIOUS-DATE " 8-Jan-2026 09:09:58" {WMEDLEY}<library>tedit>TEDIT-ABBREV.;53)
 
 
 (PRETTYCOMPRINT TEDIT-ABBREVCOMS)
@@ -86,9 +87,7 @@
 (DEFINEQ
 
 (\TEDIT.ABBREV.EXPAND

-  [LAMBDA (TSTREAM TEXTOBJ SEL)
                              (* ; "Edited 23-Jan-2026 15:49 by rmk")


-                                                             (* ; "Edited 20-Jan-2026 09:56 by rmk")


-                                                             (* ; "Edited 13-Jan-2026 17:51 by rmk")


+  [LAMBDA (TSTREAM TEXTOBJ SEL)
                              (* ; "Edited 13-Jan-2026 17:51 by rmk")


                                                              (* ; "Edited  8-Jan-2026 09:08 by rmk")


                                                              (* ; "Edited  3-Jan-2026 13:13 by rmk")


                                                              (* ; "Edited 20-Apr-2025 23:30 by rmk")


@@ -144,11 +143,11 @@
                    (\TEDIT.REPLACE.SELPIECES (\TEDIT.SELPIECES.FROM.STRING EXPANSION TEXTOBJ NIL
                                                     (PCHARLOOKS (\TEDIT.CHTOPC FIRSTCHNO TEXTOBJ)))
                           TSTREAM SEL)
-                   (TEDIT.PROMPTPRINT TSTREAM (CONCAT "Replaced %"" (CL:IF BACKSLASH
-                                                                        (CONCAT (CAR ABBREV)
-                                                                               "\")
-                                                                        (CAR ABBREV))
-                                                     "%" with %"" EXPANSION "%"")
+                   (TEDIT.PROMPTPRINT TSTREAM (CONCAT "Replaced " (CL:IF BACKSLASH
+                                                                      (CONCAT (CAR ABBREV)
+                                                                             "\")
+                                                                      (CAR ABBREV))
+                                                     " with " EXPANSION)
                           T)
             else
 (TEDIT.PROMPTPRINT TSTREAM "No abbreviation to expand" T])
 
@@ -363,7 +362,7 @@
          ("DATE" \TEDIT.EXPAND.DATE)
          (">>DATE<<" \TEDIT.EXPAND.DATE)))
 (DECLARE%: DONTCOPY
-  (FILEMAP (NIL (4348 15152 (\TEDIT.ABBREV.EXPAND 4358 . 9123) (\TEDIT.ABBREV.EXPANSION 9125 . 12189) (
-\TEDIT.ABBREV.TREE 12191 . 13322) (\TEDIT.ABBREV.PARSE 13324 . 14476) (\TEDIT.ABBREV.PARSE.CHARCODE 
-14478 . 15150)) (15153 15798 (\TEDIT.EXPAND.DATE 15163 . 15796)))))
+  (FILEMAP (NIL (4390 14959 (\TEDIT.ABBREV.EXPAND 4400 . 8930) (\TEDIT.ABBREV.EXPANSION 8932 . 11996) (
+\TEDIT.ABBREV.TREE 11998 . 13129) (\TEDIT.ABBREV.PARSE 13131 . 14283) (\TEDIT.ABBREV.PARSE.CHARCODE 
+14285 . 14957)) (14960 15605 (\TEDIT.EXPAND.DATE 14970 . 15603)))))
 STOP

library/tedit/TEDIT-BUTTONS

@@ -1,12 +1,12 @@
 (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
 
-
(FILECREATED "25-Jan-2026 09:14:04" {WMEDLEY}<library>TEDIT>TEDIT-BUTTONS.;230
 123301 
+
(FILECREATED "19-Oct-2025 10:44:18" {WMEDLEY}<library>TEDIT>TEDIT-BUTTONS.;229
 125526 
 
       :EDIT-BY rmk
 
-      :CHANGES-TO (VARS TEDIT-BUTTONSCOMS)
+      :CHANGES-TO (FNS MB.ADD)
 
-      :PREVIOUS-DATE "19-Oct-2025 10:44:18" {WMEDLEY}<library>TEDIT>TEDIT-BUTTONS.;229)
+      :PREVIOUS-DATE "30-Apr-2025 14:09:18" {WMEDLEY}<library>TEDIT>TEDIT-BUTTONS.;228)
 
 
 (PRETTYCOMPRINT TEDIT-BUTTONSCOMS)
@@ -36,9 +36,10 @@
               
               (* ;; "Mutually exclusive togggles with a single enclosing object")

 
-              (FNS MB.NWAY.CREATE MB.NWAY.DISPLAYFN MB.NWAY.SIZEFN MB.NWAY.SELECT 
-                   MB.NWAY.BUTTONEVENTINFN MB.NWAY.NEWMENUBUTTON MB.NWAY.COPYFN MB.NWAY.INIT 
-                   MB.NWAY.ARRANGEBUTTONS MB.NWAY.ADDITEM MB.NWAY.FINDSUBOBJ MB.NWAY.SETSTATEFN)
+              (FNS MB.NWAY.CREATE MB.NWAY.DISPLAYFN MB.NWAY.WHENOPERATEDONFN MB.NWAY.SIZEFN 
+                   MB.NWAY.SELECT MB.NWAY.BUTTONEVENTINFN MB.NWAY.NEWMENUBUTTON MB.NWAY.COPYFN 
+                   MB.NWAY.INIT MB.NWAY.ARRANGEBUTTONS MB.NWAY.ADDITEM MB.NWAY.FINDSUBOBJ 
+                   MB.NWAY.SETSTATEFN)
               (DECLARE%: DONTEVAL@LOAD DOCOPY (P (MB.NWAY.INIT]
         [COMS                                                (* ; "TOGGLE")

               (FNS MB.TOGGLE.CREATE MB.TOGGLE.DISPLAYFN MB.TOGGLE.INIT MB.SET.TOGGLE 
@@ -921,6 +922,39 @@
           (APPLY* (IMAGEOBJPROP SOBJ 'DISPLAYFN)
                  SOBJ STREAM])
 
+(MB.NWAY.WHENOPERATEDONFN

+  [LAMBDA (OBJ PANE OPERATION SEL)
                           (* ; "Edited 21-Oct-2024 00:26 by rmk")


+                                                             (* ; "Edited 24-Aug-2024 23:38 by rmk")


+                                                             (* ; "Edited 13-Aug-2024 23:43 by rmk")


+                                                             (* ; "Edited  2-Aug-2024 00:36 by rmk")


+                                                             (* ; "Edited 21-Jul-2024 13:17 by rmk")


+                                                             (* ; "Edited 17-Jul-2024 21:51 by rmk")


+                                                             (* ; "Edited  9-Apr-2023 15:57 by rmk")


+                                                             (* ; "Edited 13-Sep-2022 12:09 by rmk")


+                                                             (* ; "Edited 30-May-91 22:16 by jds")

+
+    (* ;; "Perhaps the selected subobject should be stored here, as the state?")

+
+    (* ;; "Mouse tracking and highlighting happens in the BUTTONEVENTINFN (MB.NWAYBUTTON.SELFN).  The code here applies the STATECHANGEFN on the main object")

+
+    (NOTUSED)
+    (SELECTQ OPERATION
+        (SELECTED [AND NIL (\TEDIT.THELP)
+                       (LET [(SELECTED (IMAGEOBJPROP OBJ 'SELECTED]
+                            (if
 (IMAGEOBJPROP OBJ 'STATECHANGEFN)
+                                then
 (\TEDIT.THELP)
+                                     (APPLY* (IMAGEOBJPROP OBJ 'STATECHANGEFN)
+                                            OBJ SELECTED SEL PANE)
+                              elseif
 (AND NIL SELECTED (IMAGEOBJPROP SELECTED 'STATECHANGEFN))
+                                then
 
+                                     (* ;; 
+
                     "This is nuked out:  the selected object may be should have done its own thing?")

+
+                                     (APPLY* (IMAGEOBJPROP SELECTED 'STATECHANGEFN)
+                                            OBJ SELECTED SEL PANE])
+        ((HIGHLIGHTED UNHIGHLIGHTED DESELECTED))
+        NIL])
+
 (MB.NWAY.SIZEFN

   [LAMBDA (OBJ STREAM CURX RIGHTMARGIN)
                      (* ; "Edited 20-Aug-2024 15:12 by rmk")


                                                              (* ; "Edited 22-Jul-2024 11:31 by rmk")

@@ -1937,25 +1971,25 @@
 (MB.FIELD.INIT
)
 )
 (DECLARE%: DONTCOPY
-  (FILEMAP (NIL (3188 19324 (MB.ADD 3198 . 9910) (MB.DELETE 9912 . 10286) (MB.GET 10288 . 17058) (
-MB.GET.MBARG 17060 . 18729) (TEDIT.BACKTOMAIN 18731 . 19322)) (19368 39304 (MB.BUTTONEVENTINFN 19378
- . 20946) (MB.DISPLAYFN 20948 . 23007) (MB.SETIMAGE 23009 . 24177) (MB.SIZEFN 24179 . 25727) (
-MB.WHENOPERATEDONFN 25729 . 27678) (MB.COPYFN 27680 . 28138) (MB.GETFN 28140 . 29101) (MB.PUTFN 29103
- . 30203) (MB.SHOWSELFN 30205 . 31714) (MB.CREATE 31716 . 35739) (MB.CHANGENAME 35741 . 36223) (
-MB.INIT 36225 . 37686) (MB.TRACK.UNTIL 37688 . 38383) (MB.DON'T 38385 . 38681) (MB.SPEC.REMAINDER 
-38683 . 39302)) (39466 49471 (MB.3STATE.CREATE 39476 . 40340) (MB.3STATE.DISPLAYFN 40342 . 41328) (
-MB.3STATE.SHOWSELFN 41330 . 43641) (MB.3STATE.INIT 43643 . 45054) (MB.3STATE.SETSTATEFN 45056 . 45714)
- (MB.3STATE.BUTTONEVENTINFN 45716 . 49469)) (49626 78530 (MB.NWAY.CREATE 49636 . 55819) (
-MB.NWAY.DISPLAYFN 55821 . 56684) (MB.NWAY.SIZEFN 56686 . 60622) (MB.NWAY.SELECT 60624 . 64194) (
-MB.NWAY.BUTTONEVENTINFN 64196 . 67408) (MB.NWAY.NEWMENUBUTTON 67410 . 68122) (MB.NWAY.COPYFN 68124 . 
-69091) (MB.NWAY.INIT 69093 . 70584) (MB.NWAY.ARRANGEBUTTONS 70586 . 72557) (MB.NWAY.ADDITEM 72559 . 
-76708) (MB.NWAY.FINDSUBOBJ 76710 . 77224) (MB.NWAY.SETSTATEFN 77226 . 78528)) (78609 90608 (
-MB.TOGGLE.CREATE 78619 . 79614) (MB.TOGGLE.DISPLAYFN 79616 . 81099) (MB.TOGGLE.INIT 81101 . 82900) (
-MB.SET.TOGGLE 82902 . 84103) (MB.TOGGLE.SETSTATEFN 84105 . 84945) (MB.TOGGLE.BUTTONEVENTINFN 84947 . 
-89263) (MB.TOGGLE.WHENOPERATEDONFN 89265 . 90606)) (90689 123222 (MB.FIELD.CREATE 90699 . 96150) (
-MB.FIELD.DISPLAYFN 96152 . 96943) (MB.FIELD.IMAGEBOXFN 96945 . 98427) (MB.FIELD.PREFIXCREATE 98429 . 
-102365) (MB.FIELD.SUFFIXCREATE 102367 . 104027) (MB.FIELD.INIT 104029 . 105796) (
-MB.FIELD.WHENOPERATEDONFN 105798 . 107069) (MB.FIELD.GETSTATEFN 107071 . 111005) (MB.FIELD.SETSTATEFN 
-111007 . 115811) (MB.FIELD.BUTTONEVENTINFN 115813 . 118118) (MB.FIELD.SIZEFN 118120 . 118360) (
-MB.FIELD.INSURETYPE 118362 . 123220)))))
+  (FILEMAP (NIL (3221 19357 (MB.ADD 3231 . 9943) (MB.DELETE 9945 . 10319) (MB.GET 10321 . 17091) (
+MB.GET.MBARG 17093 . 18762) (TEDIT.BACKTOMAIN 18764 . 19355)) (19401 39337 (MB.BUTTONEVENTINFN 19411
+ . 20979) (MB.DISPLAYFN 20981 . 23040) (MB.SETIMAGE 23042 . 24210) (MB.SIZEFN 24212 . 25760) (
+MB.WHENOPERATEDONFN 25762 . 27711) (MB.COPYFN 27713 . 28171) (MB.GETFN 28173 . 29134) (MB.PUTFN 29136
+ . 30236) (MB.SHOWSELFN 30238 . 31747) (MB.CREATE 31749 . 35772) (MB.CHANGENAME 35774 . 36256) (
+MB.INIT 36258 . 37719) (MB.TRACK.UNTIL 37721 . 38416) (MB.DON'T 38418 . 38714) (MB.SPEC.REMAINDER 
+38716 . 39335)) (39499 49504 (MB.3STATE.CREATE 39509 . 40373) (MB.3STATE.DISPLAYFN 40375 . 41361) (
+MB.3STATE.SHOWSELFN 41363 . 43674) (MB.3STATE.INIT 43676 . 45087) (MB.3STATE.SETSTATEFN 45089 . 45747)
+ (MB.3STATE.BUTTONEVENTINFN 45749 . 49502)) (49659 80755 (MB.NWAY.CREATE 49669 . 55852) (
+MB.NWAY.DISPLAYFN 55854 . 56717) (MB.NWAY.WHENOPERATEDONFN 56719 . 58909) (MB.NWAY.SIZEFN 58911 . 
+62847) (MB.NWAY.SELECT 62849 . 66419) (MB.NWAY.BUTTONEVENTINFN 66421 . 69633) (MB.NWAY.NEWMENUBUTTON 
+69635 . 70347) (MB.NWAY.COPYFN 70349 . 71316) (MB.NWAY.INIT 71318 . 72809) (MB.NWAY.ARRANGEBUTTONS 
+72811 . 74782) (MB.NWAY.ADDITEM 74784 . 78933) (MB.NWAY.FINDSUBOBJ 78935 . 79449) (MB.NWAY.SETSTATEFN 
+79451 . 80753)) (80834 92833 (MB.TOGGLE.CREATE 80844 . 81839) (MB.TOGGLE.DISPLAYFN 81841 . 83324) (
+MB.TOGGLE.INIT 83326 . 85125) (MB.SET.TOGGLE 85127 . 86328) (MB.TOGGLE.SETSTATEFN 86330 . 87170) (
+MB.TOGGLE.BUTTONEVENTINFN 87172 . 91488) (MB.TOGGLE.WHENOPERATEDONFN 91490 . 92831)) (92914 125447 (
+MB.FIELD.CREATE 92924 . 98375) (MB.FIELD.DISPLAYFN 98377 . 99168) (MB.FIELD.IMAGEBOXFN 99170 . 100652)
+ (MB.FIELD.PREFIXCREATE 100654 . 104590) (MB.FIELD.SUFFIXCREATE 104592 . 106252) (MB.FIELD.INIT 106254
+ . 108021) (MB.FIELD.WHENOPERATEDONFN 108023 . 109294) (MB.FIELD.GETSTATEFN 109296 . 113230) (
+MB.FIELD.SETSTATEFN 113232 . 118036) (MB.FIELD.BUTTONEVENTINFN 118038 . 120343) (MB.FIELD.SIZEFN 
+120345 . 120585) (MB.FIELD.INSURETYPE 120587 . 125445)))))
 STOP

library/tedit/TEDIT-FILE

@@ -1,13 +1,12 @@
 (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
 
-
(FILECREATED "15-Feb-2026 23:45:51" {WMEDLEY}<library>tedit>TEDIT-FILE.;666
 175062 
+
(FILECREATED "23-Oct-2025 08:49:06" {WMEDLEY}<library>tedit>TEDIT-FILE.;656
 173140 
 
       :EDIT-BY rmk
 
-      :CHANGES-TO (FNS \TEDIT.PUT.MCCS.SPLITPIECES \TEDIT.PUT.PCTB.NEXTNEW)
-                  (VARS TEDIT-FILECOMS)
+      :CHANGES-TO (FNS \TEDIT.GET.UNFORMATTED.FILE.UTF8)
 
-      :PREVIOUS-DATE "14-Feb-2026 10:32:44" {WMEDLEY}<library>tedit>TEDIT-FILE.;659)
+      :PREVIOUS-DATE "25-Sep-2025 21:32:46" {WMEDLEY}<library>tedit>TEDIT-FILE.;655)
 
 
 (PRETTYCOMPRINT TEDIT-FILECOMS)
@@ -51,9 +50,8 @@
               (* ;; "Putting pageframe functions are on TEDIT-PAGE)")

 
               (FNS \TEDIT.PUT.PCTB \TEDIT.PUT.PCTB.PIECEDATA \TEDIT.PUT.TRAILER 
-                   \TEDIT.PUT.PCTB.MERGEABLE \TEDIT.PUT.UTF8.SPLITPIECES \TEDIT.PUT.MCCS.SPLITPIECES
-                   \TEDIT.PUT.PCTB.NEXTNEW \TEDIT.INSERT.NEWPIECES \TEDIT.PUTRESET \ARBOUT \ATMOUT 
-                   \DWOUT \STRINGOUT)
+                   \TEDIT.PUT.PCTB.MERGEABLE \TEDIT.PUT.UTF8.SPLITPIECES \TEDIT.PUT.PCTB.NEXTNEW 
+                   \TEDIT.INSERT.NEWPIECES \TEDIT.PUTRESET \ARBOUT \ATMOUT \DWOUT \STRINGOUT)
               (FNS \TEDIT.PUT.CHARLOOKS.LIST \TEDIT.PUT.SINGLE.CHARLOOKS \TEDIT.PUT.CHARLOOKS 
                    \TEDIT.PUT.CHARLOOKS1 \TEDIT.PUT.OBJECT)
               (FNS \TEDIT.PUT.PARALOOKS.LIST \TEDIT.PUT.SINGLE.PARALOOKS \TEDIT.PUT.PARALOOKS))
@@ -1832,7 +1830,6 @@
 
 (\TEDIT.PUT.PCTB

   [LAMBDA (TEXTOBJ CHARSTREAM FORMATSTREAM CONTINUE KEEPSEPARATE)

-                                                             (* ; "Edited 14-Feb-2026 10:32 by rmk")


                                                              (* ; "Edited  9-Sep-2025 21:32 by rmk")


                                                              (* ; "Edited 26-Apr-2025 00:11 by rmk")


                                                              (* ; "Edited 21-Oct-2024 00:33 by rmk")


@@ -1925,10 +1922,10 @@
 
               (* ;; "For MCCS, CHARSET will put out the char-shifting prefix bytes as needed. In format-version 3 all the file bytes belong to a piece, no skipping in the file.   TEDIT.GET calls \TEDIT.INTERPRET.XCCS.SHIFTS to shave those bytes.  NSHIFTBYTES is used here if the edit will continue.")

 
-              (CHARSET CHARSTREAM (OR (AND (EQ EXTFORMAT :XCCS)
-                                           (MEMB (PTYPE PC)
-                                                 FAT.PTYPES))
-                                      (PCHARSET PC)))
+              (CHARSET CHARSTREAM (CL:IF (MEMB (PTYPE PC)
+                                               FAT.PTYPES)
+                                      T
+                                      0))
               (SETQ NSHIFTBYTES (IDIFFERENCE (\GETFILEPTR CHARSTREAM)
                                        OLDBYTE#)))
           (do
 (\TEDIT.PUT.PCTB.PIECEDATA
 PC CHARSTREAM TEXTOBJ FORMATSTREAM OLDBYTE#)
@@ -2155,35 +2152,8 @@
                                 (RETURN))))
               NIL])
 
-(\TEDIT.PUT.MCCS.SPLITPIECES

-  [LAMBDA (TEXTOBJ)
                                          (* ; "Edited 15-Feb-2026 23:45 by rmk")

-
-    (* ;; "We are putting to a :MCCS format file, and MCCS doesn't support single-byte runs of non-charset 0 characters. This function splits fat pieces into subpieces with only charset-0 characters or no charset-0 characters.  The former will be put out as THINFILE pieces, the latter as FATFILE2.")

-
-    (for
 PC FIRST0 FIRSTNON0 inpieces
 (\TEDIT.FIRSTPIECE TEXTOBJ)
-       when
 [AND (MEMB (PTYPE PC)
-                       (CONSTANT (LIST FATSTRING.PTYPE FATFILE2.PTYPE UTF8.PTYPE)))
-                 (SETQ FIRST0 (find
 I from
 0 to
 (PLAST PC)
-                                 suchthat
 (EQ 0 (\CHARSET (\TEDIT.PIECE.NTHCHARCODE PC I]
-       do
 (if
 [SETQ FIRSTNON0 (find
 I from
 (ADD1 FIRST0) to
 (PLAST PC)
-                                 suchthat
 (NEQ 0 (\CHARSET (\TEDIT.PIECE.NTHCHARCODE PC I]
-              then
 
-                   (* ;; "xxx000yyy --> xxx 000yyy   or 000yyy --> 000 yyy")

-
-                   (\TEDIT.SPLITPIECE PC (CL:IF (EQ FIRST0 0)
-                                             FIRSTNON0
-                                             FIRST0)
-                          TEXTOBJ)                           (* ; "Iterate to the residual piece")

-                   (SETQ PC (PREVPIECE PC))
-            elseif
 (NEQ 0 FIRST0)
-              then
 
-                   (* ;; "xxx000")

-
-                   (\TEDIT.SPLITPIECE PC FIRST0 TEXTOBJ])
-
 (\TEDIT.PUT.PCTB.NEXTNEW

   [LAMBDA (NEXTNEW PC OLDBYTE# RUNLEN EXTFORMAT TEXTOBJ EOLC NSHIFTBYTES)

-                                                             (* ; "Edited 15-Feb-2026 15:09 by rmk")


                                                              (* ; "Edited 25-Apr-2025 08:48 by rmk")


                                                              (* ; "Edited 26-Mar-2025 09:27 by rmk")


                                                              (* ; "Edited 21-Oct-2024 00:26 by rmk")


@@ -2232,7 +2202,7 @@
 
                                        "The file may have LF, but we want to restore EOL internally")

         (CL:WHEN [AND (EQ THINFILE.PTYPE (PTYPE NEXTNEW))
                       (EQ (CHARCODE EOL)
-                          (\TEDIT.PIECE.NTHCHARCODE PC (PLAST PC]
+                          (\TEDIT.PIECE.NTHCHARCODE PC (PLEN PC]
             (if
 (EQ 1 (PLEN NEXTNEW))
                 then
 (FSETPC NEXTNEW PTYPE THINSTRING.PTYPE)
                      (FSETPC NEXTNEW PCONTENTS (ALLOCSTRING 1 (CHARCODE EOL)))
@@ -2655,8 +2625,7 @@
 (DEFINEQ
 
 (TEDITFROMLISPSOURCE

-  [LAMBDA (SOURCEFILE TSTREAM PROPS USERTEMP START END)
      (* ; "Edited  7-Feb-2026 17:02 by rmk")


-                                                             (* ; "Edited  7-Apr-2025 23:13 by rmk")


+  [LAMBDA (SOURCEFILE TSTREAM PROPS USERTEMP START END)
      (* ; "Edited  7-Apr-2025 23:13 by rmk")


                                                              (* ; "Edited  1-Apr-2025 12:54 by rmk")


                                                              (* ; "Edited 26-Mar-2025 10:02 by rmk")


                                                              (* ; "Edited 18-Feb-2025 23:34 by rmk")


@@ -2689,6 +2658,9 @@
                                   ,(TEDIT.ATOMBOUND.READTABLE (fetch
 (READER-ENVIRONMENT REREADTABLE)
                                                                  of
 USERTEMP))
                                   DEFAULTPUTEXTENSION ""))
+    (TEDIT.PROMPTPRINT TSTREAM (CONCAT "Fetching " (FULLNAME SOURCEFILE)
+                                      " ...")
+           T)
     (COPY.TEXT.TO.IMAGE SOURCEFILE TSTREAM)
     TSTREAM])
 
@@ -2721,29 +2693,28 @@
 
 (RPAQ? *TEDIT-FILE-READTABLE*
 (COPYREADTABLE \ORIGREADTABLE))
 (DECLARE%: DONTCOPY
-  (FILEMAP (NIL (5423 35682 (TEDIT.GET 5433 . 11843) (TEDIT.FORMATTEDFILEP 11845 . 13161) (
-TEDIT.FILEDATE 13163 . 14472) (TEDIT.INCLUDE 14474 . 22503) (TEDIT.RAW.INCLUDE 22505 . 23313) (
-TEDIT.PUT 23315 . 31671) (TEDIT.PUT.STREAM 31673 . 35680)) (35683 56957 (\TEDIT.GET.FOREIGN.FILE 35693
- . 39118) (\TEDIT.GET.UNFORMATTED.FILE 39120 . 43426) (\TEDIT.GET.FORMATTED.FILE 43428 . 47071) (
-\TEDIT.FORMATTEDSTREAMP 47073 . 50204) (\ARBIN 50206 . 50926) (\ATMIN 50928 . 51465) (\DWIN 51467 . 
-51846) (\STRINGIN 51848 . 52556) (\TEDIT.GET.TRAILER 52558 . 55426) (\TEDIT.CACHEFILE 55428 . 56955)) 
-(57123 73161 (\TEDIT.GET.PIECES3 57133 . 68096) (\TEDIT.GET.PROPS3 68098 . 71320) (
-\TEDIT.MAKE.STRINGPIECE 71322 . 73159)) (73162 86588 (\TEDIT.GET.UNFORMATTED.FILE.MCCS 73172 . 79405) 
-(\TEDIT.INTERPRET.MCCS.SHIFTS 79407 . 85652) (\TEDIT.CONVERT.XCCSTOMCCS 85654 . 86586)) (86610 92855 (
-\TEDIT.GET.UNFORMATTED.FILE.UTF8 86620 . 92853)) (92878 104220 (\TEDIT.GET.CHARLOOKS.LIST 92888 . 
-93619) (\TEDIT.GET.SINGLE.CHARLOOKS 93621 . 100693) (\TEDIT.GET.CHARLOOKS 100695 . 102251) (
-\TEDIT.GET.PARALOOKS.INDEX 102253 . 102797) (\TEDIT.GET.CHARLOOKS.INDEX 102799 . 104218)) (104221 
-111878 (\TEDIT.GET.PARALOOKS.LIST 104231 . 104853) (\TEDIT.GET.SINGLE.PARALOOKS 104855 . 111876)) (
-111879 115712 (\TEDIT.GET.OBJECT 111889 . 115710)) (115777 150880 (\TEDIT.PUT.PCTB 115787 . 125844) (
-\TEDIT.PUT.PCTB.PIECEDATA 125846 . 129044) (\TEDIT.PUT.TRAILER 129046 . 130374) (
-\TEDIT.PUT.PCTB.MERGEABLE 130376 . 134149) (\TEDIT.PUT.UTF8.SPLITPIECES 134151 . 138853) (
-\TEDIT.PUT.MCCS.SPLITPIECES 138855 . 140433) (\TEDIT.PUT.PCTB.NEXTNEW 140435 . 145041) (
-\TEDIT.INSERT.NEWPIECES 145043 . 148478) (\TEDIT.PUTRESET 148480 . 148722) (\ARBOUT 148724 . 149448) (
-\ATMOUT 149450 . 150055) (\DWOUT 150057 . 150336) (\STRINGOUT 150338 . 150878)) (150881 163615 (
-\TEDIT.PUT.CHARLOOKS.LIST 150891 . 152563) (\TEDIT.PUT.SINGLE.CHARLOOKS 152565 . 158845) (
-\TEDIT.PUT.CHARLOOKS 158847 . 160186) (\TEDIT.PUT.CHARLOOKS1 160188 . 161239) (\TEDIT.PUT.OBJECT 
-161241 . 163613)) (163616 171255 (\TEDIT.PUT.PARALOOKS.LIST 163626 . 164528) (
-\TEDIT.PUT.SINGLE.PARALOOKS 164530 . 170114) (\TEDIT.PUT.PARALOOKS 170116 . 171253)) (171350 174755 (
-TEDITFROMLISPSOURCE 171360 . 174004) (SHELLSCRIPTP 174006 . 174235) (TEDITFROMSHELLSCRIPT 174237 . 
-174753)))))
+  (FILEMAP (NIL (5317 35576 (TEDIT.GET 5327 . 11737) (TEDIT.FORMATTEDFILEP 11739 . 13055) (
+TEDIT.FILEDATE 13057 . 14366) (TEDIT.INCLUDE 14368 . 22397) (TEDIT.RAW.INCLUDE 22399 . 23207) (
+TEDIT.PUT 23209 . 31565) (TEDIT.PUT.STREAM 31567 . 35574)) (35577 56851 (\TEDIT.GET.FOREIGN.FILE 35587
+ . 39012) (\TEDIT.GET.UNFORMATTED.FILE 39014 . 43320) (\TEDIT.GET.FORMATTED.FILE 43322 . 46965) (
+\TEDIT.FORMATTEDSTREAMP 46967 . 50098) (\ARBIN 50100 . 50820) (\ATMIN 50822 . 51359) (\DWIN 51361 . 
+51740) (\STRINGIN 51742 . 52450) (\TEDIT.GET.TRAILER 52452 . 55320) (\TEDIT.CACHEFILE 55322 . 56849)) 
+(57017 73055 (\TEDIT.GET.PIECES3 57027 . 67990) (\TEDIT.GET.PROPS3 67992 . 71214) (
+\TEDIT.MAKE.STRINGPIECE 71216 . 73053)) (73056 86482 (\TEDIT.GET.UNFORMATTED.FILE.MCCS 73066 . 79299) 
+(\TEDIT.INTERPRET.MCCS.SHIFTS 79301 . 85546) (\TEDIT.CONVERT.XCCSTOMCCS 85548 . 86480)) (86504 92749 (
+\TEDIT.GET.UNFORMATTED.FILE.UTF8 86514 . 92747)) (92772 104114 (\TEDIT.GET.CHARLOOKS.LIST 92782 . 
+93513) (\TEDIT.GET.SINGLE.CHARLOOKS 93515 . 100587) (\TEDIT.GET.CHARLOOKS 100589 . 102145) (
+\TEDIT.GET.PARALOOKS.INDEX 102147 . 102691) (\TEDIT.GET.CHARLOOKS.INDEX 102693 . 104112)) (104115 
+111772 (\TEDIT.GET.PARALOOKS.LIST 104125 . 104747) (\TEDIT.GET.SINGLE.PARALOOKS 104749 . 111770)) (
+111773 115606 (\TEDIT.GET.OBJECT 111783 . 115604)) (115671 148934 (\TEDIT.PUT.PCTB 115681 . 125588) (
+\TEDIT.PUT.PCTB.PIECEDATA 125590 . 128788) (\TEDIT.PUT.TRAILER 128790 . 130118) (
+\TEDIT.PUT.PCTB.MERGEABLE 130120 . 133893) (\TEDIT.PUT.UTF8.SPLITPIECES 133895 . 138597) (
+\TEDIT.PUT.PCTB.NEXTNEW 138599 . 143095) (\TEDIT.INSERT.NEWPIECES 143097 . 146532) (\TEDIT.PUTRESET 
+146534 . 146776) (\ARBOUT 146778 . 147502) (\ATMOUT 147504 . 148109) (\DWOUT 148111 . 148390) (
+\STRINGOUT 148392 . 148932)) (148935 161669 (\TEDIT.PUT.CHARLOOKS.LIST 148945 . 150617) (
+\TEDIT.PUT.SINGLE.CHARLOOKS 150619 . 156899) (\TEDIT.PUT.CHARLOOKS 156901 . 158240) (
+\TEDIT.PUT.CHARLOOKS1 158242 . 159293) (\TEDIT.PUT.OBJECT 159295 . 161667)) (161670 169309 (
+\TEDIT.PUT.PARALOOKS.LIST 161680 . 162582) (\TEDIT.PUT.SINGLE.PARALOOKS 162584 . 168168) (
+\TEDIT.PUT.PARALOOKS 168170 . 169307)) (169404 172833 (TEDITFROMLISPSOURCE 169414 . 172082) (
+SHELLSCRIPTP 172084 . 172313) (TEDITFROMSHELLSCRIPT 172315 . 172831)))))
 STOP

library/tedit/TEDIT-FNKEYS

@@ -1,12 +1,12 @@
 (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
 
-
(FILECREATED " 8-Feb-2026 19:54:41" {WMEDLEY}<library>tedit>TEDIT-FNKEYS.;318
 109228 
+
(FILECREATED "24-Nov-2025 08:40:56" {WMEDLEY}<library>TEDIT>TEDIT-FNKEYS.;317
 109076 
 
       :EDIT-BY rmk
 
-      :CHANGES-TO (VARS TEDIT.BASIC.CHARBINDINGS ORIG.TEDIT.CHARACTIONS)
+      :CHANGES-TO (VARS TEDIT.BASIC.CHARBINDINGS)
 
-      :PREVIOUS-DATE "24-Nov-2025 08:40:56" {WMEDLEY}<library>tedit>TEDIT-FNKEYS.;317)
+      :PREVIOUS-DATE "24-Nov-2025 00:38:18" {WMEDLEY}<library>TEDIT>TEDIT-FNKEYS.;316)
 
 
 (PRETTYCOMPRINT TEDIT-FNKEYSCOMS)
@@ -1776,8 +1776,6 @@
         (:PRINT.MENU \TEDIT.PRINT.MENU)
         (:EXPAND \TEDIT.ABBREV.EXPAND)
         (:GET.OBJECT GET.OBJ.FROM.USER)
-        (:PAGENUMOBJ (TEDIT.INSERT.OBJECT (TEDIT.PAGENO.CREATE)
-                            TSTREAM))
         (:OPENLINE \TEDIT.KEY.OPENLINE)
         
         (* ;; "")

@@ -1915,7 +1913,6 @@
         (:PRINT.MENU "Meta,P" "Meta,p")
         (:EXPAND "^X")
         (:GET.OBJECT "^O")
-        (:PAGENUMOBJ "^P")
         
         (* ;; "")

 
@@ -1989,30 +1986,30 @@
 (RPAQ TEDIT.WORDBOUND.READTABLE
 (\TEDIT.WORDBOUND.READTABLE))
 )
 (DECLARE%: DONTCOPY
-  (FILEMAP (NIL (5054 23319 (TEDIT.INSTALL.CHARBINDINGS 5064 . 7915) (TEDIT.CLEAR.CHARBINDINGS 7917 . 
-10937) (TEDIT.GET.CHARACTION 10939 . 13720) (TEDIT.GET.CHARBINDING 13722 . 15899) (
-TEDIT.GET.ALL.CHARBINDINGS 15901 . 18400) (TEDIT.CHARBINDINGS.INVERT 18402 . 19681) (
-TEDIT.GET.ALL.CHARACTIONS 19683 . 22005) (TEDIT.CONFLICTING.CHARBINDINGS 22007 . 23317)) (23379 33434 
-(\TEDIT.KEY.CHARLOOKS 23389 . 24581) (\TEDIT.KEY.QUAD 24583 . 26676) (\TEDIT.DEFAULTSSEL 26678 . 27289
-) (\TEDIT.SETDEFAULT.FROM.SEL 27291 . 27968) (\TEDIT.KEY.SIZE 27970 . 29166) (\TEDIT.SUBSCRIPTSEL 
-29168 . 29371) (\TEDIT.SUPERSCRIPTSEL 29373 . 29577) (\TEDIT.KEY.TRANSFORM 29579 . 31576) (
-\TEDIT.KEY.OPENLINE 31578 . 32032) (\TEDIT.KEY.FAMILYN 32034 . 33432)) (33435 33724 (CAP-CASECODE 
-33445 . 33722)) (33758 37190 (\TEDIT.SHOWCARETLOOKS 33768 . 36283) (\TEDIT.DESCRIBEFONT 36285 . 37188)
-) (37221 52194 (\TEDIT.ONECHAR.BACKWARD 37231 . 38378) (\TEDIT.ONECHAR.FORWARD 38380 . 39616) (
-\TEDIT.ONELINE.UP 39618 . 42579) (\TEDIT.ONELINE.DOWN 42581 . 44238) (\TEDIT.ONELINE.MOVE 44240 . 
-46527) (\TEDIT.ONEWORD.BACKWARD 46529 . 47717) (\TEDIT.ONEWORD.FORWARD 47719 . 48906) (
-\TEDIT.LINE.BEGIN 48908 . 49987) (\TEDIT.LINE.END 49989 . 51226) (\TEDIT.DOCUMENT.BEGIN 51228 . 51587)
- (\TEDIT.DOCUMENT.END 51589 . 52192)) (52195 55503 (\TEDIT.LINEDELETE.FORWARD 52205 . 53314) (
-\TEDIT.LINEDELETE.BACKWARD 53316 . 54455) (\TEDIT.LINEDELETE 54457 . 55501)) (55504 58032 (
-\TEDIT.KEY.NEST 55514 . 58030)) (58033 59315 (\TEDIT.KEY.WRAP 58043 . 59313)) (59406 67454 (
-\TEDIT.KEY.FIND 59416 . 64594) (\TEDIT.KEY.FIND.SEARCHSTRING 64596 . 65736) (\TEDIT.GET.TARGET.STRING 
-65738 . 67452)) (67485 70117 (\TEDIT.KEY.SUBSTITUTE 67495 . 67716) (\TEDIT.MANPAGE 67718 . 68965) (
-\TEDIT.CALL.ED 68967 . 69797) (\TEDIT.SELECT.ALL 69799 . 70115)) (70144 75834 (\TEDIT.CLIPBOARD 70154
- . 71909) (\TEDIT.COPYTOCLIPBOARD 71911 . 72691) (\TEDIT.EXTRACTTOCLIPBOARD 72693 . 72888) (
-\TEDIT.WRITE.SEL 72890 . 75832)) (76000 88507 (\TEDIT.READTABLE 76010 . 76946) (
-\TEDIT.WORDBOUND.READTABLE 76948 . 79996) (TEDIT.GETSYNTAX 79998 . 81227) (TEDIT.SETSYNTAX 81229 . 
-82543) (TEDIT.GETFUNCTION 82545 . 84018) (TEDIT.SETFUNCTION 84020 . 86176) (TEDIT.WORDGET 86178 . 
-86439) (TEDIT.WORDSET 86441 . 87181) (TEDIT.ATOMBOUND.READTABLE 87183 . 88505)) (88608 95596 (
-TEDIT.BUTTONS.BUILD 88618 . 93864) (TEDIT.BUTTONBITMAP.FILL 93866 . 95594)) (98061 98649 (
-\TEDIT.TTCCLASS 98071 . 98647)))))
+  (FILEMAP (NIL (5031 23296 (TEDIT.INSTALL.CHARBINDINGS 5041 . 7892) (TEDIT.CLEAR.CHARBINDINGS 7894 . 
+10914) (TEDIT.GET.CHARACTION 10916 . 13697) (TEDIT.GET.CHARBINDING 13699 . 15876) (
+TEDIT.GET.ALL.CHARBINDINGS 15878 . 18377) (TEDIT.CHARBINDINGS.INVERT 18379 . 19658) (
+TEDIT.GET.ALL.CHARACTIONS 19660 . 21982) (TEDIT.CONFLICTING.CHARBINDINGS 21984 . 23294)) (23356 33411 
+(\TEDIT.KEY.CHARLOOKS 23366 . 24558) (\TEDIT.KEY.QUAD 24560 . 26653) (\TEDIT.DEFAULTSSEL 26655 . 27266
+) (\TEDIT.SETDEFAULT.FROM.SEL 27268 . 27945) (\TEDIT.KEY.SIZE 27947 . 29143) (\TEDIT.SUBSCRIPTSEL 
+29145 . 29348) (\TEDIT.SUPERSCRIPTSEL 29350 . 29554) (\TEDIT.KEY.TRANSFORM 29556 . 31553) (
+\TEDIT.KEY.OPENLINE 31555 . 32009) (\TEDIT.KEY.FAMILYN 32011 . 33409)) (33412 33701 (CAP-CASECODE 
+33422 . 33699)) (33735 37167 (\TEDIT.SHOWCARETLOOKS 33745 . 36260) (\TEDIT.DESCRIBEFONT 36262 . 37165)
+) (37198 52171 (\TEDIT.ONECHAR.BACKWARD 37208 . 38355) (\TEDIT.ONECHAR.FORWARD 38357 . 39593) (
+\TEDIT.ONELINE.UP 39595 . 42556) (\TEDIT.ONELINE.DOWN 42558 . 44215) (\TEDIT.ONELINE.MOVE 44217 . 
+46504) (\TEDIT.ONEWORD.BACKWARD 46506 . 47694) (\TEDIT.ONEWORD.FORWARD 47696 . 48883) (
+\TEDIT.LINE.BEGIN 48885 . 49964) (\TEDIT.LINE.END 49966 . 51203) (\TEDIT.DOCUMENT.BEGIN 51205 . 51564)
+ (\TEDIT.DOCUMENT.END 51566 . 52169)) (52172 55480 (\TEDIT.LINEDELETE.FORWARD 52182 . 53291) (
+\TEDIT.LINEDELETE.BACKWARD 53293 . 54432) (\TEDIT.LINEDELETE 54434 . 55478)) (55481 58009 (
+\TEDIT.KEY.NEST 55491 . 58007)) (58010 59292 (\TEDIT.KEY.WRAP 58020 . 59290)) (59383 67431 (
+\TEDIT.KEY.FIND 59393 . 64571) (\TEDIT.KEY.FIND.SEARCHSTRING 64573 . 65713) (\TEDIT.GET.TARGET.STRING 
+65715 . 67429)) (67462 70094 (\TEDIT.KEY.SUBSTITUTE 67472 . 67693) (\TEDIT.MANPAGE 67695 . 68942) (
+\TEDIT.CALL.ED 68944 . 69774) (\TEDIT.SELECT.ALL 69776 . 70092)) (70121 75811 (\TEDIT.CLIPBOARD 70131
+ . 71886) (\TEDIT.COPYTOCLIPBOARD 71888 . 72668) (\TEDIT.EXTRACTTOCLIPBOARD 72670 . 72865) (
+\TEDIT.WRITE.SEL 72867 . 75809)) (75977 88484 (\TEDIT.READTABLE 75987 . 76923) (
+\TEDIT.WORDBOUND.READTABLE 76925 . 79973) (TEDIT.GETSYNTAX 79975 . 81204) (TEDIT.SETSYNTAX 81206 . 
+82520) (TEDIT.GETFUNCTION 82522 . 83995) (TEDIT.SETFUNCTION 83997 . 86153) (TEDIT.WORDGET 86155 . 
+86416) (TEDIT.WORDSET 86418 . 87158) (TEDIT.ATOMBOUND.READTABLE 87160 . 88482)) (88585 95573 (
+TEDIT.BUTTONS.BUILD 88595 . 93841) (TEDIT.BUTTONBITMAP.FILL 93843 . 95571)) (98038 98626 (
+\TEDIT.TTCCLASS 98048 . 98624)))))
 STOP

library/tedit/TEDIT-LOOKS

@@ -1,12 +1,12 @@
 (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
 
-
(FILECREATED "16-Feb-2026 00:36:00" {WMEDLEY}<library>TEDIT>TEDIT-LOOKS.;467
 155443 
+
(FILECREATED " 7-Dec-2025 16:32:32" {WMEDLEY}<library>tedit>TEDIT-LOOKS.;460
 155196 
 
       :EDIT-BY rmk
 
-      :CHANGES-TO (FNS \TEDIT.MCCS.TRANSLATE)
+      :CHANGES-TO (VARS TEDIT-LOOKSCOMS)
 
-      :PREVIOUS-DATE "10-Feb-2026 11:07:12" {WMEDLEY}<library>tedit>TEDIT-LOOKS.;465)
+      :PREVIOUS-DATE " 6-Oct-2025 20:50:59" {WMEDLEY}<library>tedit>TEDIT-LOOKS.;459)
 
 
 (PRETTYCOMPRINT TEDIT-LOOKSCOMS)
@@ -924,8 +924,7 @@
 (DEFINEQ
 
 (\TEDIT.MCCS.TRANSLATE

-  [LAMBDA (TSTREAM)
                                          (* ; "Edited 16-Feb-2026 00:35 by rmk")


-                                                             (* ; "Edited  6-Oct-2025 20:50 by rmk")


+  [LAMBDA (TSTREAM)
                                          (* ; "Edited  6-Oct-2025 20:50 by rmk")


                                                              (* ; "Edited  5-Oct-2025 10:57 by rmk")


                                                              (* ; "Edited 25-Sep-2025 21:30 by rmk")


                                                              (* ; "Edited  9-Sep-2025 21:48 by rmk")


@@ -955,17 +954,19 @@
                                                                               (SETQ CLOOKS
                                                                                (PCHARLOOKS PC))
                                                                               CLFONT]
-                do
 (for
 OFFSET OLDCODE STRING FAT from
 0 to
 (PLAST PC)
-                      eachtime
 (SETQ OLDCODE (\TEDIT.PIECE.NTHCHARCODE PC OFFSET))
+                do
 (for
 OFFSET OLDCODE STRING FAT from
 1 to
 (PLEN PC) eachtime
 (SETQ OLDCODE
+                                                                                (
+                                                                             \TEDIT.PIECE.NTHCHARCODE
+                                                                                 PC OFFSET))
                       unless
 (EQ OLDCODE (APPLY* TOMCCSFN OLDCODE))
                       do
 
                          (* ;; "This piece has recoded character.   Start over to convert it to a string piece with necessary code conversions.   (The logic to split the original piece at just the changes while still preserving the iteration would be very complicated).")

 
                          (SETQ STRING (ALLOCSTRING (PLEN PC)))
-                         [for
 I from
 0 to
 (PLAST PC) do
 (RPLCHARCODE STRING (ADD1 I)
-                                                               (APPLY* TOMCCSFN (
+                         [for
 OFFSET from
 1 to
 (PLEN PC) do
 (RPLCHARCODE STRING OFFSET
+                                                                   (APPLY* TOMCCSFN (
                                                                              \TEDIT.PIECE.NTHCHARCODE
-                                                                                 PC I]
+                                                                                     PC OFFSET]
                          (SETQ FAT (ffetch
 (STRINGP FATSTRINGP) of
 STRING))
                          (FSETPC PC PTYPE (CL:IF FAT
                                               FATSTRING.PTYPE
@@ -1376,8 +1377,7 @@
 (DEFINEQ
 
 (\TEDIT.CHANGE.CHARLOOKS

-  [LAMBDA (TSTREAM NEWLOOKS TARGETSEL)
                       (* ; "Edited 10-Feb-2026 11:06 by rmk")


-                                                             (* ; "Edited 31-Jul-2025 09:18 by rmk")


+  [LAMBDA (TSTREAM NEWLOOKS TARGETSEL)
                       (* ; "Edited 31-Jul-2025 09:18 by rmk")


                                                              (* ; "Edited 22-Apr-2025 20:17 by rmk")


                                                              (* ; "Edited 21-Apr-2025 20:17 by rmk")


                                                              (* ; "Edited 20-Apr-2025 13:27 by rmk")


@@ -1403,12 +1403,10 @@
 (* ;;; "Internal programmatic interface to changing character looks.  DOES NOT CHANGE the current selection (unless it's the TARGETSEL).")

 
     (PROG ((TEXTOBJ (TEXTOBJ TSTREAM))
-           SELPIECES NEWLOOKSLIST FONT DIRTY)
+           SELPIECES NEWLOOKSLIST FONT DIRTY)                (* ; 
+
                                                           "Construct the set of new looks to apply:")

           (CL:UNLESS TARGETSEL
               (SETQ TARGETSEL (TEXTSEL TEXTOBJ)))
-          (CL:WHEN (EQ 0 (GETSEL TARGETSEL DCH))
-              (TEDIT.PROMPTPRINT TSTREAM "No characters are selected" T)
-              (RETURN))
           (CL:UNLESS (AND NEWLOOKS (FGETSEL TARGETSEL SET)
                           (NOT (\TEDIT.READONLY TSTREAM NIL (GETSEL TARGETSEL CH#)))
                           (ILEQ (GETSEL TARGETSEL CH#)
@@ -2105,8 +2103,7 @@
                  then
 (\TEDIT.CHANGE.PARALOOKS
 TSTREAM NEWLOOKS TARGETSEL)))])
 
 (\TEDIT.CHANGE.PARALOOKS

-  [LAMBDA (TSTREAM NEWLOOKS TARGETSEL)
                       (* ; "Edited 10-Feb-2026 11:07 by rmk")


-                                                             (* ; "Edited 21-Apr-2025 23:27 by rmk")


+  [LAMBDA (TSTREAM NEWLOOKS TARGETSEL)
                       (* ; "Edited 21-Apr-2025 23:27 by rmk")


                                                              (* ; "Edited 20-Apr-2025 13:27 by rmk")


                                                              (* ; "Edited 16-Apr-2025 09:05 by rmk")


                                                              (* ; "Edited  6-Apr-2025 14:29 by rmk")


@@ -2129,9 +2126,6 @@
                               NEWPAGEAFTER HEADINGKEEP KEEP HARDCOPY USERINFO REVISED STYLE 
                               CHARSTYLES COLUMN TABS DEFAULTTAB MARGINBAR))
            PARAPIECES)
-          (CL:WHEN (EQ 0 (TEXTLEN TEXTOBJ))
-              (TEDIT.PROMPTPRINT TSTREAM "No text to modify" T)
-              (RETURN))
           (CL:UNLESS TARGETSEL
               (SETQ TARGETSEL (TEXTSEL TEXTOBJ)))
           (CL:UNLESS (AND NEWLOOKS (FGETSEL TARGETSEL SET)
@@ -2464,26 +2458,26 @@
 (ADDTOVAR LAMA
 )
 )
 (DECLARE%: DONTCOPY
-  (FILEMAP (NIL (22019 23961 (\TEDIT.CHARLOOKS.DEFPRINT 22029 . 23165) (\TEDIT.PARALOOKS.DEFPRINT 23167
- . 23959)) (24065 24451 (\TEDIT.CREATE.FACE.MENU 24075 . 24247) (\TEDIT.CREATE.SIZE.MENU 24249 . 24449
-)) (25455 27344 (\TEDIT.CHARLOOKS.FEATURE.CHECK 25465 . 27342)) (27616 52873 (
-\TEDIT.CHARLOOKS.FROM.FONT 27626 . 29910) (\TEDIT.EQCLOOKS 29912 . 32943) (\TEDIT.SAMECLOOKS 32945 . 
-36116) (TEDIT.CARETLOOKS 36118 . 37664) (TEDIT.COPY.LOOKS 37666 . 40949) (
-\TEDIT.UNPARSE.CHARLOOKS.LIST 40951 . 44445) (\TEDIT.MODIFYLOOKS 44447 . 46607) (TEDIT.NEW.FONT 46609
- . 47056) (\TEDIT.CARETLOOKS.VERIFY 47058 . 47895) (\TEDIT.CARETPIECE 47897 . 48202) (
-\TEDIT.GET.INSERT.CHARLOOKS 48204 . 51251) (\TEDIT.GET.TERMSA.WIDTHS 51253 . 51669) (
-\TEDIT.PARSE.CHARLOOKS.LIST 51671 . 52871)) (52874 64879 (\TEDIT.MCCS.TRANSLATE 52884 . 58615) (
-\TEDIT.CONVERT.TO.FORMATTED 58617 . 64877)) (65751 73088 (\TEDIT.UNIQUIFY.CHARLOOKS 65761 . 67421) (
-\TEDIT.UNIQUIFY.PARALOOKS 67423 . 68690) (\TEDIT.UNIQUIFY.ALL 68692 . 70780) (
-\TEDIT.FLUSH.UNUSED.LOOKS 70782 . 73086)) (73121 85079 (TEDIT.LOOKS 73131 . 75520) (TEDIT.GET.LOOKS 
-75522 . 77857) (TEDIT.SUBLOOKS 77859 . 82239) (TEDIT.FINDLOOKS 82241 . 85077)) (85080 114853 (
-\TEDIT.CHANGE.CHARLOOKS 85090 . 93991) (\TEDIT.CHANGE.CHARLOOKS.NEW 93993 . 97808) (
-\TEDIT.CHARLOOKS.CHANGE.FONT 97810 . 106117) (\TEDIT.FONT.NEXTSIZE 106119 . 107740) (\TEDIT.LOOKS 
-107742 . 111071) (\TEDIT.FONTCOPY 111073 . 112574) (\TEDIT.COERCE.FONTCLASS 112576 . 113727) (
-\TEDIT.FONTCLASS.TO.FONT 113729 . 114851)) (114896 146785 (\TEDIT.EQFMTSPEC 114906 . 118121) (
-TEDIT.GET.PARALOOKS 118123 . 122170) (\TEDIT.PARSE.PARALOOKS.LIST 122172 . 130205) (TEDIT.PARALOOKS 
-130207 . 131247) (\TEDIT.CHANGE.PARALOOKS 131249 . 138458) (\TEDIT.CHANGE.PARALOOKS.NEW 138460 . 
-142443) (TEDIT.COPY.PARALOOKS 142445 . 145119) (\TEDIT.PARABOUNDS 145121 . 146783)) (146845 154561 (
-TEDIT.SUBPARALOOKS 146855 . 150957) (SAMEPARALOOKS 150959 . 154559)) (154562 155249 (
-\TEDIT.MARK.REVISION 154572 . 155247)))))
+  (FILEMAP (NIL (22014 23956 (\TEDIT.CHARLOOKS.DEFPRINT 22024 . 23160) (\TEDIT.PARALOOKS.DEFPRINT 23162
+ . 23954)) (24060 24446 (\TEDIT.CREATE.FACE.MENU 24070 . 24242) (\TEDIT.CREATE.SIZE.MENU 24244 . 24444
+)) (25450 27339 (\TEDIT.CHARLOOKS.FEATURE.CHECK 25460 . 27337)) (27611 52868 (
+\TEDIT.CHARLOOKS.FROM.FONT 27621 . 29905) (\TEDIT.EQCLOOKS 29907 . 32938) (\TEDIT.SAMECLOOKS 32940 . 
+36111) (TEDIT.CARETLOOKS 36113 . 37659) (TEDIT.COPY.LOOKS 37661 . 40944) (
+\TEDIT.UNPARSE.CHARLOOKS.LIST 40946 . 44440) (\TEDIT.MODIFYLOOKS 44442 . 46602) (TEDIT.NEW.FONT 46604
+ . 47051) (\TEDIT.CARETLOOKS.VERIFY 47053 . 47890) (\TEDIT.CARETPIECE 47892 . 48197) (
+\TEDIT.GET.INSERT.CHARLOOKS 48199 . 51246) (\TEDIT.GET.TERMSA.WIDTHS 51248 . 51664) (
+\TEDIT.PARSE.CHARLOOKS.LIST 51666 . 52866)) (52869 64996 (\TEDIT.MCCS.TRANSLATE 52879 . 58732) (
+\TEDIT.CONVERT.TO.FORMATTED 58734 . 64994)) (65868 73205 (\TEDIT.UNIQUIFY.CHARLOOKS 65878 . 67538) (
+\TEDIT.UNIQUIFY.PARALOOKS 67540 . 68807) (\TEDIT.UNIQUIFY.ALL 68809 . 70897) (
+\TEDIT.FLUSH.UNUSED.LOOKS 70899 . 73203)) (73238 85196 (TEDIT.LOOKS 73248 . 75637) (TEDIT.GET.LOOKS 
+75639 . 77974) (TEDIT.SUBLOOKS 77976 . 82356) (TEDIT.FINDLOOKS 82358 . 85194)) (85197 114847 (
+\TEDIT.CHANGE.CHARLOOKS 85207 . 93985) (\TEDIT.CHANGE.CHARLOOKS.NEW 93987 . 97802) (
+\TEDIT.CHARLOOKS.CHANGE.FONT 97804 . 106111) (\TEDIT.FONT.NEXTSIZE 106113 . 107734) (\TEDIT.LOOKS 
+107736 . 111065) (\TEDIT.FONTCOPY 111067 . 112568) (\TEDIT.COERCE.FONTCLASS 112570 . 113721) (
+\TEDIT.FONTCLASS.TO.FONT 113723 . 114845)) (114890 146538 (\TEDIT.EQFMTSPEC 114900 . 118115) (
+TEDIT.GET.PARALOOKS 118117 . 122164) (\TEDIT.PARSE.PARALOOKS.LIST 122166 . 130199) (TEDIT.PARALOOKS 
+130201 . 131241) (\TEDIT.CHANGE.PARALOOKS 131243 . 138211) (\TEDIT.CHANGE.PARALOOKS.NEW 138213 . 
+142196) (TEDIT.COPY.PARALOOKS 142198 . 144872) (\TEDIT.PARABOUNDS 144874 . 146536)) (146598 154314 (
+TEDIT.SUBPARALOOKS 146608 . 150710) (SAMEPARALOOKS 150712 . 154312)) (154315 155002 (
+\TEDIT.MARK.REVISION 154325 . 155000)))))
 STOP

library/tedit/TEDIT-MENU

@@ -1,12 +1,12 @@
 (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
 
-
(FILECREATED " 9-Feb-2026 09:10:43" {WMEDLEY}<library>tedit>TEDIT-MENU.;510
 183027 
+
(FILECREATED "12-Dec-2025 00:01:26" {WMEDLEY}<library>tedit>TEDIT-MENU.;501
 183343 
 
       :EDIT-BY rmk
 
-      :CHANGES-TO (FNS \TEDIT.PAGEMENU.CREATE)
+      :CHANGES-TO (VARS TEDIT-MENUCOMS)
 
-      :PREVIOUS-DATE "27-Jan-2026 10:42:09" {WMEDLEY}<library>tedit>TEDIT-MENU.;508)
+      :PREVIOUS-DATE " 7-Dec-2025 16:34:30" {WMEDLEY}<library>tedit>TEDIT-MENU.;499)
 
 
 (PRETTYCOMPRINT TEDIT-MENUCOMS)
@@ -1381,8 +1381,7 @@
 (DEFINEQ
 
 (\TEDIT.EXPANDEDMENU.CREATE

-  [LAMBDA NIL
                                                (* ; "Edited 25-Jan-2026 10:52 by rmk")


-                                                             (* ; "Edited 29-May-2025 09:31 by rmk")


+  [LAMBDA NIL
                                                (* ; "Edited 29-May-2025 09:31 by rmk")


                                                              (* ; "Edited  8-Mar-2025 12:27 by rmk")


                                                              (* ; "Edited  7-Jan-2025 16:05 by rmk")


                                                              (* ; "Edited  8-Nov-2024 08:35 by rmk")


@@ -1464,15 +1463,13 @@
                           TAB
                           (FIELD (IDENTIFIER SERVER)
                                  (PRELABEL "server:")
-                                 (FIELDTYPE SYMBOL)
-                                 (EMPTYVALUE NIL))
+                                 (FIELDTYPE SYMBOL))
                           (FIELD (IDENTIFIER COPIES)
                                  (PRELABEL "copies:")
-                                 (EMPTYVALUE 1)
                                  (FIELDTYPE POSITIVENUMBER))
-                          3
-                          (TOGGLE (IDENTIFIER DOUBLE-SIDED)
-                                 (LABEL "Double-sided"))
+                          2
+                          (NWAY (IDENTIFIER SIDES)
+                                (BUTTONS (One% Side Duplex)))
                           EOL TAB TAB (FIELD (IDENTIFIER MESSAGE/PHONE#)
                                              (PRELABEL "Message/Phone#:")
                                              (FIELDTYPE STRING])
@@ -1549,8 +1546,7 @@
            (RETURN 'DON'T])
 
 (\TEDIT.EXPANDEDMENU.ACTIONFN

-  [LAMBDA (OBJ MENUSEL MENUWINDOW MENUSTREAM MAINSTREAM)
     (* ; "Edited 25-Jan-2026 11:05 by rmk")


-                                                             (* ; "Edited 29-May-2025 09:29 by rmk")


+  [LAMBDA (OBJ MENUSEL MENUWINDOW MENUSTREAM MAINSTREAM)
     (* ; "Edited 29-May-2025 09:29 by rmk")


                                                              (* ; "Edited 11-May-2025 15:01 by rmk")


                                                              (* ; "Edited  6-Apr-2025 14:39 by rmk")


                                                              (* ; "Edited 18-Mar-2025 23:54 by rmk")


@@ -1568,11 +1564,11 @@
                                                              (* ; 
 
                                                          "MBFN for TEdit default menu item buttons.")

     (ERSETQ (RESETLST
-                (RESETSAVE NIL (LIST [FUNCTION (LAMBDA (SEL)
-                                                 (FSETSEL SEL SET NIL]
-                                     MENUSEL))
                 (LET ((MENUTEXTOBJ (FTEXTOBJ MENUSTREAM))
                       STATES STATE)
+                     [RESETSAVE (PROG1 OBJ
+                                    (IMAGEOBJPROP OBJ 'MENUBUTTON.SELECTED T))
+                            '(AND (IMAGEOBJPROP OLDVALUE 'MENUBUTTON.SELECTED NIL]
                      (SELECTQ (IMAGEOBJPROP OBJ 'IDENTIFIER)
                          (QUIT                               (* ; "Is it OK to quit the main edit?")

                                (\TEDIT.FINISHEDIT? MAINSTREAM))
@@ -1640,21 +1636,29 @@
                                                                                        )
                                                      (EQ 'ON (LISTGET STATES 'CONFIRM))
                                                      (EQ 'ON (LISTGET STATES 'USENEWLOOKS])])
-                         (HARDCOPY (SETQ STATES (MB.GET '(SERVER COPIES DOUBLE-SIDED MESSAGE/PHONE#)
+                         (HARDCOPY (SETQ STATES (MB.GET '(SERVER COPIES SIDES MESSAGE/PHONE#)
                                                        MENUSTREAM
                                                        'STATE MENUSEL))
-                                   (LET ((COPIES (LISTGET STATES 'COPIES))
+                                   (LET ((SERVER (LISTGET STATES 'SERVER))
+                                         (COPIES (LISTGET STATES 'COPIES))
+                                         (SIDES (LISTGET STATES 'SIDES))
                                          (MSG (LISTGET STATES 'MESSAGE/PHONE#))
                                          PRINTOPTIONS)
+                                        (CL:UNLESS (AND SERVER (SETQ SERVER (\TEDIT.MAKEFILENAME
+                                                                             SERVER)))
+                                               (TEDIT.PROMPTPRINT MAINSTREAM 
+                                                      "Using default print server."))
                                         (CL:WHEN COPIES
                                             (SETQ PRINTOPTIONS (LIST '%#COPIES COPIES)))
-                                        (CL:WHEN (LISTGET STATES 'DOUBLE-SIDED)
-                                            (push
 PRINTOPTIONS '%#SIDES 2))
+                                        (CL:WHEN SIDES
+                                            (push
 PRINTOPTIONS '%#SIDES (SELECTQ SIDES
+                                                                            (One% Side 1)
+                                                                            (Duplex 2)
+                                                                            NIL)))
                                         (CL:WHEN MSG
                                             (push
 PRINTOPTIONS 'MESSAGE (\TEDIT.MAKEFILENAME MSG)))
-                                        (SEND.FILE.TO.PRINTER MAINSTREAM (LISTGET STATES 'SERVER)
-                                               PRINTOPTIONS)))
-                         (SHOULDNT))))])
+                                        (TEDIT.HARDCOPY MAINSTREAM NIL NIL NIL SERVER PRINTOPTIONS)))
+                         (ERROR))))])
 )
 
 
@@ -2367,9 +2371,7 @@
 (DEFINEQ
 
 (\TEDIT.PAGEMENU.CREATE

-  [LAMBDA (TSTREAM)
                                          (* ; "Edited  9-Feb-2026 09:09 by rmk")


-                                                             (* ; "Edited 26-Jan-2026 12:03 by rmk")


-                                                             (* ; "Edited  5-Jun-2025 18:41 by rmk")


+  [LAMBDA (TSTREAM)
                                          (* ; "Edited  5-Jun-2025 18:41 by rmk")


                                                              (* ; "Edited 11-May-2025 14:40 by rmk")


                                                              (* ; "Edited 27-Jan-2025 08:51 by rmk")


                                                              (* ; "Edited  7-Jan-2025 15:47 by rmk")


@@ -2409,10 +2411,16 @@
                           EOL "Paper Size:  " (NWAY (IDENTIFIER PAPERSIZE)
                                                     (BUTTONS (Letter Legal A4))
                                                     (INITSTATE Letter))
-                          16
+                          8
                           (TOGGLE (LABEL "Landscape"))
+                          7
+                          (FIELD (IDENTIFIER STARTINGPAGE#)
+                                 (PRELABEL "Starting page #:")
+                                 (LABELFONT (HELVETICA 10))
+                                 (FIELDTYPE POSITIVENUMBER))
                           EOL
-                          (TEXT (STRING "For page:  "))
+                          (TEXT (STRING "For page:  ")
+                                (FONT (HELVETICA 10)))
                           (NWAY (IDENTIFIER PAGEID)
                                 (BUTTONS (|First(&Default)| Other% Left Other% Right)))
                           EOL
@@ -2422,7 +2430,8 @@
                           (* ;; "Page numbers")

 
                           5
-                          (TEXT (STRING "Page numbers:  "))
+                          (TEXT (STRING "Page numbers:  ")
+                                (FONT (HELVETICA 10)))
                           (NWAY (IDENTIFIER PAGENOS)
                                 (BUTTONS (No Yes Heading))
                                 (INITSTATE Yes))
@@ -2445,18 +2454,14 @@
                           3 "Alignment:" 2 (NWAY (IDENTIFIER QUAD)
                                                  (BUTTONS (Left Centered Right))
                                                  (INITSTATE Centered))
-                          EOL TAB (FIELD (IDENTIFIER FOLIOPRETEXT)
-                                         (PRELABEL "Text before number:"))
-                          5
-                          (FIELD (IDENTIFIER FOLIOPOSTTEXT)
-                                 (PRELABEL "Text after number:"))
                           EOL
 
                           (* ;; "")

 
                           (* ;; "Margins")

 
-                          EOL 5 (TEXT (STRING "Margins:   "))
+                          EOL 5 (TEXT (STRING "Margins:   ")
+                                      (FONT (HELVETICA 10)))
                           (FIELD (IDENTIFIER LEFTMARGIN)
                                  (PRELABEL "Left")
                                  (POSTLABEL "picas")
@@ -2484,6 +2489,7 @@
 
                           EOL 5 (FIELD (IDENTIFIER COLUMNS)
                                        (PRELABEL "Columns:")
+                                       (LABELFONT (HELVETICA 10))
                                        (INITSTATE 1)
                                        (FIELDTYPE POSITIVENUMBER))
                           4
@@ -2729,8 +2735,7 @@
     (TEDIT.BACKTOMAIN MENUSTREAM])
 
 (\TEDIT.CHANGE.PAGELOOKS

-  [LAMBDA (MAINTEXTSTREAM PAGELOOKS)
                         (* ; "Edited 27-Jan-2026 10:41 by rmk")


-                                                             (* ; "Edited 11-May-2025 15:04 by rmk")


+  [LAMBDA (MAINTEXTSTREAM PAGELOOKS)
                         (* ; "Edited 11-May-2025 15:04 by rmk")


                                                              (* ; "Edited 24-Dec-2024 21:28 by rmk")


                                                              (* ; "Edited 20-Oct-2024 17:17 by rmk")


                                                              (* ; "Edited 30-Aug-2024 23:43 by rmk")


@@ -2749,8 +2754,8 @@
                                                            ((OFF NEUTRAL) 
                                                                 (RPLACA PLTAIL NIL))
                                                            NIL))
-          (SELECTQ (L-CASE PAGENOS T)
-              ((Yes T)                                       (* ; 
+          (SELECTQ PAGENOS
+              (Yes                                           (* ; 
 
                                                    "Page number format specfified in pagelooks menu")

                    (CL:UNLESS (AND (LISTGET PAGELOOKS 'PAGENUMBERX)
                                    (LISTGET PAGELOOKS 'PAGENUMBERY))
@@ -2771,7 +2776,7 @@
                       (* ;; "Page numbers formatted/printed by image object in header paragraphs")

 
                       (push
 PAGEPROPS 'STARTINGPAGE# (LISTGET PAGELOOKS 'STARTINGPAGE#)))
-              (SHOULDNT))
+              NIL)
           (CL:UNLESS (LISTGET PAGELOOKS 'COLUMNS)
               (LISTPUT PAGELOOKS 'COLUMNS 1)
               (RETURN))
@@ -2781,6 +2786,9 @@
               (TEDIT.PROMPTPRINT MAINTEXTOBJ "Please specify the space between columns" T T)
               (RETURN))
           [push
 PAGEPROPS 'LANDSCAPE? (EQ 'ON (LISTGET PAGELOOKS 'LANDSCAPE]
+
+     (* ;; "**EMPTY** may come from field values in the pagelooks menue")

+
           (TEDIT.PAGEFORMAT MAINTEXTOBJ (TEDIT.SINGLE.PAGEFORMAT PAGENOS (LISTGET PAGELOOKS
                                                                                 'PAGENUMBERX)
                                                (LISTGET PAGELOOKS 'PAGENUMBERY)
@@ -2899,32 +2907,32 @@
 (ADDTOVAR LAMA
 )
 )
 (DECLARE%: DONTCOPY
-  (FILEMAP (NIL (4936 16574 (TEDIT.ADD.MENUITEM 4946 . 7063) (TEDIT.DEFAULT.MENUFN 7065 . 13786) (
-TEDIT.REMOVE.MENUITEM 13788 . 14785) (\TEDIT.CREATEMENU 14787 . 15352) (\TEDIT.MENU.WHENHELDFN 15354
- . 16259) (\TEDIT.MENU.WHENSELECTEDFN 16261 . 16572)) (17388 65423 (DRAWMARGINSCALE 17398 . 20857) (
-MARGINBAR 20859 . 27984) (MARGINBAR.CREATE 27986 . 32184) (MB.MARGINBAR.BUTTONEVENTINFN 32186 . 39988)
- (MB.MARGINBAR.SELFN.TABS 39990 . 45230) (MB.MARGINBAR.SELFN.TABS.KIND 45232 . 46167) (
-MARGINBAR.GETSTATEFN 46169 . 50156) (MARGINBAR.SETSTATEFN 50158 . 50368) (MARGINBAR.NEUTRALIZE 50370
- . 51045) (MARGINBAR.LOOKS 51047 . 54153) (MB.MARGINBAR.SIZEFN 54155 . 54941) (MB.MARGINBAR.DISPLAYFN 
-54943 . 58004) (MDESCALE 58006 . 58546) (MSCALE 58548 . 58878) (MB.MARGINBAR.SHOWTAB 58880 . 61203) (
-MB.MARGINBAR.TABTRACK 61205 . 62590) (MARGINBAR.INIT 62592 . 63985) (\TEDIT.PARALOOKS.TO.MARBAR 63987
- . 65421)) (66248 73530 (TEDIT.MENUSTREAM 66258 . 67258) (TEDITMENUP 67260 . 68229) (\TEDIT.MENU.START
- 68231 . 72578) (\TEDIT.MENU.OPEN? 72580 . 72954) (\TEDIT.MENU.BUTTONEVENTFN 72956 . 73528)) (73849 
-81900 (\TEDIT.MENU.CREATE 73859 . 75799) (\TEDIT.MENU.PARSE 75801 . 79490) (\TEDIT.MENU.NEUTRALIZE 
-79492 . 81563) (\TEDITMENU.RECORD.UNFORMATTED 81565 . 81898)) (81966 101368 (
-\TEDIT.EXPANDEDMENU.CREATE 81976 . 87654) (\TEDIT.EXPANDEDMENU.START 87656 . 89280) (
-\TEDIT.EXPANDEDMENU.FN 89282 . 92537) (\TEDIT.EXPANDEDMENU.ACTIONFN 92539 . 101366)) (101430 120855 (
-\TEDIT.PARAMENU.CREATE 101440 . 110171) (\TEDIT.PARAMENU.START 110173 . 111427) (
-\TEDIT.APPLY.PARALOOKS 111429 . 112481) (\TEDIT.SHOW.PARALOOKS 112483 . 115200) (
-\TEDIT.PARAMENU.FILLIN 115202 . 119951) (\TEDIT.PARAMENU.RESHAPEFN 119953 . 120853)) (121049 147891 (
-\TEDIT.CHARMENU.CREATE 121059 . 123663) (\TEDIT.CHARMENU.START 123665 . 124955) (\TEDIT.CHARMENU.SPEC 
-124957 . 129640) (\TEDIT.CHARMENU.PARSE 129642 . 132810) (\TEDIT.CHARMENU.FILLIN 132812 . 137442) (
-\TEDIT.SHOW.CHARLOOKS 137444 . 140989) (\TEDIT.APPLY.CHARLOOKS 140991 . 142152) (
-\TEDIT.OFFSETTYPE.STATEFN 142154 . 144117) (\TEDIT.OTHER.STATECHANGEFN 144119 . 145764) (
-\TEDIT.OTHER.SELECTFN 145766 . 147889)) (147953 177067 (\TEDIT.PAGEMENU.CREATE 147963 . 156484) (
-\TEDIT.PAGEMENU.START 156486 . 156837) (\TEDIT.SHOW.PAGELOOKS 156839 . 158725) (\TEDIT.PAGEMENU.FILLIN
- 158727 . 160277) (\TEDIT.PAGEREGION.UNPARSE 160279 . 169678) (\TEDIT.APPLY.PAGELOOKS 169680 . 171607)
- (\TEDIT.CHANGE.PAGELOOKS 171609 . 176223) (\TEDIT.PAGEMENU.CHARLOOKS.STATEFN 176225 . 177065)) (
-177068 182871 (\TEDIT.PAGEMENU.CREATE.HEADINGS 177078 . 179890) (\TEDIT.PAGEMENU.HEADINGS.SETSTATEFN 
-179892 . 181317) (\TEDIT.PAGEMENU.HEADINGS.STATEFN 181319 . 182869)))))
+  (FILEMAP (NIL (4929 16567 (TEDIT.ADD.MENUITEM 4939 . 7056) (TEDIT.DEFAULT.MENUFN 7058 . 13779) (
+TEDIT.REMOVE.MENUITEM 13781 . 14778) (\TEDIT.CREATEMENU 14780 . 15345) (\TEDIT.MENU.WHENHELDFN 15347
+ . 16252) (\TEDIT.MENU.WHENSELECTEDFN 16254 . 16565)) (17381 65416 (DRAWMARGINSCALE 17391 . 20850) (
+MARGINBAR 20852 . 27977) (MARGINBAR.CREATE 27979 . 32177) (MB.MARGINBAR.BUTTONEVENTINFN 32179 . 39981)
+ (MB.MARGINBAR.SELFN.TABS 39983 . 45223) (MB.MARGINBAR.SELFN.TABS.KIND 45225 . 46160) (
+MARGINBAR.GETSTATEFN 46162 . 50149) (MARGINBAR.SETSTATEFN 50151 . 50361) (MARGINBAR.NEUTRALIZE 50363
+ . 51038) (MARGINBAR.LOOKS 51040 . 54146) (MB.MARGINBAR.SIZEFN 54148 . 54934) (MB.MARGINBAR.DISPLAYFN 
+54936 . 57997) (MDESCALE 57999 . 58539) (MSCALE 58541 . 58871) (MB.MARGINBAR.SHOWTAB 58873 . 61196) (
+MB.MARGINBAR.TABTRACK 61198 . 62583) (MARGINBAR.INIT 62585 . 63978) (\TEDIT.PARALOOKS.TO.MARBAR 63980
+ . 65414)) (66241 73523 (TEDIT.MENUSTREAM 66251 . 67251) (TEDITMENUP 67253 . 68222) (\TEDIT.MENU.START
+ 68224 . 72571) (\TEDIT.MENU.OPEN? 72573 . 72947) (\TEDIT.MENU.BUTTONEVENTFN 72949 . 73521)) (73842 
+81893 (\TEDIT.MENU.CREATE 73852 . 75792) (\TEDIT.MENU.PARSE 75794 . 79483) (\TEDIT.MENU.NEUTRALIZE 
+79485 . 81556) (\TEDITMENU.RECORD.UNFORMATTED 81558 . 81891)) (81959 101740 (
+\TEDIT.EXPANDEDMENU.CREATE 81969 . 87436) (\TEDIT.EXPANDEDMENU.START 87438 . 89062) (
+\TEDIT.EXPANDEDMENU.FN 89064 . 92319) (\TEDIT.EXPANDEDMENU.ACTIONFN 92321 . 101738)) (101802 121227 (
+\TEDIT.PARAMENU.CREATE 101812 . 110543) (\TEDIT.PARAMENU.START 110545 . 111799) (
+\TEDIT.APPLY.PARALOOKS 111801 . 112853) (\TEDIT.SHOW.PARALOOKS 112855 . 115572) (
+\TEDIT.PARAMENU.FILLIN 115574 . 120323) (\TEDIT.PARAMENU.RESHAPEFN 120325 . 121225)) (121421 148263 (
+\TEDIT.CHARMENU.CREATE 121431 . 124035) (\TEDIT.CHARMENU.START 124037 . 125327) (\TEDIT.CHARMENU.SPEC 
+125329 . 130012) (\TEDIT.CHARMENU.PARSE 130014 . 133182) (\TEDIT.CHARMENU.FILLIN 133184 . 137814) (
+\TEDIT.SHOW.CHARLOOKS 137816 . 141361) (\TEDIT.APPLY.CHARLOOKS 141363 . 142524) (
+\TEDIT.OFFSETTYPE.STATEFN 142526 . 144489) (\TEDIT.OTHER.STATECHANGEFN 144491 . 146136) (
+\TEDIT.OTHER.SELECTFN 146138 . 148261)) (148325 177383 (\TEDIT.PAGEMENU.CREATE 148335 . 156847) (
+\TEDIT.PAGEMENU.START 156849 . 157200) (\TEDIT.SHOW.PAGELOOKS 157202 . 159088) (\TEDIT.PAGEMENU.FILLIN
+ 159090 . 160640) (\TEDIT.PAGEREGION.UNPARSE 160642 . 170041) (\TEDIT.APPLY.PAGELOOKS 170043 . 171970)
+ (\TEDIT.CHANGE.PAGELOOKS 171972 . 176539) (\TEDIT.PAGEMENU.CHARLOOKS.STATEFN 176541 . 177381)) (
+177384 183187 (\TEDIT.PAGEMENU.CREATE.HEADINGS 177394 . 180206) (\TEDIT.PAGEMENU.HEADINGS.SETSTATEFN 
+180208 . 181633) (\TEDIT.PAGEMENU.HEADINGS.STATEFN 181635 . 183185)))))
 STOP

library/tedit/TEDIT-PAGE

@@ -1,13 +1,12 @@
 (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
 
-
(FILECREATED "27-Jan-2026 10:30:27" {WMEDLEY}<library>TEDIT>TEDIT-PAGE.;243
 130855 
+
(FILECREATED "17-Jan-2026 12:00:08" {WMEDLEY}<library>tedit>TEDIT-PAGE.;241
 130528 
 
       :EDIT-BY rmk
 
-      :CHANGES-TO (FNS TEDIT.SINGLE.PAGEFORMAT)
-                  (VARS TEDIT-PAGECOMS)
+      :CHANGES-TO (FNS TEDIT.TO.IMAGEFILE)
 
-      :PREVIOUS-DATE "17-Jan-2026 12:00:08" {WMEDLEY}<library>TEDIT>TEDIT-PAGE.;241)
+      :PREVIOUS-DATE "15-Jan-2026 10:48:30" {WMEDLEY}<library>tedit>TEDIT-PAGE.;240)
 
 
 (PRETTYCOMPRINT TEDIT-PAGECOMS)
@@ -52,7 +51,6 @@
                                                   (TEDIT.SINGLE.PAGEFORMAT T 540 756 NIL 'RIGHT 72 72
                                                          72 72 NIL 1]
         (FNS TEDIT.TO.IMAGEFILE)
-        [P (DEFAULT.IMAGETYPE.CONVERSIONS '(TEDIT TEDIT.TO.IMAGEFILE]
         (COMS 
               (* ;; "Perform page layout, based on a regular expression of typed regions.")

 
@@ -315,8 +313,7 @@
 
 (TEDIT.SINGLE.PAGEFORMAT

   [LAMBDA (PAGE#S? PX PY PFONT PQUAD LEFT RIGHT TOP BOTTOM COLS COLWIDTH INTERCOL HEADINGS UNITS 
-                 PAGEPROPS PAPERSIZE)
                        (* ; "Edited 27-Jan-2026 10:30 by rmk")


-                                                             (* ; "Edited 11-May-2025 14:59 by rmk")


+                 PAGEPROPS PAPERSIZE)
                        (* ; "Edited 11-May-2025 14:59 by rmk")


                                                              (* ; "Edited 10-Jan-2025 11:41 by rmk")


                                                              (* ; "Edited 24-Dec-2024 21:20 by rmk")


                                                              (* ; "Edited 15-Aug-2024 23:01 by rmk")


@@ -359,8 +356,7 @@
           (AND INTERCOL (SETQ INTERCOL (HCSCALE SCALEFACTOR INTERCOL)))
           (SETQ PAGEWIDTH (IDIFFERENCE (IDIFFERENCE PAPERWIDTH RIGHT)
                                  LEFT))
-          (CL:WHEN (MEMB (L-CASE PAGE#S? T)
-                         '(T Yes))
+          (CL:WHEN (EQ PAGE#S? 'Yes)
 
               (* ;; "This asserts that the page number's region is 4 inches wide.  Why?  What if the pretext/posttext is longer?")

 
@@ -734,8 +730,6 @@
                (RETURN (CLOSEF IMAGESTREAM))))])
 )
 
-(DEFAULT.IMAGETYPE.CONVERSIONS '(TEDIT TEDIT.TO.IMAGEFILE))
-
 
 
 (* ;; "Perform page layout, based on a regular expression of typed regions.")

@@ -2062,18 +2056,18 @@
                         (RETURN (DREMOVE NIL $$VAL])
 )
 (DECLARE%: DONTCOPY
-  (FILEMAP (NIL (12248 15860 (\TEDIT.PARSE.PAGEFRAMES 12258 . 14037) (\TEDIT.PUT.PAGEFRAMES 14039 . 
-14863) (\TEDIT.UNPARSE.PAGEFRAMES 14865 . 15858)) (15923 38091 (TEDIT.SINGLE.PAGEFORMAT 15933 . 27077)
- (TEDIT.COMPOUND.PAGEFORMAT 27079 . 28058) (TEDIT.PAGEFORMAT 28060 . 35349) (TEDIT.GET.PAGEFORMAT 
-35351 . 38089)) (38378 44858 (TEDIT.TO.IMAGEFILE 38388 . 44856)) (45006 98258 (\TEDIT.FORMATBOX 45016
- . 58440) (\TEDIT.FORMATHEADING 58442 . 63088) (\TEDIT.FORMATPAGE 63090 . 72279) (\TEDIT.FORMATTEXTBOX
- 72281 . 88794) (\TEDIT.FORMATFOLIO 88796 . 94113) (\TEDIT.FORMAT.FOUNDBOX? 94115 . 96154) (
-\TEDIT.SKIP.SPECIALCOND 96156 . 98256)) (98338 103393 (\TEDIT.HARDCOPY.PAGEHEADINGS 98348 . 103391)) (
-103502 111553 (\TEDIT.HARDCOPY-COLUMN-END 103512 . 111551)) (111598 116539 (SCALEPAGEUNITS 111608 . 
-112749) (SCALEPAGEXUNITS 112751 . 113521) (SCALEPAGEYUNITS 113523 . 114294) (\TEDIT.PAPERHEIGHT 114296
- . 115231) (\TEDIT.PAPERWIDTH 115233 . 116537)) (116955 120523 (ROMANNUMERALS 116965 . 120521)) (
-120562 127828 (TEDIT.PAGENO.CREATE 120572 . 120948) (\TEDIT.PAGENO.OBJINIT 120950 . 122233) (
-\TEDIT.PAGENO.BUTTONEVENTINFN 122235 . 123301) (\TEDIT.PAGENO.IMAGEBOXFN 123303 . 125453) (
-\TEDIT.PAGENO.DISPLAYFN 125455 . 127105) (\TEDIT.PAGENO.GETFN 127107 . 127499) (\TEDIT.PAGENO.PUTFN 
-127501 . 127826)) (127893 130832 (\TEDIT.FORMAT.FOOTNOTE 127903 . 130830)))))
+  (FILEMAP (NIL (12133 15745 (\TEDIT.PARSE.PAGEFRAMES 12143 . 13922) (\TEDIT.PUT.PAGEFRAMES 13924 . 
+14748) (\TEDIT.UNPARSE.PAGEFRAMES 14750 . 15743)) (15808 37825 (TEDIT.SINGLE.PAGEFORMAT 15818 . 26811)
+ (TEDIT.COMPOUND.PAGEFORMAT 26813 . 27792) (TEDIT.PAGEFORMAT 27794 . 35083) (TEDIT.GET.PAGEFORMAT 
+35085 . 37823)) (38112 44592 (TEDIT.TO.IMAGEFILE 38122 . 44590)) (44679 97931 (\TEDIT.FORMATBOX 44689
+ . 58113) (\TEDIT.FORMATHEADING 58115 . 62761) (\TEDIT.FORMATPAGE 62763 . 71952) (\TEDIT.FORMATTEXTBOX
+ 71954 . 88467) (\TEDIT.FORMATFOLIO 88469 . 93786) (\TEDIT.FORMAT.FOUNDBOX? 93788 . 95827) (
+\TEDIT.SKIP.SPECIALCOND 95829 . 97929)) (98011 103066 (\TEDIT.HARDCOPY.PAGEHEADINGS 98021 . 103064)) (
+103175 111226 (\TEDIT.HARDCOPY-COLUMN-END 103185 . 111224)) (111271 116212 (SCALEPAGEUNITS 111281 . 
+112422) (SCALEPAGEXUNITS 112424 . 113194) (SCALEPAGEYUNITS 113196 . 113967) (\TEDIT.PAPERHEIGHT 113969
+ . 114904) (\TEDIT.PAPERWIDTH 114906 . 116210)) (116628 120196 (ROMANNUMERALS 116638 . 120194)) (
+120235 127501 (TEDIT.PAGENO.CREATE 120245 . 120621) (\TEDIT.PAGENO.OBJINIT 120623 . 121906) (
+\TEDIT.PAGENO.BUTTONEVENTINFN 121908 . 122974) (\TEDIT.PAGENO.IMAGEBOXFN 122976 . 125126) (
+\TEDIT.PAGENO.DISPLAYFN 125128 . 126778) (\TEDIT.PAGENO.GETFN 126780 . 127172) (\TEDIT.PAGENO.PUTFN 
+127174 . 127499)) (127566 130505 (\TEDIT.FORMAT.FOOTNOTE 127576 . 130503)))))
 STOP

library/tedit/TEDIT-PCTREE

@@ -1,13 +1,14 @@
 (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
 
-
(FILECREATED "14-Feb-2026 13:22:06" {WMEDLEY}<library>TEDIT>TEDIT-PCTREE.;251
 68691  
+
(FILECREATED "28-Jul-2025 23:25:19" 
+{DSK}<Users>kaplan>Local>medley3.5>working-medley>library>tedit>TEDIT-PCTREE.;249
 69193  
 
       :EDIT-BY rmk
 
-      :CHANGES-TO (VARS TEDIT-PCTREECOMS)
-                  (FNS \TEDIT.UNLINKPIECE \TEDIT.DELETEPIECES)
+      :CHANGES-TO (FNS \TEDIT.MAKEPCTB)
 
-      :PREVIOUS-DATE "28-Jul-2025 23:25:19" {WMEDLEY}<library>TEDIT>TEDIT-PCTREE.;249)
+      :PREVIOUS-DATE " 8-Feb-2025 20:56:54" 
+{DSK}<Users>kaplan>Local>medley3.5>working-medley>library>tedit>TEDIT-PCTREE.;248)
 
 
 (PRETTYCOMPRINT TEDIT-PCTREECOMS)
@@ -36,8 +37,8 @@
         (GLOBALVARS MULTIPLE-PIECE-TABLES)
         (FNS \TEDIT.MAKEPCTB \TEDIT.UPDATEPCNODES \TEDIT.FIRSTPIECE \TEDIT.DELETETREE 
              \TEDIT.INSERTTREE \TEDIT.LASTPIECE \TEDIT.PCTOCH \TEDIT.CHTOPC \TEDIT.SET-TOTLEN 
-             \TEDIT.MAKE.VACANT.BTREESLOT \TEDIT.LINKNEWPIECE \TEDIT.SPLITPIECE \TEDIT.INSERTPIECE 
-             \TEDIT.INSERTPIECES \TEDIT.DELETEPIECES \TEDIT.ALIGNEDPIECE)
+             \TEDIT.MAKE.VACANT.BTREESLOT \TEDIT.LINKNEWPIECE \TEDIT.UNLINKPIECE \TEDIT.SPLITPIECE 
+             \TEDIT.INSERTPIECE \TEDIT.INSERTPIECES \TEDIT.DELETEPIECES \TEDIT.ALIGNEDPIECE)
         (COMS                                                (* ; "Debugging ")

               (FNS \TEDIT.BTVALIDATE \TEDIT.BTVALIDATE.PRINT \TEDIT.CHECK-BTREE \TEDIT.CHECK-BTREE1 
                    \TEDIT.BTFAIL \TEDIT.MATCHPCS)
@@ -657,6 +658,20 @@
              (freplace
 (PIECE PREVPIECE) of
 NEXT with
 NEW))
          NEW])
 
+(\TEDIT.UNLINKPIECE

+  [LAMBDA (PREV PC TEXTOBJ)
                                  (* ; "Edited  7-Feb-2025 08:04 by rmk")


+                                                             (* ; "Edited 21-Oct-2024 00:26 by rmk")


+                                                             (* ; "Edited 21-Oct-2023 17:24 by rmk")


+                                                             (* ; "Edited 30-May-2023 00:31 by rmk")

+
+    (* ;; "Takes PC out of the piece chain, linking prev and next around it.")

+
+    (\TEDIT.THELP 'NOTCALLED?)
+    (CL:WHEN PREV
+        (freplace
 (PIECE NEXTPIECE) of
 PREV with
 (NEXTPIECE PC)))
+    (freplace
 (PIECE PREVPIECE) of
 (OR (NEXTPIECE PC)
+                                       (FGETTOBJ TEXTOBJ SUFFIXPIECE)) with
 PREV])
+
 (\TEDIT.SPLITPIECE

   [LAMBDA (PC CHOFFSET TEXTOBJ)
                              (* ; "Edited 21-Oct-2024 00:33 by rmk")


                                                              (* ; "Edited 17-Mar-2024 00:11 by rmk")


@@ -823,8 +838,7 @@
     PIECES])
 
 (\TEDIT.DELETEPIECES

-  [LAMBDA (SELPIECES TEXTOBJ)
                                (* ; "Edited 14-Feb-2026 13:20 by rmk")


-                                                             (* ; "Edited  7-Feb-2025 08:08 by rmk")


+  [LAMBDA (SELPIECES TEXTOBJ)
                                (* ; "Edited  7-Feb-2025 08:08 by rmk")


                                                              (* ; "Edited 26-Nov-2024 10:50 by rmk")


                                                              (* ; "Edited 16-Mar-2024 10:00 by rmk")


                                                              (* ; "Edited 25-Nov-2023 12:12 by rmk")


@@ -845,11 +859,6 @@
     (* ;; "This may not be entirely safe against an interrupt, which only matters on the call from \INSERTSELPIECES (otherwise the data isn't yet visible).  Although the tree is consistent  with the remaining pieces after each deletion, the fact that we keep the SELPIECE links intact means that the remaining pieces point to pieces that are no longer in the tree.  We could do a little more work to incrementally chain the deleted pieces together, one by one, as they are deleted--in the end they would all be out of the tree, and the deletion chain would have been reconnected.  Alternatively, we can make the whole loop be uninterruptable. ")

 
     (\TEDIT.BTVALIDATE
 '\TEDIT.DELETEPIECES 'BEFORE TEXTOBJ)
-    (CL:WHEN (type?
 PIECE SELPIECES)
-        (SETQ SELPIECES (create
 SELPIECES
-                               SPFIRST _ SELPIECES
-                               SPLAST _ SELPIECES
-                               SPLEN _ (PLEN SELPIECES))))
     (for
 PC PREV NEXT first
 (FSETTOBJ TEXTOBJ HINTPC NIL)
                             (SETQ PREV (PREVPIECE (GETSPC SELPIECES SPFIRST))) 
                                                              (* ; "For incremental chain-update")

@@ -1104,13 +1113,13 @@
 (GLOBALVARS BTVALIDATETAGS)
 )
 (DECLARE%: DONTCOPY
-  (FILEMAP (NIL (8731 56217 (\TEDIT.MAKEPCTB 8741 . 10634) (\TEDIT.UPDATEPCNODES 10636 . 12930) (
-\TEDIT.FIRSTPIECE 12932 . 14339) (\TEDIT.DELETETREE 14341 . 17615) (\TEDIT.INSERTTREE 17617 . 20362) (
-\TEDIT.LASTPIECE 20364 . 21171) (\TEDIT.PCTOCH 21173 . 23270) (\TEDIT.CHTOPC 23272 . 29449) (
-\TEDIT.SET-TOTLEN 29451 . 30239) (\TEDIT.MAKE.VACANT.BTREESLOT 30241 . 36971) (\TEDIT.LINKNEWPIECE 
-36973 . 38562) (\TEDIT.SPLITPIECE 38564 . 43220) (\TEDIT.INSERTPIECE 43222 . 46494) (
-\TEDIT.INSERTPIECES 46496 . 49588) (\TEDIT.DELETEPIECES 49590 . 54100) (\TEDIT.ALIGNEDPIECE 54102 . 
-56215)) (56245 68568 (\TEDIT.BTVALIDATE 56255 . 57796) (\TEDIT.BTVALIDATE.PRINT 57798 . 59163) (
-\TEDIT.CHECK-BTREE 59165 . 61492) (\TEDIT.CHECK-BTREE1 61494 . 67125) (\TEDIT.BTFAIL 67127 . 67549) (
-\TEDIT.MATCHPCS 67551 . 68566)))))
+  (FILEMAP (NIL (8767 56719 (\TEDIT.MAKEPCTB 8777 . 10670) (\TEDIT.UPDATEPCNODES 10672 . 12966) (
+\TEDIT.FIRSTPIECE 12968 . 14375) (\TEDIT.DELETETREE 14377 . 17651) (\TEDIT.INSERTTREE 17653 . 20398) (
+\TEDIT.LASTPIECE 20400 . 21207) (\TEDIT.PCTOCH 21209 . 23306) (\TEDIT.CHTOPC 23308 . 29485) (
+\TEDIT.SET-TOTLEN 29487 . 30275) (\TEDIT.MAKE.VACANT.BTREESLOT 30277 . 37007) (\TEDIT.LINKNEWPIECE 
+37009 . 38598) (\TEDIT.UNLINKPIECE 38600 . 39420) (\TEDIT.SPLITPIECE 39422 . 44078) (
+\TEDIT.INSERTPIECE 44080 . 47352) (\TEDIT.INSERTPIECES 47354 . 50446) (\TEDIT.DELETEPIECES 50448 . 
+54602) (\TEDIT.ALIGNEDPIECE 54604 . 56717)) (56747 69070 (\TEDIT.BTVALIDATE 56757 . 58298) (
+\TEDIT.BTVALIDATE.PRINT 58300 . 59665) (\TEDIT.CHECK-BTREE 59667 . 61994) (\TEDIT.CHECK-BTREE1 61996
+ . 67627) (\TEDIT.BTFAIL 67629 . 68051) (\TEDIT.MATCHPCS 68053 . 69068)))))
 STOP

library/tedit/TEDIT-SCREEN

@@ -1,12 +1,12 @@
 (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
 
-
(FILECREATED " 5-Feb-2026 00:39:54" {WMEDLEY}<library>TEDIT>TEDIT-SCREEN.;916
 186880 
+
(FILECREATED "31-Dec-2025 23:10:18" {WMEDLEY}<library>tedit>TEDIT-SCREEN.;915
 186658 
 
       :EDIT-BY rmk
 
-      :CHANGES-TO (FNS \TEDIT.FORMATLINE)
+      :CHANGES-TO (VARS TEDIT-SCREENCOMS)
 
-      :PREVIOUS-DATE "31-Dec-2025 23:10:18" {WMEDLEY}<library>TEDIT>TEDIT-SCREEN.;915)
+      :PREVIOUS-DATE " 7-Dec-2025 16:28:01" {WMEDLEY}<library>tedit>TEDIT-SCREEN.;914)
 
 
 (PRETTYCOMPRINT TEDIT-SCREENCOMS)
@@ -654,7 +654,6 @@
 
 (\TEDIT.FORMATLINE

   [LAMBDA (TSTREAM CH#1 LINE REGION IMAGESTREAM FORMATTINGSTATE)

-                                                             (* ; "Edited  5-Feb-2026 00:38 by rmk")


                                                              (* ; "Edited 21-Nov-2025 16:36 by rmk")


                                                              (* ; "Edited  7-Aug-2025 12:49 by rmk")


                                                              (* ; "Edited 27-Apr-2025 11:24 by rmk")


@@ -707,10 +706,8 @@
     (CL:UNLESS LINE
         (SETQ LINE (create
 LINEDESCRIPTOR)))
     (CL:UNLESS IMAGESTREAM
-        (SETQ IMAGESTREAM (CL:IF (\TEDIT.PRIMARYPANE TSTREAM)
-                              (WINDOWPROP (\TEDIT.PRIMARYPANE TSTREAM)
-                                     'DSP)
-                              (DSPCREATE))))
+        (SETQ IMAGESTREAM (WINDOWPROP (\TEDIT.PRIMARYPANE TSTREAM)
+                                 'DSP)))
     (PROG ((TEXTOBJ (FTEXTOBJ TSTREAM))
            (OFFSET 0)
            (TRUEASCENT -1)
@@ -2866,21 +2863,21 @@
                  (\TEDIT.LINE.TALLP LINE PHEIGHT))))])
 )
 (DECLARE%: DONTCOPY
-  (FILEMAP (NIL (26200 28416 (\TEDIT.LINEDESCRIPTOR.DEFPRINT 26210 . 28414)) (35870 119724 (
-\TEDIT.FORMATLINE 35880 . 71208) (\TEDIT.FORMATLINE.SETUP.PARA 71210 . 76404) (
-\TEDIT.FORMATLINE.HORIZONTAL 76406 . 81223) (\TEDIT.FORMATLINE.VERTICAL 81225 . 83676) (
-\TEDIT.FORMATLINE.JUSTIFY 83678 . 89699) (\TEDIT.FORMATLINE.TABS 89701 . 97729) (\TEDIT.SCALE.TABS 
-97731 . 98522) (\TEDIT.FORMATLINE.PURGE.SPACES 98524 . 99951) (\TEDIT.FORMATLINE.FLUSH.SOFTHYPHEN 
-99953 . 101030) (\TEDIT.FORMATLINE.EMPTY 101032 . 105852) (\TEDIT.FORMATLINE.UPDATELOOKS 105854 . 
-112035) (\TEDIT.FORMATLINE.LASTLEGAL 112037 . 115487) (\TEDIT.LINES.ABOVE 115489 . 119100) (
-\TEDIT.CHNO.TO.YTOP 119102 . 119722)) (120001 140581 (\TEDIT.DISPLAYLINE 120011 . 132521) (
-\TEDIT.DISPLAYLINE.TABS 132523 . 135327) (\TEDIT.LINECACHE 135329 . 136057) (\TEDIT.CREATE.LINECACHE 
-136059 . 136895) (\TEDIT.BLTCHAR 136897 . 139524) (\TEDIT.DIACRITIC.SHIFT 139526 . 140579)) (141196 
-186857 (\TEDIT.BACKFORMAT 141206 . 143760) (\TEDIT.PREVIOUS.LINEBREAK 143762 . 146565) (
-\TEDIT.UPDATE.LINES 146567 . 152873) (\TEDIT.PANE.CREATELINES 152875 . 155165) (
-\TEDIT.SUFFIXLINE.CREATE 155167 . 156782) (\TEDIT.LINES.BELOW 156784 . 161394) (\TEDIT.MEASURED.LINES 
-161396 . 163405) (\TEDIT.VALID.LASTCHNOS 163407 . 167183) (\TEDIT.VALID.NEXTCHNOS 167185 . 170659) (
-\TEDIT.LASTVALIDLINE 170661 . 175332) (\TEDIT.NEXTVALIDLINE 175334 . 178304) (
-\TEDIT.CLEARPANE.BELOW.LINE 178306 . 180412) (\TEDIT.INSERTLINE 180414 . 181800) (\TEDIT.LINE.BOTTOM 
-181802 . 185032) (\TEDIT.SHOW.AT.BOTTOMP 185034 . 186144) (\TEDIT.SHOW.AT.TOPP 186146 . 186855)))))
+  (FILEMAP (NIL (26200 28416 (\TEDIT.LINEDESCRIPTOR.DEFPRINT 26210 . 28414)) (35870 119502 (
+\TEDIT.FORMATLINE 35880 . 70986) (\TEDIT.FORMATLINE.SETUP.PARA 70988 . 76182) (
+\TEDIT.FORMATLINE.HORIZONTAL 76184 . 81001) (\TEDIT.FORMATLINE.VERTICAL 81003 . 83454) (
+\TEDIT.FORMATLINE.JUSTIFY 83456 . 89477) (\TEDIT.FORMATLINE.TABS 89479 . 97507) (\TEDIT.SCALE.TABS 
+97509 . 98300) (\TEDIT.FORMATLINE.PURGE.SPACES 98302 . 99729) (\TEDIT.FORMATLINE.FLUSH.SOFTHYPHEN 
+99731 . 100808) (\TEDIT.FORMATLINE.EMPTY 100810 . 105630) (\TEDIT.FORMATLINE.UPDATELOOKS 105632 . 
+111813) (\TEDIT.FORMATLINE.LASTLEGAL 111815 . 115265) (\TEDIT.LINES.ABOVE 115267 . 118878) (
+\TEDIT.CHNO.TO.YTOP 118880 . 119500)) (119779 140359 (\TEDIT.DISPLAYLINE 119789 . 132299) (
+\TEDIT.DISPLAYLINE.TABS 132301 . 135105) (\TEDIT.LINECACHE 135107 . 135835) (\TEDIT.CREATE.LINECACHE 
+135837 . 136673) (\TEDIT.BLTCHAR 136675 . 139302) (\TEDIT.DIACRITIC.SHIFT 139304 . 140357)) (140974 
+186635 (\TEDIT.BACKFORMAT 140984 . 143538) (\TEDIT.PREVIOUS.LINEBREAK 143540 . 146343) (
+\TEDIT.UPDATE.LINES 146345 . 152651) (\TEDIT.PANE.CREATELINES 152653 . 154943) (
+\TEDIT.SUFFIXLINE.CREATE 154945 . 156560) (\TEDIT.LINES.BELOW 156562 . 161172) (\TEDIT.MEASURED.LINES 
+161174 . 163183) (\TEDIT.VALID.LASTCHNOS 163185 . 166961) (\TEDIT.VALID.NEXTCHNOS 166963 . 170437) (
+\TEDIT.LASTVALIDLINE 170439 . 175110) (\TEDIT.NEXTVALIDLINE 175112 . 178082) (
+\TEDIT.CLEARPANE.BELOW.LINE 178084 . 180190) (\TEDIT.INSERTLINE 180192 . 181578) (\TEDIT.LINE.BOTTOM 
+181580 . 184810) (\TEDIT.SHOW.AT.BOTTOMP 184812 . 185922) (\TEDIT.SHOW.AT.TOPP 185924 . 186633)))))
 STOP

library/tedit/TEDIT-SELECTION

@@ -1,12 +1,12 @@
 (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
 
-
(FILECREATED "16-Feb-2026 00:38:33" {WMEDLEY}<library>TEDIT>TEDIT-SELECTION.;738
 162152 
+
(FILECREATED "29-Jul-2025 11:22:10" {WMEDLEY}<library>tedit>TEDIT-SELECTION.;731
 161124 
 
       :EDIT-BY rmk
 
-      :CHANGES-TO (FNS \TEDIT.SELPIECES.CHARTRANSFORM)
+      :CHANGES-TO (FNS \TEDIT.FIND.PROTECTED.START \TEDIT.FIND.PROTECTED.END)
 
-      :PREVIOUS-DATE "14-Jan-2026 14:32:01" {WMEDLEY}<library>tedit>TEDIT-SELECTION.;736)
+      :PREVIOUS-DATE "28-Jul-2025 23:50:43" {WMEDLEY}<library>tedit>TEDIT-SELECTION.;730)
 
 
 (PRETTYCOMPRINT TEDIT-SELECTIONCOMS)
@@ -73,7 +73,8 @@
 
            (* ;; "If DCH=0, this is a caret-only selection, with no highlighting.  In that case CHLIM=(ADD1 CH#) and POINT essentially indicates whether the caret blinks before or after CH#.")

 
-           SELOPERATION                                      (* ; "NORMAL, MOVE, COPY...  HOW and HOWHEIGHT are derived from the operation.  Was Y0: Y value of topmost line of selection")

+           NIL                                               (* ; 
+
                                                       "Was Y0: Y value of topmost line of selection")

            X0                                                (* ; 
 
                                                "X value of left edge of selection on the first line")

            SELLINES                                          (* ; "A list of (L1 L2) pairs one for each pane, to replace the separate L1 L2 lists. Was DX: Width of the selection, if it's on one line.")

@@ -1213,8 +1214,7 @@
          (SETTOBJ TEXTOBJ BLUEPENDINGDELETE NIL])
 
 (\TEDIT.SET.SEL.LOOKS

-  [LAMBDA (SEL OPERATION)
                                    (* ; "Edited 10-Jan-2026 12:30 by rmk")


-                                                             (* ; "Edited  6-May-2025 11:32 by rmk")


+  [LAMBDA (SEL OPERATION)
                                    (* ; "Edited  6-May-2025 11:32 by rmk")


                                                              (* ; "Edited 28-Feb-2025 17:45 by rmk")


                                                              (* ; "Edited  7-Nov-2024 21:50 by rmk")


                                                              (* ; "Edited  4-Oct-2024 08:40 by rmk")


@@ -1260,7 +1260,6 @@
                   (FSETSEL SEL HASCARET T))
         (NIL)
         (\TEDIT.THELP "UNKNOWN SELECTION OPERATION" OPERATION))
-    (FSETSEL SEL SELOPERATION OPERATION)
     SEL])
 )
 (DECLARE%: EVAL@COMPILE DONTCOPY 
@@ -1422,8 +1421,7 @@
                                       'INVERT) repeatuntil
 (EQ L LN])
 
 (\TEDIT.UPDATE.SEL

-  [LAMBDA (TSTREAM/SEL CH# DCH POINT LOOKS CHLIM)
            (* ; "Edited  6-Jan-2026 20:18 by rmk")


-                                                             (* ; "Edited  6-May-2025 11:36 by rmk")


+  [LAMBDA (TSTREAM/SEL CH# DCH POINT LOOKS CHLIM)
            (* ; "Edited  6-May-2025 11:36 by rmk")


                                                              (* ; "Edited 21-Apr-2025 22:50 by rmk")


                                                              (* ; "Edited  6-Apr-2025 11:47 by rmk")


                                                              (* ; "Edited 10-Jul-2024 17:25 by rmk")


@@ -1460,13 +1458,6 @@
                   (CL:UNLESS POINT
                       (SETQ POINT (GETTH CH# THPOINT CH#)))
                   (SETQ CH# (GETTH CH# THCH#))
-           elseif
 (LISTP CH#)
-             then
 (CL:UNLESS DCH
-                      (SETQ DCH (CADR CH#)))
-                  (CL:UNLESS POINT
-                      (SETQ POINT (CADDR CH#)))
-                  (CL:UNLESS CH#
-                      (SETQ POINT (CAR CH#)))
            else
 
                 (* ;; 
 
                "Get defaults from SEL (either a selection or a textobj whose SEL is indicated)")

@@ -1620,8 +1611,7 @@
 (DEFINEQ
 
 (\TEDIT.COPYSEL

-  [LAMBDA (FROM
 TO
)
                                          (* ; "Edited 11-Jan-2026 00:17 by rmk")


-                                                             (* ; "Edited  3-Sep-2024 22:44 by rmk")


+  [LAMBDA (FROM
 TO
)
                                          (* ; "Edited  3-Sep-2024 22:44 by rmk")


                                                              (* ; "Edited  7-Jul-2024 11:21 by rmk")


                                                              (* ; "Edited 30-Jun-2024 23:21 by rmk")


                                                              (* ; "Edited 29-Apr-2024 12:35 by rmk")


@@ -1654,7 +1644,6 @@
              (FSETSEL TO HASCARET (FGETSEL FROM HASCARET))
              (FSETSEL TO SELOBJ (FGETSEL FROM SELOBJ))
              (FSETSEL TO ONFLG (FGETSEL FROM ONFLG))
-             (FSETSEL TO SELOPERATION (FGETSEL FROM SELOPERATION))
       else
 (SETQ TO (create
 SELECTION using
 FROM SELTEXTSTREAM _ NIL L1 _ (COPY (FGETSEL FROM L1))
                                             LN _ (COPY (FGETSEL FROM LN))
                                             SELLINES _ (COPY (FGETSEL FROM SELLINES]
@@ -2041,8 +2030,7 @@
                   SPLASTCHAR _ (ffetch
 (SELPIECES SPLASTCHAR) of
 SP2])
 
 (\TEDIT.SELPIECES.CHARTRANSFORM

-  [LAMBDA (SELPIECES CHARFN OBJECTSTOO TSTREAM)
              (* ; "Edited 16-Feb-2026 00:38 by rmk")


-                                                             (* ; "Edited 24-Apr-2025 16:02 by rmk")


+  [LAMBDA (SELPIECES CHARFN OBJECTSTOO TSTREAM)
              (* ; "Edited 24-Apr-2025 16:02 by rmk")


                                                              (* ; "Edited 20-Apr-2025 23:23 by rmk")


                                                              (* ; "Edited 16-Mar-2025 10:03 by rmk")


                                                              (* ; "Edited  7-Nov-2024 21:50 by rmk")


@@ -2067,10 +2055,10 @@
 
                                 (* ;; "This assumes that no file piece has a PLEN greater than \MaxArrayLen characters. We rely on the piece-table reader and writer to guarantee this.  If not, ALLOCSTRING will cause an error.")

 
-                                [for
 I from
 0 to
 (PLAST PC)
-                                   do
 (RPLCHARCODE STR (ADD1 I)
-                                             (APPLY* CHARFN (\TEDIT.PIECE.NTHCHARCODE PC I)
-                                                    (add
 INDEX 1]
+                                [for
 I from
 1 to
 (PLEN PC)
+                                   do
 (RPLCHARCODE STR I (APPLY* CHARFN (\TEDIT.PIECE.NTHCHARCODE
+                                                                         PC I)
+                                                                (add
 INDEX 1]
                                 (if
 (fetch
 (STRINGP FATSTRINGP) of
 STR)
                                     then
 (FSETPC PC PTYPE FATSTRING.PTYPE)
                                          (FSETPC PC PBYTESPERCHAR 2)
@@ -2249,8 +2237,7 @@
                 (FGETSEL SCRSEL CH#])
 
 (TEDIT.SELPROP

-  [LAMBDA X
                                                  (* ; "Edited 11-Jan-2026 00:18 by rmk")


-                                                             (* ; "Edited 28-Feb-2025 17:14 by rmk")


+  [LAMBDA X
                                                  (* ; "Edited 28-Feb-2025 17:14 by rmk")


                                                              (* ; "Edited  6-Feb-2025 16:48 by rmk")


                                                              (* ; "Edited 31-Oct-2024 18:00 by rmk")


                                                              (* ; "Edited 23-Sep-2024 23:11 by rmk")


@@ -2290,7 +2277,6 @@
                     (TEXTSTREAM (FGETSEL SEL SELTEXTSTREAM))
                     (SHADE (FGETSEL SEL HOW))
                     (SHADEHEIGHT (FGETSEL SEL HOWHEIGHT))
-                    (SELOPERATION (FGETSEL SEL SELOPERATION))
                     (SET (FGETSEL SEL SET))
                     (\ILLEGAL.ARG PROP))
              (CL:WHEN (IGREATERP X 2)
@@ -2310,7 +2296,6 @@
                      (CHLIM (\TEDIT.UPDATE.SEL
 SEL NIL (IDIFFERENCE NEWVALUE (FGETSEL SEL CH#))))
                      (SHADE (FSETSEL SEL HOW NEWVALUE))
                      (SHADEHEIGHT (FSETSEL SEL HOWHEIGHT NEWVALUE))
-                     (SELOPERATION (\TEDIT.SET.SEL.LOOKS
 SEL NEWVALUE))
                      (SET (FSETSEL SEL SET NEWVALUE))
                      (\ILLEGAL.ARG PROP))
                  (CL:WHEN (FGETSEL SEL SELTEXTSTREAM)
@@ -2571,26 +2556,26 @@
 (ADDTOVAR LAMA
 TEDIT.SELPROP)
 )
 (DECLARE%: DONTCOPY
-  (FILEMAP (NIL (15888 17709 (\TEDIT.SELECTION.DEFPRINT 15898 . 17707)) (17746 19251 (
-\TEDIT.SET.GLOBAL.SELECTIONS 17756 . 19249)) (19252 25473 (\TEDIT.SELECTED.PIECES 19262 . 20901) (
-\TEDIT.FIND.PROTECTED.END 20903 . 22697) (\TEDIT.FIND.PROTECTED.START 22699 . 24682) (
-\TEDIT.WORD.BOUND 24684 . 25471)) (25607 59714 (\TEDIT.EXTEND.SEL 25617 . 32857) (\TEDIT.SCAN.LINE 
-32859 . 44532) (\TEDIT.SCAN.LINE.WORD 44534 . 49527) (\TEDIT.XYTOSEL 49529 . 56867) (\TEDIT.REGIONTYPE
- 56869 . 57888) (\TEDIT.XYTOSEL.INLINEP 57890 . 58345) (\TEDIT.XYTOSEL.LINE 58347 . 59712)) (59715 
-73260 (\TEDIT.FIXSEL 59725 . 69102) (\TEDIT.CHTOLINEX 69104 . 73258)) (73261 77465 (
-\TEDIT.RESET.EXTEND.PENDING.DELETE 73271 . 74549) (\TEDIT.SET.SEL.LOOKS 74551 . 77463)) (78402 99555 (
-\TEDIT.SHOWSEL 78412 . 83388) (\TEDIT.NOSEL 83390 . 83691) (\TEDIT.SEL.OFF 83693 . 84104) (
-\TEDIT.SEL.ON 84106 . 84522) (\TEDIT.SHOWSEL.HILIGHT 84524 . 89145) (\TEDIT.UPDATE.SEL 89147 . 93749) 
-(\TEDIT.CARETLINE 93751 . 94465) (\TEDIT.SEL.L1 94467 . 95150) (\TEDIT.SEL.LN 95152 . 95835) (
-\TEDIT.SEL.DELETEDCHARS 95837 . 99553)) (99556 104438 (\TEDIT.COPYSEL 99566 . 102208) (
-\TEDIT.SEL.CHANGED? 102210 . 104436)) (104469 118128 (\TEDIT.SELECT.OBJECT 104479 . 109432) (
-\TEDIT.SHOWSEL.OBJECT 109434 . 111665) (\TEDIT.CLIP.OBJECT 111667 . 113671) (\TEDIT.OPERATE.OBJECT 
-113673 . 118126)) (118156 137982 (\TEDIT.SELPIECES 118166 . 122447) (\TEDIT.SELPIECES.COPY 122449 . 
-124938) (\TEDIT.SELPIECES.CONCAT 124940 . 126819) (\TEDIT.SELPIECES.CHARTRANSFORM 126821 . 130357) (
-\TEDIT.SELPIECES.FROM.STRING 130359 . 135617) (\TEDIT.SELPIECES.TO.STRING 135619 . 137980)) (138035 
-161983 (TEDIT.XYTOCH 138045 . 140621) (TEDIT.SELPROP 140623 . 144900) (TEDIT.GETPOINT 144902 . 146822)
- (TEDIT.GETSEL 146824 . 147700) (TEDIT.GETSEL.PARA 147702 . 148651) (TEDIT.SCANSEL 148653 . 149601) (
-TEDIT.SET.SEL.LOOKS 149603 . 151088) (TEDIT.SETSEL 151090 . 156008) (TEDIT.SHOWSEL 156010 . 157874) (
-TEDIT.SEL.AS.STRING 157876 . 160361) (TEDIT.SEL.AS.SEXPR 160363 . 161649) (TEDIT.SELECTALL 161651 . 
-161981)))))
+  (FILEMAP (NIL (15897 17718 (\TEDIT.SELECTION.DEFPRINT 15907 . 17716)) (17755 19260 (
+\TEDIT.SET.GLOBAL.SELECTIONS 17765 . 19258)) (19261 25482 (\TEDIT.SELECTED.PIECES 19271 . 20910) (
+\TEDIT.FIND.PROTECTED.END 20912 . 22706) (\TEDIT.FIND.PROTECTED.START 22708 . 24691) (
+\TEDIT.WORD.BOUND 24693 . 25480)) (25616 59723 (\TEDIT.EXTEND.SEL 25626 . 32866) (\TEDIT.SCAN.LINE 
+32868 . 44541) (\TEDIT.SCAN.LINE.WORD 44543 . 49536) (\TEDIT.XYTOSEL 49538 . 56876) (\TEDIT.REGIONTYPE
+ 56878 . 57897) (\TEDIT.XYTOSEL.INLINEP 57899 . 58354) (\TEDIT.XYTOSEL.LINE 58356 . 59721)) (59724 
+73269 (\TEDIT.FIXSEL 59734 . 69111) (\TEDIT.CHTOLINEX 69113 . 73267)) (73270 77324 (
+\TEDIT.RESET.EXTEND.PENDING.DELETE 73280 . 74558) (\TEDIT.SET.SEL.LOOKS 74560 . 77322)) (78261 99027 (
+\TEDIT.SHOWSEL 78271 . 83247) (\TEDIT.NOSEL 83249 . 83550) (\TEDIT.SEL.OFF 83552 . 83963) (
+\TEDIT.SEL.ON 83965 . 84381) (\TEDIT.SHOWSEL.HILIGHT 84383 . 89004) (\TEDIT.UPDATE.SEL 89006 . 93221) 
+(\TEDIT.CARETLINE 93223 . 93937) (\TEDIT.SEL.L1 93939 . 94622) (\TEDIT.SEL.LN 94624 . 95307) (
+\TEDIT.SEL.DELETEDCHARS 95309 . 99025)) (99028 103734 (\TEDIT.COPYSEL 99038 . 101504) (
+\TEDIT.SEL.CHANGED? 101506 . 103732)) (103765 117424 (\TEDIT.SELECT.OBJECT 103775 . 108728) (
+\TEDIT.SHOWSEL.OBJECT 108730 . 110961) (\TEDIT.CLIP.OBJECT 110963 . 112967) (\TEDIT.OPERATE.OBJECT 
+112969 . 117422)) (117452 137201 (\TEDIT.SELPIECES 117462 . 121743) (\TEDIT.SELPIECES.COPY 121745 . 
+124234) (\TEDIT.SELPIECES.CONCAT 124236 . 126115) (\TEDIT.SELPIECES.CHARTRANSFORM 126117 . 129576) (
+\TEDIT.SELPIECES.FROM.STRING 129578 . 134836) (\TEDIT.SELPIECES.TO.STRING 134838 . 137199)) (137254 
+160955 (TEDIT.XYTOCH 137264 . 139840) (TEDIT.SELPROP 139842 . 143872) (TEDIT.GETPOINT 143874 . 145794)
+ (TEDIT.GETSEL 145796 . 146672) (TEDIT.GETSEL.PARA 146674 . 147623) (TEDIT.SCANSEL 147625 . 148573) (
+TEDIT.SET.SEL.LOOKS 148575 . 150060) (TEDIT.SETSEL 150062 . 154980) (TEDIT.SHOWSEL 154982 . 156846) (
+TEDIT.SEL.AS.STRING 156848 . 159333) (TEDIT.SEL.AS.SEXPR 159335 . 160621) (TEDIT.SELECTALL 160623 . 
+160953)))))
 STOP

library/tedit/TEDIT-STREAM

@@ -1,12 +1,12 @@
 (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
 
-
(FILECREATED "16-Feb-2026 12:40:44" {WMEDLEY}<library>tedit>TEDIT-STREAM.;944
 193110 
+
(FILECREATED " 2-Dec-2025 17:50:45" {WMEDLEY}<library>tedit>TEDIT-STREAM.;930
 194007 
 
       :EDIT-BY rmk
 
-      :CHANGES-TO (FNS \TEDIT.STREAMINIT)
+      :CHANGES-TO (FNS OPENTEXTSTREAM \TEDIT.OPENTEXTFILE)
 
-      :PREVIOUS-DATE "16-Feb-2026 09:39:00" {WMEDLEY}<library>tedit>TEDIT-STREAM.;943)
+      :PREVIOUS-DATE "19-Oct-2025 15:09:09" {WMEDLEY}<library>TEDIT>TEDIT-STREAM.;927)
 
 
 (PRETTYCOMPRINT TEDIT-STREAMCOMS)
@@ -14,8 +14,8 @@
 (RPAQQ TEDIT-STREAMCOMS

        [(DECLARE%: EVAL@COMPILE DONTCOPY
                (EXPORT (RECORDS PIECE TEXTOBJ TEXTSTREAM)
-                      (MACROS NEXTPIECE PREVPIECE PLEN PLAST PTYPE PCONTENTS PCHARLOOKS PCHARSET 
-                             PPARALOOKS PPARALAST PFPOS PBYTELEN PNEW PBINABLE PBYTESPERCHAR POBJ)
+                      (MACROS NEXTPIECE PREVPIECE PLEN PTYPE PCONTENTS PCHARLOOKS PCHARSET PPARALOOKS
+                             PPARALAST PFPOS PBYTELEN PNEW PBINABLE PBYTESPERCHAR POBJ)
                       (MACROS SETPC FSETPC GETPC FGETPC)
                       (MACROS THINPIECEP)
                       (MACROS VISIBLEPIECEP \NEXT.VISIBLE.PIECE \PREV.VISIBLE.PIECE)
@@ -43,9 +43,7 @@
         (FNS \TEDIT.REOPENTEXTSTREAM \TEDIT.OPENTEXTSTREAM.PIECES \TEDIT.OPENTEXTSTREAM.PROPS 
              \TEDIT.OPENTEXTSTREAM.SETUP.SEL \TEDIT.OPENTEXTSTREAM.WINDOW 
              \TEDIT.OPENTEXTSTREAM.DEFAULTLOOKS \TEDIT.OPENTEXTFILE \TEDIT.CREATE.TEXTSTREAM 
-             \TEDIT.REOPEN.STREAM)
-        (FNS \TEDIT.STREAMINIT TEDIT.IMAGESTREAM.OPEN)
-        (ALISTS (IMAGESTREAMTYPES TEDIT))
+             \TEDIT.REOPEN.STREAM \TEDIT.TEXTINIT)
         
         (* ;; "Is this being used:")

 
@@ -71,7 +69,10 @@
                      (MACROS \INSERTCH.EXTENDABLE))
               (FNS \TEDIT.DELETE.SELPIECES \TEDIT.INSERTCH \TEDIT.INSERTCH.HISTORY \TEDIT.INSERTEOL 
                    \TEDIT.INSERTCH.INSERTION \TEDIT.INSERTCH.EXTEND)
-              (FNS \TEDIT.NEXTCHANGEABLE.CHNO \TEDIT.LASTCHANGEABLE.CHNO))
+              (FNS \TEDIT.NEXTCHANGEABLE.CHNO \TEDIT.LASTCHANGEABLE.CHNO)
+              (FNS \SETUPGETCH))
+                                                             (* ; 
+
                                                           "Deprecated, maybe still external callers")

         (FNS \TEDIT.INSTALL.PIECE)
         [COMS                                                (* ; "Support for TEXTPROP")

               (FNS TEXTPROP GETTEXTPROP PUTTEXTPROP GETTEXTPROPS PUTTEXTPROPS TEXTPROP.ADD 
@@ -82,7 +83,7 @@
                      (ADDVARS (INSPECTMACROS (TEXTOBJ \TEDIT.TEXTOBJ.PROPNAMES 
                                                     \TEDIT.TEXTOBJ.PROPFETCHFN 
                                                     \TEDIT.TEXTOBJ.PROPSTOREFN]
-        (DECLARE%: DONTEVAL@LOAD DOCOPY (P (\TEDIT.STREAMINIT)))
+        (DECLARE%: DONTEVAL@LOAD DOCOPY (P (\TEDIT.TEXTINIT)))
         (DECLARE%: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS (ADDVARS (NLAMA)
                                                                              (NLAML)
                                                                              (LAMA TEXTPROP])
@@ -157,7 +158,8 @@
 
                                                             "The current selection within the text")

                    LASTARROWX                                (* ; 
 
                       "X for next arrow up or arrow down. Was: Scratch space for the selection code")

-                   SECONDARYSEL                              (* ; "Holds secondary selection and operation just before the mouse leaves a window. Was MOVESEL: Source for the next MOVE of text")

+                   NIL                                       (* ; 
+
                                                      "Was MOVESEL: Source for the next MOVE of text")

                    NIL                                       (* ; 
 
                                                           "Was SHIFTEDSEL: Source for the next COPY")

                    NIL                                       (* ; 
@@ -393,9 +395,6 @@
 (PUTPROPS PLEN
 MACRO
 ((PC)
                       (ffetch
 (PIECE PLEN) of
 PC)))
 
-(PUTPROPS PLAST
 MACRO
 ((PC)
-                       (SUB1 (PLEN PC))))
-
 (PUTPROPS PTYPE
 MACRO
 ((PC)
                        (ffetch
 (PIECE PTYPE) of
 PC)))
 
@@ -923,8 +922,7 @@
            else
 (STREAMOP 'ENDOFSTREAMOP TSTREAM TSTREAM])
 
 (\TEDIT.TEXTBACKFILEPTR

-  [LAMBDA (TSTREAM)
                                          (* ; "Edited 16-Feb-2026 08:54 by rmk")


-                                                             (* ; "Edited 21-Oct-2024 00:33 by rmk")


+  [LAMBDA (TSTREAM)
                                          (* ; "Edited 21-Oct-2024 00:33 by rmk")


                                                              (* ; "Edited  1-Feb-2024 11:25 by rmk")


                                                              (* ; "Edited  5-Jan-2024 17:57 by rmk")


                                                              (* ; "Edited 28-Dec-2023 13:34 by rmk")


@@ -956,7 +954,7 @@
                       then
 (CL:WHEN (SETQ PPC (\PREV.VISIBLE.PIECE PC))
                                                              (* ; 
 
                                                    "Back up to last char of previous piece, if any.")

-                               (\TEDIT.INSTALL.PIECE
 TSTREAM PPC (PLAST PPC))
+                               (\TEDIT.INSTALL.PIECE
 TSTREAM PPC (SUB1 (PLEN PPC)))
                                (SETQ PC PPC))
                     elseif
 (AND (MEMB (PTYPE PC)
                                       FILE.PTYPES)
@@ -1521,8 +1519,7 @@
     (\TEDIT.OPENTEXTSTREAM.DEFAULTLOOKS
 TEXTOBJ])
 
 (\TEDIT.OPENTEXTSTREAM.SETUP.SEL

-  [LAMBDA (TSTREAM)
                                          (* ; "Edited 10-Jan-2026 23:53 by rmk")


-                                                             (* ; "Edited 21-Apr-2025 20:14 by rmk")


+  [LAMBDA (TSTREAM)
                                          (* ; "Edited 21-Apr-2025 20:14 by rmk")


                                                              (* ; "Edited  6-Apr-2025 14:24 by rmk")


                                                              (* ; "Edited 17-Feb-2025 08:56 by rmk")


                                                              (* ; "Edited 25-Nov-2024 14:33 by rmk")


@@ -1565,22 +1562,20 @@
                                   (OR (CADR SELPROP)
                                       0)
                                   (OR (CADDR SELPROP)
-                                      'LEFT)
-                                  'NORMAL)
+                                      'LEFT))
                     elseif
 (FIXP SELPROP)
-                      then
 (\TEDIT.UPDATE.SEL SEL SELPROP 0 'LEFT 'NORMAL)
+                      then
 (\TEDIT.UPDATE.SEL SEL SELPROP 0 'LEFT)
                     elseif
 (FGETTOBJ TEXTOBJ TXTAPPENDONLY)
                       then
 
                            (* ;; "Default to after the last character")

 
                            (\TEDIT.UPDATE.SEL SEL (FGETTOBJ TEXTOBJ TEXTLEN)
                                   0
-                                  'RIGHT
-                                  'NORMAL)
+                                  'RIGHT)
                     else
 
                          (* ;; "Default to before the first character. UPDATE.SEL screws up the CHLIM=CH#+DCH invariant when DCH=0, it adds 1,  But UPDATE.SEL adds 1 when DCH=0.  That's wrong for the initial caret, so brute-force fix it here.  Maybe it's wrong in general?")

 
-                         (\TEDIT.UPDATE.SEL SEL 1 0 'LEFT 'NORMAL)
+                         (\TEDIT.UPDATE.SEL SEL 1 0 'LEFT)
                          (FSETSEL SEL CHLIM 1))
                   [FSETTOBJ TEXTOBJ CARETLOOKS (if
 (FGETSEL SEL SET)
                                                    then
      (* ; 
@@ -1756,13 +1751,9 @@
                 (* ;; "Return the new value for the stream:")

 
                 NEWSTREAM])
-)
-(DEFINEQ
 
-(\TEDIT.STREAMINIT

-  [LAMBDA NIL
                                                (* ; "Edited 16-Feb-2026 12:40 by rmk")


-                                                             (* ; "Edited 26-Jan-2026 16:06 by rmk")


-                                                             (* ; "Edited 23-Sep-2025 21:03 by rmk")


+(\TEDIT.TEXTINIT

+  [LAMBDA NIL
                                                (* ; "Edited 23-Sep-2025 21:03 by rmk")


                                                              (* ; "Edited 20-Sep-2025 08:48 by rmk")


                                                              (* ; "Edited 18-Sep-2025 14:52 by rmk")


                                                              (* ; "Edited 10-Jul-2025 11:28 by rmk")


@@ -1816,9 +1807,17 @@
                                 IMSCALE _ [FUNCTION (LAMBDA NIL 1]
                                 IMCOLOR _ (FUNCTION \TEDIT.TEXTCOLOR)))
 
+    (* ;; "Do we need TEXT here?")

+
+    (FONTPROFILE.ADDDEVICE 'TEXT 'DISPLAY)
+    (ADDTOVAR IMAGESTREAMTYPES
 (TEXT (FONTCREATE \CREATEDISPLAYFONT)
+                                     (CREATECHARSET \CREATECHARSET.DISPLAY)))
+    (ADDTOVAR IMAGESTREAMTYPES
 (TEDIT (FONTCREATE \CREATEDISPLAYFONT)
+                                      (CREATECHARSET \CREATECHARSET.DISPLAY)))
+
     (* ;; "Maybe more functions later. The INCODE and BACK functions possibly need to count.  If \TEXTBACKFILEPTR takes a count variable, the extra level wouldn't be needed.  But INCCODE wants to go through the BIN opcode")

 
-    (MAKE-EXTERNALFORMAT :TEDIT (FUNCTION \TEDIT.TEXTINCCODEFN)
+    (MAKE-EXTERNALFORMAT :TEXTSTREAM (FUNCTION \TEDIT.TEXTINCCODEFN)
            (FUNCTION \TEDIT.TEXTPEEKBIN)
            (FUNCTION \TEDIT.TEXTBACKCCODEFN)
            (FUNCTION \TEDIT.TEXTOUTCHARFN)
@@ -1861,7 +1860,8 @@
                             FDEXTENDABLE _ NIL
                             TRUNCATEFILE _ (FUNCTION NILL)
                             WRITEPAGES _ (FUNCTION NILL)
-                            DEFAULTEXTERNALFORMAT _ :TEDIT)) (* ; 
+                            DEFAULTEXTERNALFORMAT _ :TEXTSTREAM))
+                                                             (* ; 
 
                          "Only load once, not every time TEDIT-STREAM is loaded e.g. in development")

     (RPAQ? *TEDIT-OLD-STREAM-ERROR-HANDLER*
 (CONDITION-HANDLER 'XCL:STREAM-NOT-OPEN))
     (CL:SETF (CONDITION-HANDLER 'XCL:STREAM-NOT-OPEN)
@@ -1881,15 +1881,8 @@
                                                              (* ; 
 
                           "Some other kind of stream, so punt to the old handler (if there is one):")

                                       (APPLY* *TEDIT-OLD-STREAM-ERROR-HANDLER* CONDITION])
-
-(TEDIT.IMAGESTREAM.OPEN

-  [LAMBDA (FILE OPTIONS)
                                     (* ; "Edited 26-Jan-2026 23:55 by rmk")

-    (OPENTEXTSTREAM
 FILE NIL OPTIONS])
 )
 
-(ADDTOVAR IMAGESTREAMTYPES
 (TEDIT (OPENSTREAM TEDIT.IMAGESTREAM.OPEN)
-                                  (CREATECHARSET \CREATECHARSET.DISPLAY)))
-
 
 
 (* ;; "Is this being used:")

@@ -2256,8 +2249,7 @@
 (DEFINEQ
 
 (\TEDIT.NTHCHARCODE

-  [LAMBDA (TSTREAM N)
                                        (* ; "Edited 15-Feb-2026 14:40 by rmk")


-                                                             (* ; "Edited 24-Apr-2025 16:03 by rmk")


+  [LAMBDA (TSTREAM N)
                                        (* ; "Edited 24-Apr-2025 16:03 by rmk")


                                                              (* ; "Edited 28-Mar-2025 18:31 by rmk")


                                                              (* ; "Edited  7-Jul-2024 11:09 by rmk")


                                                              (* ; "Edited 29-Apr-2024 13:06 by rmk")


@@ -2274,11 +2266,11 @@
          (CL:WHEN (AND (IGEQ N 1)
                        (ILEQ N (FGETTOBJ TEXTOBJ TEXTLEN)))
              (\TEDIT.PIECE.NTHCHARCODE
 (\TEDIT.CHTOPC N TEXTOBJ T)
-                    (IDIFFERENCE N START-OF-PIECE)))])
+                    (IDIFFERENCE (ADD1 N)
+                           START-OF-PIECE)))])
 
 (\TEDIT.PIECE.NTHCHARCODE

-  [LAMBDA (PC OFFSET)
                                        (* ; "Edited 15-Feb-2026 14:31 by rmk")


-                                                             (* ; "Edited 24-Apr-2025 16:04 by rmk")


+  [LAMBDA (PC OFFSET)
                                        (* ; "Edited 24-Apr-2025 16:04 by rmk")


                                                              (* ; "Edited 21-Oct-2024 00:26 by rmk")


                                                              (* ; "Edited 29-Apr-2024 08:46 by rmk")


                                                              (* ; "Edited 22-Mar-2024 00:02 by rmk")


@@ -2290,24 +2282,24 @@
                                                              (* ; "Edited  8-Nov-2023 08:43 by rmk")


                                                              (* ; "Edited  5-Nov-2023 08:17 by rmk")

 
-    (* ;; "Returns the OFFSETth charcode of PC, NIL if OFFSET is out of bounds. For file pieces, ensures that the backing stream is restored to its original position, so that it remains comaptible with the values (buffer, offset) in the textstream.  OFFSET ranges from 0 to PLEN-1.")

+    (* ;; "Returns the OFFSETth charcode of PC, NIL if OFFSET is out of bounds. For file pieces, ensures that the backing stream is restored to its original position, so that it remains comaptible with the values (buffer, offset) in the textstream.")

 
-    (CL:WHEN (AND (IGEQ OFFSET 0)
-                  (ILESSP OFFSET (PLEN PC)))
+    (CL:WHEN (AND (IGEQ OFFSET 1)
+                  (ILEQ OFFSET (PLEN PC)))
         [LET ((PCONTENTS (PCONTENTS PC))
               FILEPOS)
              (SELECTC (PTYPE PC)
-                 (STRING.PTYPES (NTHCHARCODE PCONTENTS (ADD1 OFFSET)))
+                 (STRING.PTYPES (NTHCHARCODE PCONTENTS OFFSET))
                  (THINFILE.PTYPE 
                       (SETQ FILEPOS (\GETFILEPTR PCONTENTS))
                       (\SETFILEPTR PCONTENTS (IPLUS (PFPOS PC)
-                                                    OFFSET))
+                                                    (SUB1 OFFSET)))
                       (PROG1 (BIN PCONTENTS)
                              (\SETFILEPTR PCONTENTS FILEPOS)))
                  (FATFILE1.PTYPE 
                       (SETQ FILEPOS (\GETFILEPTR PCONTENTS))
                       (\SETFILEPTR PCONTENTS (IPLUS (PFPOS PC)
-                                                    OFFSET))
+                                                    (SUB1 OFFSET)))
                       (PROG1 (create
 WORD
                                     HIBYTE _ (PCHARSET PC)
                                     LOBYTE _ (BIN PCONTENTS))
@@ -2315,12 +2307,14 @@
                  (FATFILE2.PTYPE 
                       (SETQ FILEPOS (\GETFILEPTR PCONTENTS))
                       (\SETFILEPTR PCONTENTS (IPLUS (PFPOS PC)
-                                                    (UNFOLD OFFSET 2)))
+                                                    (UNFOLD (SUB1 OFFSET)
+                                                           2)))
                       (PROG1 (\WIN PCONTENTS)
                              (\SETFILEPTR PCONTENTS FILEPOS)))
                  (UTF8.PTYPE (SETQ FILEPOS (\GETFILEPTR PCONTENTS))
                              [\SETFILEPTR PCONTENTS (IPLUS (PFPOS PC)
-                                                           (ITIMES OFFSET (PBYTESPERCHAR PC]
+                                                           (ITIMES (SUB1 OFFSET)
+                                                                  (PBYTESPERCHAR PC]
                              (PROG1 (UTF8.INCCODEFN PCONTENTS)
                                     (\SETFILEPTR PCONTENTS FILEPOS)))
                  (OBJECT.PTYPE PCONTENTS)
@@ -2333,8 +2327,7 @@
                         (\TEDIT.THELP '\TEDIT.PIECE.NTHCHARCODE])])
 
 (\TEDIT.RPLCHARCODE

-  [LAMBDA (TSTREAM N NEWCHARCODE NEWCHARLOOKS DONTDISPLAY)
   (* ; "Edited 16-Feb-2026 08:37 by rmk")


-                                                             (* ; "Edited 24-Apr-2025 17:24 by rmk")


+  [LAMBDA (TSTREAM N NEWCHARCODE NEWCHARLOOKS DONTDISPLAY)
   (* ; "Edited 24-Apr-2025 17:24 by rmk")


                                                              (* ; "Edited 20-Apr-2025 13:25 by rmk")


                                                              (* ; "Edited 28-Mar-2025 10:04 by rmk")

 
@@ -2350,17 +2343,16 @@
              (DECLARE
 (SPECVARS START-OF-PIECE))
              (replace
 (STREAM BINABLE) of
 TSTREAM with
 NIL)
              (SETQ OLDCHAR (\TEDIT.PIECE.RPLCHARCODE
 TEXTOBJ (\TEDIT.CHTOPC N TEXTOBJ T)
-                                  (IDIFFERENCE N START-OF-PIECE)
+                                  (ADD1 (IDIFFERENCE N START-OF-PIECE))
                                   NEWCHARCODE NEWCHARLOOKS))
-             (\TEDIT.HISTORYADD TEXTOBJ (\TEDIT.HISTORY.EVENT TEXTOBJ :ReplaceCode N 1 NIL NIL 
+             (\TEDIT.HISTORYADD TEXTOBJ (\TEDIT.HISTORY.EVENT TEXTOBJ :ReplaceCode N NIL NIL NIL 
                                                OLDCHAR))
              (CL:UNLESS (OR DONTDISPLAY (NOT (\TEDIT.PRIMARYPANE TEXTOBJ)))
                  (\TEDIT.UPDATE.LINES TSTREAM 'CHANGED N 1))
              TSTREAM))])
 
 (\TEDIT.PIECE.RPLCHARCODE

-  [LAMBDA (TEXTOBJ PC OFFSET NEWCHARCODE NEWCHARLOOKS)
       (* ; "Edited 16-Feb-2026 08:41 by rmk")


-                                                             (* ; "Edited 28-Jul-2025 23:38 by rmk")


+  [LAMBDA (TEXTOBJ PC OFFSET NEWCHARCODE NEWCHARLOOKS)
       (* ; "Edited 28-Jul-2025 23:38 by rmk")


                                                              (* ; "Edited 24-Apr-2025 16:30 by rmk")


                                                              (* ; "Edited 20-Apr-2025 13:25 by rmk")


                                                              (* ; "Edited 28-Mar-2025 10:04 by rmk")

@@ -2385,13 +2377,12 @@
 
            "Fast case:  Smash a new character code into an existing string piece with same looks.  ")

 
                   (SETQ OLDCHAR (NTHCHARCODE (PCONTENTS PC)
-                                       (ADD1 OFFSET)))
+                                       OFFSET))
                   (RPLCHARCODE (PCONTENTS PC)
-                         (ADD1 OFFSET)
-                         NEWCHARCODE)                        (* ; 
+                         OFFSET NEWCHARCODE)                 (* ; 
 
                                                             "May upgrade string from thin to fat")

                   (CL:WHEN (AND (EQ THINSTRING.PTYPE (PTYPE PC))
-                                (IGREATERP NEWCHARCODE \MAXTHINCHAR))
+                                (IGREATERP NEWCHARCODE 255))
                       (FSETPC PC PTYPE FATSTRING.PTYPE)
                       (FSETPC PC PBINABLE NIL)
                       (FSETPC PC PBYTESPERCHAR 2)
@@ -2405,25 +2396,24 @@
                   (FSETPC PC PCONTENTS NEWCHARCODE)
            else
 
                 (* ;; 
-
          "The PC that contained character OFFSET now becomes the suffix of characters after offset.")

+
                "PC contained character OFFSET now becomes the suffix of characters after offset.")

 
-                (CL:UNLESS (IEQP OFFSET (PLAST PC))          (* ; "No suffix for the last character")

+                (CL:UNLESS (IEQP OFFSET (PLEN PC))           (* ; "No suffix for the last character")

 
                     (* ;; 
 
       "Chop off the suffix (essentially (\TEDIT.ALIGNEDPIECE CHNO ..) but we already have the piece")

 
-                    (\TEDIT.SPLITPIECE PC (ADD1 OFFSET)
-                           TEXTOBJ)
+                    (\TEDIT.SPLITPIECE PC OFFSET TEXTOBJ)
                     (SETQ PC (PREVPIECE PC)))                (* ; 
 
                                    "Original PC holds the suffix, new PC ends with change position.")

-                (CL:UNLESS (EQ OFFSET 0)
+                (CL:UNLESS (EQ OFFSET 1)
                     (SETQ PC (\TEDIT.SPLITPIECE PC (SUB1 OFFSET)
                                     TEXTOBJ)))               (* ; 
 
                                               "Chop off the prefix. PC is now the singleton target ")

 
                 (* ;; "OFFSET is now isolated into a one-character new piece which we smash.  ")

 
-                (SETQ OLDCHAR (\TEDIT.PIECE.NTHCHARCODE
 PC 0))
+                (SETQ OLDCHAR (\TEDIT.PIECE.NTHCHARCODE
 PC 1))
                 (if
 (IMAGEOBJP NEWCHARCODE)
                     then
 (FSETPC PC PBINABLE NIL)
                          (FSETPC PC PCONTENTS NEWCHARCODE)
@@ -2433,7 +2423,7 @@
                   else
 (FSETPC PC PCONTENTS (MKSTRING (CHARACTER NEWCHARCODE))) 
                                                              (* ; 
 
                                              "Use the extend-string in INSERTCH for repeated calls?")

-                       (if
 (IGREATERP NEWCHARCODE \MAXTHINCHAR)
+                       (if
 (IGREATERP NEWCHARCODE 255)
                            then
 (FSETPC PC PTYPE FATSTRING.PTYPE)
                                 (FSETPC PC PBINABLE NIL)
                                 (FSETPC PC PBYTESPERCHAR 2)
@@ -2820,8 +2810,7 @@
                          else
 (SUB1 (\TEDIT.PCTOCH PC TEXTOBJ])
 
 (\TEDIT.LASTCHANGEABLE.CHNO

-  [LAMBDA (CHNO TEXTOBJ)
                                     (* ; "Edited 16-Feb-2026 08:53 by rmk")


-                                                             (* ; "Edited 26-Nov-2024 00:00 by rmk")

+  [LAMBDA (CHNO TEXTOBJ)
                                     (* ; "Edited 26-Nov-2024 00:00 by rmk")

 
     (* ;; "Returns the number of the first visible character at or before CHNO, NIL if the first visible character is protected. Almost always CHNO--PCTOCH is the unusual case.")

 
@@ -2830,11 +2819,46 @@
                                                      CLPROTECTED) when
 (VISIBLEPIECEP PC)
             do
 (RETURN (if
 (EQ PC FIRSTPIECE)
                            then
 CHNO
-                         else
 (IPLUS (PLAST PC)
+                         else
 (IPLUS (SUB1 (PLEN PC))
                                      (\TEDIT.PCTOCH PC TEXTOBJ])
 )
 (DEFINEQ
 
+(\SETUPGETCH

+  [LAMBDA (CH# TEXTOBJ)
                                      (* ; "Edited 21-Oct-2024 00:26 by rmk")


+                                                             (* ; "Edited 29-Apr-2024 12:14 by rmk")


+                                                             (* ; "Edited 17-Mar-2024 00:27 by rmk")


+                                                             (* ; "Edited 23-Dec-2023 12:14 by rmk")


+                                                             (* ; "Edited 22-Aug-2022 13:04 by rmk")


+                                                             (* ; "Edited 10-Aug-2022 17:20 by rmk")


+                                                             (* ; "Edited  8-Aug-2022 15:07 by rmk")


+                                                             (* ; "Edited 31-Jul-2022 21:27 by rmk")


+                                                             (* ; "Edited 14-Apr-93 17:14 by jds")

+
+(* ;;; "Set up TEXTOBJ so that the next \GETCH will retrieve character # CH#")

+
+    (* ;; "NB that 1st char in the textobj is #1.")

+
+    (* ;; "NOBODY CALLS IT WITH A PIECE.  CALLS |INSTALL.PIECE INSTEAD")

+
+    (SETQ TEXTOBJ (TEXTOBJ))
+    (LET ((TSTREAM (TEXTSTREAM TEXTOBJ)))
+         (COND
+            ((TYPE?
 PIECE CH#)
+             (\TEDIT.THELP "\SETUPGETCH CALLED WITH PIECE")
+             (\TEDIT.INSTALL.PIECE
 TSTREAM CH# 0))
+            (T (LET (START-OF-PIECE PC)
+                    (DECLARE
 (SPECVARS START-OF-PIECE))
+                    (SETQ PC (\TEDIT.CHTOPC CH# TEXTOBJ T))
+                    (\TEDIT.INSTALL.PIECE
 TSTREAM PC (- CH# START-OF-PIECE])
+)
+
+
+
+(* ; "Deprecated, maybe still external callers")

+
+(DEFINEQ
+
 (\TEDIT.INSTALL.PIECE

   [LAMBDA (TSTREAM PC CHOFFSET)
                              (* ; "Edited 21-Oct-2024 00:26 by rmk")


                                                              (* ; "Edited 18-May-2024 22:39 by rmk")


@@ -3116,7 +3140,7 @@
 )
 (DECLARE%: DONTEVAL@LOAD DOCOPY 
 
-(\TEDIT.STREAMINIT
)
+(\TEDIT.TEXTINIT
)
 )
 (DECLARE%: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS 
 
@@ -3127,33 +3151,34 @@
 (ADDTOVAR LAMA
 TEXTPROP)
 )
 (DECLARE%: DONTCOPY
-  (FILEMAP (NIL (36667 67629 (\TEDIT.TEXTBIN 36677 . 47470) (\TEDIT.TEXTPEEKBIN 47472 . 53022) (
-\TEDIT.TEXTBACKFILEPTR 53024 . 58800) (\TEDIT.TEXTBOUT 58802 . 63419) (\TEDIT.INSTALL.FILEBUFFER 63421
- . 67627)) (68527 72818 (\TEDIT.TEXTOUTCHARFN 68537 . 70093) (\TEDIT.TEXTINCCODEFN 70095 . 70834) (
-\TEDIT.TEXTBACKCCODEFN 70836 . 71428) (\TEDIT.TEXTFORMATBYTESTREAM 71430 . 72267) (
-\TEDIT.TEXTFORMATBYTESTRING 72269 . 72816)) (72865 84940 (OPENTEXTSTREAM 72875 . 79851) (
-COPYTEXTSTREAM 79853 . 84163) (TEDIT.STREAMCHANGEDP 84165 . 84467) (TXTFILE 84469 . 84938)) (84941 
-108146 (\TEDIT.REOPENTEXTSTREAM 84951 . 86303) (\TEDIT.OPENTEXTSTREAM.PIECES 86305 . 91233) (
-\TEDIT.OPENTEXTSTREAM.PROPS 91235 . 92337) (\TEDIT.OPENTEXTSTREAM.SETUP.SEL 92339 . 97789) (
-\TEDIT.OPENTEXTSTREAM.WINDOW 97791 . 100582) (\TEDIT.OPENTEXTSTREAM.DEFAULTLOOKS 100584 . 102523) (
-\TEDIT.OPENTEXTFILE 102525 . 104657) (\TEDIT.CREATE.TEXTSTREAM 104659 . 105806) (\TEDIT.REOPEN.STREAM 
-105808 . 108144)) (108147 116372 (\TEDIT.STREAMINIT 108157 . 116189) (TEDIT.IMAGESTREAM.OPEN 116191 . 
-116370)) (116560 117748 (\TEDIT.TTYBOUT 116570 . 117746)) (117866 139549 (\TEDIT.TEXTCLOSEF 117876 . 
-119200) (\TEDIT.TEXTDSPFONT 119202 . 120400) (\TEDIT.TEXTEOFP 120402 . 122157) (\TEDIT.TEXTGETEOFPTR 
-122159 . 122482) (\TEDIT.TEXTSETEOFPTR 122484 . 123771) (\TEDIT.TEXTGETFILEPTR 123773 . 126608) (
-\TEDIT.TEXTSETFILEINFO 126610 . 127118) (\TEDIT.TEXTOPENF 127120 . 128051) (\TEDIT.TEXTSETEOF 128053
- . 128669) (\TEDIT.TEXTSETFILEPTR 128671 . 130781) (\TEDIT.TEXTDSPXPOSITION 130783 . 133486) (
-\TEDIT.TEXTDSPYPOSITION 133488 . 134229) (\TEDIT.TEXTLEFTMARGIN 134231 . 134822) (\TEDIT.TEXTCOLOR 
-134824 . 135407) (\TEDIT.TEXTRIGHTMARGIN 135409 . 138698) (\TEDIT.TEXTDSPCHARWIDTH 138700 . 139004) (
-\TEDIT.TEXTDSPSTRINGWIDTH 139006 . 139312) (\TEDIT.TEXTDSPLINEFEED 139314 . 139547)) (139587 152583 (
-\TEDIT.NTHCHARCODE 139597 . 141123) (\TEDIT.PIECE.NTHCHARCODE 141125 . 145033) (\TEDIT.RPLCHARCODE 
-145035 . 146593) (\TEDIT.PIECE.RPLCHARCODE 146595 . 152228) (\TEDIT.NTHCHARLOOKS 152230 . 152581)) (
-153630 174724 (\TEDIT.DELETE.SELPIECES 153640 . 157265) (\TEDIT.INSERTCH 157267 . 165306) (
-\TEDIT.INSERTCH.HISTORY 165308 . 168772) (\TEDIT.INSERTEOL 168774 . 170599) (\TEDIT.INSERTCH.INSERTION
- 170601 . 173438) (\TEDIT.INSERTCH.EXTEND 173440 . 174722)) (174725 176332 (\TEDIT.NEXTCHANGEABLE.CHNO
- 174735 . 175450) (\TEDIT.LASTCHANGEABLE.CHNO 175452 . 176330)) (176333 180791 (\TEDIT.INSTALL.PIECE 
-176343 . 180789)) (180829 190295 (TEXTPROP 180839 . 181186) (GETTEXTPROP 181188 . 181432) (PUTTEXTPROP
- 181434 . 181691) (GETTEXTPROPS 181693 . 182137) (PUTTEXTPROPS 182139 . 183043) (TEXTPROP.ADD 183045
- . 183308) (\TEDIT.TEXTPROP 183310 . 190293)) (190296 192673 (\TEDIT.TEXTOBJ.PROPNAMES 190306 . 191565
-) (\TEDIT.TEXTOBJ.PROPFETCHFN 191567 . 192083) (\TEDIT.TEXTOBJ.PROPSTOREFN 192085 . 192671)))))
+  (FILEMAP (NIL (36705 67564 (\TEDIT.TEXTBIN 36715 . 47508) (\TEDIT.TEXTPEEKBIN 47510 . 53060) (
+\TEDIT.TEXTBACKFILEPTR 53062 . 58735) (\TEDIT.TEXTBOUT 58737 . 63354) (\TEDIT.INSTALL.FILEBUFFER 63356
+ . 67562)) (68462 72753 (\TEDIT.TEXTOUTCHARFN 68472 . 70028) (\TEDIT.TEXTINCCODEFN 70030 . 70769) (
+\TEDIT.TEXTBACKCCODEFN 70771 . 71363) (\TEDIT.TEXTFORMATBYTESTREAM 71365 . 72202) (
+\TEDIT.TEXTFORMATBYTESTRING 72204 . 72751)) (72800 84875 (OPENTEXTSTREAM 72810 . 79786) (
+COPYTEXTSTREAM 79788 . 84098) (TEDIT.STREAMCHANGEDP 84100 . 84402) (TXTFILE 84404 . 84873)) (84876 
+116145 (\TEDIT.REOPENTEXTSTREAM 84886 . 86238) (\TEDIT.OPENTEXTSTREAM.PIECES 86240 . 91168) (
+\TEDIT.OPENTEXTSTREAM.PROPS 91170 . 92272) (\TEDIT.OPENTEXTSTREAM.SETUP.SEL 92274 . 97515) (
+\TEDIT.OPENTEXTSTREAM.WINDOW 97517 . 100308) (\TEDIT.OPENTEXTSTREAM.DEFAULTLOOKS 100310 . 102249) (
+\TEDIT.OPENTEXTFILE 102251 . 104383) (\TEDIT.CREATE.TEXTSTREAM 104385 . 105532) (\TEDIT.REOPEN.STREAM 
+105534 . 107870) (\TEDIT.TEXTINIT 107872 . 116143)) (116183 117371 (\TEDIT.TTYBOUT 116193 . 117369)) (
+117489 139172 (\TEDIT.TEXTCLOSEF 117499 . 118823) (\TEDIT.TEXTDSPFONT 118825 . 120023) (
+\TEDIT.TEXTEOFP 120025 . 121780) (\TEDIT.TEXTGETEOFPTR 121782 . 122105) (\TEDIT.TEXTSETEOFPTR 122107
+ . 123394) (\TEDIT.TEXTGETFILEPTR 123396 . 126231) (\TEDIT.TEXTSETFILEINFO 126233 . 126741) (
+\TEDIT.TEXTOPENF 126743 . 127674) (\TEDIT.TEXTSETEOF 127676 . 128292) (\TEDIT.TEXTSETFILEPTR 128294 . 
+130404) (\TEDIT.TEXTDSPXPOSITION 130406 . 133109) (\TEDIT.TEXTDSPYPOSITION 133111 . 133852) (
+\TEDIT.TEXTLEFTMARGIN 133854 . 134445) (\TEDIT.TEXTCOLOR 134447 . 135030) (\TEDIT.TEXTRIGHTMARGIN 
+135032 . 138321) (\TEDIT.TEXTDSPCHARWIDTH 138323 . 138627) (\TEDIT.TEXTDSPSTRINGWIDTH 138629 . 138935)
+ (\TEDIT.TEXTDSPLINEFEED 138937 . 139170)) (139210 151823 (\TEDIT.NTHCHARCODE 139220 . 140671) (
+\TEDIT.PIECE.NTHCHARCODE 140673 . 144583) (\TEDIT.RPLCHARCODE 144585 . 146043) (
+\TEDIT.PIECE.RPLCHARCODE 146045 . 151468) (\TEDIT.NTHCHARLOOKS 151470 . 151821)) (152870 173964 (
+\TEDIT.DELETE.SELPIECES 152880 . 156505) (\TEDIT.INSERTCH 156507 . 164546) (\TEDIT.INSERTCH.HISTORY 
+164548 . 168012) (\TEDIT.INSERTEOL 168014 . 169839) (\TEDIT.INSERTCH.INSERTION 169841 . 172678) (
+\TEDIT.INSERTCH.EXTEND 172680 . 173962)) (173965 175469 (\TEDIT.NEXTCHANGEABLE.CHNO 173975 . 174690) (
+\TEDIT.LASTCHANGEABLE.CHNO 174692 . 175467)) (175470 177174 (\SETUPGETCH 175480 . 177172)) (177232 
+181690 (\TEDIT.INSTALL.PIECE 177242 . 181688)) (181728 191194 (TEXTPROP 181738 . 182085) (GETTEXTPROP 
+182087 . 182331) (PUTTEXTPROP 182333 . 182590) (GETTEXTPROPS 182592 . 183036) (PUTTEXTPROPS 183038 . 
+183942) (TEXTPROP.ADD 183944 . 184207) (\TEDIT.TEXTPROP 184209 . 191192)) (191195 193572 (
+\TEDIT.TEXTOBJ.PROPNAMES 191205 . 192464) (\TEDIT.TEXTOBJ.PROPFETCHFN 192466 . 192982) (
+\TEDIT.TEXTOBJ.PROPSTOREFN 192984 . 193570)))))
 STOP

library/tedit/tedit-exports.all

@@ -1,11 +1,11 @@
 (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
 
-
(FILECREATED "16-Feb-2026 08:56:58" 
-{DSK}<Users>kaplan>Local>medley3.5>working-medley>library>tedit>tedit-exports.all;249
 52790  
+
(FILECREATED "20-Oct-2025 11:20:51" 
+{DSK}<Users>kaplan>Local>medley3.5>working-medley>library>tedit>tedit-exports.all;243
 52506  
 
       :EDIT-BY rmk
 
-      :PREVIOUS-DATE "14-Jan-2026 14:50:53" {WMEDLEY}<library>TEDIT>tedit-exports.all;248)
+      :PREVIOUS-DATE "20-Sep-2025 11:04:51" {WMEDLEY}<library>TEDIT>tedit-exports.all;242)
 
 
 (PRETTYCOMPRINT ((E (MAPC (MKLIST FROMFILES) (FUNCTION (LAMBDA (F) (MAPC (IMPORTFILE F FLG) (FUNCTION 
@@ -17,7 +17,7 @@ PRINT))))))))
 (PUTPROPS FTEXTOBJ MACRO ((X) (TEXTOBJ! (CL:IF (type? TEXTOBJ X) X (GETTSTR X TEXTOBJ)))))
 (GLOBALVARS CHECK-TEDIT-ASSERTIONS)
 (RPAQ? CHECK-TEDIT-ASSERTIONS T)
-(PUTPROP (QUOTE TEDIT) (QUOTE IMPORTDATE) (IDATE " 4-Feb-2026 16:02:02"))
+(PUTPROP (QUOTE TEDIT) (QUOTE IMPORTDATE) (IDATE "28-Sep-2025 11:35:06"))
 (RPAQQ \BTREEWORDSPERSLOT 4)
 (RPAQQ \BTREEMAXCOUNT 8)
 (CONSTANTS (\BTREEWORDSPERSLOT 4) (\BTREEMAXCOUNT 8))
@@ -51,14 +51,13 @@ DLEN1 DOWN2 DLEN2 DOWN3 DLEN3 DOWN4 DLEN4 DOWN5 DLEN5 DOWN6 DLEN6 DOWN7 DLEN7 DO
  (\DTEST (OR (NEXTPIECE I.V.) (GO $$OUT)) (QUOTE PIECE)))))
 (I.S.OPR (QUOTE backpieces) NIL (QUOTE (first (SETQ I.V. (\DTEST (OR BODY (GO $$OUT)) (QUOTE PIECE))) 
 by (\DTEST (OR (PREVPIECE I.V.) (GO $$OUT)) (QUOTE PIECE)))))
-(PUTPROP (QUOTE TEDIT-PCTREE) (QUOTE IMPORTDATE) (IDATE "14-Feb-2026 13:22:06"))
+(PUTPROP (QUOTE TEDIT-PCTREE) (QUOTE IMPORTDATE) (IDATE "28-Jul-2025 23:25:19"))
 (DATATYPE SELECTION ((* ;; 
 "Description of a piece of selected text for TEdit.  Text has to be selected before it can be operated on by the user. The caret is to the left of CH# if POINT is LEFT, to the keft of CHLIM if POINT is RIGHT."
 ) (* ;; "If DCH > 0, highlighting goes from CH# to (SUB1 CHLIM = (SUB1 (IPLUS CH# DCH)).") (* ;; 
 "If DCH=0, this is a caret-only selection, with no highlighting.  In that case CHLIM=(ADD1 CH#) and POINT essentially indicates whether the caret blinks before or after CH#."
-) SELOPERATION (* ; 
-"NORMAL, MOVE, COPY...  HOW and HOWHEIGHT are derived from the operation.  Was Y0: Y value of topmost line of selection"
-) X0 (* ; "X value of left edge of selection on the first line") SELLINES (* ; 
+) NIL (* ; "Was Y0: Y value of topmost line of selection") X0 (* ; 
+"X value of left edge of selection on the first line") SELLINES (* ; 
 "A list of (L1 L2) pairs one for each pane, to replace the separate L1 L2 lists. Was DX: Width of the selection, if it's on one line."
 ) CH# (* ; "CH# of the first selected character") XLIM (* ; 
 "X value of right edge of last selected character on the last line") CHLIM (* ; 
@@ -128,7 +127,7 @@ TSTREAM ONLYPANE DONTFIX)))
 (PUTPROPS \TEDIT.SEL.OFF MACRO ((TSTREAM SEL ONLYPANE) (* ; 
 "Takes down SEL in TSTREAM, where SEL defaults to the current selection") (\TEDIT.SHOWSEL SEL NIL 
 TSTREAM ONLYPANE)))
-(PUTPROP (QUOTE TEDIT-SELECTION) (QUOTE IMPORTDATE) (IDATE "16-Feb-2026 00:38:33"))
+(PUTPROP (QUOTE TEDIT-SELECTION) (QUOTE IMPORTDATE) (IDATE "29-Jul-2025 11:22:10"))
 (RECORD TAB (TABX . TABKIND))
 (RECORD TABSPEC (DEFAULTTAB . TABS))
 (DATATYPE LINECACHE ((* ;; "Image cache for display lines.") LCBITMAP (* ; 
@@ -209,6 +208,8 @@ ITEM collect (FIXR (FTIMES SCALE ITEM))) (FIXR (FTIMES SCALE ITEM)))))
 (PUTPROPS SCALEDOWN MACRO (OPENLAMBDA (SCALE ITEM) (* ; "List = region?") (CL:IF (LISTP ITEM) (for I 
 in ITEM collect (FIXR (FQUOTIENT I SCALE))) (FIXR (FQUOTIENT ITEM SCALE)))))
 (GLOBALVARS TEDIT.DONT.BREAK.CHARS TEDIT.DONT.LAST.CHARS)
+(ADDTOVAR CHARACTERNAMES (SOFT-HYPHEN "357,043") (NONBREAKING-HYPHEN "357,042") (NONBREAKING-SPACE 
+"357,041"))
 (PUTPROPS DIACRITICP MACRO (OPENLAMBDA (CHAR) (* ;; "An XCCS diacritic") (AND (SMALLP CHAR) (IGEQ CHAR
  192) (ILEQ CHAR 207))))
 (PUTPROPS \TEDIT.LINE.TALLP MACRO ((LINE HEIGHT) (OR (IGREATERP (FGETLD LINE LHEIGHT) 50) (IGREATERP (
@@ -259,7 +260,7 @@ NEXTAVAILABLECHARSLOT) of THISLINE))) (T $$STARTSLOT))) (SETQ $$CHARSLOTLIMIT (F
 ) by (PREVCHARSLOT I.V.) eachtime (SETQ CHAR (fetch (CHARSLOT CHAR) of I.V.)) (SETQ CHARW (fetch (
 CHARSLOT CHARW) of I.V.)) (SETQ CHARCL (fetch (CHARSLOT CHARCL) of I.V.)) repeatuntil (EQ I.V. 
 $$CHARSLOTLIMIT))))) T)
-(PUTPROP (QUOTE TEDIT-SCREEN) (QUOTE IMPORTDATE) (IDATE " 5-Feb-2026 00:39:54"))
+(PUTPROP (QUOTE TEDIT-SCREEN) (QUOTE IMPORTDATE) (IDATE "19-Oct-2025 00:07:29"))
 (DATATYPE PIECE ((* ; 
 "The piece describes either a string or part of a file.  , or a generalized OBJECT.") PCONTENTS (* ; 
 "The background source of data for this piece (stream, string, block, object, depending on the PTYPE)."
@@ -298,10 +299,9 @@ HINTPC (* ; "Was: Space left in the type-in piece") HINTPCSTARTCH# (* ;
 ) DS (* ; 
 "NOTE:  THIS IS ONLY USED INCORRECTLY BY TEDIT-CHAT Display stream where this textobj is displayed") 
 SEL (* ; "The current selection within the text") LASTARROWX (* ; 
-"X for next arrow up or arrow down. Was: Scratch space for the selection code") SECONDARYSEL (* ; 
-"Holds secondary selection and operation just before the mouse leaves a window. Was MOVESEL: Source for the next MOVE of text"
-) NIL (* ; "Was SHIFTEDSEL: Source for the next COPY") NIL (* ; 
-"Was DELETESEL: Text to be deleted imminently") NIL (* ; 
+"X for next arrow up or arrow down. Was: Scratch space for the selection code") NIL (* ; 
+"Was MOVESEL: Source for the next MOVE of text") NIL (* ; "Was SHIFTEDSEL: Source for the next COPY") 
+NIL (* ; "Was DELETESEL: Text to be deleted imminently") NIL (* ; 
 "Was WRIGHT: Right edge of the window (or subregion) where this is displayed") WTOP (* ; 
 "Top of the window/region") NIL (* ; "Was WBOTTOM: Bottom of the window/region") NIL (* ; 
 "Was WLEFT: Left edge of the window/region") TXTFILE (* ; "The original text file we're editing") (
@@ -372,7 +372,6 @@ IMAGEDATA _ NIL)))
 (PUTPROPS NEXTPIECE MACRO ((PC) (ffetch (PIECE NEXTPIECE) of PC)))
 (PUTPROPS PREVPIECE MACRO ((PC) (ffetch (PIECE PREVPIECE) of PC)))
 (PUTPROPS PLEN MACRO ((PC) (ffetch (PIECE PLEN) of PC)))
-(PUTPROPS PLAST MACRO ((PC) (SUB1 (PLEN PC))))
 (PUTPROPS PTYPE MACRO ((PC) (ffetch (PIECE PTYPE) of PC)))
 (PUTPROPS PCONTENTS MACRO ((PC) (ffetch (PIECE PCONTENTS) of PC)))
 (PUTPROPS PCHARLOOKS MACRO ((PC) (ffetch (PIECE PCHARLOOKS) of PC)))
@@ -441,7 +440,7 @@ UTF8.PTYPE UTF16BE.PTYPE UTF16LE.PTYPE)) (STRING.PTYPES (LIST THINSTRING.PTYPE F
 BINABLE.PTYPES (LIST THINFILE.PTYPE THINSTRING.PTYPE)) (THIN.PTYPES (LIST THINFILE.PTYPE 
 THINSTRING.PTYPE)) (FAT.PTYPES (LIST FATFILE2.PTYPE FATSTRING.PTYPE FATFILE1.PTYPE)))
 (GLOBALVARS \TEXTIMAGEOPS \TEXTFDEV)
-(PUTPROP (QUOTE TEDIT-STREAM) (QUOTE IMPORTDATE) (IDATE "16-Feb-2026 08:56:40"))
+(PUTPROP (QUOTE TEDIT-STREAM) (QUOTE IMPORTDATE) (IDATE "19-Oct-2025 15:09:09"))
 (PUTPROPS \TEDIT.MOUSESTATE MACRO (BUTTON (* ;; 
 "Test to see if only the specified mouse button is down.  DOES NOT call GETMOUSESTATE, so the mouse-button info is the same as the last time it was called."
 ) (SELECTQ (CAR BUTTON) (LEFT (QUOTE (EQ LASTMOUSEBUTTONS 4))) (MIDDLE (QUOTE (EQ LASTMOUSEBUTTONS 1))
@@ -450,12 +449,12 @@ THINSTRING.PTYPE)) (FAT.PTYPES (LIST FATFILE2.PTYPE FATSTRING.PTYPE FATFILE1.PTY
 I in ARGS as J on ARGS when (NOT (STRINGP I)) collect (LIST (QUOTE OR) I (LIST (QUOTE HELP) 
 "TEdit consistency-check failure [RETURN to continue]:  " (COND ((STRINGP (CADR J))) (T (KWOTE I))))))
 )) (T (CONS COMMENTFLG ARGS)))))
-(PUTPROP (QUOTE TEDIT-COMMAND) (QUOTE IMPORTDATE) (IDATE " 8-Nov-2025 10:03:19"))
+(PUTPROP (QUOTE TEDIT-COMMAND) (QUOTE IMPORTDATE) (IDATE "17-Jul-2025 00:24:49"))
 (PUTPROPS \SMALLPIN MACRO (OPENLAMBDA (STREAM) (SIGNED (create WORD HIBYTE _ (\BIN STREAM) LOBYTE _ (
 \BIN STREAM)) BITSPERWORD)))
 (PUTPROPS \SMALLPOUT MACRO (OPENLAMBDA (STREAM W) (* ; "Signed smallp, unlike \WOUT") (\BOUT STREAM (
 LOGAND 255 (LRSH W 8))) (\BOUT STREAM (LOGAND W 255))))
-(PUTPROP (QUOTE TEDIT-FILE) (QUOTE IMPORTDATE) (IDATE "15-Feb-2026 23:45:51"))
+(PUTPROP (QUOTE TEDIT-FILE) (QUOTE IMPORTDATE) (IDATE "25-Sep-2025 21:32:46"))
 (PUTPROP (QUOTE TEDIT-OLDFILE) (QUOTE IMPORTDATE) (IDATE " 8-Sep-2025 22:10:10"))
 (DATATYPE CHARLOOKS ((* ;; "Describes the appearance (%"Looks%") of characters in a TEdit document.") 
 (* ;; "NOTE:  If fields change EQCLOOKS should change too.") CLFONT (* ; 
@@ -538,7 +537,7 @@ LINELEAD _ 0)
 (PUTPROPS FSETPLOOKS MACRO ((PLOOKS FIELD NEWVALUE) (freplace (PARALOOKS FIELD) of PLOOKS with 
 NEWVALUE)))
 (PUTPROPS PARALOOKS! MACRO ((PL) (\DTEST PL (QUOTE PARALOOKS))))
-(PUTPROP (QUOTE TEDIT-LOOKS) (QUOTE IMPORTDATE) (IDATE "16-Feb-2026 00:36:00"))
+(PUTPROP (QUOTE TEDIT-LOOKS) (QUOTE IMPORTDATE) (IDATE " 6-Oct-2025 20:50:59"))
 (PUTPROP (QUOTE TEDIT-STYLES) (QUOTE IMPORTDATE) (IDATE "28-Jul-2025 23:25:43"))
 (DATATYPE TEDITCARET (TCNOWTIME (* Used to hold the current time, when checking to see if a transition
  is due) TCTHENTIME (* Time when the next transition is to take place) TCFORCEDDOWN (* TCFORCEDOWN = T
@@ -601,18 +600,17 @@ OR (CL:IF (TYPENAMEP $$BODY (QUOTE TEXTOBJ)) (FGETTOBJ $$BODY PRIMARYPANE) $$BOD
 GETPANEPROP (PANEPROPS P) NEXTPANE))) (GO $$OUT))) by (OR (GETPANEPROP (PANEPROPS I.V.) PREVPANE) (GO 
 $$OUT)))))
 (PUTPROPS ALLBUTTONSUP MACRO (NIL (ZEROP (LOGAND 7 LASTMOUSEBUTTONS))))
-(PUTPROP (QUOTE TEDIT-WINDOW) (QUOTE IMPORTDATE) (IDATE " 7-Feb-2026 18:53:22"))
-(PUTPROP (QUOTE TEDIT-BUTTONS) (QUOTE IMPORTDATE) (IDATE "25-Jan-2026 09:14:04"))
-(PUTPROP (QUOTE TEDIT-MENU) (QUOTE IMPORTDATE) (IDATE " 9-Feb-2026 09:10:43"))
+(PUTPROP (QUOTE TEDIT-WINDOW) (QUOTE IMPORTDATE) (IDATE "19-Oct-2025 15:13:01"))
+(PUTPROP (QUOTE TEDIT-BUTTONS) (QUOTE IMPORTDATE) (IDATE "19-Oct-2025 10:44:18"))
+(PUTPROP (QUOTE TEDIT-MENU) (QUOTE IMPORTDATE) (IDATE "19-Oct-2025 15:14:00"))
 (PUTPROP (QUOTE TEDIT-FIND) (QUOTE IMPORTDATE) (IDATE "21-Apr-2025 22:42:57"))
-(RPAQQ \TEDIT.TTCCODES ((NONE . 0) (CHARDELETE . 1) (:CHARDELETE.BACKWARD . 1) (WORDDELETE . 2) (
-:WORDDELETE.BACKWORD . 2) (DELETE . 3) (:DELETE . 3) (FN . 4) (REDO . 5) (:REDO . 5) (UNDO . 6) (:UNDO
- . 6) (CMD . 7) (:CMD . 7) (NEXT . 8) (:NEXT . 8) (EXPAND . 9) (:EXPAND . 9) (CHARDELETE.FORWARD . 10)
- (:CHARDELETE.FORWARD . 10) (:WORDDELETE.FORWARD . 11) (PUNCT . 20) (TEXT . 21) (WHITESPACE . 22)))
+(RPAQQ \TEDIT.TTCCODES ((NONE 0) (CHARDELETE 1) (WORDDELETE 2) (DELETE 3) (FUNCTIONCALL 4) (REDO 5) (
+UNDO 6) (CMD 7) (NEXT 8) (EXPAND 9) (CHARDELETE.FORWARD 10) (WORDDELETE.FORWARD 11) (PUNCT 20) (TEXT 
+21) (WHITESPACE 22)))
 (CONSTANTS \TEDIT.TTCCODES)
-(PUTPROPS \TEDIT.TTC MACRO ((ACTION) (CONSTANT (GETMULTI \TEDIT.TTCCODES (QUOTE ACTION)))))
-(PUTPROP (QUOTE TEDIT-FNKEYS) (QUOTE IMPORTDATE) (IDATE " 8-Feb-2026 19:54:41"))
-(PUTPROP (QUOTE TEDIT-HCPY) (QUOTE IMPORTDATE) (IDATE "15-Jan-2026 11:08:15"))
+(PUTPROPS \TEDIT.TTC MACRO ((CLASS) (CONSTANT (CADR (ASSOC (QUOTE CLASS) \TEDIT.TTCCODES)))))
+(PUTPROP (QUOTE TEDIT-FNKEYS) (QUOTE IMPORTDATE) (IDATE " 7-Aug-2025 15:00:51"))
+(PUTPROP (QUOTE TEDIT-HCPY) (QUOTE IMPORTDATE) (IDATE "19-Sep-2025 17:08:05"))
 (DATATYPE TEDITHISTORYEVENT ((* ;; "Describes one event on the TEdit edit history list.") THACTION (* 
 ; "A keyword specifying what the event was") THPOINT (* ; "Was the selection to the left or right?") 
 THLEN (* ; "The # of chars involved") THCH# (* ; "The starting ch#") THFIRSTPIECE (* ; 
@@ -661,9 +659,9 @@ REGIONPARENT FULLXPOINTER) (* ; "The parent node for this box, for sub-boxes") R
 $$VALUES)) (PROG1 (CAR $$VALUES) (\,@ (FOR V IN (CAR ARGS) collect (COND (V (BQUOTE (SETQ (\, V) (POP 
 $$VALUES)))) (T (BQUOTE (SETQ $$VALUES (CDR $$VALUES))))))))))))
 (PUTPROPS TEDIT.VALUES MACRO (ARGS (BQUOTE (LIST (\,@ ARGS)))))
-(PUTPROP (QUOTE TEDIT-PAGE) (QUOTE IMPORTDATE) (IDATE "27-Jan-2026 10:30:27"))
-(PUTPROP (QUOTE TEDIT-ABBREV) (QUOTE IMPORTDATE) (IDATE "23-Jan-2026 15:49:26"))
-(PUTPROP (QUOTE TEDIT-TFBRAVO) (QUOTE IMPORTDATE) (IDATE "21-Jan-2026 12:15:57"))
+(PUTPROP (QUOTE TEDIT-PAGE) (QUOTE IMPORTDATE) (IDATE "27-Sep-2025 16:25:26"))
+(PUTPROP (QUOTE TEDIT-ABBREV) (QUOTE IMPORTDATE) (IDATE " 6-Sep-2025 00:10:45"))
+(PUTPROP (QUOTE TEDIT-TFBRAVO) (QUOTE IMPORTDATE) (IDATE " 7-Sep-2025 11:11:43"))
 (DECLARE%: DONTCOPY
   (FILEMAP (NIL)))
 STOP

lispusers/BACKGROUNDMENU

@@ -1,17 +1,18 @@
-(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
+(DEFINE-FILE-INFO §READTABLE "INTERLISP" §PACKAGE "INTERLISP")
+
(FILECREATED "31-Jan-87 18:09:00" {ERIS}<LISPUSERS>LYRIC>BACKGROUNDMENU.;1
 7367   
 
-
(FILECREATED "18-Feb-2026 16:20:10" {WMEDLEY}<lispusers>BACKGROUNDMENU.;2
 7230   
+      previous date%: "31-Jan-86 11:36:13" {ERIS}<LISP>KOTO>LISPUSERS>BACKGROUNDMENU.;1)
 
-      :EDIT-BY rmk
-
-      :PREVIOUS-DATE "31-Jan-87 18:09:00" {WMEDLEY}<lispusers>BACKGROUNDMENU.;1)
 
+(* "
+Copyright (c) 1985, 1986, 1987 by Xerox Corporation.  All rights reserved.
+")
 
 (PRETTYCOMPRINT BACKGROUNDMENUCOMS)
 
 (RPAQQ BACKGROUNDMENUCOMS
 ((INITVARS BackgroundMenuFixupMode BackgroundMenuSuperItem 
                                   BackgroundMenuTopLevelItems)
-                           (FNS BkgMenu.add.item BkgMenu.fixup BkgMenu.move.item BkgMenu.remove.item
+                           (FNS BkgMenu.add.item BkgMenu.fixup BkgMenu.move.item BkgMenu.remove.item 
                                 BkgMenu.rename.item BkgMenu.reorder.items BkgMenu.subitems 
                                 \BkgMenu.locate \BkgMenu.locater \BkgMenu.remove.item 
                                 \BkgMenu.scan.item.list \BkgMenu.unremove.item)))
@@ -152,10 +153,11 @@
       else
 (SETQ BackgroundMenuCommands (CONS (CAR item)
                                               BackgroundMenuCommands])
 )
+(PUTPROPS BACKGROUNDMENU COPYRIGHT ("Xerox Corporation" 1985 1986 1987))
 (DECLARE%: DONTCOPY
-  (FILEMAP (NIL (944 7207 (BkgMenu.add.item 954 . 1846) (BkgMenu.fixup 1848 . 3067) (BkgMenu.move.item 
-3069 . 3493) (BkgMenu.remove.item 3495 . 3770) (BkgMenu.rename.item 3772 . 4064) (
-BkgMenu.reorder.items 4066 . 4441) (BkgMenu.subitems 4443 . 4843) (\BkgMenu.locate 4845 . 5456) (
-\BkgMenu.locater 5458 . 6025) (\BkgMenu.remove.item 6027 . 6314) (\BkgMenu.scan.item.list 6316 . 6813)
- (\BkgMenu.unremove.item 6815 . 7205)))))
+  (FILEMAP (NIL (1008 7271 (BkgMenu.add.item 1018 . 1910) (BkgMenu.fixup 1912 . 3131) (BkgMenu.move.item
+ 3133 . 3557) (BkgMenu.remove.item 3559 . 3834) (BkgMenu.rename.item 3836 . 4128) (
+BkgMenu.reorder.items 4130 . 4505) (BkgMenu.subitems 4507 . 4907) (\BkgMenu.locate 4909 . 5520) (
+\BkgMenu.locater 5522 . 6089) (\BkgMenu.remove.item 6091 . 6378) (\BkgMenu.scan.item.list 6380 . 6877)
+ (\BkgMenu.unremove.item 6879 . 7269)))))
 STOP

lispusers/CHATSERVER

@@ -1,13 +1,14 @@
 (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
+
(FILECREATED " 7-Sep-88 17:08:57" {ERINYES}<LISPUSERS>MEDLEY>CHATSERVER.;11
 47957  
 
-
(FILECREATED " 9-Feb-2026 22:25:32" {WMEDLEY}<lispusers>CHATSERVER.;2
 45227  
+      changes to%:  (FNS CHATSERVEROPENFN)
 
-      :EDIT-BY rmk
+      previous date%: "19-May-88 00:37:49" {ERINYES}<LISPUSERS>MEDLEY>CHATSERVER.;10)
 
-      :CHANGES-TO (FNS \CREATELINEBUFFER)
-
-      :PREVIOUS-DATE " 7-Sep-88 17:08:57" {WMEDLEY}<lispusers>CHATSERVER.;1)
 
+(* "
+Copyright (c) 1984, 1985, 1986, 1987, 1988 by Xerox Corporation.  All rights reserved.
+")
 
 (PRETTYCOMPRINT CHATSERVERCOMS)
 
@@ -39,7 +40,8 @@
         (COMMANDS "QUIT" "SAY")
         (DECLARE%: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS (ADDVARS (NLAMA)
                                                                              (NLAML)
-                                                                             (LAMA CHATSERVEROPENFN])
+                                                                             (LAMA \REMOTE.BIN 
+                                                                                   CHATSERVEROPENFN])
 (DEFINEQ
 
 (CHATSERVER

@@ -448,34 +450,34 @@
            (RETURN CHARBUFFER])
 
 (\CREATELINEBUFFER

-  [LAMBDA (TERMINAL.STREAM)
                                  (* ; "Edited  9-Feb-2026 22:21 by rmk")


-                                                             (* ; "Edited 13-Apr-87 22:57 by bvm:")

+  [LAMBDA (TERMINAL.STREAM)
                              (* ; "Edited 13-Apr-87 22:57 by bvm:")

+          (* ;; 
+
   "Create a new stream that buffers the raw input from TERMINAL.STREAM (default is the keyboard).")

 
-    (* ;; "This is a copy of \CREATELINEBUFFER on ATERM, except for the source of the EOFMETHOD.")

-
-    (* ;; 
-
    "Create a new stream that buffers the raw input from TERMINAL.STREAM (default is the keyboard).")

-
-    (LET* ([STREAM (\OPENFILE '{LINEBUFFER} 'BOTH 'NEW '((:EXTERNAL-FORMAT :THROUGH16]
+    (LET* ([STREAM (\OPENFILE '{LINEBUFFER} 'BOTH 'NEW '((CHARSET T]
            (DEV (fetch
 (STREAM DEVICE) of
 STREAM))
            EOFMETHOD)
           (replace
 LINEBUFSTATE of
 STREAM with
 READING.LBS)
-          (replace
 (LINEBUFFER KEYBOARDSTREAM) of
 STREAM with
 (OR TERMINAL.STREAM \KEYBOARD.STREAM))
+          (replace
 (LINEBUFFER KEYBOARDSTREAM) of
 STREAM with
 (OR TERMINAL.STREAM 
+                                                                              \KEYBOARD.STREAM))
           (replace
 USERCLOSEABLE of
 STREAM with
 NIL)
-          (replace
 USERVISIBLE of
 STREAM with
 NIL)           (* ; 
-
                                                           "Other linebuffer fields default properly")

+          (replace
 USERVISIBLE of
 STREAM with
 NIL)
+                                                             (* ; 
+
                                                         "Other linebuffer fields default properly")

           [replace
 ENDOFSTREAMOP of
 STREAM with
 (FUNCTION (LAMBDA (STREAM)
-                                                            (CL:FUNCALL \RefillBufferFn]
-          (if
 (AND TERMINAL.STREAM (NEQ (SETQ EOFMETHOD (fetch
 (FDEV EOFP) of
 (fetch
 (STREAM DEVICE)
-                                                                                     TERMINAL.STREAM)
-                                                               ))
-                                        'NILL))
+                                                                        (CL:FUNCALL \RefillBufferFn]
+          (if
 (AND TERMINAL.STREAM (NEQ (SETQ EOFMETHOD (fetch
 (FDEV EOFP)
+                                                               of
 (fetch
 (STREAM DEVICE)
+                                                                             TERMINAL.STREAM)))
+                                            'NILL))
               then
 
-                   (* ;; "Need to install an eof method for the buffered stream that looks at TERMINAL.STREAM when the buffer runs out.  This is optimized away for the normal keyboard case, which never runs out.")

+          (* ;; "Need to install an eof method for the buffered stream that looks at TERMINAL.STREAM when the buffer runs out.  This is optimized away for the normal keyboard case, which never runs out.")

 
-                   (replace
 (STREAM DEVICE) of
 STREAM with
 (SETQ DEV (NCREATE 'FDEV DEV))) 
-                                                             (* ; "Copy the basic linebuffer device")

-                   (replace
 (FDEV EOFP) of
 DEV with
 EOFMETHOD))
+                    (replace
 (STREAM DEVICE) of
 STREAM with
 (SETQ DEV (NCREATE
+                                                                                   'FDEV DEV))) 
+                                                             (* ; 
+
                                                           "Copy the basic linebuffer device")

+                    (replace
 (FDEV EOFP) of
 DEV with
 EOFMETHOD))
           STREAM])
 
 (\PROMPTFORWORDBIN

@@ -648,7 +650,7 @@
 (SETQ CHATSERVERTTBL (COPYTERMTABLE 'ORIG))
 
 (for
 I from
 1 to
 8 do
 (ECHOCHAR I 'IGNORE CHATSERVERTTBL)
-                      (ECHOCHAR I 'IGNORE ASKUSERTTBL))
+                                     (ECHOCHAR I 'IGNORE ASKUSERTTBL))
 
 (ECHOCHAR (CHARCODE CR)
        'SIMULATE CHATSERVERTTBL)
@@ -713,25 +715,29 @@
 (DECLARE%: EVAL@COMPILE 
 
 [PROGN (PUTPROPS \SYNCODE
 DMACRO
 [OPENLAMBDA (TABLE CHAR)
-                                   (CHECK (type?
 CHARTABLE TABLE))
+                                                (CHECK (type?
 CHARTABLE TABLE))
                                                              (* ; 
-
                                                         "0 is either NONE.TC, REAL.CCE, or OTHER.RC")

-                                   (COND
-                                      ((IGREATERP CHAR \MAXTHINCHAR)
-                                       (OR (AND (fetch
 (CHARTABLE NSCHARHASH) of
 TABLE)
-                                                (GETHASH CHAR (fetch
 (CHARTABLE NSCHARHASH)
-                                                                 of
 TABLE)))
-                                           0))
-                                      (T (\GETBASEBYTE TABLE CHAR])
+
                                                       "0 is either NONE.TC, REAL.CCE, or OTHER.RC")

+                                                (COND
+                                                   ((IGREATERP CHAR \MAXTHINCHAR)
+                                                    (OR (AND (fetch
 (CHARTABLE NSCHARHASH)
+                                                                of
 TABLE)
+                                                             (GETHASH CHAR (fetch
 (CHARTABLE
+                                                                                       NSCHARHASH)
+                                                                              of
 TABLE)))
+                                                        0))
+                                                   (T (\GETBASEBYTE TABLE CHAR])
        (PUTPROPS \SYNCODE
 MACRO
 [OPENLAMBDA (TABLE CHAR)
-                                  (CHECK (type?
 CHARTABLE TABLE))
-                                  (COND
-                                     ((IGREATERP CHAR \MAXTHINCHAR)
-                                      (OR (AND (fetch
 (CHARTABLE NSCHARHASH) of
 TABLE)
-                                               (GETHASH CHAR (fetch
 (CHARTABLE NSCHARHASH)
-                                                                of
 TABLE)))
-                                          0))
-                                     (T (\GETBASEBYTE TABLE CHAR])]
+                                               (CHECK (type?
 CHARTABLE TABLE))
+                                               (COND
+                                                  ((IGREATERP CHAR \MAXTHINCHAR)
+                                                   (OR (AND (fetch
 (CHARTABLE NSCHARHASH)
+                                                               of
 TABLE)
+                                                            (GETHASH CHAR (fetch
 (CHARTABLE
+                                                                                      NSCHARHASH)
+                                                                             of
 TABLE)))
+                                                       0))
+                                                  (T (\GETBASEBYTE TABLE CHAR])]
 )
 (DECLARE%: DONTEVAL@LOAD DOCOPY 
 
@@ -767,9 +773,10 @@
 (READVISE MENU CHAT RINGBELLS)
 )
 
-(DEFCOMMAND "QUIT" NIL (RETFROM 'CHATSERVEROPENFN))
+(DEFCOMMAND "QUIT"
 ()
+   (RETFROM 'CHATSERVEROPENFN))
 
-(DEFCOMMAND "SAY" (&REST LINE) 
+(DEFCOMMAND "SAY"
 (&REST LINE)
    [MAPC \PROCESSES (FUNCTION (LAMBDA (PROC)
                                 (CL:WHEN (STRPOS "CHAT.SERVER" (PROCESS.NAME PROC))
                                     (MAPRINT LINE (IF
 (EQ PROC (THIS.PROCESS))
@@ -788,13 +795,53 @@
 
 (ADDTOVAR NLAML
 )
 
+(ADDTOVAR LAMA
 \REMOTE.BIN CHATSERVEROPENFN)
+)
+(PRETTYCOMPRINT CHATSERVERCOMS)
+
+(RPAQQ CHATSERVERCOMS

+       [(FNS CHATSERVER CHATSERVERWHENCLOSEDFN CHATSERVEROPENFN DOBE REQUIRED.LOGIN SERVER-EXEC 
+             SWEEP.OFD \CLEARSYSBUF PROMPTFORWORD \CREATELINEBUFFER \PROMPTFORWORDBIN \REMOTE.BIN 
+             \REMOTE.EXEC.OUTCHARFN CHATSERVER.FONT)
+        (DECLARE%: DONTEVAL@LOAD DOCOPY (VARS (DISPLAYTERMFLG 'DM))
+               (INITVARS (CHATSERVER.PROFILE)
+                      (\SIMPLEIMAGEOPS))
+               (P (SETQ CHATSERVERTTBL (COPYTERMTABLE 'ORIG))
+                  (for I from 1 to 8 do (ECHOCHAR I 'IGNORE CHATSERVERTTBL)
+                       (ECHOCHAR I 'IGNORE ASKUSERTTBL))
+                  (ECHOCHAR (CHARCODE CR)
+                         'SIMULATE CHATSERVERTTBL)
+                  (ECHOCHAR (CHARCODE CR)
+                         'SIMULATE ASKUSERTTBL)
+                  (ECHOCHAR 0 'SIMULATE ASKUSERTTBL)
+                  (ECHOCHAR 0 'SIMULATE CHATSERVERTTBL)))
+        (ADDVARS (\SWEPT.OFDS))
+        (DECLARE%: EVAL@COMPILE DONTCOPY (P (CHECKIMPORTS '(LLCHAR ATERM IMAGEIO FILEIO ATBL AOFD)
+                                                   T)))
+        [COMS (FNS SIMPLECHATSERVER)
+              (INITVARS (CHATSERVERWINDOW)
+                     (CHATSERVERWINDOWREGION '(11 228 392 190]
+        (MACROS \SYNCODE)
+        (DECLARE%: DONTEVAL@LOAD DOCOPY (FILES CL-TTYEDIT SIMPLECHAT)
+               (ADVISE MENU CHAT RINGBELLS))
+        (COMMANDS "QUIT" "SAY")
+        (DECLARE%: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS (ADDVARS (NLAMA)
+                                                                             (NLAML)
+                                                                             (LAMA CHATSERVEROPENFN])
+(DECLARE%: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS 
+
+(ADDTOVAR NLAMA
 )
+
+(ADDTOVAR NLAML
 )
+
 (ADDTOVAR LAMA
 CHATSERVEROPENFN)
 )
+(PUTPROPS CHATSERVER COPYRIGHT ("Xerox Corporation" 1984 1985 1986 1987 1988))
 (DECLARE%: DONTCOPY
-  (FILEMAP (NIL (2029 38278 (CHATSERVER 2039 . 3768) (CHATSERVERWHENCLOSEDFN 3770 . 4117) (
-CHATSERVEROPENFN 4119 . 8246) (DOBE 8248 . 8294) (REQUIRED.LOGIN 8296 . 11033) (SERVER-EXEC 11035 . 
-11208) (SWEEP.OFD 11210 . 11746) (\CLEARSYSBUF 11748 . 11997) (PROMPTFORWORD 11999 . 26344) (
-\CREATELINEBUFFER 26346 . 28477) (\PROMPTFORWORDBIN 28479 . 31415) (\REMOTE.BIN 31417 . 33659) (
-\REMOTE.EXEC.OUTCHARFN 33661 . 37883) (CHATSERVER.FONT 37885 . 38276)) (38905 41247 (SIMPLECHATSERVER 
-38915 . 41245)))))
+  (FILEMAP (NIL (2216 38509 (CHATSERVER 2226 . 3955) (CHATSERVERWHENCLOSEDFN 3957 . 4304) (
+CHATSERVEROPENFN 4306 . 8433) (DOBE 8435 . 8481) (REQUIRED.LOGIN 8483 . 11220) (SERVER-EXEC 11222 . 
+11395) (SWEEP.OFD 11397 . 11933) (\CLEARSYSBUF 11935 . 12184) (PROMPTFORWORD 12186 . 26531) (
+\CREATELINEBUFFER 26533 . 28708) (\PROMPTFORWORDBIN 28710 . 31646) (\REMOTE.BIN 31648 . 33890) (
+\REMOTE.EXEC.OUTCHARFN 33892 . 38114) (CHATSERVER.FONT 38116 . 38507)) (39151 41493 (SIMPLECHATSERVER 
+39161 . 41491)))))
 STOP

lispusers/COMMWINDOW

@@ -1,88 +1,95 @@
-(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
+(DEFINE-FILE-INFO §PACKAGE "INTERLISP" §READTABLE "INTERLISP" §BASE 10)
+
(FILECREATED " 2-Apr-87 17:06:05" {ERIS}<LISPUSERS>LYRIC>COMMWINDOW.;3
 49786  
 
-
(FILECREATED "18-Feb-2026 16:21:29" {WMEDLEY}<lispusers>COMMWINDOW.;2
 48680  
+      changes to%:  (VARS REMOTE-CURSOR COMMWINDOWCOMS)
+                    (COURIERPROGRAMS COMMWINDOW)
+                    (FNS CLOSE-FRAME START-GET-BITS SEND-BITS FRAME-EVENT MAKE-FRAME)
+                    (FUNCTIONS \PILOTBITBLT)
 
-      :EDIT-BY rmk
+      previous date%: " 2-Apr-87 16:54:24" {ERIS}<LISPUSERS>LYRIC>COMMWINDOW.;2)
 
-      :PREVIOUS-DATE " 2-Apr-87 17:06:05" {WMEDLEY}<lispusers>COMMWINDOW.;1)
 
+(* "
+Copyright (c) 1986, 1900, 1987 by Xerox Corporation.  All rights reserved.
+")
 
 (PRETTYCOMPRINT COMMWINDOWCOMS)
 
-(RPAQQ COMMWINDOWCOMS

-       (
+(RPAQQ COMMWINDOWCOMS
 (
 
 (* ;;; "Viewer end")

 
-        (FNS CLOSE-FRAME GET-BITS START-GET-BITS)
-        (FILES COURIERSERVE)
-        
+                       (FNS CLOSE-FRAME GET-BITS START-GET-BITS)
+                       (FILES COURIERSERVE)
+                       
 
 (* ;;; "Sender end")

 
-        (FNS SEND-BITS SEND-TILE LISTEN-TO-VIEWER MAPTILES SHUT-DOWN-VIEWER CHANGE-SENDER-UPDATE-MODE
-             )
-        (FUNCTIONS INCR \PILOTBITBLT)
-        
-        (* ;; "Controling update schemes")

+                       (FNS SEND-BITS SEND-TILE LISTEN-TO-VIEWER MAPTILES SHUT-DOWN-VIEWER 
+                            CHANGE-SENDER-UPDATE-MODE)
+                       (FUNCTIONS INCR \PILOTBITBLT)
+                       
+          
+          (* ;; "Controling update schemes")

 
-        (INITVARS (COMM.DEFAULT.TRANSMIT.TYPE 'SQUARE)
-               (COMM.SEND.UNCHANGED.TILES T)
-               (COMM.UPDATE.MOUSE.POSITION 'Sender))
-        (GLOBALVARS COMM.DEFAULT.TRANSMIT.TYPE COMM.UPDATE.MOUSE.POSITION COMM.SEND.UNCHANGED.TILES)
-        
+                       (INITVARS (COMM.DEFAULT.TRANSMIT.TYPE 'SQUARE)
+                              (COMM.SEND.UNCHANGED.TILES T)
+                              (COMM.UPDATE.MOUSE.POSITION 'Sender))
+                       (GLOBALVARS COMM.DEFAULT.TRANSMIT.TYPE COMM.UPDATE.MOUSE.POSITION 
+                              COMM.SEND.UNCHANGED.TILES)
+                       
 
 (* ;;; "Pruning out unchanged screen tiles")

 
-        (FNS PACKET-EQUAL GET-CACHED-PACKET PUT-CACHED-PACKET)
-        
+                       (FNS PACKET-EQUAL GET-CACHED-PACKET PUT-CACHED-PACKET)
+                       
 
 (* ;;; "Low level packet exchange code")

 
-        (CONSTANTS COMM.BAND.PACKET.TYPE COMM.CURSOR.PACKET.TYPE COMM.CURSOR.CLOSE.PACKET.TYPE 
-               COMM.SHUT.DOWN.PACKET.TYPE)
-        (VARIABLES MAX-PACKET-BITS)
-        (RECORDS COMM.XFER.PACKET)
-        
+                       (CONSTANTS COMM.BAND.PACKET.TYPE COMM.CURSOR.PACKET.TYPE 
+                              COMM.CURSOR.CLOSE.PACKET.TYPE COMM.SHUT.DOWN.PACKET.TYPE)
+                       (VARIABLES MAX-PACKET-BITS)
+                       (RECORDS COMM.XFER.PACKET)
+                       
 
 (* ;;; "Packing and unpacking bitmaps into etherpackets")

 
-        (FNS BMTOPACKET PACKETTOBM)
-        
+                       (FNS BMTOPACKET PACKETTOBM)
+                       
 
 (* ;;; "Displaying the viewing machine's cursor")

 
-        (VARS REMOTE-CURSOR)
-        (INITVARS (CURSORICON NIL))
-        
+                       (VARS REMOTE-CURSOR)
+                       (INITVARS (CURSORICON NIL))
+                       
 
 (* ;;; "Manipulating the frame that outlines the region being viewed")

 
-        (INITVARS (*FRAME-SHADE* GRAYSHADE))
-        (FNS FRAME-EVENT MAKE-FRAME MOVE-FRAME SHAPE-FRAME SET-FRAME-TITLE)
-        
+                       (INITVARS (*FRAME-SHADE* GRAYSHADE))
+                       (FNS FRAME-EVENT MAKE-FRAME MOVE-FRAME SHAPE-FRAME SET-FRAME-TITLE)
+                       
 
 (* ;;; "Changing the system parameters")

 
-        (FNS MAKE-MENUS-WINDOW MODE-MENU)
-        (VARS COMM-MODES)
-        
+                       (FNS MAKE-MENUS-WINDOW MODE-MENU)
+                       (VARS COMM-MODES)
+                       
 
 (* ;;; "Initialization")

 
-        (P (COURIER.START.SERVER))
-        
+                       (P (COURIER.START.SERVER))
+                       
 
 (* ;;; "Unused stuff, as far as I can tell")

 
-        (FNS FASTBITBLT)
-        
+                       (FNS FASTBITBLT)
+                       
 
 (* ;;; "System file dependencies")

 
-        (DECLARE%: DONTCOPY DOEVAL@COMPILE (FILES (LOADCOMP)
-                                                  LLDISPLAY LLETHER LLNS))
-        (COURIERPROGRAMS COMMWINDOW)))
+                       (DECLARE%: DONTCOPY DOEVAL@COMPILE (FILES (LOADCOMP)
+                                                                 LLDISPLAY LLETHER LLNS))
+                       (COURIERPROGRAMS COMMWINDOW)))
 
 
 
@@ -229,7 +236,6 @@
          (LIST 'RETURN (LIST (NSOCKETNUMBER NS)
                              (USERNAME])
 )
-
 (FILESLOAD COURIERSERVE)
 
 
@@ -440,18 +446,19 @@
     (SETQ COMM.DEFAULT.TRANSMIT.TYPE NEW-MODE)))
 )
 
-(DEFMACRO INCR
 (VAR START HEIGHT REPEATS UNTIL &REST FORMS)
+(DEFMACRO INCR
 (VAR START HEIGHT REPEATS UNTIL &REST FORMS)
    `(CL:DO ((REPEAT-COUNT 0 (+ REPEAT-COUNT 1)))
            ((>= REPEAT-COUNT ,REPEATS))
-        (CL:DO [(,VAR (+ ,START (CL:* REPEAT-COUNT ,HEIGHT))
-                      (+ ,VAR (CL:* ,REPEATS ,HEIGHT]
-               (,UNTIL)
-            ,@FORMS)))
+           (CL:DO [(,VAR (+ ,START (CL:* REPEAT-COUNT ,HEIGHT))
+                         (+ ,VAR (CL:* ,REPEATS ,HEIGHT]
+                  (,UNTIL)
+                  ,@FORMS)))
+
+
+(DEFMACRO \PILOTBITBLT
 (XCL-USER::TABLE &OPTIONAL (XCL-USER::N 0)) (CL:ASSERT (EQL XCL-USER::N 0))
+                                                                   `((OPCODES PILOTBITBLT)
+                                                                     ,XCL-USER::TABLE 0))
 
-(DEFMACRO \PILOTBITBLT
 (XCL-USER::TABLE &OPTIONAL (XCL-USER::N 0))
-   (CL:ASSERT (EQL XCL-USER::N 0))
-   `((OPCODES PILOTBITBLT)
-     ,XCL-USER::TABLE 0))
 
 
 
@@ -518,12 +525,12 @@
 
 (RPAQQ COMM.SHUT.DOWN.PACKET.TYPE
 4246)
 
-
 (CONSTANTS COMM.BAND.PACKET.TYPE COMM.CURSOR.PACKET.TYPE COMM.CURSOR.CLOSE.PACKET.TYPE 
        COMM.SHUT.DOWN.PACKET.TYPE)
 )
 
-(CL:DEFCONSTANT MAX-PACKET-BITS
 (CL:* 400 8))
+(CL:DEFCONSTANT MAX-PACKET-BITS
 (CL:* 400 8) )
+
 (DECLARE%: EVAL@COMPILE
 
 (ACCESSFNS COMM.XFER.PACKET
 ((COMMPACKET (fetch
 (XIP XIPCONTENTS) of
 DATUM)))
@@ -800,7 +807,6 @@
 
 (* ;;; "Initialization")

 
-
 (COURIER.START.SERVER)
 
 
@@ -856,7 +862,6 @@
 (* ;;; "System file dependencies")

 
 (DECLARE%: DONTCOPY DOEVAL@COMPILE 
-
 (FILESLOAD (LOADCOMP)
        LLDISPLAY LLETHER LLNS)
 )
@@ -880,14 +885,14 @@
     ERRORS

       ((ERROR 1 (STRING))
        (USE.COURIER 2 NIL)))
+(PUTPROPS COMMWINDOW COPYRIGHT ("Xerox Corporation" 1986 1900 1987))
 (DECLARE%: DONTCOPY
-  (FILEMAP (NIL (2306 12237 (CLOSE-FRAME 2316 . 2467) (GET-BITS 2469 . 10758) (START-GET-BITS 10760 . 
-12235)) (12293 25340 (SEND-BITS 12303 . 15124) (SEND-TILE 15126 . 18249) (LISTEN-TO-VIEWER 18251 . 
-19554) (MAPTILES 19556 . 24279) (SHUT-DOWN-VIEWER 24281 . 25150) (CHANGE-SENDER-UPDATE-MODE 25152 . 
-25338)) (25342 25656 (INCR 25342 . 25656)) (25658 25816 (\PILOTBITBLT 25658 . 25816)) (26181 28052 (
-PACKET-EQUAL 26191 . 27594) (GET-CACHED-PACKET 27596 . 27911) (PUT-CACHED-PACKET 27913 . 28050)) (
-29490 33213 (BMTOPACKET 29500 . 31461) (PACKETTOBM 31463 . 33211)) (33517 37826 (FRAME-EVENT 33527 . 
-34185) (MAKE-FRAME 34187 . 35969) (MOVE-FRAME 35971 . 36241) (SHAPE-FRAME 36243 . 37633) (
-SET-FRAME-TITLE 37635 . 37824)) (37876 44753 (MAKE-MENUS-WINDOW 37886 . 40245) (MODE-MENU 40247 . 
-44751)) (44930 47917 (FASTBITBLT 44940 . 47915)))))
+  (FILEMAP (NIL (3203 13134 (CLOSE-FRAME 3213 . 3364) (GET-BITS 3366 . 11655) (START-GET-BITS 11657 . 
+13132)) (13189 26236 (SEND-BITS 13199 . 16020) (SEND-TILE 16022 . 19145) (LISTEN-TO-VIEWER 19147 . 
+20450) (MAPTILES 20452 . 25175) (SHUT-DOWN-VIEWER 25177 . 26046) (CHANGE-SENDER-UPDATE-MODE 26048 . 
+26234)) (27219 29090 (PACKET-EQUAL 27229 . 28632) (GET-CACHED-PACKET 28634 . 28949) (PUT-CACHED-PACKET
+ 28951 . 29088)) (30529 34252 (BMTOPACKET 30539 . 32500) (PACKETTOBM 32502 . 34250)) (34556 38865 (
+FRAME-EVENT 34566 . 35224) (MAKE-FRAME 35226 . 37008) (MOVE-FRAME 37010 . 37280) (SHAPE-FRAME 37282 . 
+38672) (SET-FRAME-TITLE 38674 . 38863)) (38915 45792 (MAKE-MENUS-WINDOW 38925 . 41284) (MODE-MENU 
+41286 . 45790)) (45968 48955 (FASTBITBLT 45978 . 48953)))))
 STOP

lispusers/COMPAREDIRECTORIES

@@ -1,12 +1,12 @@
 (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
 
-
(FILECREATED "10-Feb-2026 21:28:55" {WMEDLEY}<lispusers>COMPAREDIRECTORIES.;286
 138607 
+
(FILECREATED " 8-Nov-2025 13:07:39" {WMEDLEY}<lispusers>COMPAREDIRECTORIES.;285
 138536 
 
       :EDIT-BY rmk
 
-      :CHANGES-TO (FNS CD-MENUFN)
+      :CHANGES-TO (FNS CD-MENUFN CDBROWSER-COPY)
 
-      :PREVIOUS-DATE " 8-Nov-2025 13:07:39" {WMEDLEY}<lispusers>COMPAREDIRECTORIES.;285)
+      :PREVIOUS-DATE "28-Oct-2025 14:52:05" {WMEDLEY}<lispusers>COMPAREDIRECTORIES.;280)
 
 
 (PRETTYCOMPRINT COMPAREDIRECTORIESCOMS)
@@ -1983,8 +1983,6 @@
 (CD-MENUFN

   [LAMBDA (TBITEM MENUITEM CDBROWSER KEY)
 
-    (* ;; "Edited 10-Feb-2026 21:28 by rmk")

-
     (* ;; "Edited  8-Nov-2025 13:06 by rmk")

 
     (* ;; "Edited 28-Oct-2025 17:35 by rmk")

@@ -2061,11 +2059,11 @@
                             ELSE
 (FLASHWINDOW T)
                                  (PRIN3 "No file to print" T)))
               ((See See% both) 
-                   (IF
 (AND FILE1 (PDFFILEP FILE1))
+                   (IF
 (PDFFILEP FILE1)
                        then
 (SEE-PDF FILE1)
-                            (CL:WHEN (AND FILE2 (PDFFILEP FILE2))
+                            (CL:WHEN (PDFFILEP FILE2)
                                    (SEE-PDF FILE2))
-                     elseif
 (AND FILE2 (PDFFILEP FILE2))
+                     elseif
 (PDFFILEP FILE2)
                        then
 (SEE-PDF FILE2)
                      else
 (EXAMINEFILES FILE1 FILE2 LABEL1 LABEL2
                                  (RELCREATEREGION (ITIMES 2 (CL:IF (LISPSOURCEFILEP FILE1)
@@ -2323,25 +2321,25 @@
 
 (MOVD? 'NILL 'TEDIT.FILEDATE)
 (DECLARE%: DONTCOPY
-  (FILEMAP (NIL (2653 23632 (COMPAREDIRECTORIES 2663 . 7998) (COMPAREDIRECTORIES.INFOS 8000 . 11229) (
-COMPAREDIRECTORIES.CANDIDATES 11231 . 14616) (CDENTRIES.SELECT 14618 . 19520) (
-COMPAREDIRECTORIES.INFOS.TYPE 19522 . 20866) (MATCHNAME 20868 . 21548) (CD.INSURECDVALUE 21550 . 23164
-) (CD.UPDATEWIDTHS 23166 . 23630)) (23633 34338 (CDFILES 23643 . 29740) (CDFILES.MATCH 29742 . 31367) 
-(CDFILES.PATS 31369 . 34336)) (34339 52357 (CDPRINT 34349 . 36866) (CDPRINT.HEADER 36868 . 37765) (
-CDPRINT.LINE 37767 . 41196) (CDPRINT.MAXWIDTHS 41198 . 45313) (CDPRINT.COLHEADERS 45315 . 46600) (
-CDPRINT.COLUMNS 46602 . 51722) (CDTEDIT 51724 . 52355)) (52358 61479 (CDMAP 52368 . 53800) (CDENTRY 
-53802 . 54111) (CDSUBSET 54113 . 55552) (CDMERGE 55554 . 59538) (CDMERGE.COMMON 59540 . 60855) (
-CD.SORT 60857 . 61477)) (61480 69018 (BINCOMP 61490 . 65779) (EOLTYPE 65781 . 68343) (EOLTYPE.SHOW 
-68345 . 69016)) (69546 82073 (FIND-UNCOMPILED-FILES 69556 . 73199) (FIND-UNSOURCED-FILES 73201 . 75585
-) (FIND-SOURCE-FILES 75587 . 77325) (FIND-COMPILED-FILES 77327 . 79204) (FIND-UNLOADED-FILES 79206 . 
-80059) (FIND-LOADED-FILES 80061 . 80489) (FIND-MULTICOMPILED-FILES 80491 . 82071)) (82074 90505 (
-CREATED-AS 82084 . 86881) (SOURCE-FOR-COMPILED-P 86883 . 89810) (COMPILE-SOURCE-DATE-DIFF 89812 . 
-90503)) (90506 101269 (FIX-DIRECTORY-DATES 90516 . 93966) (FIX-EQUIV-DATES 93968 . 95493) (
-COPY-COMPARED-FILES 95495 . 97316) (COPY-MISSING-FILES 97318 . 99475) (COMPILED-ON-SAME-SOURCE 99477
- . 101267)) (101463 109341 (CDBROWSER 101473 . 105440) (CDBROWSER.STRINGS 105442 . 109339)) (109503 
-111239 (CD.TABLEITEM 109513 . 109733) (CD.TABLEITEM.PRINTFN 109735 . 109934) (CD.TABLEITEM.COPYFN 
-109936 . 110994) (CDTABLEBROWSER.HEADING.REPAINTFN 110996 . 111237)) (111240 138091 (
-CDTABLEBROWSER.WHENSELECTEDFN 111250 . 111718) (CD.COMMANDSELECTEDFN 111720 . 117893) (CD-MENUFN 
-117895 . 124372) (CD-COMPARE-FILES 124374 . 127901) (CDBROWSER-COPY 127903 . 132965) (
-CDBROWSER-DELETE-FILE 132967 . 137570) (CD-SWAPDIRS 137572 . 138089)))))
+  (FILEMAP (NIL (2668 23647 (COMPAREDIRECTORIES 2678 . 8013) (COMPAREDIRECTORIES.INFOS 8015 . 11244) (
+COMPAREDIRECTORIES.CANDIDATES 11246 . 14631) (CDENTRIES.SELECT 14633 . 19535) (
+COMPAREDIRECTORIES.INFOS.TYPE 19537 . 20881) (MATCHNAME 20883 . 21563) (CD.INSURECDVALUE 21565 . 23179
+) (CD.UPDATEWIDTHS 23181 . 23645)) (23648 34353 (CDFILES 23658 . 29755) (CDFILES.MATCH 29757 . 31382) 
+(CDFILES.PATS 31384 . 34351)) (34354 52372 (CDPRINT 34364 . 36881) (CDPRINT.HEADER 36883 . 37780) (
+CDPRINT.LINE 37782 . 41211) (CDPRINT.MAXWIDTHS 41213 . 45328) (CDPRINT.COLHEADERS 45330 . 46615) (
+CDPRINT.COLUMNS 46617 . 51737) (CDTEDIT 51739 . 52370)) (52373 61494 (CDMAP 52383 . 53815) (CDENTRY 
+53817 . 54126) (CDSUBSET 54128 . 55567) (CDMERGE 55569 . 59553) (CDMERGE.COMMON 59555 . 60870) (
+CD.SORT 60872 . 61492)) (61495 69033 (BINCOMP 61505 . 65794) (EOLTYPE 65796 . 68358) (EOLTYPE.SHOW 
+68360 . 69031)) (69561 82088 (FIND-UNCOMPILED-FILES 69571 . 73214) (FIND-UNSOURCED-FILES 73216 . 75600
+) (FIND-SOURCE-FILES 75602 . 77340) (FIND-COMPILED-FILES 77342 . 79219) (FIND-UNLOADED-FILES 79221 . 
+80074) (FIND-LOADED-FILES 80076 . 80504) (FIND-MULTICOMPILED-FILES 80506 . 82086)) (82089 90520 (
+CREATED-AS 82099 . 86896) (SOURCE-FOR-COMPILED-P 86898 . 89825) (COMPILE-SOURCE-DATE-DIFF 89827 . 
+90518)) (90521 101284 (FIX-DIRECTORY-DATES 90531 . 93981) (FIX-EQUIV-DATES 93983 . 95508) (
+COPY-COMPARED-FILES 95510 . 97331) (COPY-MISSING-FILES 97333 . 99490) (COMPILED-ON-SAME-SOURCE 99492
+ . 101282)) (101478 109356 (CDBROWSER 101488 . 105455) (CDBROWSER.STRINGS 105457 . 109354)) (109518 
+111254 (CD.TABLEITEM 109528 . 109748) (CD.TABLEITEM.PRINTFN 109750 . 109949) (CD.TABLEITEM.COPYFN 
+109951 . 111009) (CDTABLEBROWSER.HEADING.REPAINTFN 111011 . 111252)) (111255 138020 (
+CDTABLEBROWSER.WHENSELECTEDFN 111265 . 111733) (CD.COMMANDSELECTEDFN 111735 . 117908) (CD-MENUFN 
+117910 . 124301) (CD-COMPARE-FILES 124303 . 127830) (CDBROWSER-COPY 127832 . 132894) (
+CDBROWSER-DELETE-FILE 132896 . 137499) (CD-SWAPDIRS 137501 . 138018)))))
 STOP

lispusers/CROCK

@@ -1,43 +1,43 @@
-(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
+(DEFINE-FILE-INFO §READTABLE "INTERLISP" §PACKAGE "INTERLISP")
+
(FILECREATED " 2-Apr-87 00:37:46" {ERIS}<LISPUSERS>LYRIC>CROCK.;2
 17791  
 
-
(FILECREATED "18-Feb-2026 16:26:31" {WMEDLEY}<lispusers>CROCK.;2
 17189  
+      previous date%: "11-Jan-86 19:46:27" {PHYLUM}<LISPUSERS>LYRIC>CROCK.;1)
 
-      :EDIT-BY rmk
-
-      :PREVIOUS-DATE " 2-Apr-87 00:37:46" {WMEDLEY}<lispusers>CROCK.;1)
 
+(* "
+Copyright (c) 1984, 1985, 1986, 1987 by Xerox Corporation.  All rights reserved.
+")
 
 (PRETTYCOMPRINT CROCKCOMS)
 
-(RPAQQ CROCKCOMS

-       ((* CROCK -- By Kelly Roach *)
-        (FNS CROCK CROCK.BUTTONEVENTFN CROCK.CHANGE.STYLE CROCK.CLOSEFN CROCK.PROCESS CROCK.RESHAPEFN
-             CROCK.ALARM CROCK.RING.ALARM CROCK.INIT)
-        (INITVARS (CROCK.DEFAULT.STYLE '(HANDS T TIMES NIL RINGS NIL NUMBERS T))
-               (CROCK.STYLE.MENU)
-               (CROCK.ALARMS)
-               (CROCK.DATEFORMAT '(DATEFORMAT NO.SECONDS))
-               [CROCK.TUNE '((1000 . 1000)
-                             (800 . 1000)
-                             (600 . 1000)
-                             (500 . 1000)
-                             (400 . 1000)
-                             (NIL . 500)
-                             (440 . 1000)
-                             (484 . 1000)
-                             (540 . 1000)
-                             (600 . 1000)
-                             (2000 . 1000)
-                             (1600 . 1000)
-                             (1200 . 1000)
-                             (1000 . 1000)
-                             (800 . 1000)
-                             (NIL . 500)
-                             (880 . 1000)
-                             (968 . 1000)
-                             (1080 . 1000)
-                             (1188 . 1000]
-               (CROCKWINDOW))))
+(RPAQQ CROCKCOMS
 ((* CROCK -- By Kelly Roach *)
+                  (FNS CROCK CROCK.BUTTONEVENTFN CROCK.CHANGE.STYLE CROCK.CLOSEFN CROCK.PROCESS 
+                       CROCK.RESHAPEFN CROCK.ALARM CROCK.RING.ALARM CROCK.INIT)
+                  (INITVARS (CROCK.DEFAULT.STYLE '(HANDS T TIMES NIL RINGS NIL NUMBERS T))
+                         (CROCK.STYLE.MENU)
+                         (CROCK.ALARMS)
+                         (CROCK.DATEFORMAT '(DATEFORMAT NO.SECONDS))
+                         [CROCK.TUNE '((1000 . 1000)
+                                       (800 . 1000)
+                                       (600 . 1000)
+                                       (500 . 1000)
+                                       (400 . 1000)
+                                       (NIL . 500)
+                                       (440 . 1000)
+                                       (484 . 1000)
+                                       (540 . 1000)
+                                       (600 . 1000)
+                                       (2000 . 1000)
+                                       (1600 . 1000)
+                                       (1200 . 1000)
+                                       (1000 . 1000)
+                                       (800 . 1000)
+                                       (NIL . 500)
+                                       (880 . 1000)
+                                       (968 . 1000)
+                                       (1080 . 1000)
+                                       (1188 . 1000]
+                         (CROCKWINDOW))))
 
 
 
@@ -334,31 +334,31 @@
 
 (RPAQ? CROCK.DATEFORMAT
 '(DATEFORMAT NO.SECONDS))
 
-(RPAQ? CROCK.TUNE

-       '((1000 . 1000)
-         (800 . 1000)
-         (600 . 1000)
-         (500 . 1000)
-         (400 . 1000)
-         (NIL . 500)
-         (440 . 1000)
-         (484 . 1000)
-         (540 . 1000)
-         (600 . 1000)
-         (2000 . 1000)
-         (1600 . 1000)
-         (1200 . 1000)
-         (1000 . 1000)
-         (800 . 1000)
-         (NIL . 500)
-         (880 . 1000)
-         (968 . 1000)
-         (1080 . 1000)
-         (1188 . 1000)))
+(RPAQ? CROCK.TUNE
 '((1000 . 1000)
+                    (800 . 1000)
+                    (600 . 1000)
+                    (500 . 1000)
+                    (400 . 1000)
+                    (NIL . 500)
+                    (440 . 1000)
+                    (484 . 1000)
+                    (540 . 1000)
+                    (600 . 1000)
+                    (2000 . 1000)
+                    (1600 . 1000)
+                    (1200 . 1000)
+                    (1000 . 1000)
+                    (800 . 1000)
+                    (NIL . 500)
+                    (880 . 1000)
+                    (968 . 1000)
+                    (1080 . 1000)
+                    (1188 . 1000)))
 
 (RPAQ? CROCKWINDOW
 )
+(PUTPROPS CROCK COPYRIGHT ("Xerox Corporation" 1984 1985 1986 1987))
 (DECLARE%: DONTCOPY
-  (FILEMAP (NIL (1609 16483 (CROCK 1619 . 2189) (CROCK.BUTTONEVENTFN 2191 . 2480) (CROCK.CHANGE.STYLE 
-2482 . 5295) (CROCK.CLOSEFN 5297 . 5459) (CROCK.PROCESS 5461 . 13959) (CROCK.RESHAPEFN 13961 . 14120) 
-(CROCK.ALARM 14122 . 15350) (CROCK.RING.ALARM 15352 . 16093) (CROCK.INIT 16095 . 16481)))))
+  (FILEMAP (NIL (1940 16814 (CROCK 1950 . 2520) (CROCK.BUTTONEVENTFN 2522 . 2811) (CROCK.CHANGE.STYLE 
+2813 . 5626) (CROCK.CLOSEFN 5628 . 5790) (CROCK.PROCESS 5792 . 14290) (CROCK.RESHAPEFN 14292 . 14451) 
+(CROCK.ALARM 14453 . 15681) (CROCK.RING.ALARM 15683 . 16424) (CROCK.INIT 16426 . 16812)))))
 STOP

lispusers/DEFAULTICON

@@ -1,11 +1,14 @@
-(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
+(DEFINE-FILE-INFO §READTABLE "INTERLISP" §PACKAGE "INTERLISP")
+
(FILECREATED "13-Jan-87 01:23:25" {ERIS}<LISPUSERS>LISPCORE>DEFAULTICON.;1
 4586   
 
-
(FILECREATED "18-Feb-2026 16:26:48" {WMEDLEY}<lispusers>DEFAULTICON.;2
 4702   
+      changes to%:  (FNS \MAKEICONWINDOW)
 
-      :EDIT-BY rmk
+      previous date%: "19-Dec-85 01:24:06" {ERIS}<LISP>KOTO>LISPUSERS>DEFAULTICON.;1)
 
-      :PREVIOUS-DATE "13-Jan-87 01:23:25" {WMEDLEY}<lispusers>DEFAULTICON.;1)
 
+(* "
+Copyright (c) 1985, 1987 by Xerox Corporation.  All rights reserved.
+")
 
 (PRETTYCOMPRINT DEFAULTICONCOMS)
 
@@ -13,140 +16,137 @@
                         (UGLYVARS \DEFAULTICON)
                         (INITVARS (DEFAULTICON \DEFAULTICON))
                         (FNS \MAKEICONWINDOW)))
-
 (FILESLOAD ICONW)
-
-(READVARS-FROM-STRINGS '(\DEFAULTICON)
-       "(({(READBITMAP)(64 64
-%"@@@@@@@@@@@@@@@@%"
-%"@@@@@@@@@@@@@@@@%"
-%"@@@@@@@@@@@@@@@@%"
-%"@@@@@@@@@@@@@@@@%"
-%"@@@@@@@@@@@@@@@@%"
-%"@@AOOOOOOOOOOH@@%"
-%"@@N@@@@@@@@@@G@@%"
-%"@C@@@@@@@@@@@@L@%"
-%"@D@@@@@@@@@@@@B@%"
-%"@H@@@@@@@@@@@@A@%"
-%"A@@@@@@@@@@@@@@H%"
-%"B@@@@@@@@@@@CO@D%"
-%"B@@@@@@@@@@@BDHD%"
-%"D@@@@@@@@@@@ABDB%"
-%"D@@@@@@@@@@@AODB%"
-%"D@@@@@@@@@@@ABLB%"
-%"D@@@@@@@@@@@ABDA%"
-%"H@@@@@@@@@@@ABDA%"
-%"H@@@@@@@@@@@AOHA%"
-%"H@@@@@@@@@@@@@@A%"
-%"H@@@@@@@@@@@@@@A%"
-%"H@@@@@@@@@@@@@@A%"
-%"H@@@@@@@@@@@@@@A%"
-%"H@@@@@@@@@@@@@@A%"
-%"H@@@@@@@@@@@@@@A%"
-%"H@@@@@@@@@@@@@@A%"
-%"H@@@@@@@@@@@@@@A%"
-%"H@@@@@@@@@@@@@@A%"
-%"H@@@@@@@@@@@@@@A%"
-%"H@@@@@@@@@@@@@@A%"
-%"H@@@@@@@@@@@@@@A%"
-%"H@@@@@@@@@@@@@@A%"
-%"H@@@@@@@@@@@@@@A%"
-%"H@@@@@@@@@@@@@@A%"
-%"H@@@@@@@@@@@@@@A%"
-%"H@@@@@@@@@@@@@@A%"
-%"H@@@@@@@@@@@@@@A%"
-%"H@@@@@@@@@@@@@@A%"
-%"H@@@@@@@@@@@@@@A%"
-%"H@@@@@@@@@@@@@@A%"
-%"H@@@@@@@@@@@@@@A%"
-%"H@@@@@@@@@@@@@@A%"
-%"H@@@@@@@@@@@@@@A%"
-%"H@@@@@@@@@@@@@@A%"
-%"H@@@@@@@@@@@@@@A%"
-%"H@@@@@@@@@@@@@@A%"
-%"H@@@@@@@@@@@@@@A%"
-%"H@@@@@@@@@@@@@@A%"
-%"H@@@@@@@@@@@@@@A%"
-%"H@@@@@@@@@@@@@@A%"
-%"H@@@@@@@@@@@@@@A%"
-%"H@@@@@@@@@@@@@@A%"
-%"H@@@@@@@@@@@@@@A%"
-%"D@@@@@@@@@@@@@@B%"
-%"D@@@@@@@@@@@@@@B%"
-%"D@@@@@@@@@@@@@@B%"
-%"B@@@@@@@@@@@@@@D%"
-%"B@@@@@@@@@@@@@@D%"
-%"A@@@@@@@@@@@@@@H%"
-%"@H@@@@@@@@@@@@A@%"
-%"@D@@@@@@@@@@@@B@%"
-%"@C@@@@@@@@@@@@L@%"
-%"@@N@@@@@@@@@@G@@%"
-%"@@AOOOOOOOOOOH@@%")}  {(READBITMAP)(64 64
-%"@@@@@@@@@@@@@@@@%"
-%"@@@@@@@@@@@@@@@@%"
-%"@@@@@@@@@@@@@@@@%"
-%"@@@@@@@@@@@@@@@@%"
-%"@@@@@@@@@@@@@@@@%"
-%"@@AOOOOOOOOOOH@@%"
-%"@@OOOOOOOOOOOO@@%"
-%"@COOOOOOOOOOOOL@%"
-%"@GOOOOOOOOOOOON@%"
-%"@OOOOOOOOOOOOOO@%"
-%"AOOOOOOOOOOOOOOH%"
-%"COOOOOOOOOOOOOOL%"
-%"COOOOOOOOOOONDOL%"
-%"GOOOOOOOOOOOOBGN%"
-%"GOOOOOOOOOOOOOGN%"
-%"GOOOOOOOOOOOOBON%"
-%"GOOOOOOOOOOOOBGO%"
-%"OOOOOOOOOOOOOBGO%"
-%"OOOOOOOOOOOOOOOO%"
-%"OOOOOOOOOOOOOOOO%"
-%"OOOOOOOOOOOOOOOO%"
-%"OOOOOOOOOOOOOOOO%"
-%"OOOOOOOOOOOOOOOO%"
-%"OOOOOOOOOOOOOOOO%"
-%"OOOOOOOOOOOOOOOO%"
-%"OOOOOOOOOOOOOOOO%"
-%"OOOOOOOOOOOOOOOO%"
-%"OOOOOOOOOOOOOOOO%"
-%"OOOOOOOOOOOOOOOO%"
-%"OOOOOOOOOOOOOOOO%"
-%"OOOOOOOOOOOOOOOO%"
-%"OOOOOOOOOOOOOOOO%"
-%"OOOOOOOOOOOOOOOO%"
-%"OOOOOOOOOOOOOOOO%"
-%"OOOOOOOOOOOOOOOO%"
-%"OOOOOOOOOOOOOOOO%"
-%"OOOOOOOOOOOOOOOO%"
-%"OOOOOOOOOOOOOOOO%"
-%"OOOOOOOOOOOOOOOO%"
-%"OOOOOOOOOOOOOOOO%"
-%"OOOOOOOOOOOOOOOO%"
-%"OOOOOOOOOOOOOOOO%"
-%"OOOOOOOOOOOOOOOO%"
-%"OOOOOOOOOOOOOOOO%"
-%"OOOOOOOOOOOOOOOO%"
-%"OOOOOOOOOOOOOOOO%"
-%"OOOOOOOOOOOOOOOO%"
-%"OOOOOOOOOOOOOOOO%"
-%"OOOOOOOOOOOOOOOO%"
-%"OOOOOOOOOOOOOOOO%"
-%"OOOOOOOOOOOOOOOO%"
-%"OOOOOOOOOOOOOOOO%"
-%"OOOOOOOOOOOOOOOO%"
-%"GOOOOOOOOOOOOOON%"
-%"GOOOOOOOOOOOOOON%"
-%"GOOOOOOOOOOOOOON%"
-%"COOOOOOOOOOOOOOL%"
-%"COOOOOOOOOOOOOOL%"
-%"AOOOOOOOOOOOOOOH%"
-%"@OOOOOOOOOOOOOO@%"
-%"@GOOOOOOOOOOOON@%"
-%"@COOOOOOOOOOOOL@%"
-%"@@OOOOOOOOOOOO@@%"
-%"@@AOOOOOOOOOOH@@%")}  (5 6 52 46)))
-")
+(READVARS \DEFAULTICON)
+(({(READBITMAP)(64 64
+"@@@@@@@@@@@@@@@@"
+"@@@@@@@@@@@@@@@@"
+"@@@@@@@@@@@@@@@@"
+"@@@@@@@@@@@@@@@@"
+"@@@@@@@@@@@@@@@@"
+"@@AOOOOOOOOOOH@@"
+"@@N@@@@@@@@@@G@@"
+"@C@@@@@@@@@@@@L@"
+"@D@@@@@@@@@@@@B@"
+"@H@@@@@@@@@@@@A@"
+"A@@@@@@@@@@@@@@H"
+"B@@@@@@@@@@@CO@D"
+"B@@@@@@@@@@@BDHD"
+"D@@@@@@@@@@@ABDB"
+"D@@@@@@@@@@@AODB"
+"D@@@@@@@@@@@ABLB"
+"D@@@@@@@@@@@ABDA"
+"H@@@@@@@@@@@ABDA"
+"H@@@@@@@@@@@AOHA"
+"H@@@@@@@@@@@@@@A"
+"H@@@@@@@@@@@@@@A"
+"H@@@@@@@@@@@@@@A"
+"H@@@@@@@@@@@@@@A"
+"H@@@@@@@@@@@@@@A"
+"H@@@@@@@@@@@@@@A"
+"H@@@@@@@@@@@@@@A"
+"H@@@@@@@@@@@@@@A"
+"H@@@@@@@@@@@@@@A"
+"H@@@@@@@@@@@@@@A"
+"H@@@@@@@@@@@@@@A"
+"H@@@@@@@@@@@@@@A"
+"H@@@@@@@@@@@@@@A"
+"H@@@@@@@@@@@@@@A"
+"H@@@@@@@@@@@@@@A"
+"H@@@@@@@@@@@@@@A"
+"H@@@@@@@@@@@@@@A"
+"H@@@@@@@@@@@@@@A"
+"H@@@@@@@@@@@@@@A"
+"H@@@@@@@@@@@@@@A"
+"H@@@@@@@@@@@@@@A"
+"H@@@@@@@@@@@@@@A"
+"H@@@@@@@@@@@@@@A"
+"H@@@@@@@@@@@@@@A"
+"H@@@@@@@@@@@@@@A"
+"H@@@@@@@@@@@@@@A"
+"H@@@@@@@@@@@@@@A"
+"H@@@@@@@@@@@@@@A"
+"H@@@@@@@@@@@@@@A"
+"H@@@@@@@@@@@@@@A"
+"H@@@@@@@@@@@@@@A"
+"H@@@@@@@@@@@@@@A"
+"H@@@@@@@@@@@@@@A"
+"H@@@@@@@@@@@@@@A"
+"D@@@@@@@@@@@@@@B"
+"D@@@@@@@@@@@@@@B"
+"D@@@@@@@@@@@@@@B"
+"B@@@@@@@@@@@@@@D"
+"B@@@@@@@@@@@@@@D"
+"A@@@@@@@@@@@@@@H"
+"@H@@@@@@@@@@@@A@"
+"@D@@@@@@@@@@@@B@"
+"@C@@@@@@@@@@@@L@"
+"@@N@@@@@@@@@@G@@"
+"@@AOOOOOOOOOOH@@")}  {(READBITMAP)(64 64
+"@@@@@@@@@@@@@@@@"
+"@@@@@@@@@@@@@@@@"
+"@@@@@@@@@@@@@@@@"
+"@@@@@@@@@@@@@@@@"
+"@@@@@@@@@@@@@@@@"
+"@@AOOOOOOOOOOH@@"
+"@@OOOOOOOOOOOO@@"
+"@COOOOOOOOOOOOL@"
+"@GOOOOOOOOOOOON@"
+"@OOOOOOOOOOOOOO@"
+"AOOOOOOOOOOOOOOH"
+"COOOOOOOOOOOOOOL"
+"COOOOOOOOOOONDOL"
+"GOOOOOOOOOOOOBGN"
+"GOOOOOOOOOOOOOGN"
+"GOOOOOOOOOOOOBON"
+"GOOOOOOOOOOOOBGO"
+"OOOOOOOOOOOOOBGO"
+"OOOOOOOOOOOOOOOO"
+"OOOOOOOOOOOOOOOO"
+"OOOOOOOOOOOOOOOO"
+"OOOOOOOOOOOOOOOO"
+"OOOOOOOOOOOOOOOO"
+"OOOOOOOOOOOOOOOO"
+"OOOOOOOOOOOOOOOO"
+"OOOOOOOOOOOOOOOO"
+"OOOOOOOOOOOOOOOO"
+"OOOOOOOOOOOOOOOO"
+"OOOOOOOOOOOOOOOO"
+"OOOOOOOOOOOOOOOO"
+"OOOOOOOOOOOOOOOO"
+"OOOOOOOOOOOOOOOO"
+"OOOOOOOOOOOOOOOO"
+"OOOOOOOOOOOOOOOO"
+"OOOOOOOOOOOOOOOO"
+"OOOOOOOOOOOOOOOO"
+"OOOOOOOOOOOOOOOO"
+"OOOOOOOOOOOOOOOO"
+"OOOOOOOOOOOOOOOO"
+"OOOOOOOOOOOOOOOO"
+"OOOOOOOOOOOOOOOO"
+"OOOOOOOOOOOOOOOO"
+"OOOOOOOOOOOOOOOO"
+"OOOOOOOOOOOOOOOO"
+"OOOOOOOOOOOOOOOO"
+"OOOOOOOOOOOOOOOO"
+"OOOOOOOOOOOOOOOO"
+"OOOOOOOOOOOOOOOO"
+"OOOOOOOOOOOOOOOO"
+"OOOOOOOOOOOOOOOO"
+"OOOOOOOOOOOOOOOO"
+"OOOOOOOOOOOOOOOO"
+"OOOOOOOOOOOOOOOO"
+"GOOOOOOOOOOOOOON"
+"GOOOOOOOOOOOOOON"
+"GOOOOOOOOOOOOOON"
+"COOOOOOOOOOOOOOL"
+"COOOOOOOOOOOOOOL"
+"AOOOOOOOOOOOOOOH"
+"@OOOOOOOOOOOOOO@"
+"@GOOOOOOOOOOOON@"
+"@COOOOOOOOOOOOL@"
+"@@OOOOOOOOOOOO@@"
+"@@AOOOOOOOOOOH@@")}  (5 6 52 46)))
 
 (RPAQ? DEFAULTICON
 \DEFAULTICON)
 (DEFINEQ
@@ -175,6 +175,7 @@
                                             (WINDOWPROP icon 'HEIGHT]
          icon])
 )
+(PUTPROPS DEFAULTICON COPYRIGHT ("Xerox Corporation" 1985 1987))
 (DECLARE%: DONTCOPY
-  (FILEMAP (NIL (3351 4679 (\MAKEICONWINDOW 3361 . 4677)))))
+  (FILEMAP (NIL (3170 4498 (\MAKEICONWINDOW 3180 . 4496)))))
 STOP

lispusers/DEFAULTSUBITEMFN

@@ -1,17 +1,17 @@
-(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
+(DEFINE-FILE-INFO §READTABLE "INTERLISP" §PACKAGE "INTERLISP")
+
(FILECREATED " 4-Mar-87 15:59:01" {PHYLUM}<LISPUSERS>LYRIC>DEFAULTSUBITEMFN.;1
 1299   
 
-
(FILECREATED "18-Feb-2026 16:28:38" {WMEDLEY}<lispusers>DEFAULTSUBITEMFN.;2
 1229   
+      previous date%: "31-Jan-86 17:45:55" {PHYLUM}<LISP>KOTO>LISPUSERS>DEFAULTSUBITEMFN.;1)
 
-      :EDIT-BY rmk
-
-      :PREVIOUS-DATE " 4-Mar-87 15:59:01" {WMEDLEY}<lispusers>DEFAULTSUBITEMFN.;1)
 
+(* "
+Copyright (c) 1986, 1987 by Xerox Corporation.  All rights reserved.
+")
 
 (PRETTYCOMPRINT DEFAULTSUBITEMFNCOMS)
 
-(RPAQQ DEFAULTSUBITEMFNCOMS
 ((* * redefine the DEFAULTSUBITEMFN to add the EVAL keyword to the 
-                                subitem menu field)
-                             (FNS DEFAULTSUBITEMFN)))
+(RPAQQ DEFAULTSUBITEMFNCOMS
 ((* * redefine the DEFAULTSUBITEMFN to add the EVAL keyword to the subitem menu field) (FNS DEFAULTSUBITEMFN))
+)
 (* * redefine the DEFAULTSUBITEMFN to add the EVAL keyword to the subitem menu field)

 
 (DEFINEQ
@@ -20,6 +20,7 @@
 (LAMBDA (MENU ITEM) (* edited%: "31-Dec-85 16:41") (* rrb "17-Aug-84 17:24") (* default subitemfn for menus. Checks the fourth element of the item for an expression of the form (SUBITEMS a b c) or if the fourth element is (EVAL form) will return the value of form. MENU and ITEM will be available during the evaluation) (PROG (TEMP) (RETURN (if (AND (LISTP ITEM) (LISTP (SETQ TEMP (CDR ITEM))) (LISTP (SETQ TEMP (CDR TEMP))) (LISTP (SETQ TEMP (CDR TEMP)))) then (SELECTQ (CAR (SETQ TEMP (LISTP (CAR TEMP)))) (SUBITEMS (CDR TEMP)) (EVAL (EVAL (CADR TEMP))) NIL)))))
 )
 )
+(PUTPROPS DEFAULTSUBITEMFN COPYRIGHT ("Xerox Corporation" 1986 1987))
 (DECLARE%: DONTCOPY
   (FILEMAP (NIL (606 1206 (DEFAULTSUBITEMFN 616 . 1204)))))
 STOP

lispusers/HELPSYS

@@ -1,13 +1,12 @@
 (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
 
-
(FILECREATED "27-Jan-2026 13:21:10" {WMEDLEY}<lispusers>HELPSYS.;21
 88654  
+
(FILECREATED " 5-May-2025 22:04:32" {WMEDLEY}<lispusers>HELPSYS.;15
 87966  
 
       :EDIT-BY rmk
 
-      :CHANGES-TO (FNS DOCS.LOOKUP GENERIC.MAN.LOOKUP)
-                  (VARS HELPSYSCOMS)
+      :CHANGES-TO (FNS CLHS.INDEX)
 
-      :PREVIOUS-DATE " 5-May-2025 22:04:32" {WMEDLEY}<lispusers>HELPSYS.;15)
+      :PREVIOUS-DATE " 4-May-2025 13:30:47" {WMEDLEY}<lispusers>HELPSYS.;12)
 
 
 (PRETTYCOMPRINT HELPSYSCOMS)
@@ -18,7 +17,7 @@
         (DECLARE%: EVAL@COMPILE DONTCOPY (FILES (LOADCOMP)
                                                 DINFO HASH))
         [COMS (COMMANDS "man")
-              (FNS HELPSYS IRM.LOOKUP GENERIC.MAN.LOOKUP IRM.SMART.LOOKUP IRM.RESET DOCS.LOOKUP)
+              (FNS HELPSYS IRM.LOOKUP GENERIC.MAN.LOOKUP IRM.SMART.LOOKUP IRM.RESET)
               (INITVARS (IRM.HOST&DIR)
                      (IRM.HASHFILE.NAME))
               (GLOBALVARS IRM.HOST&DIR IRM.HASHFILE.NAME)
@@ -162,8 +161,7 @@
                        NIL])
 
 (GENERIC.MAN.LOOKUP

-  [LAMBDA (KEYWORD GRAPH TYPE)
                               (* ; "Edited 27-Jan-2026 11:42 by rmk")


-                                                           (* ; "Edited 27-Aug-2022 12:15 by larry")


+  [LAMBDA (KEYWORD GRAPH TYPE)
                             (* ; "Edited 27-Aug-2022 12:15 by larry")


                                                            (* ; "Edited 24-Aug-2022 22:35 by larry")


                                                              (* ; "Edited 19-Aug-2022 19:35 by lmm")

                                                              (* drc%: " 6-Jan-86 14:50")

@@ -173,8 +171,7 @@
 
              (APPEND (IRM.LOOKUP
 KEYWORD NIL GRAPH T)
                     (CLHS.LOOKUP
 KEYWORD)
-                    (REPO.LOOKUP
 KEYWORD)
-                    (DOCS.LOOKUP
 KEYWORD))
+                    (REPO.LOOKUP
 KEYWORD))
       elseif
 (NOT (LITATOM KEYWORD))
         then
 
              (* ;; " not a string -- list or number. turn it into a string, removing parens")

@@ -195,8 +192,7 @@
                     (AND (CL:FIND-SYMBOL KEYWORD "IL")
                          (IRM.LOOKUP
 KEYWORD TYPE GRAPH T)))
       else
 (APPEND (IRM.LOOKUP
 KEYWORD TYPE GRAPH T)
-                  (REPO.LOOKUP
 KEYWORD)
-                  (DOCS.LOOKUP
 KEYWORD])
+                  (REPO.LOOKUP
 KEYWORD])
 
 (IRM.SMART.LOOKUP

   [LAMBDA (KEYWORD GRAPH)                                    (* drc%: " 6-Jan-86 14:50")

@@ -212,15 +208,6 @@
     (CLOSEHASHFILE \IRM.HASHFILE)
     (SETQ \IRM.HASHFILE)
     (SETQ \IRM.KEYWORDS])
-
-(DOCS.LOOKUP

-  [LAMBDA (KEYWORD)
                                          (* ; "Edited 27-Jan-2026 13:20 by rmk")

-    (LET ((DIR (MEDLEYDIR (CONCAT "library/" (L-CASE KEYWORD)
-                                 "/docs/")
-                      NIL NIL T)))
-         (CL:WHEN DIR
-             (ShellOpen (CONCAT "file://" (SLASHIT (TRUEFILENAME DIR)
-                                                 NIL T))))])
 )
 
 (RPAQ? IRM.HOST&DIR
 )
@@ -1716,14 +1703,14 @@
 
 (PUTPROPS HELPSYS
 FILETYPE
 :FAKE-COMPILE-FILE)
 (DECLARE%: DONTCOPY
-  (FILEMAP (NIL (4640 10992 (HELPSYS 4650 . 6491) (IRM.LOOKUP 6493 . 8131) (GENERIC.MAN.LOOKUP 8133 . 
-10001) (IRM.SMART.LOOKUP 10003 . 10159) (IRM.RESET 10161 . 10570) (DOCS.LOOKUP 10572 . 10990)) (11249 
-18568 (CLHS.INDEX 11259 . 14223) (CLHS.LOOKUP 14225 . 16231) (CLHS.OPENER 16233 . 17556) (REPO.LOOKUP 
-17558 . 18566)) (71663 73181 (IRM.GET.DINFOGRAPH 71673 . 72548) (IRM.DISPLAY.REF 72550 . 73179)) (
-73183 73545 (IRM.LOAD-GRAPH 73183 . 73545)) (73870 79374 (IRM.DISPLAY.CREF 73880 . 75594) (
-IRM.CREF.BOX 75596 . 76423) (IRM.PUT.CREF 76425 . 76650) (IRM.GET.CREF 76652 . 77023) (
-IRM.CREF.BUTTONEVENTFN 77025 . 79372)) (79929 88235 (\IRM.GET.REF 79939 . 81270) (\IRM.SMART.REF 81272
- . 83199) (\IRM.CHOOSE.REF 83201 . 84452) (\IRM.WILD.REF 84454 . 85709) (\IRM.WILDCARD 85711 . 86077) 
-(\IRM.WILD.MATCH 86079 . 87309) (\IRM.GET.HASHFILE 87311 . 87774) (\IRM.GET.KEYWORDS 87776 . 88233)) (
-88372 88528 (\IRM.AROUND-EXIT 88372 . 88528)))))
+  (FILEMAP (NIL (4571 10304 (HELPSYS 4581 . 6422) (IRM.LOOKUP 6424 . 8062) (GENERIC.MAN.LOOKUP 8064 . 
+9733) (IRM.SMART.LOOKUP 9735 . 9891) (IRM.RESET 9893 . 10302)) (10561 17880 (CLHS.INDEX 10571 . 13535)
+ (CLHS.LOOKUP 13537 . 15543) (CLHS.OPENER 15545 . 16868) (REPO.LOOKUP 16870 . 17878)) (70975 72493 (
+IRM.GET.DINFOGRAPH 70985 . 71860) (IRM.DISPLAY.REF 71862 . 72491)) (72495 72857 (IRM.LOAD-GRAPH 72495
+ . 72857)) (73182 78686 (IRM.DISPLAY.CREF 73192 . 74906) (IRM.CREF.BOX 74908 . 75735) (IRM.PUT.CREF 
+75737 . 75962) (IRM.GET.CREF 75964 . 76335) (IRM.CREF.BUTTONEVENTFN 76337 . 78684)) (79241 87547 (
+\IRM.GET.REF 79251 . 80582) (\IRM.SMART.REF 80584 . 82511) (\IRM.CHOOSE.REF 82513 . 83764) (
+\IRM.WILD.REF 83766 . 85021) (\IRM.WILDCARD 85023 . 85389) (\IRM.WILD.MATCH 85391 . 86621) (
+\IRM.GET.HASHFILE 86623 . 87086) (\IRM.GET.KEYWORDS 87088 . 87545)) (87684 87840 (\IRM.AROUND-EXIT 
+87684 . 87840)))))
 STOP

lispusers/ISO8859IO

@@ -1,37 +1,39 @@
-(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
+(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10 FORMAT XCCS)
+
(FILECREATED " 8-Aug-2021 13:22:31" 
+{DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>ISO8859IO.;18
 22218  
 
-
(FILECREATED " 1-Feb-2026 13:03:18" {WMEDLEY}<lispusers>ISO8859IO.;19
 23459  
+      changes to%:  (FNS \8859OUTCHARFN \IBMOUTCHARFN \MACOUTCHARFN)
 
-      :EDIT-BY rmk
+      previous date%: " 6-Aug-2021 16:12:42" 
+{DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>ISO8859IO.;17)
 
-      :CHANGES-TO (FNS \MAKERECODEMAP MAKEISOFORMAT \8859OUTCHARFN \8859INCCODEFN \8859PEEKCCODEFN)
-                  (VARS ISO8859IOCOMS)
-
-      :PREVIOUS-DATE " 8-Aug-2021 13:22:31" {WMEDLEY}<lispusers>ISO8859IO.;11)
 
+(* ; "
+Copyright (c) 1995-1997, 1999, 2021 by Xerox Corporation.
+")
 
 (PRETTYCOMPRINT ISO8859IOCOMS)
 
 (RPAQQ ISO8859IOCOMS

        (
-        (* ;; "This package defines EXTERNALFORMATS for files that are encoded in either ISO8859/1, the standard IBM extended ascii, or the usual MAC encoding.")

+        (* ;; "This package defines EXTERNALFORMATS for files that are encoded in either ISO8859/1, the standard IBM extended ascii, or the usual MAC encoding.")

 
-        (COMS                                                (* ; "ISO8859/1")

+        (COMS                                                (* ; "ISO8859/1")

               (FNS \8859OUTCHARFN \8859INCCODEFN \8859PEEKCCODEFN)
-              (GLOBALVARS *MCCSTOISO8859MAP* *ISO8859TOMCCSMAP*)
+              (GLOBALVARS *XEROXTOISO8859MAP* *ISO8859TOXEROXMAP*)
               (FNS MAKEISOFORMAT)
               (P (MAKEISOFORMAT)))
-        (COMS                                                (* ; "IBM-PC Extended Ascii")

+        (COMS                                                (* ; "IBM-PC Extended Ascii")

               (FNS \IBMOUTCHARFN \IBMINCCODEFN \IBMPEEKCCODEFN)
               (GLOBALVARS *XEROXTOIBMMAP* *IBMTOXEROXMAP*)
               (FNS MAKEIBMFORMAT)
               (P (MAKEIBMFORMAT)))
-        (COMS                                                (* ; "Macintosh")

+        (COMS                                                (* ; "Macintosh")

               (FNS \MACOUTCHARFN \MACINCCODEFN \MACPEEKCCODEFN)
               (GLOBALVARS *XEROXTOMACMAP* *MACTOXEROXMAP*)
               (FNS MAKEMACFORMAT)
               (P (MAKEMACFORMAT)))
-        (COMS                                                (* ; "Independent of char encoding")

+        (COMS                                                (* ; "Independent of char encoding")

               (FNS \COMMONBACKCCODEFN \MAKERECODEMAP \RECODECCODE))))
 
 
@@ -49,143 +51,137 @@
 
 (\8859OUTCHARFN

   [LAMBDA (STREAM CHARCODE)
-    (DECLARE
 (GLOBALVARS *XEROXTOISO8859MAP*))
               (* ; "Edited  1-Feb-2026 10:11 by rmk")


-                                                            (* ; "Edited  8-Aug-2021 13:21 by rmk:")

-                                                             (* ; "Edited  7-Dec-95 14:34 by ")

-                                                             (* ; "Edited  7-Dec-95 14:32 by ")

+    (DECLARE
 (GLOBALVARS *XEROXTOISO8859MAP*))
      (* ; "Edited  8-Aug-2021 13:21 by rmk:")


+                                                             (* ; "Edited  7-Dec-95 14:34 by ")


+                                                             (* ; "Edited  7-Dec-95 14:32 by ")

 
-    (* ;; "Converts CHARCODE from internal encoding to ISO8859 before printing.")

+    (* ;; "Converts CHARCODE from internal encoding to ISO8859 before printing.")

 
-    (* ;; "Unconverted codes are left unchanged (no error).")

+    (* ;; "Unconverted codes are left unchanged (no error).")

 
-    (* ;; "If any remaining codes are out of charset 0, the streams external format will be used. ")

+    (* ;; "If any remaining codes are out of charset 0, the streams external format will be used. ")

 
     (IF
 (EQ CHARCODE (CHARCODE EOL))
         THEN
 (FREPLACE
 (STREAM CHARPOSITION) OF
 STREAM WITH
 0)
-             (\BOUTEOL STREAM)
+              (\BOUTEOL STREAM)
       ELSE
 (CHANGE
 (FFETCH
 (STREAM CHARPOSITION) OF
 STREAM)
-                  (IPLUS16 1 DATUM))
-           (\BOUT STREAM (IF
 (IGREATERP CHARCODE 127)
-                             THEN
 
+                      (IPLUS16 1 DATUM))
+            (\BOUT STREAM (IF
 (IGREATERP CHARCODE 127)
+                              THEN
 
 
-                                 (* ;; "We know that ISO doesn't have floating accents, so only singletons are returned.  We also know that it agrees with MCCS on first 128, except for cirumflex and underscore")

+                                 (* ;; "We know that ISO doesn't have floating accents, so only singletons are returned.  We also know that it agrees with Xerox on first 128")

 
-                                  (\RECODECCODE
 CHARCODE *MCCSTOISO8859MAP*)
-                           ELSE
 CHARCODE])
+                                    (\RECODECCODE
 CHARCODE *XEROXTOISO8859MAP*)
+                            ELSE
 CHARCODE])
 
 (\8859INCCODEFN

-  [LAMBDA (STRM COUNTP)
                                      (* ; "Edited  1-Feb-2026 10:10 by rmk")


-                                                            (* ; "Edited  6-Aug-2021 16:10 by rmk:")

-                                                             (* ; "Edited  7-Dec-95 15:24 by ")

-                                                             (* ; "Edited  7-Dec-95 15:19 by ")

+  [LAMBDA (STRM COUNTP)
                                 (* ; "Edited  6-Aug-2021 16:10 by rmk:")


+                                                             (* ; "Edited  7-Dec-95 15:24 by ")


+                                                             (* ; "Edited  7-Dec-95 15:19 by ")

     (DECLARE
 (USEDFREE *BYTECOUNTER*))
     (CL:WHEN COUNTP (SETQ *BYTECOUNTER* 1))
     (\RECODECCODE
 (\BIN STRM)
-           *ISO8859TOMCCSMAP*])
+           *ISO8859TOXEROXMAP*])
 
 (\8859PEEKCCODEFN

-  [LAMBDA (STRM NOERROR)
                                     (* ; "Edited  1-Feb-2026 10:10 by rmk")


-                                                            (* ; "Edited  5-May-2021 17:44 by rmk:")

-                                                             (* ; "Edited  3-Jan-96 14:21 by ")

-                                                             (* ; "Edited  7-Dec-95 15:51 by ")

-                                                             (* ; "Edited  7-Dec-95 15:19 by ")

+  [LAMBDA (STRM NOERROR)
                                (* ; "Edited  5-May-2021 17:44 by rmk:")


+                                                             (* ; "Edited  3-Jan-96 14:21 by ")


+                                                             (* ; "Edited  7-Dec-95 15:51 by ")


+                                                             (* ; "Edited  7-Dec-95 15:19 by ")

     (\RECODECCODE
 (\PEEKCCODE STRM NOERROR)
-           *ISO8859TOMCCSMAP*])
+           *ISO8859TOXEROXMAP*])
 )
 (DECLARE%: DOEVAL@COMPILE DONTCOPY
 
-(GLOBALVARS *MCCSTOISO8859MAP* *ISO8859TOMCCSMAP*)
+(GLOBALVARS *XEROXTOISO8859MAP* *ISO8859TOXEROXMAP*)
 )
 (DEFINEQ
 
 (MAKEISOFORMAT

-  [LAMBDA NIL
                                                (* ; "Edited  1-Feb-2026 11:18 by rmk")


-                                                            (* ; "Edited  5-Aug-2021 22:15 by rmk:")


-                                                             (* ; "Edited  9-Mar-99 17:19 by rmk:")

-                                                             (* ; "Edited  7-Dec-95 16:24 by ")

-                                                             (* ; "Edited  7-Dec-95 16:20 by ")

-    (LET [(MCCSTOISO '(("0,255" "0,136")
-                       ("0,254" "0,137")
-                       ("357,41" "0,240")
-                       ("357,153" "0,246")
-                       ("43,42" "0,250")
-                       ("0,323" "0,251")
-                       ("0,343" "0,252")
-                       ("357,152" "0,254")
-                       ("357,43" "0,255")
-                       ("0,322" "0,256")
-                       ("43,176" "0,257")
-                       ("43,47" "0,264")
-                       ("0,313" "0,270")
-                       ("0,321" "0,271")
-                       ("0,353" "0.272")
-                       ("361,41" "0,300")
-                       ("361,42" "0,301")
-                       ("361,43" "0,302")
-                       ("361,44" "0,303")
-                       ("361,47" "0,304")
-                       ("361,50" "0,305")
-                       ("0,341" "0,306")
-                       ("361,55" "0,307")
-                       ("361,60" "0,310")
-                       ("361,61" "0,311")
-                       ("361,62" "0,312")
-                       ("361,65" "0,313")
-                       ("361,76" "0,314")
-                       ("361,77" "0,315")
-                       ("361,100" "0,316")
-                       ("361,104" "0,317")
-                       ("0,342" "0,320")
-                       ("361,114" "0,321")
-                       ("361,117" "0,322")
-                       ("361,120" "0,323")
-                       ("361,121" "0,324")
-                       ("361,122" "0,325")
-                       ("361,124" "0,326")
-                       ("0,264" "0,327")
-                       ("0,351" "0,330")
-                       ("361,137" "0,331")
-                       ("361,140" "0,332")
-                       ("361,141" "0,333")
-                       ("361,145" "0,334")
-                       ("361,153" "0,335")
-                       ("0,354" "0,336")
-                       ("0,373" "0,337")
-                       ("361,241" "0,340")
-                       ("361,242" "0,341")
-                       ("361,243" "0,342")
-                       ("361,244" "0,343")
-                       ("361,247" "0,344")
-                       ("361,250" "0,345")
-                       ("0,361" "0,346")
-                       ("361,255" "0,347")
-                       ("361,260" "0,350")
-                       ("361,261" "0,351")
-                       ("361,262" "0,352")
-                       ("361,265" "0,353")
-                       ("361,276" "0,354")
-                       ("361,277" "0,355")
-                       ("361,300" "0,356")
-                       ("361,304" "0,357")
-                       ("0,363" "0,360")
-                       ("361,314" "0,361")
-                       ("361,317" "0,362")
-                       ("361,320" "0,363")
-                       ("361,321" "0,364")
-                       ("361,322" "0,365")
-                       ("361,324" "0,366")
-                       ("0,270" "0,367")
-                       ("0,371" "0,370")
-                       ("361,337" "0,371")
-                       ("361,340" "0,372")
-                       ("361,341" "0,373")
-                       ("361,345" "0,374")
-                       ("361,353" "0,375")
-                       ("0,374" "0,376")
-                       ("361,355" "0,377")
-                       ("361,155" "Meta,170"]
-         (SETQ *MCCSTOISO8859MAP* (\MAKERECODEMAP
 MCCSTOISO))
-         (SETQ *ISO8859TOMCCSMAP* (\MAKERECODEMAP
 MCCSTOISO T)))
+  [LAMBDA NIL
                                           (* ; "Edited  5-Aug-2021 22:15 by rmk:")


+                                                             (* ; "Edited  9-Mar-99 17:19 by rmk:")


+                                                             (* ; "Edited  7-Dec-95 16:24 by ")


+                                                             (* ; "Edited  7-Dec-95 16:20 by ")

+    (LET [(XEROXTOISO '((61217 160)
+                        (61291 166)
+                        (8994 168)
+                        (211 169)
+                        (227 170)
+                        (61290 172)
+                        (61219 173)
+                        (210 174)
+                        (9086 175)
+                        (8999 180)
+                        (203 184)
+                        (209 185)
+                        (235 186)
+                        (61729 192)
+                        (61730 193)
+                        (61731 194)
+                        (61732 195)
+                        (61735 196)
+                        (61736 197)
+                        (225 198)
+                        (61741 199)
+                        (61744 200)
+                        (61745 201)
+                        (61746 202)
+                        (61749 203)
+                        (61758 204)
+                        (61759 205)
+                        (61760 206)
+                        (61764 207)
+                        (226 208)
+                        (61772 209)
+                        (61775 210)
+                        (61776 211)
+                        (61777 212)
+                        (61778 213)
+                        (61780 214)
+                        (180 215)
+                        (233 216)
+                        (61791 217)
+                        (61792 218)
+                        (61793 219)
+                        (61797 220)
+                        (61803 221)
+                        (236 222)
+                        (251 223)
+                        (61857 224)
+                        (61858 225)
+                        (61859 226)
+                        (61860 227)
+                        (61863 228)
+                        (61864 229)
+                        (241 230)
+                        (61869 231)
+                        (61872 232)
+                        (61873 233)
+                        (61874 234)
+                        (61877 235)
+                        (61886 236)
+                        (61887 237)
+                        (61888 238)
+                        (61892 239)
+                        (243 240)
+                        (61900 241)
+                        (61903 242)
+                        (61904 243)
+                        (61905 244)
+                        (61906 245)
+                        (61908 246)
+                        (184 247)
+                        (249 248)
+                        (61919 249)
+                        (61920 250)
+                        (61921 251)
+                        (61925 252)
+                        (61931 253)
+                        (252 254)
+                        (61933 255)
+                        (61805 376]
+         (SETQ *XEROXTOISO8859MAP* (\MAKERECODEMAP
 XEROXTOISO))
+         (SETQ *ISO8859TOXEROXMAP* (\MAKERECODEMAP
 XEROXTOISO T)))
     (MAKE-EXTERNALFORMAT :ISO8859/1 (FUNCTION \8859INCCODEFN)
            (FUNCTION \8859PEEKCCODEFN)
            (FUNCTION \COMMONBACKCCODEFN)
@@ -519,28 +515,26 @@
 (\COMMONBACKCCODEFN

   [LAMBDA (STRM COUNTP)
                                 (* ; "Edited  6-Aug-2021 16:12 by rmk:")


                                                              (* ; "Edited  8-Dec-95 13:26 by ")

-    (DECLARE
 (USEDFREE *BYTECOUNTER*))
-    (CL:WHEN (\BACKFILEPTR STRM)
+    (DECLARE
 (USEDFREE *BYTECOUNTER*))
     (CL:WHEN (\BACKFILEPTR STRM)
-        T)])
+        (CL:WHEN COUNTP (SETQ *BYTECOUNTER* -1))
         T)])
 
 (\MAKERECODEMAP

   [LAMBDA (CODEMAP INVERTED)
                             (* ; "Edited  9-Mar-99 17:23 by rmk:")

-
-    (* ;; "Produces a map array for use by \RECODECCODE.  The map array is a 256-array of either NIL or 256-arrays, so that space isn't allocated for widely separated codes.")

-
-    (DECLARE
 (USEDFREE FASTRECODEMAPCACHE))
-    (CL:WHEN INVERTED
-        [SETQ CODEMAP (FOR
 C IN
 CODEMAP COLLECT
 (LIST (CADR C)
-                                                      (CAR C])
-    (FOR
 M LEFT RIGHT (MAPARRAY ¬ (CL:MAKE-ARRAY 256 :INITIAL-ELEMENT NIL))
-         CSMAP IN
 CODEMAP eachtime
 (SETQ LEFT (CAR M))
-                                (SETQ RIGHT (CADR M))
-                                (CL:UNLESS (CHARCODEP LEFT)
-                                    (SETQ LEFT (CHARCODE.DECODE LEFT)))
-                                (CL:UNLESS (CHARCODEP RIGHT)
-                                    (SETQ RIGHT (CHARCODE.DECODE RIGHT)))
+
+    (* ;; "Produces a map array for use by \RECODECCODE.  The map array is a 256-array of either NIL or 256-arrays, so that space isn't allocated for widely separated codes.")

+
+    (DECLARE
 (USEDFREE FASTRECODEMAPCACHE))
+    (CL:WHEN INVERTED
+        [SETQ CODEMAP (FOR
 C IN
 CODEMAP COLLECT
 (LIST (CADR C)
+                                                                  (CAR C])
+    (FOR
 M (MAPARRAY _ (CL:MAKE-ARRAY 256 :INITIAL-ELEMENT NIL))
+           CSMAP IN
 CODEMAP UNLESS
 (EQ (CAR M)
+                                               (CADR M))
+       DO
 (CL:UNLESS (SETQ CSMAP (CL:SVREF MAPARRAY (LRSH (CAR M)
+                                                              8)))
+                  (SETQ CSMAP (CL:MAKE-ARRAY 256 :INITIAL-ELEMENT NIL))
                   (CL:SETF (CL:SVREF MAPARRAY (LRSH (CAR M)
                                                     8))
                          CSMAP))
@@ -552,11 +546,12 @@
   [LAMBDA (CODE MAPARRAY)
                                (* ; "Edited  9-Mar-99 17:28 by rmk:")


                                                              (* ; "Edited 21-Jun-95 10:18 by rmk:")

 
+    (* ;; "Recodes a singleton charcode.  Leaves everything else unchanged.")

 
-
-    (LET [(CSMAP (CL:SVREF MAPARRAY (LRSH CODE 8]
-         (OR (AND CSMAP (CL:SVREF CSMAP (LOGAND CODE 255)))
-             CODE])
-)
-(DECLARE%: DONTCOPY
+    (LET [(CSMAP (CL:SVREF MAPARRAY (LRSH CODE 8]
+         (OR (AND CSMAP (CL:SVREF CSMAP (LOGAND CODE 255)))
+             CODE])
+)
+(PUTPROPS ISO8859IO COPYRIGHT ("Xerox Corporation" 1995 1996 1997 1999 2021))
+(DECLARE%: DONTCOPY
   (FILEMAP (NIL (1909 4233 (\8859OUTCHARFN 1919 . 3222) (\8859INCCODEFN 3224 . 3710) (\8859PEEKCCODEFN 

lispusers/LAMBDATRAN

@@ -1,38 +1,41 @@
-(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
+(DEFINE-FILE-INFO §READTABLE "INTERLISP" §PACKAGE "INTERLISP")
+
(FILECREATED "19-Feb-87 10:40:43" {QV}<LFG>PARSER>NEXT>LAMBDATRAN.;2
 9556   
 
-
(FILECREATED "18-Feb-2026 16:30:17" {WMEDLEY}<lispusers>LAMBDATRAN.;2
 9157   
+      changes to%:  (FNS FNTYP1 LTDWIMUSERFN LTSTKNAME NARGS)
 
-      :EDIT-BY rmk
+      previous date%: "19-Feb-87 09:56:18" {QV}<LFG>PARSER>NEXT>LAMBDATRAN.;1)
 
-      :PREVIOUS-DATE "19-Feb-87 10:40:43" {WMEDLEY}<lispusers>LAMBDATRAN.;1)
 
+(* "
+Copyright (c) 1984, 1987 by Xerox Corporation.  All rights reserved.
+")
 
 (PRETTYCOMPRINT LAMBDATRANCOMS)
 
-(RPAQQ LAMBDATRANCOMS

-       [(* Translation machinery for new LAMBDA words)
-        (LOCALVARS . T)
-        [DECLARE%: FIRST (P (VIRGINFN 'ARGLIST T)
-                            (MOVD? 'ARGLIST 'OLDARGLIST)
-                            (VIRGINFN 'NARGS T)
-                            (MOVD? 'NARGS 'OLDNARGS)
-                            (VIRGINFN 'ARGTYPE T)
-                            (MOVD? 'ARGTYPE 'OLDARGTYPE)
-                            (MOVD? 'NILL 'LTDWIMUSERFN]
-        (FNS ARGLIST ARGTYPE FNTYP1 LTDWIMUSERFN LTSTKNAME NARGS)
-        (ADDVARS (DWIMUSERFORMS (LTDWIMUSERFN)))
-        (PROP VARTYPE LAMBDATRANFNS)
-        (ALISTS (LAMBDATRANFNS))
-        (PROP MACRO LTSTKNAME)
-        (P (PUTHASH 'LTSTKNAME '(NIL)
-                  MSTEMPLATES))
-        (P (RELINK 'WORLD))
-        (DECLARE%: EVAL@COMPILE DONTCOPY (P (RESETSAVE DWIMIFYCOMPFLG T))
-               (GLOBALVARS CLISPARRAY COMMENTFLG LAMBDASPLST LAMBDATRANFNS BOUNDPDUMMY))
-        (DECLARE%: DONTCOPY (RECORDS LAMBDAWORD))
-        (DECLARE%: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS (ADDVARS (NLAMA)
-                                                                             (NLAML LTSTKNAME)
-                                                                             (LAMA])
+(RPAQQ LAMBDATRANCOMS
 [(* Translation machinery for new LAMBDA words)
+                       (LOCALVARS . T)
+                       [DECLARE%: FIRST (P (VIRGINFN 'ARGLIST T)
+                                           (MOVD? 'ARGLIST 'OLDARGLIST)
+                                           (VIRGINFN 'NARGS T)
+                                           (MOVD? 'NARGS 'OLDNARGS)
+                                           (VIRGINFN 'ARGTYPE T)
+                                           (MOVD? 'ARGTYPE 'OLDARGTYPE)
+                                           (MOVD? 'NILL 'LTDWIMUSERFN]
+                       (FNS ARGLIST ARGTYPE FNTYP1 LTDWIMUSERFN LTSTKNAME NARGS)
+                       (ADDVARS (DWIMUSERFORMS (LTDWIMUSERFN)))
+                       (PROP VARTYPE LAMBDATRANFNS)
+                       (ALISTS (LAMBDATRANFNS))
+                       (PROP MACRO LTSTKNAME)
+                       (P (PUTHASH 'LTSTKNAME '(NIL) MSTEMPLATES))
+                       (P (RELINK 'WORLD))
+                       (DECLARE%: EVAL@COMPILE DONTCOPY (P (RESETSAVE DWIMIFYCOMPFLG T))
+                              (GLOBALVARS CLISPARRAY COMMENTFLG LAMBDASPLST LAMBDATRANFNS BOUNDPDUMMY
+                                     ))
+                       (DECLARE%: DONTCOPY (RECORDS LAMBDAWORD))
+                       (DECLARE%: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS
+                              (ADDVARS (NLAMA)
+                                     (NLAML LTSTKNAME)
+                                     (LAMA])
 
 
 
@@ -43,19 +46,12 @@
 (LOCALVARS . T)
 )
 (DECLARE%: FIRST 
-
 (VIRGINFN 'ARGLIST T)
-
 (MOVD? 'ARGLIST 'OLDARGLIST)
-
 (VIRGINFN 'NARGS T)
-
 (MOVD? 'NARGS 'OLDNARGS)
-
 (VIRGINFN 'ARGTYPE T)
-
 (MOVD? 'ARGTYPE 'OLDARGTYPE)
-
 (MOVD? 'NILL 'LTDWIMUSERFN)
 )
 (DEFINEQ
@@ -194,18 +190,14 @@
 
 (ADDTOVAR DWIMUSERFORMS
 (LTDWIMUSERFN))
 
-(PUTPROPS LAMBDATRANFNS
 VARTYPE
 ALIST)
+(PUTPROPS LAMBDATRANFNS VARTYPE
 ALIST)
 
 (ADDTOVAR LAMBDATRANFNS
 )
 
-(PUTPROPS LTSTKNAME
 MACRO
 (X (CONS COMMENTFLG X)))
-
-(PUTHASH 'LTSTKNAME '(NIL)
-       MSTEMPLATES)
-
+(PUTPROPS LTSTKNAME MACRO
 (X (CONS COMMENTFLG X)))
+(PUTHASH 'LTSTKNAME '(NIL) MSTEMPLATES)
 (RELINK 'WORLD)
 (DECLARE%: EVAL@COMPILE DONTCOPY 
-
 (RESETSAVE DWIMIFYCOMPFLG T)
 
 (DECLARE%: DOEVAL@COMPILE DONTCOPY
@@ -227,7 +219,8 @@
 
 (ADDTOVAR LAMA
 )
 )
+(PUTPROPS LAMBDATRAN COPYRIGHT ("Xerox Corporation" 1984 1987))
 (DECLARE%: DONTCOPY
-  (FILEMAP (NIL (1871 8468 (ARGLIST 1881 . 2835) (ARGTYPE 2837 . 3191) (FNTYP1 3193 . 4102) (
-LTDWIMUSERFN 4104 . 7604) (LTSTKNAME 7606 . 8130) (NARGS 8132 . 8466)))))
+  (FILEMAP (NIL (2224 8821 (ARGLIST 2234 . 3188) (ARGTYPE 3190 . 3544) (FNTYP1 3546 . 4455) (
+LTDWIMUSERFN 4457 . 7957) (LTSTKNAME 7959 . 8483) (NARGS 8485 . 8819)))))
 STOP

lispusers/LAYOUT-SEDIT

@@ -1,127 +1,128 @@
-(DEFINE-FILE-INFO PACKAGE (DEFPACKAGE "LAYOUT-SEDIT" (NICKNAMES "L-S")) READTABLE "XCL" BASE 10)
+(DEFINE-FILE-INFO §READTABLE "XCL" §PACKAGE (DEFPACKAGE "LAYOUT-SEDIT" (§NICKNAMES "L-S")))
+
(il:filecreated " 9-Jan-87 19:55:25" il:{eris}<lispusers>lispcore>layout-sedit.\;2
 7190   
 
-
(IL:FILECREATED "18-Feb-2026 16:36:18" IL:|{WMEDLEY}<lispusers>LAYOUT-SEDIT.;2|
 5714   
+      il:|changes| il:|to:|  (il:variables user::*l-s-region-zero* user::*l-s-region-delta* 
+                                    user::*l-s-reuse-earlier-regions*)
+                             (il:functions get-region save-region user::use-l-s-regions 
+                                    user::stop-using-l-s-regions)
+                             (il:vars il:layout-seditcoms)
 
-      :EDIT-BY IL:|rmk|
-
-      :CHANGES-TO (IL:VARS IL:LAYOUT-SEDITCOMS)
-                  (IL:VARIABLES *REGION-ALIST* USER::*L-S-REGION-ZERO* USER::*L-S-REGION-DELTA* 
-                         USER::*L-S-REUSE-EARLIER-REGIONS*)
-                  (IL:FUNCTIONS USER::USE-L-S-REGIONS USER::STOP-USING-L-S-REGIONS REGION-PLUS 
-                         GET-REGION SAVE-REGION)
-
-      :PREVIOUS-DATE " 9-Jan-87 19:55:25" IL:|{WMEDLEY}<lispusers>LAYOUT-SEDIT.;1|)
+      il:|previous| il:|date:| "26-Dec-86 19:42:46" il:{eris}<pavel>lisp>layout-sedit.\;2)
 
 
-(IL:PRETTYCOMPRINT IL:LAYOUT-SEDITCOMS)
+; Copyright (c) 1986, 1987 by Pavel Curtis.  All rights reserved.
 
-(IL:RPAQQ IL:LAYOUT-SEDITCOMS

-          ((IL:FUNCTIONS USER::USE-L-S-REGIONS USER::STOP-USING-L-S-REGIONS)
-           (IL:VARIABLES *REGION-ALIST* USER::*L-S-REGION-ZERO* USER::*L-S-REGION-DELTA* 
-                  USER::*L-S-REUSE-EARLIER-REGIONS*)
-           (IL:FUNCTIONS REGION-PLUS)
-           (IL:FUNCTIONS GET-REGION SAVE-REGION)
-           (IL:DECLARE\: IL:DONTEVAL@LOAD IL:DONTEVAL@COMPILE IL:DOCOPY (IL:P (USER::USE-L-S-REGIONS)
-                                                                              ))
-           
-           (IL:* IL:|;;| "Arrange to use the proper compiler and makefile environment ")

+(il:prettycomprint il:layout-seditcoms)
 
-           (IL:PROP (IL:FILETYPE IL:MAKEFILE-ENVIRONMENT)
-                  IL:LAYOUT-SEDIT)))
+(il:rpaqq il:layout-seditcoms
 ((il:functions user::use-l-s-regions user::stop-using-l-s-regions)
+                               (il:variables *region-alist* user::*l-s-region-zero* 
+                                      user::*l-s-region-delta* user::*l-s-reuse-earlier-regions*)
+                               (il:functions region-plus)
+                               (il:functions get-region save-region)
+                               (il:declare\: il:donteval@load il:donteval@compile il:docopy
+                                      (il:p (user::use-l-s-regions)))
+                               (il:* il:|;;| 
+                                     "Arrange to use the proper compiler and makefile environment ")
+                               (il:prop (il:filetype il:makefile-environment)
+                                      il:layout-sedit)))
 
-(DEFUN USER::USE-L-S-REGIONS
 ()
-   (ASSERT (NULL IL:|\\\\contexts|)
-          NIL "Close all open SEdit windows")
-   (IL:SEDIT.RESET)
-   (IL:MOVD 'IL:SEDIT.GET.WINDOW.REGION 'OLD-GET-REGION)
-   (IL:MOVD 'IL:SEDIT.SAVE.WINDOW.REGION 'OLD-SAVE-REGION)
-   (IL:MOVD 'GET-REGION 'IL:SEDIT.GET.WINDOW.REGION)
-   (IL:MOVD 'SAVE-REGION 'IL:SEDIT.SAVE.WINDOW.REGION))
+(defun user::use-l-s-regions
 nil (assert (null il:|\\\\contexts|)
+                                        nil "Close all open SEdit windows")
+                                 (il:sedit.reset)
+                                 (il:movd 'il:sedit.get.window.region 'old-get-region)
+                                 (il:movd 'il:sedit.save.window.region 'old-save-region)
+                                 (il:movd 'get-region 'il:sedit.get.window.region)
+                                 (il:movd 'save-region 'il:sedit.save.window.region))
 
-(DEFUN USER::STOP-USING-L-S-REGIONS
 ()
-   (ASSERT (NULL IL:|\\\\contexts|)
-          NIL "Close all open SEdit windows")
-   (IL:SEDIT.RESET)
-   (IL:MOVD 'OLD-GET-REGION 'IL:SEDIT.GET.WINDOW.REGION)
-   (IL:MOVD 'OLD-SAVE-REGION 'IL:SEDIT.SAVE.WINDOW.REGION))
 
-(DEFVAR *REGION-ALIST*
 NIL
+(defun user::stop-using-l-s-regions
 nil (assert (null il:|\\\\contexts|)
+                                               nil "Close all open SEdit windows")
+                                        (il:sedit.reset)
+                                        (il:movd 'old-get-region 'il:sedit.get.window.region)
+                                        (il:movd 'old-save-region 'il:sedit.save.window.region))
 
-(IL:* IL:|;;;| "An AList mapping a region to the SEdit context that currently owns it.  The associations of regions no longer in use should have a CDR of NIL.  The list is kept in reverse order, with the farthest region from *REGION-ZERO* at the front of the list.  So as to allow experimentation by users, we maintain the invariant that the first association on the list never has a CDR of NIL.  To reestablish that invariant, we sometimes POP the AList rather than set the CDR to NIL.")

 
-   )
+(defvar *region-alist*
 nil 
 
-(DEFVAR USER::*L-S-REGION-ZERO*
 (IL:CREATEREGION 25 (- (TRUNCATE IL:SCREENHEIGHT 2)
+(il:* il:|;;;| "An AList mapping a region to the SEdit context that currently owns it.  The associations of regions no longer in use should have a CDR of NIL.  The list is kept in reverse order, with the farthest region from *REGION-ZERO* at the front of the list.  So as to allow experimentation by users, we maintain the invariant that the first association on the list never has a CDR of NIL.  To reestablish that invariant, we sometimes POP the AList rather than set the CDR to NIL.")

+)
+
+
+(defvar user::*l-s-region-zero*
 (il:createregion 25 (- (truncate il:screenheight 2)
                                                        19)
-                                       (TRUNCATE IL:SCREENWIDTH 2)
-                                       (TRUNCATE IL:SCREENHEIGHT 2))
+                                       (truncate il:screenwidth 2)
+                                       (truncate il:screenheight 2)) 
 
-(IL:* IL:|;;;| "The region to be used by the first SEdit window.  This works in conjunction with USER::*L-S-REGION-DELTA* to specify the region for each new SEdit window.")

+(il:* il:|;;;| "The region to be used by the first SEdit window.  This works in conjunction with USER::*L-S-REGION-DELTA* to specify the region for each new SEdit window.")

+ )
 
-                                )
 
-(DEFVAR USER::*L-S-REGION-DELTA*
 (IL:CREATEREGION 11 -44 0 0))
+(defvar user::*l-s-region-delta*
 (il:createregion 11 -44 0 0) )
 
-(DEFVAR USER::*L-S-REUSE-EARLIER-REGIONS*
 NIL
 
-(IL:* IL:|;;;| "If non-NIL, then earlier regions (i.e., those closer to USER::*L-S-REGION-ZERO* will get reused when free.  Otherwise, new regions, farther from USER::*L-S-REGION-ZERO* than any currently in use, will be created.")

+(defvar user::*l-s-reuse-earlier-regions*
 nil 
 
-   )
+(il:* il:|;;;| "If non-NIL, then earlier regions (i.e., those closer to USER::*L-S-REGION-ZERO* will get reused when free.  Otherwise, new regions, farther from USER::*L-S-REGION-ZERO* than any currently in use, will be created.")

+)
 
-(DEFUN REGION-PLUS
 (ONE TWO)
-   (IL:CREATEREGION (+ (IL:FETCH
 (IL:REGION IL:LEFT) IL:OF
 ONE)
-                       (IL:FETCH
 (IL:REGION IL:LEFT) IL:OF
 TWO))
-          (+ (IL:FETCH
 (IL:REGION IL:BOTTOM) IL:OF
 ONE)
-             (IL:FETCH
 (IL:REGION IL:BOTTOM) IL:OF
 TWO))
-          (+ (IL:FETCH
 (IL:REGION IL:WIDTH) IL:OF
 ONE)
-             (IL:FETCH
 (IL:REGION IL:WIDTH) IL:OF
 TWO))
-          (+ (IL:FETCH
 (IL:REGION IL:HEIGHT) IL:OF
 ONE)
-             (IL:FETCH
 (IL:REGION IL:HEIGHT) IL:OF
 TWO))))
 
-(DEFUN GET-REGION
 (CONTEXT)
-   (LET ((PAIR (AND USER::*L-S-REUSE-EARLIER-REGIONS* (FIND NIL *REGION-ALIST* :KEY 'CDR))))
-        (COND
-           ((NULL PAIR)
-            (COND
-               ((NULL *REGION-ALIST*)
-                (SETQ *REGION-ALIST* (LIST (CONS USER::*L-S-REGION-ZERO* CONTEXT)))
-                USER::*L-S-REGION-ZERO*)
-               (T (LET ((NEW-REGION (REGION-PLUS
 (CAR (FIRST *REGION-ALIST*))
-                                           USER::*L-S-REGION-DELTA*)))
-                       (PUSH (CONS NEW-REGION CONTEXT)
-                             *REGION-ALIST*)
-                       NEW-REGION))))
-           (T (SETF (CDR PAIR)
-                    CONTEXT)
-              (CAR PAIR)))))
+(defun region-plus
 (one two) (il:createregion (+ (il:fetch
 (il:region il:left) il:of
 one)
+                                                 (il:fetch
 (il:region il:left) il:of
 two))
+                                    (+ (il:fetch
 (il:region il:bottom) il:of
 one)
+                                       (il:fetch
 (il:region il:bottom) il:of
 two))
+                                    (+ (il:fetch
 (il:region il:width) il:of
 one)
+                                       (il:fetch
 (il:region il:width) il:of
 two))
+                                    (+ (il:fetch
 (il:region il:height) il:of
 one)
+                                       (il:fetch
 (il:region il:height) il:of
 two))))
 
-(DEFUN SAVE-REGION
 (CONTEXT)
 
-(IL:* IL:|;;;| "The context is done with its region.  Deallocate it.")

+(defun get-region
 (context) (let ((pair (and user::*l-s-reuse-earlier-regions* (find nil 
+                                                                                     *region-alist* 
+                                                                                     :key
+                                                                                     'cdr))))
+                                 (cond
+                                    ((null pair)
+                                     (cond
+                                        ((null *region-alist*)
+                                         (setq *region-alist* (list (cons user::*l-s-region-zero* 
+                                                                          context)))
+                                         user::*l-s-region-zero*)
+                                        (t (let ((new-region (region-plus (car (first *region-alist*)
+                                                                               )
+                                                                    user::*l-s-region-delta*)))
+                                                (push (cons new-region context)
+                                                      *region-alist*)
+                                                new-region))))
+                                    (t (setf (cdr pair)
+                                             context)
+                                       (car pair)))))
 
-   (LET ((PAIR (FIND CONTEXT *REGION-ALIST* :KEY 'CDR)))
-        (IF (NULL PAIR)
-            (WARN "An SEdit context is trying to give up an unallocated region.")
-            (SETF (CDR PAIR)
-                  NIL))
-        (SETQ *REGION-ALIST* (MEMBER-IF-NOT 'NULL *REGION-ALIST* :KEY 'CDR))))
-(IL:DECLARE\: IL:DONTEVAL@LOAD IL:DONTEVAL@COMPILE IL:DOCOPY 
 
-(USER::USE-L-S-REGIONS
)
+(defun save-region
 (context) 
+
+(il:* il:|;;;| "The context is done with its region.  Deallocate it.")

+ (let ((pair (find context *region-alist* :key 'cdr)))
+      (if (null pair)
+          (warn "An SEdit context is trying to give up an unallocated region.")
+          (setf (cdr pair)
+                nil))
+      (setq *region-alist* (member-if-not 'null *region-alist* :key 'cdr))))
+
+(il:declare\: il:donteval@load il:donteval@compile il:docopy 
+(user::use-l-s-regions)
 )
 
 
 
-(IL:* IL:|;;| "Arrange to use the proper compiler and makefile environment ")

+(il:* il:|;;| "Arrange to use the proper compiler and makefile environment ")

 
 
-(IL:PUTPROPS IL:LAYOUT-SEDIT
 IL:FILETYPE
 COMPILE-FILE)
+(il:putprops il:layout-sedit il:filetype
 compile-file)
 
-(IL:PUTPROPS IL:LAYOUT-SEDIT
 IL:MAKEFILE-ENVIRONMENT
 (:READTABLE "XCL" :PACKAGE (XCL:DEFPACKAGE
+(il:putprops il:layout-sedit il:makefile-environment
 (:readtable "XCL" :package (xcl:defpackage
                                                                                  "LAYOUT-SEDIT"
-                                                                                 (:NICKNAMES "L-S"))))
-(IL:DECLARE\: IL:DONTCOPY
-  (IL:FILEMAP (NIL (1426 1788 (USER::USE-L-S-REGIONS 1426 . 1788)) (1790 2051 (USER::STOP-USING-L-S-REGIONS
- 1790 . 2051)) (3443 4007 (REGION-PLUS 3443 . 4007)) (4009 4732 (GET-REGION 4009 . 4732)) (4734 5138 (
-SAVE-REGION 4734 . 5138)))))
-IL:STOP
+                                                                                 (:nicknames "L-S"))))
+(il:putprops il:layout-sedit il:copyright ("Pavel Curtis" 1986 1987))
+(il:declare\: il:dontcopy
+  (il:filemap (nil)))
+il:stop

lispusers/LAYOUT-SEDIT.LCOM

@@ -1,52 +1 @@
-(DEFINE-FILE-INFO PACKAGE (DEFPACKAGE "LAYOUT-SEDIT" (NICKNAMES "L-S")) READTABLE "XCL" BASE 10)
-
-(IL:FILECREATED "18-Feb-2026 16:39:44" ("compiled on " IL:|{WMEDLEY}<lispusers>LAYOUT-SEDIT.;2|) 
-"18-Feb-2026 16:37:55" IL:|bcompl'd| IL:|in| "FULL 18-Feb-2026 ..." IL:|dated| "18-Feb-2026 16:38:04")
-(IL:FILECREATED "18-Feb-2026 16:36:18" IL:|{WMEDLEY}<lispusers>LAYOUT-SEDIT.;2| 5714 :EDIT-BY IL:|rmk|
- :CHANGES-TO (IL:VARS IL:LAYOUT-SEDITCOMS) (IL:VARIABLES *REGION-ALIST* USER::*L-S-REGION-ZERO* 
-USER::*L-S-REGION-DELTA* USER::*L-S-REUSE-EARLIER-REGIONS*) (IL:FUNCTIONS USER::USE-L-S-REGIONS 
-USER::STOP-USING-L-S-REGIONS REGION-PLUS GET-REGION SAVE-REGION) :PREVIOUS-DATE " 9-Jan-87 19:55:25" 
-IL:|{WMEDLEY}<lispusers>LAYOUT-SEDIT.;1|)
-(IL:PRETTYCOMPRINT IL:LAYOUT-SEDITCOMS)
-(IL:RPAQQ IL:LAYOUT-SEDITCOMS ((IL:FUNCTIONS USER::USE-L-S-REGIONS USER::STOP-USING-L-S-REGIONS) (
-IL:VARIABLES *REGION-ALIST* USER::*L-S-REGION-ZERO* USER::*L-S-REGION-DELTA* 
-USER::*L-S-REUSE-EARLIER-REGIONS*) (IL:FUNCTIONS REGION-PLUS) (IL:FUNCTIONS GET-REGION SAVE-REGION) (
-IL:DECLARE\: IL:DONTEVAL@LOAD IL:DONTEVAL@COMPILE IL:DOCOPY (IL:P (USER::USE-L-S-REGIONS))) (IL:* 
-IL:|;;| "Arrange to use the proper compiler and makefile environment ") (IL:PROP (IL:FILETYPE 
-IL:MAKEFILE-ENVIRONMENT) IL:LAYOUT-SEDIT)))
-(DEFUN USER::USE-L-S-REGIONS NIL (ASSERT (NULL IL:|\\\\contexts|) NIL "Close all open SEdit windows") 
-(IL:SEDIT.RESET) (IL:MOVD (QUOTE IL:SEDIT.GET.WINDOW.REGION) (QUOTE OLD-GET-REGION)) (IL:MOVD (QUOTE 
-IL:SEDIT.SAVE.WINDOW.REGION) (QUOTE OLD-SAVE-REGION)) (IL:MOVD (QUOTE GET-REGION) (QUOTE 
-IL:SEDIT.GET.WINDOW.REGION)) (IL:MOVD (QUOTE SAVE-REGION) (QUOTE IL:SEDIT.SAVE.WINDOW.REGION)))
-(DEFUN USER::STOP-USING-L-S-REGIONS NIL (ASSERT (NULL IL:|\\\\contexts|) NIL 
-"Close all open SEdit windows") (IL:SEDIT.RESET) (IL:MOVD (QUOTE OLD-GET-REGION) (QUOTE 
-IL:SEDIT.GET.WINDOW.REGION)) (IL:MOVD (QUOTE OLD-SAVE-REGION) (QUOTE IL:SEDIT.SAVE.WINDOW.REGION)))
-(DEFVAR *REGION-ALIST* NIL (IL:* IL:|;;;| 
-"An AList mapping a region to the SEdit context that currently owns it.  The associations of regions no longer in use should have a CDR of NIL.  The list is kept in reverse order, with the farthest region from *REGION-ZERO* at the front of the list.  So as to allow experimentation by users, we maintain the invariant that the first association on the list never has a CDR of NIL.  To reestablish that invariant, we sometimes POP the AList rather than set the CDR to NIL."
-))
-(DEFVAR USER::*L-S-REGION-ZERO* (IL:CREATEREGION 25 (- (TRUNCATE IL:SCREENHEIGHT 2) 19) (TRUNCATE 
-IL:SCREENWIDTH 2) (TRUNCATE IL:SCREENHEIGHT 2)) (IL:* IL:|;;;| 
-"The region to be used by the first SEdit window.  This works in conjunction with USER::*L-S-REGION-DELTA* to specify the region for each new SEdit window."
-))
-(DEFVAR USER::*L-S-REGION-DELTA* (IL:CREATEREGION 11 -44 0 0))
-(DEFVAR USER::*L-S-REUSE-EARLIER-REGIONS* NIL (IL:* IL:|;;;| 
-"If non-NIL, then earlier regions (i.e., those closer to USER::*L-S-REGION-ZERO* will get reused when free.  Otherwise, new regions, farther from USER::*L-S-REGION-ZERO* than any currently in use, will be created."
-))
-(DEFUN REGION-PLUS (ONE TWO) (IL:CREATEREGION (+ (IL:FETCH (IL:REGION IL:LEFT) IL:OF ONE) (IL:FETCH (
-IL:REGION IL:LEFT) IL:OF TWO)) (+ (IL:FETCH (IL:REGION IL:BOTTOM) IL:OF ONE) (IL:FETCH (IL:REGION 
-IL:BOTTOM) IL:OF TWO)) (+ (IL:FETCH (IL:REGION IL:WIDTH) IL:OF ONE) (IL:FETCH (IL:REGION IL:WIDTH) IL:OF
- TWO)) (+ (IL:FETCH (IL:REGION IL:HEIGHT) IL:OF ONE) (IL:FETCH (IL:REGION IL:HEIGHT) IL:OF TWO))))
-(DEFUN GET-REGION (CONTEXT) (LET ((PAIR (AND USER::*L-S-REUSE-EARLIER-REGIONS* (FIND NIL 
-*REGION-ALIST* :KEY (QUOTE CDR))))) (COND ((NULL PAIR) (COND ((NULL *REGION-ALIST*) (SETQ 
-*REGION-ALIST* (LIST (CONS USER::*L-S-REGION-ZERO* CONTEXT))) USER::*L-S-REGION-ZERO*) (T (LET ((
-NEW-REGION (REGION-PLUS (CAR (FIRST *REGION-ALIST*)) USER::*L-S-REGION-DELTA*))) (PUSH (CONS 
-NEW-REGION CONTEXT) *REGION-ALIST*) NEW-REGION)))) (T (SETF (CDR PAIR) CONTEXT) (CAR PAIR)))))
-(DEFUN SAVE-REGION (CONTEXT) (IL:* IL:|;;;| "The context is done with its region.  Deallocate it.") (
-LET ((PAIR (FIND CONTEXT *REGION-ALIST* :KEY (QUOTE CDR)))) (IF (NULL PAIR) (WARN 
-"An SEdit context is trying to give up an unallocated region.") (SETF (CDR PAIR) NIL)) (SETQ 
-*REGION-ALIST* (MEMBER-IF-NOT (QUOTE NULL) *REGION-ALIST* :KEY (QUOTE CDR)))))
-(USER::USE-L-S-REGIONS)
-(IL:PUTPROPS IL:LAYOUT-SEDIT IL:FILETYPE COMPILE-FILE)
-(IL:PUTPROPS IL:LAYOUT-SEDIT IL:MAKEFILE-ENVIRONMENT (:READTABLE "XCL" :PACKAGE (XCL:DEFPACKAGE 
-"LAYOUT-SEDIT" (:NICKNAMES "L-S"))))
-NIL
+(DEFINE-FILE-INFO READTABLE "XCL" PACKAGE (DEFPACKAGE "LAYOUT-SEDIT" (NICKNAMES "L-S")))
(IL:FILECREATED " 9-Sep-94 13:47:35" ("compiled on " IL:|{DSK}<lispcore>lispusers>LAYOUT-SEDIT.;1|) 
"28-Jul-94 17:28:46" IL:|bcompl'd| IL:|in| "Medley 25-Aug-94 ..." IL:|dated| "25-Aug-94 10:02:49")
(IL:FILECREATED " 9-Jan-87 19:55:25" IL:{ERIS}<LISPUSERS>LISPCORE>LAYOUT-SEDIT.\;2 7190 IL:|changes| 
IL:|to:| (IL:VARIABLES USER::*L-S-REGION-ZERO* USER::*L-S-REGION-DELTA* USER::*L-S-REUSE-EARLIER-REGIONS*
) (IL:FUNCTIONS GET-REGION SAVE-REGION USER::USE-L-S-REGIONS USER::STOP-USING-L-S-REGIONS) (IL:VARS 
IL:LAYOUT-SEDITCOMS) IL:|previous| IL:|date:| "26-Dec-86 19:42:46" IL:{ERIS}<PAVEL>LISP>LAYOUT-SEDIT.\;2
)
(IL:PRETTYCOMPRINT IL:LAYOUT-SEDITCOMS)
(IL:RPAQQ IL:LAYOUT-SEDITCOMS ((IL:FUNCTIONS USER::USE-L-S-REGIONS USER::STOP-USING-L-S-REGIONS) (
IL:VARIABLES *REGION-ALIST* USER::*L-S-REGION-ZERO* USER::*L-S-REGION-DELTA* 
USER::*L-S-REUSE-EARLIER-REGIONS*) (IL:FUNCTIONS REGION-PLUS) (IL:FUNCTIONS GET-REGION SAVE-REGION) (
IL:DECLARE\: IL:DONTEVAL@LOAD IL:DONTEVAL@COMPILE IL:DOCOPY (IL:P (USER::USE-L-S-REGIONS))) (IL:* 
IL:|;;| "Arrange to use the proper compiler and makefile environment ") (IL:PROP (IL:FILETYPE 
IL:MAKEFILE-ENVIRONMENT) IL:LAYOUT-SEDIT)))
(DEFUN USER::USE-L-S-REGIONS NIL (ASSERT (NULL IL:|\\\\contexts|) NIL "Close all open SEdit windows") 
(IL:SEDIT.RESET) (IL:MOVD (QUOTE IL:SEDIT.GET.WINDOW.REGION) (QUOTE OLD-GET-REGION)) (IL:MOVD (QUOTE 
IL:SEDIT.SAVE.WINDOW.REGION) (QUOTE OLD-SAVE-REGION)) (IL:MOVD (QUOTE GET-REGION) (QUOTE 
IL:SEDIT.GET.WINDOW.REGION)) (IL:MOVD (QUOTE SAVE-REGION) (QUOTE IL:SEDIT.SAVE.WINDOW.REGION)))
(DEFUN USER::STOP-USING-L-S-REGIONS NIL (ASSERT (NULL IL:|\\\\contexts|) NIL 
"Close all open SEdit windows") (IL:SEDIT.RESET) (IL:MOVD (QUOTE OLD-GET-REGION) (QUOTE 
IL:SEDIT.GET.WINDOW.REGION)) (IL:MOVD (QUOTE OLD-SAVE-REGION) (QUOTE IL:SEDIT.SAVE.WINDOW.REGION)))
(DEFVAR *REGION-ALIST* NIL (IL:* IL:|;;;| 
"An AList mapping a region to the SEdit context that currently owns it.  The associations of regions no longer in use should have a CDR of NIL.  The list is kept in reverse order, with the farthest region from *REGION-ZERO* at the front of the list.  So as to allow experimentation by users, we maintain the invariant that the first association on the list never has a CDR of NIL.  To reestablish that invariant, we sometimes POP the AList rather than set the CDR to NIL."
))
(DEFVAR USER::*L-S-REGION-ZERO* (IL:CREATEREGION 25 (- (TRUNCATE IL:SCREENHEIGHT 2) 19) (TRUNCATE 
IL:SCREENWIDTH 2) (TRUNCATE IL:SCREENHEIGHT 2)) (IL:* IL:|;;;| 
"The region to be used by the first SEdit window.  This works in conjunction with USER::*L-S-REGION-DELTA* to specify the region for each new SEdit window."
))
(DEFVAR USER::*L-S-REGION-DELTA* (IL:CREATEREGION 11 -44 0 0))
(DEFVAR USER::*L-S-REUSE-EARLIER-REGIONS* NIL (IL:* IL:|;;;| 
"If non-NIL, then earlier regions (i.e., those closer to USER::*L-S-REGION-ZERO* will get reused when free.  Otherwise, new regions, farther from USER::*L-S-REGION-ZERO* than any currently in use, will be created."
))
(DEFUN REGION-PLUS (ONE TWO) (IL:CREATEREGION (+ (IL:FETCH (IL:REGION IL:LEFT) IL:OF ONE) (IL:FETCH (
IL:REGION IL:LEFT) IL:OF TWO)) (+ (IL:FETCH (IL:REGION IL:BOTTOM) IL:OF ONE) (IL:FETCH (IL:REGION 
IL:BOTTOM) IL:OF TWO)) (+ (IL:FETCH (IL:REGION IL:WIDTH) IL:OF ONE) (IL:FETCH (IL:REGION IL:WIDTH) IL:OF
 TWO)) (+ (IL:FETCH (IL:REGION IL:HEIGHT) IL:OF ONE) (IL:FETCH (IL:REGION IL:HEIGHT) IL:OF TWO))))
(DEFUN GET-REGION (CONTEXT) (LET ((PAIR (AND USER::*L-S-REUSE-EARLIER-REGIONS* (FIND NIL 
*REGION-ALIST* :KEY (QUOTE CDR))))) (COND ((NULL PAIR) (COND ((NULL *REGION-ALIST*) (SETQ 
*REGION-ALIST* (LIST (CONS USER::*L-S-REGION-ZERO* CONTEXT))) USER::*L-S-REGION-ZERO*) (T (LET ((
NEW-REGION (REGION-PLUS (CAR (FIRST *REGION-ALIST*)) USER::*L-S-REGION-DELTA*))) (PUSH (CONS 
NEW-REGION CONTEXT) *REGION-ALIST*) NEW-REGION)))) (T (SETF (CDR PAIR) CONTEXT) (CAR PAIR)))))
(DEFUN SAVE-REGION (CONTEXT) (IL:* IL:|;;;| "The context is done with its region.  Deallocate it.") (
LET ((PAIR (FIND CONTEXT *REGION-ALIST* :KEY (QUOTE CDR)))) (IF (NULL PAIR) (WARN 
"An SEdit context is trying to give up an unallocated region.") (SETF (CDR PAIR) NIL)) (SETQ 
*REGION-ALIST* (MEMBER-IF-NOT (QUOTE NULL) *REGION-ALIST* :KEY (QUOTE CDR)))))
(USER::USE-L-S-REGIONS)
(IL:PUTPROPS IL:LAYOUT-SEDIT IL:FILETYPE COMPILE-FILE)
(IL:PUTPROPS IL:LAYOUT-SEDIT IL:MAKEFILE-ENVIRONMENT (:READTABLE "XCL" :PACKAGE (XCL:DEFPACKAGE 
"LAYOUT-SEDIT" (:NICKNAMES "L-S"))))
(IL:PUTPROPS IL:LAYOUT-SEDIT IL:COPYRIGHT ("Pavel Curtis" 1986 1987))
NIL

lispusers/PHONE-DIRECTORY

@@ -1,27 +1,32 @@
-(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
+(DEFINE-FILE-INFO §READTABLE "INTERLISP" §PACKAGE "INTERLISP")
+
(FILECREATED " 2-Feb-87 10:38:19" {ERIS}<LISPUSERS>LYRIC>PHONE-DIRECTORY.;1
 9029   
 
-
(FILECREATED "18-Feb-2026 16:27:33" {WMEDLEY}<lispusers>PHONE-DIRECTORY.;2
 8485   
+      changes to%:  (VARS PHONE-DIRECTORYCOMS)
 
-      :EDIT-BY rmk
+      previous date%: " 9-Jan-87 19:45:25" {ERIS}<LISPUSERS>KOTO>PHONE-DIRECTORY.;3)
 
-      :PREVIOUS-DATE " 2-Feb-87 10:38:19" {WMEDLEY}<lispusers>PHONE-DIRECTORY.;1)
 
+(* "
+Copyright (c) 1986, 1987 by Xerox Corporation.  All rights reserved.
+")
 
 (PRETTYCOMPRINT PHONE-DIRECTORYCOMS)
 
-(RPAQQ PHONE-DIRECTORYCOMS

-       ((FNS Cache-Phone-Directory-Files Let-your-fingers-do-the-walking Phone-Directory-Kill-Proc 
-             Phone-Window-ButtonEventFn Lookup-Person Phone-Window-WhenOpenedFn)
-        (VARS fingersIconMask fingersIconBM)
-        (INITVARS (*Cached-Phone-Directory-Files* NIL)
-               (*Phone-Directory-Pos* (create POSITION XCOORD _ 15 YCOORD _ (DIFFERENCE SCREENHEIGHT
-                                                                                   75)))
-               (*Phone-Directory-Region* (CREATEREGION 15 (DIFFERENCE SCREENHEIGHT 258)
-                                                400 250)))
-        (GLOBALVARS *Cached-Phone-Directory-Files* *Phone-Directory-Pos* *Phone-Directory-Region* 
-               fingersIconMask fingersIconBM)
-        (FILES GREP)
-        (P (Let-your-fingers-do-the-walking))))
+(RPAQQ PHONE-DIRECTORYCOMS
 ((FNS Cache-Phone-Directory-Files Let-your-fingers-do-the-walking 
+                                 Phone-Directory-Kill-Proc Phone-Window-ButtonEventFn Lookup-Person 
+                                 Phone-Window-WhenOpenedFn)
+                            (VARS fingersIconMask fingersIconBM)
+                            (INITVARS (*Cached-Phone-Directory-Files* NIL)
+                                   (*Phone-Directory-Pos* (create POSITION XCOORD _ 15 YCOORD _
+                                                                 (DIFFERENCE SCREENHEIGHT 75)))
+                                   (*Phone-Directory-Region* (CREATEREGION 15 (DIFFERENCE 
+                                                                                     SCREENHEIGHT 258
+                                                                                     )
+                                                                    400 250)))
+                            (GLOBALVARS *Cached-Phone-Directory-Files* *Phone-Directory-Pos* 
+                                   *Phone-Directory-Region* fingersIconMask fingersIconBM)
+                            (FILES GREP)
+                            (P (Let-your-fingers-do-the-walking))))
 (DEFINEQ
 
 (Cache-Phone-Directory-Files

@@ -134,12 +139,11 @@
 (GLOBALVARS *Cached-Phone-Directory-Files* *Phone-Directory-Pos* *Phone-Directory-Region* 
        fingersIconMask fingersIconBM)
 )
-
 (FILESLOAD GREP)
-
-(Let-your-fingers-do-the-walking
)
+(Let-your-fingers-do-the-walking)
+(PUTPROPS PHONE-DIRECTORY COPYRIGHT ("Xerox Corporation" 1986 1987))
 (DECLARE%: DONTCOPY
-  (FILEMAP (NIL (1168 5892 (Cache-Phone-Directory-Files 1178 . 2473) (Let-your-fingers-do-the-walking 
-2475 . 3770) (Phone-Directory-Kill-Proc 3772 . 4203) (Phone-Window-ButtonEventFn 4205 . 4881) (
-Lookup-Person 4883 . 5495) (Phone-Window-WhenOpenedFn 5497 . 5890)))))
+  (FILEMAP (NIL (1649 6373 (Cache-Phone-Directory-Files 1659 . 2954) (Let-your-fingers-do-the-walking 
+2956 . 4251) (Phone-Directory-Kill-Proc 4253 . 4684) (Phone-Window-ButtonEventFn 4686 . 5362) (
+Lookup-Person 5364 . 5976) (Phone-Window-WhenOpenedFn 5978 . 6371)))))
 STOP

lispusers/SKETCHCOLOR

@@ -1,11 +1,15 @@
-(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
+(DEFINE-FILE-INFO §READTABLE "INTERLISP" §PACKAGE "INTERLISP")
+
(FILECREATED " 9-Jan-87 16:47:16" {ERIS}<LISPCORE>LIBRARY>SKETCHCOLOR.;2
 4779   
 
-
(FILECREATED "18-Feb-2026 16:28:03" {WMEDLEY}<lispusers>SKETCHCOLOR.;2
 4732   
+      changes to%:  (VARS BLACKSHADE16 DARKGRAY16 MEDIUMGRAY16 LIGHTGRAY16 WHITESHADE16 REDTEXTURE 
+                          GREENTEXTURE BLUETEXTURE SKETCHCOLORCOMS)
 
-      :EDIT-BY rmk
+      previous date%: "29-Oct-85 14:44:30" {ERIS}<LISPCORE>LIBRARY>SKETCHCOLOR.;1)
 
-      :PREVIOUS-DATE " 9-Jan-87 16:47:16" {WMEDLEY}<lispusers>SKETCHCOLOR.;1)
 
+(* "
+Copyright (c) 1985, 1987 by Xerox Corporation.  All rights reserved.
+")
 
 (PRETTYCOMPRINT SKETCHCOLORCOMS)
 
@@ -71,30 +75,25 @@
 )
 
 (RPAQQ SKETCHINCOLORFLG
 T)
-
 (FILESLOAD COLOR STYLESHEET)
 
-[XCL:REINSTALL-ADVICE '\FILLCIRCLE.DISPLAY :BEFORE '((:LAST (COND
-                                                               ((LISTP TEXTURE)
-                                                                (COND
-                                                                   ((TEXTUREP (CAR TEXTURE))
-                                                                    (SETQ TEXTURE (CAR TEXTURE)))
-                                                                   (T (SETQ TEXTURE
-                                                                       (TEXTUREOFCOLOR (CADR TEXTURE]
-
-[XCL:REINSTALL-ADVICE '\POLYSHADE.DISPLAY :BEFORE '((:LAST (COND
-                                                              ((LISTP FILL.SHADE)
-                                                               (COND
-                                                                  ((TEXTUREP (CAR FILL.SHADE))
-                                                                   (SETQ FILL.SHADE (CAR FILL.SHADE))
-                                                                   )
-                                                                  (T (SETQ FILL.SHADE
-                                                                      (TEXTUREOFCOLOR (CADR 
-                                                                                           FILL.SHADE
-                                                                                            ]
+(PUTPROPS \FILLCIRCLE.DISPLAY READVICE
 [NIL (BEFORE NIL (COND ((LISTP TEXTURE)
+                                                               (COND ((TEXTUREP (CAR TEXTURE))
+                                                                      (SETQ TEXTURE (CAR TEXTURE)))
+                                                                     (T (SETQ TEXTURE
+                                                                              (TEXTUREOFCOLOR
+                                                                               (CADR TEXTURE])
 
+(PUTPROPS \POLYSHADE.DISPLAY READVICE
 [NIL (BEFORE NIL (COND ((LISTP FILL.SHADE)
+                                                              (COND ((TEXTUREP (CAR FILL.SHADE))
+                                                                     (SETQ FILL.SHADE (CAR FILL.SHADE
+                                                                                           )))
+                                                                    (T (SETQ FILL.SHADE
+                                                                             (TEXTUREOFCOLOR
+                                                                              (CADR FILL.SHADE])
 (READVISE \FILLCIRCLE.DISPLAY \POLYSHADE.DISPLAY)
+(PUTPROPS SKETCHCOLOR COPYRIGHT ("Xerox Corporation" 1985 1987))
 (DECLARE%: DONTCOPY
-  (FILEMAP (NIL (547 3144 (COLORTEXTURETEST 557 . 1904) (LEVELTEXTURE 1906 . 2438) (PRIMARYTEXTURE 2440
- . 3142)))))
+  (FILEMAP (NIL (771 3368 (COLORTEXTURETEST 781 . 2128) (LEVELTEXTURE 2130 . 2662) (PRIMARYTEXTURE 2664
+ . 3366)))))
 STOP

lispusers/TRANSOR

@@ -1,18 +1,16 @@
-(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
+(DEFINE-FILE-INFO §READTABLE "INTERLISP" §PACKAGE "INTERLISP")
+
(FILECREATED "17-Mar-87 17:03:54" {DSK}<XAVIER>TRANSOR.;16
 44778  
 
-
(FILECREATED "18-Feb-2026 21:57:19" {WMEDLEY}<lispusers>TRANSOR.;2
 43458  
+      changes to%:  (VARS TRANSORCOMS)
+                    (FNS PRECH1 TRANSOUT)
 
-      :EDIT-BY rmk
-
-      :CHANGES-TO (VARS TRANSORCOMS)
-
-      :PREVIOUS-DATE "17-Mar-87 17:03:54" {WMEDLEY}<lispusers>TRANSOR.;1)
+      previous date%: "17-Mar-87 17:00:04" {DSK}<XAVIER>TRANSOR.;15)
 
 
 (PRETTYCOMPRINT TRANSORCOMS)
 
-(RPAQQ TRANSORCOMS

-       [(FNS TRANSOR TRANSOR-PROCEED TRANSORFORM TRANSORFNS TRANSFORM TRANSIT TRANXT TRANSEXIT 
+(RPAQQ TRANSORCOMS
 
+       ((FNS TRANSOR TRANSOR-PROCEED TRANSORFORM TRANSORFNS TRANSFORM TRANSIT TRANXT TRANSEXIT 
              KEEPLIST TRANSERR TRANSOUT PPASS1 TRANSLIST TRANSLIST1 PREMTEXT WACHADOON PRECH PRECH1 
              PRECH2 RETAIL LNC PRESCAN)
         TRANSORMACROS TRANSOREMARKS TRANSORGLOBALS
@@ -20,10 +18,8 @@
               (TESTRAN)
               (USERMACROS (APPEND TRANSORMACROS USERMACROS))
               (GLOBALVARS (APPEND TRANSORGLOBALS GLOBALVARS))
-              (EDITCOMSA (UNION '(NLAM NLAMIT DOTHESE DOTHIS XFORMER CONTINUE)
-                                EDITCOMSA))
-              (EDITCOMSL (UNION '(REMARK)
-                                EDITCOMSL))
+              (EDITCOMSA (UNION '(NLAM NLAMIT DOTHESE DOTHIS XFORMER CONTINUE) EDITCOMSA))
+              (EDITCOMSL (UNION '(REMARK) EDITCOMSL))
               (TRANSITCONSES '(ORR NIL XFORMER))
               (PRESCARRAY (ARRAY 127 127)))
         (INITVARS (NLISTPCOMS)
@@ -40,9 +36,10 @@
                       (BLKLIBRARY TAILP MEMB LAST LENGTH ASSOC GETP))
                (NIL PRESCAN (GLOBALVARS PRESCARRAY)))
         (DECLARE%: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS (ADDVARS (NLAMA)
-                                                                             (NLAML TRANSERR KEEPLIST
+                                                                             (NLAML TRANSERR KEEPLIST 
                                                                                     TRANSOR-PROCEED)
-                                                                             (LAMA])
+                                                                             (LAMA)))
+        (EDITHIST TRANSOR)))
 (DEFINEQ
 
 (TRANSOR

@@ -864,49 +861,52 @@ TRANSOR made a translation error: " T)
           (RETURN (CLOSEF OUTF)))))
 )
 
-(RPAQQ TRANSORMACROS

-       ((REMARK (TXT)
-               (E (KEEPLIST TXT)
-                  T))
-        (NLAM NIL (E (SETQQ WHERETOGONEXT NLAMIT)
-                     T))
-        [NLAMIT NIL (ORR NX !NX ((E (TRANSEXIT]
-        (DOTHESE NIL (E (TRANSOR-PROCEED DOTHESE)
-                        T)
-               NLAM)
-        (DOTHIS NIL (E (TRANSOR-PROCEED DOTHIS)
-                       T)
-               NLAM)
-        (XFORMER NIL (E (TRANSERR TRANSFORMATIONERROR "FAULTY TRANSFORMATION" (CURRENTFORM 
-                                                                                     CURRENTCOMS))
-                        T))))
+(RPAQQ TRANSORMACROS
 ((REMARK (TXT)
+                             (E (KEEPLIST TXT)
+                                T))
+                      (NLAM NIL (E (SETQQ WHERETOGONEXT NLAMIT)
+                                   T))
+                      [NLAMIT NIL (ORR NX !NX ((E (TRANSEXIT]
+                      (DOTHESE NIL (E (TRANSOR-PROCEED DOTHESE)
+                                      T)
+                             NLAM)
+                      (DOTHIS NIL (E (TRANSOR-PROCEED DOTHIS)
+                                     T)
+                             NLAM)
+                      (XFORMER NIL (E (TRANSERR TRANSFORMATIONERROR "FAULTY TRANSFORMATION"
+                                             (CURRENTFORM CURRENTCOMS))
+                                      T))))
 
-(RPAQQ TRANSOREMARKS

-       ((TRANSFORMATIONERROR (* The TRANSFORMATIONS specified for this form failed to work properly.
-                                The TTY message %'FAULTY TRANSFORMATION' was printed, any commands 
-                                remaining in the transformation after the erroneous one were skipped,
-                                and translation continued as if the transformation had been normally
-                                completed. The user should treat the translated form with caution and
-                                amend his transformation to avoid future problems.))
-        (TRANSERROR (* TRANSOR got confused at this point. The TTY message %'SHOW JIM GOODWIN' was 
-                       printed and translation continued with the next form, but the user should 
-                       treat the compromised area of code with caution.))
-        (BLAMBDA1 (* Non-atomic CAR of form, but not an open lambda. Either a parenthesis error or 
-                     computed CAR of form. Computed CAR of form is no longer legal in BBN-LISP; 
-                     APPLY* is used instead. If computed CAR of form was intended, the translation to
-                     APPLY* will run ok. See manual for discussion of APPLY*.))
-        (BLAMBDA2 (* Open LAMBDA with wrong number of args. What can it mean?))
-        (BLAMBDA3 (* Lambda-expression without forms. What can it mean?))
-        (ILLCAR (* Illegal data-type encountered as CAR of form Expression treated as list of forms.)
-               )
-        (TAILP/DOTHIS (* When the transormacro DOTHIS is executed at a TAILP position, TRANSOR does a
-                         1 command first, assuming that the current position is a list of forms and 
-                         CAR of it is the form intended. The user should make sure that this is what
-                         was intended by the TRANSFORMATIONS which called DOTHIS, i.e. the 
-                         TRANSFORMATIONS for the form containing this one.))))
+(RPAQQ TRANSOREMARKS
 ((TRANSFORMATIONERROR (* The TRANSFORMATIONS specified for this form failed to 
+                                              work properly. The TTY message %'FAULTY TRANSFORMATION' 
+                                              was printed, any commands remaining in the 
+                                              transformation after the erroneous one were skipped, 
+                                              and translation continued as if the transformation had 
+                                              been normally completed. The user should treat the 
+                                              translated form with caution and amend his 
+                                              transformation to avoid future problems.))
+                      (TRANSERROR (* TRANSOR got confused at this point. The TTY message %'SHOW JIM 
+                                     GOODWIN' was printed and translation continued with the next 
+                                     form, but the user should treat the compromised area of code 
+                                     with caution.))
+                      (BLAMBDA1 (* Non-atomic CAR of form, but not an open lambda. Either a 
+                                   parenthesis error or computed CAR of form. Computed CAR of form is 
+                                   no longer legal in BBN-LISP; APPLY* is used instead. If computed 
+                                   CAR of form was intended, the translation to APPLY* will run ok. 
+                                   See manual for discussion of APPLY*.))
+                      (BLAMBDA2 (* Open LAMBDA with wrong number of args. What can it mean?))
+                      (BLAMBDA3 (* Lambda-expression without forms. What can it mean?))
+                      (ILLCAR (* Illegal data-type encountered as CAR of form Expression treated as 
+                                 list of forms.))
+                      (TAILP/DOTHIS (* When the transormacro DOTHIS is executed at a TAILP position, 
+                                       TRANSOR does a 1 command first, assuming that the current 
+                                       position is a list of forms and CAR of it is the form 
+                                       intended. The user should make sure that this is what was 
+                                       intended by the TRANSFORMATIONS which called DOTHIS, i.e. the 
+                                       TRANSFORMATIONS for the form containing this one.))))
 
 (RPAQQ TRANSORGLOBALS
 (USERNOTES USERNOTES TESTFORM TESTFORM TRANSFORMATIONS TRANSFORMATIONS 
-                             XFORMSFNS XFORMSVARS XFORMSVARS DUMPFILE TRANSFORMATIONS TRANSFORMATIONS
+                             XFORMSFNS XFORMSVARS XFORMSVARS DUMPFILE TRANSFORMATIONS TRANSFORMATIONS 
                              TRANSFORMATIONS TRANSFORMATIONS))
 
 (RPAQQ MAXLOOP
 1530)
@@ -917,11 +917,9 @@ TRANSOR made a translation error: " T)
 
 (RPAQ GLOBALVARS
 (APPEND TRANSORGLOBALS GLOBALVARS))
 
-(RPAQ EDITCOMSA
 (UNION '(NLAM NLAMIT DOTHESE DOTHIS XFORMER CONTINUE)
-                       EDITCOMSA))
+(RPAQ EDITCOMSA
 (UNION '(NLAM NLAMIT DOTHESE DOTHIS XFORMER CONTINUE) EDITCOMSA))
 
-(RPAQ EDITCOMSL
 (UNION '(REMARK)
-                       EDITCOMSL))
+(RPAQ EDITCOMSL
 (UNION '(REMARK) EDITCOMSL))
 
 (RPAQQ TRANSITCONSES
 (ORR NIL XFORMER))
 
@@ -934,7 +932,7 @@ TRANSOR made a translation error: " T)
 (RPAQ? TRANSOUTREADTABLE
 FILERDTBL)
 (DECLARE%: DOEVAL@LOAD DOEVAL@COMPILE DONTCOPY 
 
-(PUTPROPS TAILP
 BLKLIBRARYDEF
 [LAMBDA (.BLKVAR.X .BLKVAR.Y)
+(PUTPROPS TAILP BLKLIBRARYDEF
 [LAMBDA (.BLKVAR.X .BLKVAR.Y)
                                      (* True if .BLKVAR.X is A tail of .BLKVAR.Y .BLKVAR.X and 
                                         .BLKVAR.Y non-null.)
                                      (* Included with editor for block compilation purposes.)
@@ -946,19 +944,15 @@ TRANSOR made a translation error: " T)
                                                           (GO LP])
 )
 
-(PUTPROPS TRANSOR
 FILEGROUP
 (TRANSOR TSET))
+(PUTPROPS TRANSOR FILEGROUP
 (TRANSOR TSET))
 (DECLARE%: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY
-
 (BLOCK%: PRECHBLOCK PRECH PRECH1 PRECH2 RETAIL LNC (ENTRIES PRECH)
        (BLKLIBRARY TAILP MEMB LAST LENGTH ASSOC GETP))
-
 (BLOCK%: TRANSITBLOCK TRANSIT WACHADOON (ENTRIES TRANSIT WACHADOON)
        (GLOBALVARS WACHADID WHENTODOIT TRANSITCONSES LAMBDACOMS NLISTPCOMS)
        (BLKLIBRARY TAILP MEMB LAST LENGTH ASSOC GETP))
-
 (BLOCK%: TRANXTBLOCK TRANXT (ENTRIES TRANXT)
        (BLKLIBRARY TAILP MEMB LAST LENGTH ASSOC GETP))
-
 (BLOCK%: NIL PRESCAN (GLOBALVARS PRESCARRAY))
 )
 (DECLARE%: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS 
@@ -969,11 +963,23 @@ TRANSOR made a translation error: " T)
 
 (ADDTOVAR LAMA
 )
 )
+(DECLARE%: DONTCOPY 
+
+(ADDTOVAR EDITHISTALIST
 (TRANSOR (" 5-Feb-87 16:18:06" DJVB {DSK}<XAVIER>TRANSOR.;11 (TRANSOR)
+                                        (FIXED TO WORK WITH NEW FILE RULES IN LYRIC))
+                               (" 6-Feb-87 15:24:20" DJVB {DSK}<XAVIER>TRANSOR.;12 (TRANSOR))
+                               (" 6-Mar-87 14:41:26" DJVB {DSK}<XAVIER>TRANSOR.;13
+                                      (TRANSOR TRANSOR-PROCEED TRANSORFORM TRANSORFNS TRANSFORM 
+                                             RETAIL))
+                               ("17-Mar-87 17:01:53" DJVB {DSK}<XAVIER>TRANSOR.;15 (PRECH1 TRANSOUT)
+                                      (ADDED SPLIT READ/WRITE READTABLES AND PP FOR DEFUN))))
+)
+(PUTPROPS TRANSOR COPYRIGHT (NONE))
 (DECLARE%: DONTCOPY
-  (FILEMAP (NIL (2262 38355 (TRANSOR 2272 . 6315) (TRANSOR-PROCEED 6317 . 9124) (TRANSORFORM 9126 . 9558
-) (TRANSORFNS 9560 . 10256) (TRANSFORM 10258 . 11996) (TRANSIT 11998 . 14766) (TRANXT 14768 . 17981) (
-TRANSEXIT 17983 . 18293) (KEEPLIST 18295 . 19255) (TRANSERR 19257 . 20021) (TRANSOUT 20023 . 22467) (
-PPASS1 22469 . 22710) (TRANSLIST 22712 . 23731) (TRANSLIST1 23733 . 23965) (PREMTEXT 23967 . 24672) (
-WACHADOON 24674 . 25145) (PRECH 25147 . 25640) (PRECH1 25642 . 27810) (PRECH2 27812 . 28758) (RETAIL 
-28760 . 30007) (LNC 30009 . 30872) (PRESCAN 30874 . 38353)))))
+  (FILEMAP (NIL (2231 38324 (TRANSOR 2241 . 6284) (TRANSOR-PROCEED 6286 . 9093) (TRANSORFORM 9095 . 9527
+) (TRANSORFNS 9529 . 10225) (TRANSFORM 10227 . 11965) (TRANSIT 11967 . 14735) (TRANXT 14737 . 17950) (
+TRANSEXIT 17952 . 18262) (KEEPLIST 18264 . 19224) (TRANSERR 19226 . 19990) (TRANSOUT 19992 . 22436) (
+PPASS1 22438 . 22679) (TRANSLIST 22681 . 23700) (TRANSLIST1 23702 . 23934) (PREMTEXT 23936 . 24641) (
+WACHADOON 24643 . 25114) (PRECH 25116 . 25609) (PRECH1 25611 . 27779) (PRECH2 27781 . 28727) (RETAIL 
+28729 . 29976) (LNC 29978 . 30841) (PRESCAN 30843 . 38322)))))
 STOP

lispusers/TRANSOR-LOADTRAN

@@ -1,19 +1,25 @@
-(DEFINE-FILE-INFO PACKAGE "XCL-USER" READTABLE "XCL" BASE 10)
+(DEFINE-FILE-INFO §PACKAGE "XCL-USER" §READTABLE "XCL")
+
(IL:FILECREATED "13-Apr-87 17:38:17" IL:{DSK}<XAVIER>LOADTRAN.\;9
 2045   
 
-
(IL:FILECREATED "18-Feb-2026 22:58:35" IL:|{WMEDLEY}<lispusers>TRANSOR-LOADTRAN.;2|
 1561   
+      IL:|changes| IL:|to:|  (IL:VARS IL:LOADTRANCOMS STOP)
+                             (IL:FUNCTIONS MYLOAD I.S.OPR PRETTYCOMPRINT SETTEMPLATE DEFINE-FILE-INFO
+                                    )
+                             (IL:FNS PRETTYCOMPRINT SETTEMPLATE)
 
-      :EDIT-BY IL:|rmk|)
+      IL:|previous| IL:|date:| " 6-Apr-87 16:57:48" IL:{DSK}<XAVIER>LOADTRAN.\;1)
 
 
-(IL:PRETTYCOMPRINT IL:TRANSOR-LOADTRANCOMS)
+; Copyright (c) 1987 by System Development Corp..  All rights reserved.
 
-(IL:RPAQQ IL:TRANSOR-LOADTRANCOMS
 ((IL:VARS STOP)
-                                   (IL:FNS PRETTYCOMPRINT SETTEMPLATE)
-                                   (IL:FUNCTIONS DEFINE-FILE-INFO I.S.OPR MYLOAD)
-                                   (IL:DECLARE\: IL:DONTEVAL@LOAD IL:DOEVAL@COMPILE IL:DONTCOPY 
-                                          IL:COMPILERVARS (IL:ADDVARS (IL:NLAMA PRETTYCOMPRINT)
-                                                                 (IL:NLAML)
-                                                                 (IL:LAMA SETTEMPLATE)))))
+(IL:PRETTYCOMPRINT IL:LOADTRANCOMS)
+
+(IL:RPAQQ IL:LOADTRANCOMS
 ((IL:VARS STOP)
+                           (IL:FNS PRETTYCOMPRINT SETTEMPLATE)
+                           (IL:FUNCTIONS DEFINE-FILE-INFO I.S.OPR MYLOAD)
+                           (IL:DECLARE\: IL:DONTEVAL@LOAD IL:DOEVAL@COMPILE IL:DONTCOPY 
+                                  IL:COMPILERVARS (IL:ADDVARS (IL:NLAMA PRETTYCOMPRINT)
+                                                         (IL:NLAML)
+                                                         (IL:LAMA SETTEMPLATE)))))
 
 (IL:RPAQQ STOP
 STOP)
 (IL:DEFINEQ
@@ -27,17 +33,17 @@
          (BLOCK SETTEMPLATE (NILL))))
 )
 
-(DEFUN DEFINE-FILE-INFO
 (&REST ARGS)
-   (NILL))
+(DEFUN DEFINE-FILE-INFO
 (&REST ARGS) (NILL))
 
-(DEFUN I.S.OPR
 (X)
-   (NILL))
 
-(DEFUN MYLOAD
 (FILE)
-   (LET ((FILE (OPEN FILE :DIRECTION :INPUT)))
-        (UNWIND-PROTECT
-            (IL:\\CML-LOAD FILE T *TERMINAL-IO* (FIND-PACKAGE "XCL-USER"))
-            (CLOSE FILE))))
+(DEFUN I.S.OPR
 (X) (NILL))
+
+
+(DEFUN MYLOAD
 (FILE) (LET ((FILE (OPEN FILE :DIRECTION :INPUT)))
+                          (UNWIND-PROTECT (IL:\\CML-LOAD FILE T *TERMINAL-IO* (FIND-PACKAGE 
+                                                                                     "XCL-USER"))
+                                 (CLOSE FILE))))
+
 (IL:DECLARE\: IL:DONTEVAL@LOAD IL:DOEVAL@COMPILE IL:DONTCOPY IL:COMPILERVARS 
 
 (IL:ADDTOVAR IL:NLAMA
 PRETTYCOMPRINT)
@@ -46,7 +52,7 @@
 
 (IL:ADDTOVAR IL:LAMA
 SETTEMPLATE)
 )
+(IL:PUTPROPS IL:LOADTRAN IL:COPYRIGHT ("System Development Corp." 1987))
 (IL:DECLARE\: IL:DONTCOPY
-  (IL:FILEMAP (NIL (830 1053 (PRETTYCOMPRINT 843 . 979) (SETTEMPLATE 981 . 1051)) (1055 1106 (
-DEFINE-FILE-INFO 1055 . 1106)) (1108 1141 (I.S.OPR 1108 . 1141)) (1143 1341 (MYLOAD 1143 . 1341)))))
+  (IL:FILEMAP (NIL (1134 1357 (PRETTYCOMPRINT 1147 . 1283) (SETTEMPLATE 1285 . 1355)))))
 IL:STOP

lispusers/UNBOXEDOPS

@@ -1,15 +1,20 @@
-(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
+(DEFINE-FILE-INFO §PACKAGE "INTERLISP" §READTABLE "INTERLISP" §BASE 10)
+
(FILECREATED " 7-Dec-86 17:26:23" {ERIS}<LISPUSERS>LISPCORE>UNBOXEDOPS.;7
 12906  
 
-
(FILECREATED "18-Feb-2026 16:17:02" {WMEDLEY}<lispusers>UNBOXEDOPS.;2
 10856  
+      changes to%:  (OPTIMIZERS UFREMAINDER2 UFREMAINDER)
+                    (FNS UFREMAINDER)
+                    (VARS UNBOXEDOPSCOMS)
 
-      :EDIT-BY rmk
+      previous date%: " 3-Nov-86 20:30:24" {ERIS}<LISPUSERS>LISPCORE>UNBOXEDOPS.;6)
 
-      :PREVIOUS-DATE " 7-Dec-86 17:26:23" {WMEDLEY}<lispusers>UNBOXEDOPS.;1)
 
+(* "
+Copyright (c) 1986 by Xerox Corporation.  All rights reserved.
+")
 
 (PRETTYCOMPRINT UNBOXEDOPSCOMS)
 
-(RPAQQ UNBOXEDOPSCOMS

+(RPAQQ UNBOXEDOPSCOMS
 
        [(FNS UFABS UFEQP UFGEQ UFGREATERP UFIX UFLEQ UFLESSP UFMAX UFMIN UFMINUS UFREMAINDER)
         (OPTIMIZERS UFABS UFABS1 UFEQP UFEQP2 UFGEQ UFGEQ2 UFGREATERP UFGREATERP2 UFIX UFIX1 UFLEQ 
                UFLEQ2 UFLESSP UFLESSP2 UFMAX UFMAX2 UFMIN UFMIN2 UFMINUS UFMINUS1 UFREMAINDER)
@@ -76,168 +81,178 @@
                                              FY])
 )
 
-(DEFOPTIMIZER UFABS
 (&OPTIONAL (ARG1 NIL ARG1GIVEN)
-                           &REST RESTARGS &WHOLE ORIGINAL)
-                    (if
 (OR (NOT ARG1GIVEN)
-                            RESTARGS)
-                        then
 (PRINTOUT T "************" T)
-                             (PRINTOUT T "Illegal args to UFABS" %, %, ORIGINAL T)
-                             (PRINTOUT T "************" T))
-                    (LIST 'UFABS1 ARG1))
+(DEFOPTIMIZER UFABS
 (&OPTIONAL (ARG1 NIL ARG1GIVEN)
+                           &REST RESTARGS &WHOLE ORIGINAL) (if
 (OR (NOT ARG1GIVEN)
+                                                                   RESTARGS)
+                                                               then
 (PRINTOUT T "************" T)
+                                                                    (PRINTOUT T 
+                                                                           "Illegal args to UFABS" %, 
+                                                                           %, ORIGINAL T)
+                                                                    (PRINTOUT T "************" T))
+                                                           (LIST 'UFABS1 ARG1))
 
-(DEFOPTIMIZER UFABS1
 (X)
-                     `[\FLOATBOX ((OPCODES UBFLOAT1 2)
-                                  (\FLOATUNBOX ,X])
 
-(DEFOPTIMIZER UFEQP
 (&WHOLE ORIGINAL &OPTIONAL (ARG1 NIL ARG1GIVEN)
+(DEFOPTIMIZER UFABS1
 (X) `[\FLOATBOX ((OPCODES UBFLOAT1 2)
+                                      (\FLOATUNBOX ,X])
+
+
+(DEFOPTIMIZER UFEQP
 (&WHOLE ORIGINAL &OPTIONAL (ARG1 NIL ARG1GIVEN)
                            (ARG2 NIL ARG2GIVEN)
-                           &REST RESTARGS)
-                    (if
 (OR (NOT ARG1GIVEN)
-                            (NOT ARG2GIVEN)
-                            RESTARGS)
-                        then
 (PRINTOUT T "************" T)
-                             (PRINTOUT T "Illegal args to UFEQP" %, %, ORIGINAL T)
-                             (PRINTOUT T "************" T))
-                    (LIST 'UFEQP2 ARG1 ARG2))
+                           &REST RESTARGS) (if
 (OR (NOT ARG1GIVEN)
+                                                   (NOT ARG2GIVEN)
+                                                   RESTARGS)
+                                               then
 (PRINTOUT T "************" T)
+                                                    (PRINTOUT T "Illegal args to UFEQP" %, %, 
+                                                           ORIGINAL T)
+                                                    (PRINTOUT T "************" T))
+                                           (LIST 'UFEQP2 ARG1 ARG2))
 
-(DEFOPTIMIZER UFEQP2
 (X Y)
-                     `(EQ (\FLOATUNBOX (FDIFFERENCE ,X ,Y))
-                          NIL))
 
-(DEFOPTIMIZER UFGEQ
 (&WHOLE ORIGINAL &OPTIONAL (ARG1 NIL ARG1GIVEN)
+(DEFOPTIMIZER UFEQP2
 (X Y) `(EQ (\FLOATUNBOX (FDIFFERENCE ,X ,Y))
+                                NIL))
+
+
+(DEFOPTIMIZER UFGEQ
 (&WHOLE ORIGINAL &OPTIONAL (ARG1 NIL ARG1GIVEN)
                            (ARG2 NIL ARG2GIVEN)
-                           &REST RESTARGS)
-                    (if
 (OR (NOT ARG1GIVEN)
-                            (NOT ARG2GIVEN)
-                            RESTARGS)
-                        then
 (PRINTOUT T "************" T)
-                             (PRINTOUT T "Illegal args to UFGEQ" %, %, ORIGINAL T)
-                             (PRINTOUT T "************" T))
-                    (LIST 'UFGEQ2 ARG1 ARG2))
+                           &REST RESTARGS) (if
 (OR (NOT ARG1GIVEN)
+                                                   (NOT ARG2GIVEN)
+                                                   RESTARGS)
+                                               then
 (PRINTOUT T "************" T)
+                                                    (PRINTOUT T "Illegal args to UFGEQ" %, %, 
+                                                           ORIGINAL T)
+                                                    (PRINTOUT T "************" T))
+                                           (LIST 'UFGEQ2 ARG1 ARG2))
 
-(DEFOPTIMIZER UFGEQ2
 (X Y)
-                     `[NOT ((OPCODES SWAP UBFLOAT2 5)
-                            (\FLOATUNBOX ,X)
-                            (\FLOATUNBOX ,Y])
 
-(DEFOPTIMIZER UFGREATERP
 (&WHOLE ORIGINAL &OPTIONAL (ARG1 NIL ARG1GIVEN)
+(DEFOPTIMIZER UFGEQ2
 (X Y) `[NOT ((OPCODES SWAP UBFLOAT2 5)
+                                  (\FLOATUNBOX ,X)
+                                  (\FLOATUNBOX ,Y])
+
+
+(DEFOPTIMIZER UFGREATERP
 (&WHOLE ORIGINAL &OPTIONAL (ARG1 NIL ARG1GIVEN)
                                 (ARG2 NIL ARG2GIVEN)
-                                &REST RESTARGS)
-                         (if
 (OR (NOT ARG1GIVEN)
-                                 (NOT ARG2GIVEN)
-                                 RESTARGS)
-                             then
 (PRINTOUT T "************" T)
-                                  (PRINTOUT T "Illegal args to UFGREATERP" %, %, ORIGINAL T)
-                                  (PRINTOUT T "************" T))
-                         (LIST 'UFGREATERP2 ARG1 ARG2))
+                                &REST RESTARGS) (if
 (OR (NOT ARG1GIVEN)
+                                                        (NOT ARG2GIVEN)
+                                                        RESTARGS)
+                                                    then
 (PRINTOUT T "************" T)
+                                                         (PRINTOUT T "Illegal args to UFGREATERP" %, 
+                                                                %, ORIGINAL T)
+                                                         (PRINTOUT T "************" T))
+                                                (LIST 'UFGREATERP2 ARG1 ARG2))
 
-(DEFOPTIMIZER UFGREATERP2
 (X Y)
-                          `((OPCODES UBFLOAT2 5)
-                            (\FLOATUNBOX ,X)
-                            (\FLOATUNBOX ,Y)))
 
-(DEFOPTIMIZER UFIX
 (&WHOLE ORIGINAL &OPTIONAL (ARG1 NIL ARG1GIVEN)
-                          &REST RESTARGS)
-                   (if
 (OR (NOT ARG1GIVEN)
-                           RESTARGS)
-                       then
 (PRINTOUT T "************" T)
-                            (PRINTOUT T "Illegal args to UFIX" %, %, ORIGINAL T)
-                            (PRINTOUT T "************" T))
-                   (LIST 'UFIX1 ARG1))
+(DEFOPTIMIZER UFGREATERP2
 (X Y) `((OPCODES UBFLOAT2 5)
+                                  (\FLOATUNBOX ,X)
+                                  (\FLOATUNBOX ,Y)))
 
-(DEFOPTIMIZER UFIX1
 (X)
-                    `((OPCODES UBFLOAT1 4)
-                      (\FLOATUNBOX ,X)))
 
-(DEFOPTIMIZER UFLEQ
 (&WHOLE ORIGINAL &OPTIONAL (ARG1 NIL ARG1GIVEN)
+(DEFOPTIMIZER UFIX
 (&WHOLE ORIGINAL &OPTIONAL (ARG1 NIL ARG1GIVEN)
+                          &REST RESTARGS) (if
 (OR (NOT ARG1GIVEN)
+                                                  RESTARGS)
+                                              then
 (PRINTOUT T "************" T)
+                                                   (PRINTOUT T "Illegal args to UFIX" %, %, ORIGINAL 
+                                                          T)
+                                                   (PRINTOUT T "************" T))
+                                          (LIST 'UFIX1 ARG1))
+
+
+(DEFOPTIMIZER UFIX1
 (X) `((OPCODES UBFLOAT1 4)
+                          (\FLOATUNBOX ,X)))
+
+
+(DEFOPTIMIZER UFLEQ
 (&WHOLE ORIGINAL &OPTIONAL (ARG1 NIL ARG1GIVEN)
                            (ARG2 NIL ARG2GIVEN)
-                           &REST RESTARGS)
-                    (if
 (OR (NOT ARG1GIVEN)
-                            (NOT ARG2GIVEN)
-                            RESTARGS)
-                        then
 (PRINTOUT T "************" T)
-                             (PRINTOUT T "Illegal args to UFLEQ" %, %, ORIGINAL T)
-                             (PRINTOUT T "************" T))
-                    (LIST 'UFLEQ2 ARG1 ARG2))
+                           &REST RESTARGS) (if
 (OR (NOT ARG1GIVEN)
+                                                   (NOT ARG2GIVEN)
+                                                   RESTARGS)
+                                               then
 (PRINTOUT T "************" T)
+                                                    (PRINTOUT T "Illegal args to UFLEQ" %, %, 
+                                                           ORIGINAL T)
+                                                    (PRINTOUT T "************" T))
+                                           (LIST 'UFLEQ2 ARG1 ARG2))
 
-(DEFOPTIMIZER UFLEQ2
 (X Y)
-                     `[NOT ((OPCODES UBFLOAT2 5)
-                            (\FLOATUNBOX ,X)
-                            (\FLOATUNBOX ,Y])
 
-(DEFOPTIMIZER UFLESSP
 (&WHOLE ORIGINAL &OPTIONAL (ARG1 NIL ARG1GIVEN)
+(DEFOPTIMIZER UFLEQ2
 (X Y) `[NOT ((OPCODES UBFLOAT2 5)
+                                  (\FLOATUNBOX ,X)
+                                  (\FLOATUNBOX ,Y])
+
+
+(DEFOPTIMIZER UFLESSP
 (&WHOLE ORIGINAL &OPTIONAL (ARG1 NIL ARG1GIVEN)
                              (ARG2 NIL ARG2GIVEN)
-                             &REST RESTARGS)
-                      (if
 (OR (NOT ARG1GIVEN)
-                              (NOT ARG2GIVEN)
-                              RESTARGS)
-                          then
 (PRINTOUT T "************" T)
-                               (PRINTOUT T "Illegal args to UFLESSP" %, %, ORIGINAL T)
-                               (PRINTOUT T "************" T))
-                      (LIST 'UFLESSP2 ARG1 ARG2))
+                             &REST RESTARGS) (if
 (OR (NOT ARG1GIVEN)
+                                                     (NOT ARG2GIVEN)
+                                                     RESTARGS)
+                                                 then
 (PRINTOUT T "************" T)
+                                                      (PRINTOUT T "Illegal args to UFLESSP" %, %, 
+                                                             ORIGINAL T)
+                                                      (PRINTOUT T "************" T))
+                                             (LIST 'UFLESSP2 ARG1 ARG2))
 
-(DEFOPTIMIZER UFLESSP2
 (X Y)
-                       `((OPCODES SWAP UBFLOAT2 5)
-                         (\FLOATUNBOX ,X)
-                         (\FLOATUNBOX ,Y)))
 
-(DEFOPTIMIZER UFMAX
 (&OPTIONAL (ARG1 NIL ARG1GIVEN)
+(DEFOPTIMIZER UFLESSP2
 (X Y) `((OPCODES SWAP UBFLOAT2 5)
+                               (\FLOATUNBOX ,X)
+                               (\FLOATUNBOX ,Y)))
+
+
+(DEFOPTIMIZER UFMAX
 (&OPTIONAL (ARG1 NIL ARG1GIVEN)
                            (ARG2 NIL ARG2GIVEN)
-                           &REST RESTARGS)
-                    (if
 (NOT ARG1GIVEN)
-                        then
 'MIN.FLOAT
-                      elseif
 (NOT ARG2GIVEN)
-                        then
 `(FLOAT %, ARG1)
-                      elseif
 RESTARGS
-                        then
 `(UFMAX
 (UFMAX2 %, ARG1 %, ARG2)
-                                     ., RESTARGS)
-                      else
 (LIST 'UFMAX2 ARG1 ARG2)))
+                           &REST RESTARGS) (if
 (NOT ARG1GIVEN)
+                                               then
 'MIN.FLOAT
+                                             elseif
 (NOT ARG2GIVEN)
+                                               then
 `(FLOAT %, ARG1)
+                                             elseif
 RESTARGS
+                                               then
 `(UFMAX (UFMAX2 %, ARG1 %, ARG2)
+                                                            ., RESTARGS)
+                                             else
 (LIST 'UFMAX2 ARG1 ARG2)))
 
-(DEFOPTIMIZER UFMAX2
 (X Y)
-                     `[\FLOATBOX ((OPCODES UBFLOAT2 6)
-                                  (\FLOATUNBOX ,X)
-                                  (\FLOATUNBOX ,Y])
 
-(DEFOPTIMIZER UFMIN
 (&OPTIONAL (ARG1 NIL ARG1GIVEN)
+(DEFOPTIMIZER UFMAX2
 (X Y) `[\FLOATBOX ((OPCODES UBFLOAT2 6)
+                                        (\FLOATUNBOX ,X)
+                                        (\FLOATUNBOX ,Y])
+
+
+(DEFOPTIMIZER UFMIN
 (&OPTIONAL (ARG1 NIL ARG1GIVEN)
                            (ARG2 NIL ARG2GIVEN)
-                           &REST RESTARGS)
-                    (if
 (NOT ARG1GIVEN)
-                        then
 'MAX.FLOAT
-                      elseif
 (NOT ARG2GIVEN)
-                        then
 `(FLOAT %, ARG1)
-                      elseif
 RESTARGS
-                        then
 `(UFMIN
 (UFMIN2 %, ARG1 %, ARG2)
-                                     ., RESTARGS)
-                      else
 (LIST 'UFMIN2 ARG1 ARG2)))
+                           &REST RESTARGS) (if
 (NOT ARG1GIVEN)
+                                               then
 'MAX.FLOAT
+                                             elseif
 (NOT ARG2GIVEN)
+                                               then
 `(FLOAT %, ARG1)
+                                             elseif
 RESTARGS
+                                               then
 `(UFMIN (UFMIN2 %, ARG1 %, ARG2)
+                                                            ., RESTARGS)
+                                             else
 (LIST 'UFMIN2 ARG1 ARG2)))
 
-(DEFOPTIMIZER UFMIN2
 (X Y)
-                     `[\FLOATBOX ((OPCODES UBFLOAT2 7)
-                                  (\FLOATUNBOX ,X)
-                                  (\FLOATUNBOX ,Y])
 
-(DEFOPTIMIZER UFMINUS
 (&WHOLE ORIGINAL &OPTIONAL (ARG1 NIL ARG1GIVEN)
-                             &REST RESTARGS)
-                      (if
 (OR (NOT ARG1GIVEN)
-                              RESTARGS)
-                          then
 (PRINTOUT T "************" T)
-                               (PRINTOUT T "Illegal args to UFMINUS" %, %, ORIGINAL T)
-                               (PRINTOUT T "************" T))
-                      (LIST 'UFMINUS1 ARG1))
+(DEFOPTIMIZER UFMIN2
 (X Y) `[\FLOATBOX ((OPCODES UBFLOAT2 7)
+                                        (\FLOATUNBOX ,X)
+                                        (\FLOATUNBOX ,Y])
 
-(DEFOPTIMIZER UFMINUS1
 (X)
-                       `[\FLOATBOX ((OPCODES UBFLOAT1 3)
-                                    (\FLOATUNBOX ,X])
 
-(DEFOPTIMIZER UFREMAINDER
 (X Y)
-                          (CL:IF (AND (OR (CL:CONSTANTP X)
-                                          (CL:SYMBOLP X))
-                                      (OR (CL:CONSTANTP Y)
-                                          (CL:SYMBOLP Y)))
-                              `(FDIFFERENCE ,X (FTIMES [FLOAT (UFIX
 (FQUOTIENT ,X ,Y]
-                                                      ,Y))
-                              'COMPILER:PASS))
+(DEFOPTIMIZER UFMINUS
 (&WHOLE ORIGINAL &OPTIONAL (ARG1 NIL ARG1GIVEN)
+                             &REST RESTARGS) (if
 (OR (NOT ARG1GIVEN)
+                                                     RESTARGS)
+                                                 then
 (PRINTOUT T "************" T)
+                                                      (PRINTOUT T "Illegal args to UFMINUS" %, %, 
+                                                             ORIGINAL T)
+                                                      (PRINTOUT T "************" T))
+                                             (LIST 'UFMINUS1 ARG1))
 
-(PUTPROPS UNBOXEDOPS
 FILETYPE
 CL:COMPILE-FILE)
+
+(DEFOPTIMIZER UFMINUS1
 (X) `[\FLOATBOX ((OPCODES UBFLOAT1 3)
+                                        (\FLOATUNBOX ,X])
+
+
+(DEFOPTIMIZER UFREMAINDER
 (X Y) (CL:IF (AND (OR (CL:CONSTANTP X)
+                                                (CL:SYMBOLP X))
+                                            (OR (CL:CONSTANTP Y)
+                                                (CL:SYMBOLP Y)))
+                                       `(FDIFFERENCE ,X (FTIMES [FLOAT (UFIX (FQUOTIENT ,X
+                                                                                    ,Y]
+                                                               ,Y))
+                                       'COMPILER:PASS))
+
+
+(PUTPROPS UNBOXEDOPS FILETYPE
 CL:COMPILE-FILE)
 (DECLARE%: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY 
 (DECLARE%: DOEVAL@COMPILE DONTCOPY
 
@@ -252,8 +267,9 @@
 
 (ADDTOVAR LAMA
 UFMIN UFMAX)
 )
+(PUTPROPS UNBOXEDOPS COPYRIGHT ("Xerox Corporation" 1986))
 (DECLARE%: DONTCOPY
-  (FILEMAP (NIL (983 3183 (UFABS 993 . 1114) (UFEQP 1116 . 1239) (UFGEQ 1241 . 1363) (UFGREATERP 1365 . 
-1498) (UFIX 1500 . 1619) (UFLEQ 1621 . 1743) (UFLESSP 1745 . 1872) (UFMAX 1874 . 2276) (UFMIN 2278 . 
-2677) (UFMINUS 2679 . 2804) (UFREMAINDER 2806 . 3181)))))
+  (FILEMAP (NIL (1185 3385 (UFABS 1195 . 1316) (UFEQP 1318 . 1441) (UFGEQ 1443 . 1565) (UFGREATERP 1567
+ . 1700) (UFIX 1702 . 1821) (UFLEQ 1823 . 1945) (UFLESSP 1947 . 2074) (UFMAX 2076 . 2478) (UFMIN 2480
+ . 2879) (UFMINUS 2881 . 3006) (UFREMAINDER 3008 . 3383)))))
 STOP

lispusers/WHOCALLS

@@ -1,17 +1,19 @@
-(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "XCL" BASE 10)
+(DEFINE-FILE-INFO §PACKAGE "INTERLISP" §READTABLE "XCL" §BASE 10)
+
(filecreated "18-Dec-86 19:03:25" {eris}<lispcore>internal>library>whocalls.\;2
 4500   
 
-
(FILECREATED "18-Feb-2026 16:08:45" |{WMEDLEY}<lispusers>WHOCALLS.;2|
 4272   
+      |changes| |to:|  (fns distribute.callinfo distribute-call-info-for-symbol)
+                       (vars whocallscoms)
 
-      :EDIT-BY |rmk|
-
-      :PREVIOUS-DATE "18-Dec-86 19:03:25" |{WMEDLEY}<lispusers>WHOCALLS.;1|)
+      |previous| |date:| " 7-Nov-86 02:47:11" {eris}<lispusers>lispcore>whocalls.\;2)
 
 
-(PRETTYCOMPRINT WHOCALLSCOMS)
+; Copyright (c) 1986 by Xerox Corporation.  All rights reserved.
 
-(RPAQQ WHOCALLSCOMS
 ((FNS WHOCALLS WHOCALLS1 DISTRIBUTE.CALLINFO DISTRIBUTE-CALL-INFO-FOR-SYMBOL)
-                     (PROP PROPTYPE CALLEDBY USEDFREEBY USEDGLOBALBY BOUNDBY)))
-(DEFINEQ
+(prettycomprint whocallscoms)
+
+(rpaqq whocallscoms
 ((fns whocalls whocalls1 distribute.callinfo distribute-call-info-for-symbol)
+                     (prop proptype calledby usedfreeby usedglobalby boundby)))
+(defineq
 
 (WHOCALLS

   (LAMBDA (CALLEE USAGE)
@@ -76,14 +78,15 @@
                                                           x))))))
 )
 
-(PUTPROPS CALLEDBY
 PROPTYPE
 IGNORE)
+(putprops calledby proptype
 ignore)
 
-(PUTPROPS USEDFREEBY
 PROPTYPE
 IGNORE)
+(putprops usedfreeby proptype
 ignore)
 
-(PUTPROPS USEDGLOBALBY
 PROPTYPE
 IGNORE)
+(putprops usedglobalby proptype
 ignore)
 
-(PUTPROPS BOUNDBY
 PROPTYPE
 IGNORE)
-(DECLARE\: DONTCOPY
-  (FILEMAP (NIL (466 4064 (WHOCALLS 476 . 1870) (WHOCALLS1 1872 . 3004) (DISTRIBUTE.CALLINFO 3006 . 3232
-) (DISTRIBUTE-CALL-INFO-FOR-SYMBOL 3234 . 4062)))))
-STOP
+(putprops boundby proptype
 ignore)
+(putprops whocalls copyright ("Xerox Corporation" 1986))
+(declare\: dontcopy
+  (filemap (nil (653 4251 (whocalls 663 . 2057) (whocalls1 2059 . 3191) (distribute.callinfo 3193 . 3419
+) (distribute-call-info-for-symbol 3421 . 4249)))))
+stop

lispusers/compilebang

@@ -1,11 +1,14 @@
-(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
+(DEFINE-FILE-INFO §PACKAGE "INTERLISP" §READTABLE "INTERLISP" §BASE 10)
+
(FILECREATED "22-Dec-86 18:42:34" {ERIS}<LISPUSERS>LISPCORE>COMPILEBANG.;3
 3465   
 
-
(FILECREATED "18-Feb-2026 16:23:37" {WMEDLEY}<lispusers>compilebang.;2
 3232   
+      changes to%:  (FNS COMPILE!)
 
-      :EDIT-BY rmk
+      previous date%: "18-Nov-86 22:23:43" {ERIS}<LISPUSERS>LISPCORE>COMPILEBANG.;2)
 
-      :PREVIOUS-DATE "22-Dec-86 18:42:34" {WMEDLEY}<lispusers>compilebang.;1)
 
+(* "
+Copyright (c) 1982, 1983, 1984, 1986 by Xerox Corporation.  All rights reserved.
+")
 
 (PRETTYCOMPRINT COMPILEBANGCOMS)
 
@@ -60,22 +63,23 @@
                                                  NIL NIL T))
                                (T C))))
 
-(ADDTOVAR USERMACROS

-          [C NIL (ORR (UP 1)
-                      NIL)
-             (ORR ((E (COMPILE! (OR (LISTP (%##))
-                                    (%## !0))
-                             T T T)))
-                  ((E 'C?])
+(ADDTOVAR USERMACROS
 [C NIL (ORR (UP 1)
+                                 NIL)
+                        (ORR ((E (COMPILE! (OR (LISTP (%##))
+                                               (%## !0))
+                                        T T T)))
+                             ((E 'C?])
 
 (ADDTOVAR EDITCOMSA
 C)
 
-(DEFCOMMAND (C :EVAL) (&REST LISPXLINE) (COND
-                                           (LISPXLINE (COMPILE!
 (CAR LISPXLINE)
+(DEFCOMMAND (C
 :EVAL) (&REST LISPXLINE) (COND
+                                           (LISPXLINE (COMPILE! (CAR LISPXLINE)
                                                              NIL NIL T))
                                            (T C)))
 
-(PUTPROPS COMPILEBANG
 FILETYPE
 CL:COMPILE-FILE)
+
+(PUTPROPS COMPILEBANG FILETYPE
 CL:COMPILE-FILE)
+(PUTPROPS COMPILEBANG COPYRIGHT ("Xerox Corporation" 1982 1983 1984 1986))
 (DECLARE%: DONTCOPY
-  (FILEMAP (NIL (506 2451 (COMPILE! 516 . 2449)))))
+  (FILEMAP (NIL (622 2567 (COMPILE! 632 . 2565)))))
 STOP

sources/ADIR

@@ -1,12 +1,12 @@
 (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
 
-
(FILECREATED " 5-Feb-2026 10:27:45" {WMEDLEY}<sources>ADIR.;67
 70247  
+
(FILECREATED "15-Oct-2025 15:20:48" {WMEDLEY}<sources>ADIR.;62
 70135  
 
       :EDIT-BY rmk
 
-      :CHANGES-TO (FNS INTERPRET.REM.CM)
+      :CHANGES-TO (MACROS \UPF.EXTRACT)
 
-      :PREVIOUS-DATE " 1-Feb-2026 13:17:10" {WMEDLEY}<sources>ADIR.;66)
+      :PREVIOUS-DATE " 6-Feb-2025 17:48:54" {WMEDLEY}<sources>ADIR.;61)
 
 
 (PRETTYCOMPRINT ADIRCOMS)
@@ -1179,8 +1179,7 @@
     HERALDSTRING])
 
 (INTERPRET.REM.CM

-  [LAMBDA (RETFLG)
                                           (* ; "Edited  1-Feb-2026 17:49 by rmk")


-                                                           (* ; "Edited 15-Mar-2021 12:27 by larry")

+  [LAMBDA (RETFLG)
                                         (* ; "Edited 15-Mar-2021 12:27 by larry")

     (DECLARE
 (GLOBALVARS STARTUPFORM))
 
 (* ;;; "Looks at REM.CM and evaluates the form there if the first character of the file is open paren or doublequote.  If it's a string, it will be unread,, else the form will be evaluated at the next prompt.  For use in INIT.LISP, among others.  If RETFLG is true, the expression read is simply returned")

@@ -1188,22 +1187,23 @@
     (PROG ([FILE (INFILEP
 (PACKFILENAME
 'HOST '{DSK} 'BODY (UNIX-GETENV "LDEREMCM"]
            COM)
           (OR FILE (RETURN))
-          [SETQ FILE (OPENSTREAM
 FILE 'INPUT 'OLD '((:EXTERNAL-FORMAT :UTF-8]
+          (SETQ FILE (OPENSTREAM
 FILE 'INPUT))
           (COND
-             ([AND (IGREATERP (GETFILEINFO FILE 'LENGTH)
+             [[AND (IGREATERP (GETFILEINFO FILE 'LENGTH)
                           0)
                    (EQ (SKIPSEPRS FILE T)
                        '%")
                    (SETQ COM (CAR (NLSETQ (READ FILE T]
               (CLOSEF FILE)
-              (CL:UNLESS RETFLG                              (* ; 
-
                                                       "Save it to return; otherwise unread a string")

+              (COND
+                 (RETFLG                                     (* ; "Save it to return")
)
+                 (T                                          (* ; "Unread a string")

                                                              (* ; 
 
                                     "RMK: Replace CR and LF by space to avoid EOL convention issues")

-                  (for
 I from
 1 to
 (NCHARS COM) when
 (FMEMB (NTHCHARCODE COM I)
-                                                            (CHARCODE (CR LF EOL)))
-                     do
 (RPLCHARCODE COM I (CHARCODE EOL)))
-                  (BKSYSBUF COM)))
+                    (for
 I from
 1 to
 (NCHARS COM) when
 (FMEMB (NTHCHARCODE COM I)
+                                                              (CHARCODE (CR LF EOL)))
+                       do
 (RPLCHARCODE COM I (CHARCODE EOL)))
+                    (BKSYSBUF COM]
              (T (CLOSEF FILE)))
           (RETURN (COND
                      (RETFLG COM)
@@ -1282,14 +1282,14 @@
 (ADDTOVAR LAMA
 PACKFILENAME.STRING PACKFILENAME)
 )
 (DECLARE%: DONTCOPY
-  (FILEMAP (NIL (3171 15998 (DELFILE 3181 . 3342) (FULLNAME 3344 . 3711) (INFILE 3713 . 3972) (INFILEP 
-3974 . 4109) (IOFILE 4111 . 4362) (OPENFILE 4364 . 4667) (OPENSTREAM 4669 . 9009) (OUTFILE 9011 . 9273
-) (OUTFILEP 9275 . 9411) (RENAMEFILE 9413 . 9719) (SIMPLE.FINDFILE 9721 . 10131) (VMEMSIZE 10133 . 
-10300) (\COPYSYS 10302 . 14593) (\FLUSHVM 14595 . 15667) (\LOGOUT0 15669 . 15996)) (16497 41157 (
-UNPACKFILENAME.STRING 16507 . 38343) (\UPF.DIRECTORY 38345 . 41155)) (42742 45048 (UNPACKFILENAME 
-42752 . 42938) (LASTCHPOS 42940 . 43634) (FILENAMEFIELD 43636 . 43930) (FILENAMEFIELD.STRING 43932 . 
-44336) (PACKFILENAME 44338 . 44681) (PACKFILENAME.STRING 44683 . 45046)) (59518 60431 (
-FILEDIRCASEARRAY 59528 . 60429)) (60598 68006 (LOGOUT 60608 . 61653) (MAKESYS 61655 . 63284) (SYSOUT 
-63286 . 64838) (SAVEVM 64840 . 65640) (HERALD 65642 . 65802) (INTERPRET.REM.CM 65804 . 67629) (
-\USEREVENT 67631 . 68004)) (68188 69915 (USERNAME 68198 . 69154) (SETUSERNAME 69156 . 69913)))))
+  (FILEMAP (NIL (3170 15997 (DELFILE 3180 . 3341) (FULLNAME 3343 . 3710) (INFILE 3712 . 3971) (INFILEP 
+3973 . 4108) (IOFILE 4110 . 4361) (OPENFILE 4363 . 4666) (OPENSTREAM 4668 . 9008) (OUTFILE 9010 . 9272
+) (OUTFILEP 9274 . 9410) (RENAMEFILE 9412 . 9718) (SIMPLE.FINDFILE 9720 . 10130) (VMEMSIZE 10132 . 
+10299) (\COPYSYS 10301 . 14592) (\FLUSHVM 14594 . 15666) (\LOGOUT0 15668 . 15995)) (16496 41156 (
+UNPACKFILENAME.STRING 16506 . 38342) (\UPF.DIRECTORY 38344 . 41154)) (42741 45047 (UNPACKFILENAME 
+42751 . 42937) (LASTCHPOS 42939 . 43633) (FILENAMEFIELD 43635 . 43929) (FILENAMEFIELD.STRING 43931 . 
+44335) (PACKFILENAME 44337 . 44680) (PACKFILENAME.STRING 44682 . 45045)) (59517 60430 (
+FILEDIRCASEARRAY 59527 . 60428)) (60597 67894 (LOGOUT 60607 . 61652) (MAKESYS 61654 . 63283) (SYSOUT 
+63285 . 64837) (SAVEVM 64839 . 65639) (HERALD 65641 . 65801) (INTERPRET.REM.CM 65803 . 67517) (
+\USEREVENT 67519 . 67892)) (68076 69803 (USERNAME 68086 . 69042) (SETUSERNAME 69044 . 69801)))))
 STOP

sources/ATERM

@@ -1,13 +1,16 @@
 (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
 
-
(FILECREATED " 9-Feb-2026 15:49:51" {WMEDLEY}<sources>ATERM.;7
 56918  
+
(FILECREATED "20-Jul-2022 17:05:17" {DSK}<Users>kaplan>Local>medley3.5>working-medley>sources>ATERM.;5
 57463  
 
-      :EDIT-BY rmk
+      :CHANGES-TO (FNS \CHDEL1)
 
-      :CHANGES-TO (FNS \CREATELINEBUFFER)
+      :PREVIOUS-DATE "19-Jul-2022 22:49:20" 
+{DSK}<Users>kaplan>Local>medley3.5>working-medley>sources>ATERM.;4)
 
-      :PREVIOUS-DATE "20-Jul-2022 17:05:17" {WMEDLEY}<sources>ATERM.;5)
 
+(* ; "
+Copyright (c) 1982-1988, 1990, 2021 by Venue & Xerox Corporation.
+")
 
 (PRETTYCOMPRINT ATERMCOMS)
 
@@ -912,33 +915,39 @@
           (RETURN STREAM])
 
 (\CREATELINEBUFFER

-  [LAMBDA (TERMINAL.STREAM)
                                  (* ; "Edited  9-Feb-2026 15:49 by rmk")


-                                                            (* ; "Edited 29-Apr-2021 09:38 by rmk:")

+  [LAMBDA (TERMINAL.STREAM)
                             (* ; "Edited 29-Apr-2021 09:38 by rmk:")

 
-    (* ;; 
-
    "Create a new stream that buffers the raw input from TERMINAL.STREAM (default is the keyboard).")

+    (* ;; 
+
  "Create a new stream that buffers the raw input from TERMINAL.STREAM (default is the keyboard).")

 
-    (LET* ([STREAM (\OPENFILE '{LINEBUFFER} 'BOTH 'NEW '((:EXTERNAL-FORMAT :THROUGH16]
+    (LET* ([STREAM (\OPENFILE '{LINEBUFFER} 'BOTH 'NEW '((CHARSET T]
            (DEV (fetch
 (STREAM DEVICE) of
 STREAM))
            EOFMETHOD)
           (replace
 LINEBUFSTATE of
 STREAM with
 READING.LBS)
-          (replace
 (LINEBUFFER KEYBOARDSTREAM) of
 STREAM with
 (OR TERMINAL.STREAM \KEYBOARD.STREAM))
+          (replace
 (LINEBUFFER KEYBOARDSTREAM) of
 STREAM with
 (OR TERMINAL.STREAM 
+                                                                              \KEYBOARD.STREAM))
           (replace
 USERCLOSEABLE of
 STREAM with
 NIL)
-          (replace
 USERVISIBLE of
 STREAM with
 NIL)           (* ; 
-
                                                           "Other linebuffer fields default properly")

+          (replace
 USERVISIBLE of
 STREAM with
 NIL)
+                                                             (* ; 
+
                                                         "Other linebuffer fields default properly")

           [replace
 ENDOFSTREAMOP of
 STREAM with
 (FUNCTION (LAMBDA (STREAM)
-                                                            (CL:FUNCALL \RefillBufferFn]
+                                                                        (CL:FUNCALL \RefillBufferFn]
           (replace
 (STREAM EOLCONVENTION) of
 STREAM with
 CR.EOLC)
-                                                             (* ; 
-
                                                  "RMK: Terminal is CR, even if stream default is LF")

-          (if
 (AND TERMINAL.STREAM (NEQ (SETQ EOFMETHOD (fetch
 (FDEV EOFP) of
 TERMINAL.STREAM))
-                                        'NILL))
+                                                             (* ; 
+
                                                "RMK: Terminal is CR, even if stream default is LF")

+          (if
 (AND TERMINAL.STREAM (NEQ (SETQ EOFMETHOD (fetch
 (FDEV EOFP) of
 
+                                                                                      TERMINAL.STREAM
+                                                                   ))
+                                            'NILL))
               then
 
-                   (* ;; "Need to install an eof method for the buffered stream that looks at TERMINAL.STREAM when the buffer runs out.  This is optimized away for the normal keyboard case, which never runs out.")

 
-                   (replace
 (STREAM DEVICE) of
 STREAM with
 (SETQ DEV (NCREATE 'FDEV DEV))) 
-                                                             (* ; "Copy the basic linebuffer device")

-                   (replace
 (FDEV EOFP) of
 DEV with
 EOFMETHOD))
+                    (* ;; "Need to install an eof method for the buffered stream that looks at TERMINAL.STREAM when the buffer runs out.  This is optimized away for the normal keyboard case, which never runs out.")

+
+                    (replace
 (STREAM DEVICE) of
 STREAM with
 (SETQ DEV (NCREATE
+                                                                                   'FDEV DEV))) 
+                                                             (* ; 
+
                                                           "Copy the basic linebuffer device")

+                    (replace
 (FDEV EOFP) of
 DEV with
 EOFMETHOD))
           STREAM])
 
 (\LINEBUF.READP

@@ -1133,19 +1142,20 @@
 
 (ADDTOVAR LAMA
 VIDEOCOLOR TERMINAL-OUTPUT TERMINAL-INPUT)
 )
+(PUTPROPS ATERM COPYRIGHT ("Venue & Xerox Corporation" 1982 1983 1984 1985 1986 1987 1988 1990 2021))
 (DECLARE%: DONTCOPY
-  (FILEMAP (NIL (2854 31931 (BKLINBUF 2864 . 3339) (CLEARBUF 3341 . 4673) (LINBUF 4675 . 4861) (
-PAGEFULLFN 4863 . 6344) (SETLINELENGTH 6346 . 6542) (SYSBUF 6544 . 6730) (TERMCHARWIDTH 6732 . 7149) (
-TERMINAL-INPUT 7151 . 7719) (TERMINAL-OUTPUT 7721 . 8307) (\CHDEL1 8309 . 8698) (\CLOSELINE 8700 . 
-8989) (\DECPARENCOUNT 8991 . 10574) (\ECHOCHAR 10576 . 11268) (\FILLBUFFER 11270 . 24261) (
-\FILLBUFFER.WORDSEPRP 24263 . 24508) (\FILLBUFFER.BACKUP 24510 . 24689) (\GETCHAR 24691 . 25080) (
-\INCPARENCOUNT 25082 . 27694) (\RESETLINE 27696 . 28020) (\RESETTERMINAL 28022 . 28786) (\SAVELINEBUF 
-28788 . 30759) (\STOPSCROLL? 30761 . 31929)) (32134 35990 (\DSCCOUT 32144 . 35284) (\INITBCPLDISPLAY 
-35286 . 35988)) (36183 37433 (VIDEOCOLOR 36193 . 37431)) (38201 44055 (\PEEKREFILL 38211 . 42322) (
-\READREFILL 42324 . 42918) (\RATOM/RSTRING-REFILL 42920 . 43498) (\READCREFILL 43500 . 44053)) (44056 
-45885 (DRIBBLE 44066 . 45667) (DRIBBLEFILE 45669 . 45883)) (45886 52246 (\SETUP.DEFAULT.LINEBUF 45896
- . 48353) (\CREATELINEBUFFER 48355 . 50462) (\LINEBUF.READP 50464 . 50813) (\LINEBUF.EOFP 50815 . 
-51154) (\LINEBUF.PEEKBIN 51156 . 51363) (\OPENLINEBUF 51365 . 52244)) (52321 53560 (LINEBUFFER-EOFP 
-52331 . 52789) (LINEBUFFER-SKIPSEPRS 52791 . 53558)) (53917 54191 (\INTERMP 53927 . 54058) (\OUTTERMP 
-54060 . 54189)))))
+  (FILEMAP (NIL (2982 32059 (BKLINBUF 2992 . 3467) (CLEARBUF 3469 . 4801) (LINBUF 4803 . 4989) (
+PAGEFULLFN 4991 . 6472) (SETLINELENGTH 6474 . 6670) (SYSBUF 6672 . 6858) (TERMCHARWIDTH 6860 . 7277) (
+TERMINAL-INPUT 7279 . 7847) (TERMINAL-OUTPUT 7849 . 8435) (\CHDEL1 8437 . 8826) (\CLOSELINE 8828 . 
+9117) (\DECPARENCOUNT 9119 . 10702) (\ECHOCHAR 10704 . 11396) (\FILLBUFFER 11398 . 24389) (
+\FILLBUFFER.WORDSEPRP 24391 . 24636) (\FILLBUFFER.BACKUP 24638 . 24817) (\GETCHAR 24819 . 25208) (
+\INCPARENCOUNT 25210 . 27822) (\RESETLINE 27824 . 28148) (\RESETTERMINAL 28150 . 28914) (\SAVELINEBUF 
+28916 . 30887) (\STOPSCROLL? 30889 . 32057)) (32262 36118 (\DSCCOUT 32272 . 35412) (\INITBCPLDISPLAY 
+35414 . 36116)) (36311 37561 (VIDEOCOLOR 36321 . 37559)) (38329 44183 (\PEEKREFILL 38339 . 42450) (
+\READREFILL 42452 . 43046) (\RATOM/RSTRING-REFILL 43048 . 43626) (\READCREFILL 43628 . 44181)) (44184 
+46013 (DRIBBLE 44194 . 45795) (DRIBBLEFILE 45797 . 46011)) (46014 52689 (\SETUP.DEFAULT.LINEBUF 46024
+ . 48481) (\CREATELINEBUFFER 48483 . 50905) (\LINEBUF.READP 50907 . 51256) (\LINEBUF.EOFP 51258 . 
+51597) (\LINEBUF.PEEKBIN 51599 . 51806) (\OPENLINEBUF 51808 . 52687)) (52764 54003 (LINEBUFFER-EOFP 
+52774 . 53232) (LINEBUFFER-SKIPSEPRS 53234 . 54001)) (54360 54634 (\INTERMP 54370 . 54501) (\OUTTERMP 
+54503 . 54632)))))
 STOP

sources/EXTERNALFORMAT

@@ -1,13 +1,12 @@
 (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
 
-
(FILECREATED " 9-Feb-2026 15:54:22" {WMEDLEY}<sources>EXTERNALFORMAT.;120
 47422  
+
(FILECREATED "29-Jan-2026 21:09:02" {WMEDLEY}<sources>EXTERNALFORMAT.;92
 39722  
 
       :EDIT-BY rmk
 
-      :CHANGES-TO (VARS EXTERNALFORMATCOMS)
-                  (FNS \CREATE.THROUGH16.EXTERNALFORMAT \CREATE.THROUGH.EXTERNALFORMAT)
+      :CHANGES-TO (FNS \EXTERNALFORMAT)
 
-      :PREVIOUS-DATE " 6-Feb-2026 23:21:32" {WMEDLEY}<sources>EXTERNALFORMAT.;116)
+      :PREVIOUS-DATE "24-Apr-2025 08:43:01" {WMEDLEY}<sources>EXTERNALFORMAT.;91)
 
 
 (PRETTYCOMPRINT EXTERNALFORMATCOMS)
@@ -20,12 +19,10 @@
               (SYSRECORDS EXTERNALFORMAT)
               (FNS \EXTERNALFORMAT MAKE-EXTERNALFORMAT \EXTERNALFORMAT.DEFPRINT)
               (FNS \INSTALL.EXTERNALFORMAT \REMOVE.EXTERNALFORMAT FIND-FORMAT)
-              (EXPORT (GLOBALVARS *EXTERNALFORMATS* *DEFAULT-EXTERNALFORMAT*))
+              (FNS SYSTEM-EXTERNALFORMAT)
+              (GLOBALVARS *EXTERNALFORMATS* *DEFAULT-EXTERNALFORMAT*)
               (INITVARS (*EXTERNALFORMATS* NIL)
                      (*DEFAULT-EXTERNALFORMAT* :MCCS))
-              (COMS (FNS SYSTEM-EXTERNALFORMAT MTOSYSSTRING SYSTOMSTRING)
-                    (EXPORT (GLOBALVARS *SYSTEM-EXTERNALFORMAT*))
-                    (INITVARS (*SYSTEM-EXTERNALFORMAT* :UTF-8)))
               (DECLARE%: DONTEVAL@LOAD DOCOPY (P (DEFPRINT 'EXTERNALFORMAT (FUNCTION 
                                                                              \EXTERNALFORMAT.DEFPRINT
                                                                                   ]
@@ -33,8 +30,7 @@
               (* ;; "Generic functions not compiled open (originally on LLREAD)")

 
               (FNS \OUTCHAR \INCCODE \BACKCCODE \BACKCCODE.EOLC \PEEKCCODE \PEEKCCODE.EOLC 
-                   \INCCODE.EOLC \FORMATBYTESTREAM \CHECKEOLC.CRLF)
-              (FNS MCCSTOFORMATBYTES FORMATBYTESTOMCCS)
+                   \INCCODE.EOLC \FORMATBYTESTREAM \FORMATBYTESTRING \CHECKEOLC.CRLF)
               (DECLARE%: DOEVAL@COMPILE DONTCOPY (EXPORT (MACROS \CHECKEOLC))
                      (RESOURCES \FORMATBYTESTRING.STREAM))
               (INITRESOURCES \FORMATBYTESTRING.STREAM))
@@ -42,12 +38,10 @@
               (FNS \NULLDEVICE \NULL.OPENFILE)
               (DECLARE%: DONTEVAL@LOAD DOCOPY (P (\NULLDEVICE]
         (COMS 
-              (* ;; "Also from FILEIO.")

+              (* ;; "Also from FILEIO, but not clear that this is or ever has been used.")

 
-              (FNS \CREATE.THROUGH.EXTERNALFORMAT \CREATE.THROUGH16.EXTERNALFORMAT \THROUGHIN 
-                   \THROUGHBACKCCODE \THROUGHOUTCHARFN)
-              (DECLARE%: DONTEVAL@LOAD DOCOPY (P (\CREATE.THROUGH.EXTERNALFORMAT)
-                                                 (\CREATE.THROUGH16.EXTERNALFORMAT])
+              (FNS \CREATE.THROUGH.EXTERNALFORMAT \THROUGHIN \THROUGHBACKCCODE \THROUGHOUTCHARFN)
+              (DECLARE%: DONTEVAL@LOAD DOCOPY (P (\CREATE.THROUGH.EXTERNALFORMAT])
 
 
 
@@ -73,18 +67,15 @@
                           (EF1 POINTER)                      (* ; 
 
      "Extra fields for use of particular formats.  Possibly to hold standardized translation tables")

                           (EF2 POINTER)
-                          (MCCSTOFORMATBYTESFN POINTER)      (* ; "Translates an MCCS string into a string containing the bytes that represent that string in this format")

+                          (FORMATBYTESTRINGFN POINTER)       (* ; "Translates an internal string into a string containing the bytes that represent that string in this format")

                           (FORMATCHARSETFN POINTER)          (* ; 
 
                                                             "If present, apply by \GENERIC.CHARSET")

-                          (FORMATBYTESTOMCCSFN POINTER))     (* ; 
-
                      "Translates format bytes into a string containing the corresponding MCCS codes")

-                         )
+                          ))
 )
 
 (/DECLAREDATATYPE 'EXTERNALFORMAT
        '(FLAG (BITS 2)
-              FLAG POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER 
-              POINTER)
+              FLAG POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER)
        '((EXTERNALFORMAT 0 (FLAGBITS . 0))
          (EXTERNALFORMAT 0 (BITS . 17))
          (EXTERNALFORMAT 0 (FLAGBITS . 48))
@@ -97,9 +88,8 @@
          (EXTERNALFORMAT 12 POINTER)
          (EXTERNALFORMAT 14 POINTER)
          (EXTERNALFORMAT 16 POINTER)
-         (EXTERNALFORMAT 18 POINTER)
-         (EXTERNALFORMAT 20 POINTER))
-       '22)
+         (EXTERNALFORMAT 18 POINTER))
+       '20)
 
 (* "END EXPORTED DEFINITIONS")
 
@@ -107,8 +97,7 @@
 
 (/DECLAREDATATYPE 'EXTERNALFORMAT
        '(FLAG (BITS 2)
-              FLAG POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER 
-              POINTER)
+              FLAG POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER)
        '((EXTERNALFORMAT 0 (FLAGBITS . 0))
          (EXTERNALFORMAT 0 (BITS . 17))
          (EXTERNALFORMAT 0 (FLAGBITS . 48))
@@ -121,9 +110,8 @@
          (EXTERNALFORMAT 12 POINTER)
          (EXTERNALFORMAT 14 POINTER)
          (EXTERNALFORMAT 16 POINTER)
-         (EXTERNALFORMAT 18 POINTER)
-         (EXTERNALFORMAT 20 POINTER))
-       '22)
+         (EXTERNALFORMAT 18 POINTER))
+       '20)
 (ADDTOVAR SYSTEMRECLST
 
 (DATATYPE EXTERNALFORMAT
 ((EOLVALID FLAG)
@@ -137,9 +125,8 @@
                           (FORMATBYTESTREAMFN POINTER)
                           (EF1 POINTER)
                           (EF2 POINTER)
-                          (MCCSTOFORMATBYTESFN POINTER)
-                          (FORMATCHARSETFN POINTER)
-                          (FORMATBYTESTOMCCSFN POINTER)))
+                          (FORMATBYTESTRINGFN POINTER)
+                          (FORMATCHARSETFN POINTER)))
 )
 (DEFINEQ
 
@@ -212,10 +199,7 @@
 
 (MAKE-EXTERNALFORMAT

   [LAMBDA (NAME INCCODEFN PEEKCCODEFN BACKCCODEFN OUTCHARFN FORMATBYTESTREAMFN EOL UNSTABLE 
-                MCCSTOFORMATBYTESFN DEFAULT FORMATCHARSETFN FORMATBYTESTOMCCSFN)

-                                                             (* ; "Edited  5-Feb-2026 14:26 by rmk")


-                                                             (* ; "Edited  2-Feb-2026 23:04 by rmk")


-                                                             (* ; "Edited  8-Dec-2023 22:02 by rmk")


+                FORMATBYTESTRINGFN DEFAULT FORMATCHARSETFN)
  (* ; "Edited  8-Dec-2023 22:02 by rmk")


                                                              (* ; "Edited  3-Jul-2022 00:35 by rmk")


                                                             (* ; "Edited 10-Sep-2021 19:47 by rmk:")

 
@@ -226,13 +210,17 @@
                                     *DEFAULT-EXTERNALFORMAT*
                                     DEFAULT)]
              (CL:UNLESS INCCODEFN
-                 (SETQ INCCODEFN (FETCH
 (EXTERNALFORMAT INCCODEFN) OF
 DEF)))
+                 (SETQ INCCODEFN (FETCH
 (EXTERNALFORMAT INCCODEFN)
+                                        DEF)))
              (CL:UNLESS PEEKCCODEFN
-                 (SETQ PEEKCCODEFN (FETCH
 (EXTERNALFORMAT PEEKCCODEFN) OF
 DEF)))
+                 (SETQ PEEKCCODEFN (FETCH
 (EXTERNALFORMAT PEEKCCODEFN)
+                                          DEF)))
              (CL:UNLESS BACKCCODEFN
-                 (SETQ BACKCCODEFN (FETCH
 (EXTERNALFORMAT BACKCCODEFN) OF
 DEF)))
+                 (SETQ BACKCCODEFN (FETCH
 (EXTERNALFORMAT BACKCCODEFN)
+                                          DEF)))
              (CL:UNLESS OUTCHARFN
-                 (SETQ OUTCHARFN (FETCH
 (EXTERNALFORMAT OUTCHARFN) OF
 DEF)))])
+                 (SETQ OUTCHARFN (FETCH
 (EXTERNALFORMAT OUTCHARFN)
+                                        DEF)))])
     (SETQ EOL (SELECTC EOL
                   ((LIST 'LF LF.EOLC) 
                        LF.EOLC)
@@ -252,8 +240,7 @@
                                     EOLVALID _ EOL
                                     EOL _ (OR EOL LF.EOLC)
                                     UNSTABLE _ UNSTABLE
-                                    MCCSTOFORMATBYTESFN _ MCCSTOFORMATBYTESFN
-                                    FORMATBYTESTOMCCSFN _ FORMATBYTESTOMCCSFN
+                                    FORMATBYTESTRINGFN _ FORMATBYTESTRINGFN
                                     FORMATCHARSETFN _ (OR FORMATCHARSETFN (FUNCTION NILL])
 
 (\EXTERNALFORMAT.DEFPRINT

@@ -319,52 +306,22 @@
                                                                   OF
 EF)))
                (CL:UNLESS NOERROR (ERROR NAME "is not an external format"])
 )
-(* "FOLLOWING DEFINITIONS EXPORTED")(DECLARE%: DOEVAL@COMPILE DONTCOPY
+(DEFINEQ
+
+(SYSTEM-EXTERNALFORMAT

+  [LAMBDA NIL
                                                (* ; "Edited 10-Oct-2022 11:55 by lmm")


+                                                             (* ; "Edited  7-Jul-2022 10:41 by rmk")

+    (FOR
 X IN
 '("LC_CTYPE" "LC_ALL" "LANG") WHEN
 (STRPOS ".UTF-8" (UNIX-GETENV X))
+       DO
 (RETURN :UTF-8) FINALLY
 (RETURN :THROUGH])
+)
+(DECLARE%: DOEVAL@COMPILE DONTCOPY
 
 (GLOBALVARS *EXTERNALFORMATS* *DEFAULT-EXTERNALFORMAT*)
 )
 
-(* "END EXPORTED DEFINITIONS")
-
-
 (RPAQ? *EXTERNALFORMATS*
 NIL)
 
 (RPAQ? *DEFAULT-EXTERNALFORMAT*
 :MCCS)
-(DEFINEQ
-
-(SYSTEM-EXTERNALFORMAT

-  [LAMBDA NIL
                                                (* ; "Edited  6-Feb-2026 11:29 by rmk")


-                                                             (* ; "Edited 31-Jan-2026 18:51 by rmk")


-                                                             (* ; "Edited 10-Oct-2022 11:55 by lmm")


-                                                             (* ; "Edited  7-Jul-2022 10:41 by rmk")

-
-    (* ;; "Returns the name, sets the global.  For now, UTF-8 or through, could be something else.")

-
-    (fetch
 (EXTERNALFORMAT NAME) of
 (SETQ *SYSTEM-EXTERNALFORMAT*
-                                     (FIND-FORMAT
 (FOR
 X IN
 '("LC¬CTYPE" "LC¬ALL" "LANG")
-                                                     WHEN
 (STRPOS ".UTF-8" (UNIX-GETENV X))
-                                                     DO
 (RETURN :UTF-8) FINALLY
 (RETURN :THROUGH])
-
-(MTOSYSSTRING

-  [LAMBDA (MSTRING)
                                          (* ; "Edited  6-Feb-2026 00:20 by rmk")

-    (MCCSTOFORMATBYTES
 *SYSTEM-EXTERNALFORMAT* (MKSTRING MSTRING])
-
-(SYSTOMSTRING

-  [LAMBDA (SYSTRING)
                                         (* ; "Edited  5-Feb-2026 23:36 by rmk")

-
-    (* ;; "SYSSTRING is presumably shared with Unix, guarantee a copy on the way out")

-
-    (CONCAT (FORMATBYTESTOMCCS
 *SYSTEM-EXTERNALFORMAT* SYSTRING])
-)
-(* "FOLLOWING DEFINITIONS EXPORTED")(DECLARE%: DOEVAL@COMPILE DONTCOPY
-
-(GLOBALVARS *SYSTEM-EXTERNALFORMAT*)
-)
-
-(* "END EXPORTED DEFINITIONS")
-
-
-(RPAQ? *SYSTEM-EXTERNALFORMAT*
 :UTF-8)
 (DECLARE%: DONTEVAL@LOAD DOCOPY 
 
 (DEFPRINT 'EXTERNALFORMAT (FUNCTION \EXTERNALFORMAT.DEFPRINT))
@@ -567,6 +524,28 @@
              (freplace
 (STREAM ENDOFSTREAMOP) of
 BYTESTREAM with
 (FUNCTION NILL)))
          BYTESTREAM])
 
+(\FORMATBYTESTRING

+  [LAMBDA (STREAM STRING)
                                    (* ; "Edited 19-Mar-2024 18:24 by rmk")


+                                                             (* ; "Edited 10-Jul-2022 16:39 by rmk")


+                                                             (* ; "Edited 22-Jun-2022 11:07 by rmk")


+                                                             (* ; "Edited 18-Jun-2022 22:04 by rmk")

+    (WITH-RESOURCE \FORMATBYTESTRING.STREAM (\SETFILEPTR \FORMATBYTESTRING.STREAM 0)
+           (LET [FSTRING NBYTES (BYTESTRINGFN (FETCH
 (EXTERNALFORMAT FORMATBYTESTRINGFN)
+                                                 OF
 (FETCH
 (STREAM EXTERNALFORMAT) OF
 STREAM]
+                (IF
 BYTESTRINGFN
+                    THEN
 (CL:WHEN (SETQ FSTRING (APPLY* BYTESTRINGFN STREAM STRING 
+                                                       \FORMATBYTESTRING.STREAM))
+                                (MKSTRING FSTRING))
+                  ELSE
 (\FORMATBYTESTREAM
 STREAM \FORMATBYTESTRING.STREAM)
+                       (FOR
 C INPNAME
 STRING DO
 (\OUTCHAR
 \FORMATBYTESTRING.STREAM C))
+                       (SETQ NBYTES (\GETFILEPTR \FORMATBYTESTRING.STREAM))
+                       (\SETFILEPTR \FORMATBYTESTRING.STREAM 0)
+                       (SETQ FSTRING (ALLOCSTRING NBYTES))
+                       (FOR
 I FROM
 1 TO
 NBYTES DO
 (RPLCHARCODE FSTRING I (\BIN 
+                                                                             \FORMATBYTESTRING.STREAM
+                                                                               )))
+                       FSTRING])
+
 (\CHECKEOLC.CRLF

   [LAMBDA (STREAM PEEKBINFLG COUNTP EOLC)
                    (* ; "Edited  6-Dec-2023 23:39 by rmk")


                                                              (* ; "Edited 17-Oct-2023 11:56 by rmk")


@@ -627,66 +606,6 @@
                             (CHARCODE CR]
          CH])
 )
-(DEFINEQ
-
-(MCCSTOFORMATBYTES

-  [LAMBDA (FORMAT MSTRING)
                                   (* ; "Edited  6-Feb-2026 18:12 by rmk")


-                                                             (* ; "Edited  5-Feb-2026 10:24 by rmk")


-                                                             (* ; "Edited  3-Feb-2026 11:06 by rmk")


-                                                             (* ; "Edited 19-Mar-2024 18:24 by rmk")


-                                                             (* ; "Edited 10-Jul-2022 16:39 by rmk")


-                                                             (* ; "Edited 22-Jun-2022 11:07 by rmk")


-                                                             (* ; "Edited 18-Jun-2022 22:04 by rmk")

-    (CL:WHEN MSTRING
-        (CL:UNLESS (type?
 EXTERNALFORMAT FORMAT)
-            (SETQ FORMAT (OR (if
 (type?
 STREAM FORMAT)
-                                 then
 (fetch
 (STREAM EXTERNALFORMAT) of
 FORMAT)
-                               else
 (FIND-FORMAT
 FORMAT))
-                             (\ILLEGAL.ARG FORMAT))))
-        (LET (FSTRING NBYTES (TOBYTESFN (fetch
 (EXTERNALFORMAT MCCSTOFORMATBYTESFN) of
 FORMAT)))
-             (if
 TOBYTESFN
-                 then
 (CL:WHEN (SETQ FSTRING (APPLY* TOBYTESFN MSTRING))
-                             (MKSTRING FSTRING))
-               else
 
-                    (* ;; 
-
              "No specific function, fake it by the outchar function.  Maybe return NIL if UNSTABLE?")

-
-                    (WITH-RESOURCE \FORMATBYTESTRING.STREAM (\SETFILEPTR \FORMATBYTESTRING.STREAM 0)
-                           (STREAMPROP \FORMATBYTESTRING.STREAM :EXTERNAL-FORMAT FORMAT)
-                           (for
 C inpname
 MSTRING do
 (\OUTCHAR
 \FORMATBYTESTRING.STREAM C))
-                           (SETQ NBYTES (\GETFILEPTR \FORMATBYTESTRING.STREAM))
-                           (\SETFILEPTR \FORMATBYTESTRING.STREAM 0)
-                           (SETQ FSTRING (ALLOCSTRING NBYTES))
-                           (for
 I from
 1 to
 NBYTES do
 (RPLCHARCODE FSTRING I (\BIN 
-                                                                             \FORMATBYTESTRING.STREAM
-                                                                                   )))
-                           FSTRING))))])
-
-(FORMATBYTESTOMCCS

-  [LAMBDA (FORMAT FSTRING)
                                   (* ; "Edited  6-Feb-2026 18:13 by rmk")

-
-    (* ;; "Produces an MCCS string with characters that correspond to the format bytes in FSTRING according to FORMAT.")

-
-    (CL:WHEN FSTRING
-        (CL:UNLESS (type?
 EXTERNALFORMAT FORMAT)
-            (SETQ FORMAT (OR (if
 (type?
 STREAM FORMAT)
-                                 then
 (fetch
 (STREAM EXTERNALFORMAT) of
 FORMAT)
-                               else
 (FIND-FORMAT
 FORMAT))
-                             (\ILLEGAL.ARG FORMAT))))
-        (SETQ FSTRING (MKSTRING FSTRING))                    (* ; "Should be thin, if bytes")

-        [LET ((TOMCCSFN (fetch
 (EXTERNALFORMAT FORMATBYTESTOMCCSFN) of
 FORMAT))
-              MSTRING)
-             (if
 TOMCCSFN
-                 then
 (APPLY* TOMCCSFN FSTRING)
-               else
 
-                    (* ;; "No specific function, fake it by bouting the FSTRING characters and reading them with \INCCODEFN.  ENDOFSTREAMOP is NILL")

-
-                    (WITH-RESOURCE \FORMATBYTESTRING.STREAM (\SETFILEPTR \FORMATBYTESTRING.STREAM 0)
-                           (for
 B instring
 FSTRING do
 (\BOUT \FORMATBYTESTRING.STREAM B))
-                           (\SETFILEPTR \FORMATBYTESTRING.STREAM 0)
-                           (STREAMPROP \FORMATBYTESTRING.STREAM :EXTERNAL-FORMAT FORMAT)
-                           (RSTRING \FORMATBYTESTRING.STREAM])])
-)
 (DECLARE%: DOEVAL@COMPILE DONTCOPY 
 (* "FOLLOWING DEFINITIONS EXPORTED")(DECLARE%: EVAL@COMPILE 
 
@@ -710,9 +629,7 @@
 
 (DECLARE%: EVAL@COMPILE 
 
-[PUTDEF '\FORMATBYTESTRING.STREAM 'RESOURCES '(NEW (OPENSTREAM '{NODIRCORE} 'BOTH)
-                                                   NIL
-                                                   '((ENDOFSTREAMOP NILL]
+[PUTDEF '\FORMATBYTESTRING.STREAM 'RESOURCES '(NEW (OPENSTREAM '{NODIRCORE} 'BOTH]
 )
 )
 
@@ -773,82 +690,31 @@
 
 
 
-(* ;; "Also from FILEIO.")

+(* ;; "Also from FILEIO, but not clear that this is or ever has been used.")

 
 (DEFINEQ
 
 (\CREATE.THROUGH.EXTERNALFORMAT

-  [LAMBDA NIL
                                                (* ; "Edited  9-Feb-2026 15:43 by rmk")


-                                                             (* ; "Edited  5-Feb-2026 13:12 by rmk")


-                                                             (* ; "Edited 24-Jul-2022 08:08 by rmk")


+  [LAMBDA NIL
                                                (* ; "Edited 24-Jul-2022 08:08 by rmk")


                                                             (* ; "Edited 23-Jun-2021 13:34 by rmk:")

 
 (* ;;; "Create the :THROUGH external format.  EOL is adjusted so that the .EOLC callers will not do any conversion.")

 
-    (MAKE-EXTERNALFORMAT
 :THROUGH [FUNCTION (LAMBDA (STREAM COUNTP)
-                                              (DECLARE
 (USEDFREE *BYTECOUNTER*))
-                                              (CL:WHEN COUNTP (SETQ *BYTECOUNTER* 1))
-                                              (\BIN STREAM]
+    (MAKE-EXTERNALFORMAT
 :THROUGH (FUNCTION \THROUGHIN)
            (FUNCTION \PEEKBIN)
-           [FUNCTION (LAMBDA (STREAM COUNTP)
-                       (DECLARE
 (USEDFREE *BYTECOUNTER*))
-                       (CL:WHEN (\BACKFILEPTR STREAM)
-                           (CL:WHEN COUNTP (SETQ *BYTECOUNTER* -1))
-                           T)]
-           [FUNCTION (LAMBDA (OUTSTREAM CHARCODE)
-                       (CL:WHEN (> CHARCODE \MAXTHINCHAR)
-                              (ERROR ":THROUGH external format can't represent 16 bit characters"))
-                       (\BOUT OUTSTREAM CHARCODE]
+           (FUNCTION \THROUGHBACKCCODE)
+           (FUNCTION \THROUGHOUTCHARFN)
            NIL
            (CL:IF (EQ (CHARCODE CR)
                       (CHARCODE EOL))
                CR.EOLC
                LF.EOLC)
            NIL
-           (FUNCTION MKSTRING)
-           NIL NIL (FUNCTION MKSTRING])
-
-(\CREATE.THROUGH16.EXTERNALFORMAT

-  [LAMBDA NIL
                                                (* ; "Edited  9-Feb-2026 15:47 by rmk")


-                                                             (* ; "Edited  5-Feb-2026 13:12 by rmk")


-                                                             (* ; "Edited 24-Jul-2022 08:08 by rmk")


-                                                            (* ; "Edited 23-Jun-2021 13:34 by rmk:")

-
-(* ;;; "Create the :THROUGH external format.  EOL is adjusted so that the .EOLC callers will not do any conversion.")

-
-    (MAKE-EXTERNALFORMAT
 :THROUGH16 [FUNCTION (LAMBDA (STREAM COUNTP)
-                                                (DECLARE
 (USEDFREE *BYTECOUNTER*))
-                                                (CL:WHEN COUNTP (SETQ *BYTECOUNTER* 2))
-                                                (\WIN STREAM]
-           [FUNCTION (LAMBDA (STREAM NOERRORFLG)
-                       (LET (BYTE1 BYTE2)
-                            (CL:WHEN (SETQ BYTE1 (\PEEKBIN STREAM NOERRORFLG))
-                                (\BIN STREAM)
-                                (SETQ BYTE2 (\PEEKBIN STREAM NOERRORFLG))
-                                (\BACKFILEPTR STREAM)
-                                (CL:WHEN BYTE2
-                                    (LOGOR (LLSH BYTE1 8)
-                                           BYTE2)))]
-           [FUNCTION (LAMBDA (STREAM COUNTP)
                (* ; "Edited  6-Aug-2021 16:14 by rmk:")

-                       (DECLARE
 (USEDFREE *BYTECOUNTER*))
-                       (CL:WHEN (\BACKFILEPTR STREAM)
-                           (CL:WHEN COUNTP (SETQ *BYTECOUNTER* -1))
-                           (CL:WHEN (\BACKFILEPTR STREAM)
-                               (CL:WHEN COUNTP (SETQ *BYTECOUNTER* -2))
-                               T))]
-           [FUNCTION (LAMBDA (OUTSTREAM CHARCODE)
-                       (\WOUT OUTSTREAM CHARCODE]
-           NIL
-           (CL:IF (EQ (CHARCODE CR)
-                      (CHARCODE EOL))
-               CR.EOLC
-               LF.EOLC)
-           NIL
-           (FUNCTION MKSTRING)
-           NIL NIL (FUNCTION MKSTRING])
+           (FUNCTION (LAMBDA (STREAM STRING)
+                       (MKSTRING STRING])
 
 (\THROUGHIN

-  [LAMBDA (STREAM COUNTP)
                                   (* ; "Edited  6-Aug-2021 16:13 by rmk:")

+  [LAMBDA (STREAM COUNTP)
                               (* ; "Edited  6-Aug-2021 16:13 by rmk:")

 
 (* ;;; "Read in a single byte from STREAM and returns it without any character conversion, just through as if.")

 
@@ -859,14 +725,14 @@
     (\BIN STREAM])
 
 (\THROUGHBACKCCODE

-  [LAMBDA (STREAM COUNTP)
                                   (* ; "Edited  6-Aug-2021 16:14 by rmk:")

+  [LAMBDA (STREAM COUNTP)
                               (* ; "Edited  6-Aug-2021 16:14 by rmk:")

     (DECLARE
 (USEDFREE *BYTECOUNTER*))
     (CL:WHEN (\BACKFILEPTR STREAM)
         (CL:WHEN COUNTP (SETQ *BYTECOUNTER* -1))
         T)])
 
 (\THROUGHOUTCHARFN

-  [LAMBDA (OUTSTREAM CHARCODE)
                               (* ; "Edited 26-Feb-91 13:44 by nm")

+  [LAMBDA (OUTSTREAM CHARCODE)
                           (* ; "Edited 26-Feb-91 13:44 by nm")

 
 (* ;;; "Encoder for THROUGH format.")

 
@@ -879,19 +745,15 @@
 (DECLARE%: DONTEVAL@LOAD DOCOPY 
 
 (\CREATE.THROUGH.EXTERNALFORMAT
)
-
-(\CREATE.THROUGH16.EXTERNALFORMAT
)
 )
 (DECLARE%: DONTCOPY
-  (FILEMAP (NIL (7446 15343 (\EXTERNALFORMAT 7456 . 12055) (MAKE-EXTERNALFORMAT 12057 . 14870) (
-\EXTERNALFORMAT.DEFPRINT 14872 . 15341)) (15344 18385 (\INSTALL.EXTERNALFORMAT 15354 . 16803) (
-\REMOVE.EXTERNALFORMAT 16805 . 17636) (FIND-FORMAT 17638 . 18383)) (18628 20078 (SYSTEM-EXTERNALFORMAT
- 18638 . 19586) (MTOSYSSTRING 19588 . 19785) (SYSTOMSTRING 19787 . 20076)) (20442 34717 (\OUTCHAR 
-20452 . 21669) (\INCCODE 21671 . 22824) (\BACKCCODE 22826 . 24505) (\BACKCCODE.EOLC 24507 . 26697) (
-\PEEKCCODE 26699 . 27024) (\PEEKCCODE.EOLC 27026 . 27405) (\INCCODE.EOLC 27407 . 29206) (
-\FORMATBYTESTREAM 29208 . 31652) (\CHECKEOLC.CRLF 31654 . 34715)) (34718 38634 (MCCSTOFORMATBYTES 
-34728 . 37127) (FORMATBYTESTOMCCS 37129 . 38632)) (40045 42281 (\NULLDEVICE 40055 . 41957) (
-\NULL.OPENFILE 41959 . 42279)) (42371 47286 (\CREATE.THROUGH.EXTERNALFORMAT 42381 . 44050) (
-\CREATE.THROUGH16.EXTERNALFORMAT 44052 . 46243) (\THROUGHIN 46245 . 46669) (\THROUGHBACKCCODE 46671 . 
-46942) (\THROUGHOUTCHARFN 46944 . 47284)))))
+  (FILEMAP (NIL (6706 14360 (\EXTERNALFORMAT 6716 . 11315) (MAKE-EXTERNALFORMAT 11317 . 13887) (
+\EXTERNALFORMAT.DEFPRINT 13889 . 14358)) (14361 17402 (\INSTALL.EXTERNALFORMAT 14371 . 15820) (
+\REMOVE.EXTERNALFORMAT 15822 . 16653) (FIND-FORMAT 16655 . 17400)) (17403 17815 (SYSTEM-EXTERNALFORMAT
+ 17413 . 17813)) (18164 34141 (\OUTCHAR 18174 . 19391) (\INCCODE 19393 . 20546) (\BACKCCODE 20548 . 
+22227) (\BACKCCODE.EOLC 22229 . 24419) (\PEEKCCODE 24421 . 24746) (\PEEKCCODE.EOLC 24748 . 25127) (
+\INCCODE.EOLC 25129 . 26928) (\FORMATBYTESTREAM 26930 . 29374) (\FORMATBYTESTRING 29376 . 31076) (
+\CHECKEOLC.CRLF 31078 . 34139)) (35423 37659 (\NULLDEVICE 35433 . 37335) (\NULL.OPENFILE 37337 . 37657
+)) (37799 39626 (\CREATE.THROUGH.EXTERNALFORMAT 37809 . 38595) (\THROUGHIN 38597 . 39017) (
+\THROUGHBACKCCODE 39019 . 39286) (\THROUGHOUTCHARFN 39288 . 39624)))))
 STOP

sources/FILEIO

@@ -1,12 +1,13 @@
 (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
 
-
(FILECREATED " 6-Feb-2026 23:22:00" {WMEDLEY}<sources>FILEIO.;142
 166519 
+
(FILECREATED "12-Sep-2025 08:19:06" {WMEDLEY}<sources>FILEIO.;141
 166968 
 
       :EDIT-BY rmk
 
-      :CHANGES-TO (FNS DIRECTORYNAME)
+      :CHANGES-TO (FNS COPYFILE COPYCHARS)
 
-      :PREVIOUS-DATE "12-Sep-2025 08:19:06" {WMEDLEY}<sources>FILEIO.;141)
+      :PREVIOUS-DATE "24-Apr-2025 22:16:47" 
+{DSK}<Users>kaplan>Local>medley3.5>working-medley>sources>FILEIO.;139)
 
 
 (PRETTYCOMPRINT FILEIOCOMS)
@@ -1985,63 +1986,68 @@ update the map")

     \CONNECTED.DIRECTORY])
 
 (DIRECTORYNAME

-  [LAMBDA (DIRNAME STRPTR CREATE?)
                           (* ; "Edited  6-Feb-2026 23:19 by rmk")


-                                                             (* ; "Edited 20-May-92 11:08 by jds")

+  [LAMBDA (DIRNAME STRPTR CREATE?)
                       (* ; "Edited 20-May-92 11:08 by jds")

 
-    (* ;; "Returns connected directory name")

+    (* ;; "Returns connected directory name")

 
-    (DECLARE
 (GLOBALVARS LOGINHOST/DIR))
-    (CL:WHEN (CL:PATHNAMEP DIRNAME)
-        (SETQ DIRNAME (CL:NAMESTRING DIRNAME)))
-    (PROG (DN FDEV)
-          [SELECTQ DIRNAME
-              (T                                             (* ; "Connected host/dir")

-                 (SETQ DN \CONNECTED.DIRECTORY))
-              (NIL (SETQ DN (OR LOGINHOST/DIR '{DSK})))
-              (COND
-                 [(AND [SETQ FDEV
-                        (LET [(HOST (FILENAMEFIELD DIRNAME 'HOST]
-                             (SELCHARQ (NTHCHARCODE DIRNAME 1)
-                                  (>                         (* ; 
-
                                                         "Remove leading > from a subdirectory spec.")

-                                     (SETQ DIRNAME (SUBSTRING DIRNAME 2)))
-                                  NIL)
-                             (\GETDEVICEFROMHOSTNAME

-                              (OR HOST (FILENAMEFIELD [SELCHARQ (NTHCHARCODE DIRNAME 1)
-                                                           ((< /) 
-                                                             (* ; "Whole directory, use it all.")

-                                                                (SETQ DIRNAME (PACKFILENAME.STRING
-                                                                               'DIRECTORY DIRNAME
-                                                                               'BODY 
-                                                                               \CONNECTED.DIRECTORY)))
-                                                           (SELCHARQ (NTHCHARCODE DIRNAME
-                                                                            (NCHARS DIRNAME))
-                                                                ((> /) 
-                                                             (* ; 
-
                                               "Remove any trailing > or / from a subdirectory spec.")

-                                                                     (SETQ DIRNAME
-                                                                      (PACKFILENAME.STRING
-                                                                       'SUBDIRECTORY
-                                                                       (SUBSTRING DIRNAME 1 -2)
-                                                                       'DIRECTORY 
-                                                                       \CONNECTED.DIRECTORY)))
-                                                                (SETQ DIRNAME (PACKFILENAME.STRING
-                                                                               'SUBDIRECTORY DIRNAME
-                                                                               'DIRECTORY 
-                                                                               \CONNECTED.DIRECTORY]
-                                              'HOST]
-                       (SETQ DN (FDEVOP 'DIRECTORYNAMEP FDEV DIRNAME FDEV CREATE?)))
-                  (COND
-                     ((EQ DN T)
-                      (SETQ DN (PACKFILENAME.STRING 'HOST (fetch
 (FDEV DEVICENAME) of
 FDEV)
-                                      'DIRECTORY DIRNAME]
-                 (T (RETURN]
-          (RETURN (COND
-                     ((NOT STRPTR)
-                      (MKSTRING DN))
-                     ((EQ STRPTR T)
-                      (MKATOM DN))
-                     (T (MKSTRING DN])
+    (AND (CL:PATHNAMEP DIRNAME)
+         (SETQ DIRNAME (CL:NAMESTRING DIRNAME)))
+    (SELECTQ (SYSTEMTYPE)
+        (VAX (GETDIRNAME))
+        (D (DECLARE
 (GLOBALVARS LOGINHOST/DIR))
+           [PROG (DN FDEV)
+                 [SELECTQ DIRNAME
+                     (T                                      (* ; "Connected host/dir")

+                        (SETQ DN \CONNECTED.DIRECTORY))
+                     (NIL (SETQ DN (OR LOGINHOST/DIR '{DSK})))
+                     (COND
+                        [(AND [SETQ FDEV
+                               (LET [(HOST (FILENAMEFIELD DIRNAME 'HOST]
+                                    (SELCHARQ (NTHCHARCODE DIRNAME 1)
+                                         (>                  (* ; 
+
                                                       "Remove leading > from a subdirectory spec.")

+                                            (SETQ DIRNAME (SUBSTRING DIRNAME 2)))
+                                         NIL)
+                                    (\GETDEVICEFROMHOSTNAME

+                                     (OR HOST (FILENAMEFIELD [SELCHARQ (NTHCHARCODE DIRNAME 1)
+                                                                  ((< /) 
+                                                             (* ; "Whole directory, use it all.")

+                                                                       (SETQ DIRNAME
+                                                                        (PACKFILENAME.STRING
+                                                                         'DIRECTORY DIRNAME
+                                                                         'BODY \CONNECTED.DIRECTORY)))
+                                                                  (SELCHARQ (NTHCHARCODE DIRNAME
+                                                                                   (NCHARS DIRNAME))
+                                                                       ((> /) 
+                                                             (* ; 
+
                                             "Remove any trailing > or / from a subdirectory spec.")

+                                                                            (SETQ DIRNAME
+                                                                             (PACKFILENAME.STRING
+                                                                              'SUBDIRECTORY
+                                                                              (SUBSTRING DIRNAME 1 -2
+                                                                                     )
+                                                                              'DIRECTORY 
+                                                                              \CONNECTED.DIRECTORY)))
+                                                                       (SETQ DIRNAME
+                                                                        (PACKFILENAME.STRING
+                                                                         'SUBDIRECTORY DIRNAME
+                                                                         'DIRECTORY 
+                                                                         \CONNECTED.DIRECTORY]
+                                                     'HOST]
+                              (SETQ DN (FDEVOP 'DIRECTORYNAMEP FDEV DIRNAME FDEV CREATE?)))
+                         (COND
+                            ((EQ DN T)
+                             (SETQ DN (PACKFILENAME.STRING 'HOST (fetch
 (FDEV DEVICENAME)
+                                                                    of
 FDEV)
+                                             'DIRECTORY DIRNAME]
+                        (T (RETURN]
+                 (RETURN (COND
+                            ((NOT STRPTR)
+                             (MKSTRING DN))
+                            ((EQ STRPTR T)
+                             (MKATOM DN))
+                            (T (MKSTRING DN])
+        (HELP])
 
 (DIRECTORYNAMEP

   [LAMBDA (DIRNAME HOSTNAME)
                             (* bvm%: "18-Oct-85 14:38")

@@ -3161,39 +3167,39 @@ update the map")

 (ADDTOVAR LAMA
 \IS.NOT.RANDACCESSP \ILLEGAL.DEVICEOP STREAMPROP)
 )
 (DECLARE%: DONTCOPY
-  (FILEMAP (NIL (27706 31822 (STREAMPROP 27716 . 28150) (GETSTREAMPROP 28152 . 28901) (PUTSTREAMPROP 
-28903 . 31670) (STREAMP 31672 . 31820)) (31865 35244 (\DEFPRINT.BY.NAME 31875 . 33027) (
-\STREAM.DEFPRINT 33029 . 34937) (\FDEV.DEFPRINT 34939 . 35242)) (35502 40543 (\GETACCESS 35512 . 35966
-) (\SETACCESS 35968 . 40541)) (60769 66738 (\DEFINEDEVICE 60779 . 63095) (\GETDEVICEFROMNAME 63097 . 
-63570) (\GETDEVICEFROMHOSTNAME 63572 . 64616) (\REMOVEDEVICE 64618 . 65741) (\REMOVEDEVICE.NAMES 65743
- . 66736)) (66778 94509 (\CLOSEFILE 66788 . 67613) (\DELETEFILE 67615 . 67909) (\DEVICEEVENT 67911 . 
-69681) (\GENERATEFILES 69683 . 70630) (\GENERATENEXTFILE 70632 . 71283) (\GENERATEFILEINFO 71285 . 
-71746) (\GETFILENAME 71748 . 72137) (\GENERIC.OUTFILEP 72139 . 72609) (\OPENFILE 72611 . 75189) (
-\DO.PARAMS.AT.OPEN 75191 . 79387) (\RENAMEFILE 79389 . 80345) (\REVALIDATEFILE 80347 . 82949) (
-\PAGED.REVALIDATEFILELST 82951 . 84509) (\PAGED.REVALIDATEFILES 84511 . 86230) (\PAGED.REVALIDATEFILE 
-86232 . 88515) (\BUFFERED.REVALIDATEFILE 88517 . 90803) (\BUFFERED.REVALIDATEFILELST 90805 . 91989) (
-\PRINT-REVALIDATION-RESULT 91991 . 92833) (\TRUNCATEFILE 92835 . 93226) (\FILE-CONFLICT 93228 . 94507)
-) (94545 99208 (\GENERATENOFILES 94555 . 96651) (\NULLFILEGENERATOR 96653 . 96897) (\NOFILESNEXTFILEFN
- 96899 . 98890) (\NOFILESINFOFN 98892 . 99206)) (99327 101235 (\FILE.NOT.OPEN 99337 . 99850) (
-\FILE.WONT.OPEN 99852 . 100180) (\ILLEGAL.DEVICEOP 100182 . 100464) (\IS.NOT.RANDACCESSP 100466 . 
-100912) (\STREAM.NOT.OPEN 100914 . 101233)) (101370 103668 (\FDEVINSTANCE 101380 . 103666)) (104870 
-111841 (CNDIR 104880 . 106185) (DIRECTORYNAME 106187 . 109967) (DIRECTORYNAMEP 109969 . 110585) (
-HOSTNAMEP 110587 . 111394) (\ADD.CONNECTED.DIR 111396 . 111839)) (111886 140833 (\BACKFILEPTR 111896
- . 112084) (\BACKPEEKBIN 112086 . 112447) (\BACKBIN 112449 . 112800) (BIN 112802 . 113019) (\BIN 
-113021 . 113298) (\BINS 113300 . 113586) (BOUT 113588 . 113950) (\BOUT 113952 . 114267) (\BOUTS 114269
- . 114580) (COPYBYTES 114582 . 117914) (COPYCHARS 117916 . 121714) (COPYFILE 121716 . 123076) (
-\COPYOPENFILE 123078 . 126277) (\INFER.FILE.TYPE 126279 . 127233) (EOFP 127235 . 127532) (FORCEOUTPUT 
-127534 . 127781) (\FLUSH.OPEN.STREAMS 127783 . 128139) (CHARSET 128141 . 129500) (ACCESS-CHARSET 
-129502 . 130139) (GETEOFPTR 130141 . 130391) (GETFILEINFO 130393 . 133586) (\TYPE.FROM.FILETYPE 133588
- . 134058) (\FILETYPE.FROM.TYPE 134060 . 134239) (GETFILEPTR 134241 . 134493) (SETFILEINFO 134495 . 
-138732) (SETFILEPTR 138734 . 140453) (BOUT16 140455 . 140640) (BIN16 140642 . 140831)) (140936 148116 
-(\GENERIC.BINS 140946 . 141226) (\GENERIC.BOUTS 141228 . 141493) (\GENERIC.RENAMEFILE 141495 . 143743)
- (\GENERIC.OPENP 143745 . 145060) (\GENERIC.READP 145062 . 146214) (\GENERIC.CHARSET 146216 . 148114))
- (148117 148456 (\MAP-OPEN-STREAMS 148127 . 148454)) (150311 152391 (\EOF.ACTION 150321 . 150572) (
-\EOSERROR 150574 . 150767) (\GETEOFPTR 150769 . 150951) (\INCFILEPTR 150953 . 151303) (\PEEKBIN 151305
- . 151496) (\SETCLOSEDFILELENGTH 151498 . 151832) (\SETEOFPTR 151834 . 152022) (\SETFILEPTR 152024 . 
-152389)) (152392 152934 (\FIXPOUT 152402 . 152702) (\FIXPIN 152704 . 152932)) (152935 153501 (\BOUTEOL
- 152945 . 153499)) (156397 166261 (\BUFFERED.BIN 156407 . 157259) (\BUFFERED.PEEKBIN 157261 . 158043) 
-(\BUFFERED.BOUT 158045 . 158905) (\BUFFERED.BINS 158907 . 162592) (\BUFFERED.BOUTS 162594 . 164395) (
-\BUFFERED.COPYBYTES 164397 . 166259)))))
+  (FILEMAP (NIL (27752 31868 (STREAMPROP 27762 . 28196) (GETSTREAMPROP 28198 . 28947) (PUTSTREAMPROP 
+28949 . 31716) (STREAMP 31718 . 31866)) (31911 35290 (\DEFPRINT.BY.NAME 31921 . 33073) (
+\STREAM.DEFPRINT 33075 . 34983) (\FDEV.DEFPRINT 34985 . 35288)) (35548 40589 (\GETACCESS 35558 . 36012
+) (\SETACCESS 36014 . 40587)) (60815 66784 (\DEFINEDEVICE 60825 . 63141) (\GETDEVICEFROMNAME 63143 . 
+63616) (\GETDEVICEFROMHOSTNAME 63618 . 64662) (\REMOVEDEVICE 64664 . 65787) (\REMOVEDEVICE.NAMES 65789
+ . 66782)) (66824 94555 (\CLOSEFILE 66834 . 67659) (\DELETEFILE 67661 . 67955) (\DEVICEEVENT 67957 . 
+69727) (\GENERATEFILES 69729 . 70676) (\GENERATENEXTFILE 70678 . 71329) (\GENERATEFILEINFO 71331 . 
+71792) (\GETFILENAME 71794 . 72183) (\GENERIC.OUTFILEP 72185 . 72655) (\OPENFILE 72657 . 75235) (
+\DO.PARAMS.AT.OPEN 75237 . 79433) (\RENAMEFILE 79435 . 80391) (\REVALIDATEFILE 80393 . 82995) (
+\PAGED.REVALIDATEFILELST 82997 . 84555) (\PAGED.REVALIDATEFILES 84557 . 86276) (\PAGED.REVALIDATEFILE 
+86278 . 88561) (\BUFFERED.REVALIDATEFILE 88563 . 90849) (\BUFFERED.REVALIDATEFILELST 90851 . 92035) (
+\PRINT-REVALIDATION-RESULT 92037 . 92879) (\TRUNCATEFILE 92881 . 93272) (\FILE-CONFLICT 93274 . 94553)
+) (94591 99254 (\GENERATENOFILES 94601 . 96697) (\NULLFILEGENERATOR 96699 . 96943) (\NOFILESNEXTFILEFN
+ 96945 . 98936) (\NOFILESINFOFN 98938 . 99252)) (99373 101281 (\FILE.NOT.OPEN 99383 . 99896) (
+\FILE.WONT.OPEN 99898 . 100226) (\ILLEGAL.DEVICEOP 100228 . 100510) (\IS.NOT.RANDACCESSP 100512 . 
+100958) (\STREAM.NOT.OPEN 100960 . 101279)) (101416 103714 (\FDEVINSTANCE 101426 . 103712)) (104916 
+112290 (CNDIR 104926 . 106231) (DIRECTORYNAME 106233 . 110416) (DIRECTORYNAMEP 110418 . 111034) (
+HOSTNAMEP 111036 . 111843) (\ADD.CONNECTED.DIR 111845 . 112288)) (112335 141282 (\BACKFILEPTR 112345
+ . 112533) (\BACKPEEKBIN 112535 . 112896) (\BACKBIN 112898 . 113249) (BIN 113251 . 113468) (\BIN 
+113470 . 113747) (\BINS 113749 . 114035) (BOUT 114037 . 114399) (\BOUT 114401 . 114716) (\BOUTS 114718
+ . 115029) (COPYBYTES 115031 . 118363) (COPYCHARS 118365 . 122163) (COPYFILE 122165 . 123525) (
+\COPYOPENFILE 123527 . 126726) (\INFER.FILE.TYPE 126728 . 127682) (EOFP 127684 . 127981) (FORCEOUTPUT 
+127983 . 128230) (\FLUSH.OPEN.STREAMS 128232 . 128588) (CHARSET 128590 . 129949) (ACCESS-CHARSET 
+129951 . 130588) (GETEOFPTR 130590 . 130840) (GETFILEINFO 130842 . 134035) (\TYPE.FROM.FILETYPE 134037
+ . 134507) (\FILETYPE.FROM.TYPE 134509 . 134688) (GETFILEPTR 134690 . 134942) (SETFILEINFO 134944 . 
+139181) (SETFILEPTR 139183 . 140902) (BOUT16 140904 . 141089) (BIN16 141091 . 141280)) (141385 148565 
+(\GENERIC.BINS 141395 . 141675) (\GENERIC.BOUTS 141677 . 141942) (\GENERIC.RENAMEFILE 141944 . 144192)
+ (\GENERIC.OPENP 144194 . 145509) (\GENERIC.READP 145511 . 146663) (\GENERIC.CHARSET 146665 . 148563))
+ (148566 148905 (\MAP-OPEN-STREAMS 148576 . 148903)) (150760 152840 (\EOF.ACTION 150770 . 151021) (
+\EOSERROR 151023 . 151216) (\GETEOFPTR 151218 . 151400) (\INCFILEPTR 151402 . 151752) (\PEEKBIN 151754
+ . 151945) (\SETCLOSEDFILELENGTH 151947 . 152281) (\SETEOFPTR 152283 . 152471) (\SETFILEPTR 152473 . 
+152838)) (152841 153383 (\FIXPOUT 152851 . 153151) (\FIXPIN 153153 . 153381)) (153384 153950 (\BOUTEOL
+ 153394 . 153948)) (156846 166710 (\BUFFERED.BIN 156856 . 157708) (\BUFFERED.PEEKBIN 157710 . 158492) 
+(\BUFFERED.BOUT 158494 . 159354) (\BUFFERED.BINS 159356 . 163041) (\BUFFERED.BOUTS 163043 . 164844) (
+\BUFFERED.COPYBYTES 164846 . 166708)))))
 STOP

sources/FONT

@@ -1,12 +1,13 @@
 (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
 
-
(FILECREATED "19-Feb-2026 00:10:22" {WMEDLEY}<sources>FONT.;674
 277477 
+
(FILECREATED "26-Jan-2026 16:37:58" {WMEDLEY}<sources>FONT.;664
 276319 
 
       :EDIT-BY rmk
 
-      :CHANGES-TO (FNS \FONT.CHECKARGS1)
+      :CHANGES-TO (VARS FONTCOMS)
+                  (FNS \CREATEFONT FONTPROP)
 
-      :PREVIOUS-DATE "14-Feb-2026 13:14:08" {WMEDLEY}<sources>FONT.;673)
+      :PREVIOUS-DATE "22-Jan-2026 14:25:36" {WMEDLEY}<sources>FONT.;659)
 
 
 (PRETTYCOMPRINT FONTCOMS)
@@ -608,8 +609,7 @@
           FONTDESC])
 
 (\FONT.CHECKARGS1

-  [LAMBDA (SPEC STREAM NOERRORFLG)
                           (* ; "Edited 19-Feb-2026 00:03 by rmk")


-                                                             (* ; "Edited 22-Jul-2025 18:47 by rmk")


+  [LAMBDA (SPEC STREAM NOERRORFLG)
                           (* ; "Edited 22-Jul-2025 18:47 by rmk")


                                                              (* ; "Edited 14-Jul-2025 19:40 by rmk")


                                                              (* ; "Edited  5-Jul-2025 14:16 by rmk")


                                                              (* ; "Edited 29-Aug-91 12:19 by jds")

@@ -621,8 +621,6 @@
     (* ;; "STREAM denotes a device:  NIL means DISPLAY, another atom is a device name itself, an IMAGESTREAM means its IMAGESTREAMTYPE.  Anything else here maps to DISPLAY, but maybe that should be an illegal arg error, even of NOERRORFLG.")

 
     (DECLARE
 (GLOBALVARS DEFAULTFONT \GUARANTEEDDISPLAYFONT))
-    (CL:WHEN (IMAGESTREAMP SPEC)
-        (SETQ SPEC (DSPFONT NIL SPEC)))
     (LET (FONT DEVICE TEMP)
          (CL:UNLESS SPEC
              (if
 DEFAULTFONT
@@ -706,9 +704,7 @@
                        (CLOSEF? STRM))))])
 
 (\READCHARSET

-  [LAMBDA (FONTSPEC CHARSET FONT)
                            (* ; "Edited 14-Feb-2026 09:47 by rmk")


-                                                             (* ; "Edited  6-Feb-2026 00:03 by rmk")


-                                                             (* ; "Edited 11-Nov-2025 14:30 by rmk")


+  [LAMBDA (FONTSPEC CHARSET FONT)
                            (* ; "Edited 11-Nov-2025 14:30 by rmk")


                                                              (* ; "Edited  2-Sep-2025 23:57 by rmk")


                                                              (* ; "Edited 28-Aug-2025 23:17 by rmk")


                                                              (* ; "Edited 25-Aug-2025 12:03 by rmk")


@@ -721,14 +717,13 @@
 
     (* ;; "This finds the first file in the directories/extensions order that contains information about charset, determines its format, and reads it in.  The assumption is that the first such existing file is the one we want. ")

 
-    (CL:WHEN (AND FONTSPEC (EQ 0 (fetch
 (FONTSPEC FSROTATION) of
 FONTSPEC)))
+    (CL:WHEN (EQ 0 (fetch
 (FONTSPEC FSROTATION) of
 FONTSPEC))
         (RESETLST
             (for
 FILE STRM CSINFO in
 (FONTFILES
 FONTSPEC CHARSET)
                do
 
                   (* ;; "We know that FILE exists and is the best source of information about charset--maybe none. We assume FILE is one of the valid formats, we open it separately for each format-type, and ensure it is closed on exit.  We can't used CL:WITHOPEN-FILE because that doesn't exist in the loadup when the first font is created.")

 
-                  (for
 FNS FAMILY in
 [OR (FONTDEVICEPROP
 FONTSPEC 'CHARSETFNS)
-                                         '((MEDLEYFONT MEDLEYFONT.FILEP MEDLEYFONT.GETCHARSET]
+                  (for
 FNS FAMILY in
 (FONTDEVICEPROP
 FONTSPEC 'CHARSETFNS)
                      do
 [RESETSAVE (SETQ STRM (OPENSTREAM FILE 'INPUT))
                                `(PROGN (CLOSEF? OLDVALUE]
                         (CL:WHEN (CAR (NLSETQ (APPLY* (CADR FNS)
@@ -1845,7 +1840,6 @@
 
 (\FINDFONTFILE

   [LAMBDA (FAMILY SIZE FACE ROTATION DEVICE CHARSET DIRLST EXTLST)

-                                                             (* ; "Edited  6-Feb-2026 23:44 by rmk")


                                                              (* ; "Edited 22-Jan-2026 08:54 by rmk")


                                                              (* ; "Edited  3-Dec-2025 23:38 by rmk")


                                                              (* ; "Edited  9-Jun-2025 09:40 by rmk")


@@ -3501,8 +3495,7 @@
          FONT])
 
 (\CREATECHARSET

-  [LAMBDA (CHARSET FONT)
                                     (* ; "Edited 14-Feb-2026 13:12 by rmk")


-                                                             (* ; "Edited 25-Sep-2025 21:24 by rmk")


+  [LAMBDA (CHARSET FONT)
                                     (* ; "Edited 25-Sep-2025 21:24 by rmk")


                                                              (* ; "Edited  2-Sep-2025 22:59 by rmk")


                                                              (* ; "Edited 31-Aug-2025 14:36 by rmk")


                                                              (* ; "Edited 28-Aug-2025 14:31 by rmk")


@@ -3531,16 +3524,11 @@
            (\ILLEGAL.ARG CHARSET))
     (LET [(CSINFO (if
 (fetch
 (FONTDESCRIPTOR FONTCOMPLETEP) of
 FONT)
                       then
 (\GETCHARSETINFO FONT CHARSET)
-                    else
 (APPLY* [OR (CAR (GETMULTI IMAGESTREAMTYPES (fetch
 (FONTDESCRIPTOR 
+                    else
 (APPLY* (OR (CAR (GETMULTI IMAGESTREAMTYPES (fetch
 (FONTDESCRIPTOR 
                                                                                    FONTDEVICE)
                                                                         of
 FONT)
                                                  'CREATECHARSET))
-                                     (FUNCTION (LAMBDA (FONTSPEC FONT CHARSET)
-                                                             (* ; 
-
                                                             "No function: read or read-coerced-font")

-                                                 (OR (\READCHARSET
 FONTSPEC CHARSET FONT)
-                                                     (\READCHARSET
 (COERCEFONTSPEC
 FONTSPEC)
-                                                            CHARSET FONT]
+                                     (FUNCTION \READCHARSET))
                                 (create
 FONTSPEC using
 (FONTPROP
 FONT 'DEVICESPEC))
                                 FONT CHARSET]
 
@@ -4496,43 +4484,43 @@
 (ADDTOVAR LAMA
 FONTCOPY)
 )
 (DECLARE%: DONTCOPY
-  (FILEMAP (NIL (11417 21130 (CHARWIDTH 11427 . 12212) (CHARWIDTHY 12214 . 13731) (STRINGWIDTH 13733 . 
-14826) (\CHARWIDTH.DISPLAY 14828 . 15241) (\STRINGWIDTH.DISPLAY 15243 . 15667) (\STRINGWIDTH.GENERIC 
-15669 . 21128)) (21131 27651 (DEFAULTFONT 21141 . 22426) (FONTCLASS 22428 . 24590) (FONTCLASSUNPARSE 
-24592 . 25491) (FONTCLASSCOMPONENT 25493 . 26081) (SETFONTCLASSCOMPONENT 26083 . 26525) (
-GETFONTCLASSCOMPONENT 26527 . 27649)) (29364 47382 (FONTCREATE 29374 . 32619) (FONTCREATE1 32621 . 
-35236) (FONTCREATE.SLUGFD 35238 . 36720) (\FONT.CHECKARGS1 36722 . 41427) (\FONTCREATE1.NOFN 41429 . 
-41643) (FONTFILEP 41645 . 42533) (\READCHARSET 42535 . 47380)) (47383 54459 (\FONT.CHECKARGS 47393 . 
-54142) (\CHARSET.CHECK 54144 . 54457)) (54460 61071 (COERCEFONTSPEC 54470 . 60382) (
-COERCEFONTSPEC.TARGETFACE 60384 . 61069)) (63266 64605 (MAKEFONTSPEC 63276 . 64603)) (64606 72783 (
-COMPLETE.FONT 64616 . 67139) (COMPLETEFONTP 67141 . 67764) (COMPLETE.CHARSET 67766 . 70451) (
-PRUNESLUGCSINFOS 70453 . 71378) (MONOSPACEFONTP 71380 . 72781)) (72822 81268 (FONTASCENT 72832 . 73216
-) (FONTDESCENT 73218 . 73703) (FONTHEIGHT 73705 . 74107) (FONTPROP 74109 . 80545) (\AVGCHARWIDTH 80547
- . 81266)) (81925 82833 (FONTDEVICEPROP 81935 . 82831)) (82879 83733 (EDITCHAR 82889 . 83731)) (83779 
-95969 (GETCHARBITMAP 83789 . 84913) (PUTCHARBITMAP 84915 . 87073) (\GETCHARBITMAP.CSINFO 87075 . 89091
-) (\PUTCHARBITMAP.CSINFO 89093 . 95967)) (95970 116450 (MOVECHARBITMAP 95980 . 97874) (MOVEFONTCHARS 
-97876 . 101836) (\MOVEFONTCHAR 101838 . 106681) (\MOVEFONTCHARS.SOURCEDATA 106683 . 112788) (
-\MAKESLUGCHAR 112790 . 115325) (SLUGCHARP.DISPLAY 115327 . 116448)) (117108 128945 (FONTFILES 117118
- . 118951) (\FINDFONTFILE 118953 . 120930) (\FONTFILENAMES 120932 . 121492) (\FONTFILENAME 121494 . 
-124405) (FONTSPECFROMFILENAME 124407 . 128943)) (128946 165521 (FONTCOPY 128956 . 134019) (FONTP 
-134021 . 134320) (FONTUNPARSE 134322 . 136041) (SETFONTDESCRIPTOR 136043 . 137507) (\STREAMCHARWIDTH 
-137509 . 141673) (\COERCECHARSET 141675 . 145042) (\BUILDSLUGCSINFO 145044 . 148667) (\FONTSYMBOL 
-148669 . 149319) (\DEVICESYMBOL 149321 . 150190) (\FONTFACE 150192 . 157382) (\FONTFACE.COLOR 157384
- . 164304) (SETFONTCHARENCODING 164306 . 165519)) (165522 185183 (FONTSAVAILABLE 165532 . 170886) (
-FONTEXISTS? 170888 . 174427) (\SEARCHFONTFILES 174429 . 177514) (FLUSHFONTCACHE 177516 . 179739) (
-FINDFONTFILES 179741 . 182955) (SORTFONTSPECS 182957 . 185181)) (185184 189291 (MATCHFONTFACE 185194
- . 186009) (MAKEFONTFACE 186011 . 187037) (FONTFACETOATOM 187039 . 189289)) (189922 190414 (
-\UNITWIDTHSVECTOR 189932 . 190412)) (205043 207110 (FONTDESCRIPTOR.DEFPRINT 205053 . 206632) (
-FONTCLASS.DEFPRINT 206634 . 207108)) (210939 213729 (\CREATEKERNELEMENT 210949 . 211307) (
-\FSETLEFTKERN 211309 . 211800) (\FGETLEFTKERN 211802 . 213727)) (213730 225378 (\CREATEFONT 213740 . 
-216618) (\CREATECHARSET 216620 . 221129) (\INSTALLCHARSETINFO 221131 . 224465) (
-\INSTALLCHARSETINFO.CHARENCODING 224467 . 225376)) (225700 227064 (\FONTRESETCHARWIDTHS 225710 . 
-227062)) (227694 237735 (\CREATEDISPLAYFONT 227704 . 229553) (\CREATECHARSET.DISPLAY 229555 . 235264) 
-(\FONTEXISTS?.DISPLAY 235266 . 237733)) (237736 252601 (STRIKEFONT.FILEP 237746 . 238634) (
-STRIKEFONT.GETCHARSET 238636 . 244228) (WRITESTRIKEFONTFILE 244230 . 249141) (STRIKECSINFO 249143 . 
-252599)) (252632 268949 (MAKEBOLD.CHARSET 252642 . 256291) (MAKEBOLD.CHAR 256293 . 258045) (
-MAKEITALIC.CHARSET 258047 . 261720) (MAKEITALIC.CHAR 261722 . 264068) (\SFMAKEBOLD 264070 . 266294) (
-\SFMAKEITALIC 266296 . 268947)) (268950 273099 (\SFMAKEROTATEDFONT 268960 . 270361) (\SFROTATECSINFO 
-270363 . 271000) (\SFROTATEFONTCHARACTERS 271002 . 271382) (\SFROTATECSINFOOFFSETS 271384 . 273097)) (
-273100 274481 (\SFMAKECOLOR 273110 . 274479)))))
+  (FILEMAP (NIL (11455 21168 (CHARWIDTH 11465 . 12250) (CHARWIDTHY 12252 . 13769) (STRINGWIDTH 13771 . 
+14864) (\CHARWIDTH.DISPLAY 14866 . 15279) (\STRINGWIDTH.DISPLAY 15281 . 15705) (\STRINGWIDTH.GENERIC 
+15707 . 21166)) (21169 27689 (DEFAULTFONT 21179 . 22464) (FONTCLASS 22466 . 24628) (FONTCLASSUNPARSE 
+24630 . 25529) (FONTCLASSCOMPONENT 25531 . 26119) (SETFONTCLASSCOMPONENT 26121 . 26563) (
+GETFONTCLASSCOMPONENT 26565 . 27687)) (29402 46906 (FONTCREATE 29412 . 32657) (FONTCREATE1 32659 . 
+35274) (FONTCREATE.SLUGFD 35276 . 36758) (\FONT.CHECKARGS1 36760 . 41283) (\FONTCREATE1.NOFN 41285 . 
+41499) (FONTFILEP 41501 . 42389) (\READCHARSET 42391 . 46904)) (46907 53983 (\FONT.CHECKARGS 46917 . 
+53666) (\CHARSET.CHECK 53668 . 53981)) (53984 60595 (COERCEFONTSPEC 53994 . 59906) (
+COERCEFONTSPEC.TARGETFACE 59908 . 60593)) (62790 64129 (MAKEFONTSPEC 62800 . 64127)) (64130 72307 (
+COMPLETE.FONT 64140 . 66663) (COMPLETEFONTP 66665 . 67288) (COMPLETE.CHARSET 67290 . 69975) (
+PRUNESLUGCSINFOS 69977 . 70902) (MONOSPACEFONTP 70904 . 72305)) (72346 80792 (FONTASCENT 72356 . 72740
+) (FONTDESCENT 72742 . 73227) (FONTHEIGHT 73229 . 73631) (FONTPROP 73633 . 80069) (\AVGCHARWIDTH 80071
+ . 80790)) (81449 82357 (FONTDEVICEPROP 81459 . 82355)) (82403 83257 (EDITCHAR 82413 . 83255)) (83303 
+95493 (GETCHARBITMAP 83313 . 84437) (PUTCHARBITMAP 84439 . 86597) (\GETCHARBITMAP.CSINFO 86599 . 88615
+) (\PUTCHARBITMAP.CSINFO 88617 . 95491)) (95494 115974 (MOVECHARBITMAP 95504 . 97398) (MOVEFONTCHARS 
+97400 . 101360) (\MOVEFONTCHAR 101362 . 106205) (\MOVEFONTCHARS.SOURCEDATA 106207 . 112312) (
+\MAKESLUGCHAR 112314 . 114849) (SLUGCHARP.DISPLAY 114851 . 115972)) (116632 128360 (FONTFILES 116642
+ . 118475) (\FINDFONTFILE 118477 . 120345) (\FONTFILENAMES 120347 . 120907) (\FONTFILENAME 120909 . 
+123820) (FONTSPECFROMFILENAME 123822 . 128358)) (128361 164936 (FONTCOPY 128371 . 133434) (FONTP 
+133436 . 133735) (FONTUNPARSE 133737 . 135456) (SETFONTDESCRIPTOR 135458 . 136922) (\STREAMCHARWIDTH 
+136924 . 141088) (\COERCECHARSET 141090 . 144457) (\BUILDSLUGCSINFO 144459 . 148082) (\FONTSYMBOL 
+148084 . 148734) (\DEVICESYMBOL 148736 . 149605) (\FONTFACE 149607 . 156797) (\FONTFACE.COLOR 156799
+ . 163719) (SETFONTCHARENCODING 163721 . 164934)) (164937 184598 (FONTSAVAILABLE 164947 . 170301) (
+FONTEXISTS? 170303 . 173842) (\SEARCHFONTFILES 173844 . 176929) (FLUSHFONTCACHE 176931 . 179154) (
+FINDFONTFILES 179156 . 182370) (SORTFONTSPECS 182372 . 184596)) (184599 188706 (MATCHFONTFACE 184609
+ . 185424) (MAKEFONTFACE 185426 . 186452) (FONTFACETOATOM 186454 . 188704)) (189337 189829 (
+\UNITWIDTHSVECTOR 189347 . 189827)) (204458 206525 (FONTDESCRIPTOR.DEFPRINT 204468 . 206047) (
+FONTCLASS.DEFPRINT 206049 . 206523)) (210354 213144 (\CREATEKERNELEMENT 210364 . 210722) (
+\FSETLEFTKERN 210724 . 211215) (\FGETLEFTKERN 211217 . 213142)) (213145 224220 (\CREATEFONT 213155 . 
+216033) (\CREATECHARSET 216035 . 219971) (\INSTALLCHARSETINFO 219973 . 223307) (
+\INSTALLCHARSETINFO.CHARENCODING 223309 . 224218)) (224542 225906 (\FONTRESETCHARWIDTHS 224552 . 
+225904)) (226536 236577 (\CREATEDISPLAYFONT 226546 . 228395) (\CREATECHARSET.DISPLAY 228397 . 234106) 
+(\FONTEXISTS?.DISPLAY 234108 . 236575)) (236578 251443 (STRIKEFONT.FILEP 236588 . 237476) (
+STRIKEFONT.GETCHARSET 237478 . 243070) (WRITESTRIKEFONTFILE 243072 . 247983) (STRIKECSINFO 247985 . 
+251441)) (251474 267791 (MAKEBOLD.CHARSET 251484 . 255133) (MAKEBOLD.CHAR 255135 . 256887) (
+MAKEITALIC.CHARSET 256889 . 260562) (MAKEITALIC.CHAR 260564 . 262910) (\SFMAKEBOLD 262912 . 265136) (
+\SFMAKEITALIC 265138 . 267789)) (267792 271941 (\SFMAKEROTATEDFONT 267802 . 269203) (\SFROTATECSINFO 
+269205 . 269842) (\SFROTATEFONTCHARACTERS 269844 . 270224) (\SFROTATECSINFOOFFSETS 270226 . 271939)) (
+271942 273323 (\SFMAKECOLOR 271952 . 273321)))))
 STOP

sources/LLETHER

@@ -1,15 +1,13 @@
 (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
-
(FILECREATED " 3-May-2021 23:13:56" {DSK}<home>larry>ilisp>medley>sources>LLETHER.;4
 139646 
 
-      changes to%:  (FNS \ETHEREVENTFN \ETHER-AVAILABLE)
-                    (VARS LLETHERCOMS)
+
(FILECREATED "23-Jan-2026 12:42:02" {DSK}<Users>briggs>PROJECTS>Medley>sources>LLETHER.;4
 138728 
 
-      previous date%: " 2-May-2021 12:37:02" {DSK}<home>larry>ilisp>medley>sources>LLETHER.;3)
+      :EDIT-BY nhb
 
+      :CHANGES-TO (FNS \SETETHERFLAGS)
+
+      :PREVIOUS-DATE "20-Dec-2025 14:12:06" {DSK}<Users>briggs>PROJECTS>Medley>sources>LLETHER.;3)
 
-(* ; "
-Copyright (c) 1982-1988, 1990-1993, 2021 by Venue & Xerox Corporation.
-")
 
 (PRETTYCOMPRINT LLETHERCOMS)
 
@@ -17,19 +15,19 @@ Copyright (c) 1982-1988, 1990-1993, 2021 by Venue & Xerox Corporation.
        [(DECLARE%: EVAL@COMPILE DONTCOPY (FILES (SOURCE)
                                                 LLNSDECLS))
         [COMS                                                (* ; 
-
                                                           "Stuff that should be somewhere else!")

+
                                                             "Stuff that should be somewhere else!")

               (INITVARS (ERRORMESSAGESTREAM T)
                      (PROMPTWINDOW T))
               (GLOBALVARS ERRORMESSAGESTREAM PROMPTWINDOW)
               (COMS                                          (* ; 
-
                       "Queue management for data which can be chain-linked through the first cell")

+
                         "Queue management for data which can be chain-linked through the first cell")

                     (DECLARE%: DONTCOPY (EXPORT (RECORDS SYSQUEUE QABLEITEM)
                                                (MACROS \QUEUEHEAD)))
                     (INITRECORDS SYSQUEUE)
                     (SYSRECORDS SYSQUEUE)
                     (FNS CANONICAL.HOSTNAME \ENQUEUE \DEQUEUE \QUEUELENGTH \ONQUEUE \UNQUEUE)
                                                              (* ; 
-
                                                           "Queue management constructed by TCONC")

+
                                                             "Queue management constructed by TCONC")

                     (EXPORT (MACROS \DETCONC \ENTCONC \PEEKTCONC]
         (COMS                                                (* ; "General packet management")

               (DECLARE%: DONTCOPY 
@@ -124,7 +122,7 @@ Copyright (c) 1982-1988, 1990-1993, 2021 by Venue & Xerox Corporation.
               (DECLARE%: EVAL@COMPILE DONTCOPY (GLOBALVARS \CENTICLOCKFACTOR \CENTICLOCKBOX)
                      (RECORDS CENTICLOCK)))
         (COMS                                                (* ; 
-
                                                      "3MB stuff, which is not needed in DandeLion")

+
                                                        "3MB stuff, which is not needed in DandeLion")

               (FNS \3MBGETPACKET \3MB.CREATENDB \3MBSENDPACKET \3MBWATCHER \3MBENCAPSULATE 
                    \3MB.BROADCASTP \3MBFLUSH)
               (INITVARS (\MAXWATCHERGETS 5))
@@ -168,19 +166,18 @@ Copyright (c) 1982-1988, 1990-1993, 2021 by Venue & Xerox Corporation.
 (* "FOLLOWING DEFINITIONS EXPORTED")(DECLARE%: EVAL@COMPILE
 
 (DATATYPE SYSQUEUE
 ((NIL BYTE)
-                        (SYSQUEUEHEAD POINTER)
-                        (NIL BYTE)
-                        (SYSQUEUETAIL POINTER)))
+                    (SYSQUEUEHEAD POINTER)
+                    (NIL BYTE)
+                    (SYSQUEUETAIL POINTER)))
 
 (BLOCKRECORD QABLEITEM
 ((NIL BITS 4)
-                            (QLINK POINTER)                  (* ; 
-
   "Link to next thing in queue always in first pointer of datum, independent of what the datum is")

-                            )
-                           (BLOCKRECORD QABLEITEM ((NIL BITS 4)
-                                                   (LINK POINTER)
-                                                             (* ; 
-
                                                           "Let's also be able to call it a LINK")

-                                                   )))
+                        (QLINK POINTER)                      (* ; 
+
     "Link to next thing in queue always in first pointer of datum, independent of what the datum is")

+                        )
+                       (BLOCKRECORD QABLEITEM ((NIL BITS 4)
+                                               (LINK POINTER)(* ; 
+
                                                             "Let's also be able to call it a LINK")

+                                               )))
 )
 
 (/DECLAREDATATYPE 'SYSQUEUE '(BYTE POINTER BYTE POINTER)
@@ -192,7 +189,7 @@ Copyright (c) 1982-1988, 1990-1993, 2021 by Venue & Xerox Corporation.
 (DECLARE%: EVAL@COMPILE 
 
 (PUTPROPS \QUEUEHEAD
 MACRO
 ((Q)
-                                    (fetch
 (SYSQUEUE SYSQUEUEHEAD) of
 Q)))
+                            (fetch
 (SYSQUEUE SYSQUEUEHEAD) of
 Q)))
 )
 
 (* "END EXPORTED DEFINITIONS")
@@ -208,9 +205,9 @@ Copyright (c) 1982-1988, 1990-1993, 2021 by Venue & Xerox Corporation.
 (ADDTOVAR SYSTEMRECLST
 
 (DATATYPE SYSQUEUE
 ((NIL BYTE)
-                        (SYSQUEUEHEAD POINTER)
-                        (NIL BYTE)
-                        (SYSQUEUETAIL POINTER)))
+                    (SYSQUEUEHEAD POINTER)
+                    (NIL BYTE)
+                    (SYSQUEUETAIL POINTER)))
 )
 (DEFINEQ
 
@@ -362,9 +359,9 @@ Copyright (c) 1982-1988, 1990-1993, 2021 by Venue & Xerox Corporation.
 (* "FOLLOWING DEFINITIONS EXPORTED")(DECLARE%: EVAL@COMPILE 
 
 (PUTPROPS \DETCONC
 MACRO
 [OPENLAMBDA (TQ)
-                                   (PROG1 (\PEEKTCONC TQ)
-                                       (if
 [NULL (CAR (RPLACA TQ (CDAR TQ]
-                                           then
 (RPLACD TQ)))])
+                           (PROG1 (\PEEKTCONC TQ)
+                               (if
 [NULL (CAR (RPLACA TQ (CDAR TQ]
+                                   then
 (RPLACD TQ)))])
 
 (PUTPROPS \ENTCONC
 MACRO
 (= . TCONC))
 
@@ -382,48 +379,48 @@ Copyright (c) 1982-1988, 1990-1993, 2021 by Venue & Xerox Corporation.
 (* "FOLLOWING DEFINITIONS EXPORTED")(DECLARE%: EVAL@COMPILE
 
 (DATATYPE ETHERPACKET
 ((NIL BYTE)
-                           (EPLINK POINTER)                  (* ; "For queue maintenence")

-                           (EPFLAGS BYTE)                    (* ; 
-
                                                           "optional flags for some applications")

-                           (EPUSERFIELD POINTER)             (* ; 
-
                                                           "Arbitrary pointer for applications")

-                           (NIL BYTE)
-                           (EPPLIST POINTER)                 (* ; 
-
                                                  "Extra field for use as an A-list for properties")

-                           (EPTRANSMITTING FLAG)             (* ; 
-
                                "True while packet is being transmitted and hence cannot be reused")

-                           (EPRECEIVING FLAG)                (* ; 
-
          "True when a packet has been seen at the head of the network's input queue at least once")

-                           (NIL BITS 6)
-                           (EPREQUEUE POINTER)               (* ; 
-
                                                  "Where to requeue this packet after transmission")

-                           (NIL BYTE)
-                           (EPSOCKET POINTER)
-                           (NIL BYTE)
-                           (EPNETWORK POINTER)
-                           (EPTYPE WORD)                     (* ; 
-
                                          "Type of packet to be encapsulated (PUP or XIP or 10TO3)")

-                           (NIL WORD)
-                           (EPTIMESTAMP FIXP)                (* ; 
-
                                                        "Gets RCLK value when transmitted/received")

-                           (EPREQUEUEFN POINTER)             (* ; "FN to perform requeueing")

-                           (NIL 4 WORD)                      (* ; "Space for expansion")

+                       (EPLINK POINTER)                      (* ; "For queue maintenence")

+                       (EPFLAGS BYTE)                        (* ; 
+
                                                             "optional flags for some applications")

+                       (EPUSERFIELD POINTER)                 (* ; 
+
                                                             "Arbitrary pointer for applications")

+                       (NIL BYTE)
+                       (EPPLIST POINTER)                     (* ; 
+
                                                    "Extra field for use as an A-list for properties")

+                       (EPTRANSMITTING FLAG)                 (* ; 
+
                                  "True while packet is being transmitted and hence cannot be reused")

+                       (EPRECEIVING FLAG)                    (* ; 
+
            "True when a packet has been seen at the head of the network's input queue at least once")

+                       (NIL BITS 6)
+                       (EPREQUEUE POINTER)                   (* ; 
+
                                                    "Where to requeue this packet after transmission")

+                       (NIL BYTE)
+                       (EPSOCKET POINTER)
+                       (NIL BYTE)
+                       (EPNETWORK POINTER)
+                       (EPTYPE WORD)                         (* ; 
+
                                            "Type of packet to be encapsulated (PUP or XIP or 10TO3)")

+                       (NIL WORD)
+                       (EPTIMESTAMP FIXP)                    (* ; 
+
                                                          "Gets RCLK value when transmitted/received")

+                       (EPREQUEUEFN POINTER)                 (* ; "FN to perform requeueing")

+                       (NIL 4 WORD)                          (* ; "Space for expansion")

                                                              (* ; 
-
       "Note: This next field wants to be quad+2 aligned so that the 10mb packet is quad+3 aligned")

-                           (EPENCAPSULATION 8 WORD)          (* ; 
-
                                            "10mb encapsulation, or 3mb encapsulation with padding")

-                           (EPBODY 289 WORD)                 (* ; 
-
                                  "Body of packet, header up to 16 words plus data up to 546 bytes")

-                           ))
+
         "Note: This next field wants to be quad+2 aligned so that the 10mb packet is quad+3 aligned")

+                       (EPENCAPSULATION 8 WORD)              (* ; 
+
                                              "10mb encapsulation, or 3mb encapsulation with padding")

+                       (EPBODY 289 WORD)                     (* ; 
+
                                    "Body of packet, header up to 16 words plus data up to 546 bytes")

+                       ))
 
 (ACCESSFNS ETHERAUX
 ((AUXPTR (CDR (ASSOC 'AUXPTR (fetch
 EPPLIST of
 DATUM)))
-                                (\EP.PUT.AUX DATUM 'AUXPTR NEWVALUE))
-                         (AUXWORD (OR (CDR (ASSOC 'AUXWORD (fetch
 EPPLIST of
 DATUM)))
-                                      0)
-                                (\EP.PUT.AUX DATUM 'AUXWORD NEWVALUE))
-                         (AUXBYTE (OR (CDR (ASSOC 'AUXBYTE (fetch
 EPPLIST of
 DATUM)))
-                                      0)
-                                (\EP.PUT.AUX DATUM 'AUXBYTE NEWVALUE))))
+                            (\EP.PUT.AUX DATUM 'AUXPTR NEWVALUE))
+                     (AUXWORD (OR (CDR (ASSOC 'AUXWORD (fetch
 EPPLIST of
 DATUM)))
+                                  0)
+                            (\EP.PUT.AUX DATUM 'AUXWORD NEWVALUE))
+                     (AUXBYTE (OR (CDR (ASSOC 'AUXBYTE (fetch
 EPPLIST of
 DATUM)))
+                                  0)
+                            (\EP.PUT.AUX DATUM 'AUXBYTE NEWVALUE))))
 )
 
 (/DECLAREDATATYPE 'ETHERPACKET
@@ -1140,26 +1137,26 @@ Copyright (c) 1982-1988, 1990-1993, 2021 by Venue & Xerox Corporation.
 (ADDTOVAR SYSTEMRECLST
 
 (DATATYPE ETHERPACKET
 ((NIL BYTE)
-                           (EPLINK POINTER)
-                           (EPFLAGS BYTE)
-                           (EPUSERFIELD POINTER)
-                           (NIL BYTE)
-                           (EPPLIST POINTER)
-                           (EPTRANSMITTING FLAG)
-                           (EPRECEIVING FLAG)
-                           (NIL BITS 6)
-                           (EPREQUEUE POINTER)
-                           (NIL BYTE)
-                           (EPSOCKET POINTER)
-                           (NIL BYTE)
-                           (EPNETWORK POINTER)
-                           (EPTYPE WORD)
-                           (NIL WORD)
-                           (EPTIMESTAMP FIXP)
-                           (EPREQUEUEFN POINTER)
-                           (NIL 4 WORD)
-                           (EPENCAPSULATION 8 WORD)
-                           (EPBODY 289 WORD)))
+                       (EPLINK POINTER)
+                       (EPFLAGS BYTE)
+                       (EPUSERFIELD POINTER)
+                       (NIL BYTE)
+                       (EPPLIST POINTER)
+                       (EPTRANSMITTING FLAG)
+                       (EPRECEIVING FLAG)
+                       (NIL BITS 6)
+                       (EPREQUEUE POINTER)
+                       (NIL BYTE)
+                       (EPSOCKET POINTER)
+                       (NIL BYTE)
+                       (EPNETWORK POINTER)
+                       (EPTYPE WORD)
+                       (NIL WORD)
+                       (EPTIMESTAMP FIXP)
+                       (EPREQUEUEFN POINTER)
+                       (NIL 4 WORD)
+                       (EPENCAPSULATION 8 WORD)
+                       (EPBODY 289 WORD)))
 )
 (DEFINEQ
 
@@ -1499,21 +1496,19 @@ Copyright (c) 1982-1988, 1990-1993, 2021 by Venue & Xerox Corporation.
                               HOSTNAMEP _ 'NILL])
 
 (\ETHEREVENTFN

-  [LAMBDA (DEV EVENT)
                                  (* ; "Edited  3-May-2021 23:12 by larry")

+  [LAMBDA (DEV EVENT)
                                        (* ; "Edited 17-Dec-2025 11:01 by nhb")


+                                                           (* ; "Edited  3-May-2021 23:12 by larry")

     (PROG (NDB TURNOFFNS TIMESET)
           (SELECTQ EVENT
               ((NIL AFTERLOGOUT AFTERSYSOUT AFTERMAKESYS AFTERSAVEVM RESTART) 
                    (SETQ \PUP.READY (SETQ \NS.READY (SETQ \IP.READY)))
-                   (OR (\ETHER-AVAILABLE
)
-                       (RETURN))
                    (\SETETHERFLAGS
)
                    (\SETLOCALNSNUMBERS
)
                    (\FLUSHNDBS
 EVENT)
                    (SETQ \10MBLOCALNDB (COND
                                           (\10MBFLG (SETQ NDB (\10MB.CREATENDB \10MBFLG))
                                                  (COND
-                                                    (\LOCALNDBS (replace
 NDBNEXT of
 
-                                                                                           \LOCALNDBS
+                                                    (\LOCALNDBS (replace
 NDBNEXT of
 \LOCALNDBS
                                                                    with
 NDB))
                                                     (T (SETQ \LOCALNDBS NDB)))
                                                  NDB)))
@@ -1536,10 +1531,10 @@ Copyright (c) 1982-1988, 1990-1993, 2021 by Venue & Xerox Corporation.
               ((BEFOREMAKESYS BEFORELOGOUT BEFORESYSOUT BEFORESAVEVM) 
                    (COND
                       ((EQ EVENT 'BEFORESAVEVM)              (* ; 
-
                       "Save passwords in place outside vmem to avoid having to reenter them later")

+
                         "Save passwords in place outside vmem to avoid having to reenter them later")

                        (\STASH.PASSWORDS))
                       (T                                     (* ; 
-
                                                           "No need to flush this before SAVEVM")

+
                                                             "No need to flush this before SAVEVM")

                          (CLRHASH \ETHERPORTS)))
                    (CLRHASH LOGINPASSWORDS))
               NIL])
@@ -1556,11 +1551,13 @@ Copyright (c) 1982-1988, 1990-1993, 2021 by Venue & Xerox Corporation.
     (printout PROMPTWINDOW T "[Time not set]"])
 
 (\SETETHERFLAGS

-  [LAMBDA NIL
                                          (* ; "Edited  2-May-2021 12:35 by larry")

+  [LAMBDA NIL
                                                (* ; "Edited 23-Jan-2026 12:39 by nhb")


+                                                           (* ; "Edited  2-May-2021 12:35 by larry")

 
     (* ;; "for Medley there is no 3MB ethernet ; used to be conditional on \MACHINETYPE")

 
-    (SETQ \10MBFLG 0)
+    (SETQ \10MBFLG (AND (\ETHER-AVAILABLE
)
+                        0))
     (SETQ \3MBFLG NIL)
     (SETQ *MAXIMUM-PACKET-SIZE* (- (TIMES 2 BYTESPERPAGE)
                                    (UNFOLD (INDEXF (FETCH
 EPBODY))
@@ -1706,40 +1703,40 @@ Copyright (c) 1982-1988, 1990-1993, 2021 by Venue & Xerox Corporation.
 (DECLARE%: DONTCOPY 
 (* "FOLLOWING DEFINITIONS EXPORTED")(DECLARE%: EVAL@COMPILE
 
-(DATATYPE NDB
 ((NETTYPE BYTE)                            (* ; "10 or 3 for now")

-                   (NDBNEXT POINTER)                         (* ; "Link to next NDB")

-                   (NDBPUPNET# BYTE)                         (* ; 
-
          "Pup number of this net.  May be different from NS net number, though not in Xerox world")

-                   (NDBNSNET# POINTER)                       (* ; 
-
                                            "Can be 32-bits, so might as well leave its box around")

-                   (NDBTASK# BYTE)                           (* ; "Task # of this network")

-                   (NDBBROADCASTP POINTER)                   (* ; 
-
                                        "Function that returns true if packet is of broadcast type")

-                   (NDBPUPHOST# BYTE)                        (* ; 
-
                "My pup address on this net.  NS address is global to all nets, so not needed here")

-                   (NDBTRANSMITTER POINTER)                  (* ; 
-
                     "(NDB PACKET) -- fn to send a raw packet on this net.  returns NIL on failure")

-                   (NIL BYTE)
-                   (NDBENCAPSULATOR POINTER)                 (* ; 
-
   "(NDB PACKET HOST LENGTH TYPE) -- fn to encapsulate and send a higher-level packet on this net ")

-                   (NDBCSB POINTER)                          (* ; "Pointer to CSB for this network")

-                   (NDBIQLENGTH BYTE)
-                   (NDBIQ POINTER)                           (* ; 
-
                                                           "Queue of empty packets for receiver")

-                   (NDBTQ POINTER)                           (* ; "Queue of packets to transmit")

-                   (NDBTRANSLATIONS POINTER)                 (* ; 
-
                                         "Cache of translations, 3:10 or 10:3 according to network")

-                   (NDBETHERFLUSHER POINTER)                 (* ; "Turns off this ether.  Args NDB")

-                   (NDBWATCHER POINTER)
-                   (NDBCANHEARSELF POINTER)                  (* ; 
-
                                            "True if receiver can hear packets sent by transmitter")

-                   (NDBIPNET# POINTER)
-                   (NDBIPHOST# POINTER)
-                   (NDBPUPTYPE WORD)                         (* ; 
-
                                                      "The packet encapsulation of PUP on this net")

-                   (NIL WORD)
-                   (NIL POINTER)                             (* ; "Spares")

-                   ))
+(DATATYPE NDB
 ((NETTYPE BYTE)                                (* ; "10 or 3 for now")

+               (NDBNEXT POINTER)                             (* ; "Link to next NDB")

+               (NDBPUPNET# BYTE)                             (* ; 
+
            "Pup number of this net.  May be different from NS net number, though not in Xerox world")

+               (NDBNSNET# POINTER)                           (* ; 
+
                                              "Can be 32-bits, so might as well leave its box around")

+               (NDBTASK# BYTE)                               (* ; "Task # of this network")

+               (NDBBROADCASTP POINTER)                       (* ; 
+
                                          "Function that returns true if packet is of broadcast type")

+               (NDBPUPHOST# BYTE)                            (* ; 
+
                  "My pup address on this net.  NS address is global to all nets, so not needed here")

+               (NDBTRANSMITTER POINTER)                      (* ; 
+
                       "(NDB PACKET) -- fn to send a raw packet on this net.  returns NIL on failure")

+               (NIL BYTE)
+               (NDBENCAPSULATOR POINTER)                     (* ; 
+
     "(NDB PACKET HOST LENGTH TYPE) -- fn to encapsulate and send a higher-level packet on this net ")

+               (NDBCSB POINTER)                              (* ; "Pointer to CSB for this network")

+               (NDBIQLENGTH BYTE)
+               (NDBIQ POINTER)                               (* ; 
+
                                                             "Queue of empty packets for receiver")

+               (NDBTQ POINTER)                               (* ; "Queue of packets to transmit")

+               (NDBTRANSLATIONS POINTER)                     (* ; 
+
                                           "Cache of translations, 3:10 or 10:3 according to network")

+               (NDBETHERFLUSHER POINTER)                     (* ; "Turns off this ether.  Args NDB")

+               (NDBWATCHER POINTER)
+               (NDBCANHEARSELF POINTER)                      (* ; 
+
                                              "True if receiver can hear packets sent by transmitter")

+               (NDBIPNET# POINTER)
+               (NDBIPHOST# POINTER)
+               (NDBPUPTYPE WORD)                             (* ; 
+
                                                        "The packet encapsulation of PUP on this net")

+               (NIL WORD)
+               (NIL POINTER)                                 (* ; "Spares")

+               ))
 
 (RECORD ROUTING
 (RTNET# RTHOPCOUNT RTGATEWAY# RTNDB RTTIMER RTRECENT))
 )
@@ -1786,26 +1783,24 @@ Copyright (c) 1982-1988, 1990-1993, 2021 by Venue & Xerox Corporation.
 (DECLARE%: EVAL@COMPILE 
 
 (PUTPROPS ENCAPSULATE.ETHERPACKET
 MACRO
 ((NDB PACKET HOST LENGTH TYPE)
-                                                 (SPREADAPPLY* (fetch
 NDBENCAPSULATOR
-                                                                  of
 NDB)
-                                                        NDB PACKET HOST LENGTH TYPE)))
+                                         (SPREADAPPLY* (fetch
 NDBENCAPSULATOR of
 NDB)
+                                                NDB PACKET HOST LENGTH TYPE)))
 
 (PUTPROPS TRANSMIT.ETHERPACKET
 MACRO
 ((NDB PACKET)
-                                              (SPREADAPPLY* (fetch
 NDBTRANSMITTER of
 NDB)
-                                                     NDB PACKET)))
+                                      (SPREADAPPLY* (fetch
 NDBTRANSMITTER of
 NDB)
+                                             NDB PACKET)))
 
 (PUTPROPS BROADCASTP
 MACRO
 ((PACKET)
-                                    ([LAMBDA (NDB)
-                                       (AND NDB (APPLY* (fetch
 NDBBROADCASTP of
 NDB)
-                                                       PACKET NDB]
-                                     (fetch
 EPNETWORK of
 PACKET))))
+                            ([LAMBDA (NDB)
+                               (AND NDB (APPLY* (fetch
 NDBBROADCASTP of
 NDB)
+                                               PACKET NDB]
+                             (fetch
 EPNETWORK of
 PACKET))))
 
 (PUTPROPS \CHECK.ROUTING.TABLE
 MACRO
 [(TABLE)
-                                              (if
 (NEQ (NTYPX TABLE)
-                                                           \ROUTING.TABLE.TYPENUM)
-                                                  then
 (CL:ERROR 'CONDITIONS:SIMPLE-TYPE-ERROR 
-                                                                  :CULPRIT TABLE :EXPECTED-TYPE
-                                                                  'RoutingTable])
+                                      (if
 (NEQ (NTYPX TABLE)
+                                               \ROUTING.TABLE.TYPENUM)
+                                          then
 (CL:ERROR 'CONDITIONS:SIMPLE-TYPE-ERROR :CULPRIT TABLE
+                                                      :EXPECTED-TYPE 'RoutingTable])
 )
 
 (DECLARE%: DOEVAL@COMPILE DONTCOPY
@@ -1851,28 +1846,28 @@ Copyright (c) 1982-1988, 1990-1993, 2021 by Venue & Xerox Corporation.
 (ADDTOVAR SYSTEMRECLST
 
 (DATATYPE NDB
 ((NETTYPE BYTE)
-                   (NDBNEXT POINTER)
-                   (NDBPUPNET# BYTE)
-                   (NDBNSNET# POINTER)
-                   (NDBTASK# BYTE)
-                   (NDBBROADCASTP POINTER)
-                   (NDBPUPHOST# BYTE)
-                   (NDBTRANSMITTER POINTER)
-                   (NIL BYTE)
-                   (NDBENCAPSULATOR POINTER)
-                   (NDBCSB POINTER)
-                   (NDBIQLENGTH BYTE)
-                   (NDBIQ POINTER)
-                   (NDBTQ POINTER)
-                   (NDBTRANSLATIONS POINTER)
-                   (NDBETHERFLUSHER POINTER)
-                   (NDBWATCHER POINTER)
-                   (NDBCANHEARSELF POINTER)
-                   (NDBIPNET# POINTER)
-                   (NDBIPHOST# POINTER)
-                   (NDBPUPTYPE WORD)
-                   (NIL WORD)
-                   (NIL POINTER)))
+               (NDBNEXT POINTER)
+               (NDBPUPNET# BYTE)
+               (NDBNSNET# POINTER)
+               (NDBTASK# BYTE)
+               (NDBBROADCASTP POINTER)
+               (NDBPUPHOST# BYTE)
+               (NDBTRANSMITTER POINTER)
+               (NIL BYTE)
+               (NDBENCAPSULATOR POINTER)
+               (NDBCSB POINTER)
+               (NDBIQLENGTH BYTE)
+               (NDBIQ POINTER)
+               (NDBTQ POINTER)
+               (NDBTRANSLATIONS POINTER)
+               (NDBETHERFLUSHER POINTER)
+               (NDBWATCHER POINTER)
+               (NDBCANHEARSELF POINTER)
+               (NDBIPNET# POINTER)
+               (NDBIPHOST# POINTER)
+               (NDBPUPTYPE WORD)
+               (NIL WORD)
+               (NIL POINTER)))
 )
 (DEFINEQ
 
@@ -2231,48 +2226,49 @@ Copyright (c) 1982-1988, 1990-1993, 2021 by Venue & Xerox Corporation.
 (DECLARE%: EVAL@COMPILE
 
 (ACCESSFNS ETHERTRANS
 [(TRANSBODY (LOCF (fetch
 (ETHERPACKET EPBODY) of
 DATUM]
-                          [BLOCKRECORD TRANSBODY ((TRANSOPERATION WORD)
+                      [BLOCKRECORD TRANSBODY ((TRANSOPERATION WORD)
                                                              (* ; "Request or response")

-                                                  (BASETRANSNSHOST 3 WORD)
+                                              (BASETRANSNSHOST 3 WORD)
                                                              (* ; "Known or desired NS address")

-                                                  (TRANSPUPHOST BYTE)
+                                              (TRANSPUPHOST BYTE)
                                                              (* ; "Known or desired PUP address")

-                                                  (NIL BYTE) (* ; "Padding")

-                                                  (BASETRANSSENDERNSHOST 3 WORD)
+                                              (NIL BYTE)     (* ; "Padding")

+                                              (BASETRANSSENDERNSHOST 3 WORD)
                                                              (* ; "Sender's info")

-                                                  (TRANSSENDERPUPHOST BYTE)
-                                                  (NIL BYTE))
-                                 [ACCESSFNS BASETRANSNSHOST ((TRANSNSHOST (\LOADNSHOSTNUMBER
-                                                                           (LOCF DATUM))
-                                                                    (\STORENSHOSTNUMBER (LOCF DATUM)
-                                                                           NEWVALUE]
-                                 (ACCESSFNS BASETRANSSENDERNSHOST ((TRANSSENDERNSHOST
-                                                                    (\LOADNSHOSTNUMBER (LOCF DATUM))
-                                                                    (\STORENSHOSTNUMBER (LOCF DATUM)
-                                                                           NEWVALUE]
-                          [ACCESSFNS ETHERTRANS
-                                 ([TRANSNSADDRESS
-                                   (PROGN                    (* ; 
-
                                        "Kludge to get a pointer that looks like a full ns address")

-                                          (\ADDBASE DATUM (CONSTANT (+ (INDEXF (FETCH

-                                                                                (ETHERPACKET EPBODY)
-                                                                                  of
 T))
-                                                                       (INDEXF (FETCH

-                                                                                (ETHERTRANS 
+                                              (TRANSSENDERPUPHOST BYTE)
+                                              (NIL BYTE))
+                             [ACCESSFNS BASETRANSNSHOST ((TRANSNSHOST (\LOADNSHOSTNUMBER (LOCF DATUM)
+                                                                             )
+                                                                (\STORENSHOSTNUMBER (LOCF DATUM)
+                                                                       NEWVALUE]
+                             (ACCESSFNS BASETRANSSENDERNSHOST ((TRANSSENDERNSHOST (\LOADNSHOSTNUMBER
+                                                                                   (LOCF DATUM))
+                                                                      (\STORENSHOSTNUMBER
+                                                                       (LOCF DATUM)
+                                                                       NEWVALUE]
+                      [ACCESSFNS ETHERTRANS
+                             ([TRANSNSADDRESS (PROGN         (* ; 
+
                                          "Kludge to get a pointer that looks like a full ns address")

+                                                     (\ADDBASE
+                                                      DATUM
+                                                      (CONSTANT (+ (INDEXF (FETCH
 (ETHERPACKET EPBODY
+                                                                                         )
+                                                                              of
 T))
+                                                                   (INDEXF (FETCH
 (ETHERTRANS 
                                                                                       BASETRANSNSHOST
-                                                                                       ) of

-                                                                                         T))
-                                                                       -2]
-                                  (TRANSSENDERNSADDRESS
-                                   (\ADDBASE DATUM (CONSTANT (+ (INDEXF (FETCH
 (ETHERPACKET
-                                                                                    EPBODY)
-                                                                           of
 T))
-                                                                (INDEXF (FETCH
 (ETHERTRANS 
+                                                                                         )
+                                                                              of
 T))
+                                                                   -2]
+                              (TRANSSENDERNSADDRESS (\ADDBASE
+                                                     DATUM
+                                                     (CONSTANT (+ (INDEXF (FETCH
 (ETHERPACKET EPBODY)
+                                                                             of
 T))
+                                                                  (INDEXF (FETCH
 (ETHERTRANS 
                                                                                 BASETRANSSENDERNSHOST
-                                                                                          )
-                                                                           of
 T))
-                                                                -2]
-                          (TYPE?
 (type?
 ETHERPACKET DATUM)))
+                                                                                        )
+                                                                             of
 T))
+                                                                  -2]
+                      (TYPE?
 (type?
 ETHERPACKET DATUM)))
 )
 
 (DECLARE%: EVAL@COMPILE 
@@ -2571,7 +2567,7 @@ Copyright (c) 1982-1988, 1990-1993, 2021 by Venue & Xerox Corporation.
 (RPAQ? \RAWTRACING
 )
 
 (ADDTOVAR \PACKET.PRINTERS
 (512 . PRINTPUP)
-                               (1537 . PRINT10TO3))
+                           (1537 . PRINT10TO3))
 (DECLARE%: DOEVAL@COMPILE DONTCOPY
 
 (GLOBALVARS \RAWTRACING \PACKET.PRINTERS PUPTRACEFILE XIPTRACEFILE \RCLKMILLISECOND)
@@ -2615,7 +2611,7 @@ Copyright (c) 1982-1988, 1990-1993, 2021 by Venue & Xerox Corporation.
 (DECLARE%: EVAL@COMPILE
 
 (BLOCKRECORD CENTICLOCK
 ((CENTICLOCKSIGNBIT BITS 1)
-                             (CENTICLOCKMAGNITUDE BITS 31)))
+                         (CENTICLOCKMAGNITUDE BITS 31)))
 )
 )
 
@@ -2757,43 +2753,41 @@ Copyright (c) 1982-1988, 1990-1993, 2021 by Venue & Xerox Corporation.
 (DECLARE%: DONTCOPY 
 (DECLARE%: EVAL@COMPILE
 
-(ACCESSFNS 3MBENCAPSULATION
 [(3MBENCAPSTART (LOCF (fetch
 (ETHERPACKET EPENCAPSULATION)
-                                                         of
 DATUM]
-                                (BLOCKRECORD 3MBENCAPSTART ((NIL 5 WORD)
+(ACCESSFNS 3MBENCAPSULATION
 [(3MBENCAPSTART (LOCF (fetch
 (ETHERPACKET EPENCAPSULATION) of
 DATUM]
+                            (BLOCKRECORD 3MBENCAPSTART ((NIL 5 WORD)
                                                              (* ; "waste space")

-                                                            (3MBLENGTH WORD)
+                                                        (3MBLENGTH WORD)
                                                              (* ; 
-
                                             "Length of packet in words, starting at the next word")

-                                                            (3MBDESTHOST BYTE)
+
                                               "Length of packet in words, starting at the next word")

+                                                        (3MBDESTHOST BYTE)
                                                              (* ; "Immediate destination host")

-                                                            (3MBSOURCEHOST BYTE)
+                                                        (3MBSOURCEHOST BYTE)
                                                              (* ; "Us")

-                                                            (3MBTYPE WORD)
+                                                        (3MBTYPE WORD)
                                                              (* ; 
-
                                                           "Type of packet -- PUP or XIP or 10TO3")

-                                                            )
-                                       [ACCESSFNS 3MBLENGTH ((3MBBASE (LOCF DATUM]
+
                                                             "Type of packet -- PUP or XIP or 10TO3")

+                                                        )
+                                   [ACCESSFNS 3MBLENGTH ((3MBBASE (LOCF DATUM]
                                                              (* ; "What to hand to BCPL")

-                                       )
-                                (TYPE?
 (type?
 ETHERPACKET DATUM)))
+                                   )
+                            (TYPE?
 (type?
 ETHERPACKET DATUM)))
 
 (BLOCKRECORD PBI
 ((PBILINK WORD)
-                      (PBIQUEUE WORD)
-                      (PBISOCKET WORD)
-                      (PBINDB WORD)
-                      (PBIINPUTP FLAG)
-                      (PBIALLNETSP FLAG)
-                      (PBINOZEROP FLAG)
-                      (NIL BITS 13)
-                      (PBITIMER WORD)
-                      (PBILENGTH WORD)
-                      (PBIENCAPSULATION 2 WORD)
-                      (PBIFIRSTPUPWORD 10 WORD)
-                      (PBIFIRSTPUPDATAWORD WORD))
-                     [ACCESSFNS PBI ((PBIPUPSTART (LOCF (fetch
 PBIFIRSTPUPWORD of
 DATUM)))
-                                     (PBIPUPDATASTART (LOCF (fetch
 PBIFIRSTPUPDATAWORD
-                                                               of
 DATUM)))
-                                     (PBIRAWSTART (LOCF (fetch
 PBILENGTH of
 DATUM])
+                  (PBIQUEUE WORD)
+                  (PBISOCKET WORD)
+                  (PBINDB WORD)
+                  (PBIINPUTP FLAG)
+                  (PBIALLNETSP FLAG)
+                  (PBINOZEROP FLAG)
+                  (NIL BITS 13)
+                  (PBITIMER WORD)
+                  (PBILENGTH WORD)
+                  (PBIENCAPSULATION 2 WORD)
+                  (PBIFIRSTPUPWORD 10 WORD)
+                  (PBIFIRSTPUPDATAWORD WORD))
+                 [ACCESSFNS PBI ((PBIPUPSTART (LOCF (fetch
 PBIFIRSTPUPWORD of
 DATUM)))
+                                 (PBIPUPDATASTART (LOCF (fetch
 PBIFIRSTPUPDATAWORD of
 DATUM)))
+                                 (PBIRAWSTART (LOCF (fetch
 PBILENGTH of
 DATUM])
 )
 
 (* "FOLLOWING DEFINITIONS EXPORTED")(DECLARE%: EVAL@COMPILE 
@@ -2879,8 +2873,8 @@ Copyright (c) 1982-1988, 1990-1993, 2021 by Venue & Xerox Corporation.
                                                              T])
 )
 
-(RPAQQ ROUTINGINFOMACRO
 (1 "Operation = " WORDS 2 "Info: " REPEAT "(" SEPR ", " INTEGER -4 WORDS
-                               SEPR ") " -2 FINALLY ")"))
+(RPAQQ ROUTINGINFOMACRO
 (1 "Operation = " WORDS 2 "Info: " REPEAT "(" SEPR ", " INTEGER -4 WORDS SEPR
+                           ") " -2 FINALLY ")"))
 (DECLARE%: EVAL@COMPILE DONTCOPY 
 (DECLARE%: DOEVAL@COMPILE DONTCOPY
 
@@ -2913,10 +2907,10 @@ Copyright (c) 1982-1988, 1990-1993, 2021 by Venue & Xerox Corporation.
 (DECLARE%: DONTCOPY 
 
 (RPAQQ D0DEVICES
 ((\DEVICE.3MBETHERIN 7)
-                      (\DEVICE.3MBETHEROUT 6)
-                      (\DEVICE.10MBETHER 21)
-                      (\DEVICE.SA4000 3)
-                      (\DEVICE.DISPLAY 2)))
+                  (\DEVICE.3MBETHEROUT 6)
+                  (\DEVICE.10MBETHER 21)
+                  (\DEVICE.SA4000 3)
+                  (\DEVICE.DISPLAY 2)))
 (DECLARE%: EVAL@COMPILE 
 
 (RPAQQ \DEVICE.3MBETHERIN
 7)
@@ -2947,33 +2941,31 @@ Copyright (c) 1982-1988, 1990-1993, 2021 by Venue & Xerox Corporation.
 (* "END EXPORTED DEFINITIONS")
 
 )
-(PUTPROPS LLETHER COPYRIGHT ("Venue & Xerox Corporation" 1982 1983 1984 1985 1986 1987 1988 1990 1991 
-1992 1993 2021))
 (DECLARE%: DONTCOPY
-  (FILEMAP (NIL (10792 19248 (CANONICAL.HOSTNAME 10802 . 12391) (\ENQUEUE 12393 . 15038) (\DEQUEUE 15040
- . 16367) (\QUEUELENGTH 16369 . 16669) (\ONQUEUE 16671 . 16937) (\UNQUEUE 16939 . 19246)) (52949 56815
- (\ALLOCATE.ETHERPACKET 52959 . 54000) (\RELEASE.ETHERPACKET 54002 . 55075) (RELEASE.PUP 55077 . 55222
-) (\FLUSH.PACKET.QUEUE 55224 . 55575) (\REQUEUE.ETHERPACKET 55577 . 56091) (\EP.PUT.AUX 56093 . 56813)
-) (57389 68770 (\SETLOCALNSNUMBERS 57399 . 58784) (\LOADNSADDRESS 58786 . 59078) (\STORENSADDRESS 
-59080 . 59261) (\PRINTNSADDRESS 59263 . 60346) (\NSADDRESS.DEFPRINT 60348 . 65293) (
-\NSADDRESS.PRINT.DECIMAL 65295 . 67426) (\LOADNSHOSTNUMBER 67428 . 68057) (\STORENSHOSTNUMBER 68059 . 
-68463) (PRINTNSHOSTNUMBER 68465 . 68768)) (68883 74631 (\ETHERINIT 68893 . 69463) (\ETHEREVENTFN 69465
- . 71997) (\ETHER-AVAILABLE 71999 . 72157) (\TIME.NOT.SET 72159 . 72485) (\SETETHERFLAGS 72487 . 72938
-) (\FLUSHNDBS 72940 . 74118) (\FLUSH.NDB.QUEUE 74120 . 74629)) (74632 77924 (\CHECKSUM 74642 . 76574) 
-(\HANDLE.RAW.OTHER 76576 . 76931) (\HANDLE.RAW.PACKET 76933 . 77445) (\ADD.PACKET.FILTER 77447 . 77679
-) (\DEL.PACKET.FILTER 77681 . 77922)) (85757 86282 (ENCAPSULATE.ETHERPACKET 85767 . 86039) (
-TRANSMIT.ETHERPACKET 86041 . 86280)) (86570 99166 (\AGE.ROUTING.TABLE 86580 . 88729) (
-\ADD.ROUTING.TABLE.ENTRY 88731 . 89427) (\CLEAR.ROUTING.TABLE 89429 . 90156) (\MAP.ROUTING.TABLE 90158
- . 90686) (PRINTROUTINGTABLE 90688 . 94313) (\ROUTINGTABLE.INFOHOOK 94315 . 99164)) (99651 106436 (
-\TRANSLATE.10TO3 99661 . 101445) (\NOTE.10TO3 101447 . 103063) (\HANDLE.RAW.10TO3 103065 . 106434)) (
-110418 125240 (PRINTPACKET 110428 . 110989) (\MAYBEPRINTPACKET 110991 . 112648) (PRINT10TO3 112650 . 
-114018) (PRINTPACKETDATA 114020 . 119310) (PRINTPACKETQUEUE 119312 . 119741) (TIME.SINCE.PACKET 119743
- . 120228) (MAKE-NETWORK-TRACE-WINDOW 120230 . 123772) (\CHANGE.ETHER.TRACING 123774 . 125238)) (
-125611 126426 (\CENTICLOCK 125621 . 126424)) (126881 132981 (\3MBGETPACKET 126891 . 128311) (
-\3MB.CREATENDB 128313 . 129028) (\3MBSENDPACKET 129030 . 131213) (\3MBWATCHER 131215 . 131953) (
-\3MBENCAPSULATE 131955 . 132503) (\3MB.BROADCASTP 132505 . 132676) (\3MBFLUSH 132678 . 132979)) (
-135935 137878 (ASSURE.ETHER.ON 135945 . 136275) (INITPUPLEVEL1 136277 . 136757) (TURN.ON.ETHER 136759
- . 136904) (RESTART.ETHER 136906 . 137280) (TURN.OFF.ETHER 137282 . 137600) (PRINTWORDS 137602 . 
-137876)) (138153 138688 (\DEVICE.INPUT 138163 . 138328) (\DEVICE.OUTPUT 138330 . 138524) (\D0.STARTIO 
-138526 . 138686)))))
+  (FILEMAP (NIL (10585 19041 (CANONICAL.HOSTNAME 10595 . 12184) (\ENQUEUE 12186 . 14831) (\DEQUEUE 14833
+ . 16160) (\QUEUELENGTH 16162 . 16462) (\ONQUEUE 16464 . 16730) (\UNQUEUE 16732 . 19039)) (52600 56466
+ (\ALLOCATE.ETHERPACKET 52610 . 53651) (\RELEASE.ETHERPACKET 53653 . 54726) (RELEASE.PUP 54728 . 54873
+) (\FLUSH.PACKET.QUEUE 54875 . 55226) (\REQUEUE.ETHERPACKET 55228 . 55742) (\EP.PUT.AUX 55744 . 56464)
+) (57040 68421 (\SETLOCALNSNUMBERS 57050 . 58435) (\LOADNSADDRESS 58437 . 58729) (\STORENSADDRESS 
+58731 . 58912) (\PRINTNSADDRESS 58914 . 59997) (\NSADDRESS.DEFPRINT 59999 . 64944) (
+\NSADDRESS.PRINT.DECIMAL 64946 . 67077) (\LOADNSHOSTNUMBER 67079 . 67708) (\STORENSHOSTNUMBER 67710 . 
+68114) (PRINTNSHOSTNUMBER 68116 . 68419)) (68534 74394 (\ETHERINIT 68544 . 69114) (\ETHEREVENTFN 69116
+ . 71594) (\ETHER-AVAILABLE 71596 . 71754) (\TIME.NOT.SET 71756 . 72082) (\SETETHERFLAGS 72084 . 72701
+) (\FLUSHNDBS 72703 . 73881) (\FLUSH.NDB.QUEUE 73883 . 74392)) (74395 77687 (\CHECKSUM 74405 . 76337) 
+(\HANDLE.RAW.OTHER 76339 . 76694) (\HANDLE.RAW.PACKET 76696 . 77208) (\ADD.PACKET.FILTER 77210 . 77442
+) (\DEL.PACKET.FILTER 77444 . 77685)) (85191 85716 (ENCAPSULATE.ETHERPACKET 85201 . 85473) (
+TRANSMIT.ETHERPACKET 85475 . 85714)) (86004 98600 (\AGE.ROUTING.TABLE 86014 . 88163) (
+\ADD.ROUTING.TABLE.ENTRY 88165 . 88861) (\CLEAR.ROUTING.TABLE 88863 . 89590) (\MAP.ROUTING.TABLE 89592
+ . 90120) (PRINTROUTINGTABLE 90122 . 93747) (\ROUTINGTABLE.INFOHOOK 93749 . 98598)) (99085 105870 (
+\TRANSLATE.10TO3 99095 . 100879) (\NOTE.10TO3 100881 . 102497) (\HANDLE.RAW.10TO3 102499 . 105868)) (
+109860 124682 (PRINTPACKET 109870 . 110431) (\MAYBEPRINTPACKET 110433 . 112090) (PRINT10TO3 112092 . 
+113460) (PRINTPACKETDATA 113462 . 118752) (PRINTPACKETQUEUE 118754 . 119183) (TIME.SINCE.PACKET 119185
+ . 119670) (MAKE-NETWORK-TRACE-WINDOW 119672 . 123214) (\CHANGE.ETHER.TRACING 123216 . 124680)) (
+125049 125864 (\CENTICLOCK 125059 . 125862)) (126315 132415 (\3MBGETPACKET 126325 . 127745) (
+\3MB.CREATENDB 127747 . 128462) (\3MBSENDPACKET 128464 . 130647) (\3MBWATCHER 130649 . 131387) (
+\3MBENCAPSULATE 131389 . 131937) (\3MB.BROADCASTP 131939 . 132110) (\3MBFLUSH 132112 . 132413)) (
+135157 137100 (ASSURE.ETHER.ON 135167 . 135497) (INITPUPLEVEL1 135499 . 135979) (TURN.ON.ETHER 135981
+ . 136126) (RESTART.ETHER 136128 . 136502) (TURN.OFF.ETHER 136504 . 136822) (PRINTWORDS 136824 . 
+137098)) (137371 137906 (\DEVICE.INPUT 137381 . 137546) (\DEVICE.OUTPUT 137548 . 137742) (\D0.STARTIO 
+137744 . 137904)))))
 STOP