duplicate definition of UNINTERRUPTABLY pp macro (#395)

sources/AINTERRUPT

@@ -1,12 +1,14 @@
-(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "XCL" BASE 10)
-
(FILECREATED "17-Sep-92 10:42:38" "{Pele:mv:envos}<LispCore>Sources>AINTERRUPT.;4"
 41128  
+(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "XCL" BASE 10 FORMAT XCCS)
+
(FILECREATED " 6-Aug-2021 08:17:31" |{DSK}<home>larry>ilisp>medley>sources>AINTERRUPT.;2|
 40689  
 
-      |changes| |to:|  (FNS INTCHAR GETINTERRUPT)
+      |changes| |to:|  (ALISTS (PRETTYPRINTMACROS UNINTERRUPTABLY))
+                       (VARS AINTERRUPTCOMS)
 
-      |previous| |date:| "28-Jun-90 18:45:07" "{Pele:mv:envos}<LispCore>Sources>AINTERRUPT.;3")
+      |previous| |date:| "17-Sep-92 10:42:38" |{DSK}<home>larry>ilisp>medley>sources>AINTERRUPT.;1|
+)
 
 
-; Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1989, 1990, 1992 by Venue & Xerox Corporation.  All rights reserved.
+; Copyright (c) 1982-1987, 1989-1990, 1992, 2021 by Venue & Xerox Corporation.
 
 (PRETTYCOMPRINT AINTERRUPTCOMS)
 
@@ -41,8 +43,7 @@
                (GLOBALVARS \\CURRENTINTERRUPTS \\SYSTEMINTERRUPTS INTERRUPTMENUFONT))
         (DECLARE\: EVAL@COMPILE (EXPORT (ADDVARS (SYSSPECVARS \\INTERRUPTABLE))
                                        (PROP INFO UNINTERRUPTABLY)
-                                       (PROP DMACRO UNINTERRUPTABLY)
-                                       (ALISTS (PRETTYPRINTMACROS UNINTERRUPTABLY)))
+                                       (PROP DMACRO UNINTERRUPTABLY))
                DONTCOPY
                (EXPORT (RECORDS INTERRUPTSTATE)
                       (PROP DMACRO \\TAKEINTERRUPT))
@@ -714,17 +715,6 @@
                                              (PROGN X . Y))
                                            NIL)))
 
-(ADDTOVAR PRETTYPRINTMACROS

-          (UNINTERRUPTABLY
-              LAMBDA (FORM)
-               (PROG ((POS (IPLUS 4 (POSITION))))
-                     (PRIN1 "(")
-                     (PRIN2 (CAR FORM))
-                     (OR (EQ COMMENTFLG (CAAR (SETQ FORM (CDR FORM))))
-                         (TAB POS 0))
-                     (PRINTDEF FORM POS T T FNSLST)
-                     (PRIN1 ")"))))
-
 (* "END EXPORTED DEFINITIONS")
 
 DONTCOPY 
@@ -793,12 +783,12 @@ DONTCOPY
 )
 )
 (PUTPROPS AINTERRUPT COPYRIGHT ("Venue & Xerox Corporation" 1982 1983 1984 1985 1986 1987 1989 1990 
-1992))
+1992 2021))
 (DECLARE\: DONTCOPY
-  (FILEMAP (NIL (2572 28843 (INTCHAR 2582 . 7650) (INTERRUPTCHAR 7652 . 7926) (INTERRUPTED 7928 . 15507)
- (LISPINTERRUPTS 15509 . 16026) (\\DOHELPINTERRUPT 16028 . 16926) (\\DOHELPINTERRUPT1 16928 . 18326) (
-\\DOINTERRUPTHERE 18328 . 19508) (\\PROC.FINDREALFRAME 19510 . 20314) (\\SETPRINTLEVEL 20316 . 22268) 
-(\\SETRECLAIMMIN 22270 . 23143) (GETINTERRUPT 23145 . 24519) (CURRENTINTERRUPTS 24521 . 24731) (
-SETINTERRUPT 24733 . 26711) (RESET.INTERRUPTS 26713 . 28670) (INTERRUPTABLE 28672 . 28841)) (28991 
-34975 (CONTROL-T 29001 . 34442) (\\CONTROL-T.PRINTRATIO 34444 . 34973)))))
+  (FILEMAP (NIL (2536 28807 (INTCHAR 2546 . 7614) (INTERRUPTCHAR 7616 . 7890) (INTERRUPTED 7892 . 15471)
+ (LISPINTERRUPTS 15473 . 15990) (\\DOHELPINTERRUPT 15992 . 16890) (\\DOHELPINTERRUPT1 16892 . 18290) (
+\\DOINTERRUPTHERE 18292 . 19472) (\\PROC.FINDREALFRAME 19474 . 20278) (\\SETPRINTLEVEL 20280 . 22232) 
+(\\SETRECLAIMMIN 22234 . 23107) (GETINTERRUPT 23109 . 24483) (CURRENTINTERRUPTS 24485 . 24695) (
+SETINTERRUPT 24697 . 26675) (RESET.INTERRUPTS 26677 . 28634) (INTERRUPTABLE 28636 . 28805)) (28955 
+34939 (CONTROL-T 28965 . 34406) (\\CONTROL-T.PRINTRATIO 34408 . 34937)))))
 STOP