From 416a77419b77215c6130a60e504cc1fee1ca4541 Mon Sep 17 00:00:00 2001
From: rmkaplan <ron.kaplan@post.harvard.edu>
Date: Wed, 12 Nov 2025 23:13:13 -0800
Subject: [PATCH] AINTERRUPT:  removeRUBOUT interrupt

---
 sources/AINTERRUPT      |  41 +++++++++++++++++++++-------------------
 sources/AINTERRUPT.LCOM | Bin 11907 -> 11865 bytes
 2 files changed, 22 insertions(+), 19 deletions(-)

diff --git a/sources/AINTERRUPT b/sources/AINTERRUPT
index ce480721..83ca8e6f 100644
--- a/sources/AINTERRUPT
+++ b/sources/AINTERRUPT
@@ -1,12 +1,12 @@
 (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "XCL" BASE 10)
 
-
(FILECREATED "31-Mar-2024 09:38:10" |{DSK}<home>larry>il>medley>sources>AINTERRUPT.;7|
 41133  
+
(FILECREATED "12-Nov-2025 11:10:44" |{WMEDLEY}<sources>AINTERRUPT.;4|
 41235  
 
-      :EDIT-BY "lmm"
+      :EDIT-BY |rmk|
 
       :CHANGES-TO (VARS AINTERRUPTCOMS)
 
-      :PREVIOUS-DATE "31-Mar-2024 09:27:57" |{DSK}<home>larry>il>medley>sources>AINTERRUPT.;5|)
+      :PREVIOUS-DATE "31-Mar-2024 09:38:10" |{WMEDLEY}<sources>AINTERRUPT.;3|)
 
 
 (PRETTYCOMPRINT AINTERRUPTCOMS)
@@ -22,8 +22,8 @@
                                            (5 ERROR MOUSE)
                                            (7 HELP T)
                                            (16 PRINTLEVEL)
-                                           (20 (CONTROL-T))
-                                           (127 RUBOUT T)))))
+                                           (20 (CONTROL-T))))))
+                                                             (* \; "RMK2025:  Removed (127 RUBOUT T)")

         (GLOBALVARS LISPINTERRUPTS)
         (COMS 
               (* |;;| "^T this is actually not very useful any more, and the percentages are wrong")

@@ -538,14 +538,17 @@
     (prog1 \\interruptable (setq \\interruptable flag))))
 )
 
-(RPAQ? LISPINTERRUPTS

-       '((LISPINTERRUPTS (2 BREAK MOUSE)
-                (4 RESET MOUSE)
-                (5 ERROR MOUSE)
-                (7 HELP T)
-                (16 PRINTLEVEL)
-                (20 (CONTROL-T))
-                (127 RUBOUT T))))
+(RPAQ? LISPINTERRUPTS
 '((LISPINTERRUPTS (2 BREAK MOUSE)
+                               (4 RESET MOUSE)
+                               (5 ERROR MOUSE)
+                               (7 HELP T)
+                               (16 PRINTLEVEL)
+                               (20 (CONTROL-T)))))
+
+
+
+(* \; "RMK2025:  Removed (127 RUBOUT T)")

+
 (DECLARE\: DOEVAL@COMPILE DONTCOPY
 
 (GLOBALVARS LISPINTERRUPTS)
@@ -803,10 +806,10 @@ DONTCOPY
 (INTCHAR
 T)
 )
 (DECLARE\: DONTCOPY
-  (FILEMAP (NIL (2924 29142 (INTCHAR 2934 . 7957) (INTERRUPTCHAR 7959 . 8233) (INTERRUPTED 8235 . 15814)
- (LISPINTERRUPTS 15816 . 16343) (\\DOHELPINTERRUPT 16345 . 17243) (\\DOHELPINTERRUPT1 17245 . 18643) (
-\\DOINTERRUPTHERE 18645 . 19825) (\\PROC.FINDREALFRAME 19827 . 20631) (\\SETPRINTLEVEL 20633 . 22585) 
-(\\SETRECLAIMMIN 22587 . 23460) (GETINTERRUPT 23462 . 24818) (CURRENTINTERRUPTS 24820 . 25030) (
-SETINTERRUPT 25032 . 27010) (RESET.INTERRUPTS 27012 . 28969) (INTERRUPTABLE 28971 . 29140)) (29562 
-35546 (CONTROL-T 29572 . 35013) (\\CONTROL-T.PRINTRATIO 35015 . 35544)))))
+  (FILEMAP (NIL (2939 29157 (INTCHAR 2949 . 7972) (INTERRUPTCHAR 7974 . 8248) (INTERRUPTED 8250 . 15829)
+ (LISPINTERRUPTS 15831 . 16358) (\\DOHELPINTERRUPT 16360 . 17258) (\\DOHELPINTERRUPT1 17260 . 18658) (
+\\DOINTERRUPTHERE 18660 . 19840) (\\PROC.FINDREALFRAME 19842 . 20646) (\\SETPRINTLEVEL 20648 . 22600) 
+(\\SETRECLAIMMIN 22602 . 23475) (GETINTERRUPT 23477 . 24833) (CURRENTINTERRUPTS 24835 . 25045) (
+SETINTERRUPT 25047 . 27025) (RESET.INTERRUPTS 27027 . 28984) (INTERRUPTABLE 28986 . 29155)) (29664 
+35648 (CONTROL-T 29674 . 35115) (\\CONTROL-T.PRINTRATIO 35117 . 35646)))))
 STOP
diff --git a/sources/AINTERRUPT.LCOM b/sources/AINTERRUPT.LCOM
index 49635ec48e652f2a7b8d4a83e20f910d9e0e16a9..0f244ef71b2962e22f0f72e07f2839db5b184e8f 100644
GIT binary patch
delta 419
zcmZpUy%{qhu-?!}*Dt?J*T}%gRKd{D%Fw{d#8gQ^Ln%2ww;(eoHANvmPeDncraIi$
z)y2m(veu?JzqBYhwb;(l(=Ws|C@3@_M9<o!MpJ=H$<P2{lo8Mz6Dv~-pw^_KRG48k
z3N@(}1x3YHKt^7ENk(Q~eL9etnOCEr<QD4VqkwFLo}M01cS>SOYDx_j(@m`mER;04
zG~7IWT%Chl9Yb7Q6qK;|#sshHH6YGcFflYTHdU~4b@2?*b&6D|Day^RQLu9MaP)I`
z4b~0u=bAj5(QL8<Bc~kRfH2<7#WYRXRucpiG_(|AtQC}ke7!-TYo(wNl$x7g1`JXS
rLnCvApin3O&=7?XO(ia%Qg<JJCr6(!$Dm+^&4*O~uxvi7wT&47^dEQ`

delta 453
zcmcZ^(;Pb?u-@2E*Eg|9*T}%gM8Uw)%Gkon&{#=9Ln%2ww;(eoHANvmPeDncrrIUg
zyVfQnKR4AbC$Xrg(k?T{E;ltLC$-Y9IKQ+gIkni%(bF%)H7F=FAVkmFyoO6tK?%)l
zBMU22L!ennMX4~;YvL7Zk~0$X(o>7AY7}bn@=G!@^U{H=%)A-}CC7k(U<G7D^z`(A
z`co21Qd4RaxUiXTrliTG;pXY%>Kx?i7~<+Oc@Cpg5UFlgFflYVHde55b@2?*b&3Sq
zl#`pQq+sRj;ppe?8mt@QKe?RI%+AQ%%G6v*fs53@F|E<$^7NaWz+$wSn<-uy7}|zL
t<_bZfPX3`G3L%<cprGOI<L~6?6XqBctiZK-x#}MlK2&v^7in#01^@-Ehy4Hm