Revert "duplicate definition of UNINTERRUPTABLY pp macro (#395)" (#397)

This reverts commit b07d528.

Author: masinter

sources/AINTERRUPT

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