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