(FILECREATED " 8-JUN-83 16:15:58" ("compiled on " {IVY}LISP>RPC>SIGNAL.;22) " 6-JUN-83 20:43:18" recompiled exprs: \NewOldFault1 in {IVY}LISP>HT.SYSOUT dated " 7-JUN-83 08:52:27") (FILECREATED " 8-JUN-83 16:15:21" {IVY}LISP>RPC>SIGNAL.;22 14914 changes to: (VARS SIGNALCOMS) (FNS TestSignals Signal \NewErrorx2 ST MakeErrorsSignals MakeErrorsErrorsAgain) previous date: "22-JAN-83 13:51:18" {IVY}LISP>RPC>SIGNAL.;19) \EnableTran D1 (P 7 any P 6 unwind P 5 it P 4 tran P 3 sig P 2 finals P 1 catches P 0 p I 0 form) t@q0 HHdgcOYo@ HH]0 HdOZ@gggggggoghggIOddgOgo@ H gGH0 HHgHdgO_RH_O Oh__O&_HlHHo [0HHHgHdg#O_OOh__O&_H_ O O h__O &_go@ H g:H0 HHdgOH_O Oh__O&_HlHHo 0 HHHdg#O_OOh__XO&_OH_O Oh__O&_h hhhhoogggggMhhoiggJhNo o hhhhi \ L(1160Q CLISPTRAN 1154Q DWIMIFY 1127Q \NCONC2 1116Q \NCONC2 1005Q \NCONC2 656Q HELP 534Q U-CASE 526Q HELP 352Q HELP 213Q U-CASE 205Q HELP 43Q HELP) (1104Q $Exit$ 1101Q SELECTQ 1060Q NLSETQ 1055Q result 1052Q SETQ 1047Q COND 1044Q RETURN 675Q -> 562Q -> 537Q UNWIND 514Q -> 405Q -> 373Q => 254Q -> 242Q => 216Q ANY 173Q => 160Q PROGN 136Q type 133Q SELECTQ 127Q PROG 120Q LAMBDA 115Q FUNCTION 112Q $SignalCatcher$ 107Q result 104Q $SignalArg$ 101Q $SignalType$ 76Q PROG 22Q ->) (1123Q ((T) (SHOULDNT)) 1113Q ((ERROR!)) 1074Q ((CAR result)) 1041Q (DECLARE (SPECVARS $SignalType$ $SignalArg$ $SignalCatcher$ $Exit$)) 1031Q ($Exit$) 653Q "Expected atom before ->" 522Q "Missing 'label ->'" 347Q "Expected atom before =>" 201Q "Missing 'sig =>" 124Q (type arg) 37Q "No catch phrases") \EnableQuitTran D1 (P 0 tran I 0 form)  @d dgC@@lo@ g@Yddidd gIhhpdg@oi i oQdg+@o gg@dg@hh!g@oi i oi X H(306Q CLISPTRAN 302Q DWIMIFY 276Q SHOULDNT 265Q TERPRI 260Q PRIN1 201Q HELP 150Q TERPRI 143Q PRIN1 46Q HELP 10Q U-CASE) (242Q REJECT 221Q PROGN 210Q LIST 205Q RETURN 163Q SRESUME 124Q EXIT 107Q QUOTE 54Q RETURN 14Q GOTO) (272Q (RETURN) 254Q "reject should not have args - args ignored" 176Q "sresume must have a value" 155Q (RETURN T) 137Q "exit should not have args - args ignored" 40Q "Must have non-NIL atomic exit label") Signal D1 (P 1 val P 0 frame I 1 arg I 0 type) 0gkHd H XEgH @AlJYH IgH@ gHA gHI H A @g8A ggAAAAA gAih ho@A (240Q HELP 224Q RETEVAL 203Q \HELPDLBLOCK/ERRORX3 145Q ERRORMESS 130Q RELSTK 123Q ERROR! 117Q RELSTK 112Q SETSTKARG 101Q SETSTKARG 70Q SETSTKARG 54Q RELSTK 31Q STKARG 17Q STKSCAN 13Q STKNTH) (207Q BREAK1 154Q RETFROM 151Q Signal 135Q LispError 105Q $Exit$ 74Q $SignalArg$ 63Q $SignalType$ 25Q $SignalCatcher$ 5 $SignalCatcher$) (232Q "Uncaught signal") \EnablePPMacro D1 (P 1 npos P 0 pos I 0 form) <o ` @@b ` @@gyHl ` @@b ` o ` 0@b@@g@dgJh id @bK Lh[L&Hl @@bh i @nHl ` @@b ` o ` 0@b@@dgJh id @bK Lh[L&o h(470Q PRIN1 430Q PRINTDEF 423Q POSITION 370Q CHANGEFONT 361Q POSITION 355Q PRIN1 345Q CHANGEFONT 336Q PRIN1 323Q CHANGEFONT 314Q TAB 302Q PRINTDEF 276Q POSITION 262Q TAB 222Q PRINTDEF 215Q POSITION 147Q CHANGEFONT 140Q POSITION 134Q PRIN1 124Q CHANGEFONT 115Q PRIN1 102Q CHANGEFONT 73Q TAB 45Q CHANGEFONT 36Q PRIN1 23Q CHANGEFONT 14Q PRIN1 2 POSITION) (412Q -> 365Q DEFAULTFONT 342Q CLISPFONT 320Q FONT5 204Q -> 172Q => 144Q DEFAULTFONT 121Q CLISPFONT 77Q FONT5 61Q => 42Q DEFAULTFONT 20Q CLISPFONT) (465Q ")" 352Q " -> " 131Q " => " 11Q "(") STA0014A0015 D1 (NAME ERRORSET L (2 ERRORSET.W 1 ERRORSET.V 0 ERRORSET.U) F 0 arg F 1 MACROY) o P h ci(21Q TERPRI 14Q ERRORMESS 6 PRIN1) NIL (3 "lisp error ") STA0014 D1 (P 3 RESETSTATE P 2 MACROY P 0 OLDVALUE I 1 arg I 0 type F 4 RESETVARSLST) @dgoi ggo l%h@dgo hgo i@dg>i 1gHhhTcog gIcgI Kii oi i i(232Q TERPRI 225Q PRIN1 214Q PRIN1 206Q ERROR! 200Q APPLY 154Q STA0014A0015 121Q OUTPUT 102Q PRINT 64Q PRINT 37Q PRINT 17Q PRINT) (171Q OUTPUT 160Q ERROR 151Q INTERNAL 127Q OUTPUT 111Q LispError 71Q s4 52Q s3 26Q s2 22Q s1 4 s1) (221Q " caught by any" 146Q (DUMMY.FOR.ERRORSET) 77Q "s4 caught" 61Q "s3 caught" 34Q "s2 caught" 13Q "s1 caught") STA0016 D1 (NAME ERRORSET L (2 ERRORSET.W 1 ERRORSET.V 0 ERRORSET.U)) h(2 TestSignals) NIL NIL ST D1 (P 4 $Exit$ P 3 result P 2 $SignalArg$ P 1 $SignalType$ P 0 $SignalCatcher$) 9gAo [Ldgo o Lih(66Q SHOULDNT 54Q ERROR! 51Q PRINT 36Q PRINT 14Q STA0016) (24Q s1 2 STA0014) (46Q "unwinding" 33Q "s1 unwound" 11Q (DUMMY.FOR.ERRORSET)) TestSignals D1 NIL i i oi dkgk vdlgl fdlgl Vdlg Hdlgl 8dll.dll$dlll lldgl l i gi (241Q PRIN1 232Q PRIN1 175Q UNDEFINEDITRUST 136Q Signal 116Q Signal 100Q Signal 60Q Signal 40Q Signal 24Q READ 20Q PRIN1 7 TERPRI 3 TERPRI) (235Q _ 216Q AlsoUndefined 131Q foo 113Q s4 73Q s3 53Q s2 34Q s1) (14Q ">") \NewErrorx2 D1 (P 4 BREAKCHK P 3 EX2FN P 2 EX2Y P 1 EX2X P 0 PRINTMSG I 1 ERRORPOS I 0 ERRORMESS F 6 ERRORTYPELST F 7 USERINTERRUPTS) iQ@V Y@dl2@ v@ m YAd I@A i dl@B@ A l+1@W YgoAIho o@ A [ Y2go@KIA]ddidd gMhhYggAIih h(341Q RETEVAL 317Q SHOULDNT 231Q FNTYP 225Q STKNAME 220Q ERROR 205Q RETEVAL 202Q SUBPAIR 152Q FASSOC 133Q RELSTK 127Q HASHOVERFLOW 101Q RETAPPLY 75Q SUBST 72Q STKARGS 62Q STKNAME 52Q EVAL 43Q EOFCLOSEF 33Q OPENP 11Q FASSOC) (326Q RETFROM 323Q ERRORX 302Q QUOTE 237Q Signal 160Q ERRORX) (243Q (QUOTE LispError) 212Q "undefined user interrupt" 177Q (OR (ERSETQ (RETFROM ERRORPOS EXP T)) (PROGN (RELSTK ERRORPOS) (ERROR!))) 164Q (ERRORPOS EXP)) \NewOldFault1 D1 (P 3 FXF P 2 FAULTFN P 1 PRINTMSG P 0 FAULTPOS I 3 FAULTZ I 2 FAULTAPPLYFLG I 1 FAULTARGS I 0 FAULTX F 5 DWIMFLG F 6 LASTWORD F 7 LISPXHISTORY) mBgg i2U@lB@c Bl.@ @ZA b@ll,@l-@Z WgJ go@iJhgH hhhH\ddidd gLhh[BgggHKih h(253Q RETEVAL 146Q BLIPVAL 133Q ERRORN 120Q LISPXPUT 105Q SETERRORN 57Q MAKEAPPLY 50Q SETERRORN 15Q STKNTH) (240Q RETFROM 235Q FAULTEVAL 231Q FAULTAPPLY 213Q QUOTE 142Q *FORM* 124Q Signal 114Q *ERROR* 12Q FAULTEVAL 6 FAULTAPPLY) (130Q (QUOTE LispError)) MakeErrorsSignals D1 NIL ;gg gg g gg gg o o(64Q PROMPTPRINT 54Q MOVD 42Q MOVD? 27Q DEFINEDP 21Q MOVD 10Q MOVD?) (51Q OLDFAULT1 46Q \NewOldFault1 37Q \OldOldFault1 34Q OLDFAULT1 24Q OLDFAULT1 16Q \HELPDLBLOCK/ERRORX2 13Q \NewErrorx2 5 \OldErrorx2 2 \HELPDLBLOCK/ERRORX2) (70Q "Errors are now signals" 61Q "WARNING - FAULT1 no longer lives as OLDFAULT1, can't fix u.b.a and u.d.f.") MakeErrorsErrorsAgain D1 NIL 1g gg g gg o o(52Q PROMPTPRINT 42Q MOVD 27Q DEFINEDP 20Q MOVD 5 DEFINEDP) (37Q OLDFAULT1 34Q \OldOldFault1 24Q \OldOldFault1 15Q \HELPDLBLOCK/ERRORX2 12Q \OldErrorx2 2 \OldErrorx2) (56Q "Errors are now errors" 47Q "Errors were still errors anyway") (PRETTYCOMPRINT SIGNALCOMS) (RPAQQ SIGNALCOMS ((FNS \EnableTran \EnableQuitTran Signal \EnablePPMacro) (PROP CLISPWORD ENABLE EXIT GOTO REJECT SRESUME enable exit goto reject sresume) (FNS ST TestSignals) (FNS \NewErrorx2 \NewOldFault1 MakeErrorsSignals MakeErrorsErrorsAgain) (P (MOVD? (QUOTE \HELPDLBLOCK/ERRORX2) (QUOTE \OldErrorx2)) (MOVD? (QUOTE OLDFAULT1) (QUOTE \OldOldFault1))) (RECORDS LispError) (E (SETQ $PF PRETTYFLG) (SETQ PRETTYFLG NIL)) (ALISTS (PRETTYPRINTMACROS ENABLE enable)) (E (SETQ PRETTYFLG $PF)))) (PUTPROPS ENABLE CLISPWORD (\EnableTran . enable)) (PUTPROPS EXIT CLISPWORD (\EnableQuitTran . exit)) (PUTPROPS GOTO CLISPWORD (\EnableQuitTran . goto)) (PUTPROPS REJECT CLISPWORD (\EnableQuitTran . reject)) (PUTPROPS SRESUME CLISPWORD (\EnableQuitTran . sresume)) (PUTPROPS enable CLISPWORD (\EnableTran . enable)) (PUTPROPS exit CLISPWORD (\EnableQuitTran . exit)) (PUTPROPS goto CLISPWORD (\EnableQuitTran . goto)) (PUTPROPS reject CLISPWORD (\EnableQuitTran . reject)) (PUTPROPS sresume CLISPWORD (\EnableQuitTran . sresume)) (MOVD? (QUOTE \HELPDLBLOCK/ERRORX2) (QUOTE \OldErrorx2)) (MOVD? (QUOTE OLDFAULT1) (QUOTE \OldOldFault1)) (RECORD LispError (eMess eFn eType . ePos)) (ADDTOVAR PRETTYPRINTMACROS (ENABLE . \EnablePPMacro) (enable . \EnablePPMacro)) NIL