/[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.2.6.1 by camm, Tue Sep 23 18:37:03 2003 UTC
# Line 3  Line 3 
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))|
# Line 17  Line 18 
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))

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

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