EXAMINEDEFS uses the Tedit atom-bound table for word selection

lispusers/EXAMINEDEFS

@@ -1,12 +1,12 @@
 (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
 
-
(FILECREATED "31-Mar-2025 13:53:38" {WMEDLEY}<lispusers>EXAMINEDEFS.;56
 16674  
+
(FILECREATED " 6-Apr-2025 23:54:50" {WMEDLEY}<lispusers>EXAMINEDEFS.;57
 16827  
 
       :EDIT-BY rmk
 
-      :CHANGES-TO (FNS EXAMINEDEFS)
+      :CHANGES-TO (FNS TEDITDEF)
 
-      :PREVIOUS-DATE "18-Feb-2025 23:01:57" {WMEDLEY}<lispusers>EXAMINEDEFS.;55)
+      :PREVIOUS-DATE "31-Mar-2025 13:53:38" {WMEDLEY}<lispusers>EXAMINEDEFS.;56)
 
 
 (PRETTYCOMPRINT EXAMINEDEFSCOMS)
@@ -198,11 +198,12 @@
                       NIL TITLE2])
 
 (TEDITDEF

-  [LAMBDA (NAME DEF TYPE READERENVIRONMENT WIDTH)
            (* ; "Edited 13-Oct-2023 00:23 by rmk")


+  [LAMBDA (NAME DEF TYPE READERENVIRONMENT WIDTH)
            (* ; "Edited  6-Apr-2025 23:53 by rmk")


+                                                             (* ; "Edited 13-Oct-2023 00:23 by rmk")


                                                              (* ; "Edited 23-Jun-2022 17:27 by rmk")


                                                              (* ; "Edited 28-Jan-2022 23:36 by rmk")


                                                              (* ; "Edited 12-Jan-2022 17:27 by rmk")

-    (LET ((TSTREAM (OPENTEXTSTREAM)))
+    (LET [(TSTREAM (OPENTEXTSTREAM NIL NIL `(BOUNDTABLE ,(TEDIT.ATOMBOUND.READTABLE]
          (DSPFONT DEFAULTFONT TSTREAM)
          (CL:WHEN WIDTH
              (LINELENGTH (IQUOTIENT WIDTH (CHARWIDTH (CHARCODE SPACE)
@@ -280,6 +281,6 @@
 (FILESLOAD (SYSLOAD)
        COMPARETEXT VERSIONDEFS)
 (DECLARE%: DONTCOPY
-  (FILEMAP (NIL (665 16443 (EXAMINEDEFS 675 . 10997) (EXAMINEFILES 10999 . 12481) (TEDITDEF 12483 . 
+  (FILEMAP (NIL (662 16596 (EXAMINEDEFS 672 . 10994) (EXAMINEFILES 10996 . 12478) (TEDITDEF 12480 . 
-14649) (EXVV 14651 . 16441)))))
+14802) (EXVV 14804 . 16594)))))
 STOP