/[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.1 by camm, Wed Feb 26 22:21:34 2003 UTC revision 1.2 by camm, Thu Feb 27 23:54:22 2003 UTC
# Line 1  Line 1 
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))

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

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