/[gcl]/gcl/clcs/sys-proclaim.lisp
ViewVC logotype

Diff of /gcl/clcs/sys-proclaim.lisp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.2 by camm, Thu Feb 27 23:54:22 2003 UTC revision 1.3 by camm, Tue Sep 23 21:48:26 2003 UTC
# Line 1  Line 1 
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))

Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26