1 |
|
|
2 |
(IN-PACKAGE "CONDITIONS") |
(IN-PACKAGE "CONDITIONS") |
|
(PROCLAIM '(FTYPE (FUNCTION (*) (*)) SYSTEM::CLCS-BREAK-QUIT)) |
|
|
(PROCLAIM '(FTYPE (FUNCTION (T) (*)) CONDITION-BACKTRACE)) |
|
3 |
(PROCLAIM |
(PROCLAIM |
4 |
'(FTYPE (FUNCTION (T T T T) *) COERCE-TO-CONDITION |
'(FTYPE (FUNCTION (T T T T) *) |
|
|(PCL::FAST-METHOD PRINT-OBJECT (SIMPLE-CONDITION T))| |
|
|
|(PCL::FAST-METHOD PRINT-OBJECT (TYPE-ERROR T))| |
|
|
|(PCL::FAST-METHOD PRINT-OBJECT (CASE-FAILURE T))| |
|
|
|(PCL::FAST-METHOD PRINT-OBJECT (END-OF-FILE T))| |
|
5 |
|(PCL::FAST-METHOD PRINT-OBJECT (PACKAGE-ERROR T))| |
|(PCL::FAST-METHOD PRINT-OBJECT (PACKAGE-ERROR T))| |
6 |
|
COERCE-TO-CONDITION |
7 |
|
|(PCL::FAST-METHOD PRINT-OBJECT (CASE-FAILURE T))| |
8 |
|
|(PCL::FAST-METHOD PRINT-OBJECT (TYPE-ERROR T))| |
9 |
|
|(PCL::FAST-METHOD PRINT-OBJECT (INTERNAL-SIMPLE-ERROR T))| |
10 |
|(PCL::FAST-METHOD PRINT-OBJECT (UNBOUND-VARIABLE T))| |
|(PCL::FAST-METHOD PRINT-OBJECT (UNBOUND-VARIABLE T))| |
11 |
|(PCL::FAST-METHOD PRINT-OBJECT (UNDEFINED-FUNCTION T))| |
|(PCL::FAST-METHOD PRINT-OBJECT (SIMPLE-CONDITION T))| |
|
|(PCL::FAST-METHOD PRINT-OBJECT (ABORT-FAILURE T))| |
|
12 |
|(PCL::FAST-METHOD PRINT-OBJECT (INTERNAL-ERROR T))| |
|(PCL::FAST-METHOD PRINT-OBJECT (INTERNAL-ERROR T))| |
13 |
|(PCL::FAST-METHOD PRINT-OBJECT (INTERNAL-SIMPLE-ERROR T))|)) |
|(PCL::FAST-METHOD PRINT-OBJECT (END-OF-FILE T))| |
14 |
|
|(PCL::FAST-METHOD PRINT-OBJECT (ABORT-FAILURE T))| |
15 |
|
|(PCL::FAST-METHOD PRINT-OBJECT (UNDEFINED-FUNCTION T))|)) |
16 |
(PROCLAIM |
(PROCLAIM |
17 |
'(FTYPE (FUNCTION (T T T T T *) *) CLCS-UNIVERSAL-ERROR-HANDLER)) |
'(FTYPE (FUNCTION (T T T) *) EXECUTE-DEBUGGER-COMMAND |
18 |
|
RESTART-PRINT)) |
19 |
(PROCLAIM |
(PROCLAIM |
20 |
'(FTYPE (FUNCTION (T T T) *) RESTART-PRINT |
'(FTYPE (FUNCTION (T T T T T *) *) CLCS-UNIVERSAL-ERROR-HANDLER)) |
|
EXECUTE-DEBUGGER-COMMAND)) |
|
|
(PROCLAIM '(FTYPE (FUNCTION (T T T) T) ACCUMULATE-CASES)) |
|
|
(PROCLAIM '(FTYPE (FUNCTION (T T T *) T) SET-INTERNAL-ERROR)) |
|
|
(PROCLAIM '(FTYPE (FUNCTION (T T *) T) CERROR)) |
|
21 |
(PROCLAIM |
(PROCLAIM |
22 |
'(FTYPE (FUNCTION (T T T T) T) |
'(FTYPE (FUNCTION (T T T T) T) |
23 |
|(PCL::FAST-METHOD PRINT-OBJECT (CONDITION T))|)) |
|(PCL::FAST-METHOD PRINT-OBJECT (CONDITION T))|)) |
24 |
|
(PROCLAIM '(FTYPE (FUNCTION (T T T *) T) SET-INTERNAL-ERROR)) |
25 |
|
(PROCLAIM '(FTYPE (FUNCTION (T T *) T) CERROR)) |
26 |
|
(PROCLAIM '(FTYPE (FUNCTION (T T T) T) ACCUMULATE-CASES)) |
27 |
(PROCLAIM |
(PROCLAIM |
28 |
'(FTYPE (FUNCTION NIL *) SYSTEM::BREAK-RESUME ABORT CONTINUE |
'(FTYPE (FUNCTION NIL *) ABORT CONTINUE MUFFLE-WARNING |
29 |
MUFFLE-WARNING SYSTEM::BREAK-HELP)) |
SYSTEM::BREAK-HELP SYSTEM::BREAK-RESUME)) |
30 |
(PROCLAIM |
(PROCLAIM |
31 |
'(FTYPE (FUNCTION NIL T) INSTALL-CLCS-SYMBOLS REVERT-CLCS-SYMBOLS |
'(FTYPE (FUNCTION NIL T) READ-EVALUATED-FORM INSTALL-CLCS-SYMBOLS |
32 |
KCL-TOP-RESTARTS READ-DEBUG-COMMAND |
REVERT-CLCS-SYMBOLS INITIALIZE-INTERNAL-ERROR-TABLE |
33 |
INITIALIZE-INTERNAL-ERROR-TABLE READ-EVALUATED-FORM)) |
KCL-TOP-RESTARTS READ-DEBUG-COMMAND)) |
34 |
(PROCLAIM '(FTYPE (FUNCTION (*) *) CLCS-COMPILE INVOKE-DEBUGGER)) |
(PROCLAIM '(FTYPE (FUNCTION (*) *) CLCS-COMPILE INVOKE-DEBUGGER)) |
35 |
(PROCLAIM |
(PROCLAIM |
36 |
'(FTYPE (FUNCTION (*) T) MAKE-RESTART BREAK COMPUTE-RESTARTS |
'(FTYPE (FUNCTION (T) *) COMPILER::CMP-TOPLEVEL-EVAL |
37 |
SHOW-RESTARTS)) |
SIMPLE-ASSERTION-FAILURE INVOKE-RESTART-INTERACTIVELY |
38 |
(PROCLAIM |
STORE-VALUE USE-VALUE FIND-CLASS-NO-ERROR |
39 |
'(FTYPE (FUNCTION (T) *) SYSTEM::CLCS-BREAK-LEVEL-INVOKE-RESTART |
SYSTEM::CLCS-BREAK-LEVEL-INVOKE-RESTART CLCS-ERROR-SET)) |
40 |
COMPILER::CMP-TOPLEVEL-EVAL INVOKE-RESTART-INTERACTIVELY |
(PROCLAIM |
41 |
STORE-VALUE USE-VALUE CLCS-ERROR-SET |
'(FTYPE (FUNCTION (*) T) SHOW-RESTARTS BREAK COMPUTE-RESTARTS |
42 |
SIMPLE-ASSERTION-FAILURE)) |
MAKE-RESTART SYSTEM::CLCS-BREAK-QUIT)) |
43 |
(PROCLAIM |
(PROCLAIM |
44 |
'(FTYPE (FUNCTION (T) T) SYSTEM::CLCS-TERMINAL-INTERRUPT |
'(FTYPE (FUNCTION (T) T) RESET-FUNCTION |
45 |
RESTART-FUNCTION RESTART-REPORT-FUNCTION |
ESCAPE-SPECIAL-CASES-REPLACE STANDARD-DEBUGGER |
46 |
RESTART-INTERACTIVE-FUNCTION RESTART-P REVERT-SYMBOL |
SIMPLE-CONDITION-CLASS-P CONDITIONP RESTART-NAME |
47 |
CONDITIONP CONDITION-CLASS-P UNIQUE-ID MAKE-KCL-TOP-RESTART |
CONDITION-CLASS-P UNIQUE-ID RESTART-P RESTART-FUNCTION |
48 |
FIND-KCL-TOP-RESTART RESTART-NAME STANDARD-DEBUGGER |
RESTART-REPORT-FUNCTION RESTART-INTERACTIVE-FUNCTION |
49 |
SIMPLE-CONDITION-CLASS-P RESET-FUNCTION |
MAKE-KCL-TOP-RESTART SYSTEM::CLCS-TERMINAL-INTERRUPT |
50 |
ESCAPE-SPECIAL-CASES-REPLACE)) |
FIND-KCL-TOP-RESTART CONDITION-BACKTRACE REVERT-SYMBOL)) |
51 |
(PROCLAIM |
(PROCLAIM |
52 |
'(FTYPE (FUNCTION (T *) *) CLCS-COMPILE-FILE CLCS-LOAD CLCS-OPEN |
'(FTYPE (FUNCTION (T *) *) CLCS-COMPILE-FILE CLCS-LOAD ERROR |
53 |
ERROR MAKE-CONDITION INVOKE-RESTART)) |
CLCS-OPEN MAKE-CONDITION INVOKE-RESTART)) |
54 |
(PROCLAIM |
(PROCLAIM |
55 |
'(FTYPE (FUNCTION (T *) T) WARN SIGNAL FIND-RESTART |
'(FTYPE (FUNCTION (T *) T) WARN SIGNAL FIND-RESTART |
56 |
SYSTEM::CLCS-BREAK-LEVEL)) |
SYSTEM::CLCS-BREAK-LEVEL)) |
57 |
(PROCLAIM |
(PROCLAIM |
58 |
'(FTYPE (FUNCTION (T T) *) PARSE-KEYWORD-PAIRS RESTART-REPORT |
'(FTYPE (FUNCTION (T T) *) ASSERT-PROMPT PARSE-KEYWORD-PAIRS |
59 |
ASSERT-PROMPT)) |
RESTART-REPORT)) |
60 |
(PROCLAIM |
(PROCLAIM |
|
'(FTYPE (FUNCTION (T T) T) INSTALL-SYMBOL SIMPLE-CONDITION-PRINTER |
|
|
INTERNAL-SIMPLE-ERROR-PRINTER ASSERT-REPORT)) |
|
61 |
|
'(FTYPE (FUNCTION (T T) T) ASSERT-REPORT |
62 |
|
INTERNAL-SIMPLE-ERROR-PRINTER SIMPLE-CONDITION-PRINTER |
63 |
|
INSTALL-SYMBOL)) |