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